DESCRIPTIVE NAME = CICS TS Data Interchange Block
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1980, 2014
FUNCTION = Maintain the status of a data interchange session.
The DIB is chained off the TCTTE. It is acquired
by the first DIP request in a transaction, and is
freed at transaction termination.
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = None
REGISTER CONVENTIONS = Not applicable
MODULE TYPE = MACRO DEFINING A DSECT
MODULE SIZE = Not applicable
ATTRIBUTES = Not applicable
ENTRY POINT = Not applicable
PURPOSE = Not applicable
LINKAGE = Not applicable
INPUT = Not applicable
OUTPUT = Not applicable
EXIT-NORMAL = Not applicable
EXIT-ERROR = Not applicable
EXTERNAL REFERENCES = None
CONTROL BLOCKS = Defines DIB Control Block
TABLES = None
MACROS = None
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHDIBDS |
| (0) |
HALFWORD |
2 |
DIBSCFGS |
STORAGE ACCOUNTING AREA |
| (2) |
HALFWORD |
2 |
DIBSCNTL |
STORAGE LENGTH |
| (4) |
HALFWORD |
2 |
DIBTSLGN |
LENGTH TO OUTPUT FOR TS |
| (6) |
HALFWORD |
2 |
DIBTSRES |
TS RESERVED= ZERO |
| (8) |
FULLWORD |
4 |
DIBSENSE (0) |
Sense code areas |
| (8) |
HALFWORD |
2 |
DIBSSI |
SYSTEM SENSE AREA |
| (A) |
HALFWORD |
2 |
DIBUSI |
USER SENSE AREA |
| (C) |
FULLWORD |
4 |
DIBDIRRD |
ACTUAL RETURNED RECORD ID |
NOTE THAT THESE FLAGS ARE SET IN COMBINATION:
DIBIFDSO + DIBIFDSS = 00 NOT ACTIVE NOT SUSPENDED
= 10 ACTIVE NOT SUSPENDED
= 11 ACTIVE BUT SUSPENDED
( 01 NEVER SET CODE RELIES ON
THIS)
|
| (10) |
BITSTRING |
1 |
DIBIFSEL |
SELECTION FLAGS |
| (10) |
1... .... |
|
DIBIFDSO |
"X'80'" OUTBOARD SELECTED |
| (10) |
..1. .... |
|
DIBIFDSS |
"X'20'" DSN SUSPENDED |
| (10) |
...1 .... |
|
DIBIFDAO |
"X'10'" OUTBOARD ABORTED(NOT REQ) |
| (10) |
.... 1... |
|
DIBIFDSI |
"X'08'" INBOUND SELECTED |
| (10) |
.... .1.. |
|
DIBIFDIN |
"X'04'" SOME INPUT DONE |
| (10) |
.... ..1. |
|
DIBIFDIS |
"X'02'" INPUT SUSPENDED |
| (10) |
.... ...1 |
|
DIBIFDAI |
"X'01'" INBOARD ABORTED(NOT REQ) |
| (11) |
BITSTRING |
1 |
DIBIFOSL |
OLD SELECT |
| (12) |
BITSTRING |
1 |
DIBIFOSP |
OLD PROFILE SAME FLAGS AS DIBDIFL2 |
| (14) |
HALFWORD |
2 |
(0) |
FORCE ALIGNMENT FOR ... |
| (14) |
BITSTRING |
1 |
DIBNICFN |
CURRENT FUNCTION |
| (15) |
BITSTRING |
1 |
DIBNINRS |
CURRENT NUMREC VALUE |
INPUT DESTINATION LATEST FMH (STATUS)
THIS IS A COPY OF THE BEGIN FMH RECEIVED ON INPUT
USE FMH DSECT TO OVERLAY FIELDS
|
| (16) |
BITSTRING |
1 |
DIBIFMLN |
LENGTH OF FMH (TO DIBDNAM) |
| (17) |
BITSTRING |
1 |
DIBIFMTY |
FMH TYPE(1, 2, 3 ETC) |
| (18) |
BITSTRING |
1 |
DIBIMSB |
MEDIA SELECTION FIELD |
BIT 0 RESERVED
BIT 1-3 FOLLOWING VALUES:
000 CONSOLE
010 CARD
011 PRINT
100 DISK
110 PDS
BIT 4-7 LOG SUBADDRESS
|
| (19) |
BITSTRING |
1 |
DIBISRI (0) |
BIT 0 SRI |
| (19) |
BITSTRING |
1 |
DIBIDSEL (0) |
BIT 1 DEMAND SELECT |
| (19) |
BITSTRING |
1 |
DIBIDSP (0) |
BITS 4-7 DATA STREAM PROFILE |
| (19) |
BITSTRING |
1 |
DIBIDDSP |
DEMAND SEL/DS PROFILE/SRI |
| (1A) |
BITSTRING |
1 |
DIBIDSF |
DESTINATION SELECTION FIELD |
| (1B) |
BITSTRING |
1 |
DIBIERCI |
EXCHANGE RECORD LENGTH |
| (1C) |
BITSTRING |
1 |
DIBIRSV2 (2) |
RESERVED |
| (1E) |
BITSTRING |
1 |
DIBIDNL |
LENGTH OF DSN |
| (1F) |
CHARACTER |
8 |
DIBIDNAM |
MAXIMUM OF EIGHT CHARACTERS DSN NAME |
| (27) |
BITSTRING |
1 |
DIBISDNL |
SAVED PREVIOUS LENGTH, DESTINATION, NAME |
OUTPUT DESTINATION LATEST FMH (STATUS)
THIS IS A COPY OF THE BEGIN FMH FIRST OUTPUT
USE FMH DSECT TO OVERLAY FIELDS
|
| (28) |
BITSTRING |
1 |
DIBFMHLN |
LENGTH OF FMH (TO DIBDNAM) |
| (29) |
BITSTRING |
1 |
DIBFMHTY |
FMH TYPE(1, 2, 3 ETC) |
| (2A) |
BITSTRING |
1 |
DIBMSB |
MEDIA SELECTION FIELD |
BIT 0 RESERVED
BIT 0-3 FOLLOWING VALUES:
0000 CONSOLE
0010 CARD
0011 PRINT
0100 DISK
0101 EXTENDED DOCUMENT
0110 PDS
1000 WORD PROCESSING MEDIUM 1
1001 WORD PROCESSING MEDIUM 2
1010 WORD PROCESSING MEDIUM 3
1100 WORD PROCESSING MEDIUM 4
1101 NCI
BIT 4-7 LOG SUBADDRESS
|
| (2B) |
BITSTRING |
1 |
DIBSRI (0) |
BIT 0 SRI |
| (2B) |
BITSTRING |
1 |
DIBDESEL (0) |
BIT 1 DEMAND SELECT |
| (2B) |
BITSTRING |
1 |
DIBDSP (0) |
BITS 4-7 DATA STREAM PROFILE |
VALUES OF THE DATA STREAM PROFILE
|
| (2B) |
.... .... |
|
DIBDSPDE |
"X'00'" DEFAULT |
| (2B) |
.... ...1 |
|
DIBDSPBA |
"X'01'" BASE |
| (2B) |
.... ..11 |
|
DIBDSPJB |
"X'03'" JOB DSP |
| (2B) |
.... .1.. |
|
DIBDSPRW |
"X'04'" WP RAW |
| (2B) |
.... .11. |
|
DIBDSPI1 |
"X'06'" OII LEVEL 1 |
| (2B) |
.... .111 |
|
DIBDSPI2 |
"X'07'" OII LEVEL 2 |
| (2B) |
.... 1... |
|
DIBDSPI3 |
"X'08'" OII LEVEL 3 |
VALUES X'09' TO X'0F' RESERVED
|
| (2B) |
BITSTRING |
1 |
DIBDSDSP |
DEMAND SEL/DS PROFILE/SRI |
| (2C) |
BITSTRING |
1 |
DIBDSF |
DESTINATION SELECTION FIELD |
| (2D) |
BITSTRING |
1 |
DIBERCI |
EXCHANGE RECORD LENGTH |
| (2E) |
BITSTRING |
1 |
DIBRSVD2 (2) |
RESERVED |
| (30) |
BITSTRING |
1 |
DIBDNL |
LENGTH OF DSN |
| (31) |
CHARACTER |
8 |
DIBDNAM |
MAXIMUM OF EIGHT CHARACTERS DSN NAME |
| (39) |
BITSTRING |
1 |
DIBVNL |
LENGTH OF VOLUME |
| (3A) |
CHARACTER |
6 |
DIBVNAM |
MAXIMUM SIX CHARACTER VOLUME ID |
| (40) |
BITSTRING |
1 |
DIBKYL |
SAVED KEY LENGTH |
| (41) |
CHARACTER |
64 |
DIBKYD |
SAVED KEY FOR RETRANSMIT |
| (88) |
DBL WORD |
8 |
(0) |