CONTROL BLOCK NAME = DFHEIPDS
NAME OF MATCHING PL/AS CONTROL BLOCK = DFHEIPPS
DESCRIPTIVE NAME = CICS TS COMMAND LEVEL INTERFACE DSECTS
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1980, 1993
FUNCTION = This copybook contains the DSECTs used by
all of the separate parts of the EXEC interface.
These are the DSECTs used by all of the separate parts of
the EXEC interface.
REGISTER SAVE AREA DSECT FOR COBOL HANDLE
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
EIR |
COBOL HANDLE CONDITION RSA |
| (0) |
ADDRESS |
4 |
EIRBEG (0) |
START OF DATA |
| (0) |
CHARACTER |
60 |
EIR14 |
REGS 14 THRU 12 |
| (3C) |
ADDRESS |
4 |
EIR13 |
REG 13 |
| (40) |
BITSTRING |
1 |
EIREND (0) |
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1990, 1991
This DSECT describes the storage which is used to pass the
COMMAREA from one command-level transaction to another using an
EXEC CICS RETURN TRANSID(..) COMMAREA(..) LENGTH(..)
PN= REASON REL YYMMDD HDXXIII : REMARKS
: fields for PSK release.
Table 2.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHEICDS |
COMMAREA STORAGE DSECT |
| (0) |
BITSTRING |
1 |
EIC (0) |
| (0) |
BITSTRING |
1 |
EICBEG (0) |
START OF DATA |
| (0) |
FULLWORD |
4 |
EIC_COMMAREA_ADDRESS |
A(EICBDA) |
| (4) |
BITSTRING |
1 |
EIC_SUBPOOL |
COMMAREA SUBPOOL FLAG |
| (4) |
.... ...1 |
|
EIC_APCOMM31 |
"1" APCOMM31 CICS KEY SUBPOOL |
| (5) |
BITSTRING |
3 |
|
RESERVED |
| (8) |
FULLWORD |
4 |
|
RESERVED |
| (C) |
HALFWORD |
2 |
EICLL |
COMMAREA LENGTH |
| (E) |
HALFWORD |
2 |
EICBB |
RESERVED (MVS) |
| (10) |
BITSTRING |
1 |
EICDBA (0) |
COMMAREA DATA |
Data interchange DSECT used to pass information from
user to DIP in the format required by DIP
Table 3.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
EII |
DATA INTERCHANGE DSECT |
| (0) |
FULLWORD |
4 |
(2) |
STORAGE ACCOUNTING |
| (8) |
BITSTRING |
1 |
EIIBEG (0) |
START OF DATA |
| (8) |
BITSTRING |
1 |
EIIDESL |
DESTIDLENG |
| (9) |
CHARACTER |
8 |
EIIDES |
DESTID |
| (11) |
BITSTRING |
1 |
EIIVOLL |
VOLUMELENG |
| (12) |
CHARACTER |
6 |
EIIVOL |
VOLUME |
| (18) |
BITSTRING |
1 |
EIIKEYL |
KEYLENGTH |
| (19) |
CHARACTER |
64 |
EIIKEY |
RIDFLD |
| (59) |
BITSTRING |
1 |
EIIEND (0) |
Arg list DSECT overlays the argument list from the application
Table 4.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
EIA |
EXEC ARGUMENT LIST DSECT |
| (0) |
ADDRESS |
4 |
EIAARG0 |
ARGUMENT 0 |
| (4) |
ADDRESS |
4 |
EIAARG1 |
1 |
| (8) |
ADDRESS |
4 |
EIAARG2 |
2 |
| (C) |
ADDRESS |
4 |
EIAARG3 |
3 |
| (10) |
ADDRESS |
4 |
EIAARG4 |
4 |
| (14) |
ADDRESS |
4 |
EIAARG5 |
5 |
| (18) |
ADDRESS |
4 |
EIAARG6 |
6 |
| (1C) |
ADDRESS |
4 |
EIAARG7 |
7 |
| (20) |
ADDRESS |
4 |
EIAARG8 |
8 |
| (24) |
ADDRESS |
4 |
EIAARG9 |
9 |
| (28) |
ADDRESS |
4 |
EIAARG10 |
10 |
| (2C) |
ADDRESS |
4 |
EIAARG11 |
11 |
| (30) |
ADDRESS |
4 |
EIAARG12 |
12 |
| (34) |
ADDRESS |
4 |
EIAARG13 |
13 |
| (38) |
ADDRESS |
4 |
EIAARG14 |
14 |
| (3C) |
ADDRESS |
4 |
EIAARG15 |
15 |
| (40) |
ADDRESS |
4 |
EIAARG16 |
16 |
ARG0 descriptor overlays argument 0 in the argument list
from the application
Table 5.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
EID |
EXEC CICS ARGUMENT ZERO |
| (0) |
CHARACTER |
2 |
EIDFN (0) |
FUNCTION GROUP AND FUNCTION |
| (0) |
CHARACTER |
1 |
EIDGROUP (0) |
FUNCTION GROUP |
| (0) |
.1.. .1.. |
|
EIDDLIGP |
"X'44'" EXEC DLI |
| (0) |
..1. .1.. |
|
EIDGDGP |
"X'24'" EXEC CICS GDS |
| (0) |
...1 .11. |
|
EIDSPGP |
"X'16'" EXEC CICS SYNCPOINT & RESYNC |
| (0) |
.... .1.. |
|
EIDTCGP |
"X'04'" EXEC CICS TERMINAL CONTROL |
| (0) |
...1 1... |
|
EIDBMSGP |
"X'18'" EXEC CICS BMS |
| (0) |
...1 .... |
|
EIDICGP |
"X'10'" EXEC CICS INTERVAL CONTROL |
| (0) |
.... .... |
|
EIDRMGP |
"X'00'" RESOURCE MANAGER |
| (0) |
CHARACTER |
1 |
EIDOPT0 |
OPTION BYTE ZERO |
| (1) |
CHARACTER |
1 |
EIDFUNC (0) |
FUNCTION |
| (1) |
.... ..1. |
|
EIDDLIIN |
"X'02'" EXEC DLI INIT CALL |
| (1) |
.... ..1. |
|
EIDSYNCP |
"X'02'" EXEC CICS SYNCPOINT |
| (1) |
.... ..1. |
|
EIDRECV |
"X'02'" RECEIVE |
| (1) |
.... .11. |
|
EIDCONV |
"X'06'" CONVERSE |
| (1) |
.... .1.. |
|
EIDSEND |
"X'04'" SEND |
| (1) |
.... ..1. |
|
EIDRECVMAP |
"X'02'" RECEIVE MAP |
| (1) |
.... .1.. |
|
EIDSENDMAP |
"X'04'" SEND MAP |
| (1) |
.... .11. |
|
EIDSENDTEXT |
"X'06'" SEND TEXT |
| (1) |
.... 111. |
|
EIDRECVPARTN |
"X'0E'" RECEIVE PARTN |
| (1) |
...1 ..1. |
|
EIDSENDCONTROL |
"X'12'" SEND CONTROL |
| (1) |
.... 1... |
|
EIDSENDPAGE |
"X'08'" SEND PAGE |
| (1) |
.... 1.1. |
|
EIDPURGEMESSAGE |
"X'0A'" PURGE MESSAGE |
| (1) |
.... 1... |
|
EIDSTART |
"X'08'" START |
| (1) |
.... 1.1. |
|
EIDRETRIEVE |
"X'0A'" RETRIEVE |
| (1) |
.... 1... |
|
EIDCANCEL |
"X'08'" CANCEL |
| (1) |
.... .1.. |
|
EIDRSYNC |
"X'04'" EXEC CICS RESYNC |
| (1) |
...1 .1.. |
|
EIDDISC |
"X'14'" ISSUE-DISCONNECT |
| (1) |
...1 1... |
|
EIDEAU |
"X'18'" ISSUE-ERASEAUP |
| (1) |
...1 11.. |
|
EIDPRINT |
"X'1C'" ISSUE-PRINT |
| (1) |
..1. .... |
|
EIDALLOC |
"X'20'" ALLOCATE |
| (1) |
..1. ..1. |
|
EIDFREE |
"X'22'" FREE |
| (1) |
1... .... |
|
EIDPRVFN |
"X'80'" >=X'80' MEANS 'HIDDEN-ARG0-CALLS', ELSE DL/I-STYLE. |
| (1) |
CHARACTER |
1 |
EIDOPT1 |
OPTION BYTE 1 |
| (1) |
.... .1.. |
|
EIDCOND |
"X'04'" |
| (2) |
CHARACTER |
3 |
EIDEXIST (0) |
ARGUMENT EXISTENCE BITS |
| (2) |
CHARACTER |
1 |
EIDOPT2 |
OPTION BYTE 2 |
| (2) |
.1.. .... |
|
EIDCOMM |
"X'40'" COMMAREA specified |
| (2) |
.... .1.. |
|
EIDDATAL |
"X'04'" DATALENGTH specified |
| (2) |
.... ...1 |
|
EIDTRAN |
"X'01'" TRANSID specified |
The following equates relate only to 'hidden arg0 calls',
ie where EIDGROUP = X'00' and EIDFUNC >= X'80'.
|
| (2) |
1... .... |
|
EIDNCAL |
"X'80'" RM NOT TO BE CALLED |
| (2) |
.1.. .... |
|
EIDELUW |
"X'40'" LAST CALL IN LUW |
| (2) |
..1. .... |
|
EIDRRMA |
"X'20'" RETURN (DON'T ABEND) IF RES-MGR NOT ACTIVE. |
| (2) |
...1 .... |
|
EIDACAL |
"X'10'" ALL RM'S TO BE CALLED |
| (2) |
.... ..1. |
|
EIDSOTR |
"X'02'" FIRST CALL IN TASK |
| (2) |
.... ...1 |
|
EIDEOTR |
"X'01'" LAST CALL IN TASK |
End of hidden arg 0 call equates
|
| (3) |
CHARACTER |
1 |
EIDOPT3 |
OPTION BYTE 3 |
| (4) |
CHARACTER |
1 |
EIDOPT4 |
OPTION BYTE 4 |
| (4) |
1... .... |
|
EIDSYEIB |
"X'80'" TRANSLATED USING THE SYSEIB OPTION |
| (4) |
.1.. .... |
|
EIDNOEDF |
"X'40'" NOEDF |
| (4) |
..1. .... |
|
EIDNOHAN |
"X'20'" NOHANDLE |
| (5) |
CHARACTER |
1 |
EIDOPT5 |
OPTION BYTE 5 |
| (5) |
.... ...1 |
|
EIDSET |
"X'01'" SET |
| (5) |
.... ..1. |
|
EIDNEXT |
"X'02'" NEXT |
| (5) |
.... ..1. |
|
EIDPSBKR |
"X'02'" PASSBK ON RECEIVE |
| (5) |
.... .1.. |
|
EIDMASSI |
"X'04'" MASSINSERT |
| (5) |
1... .... |
|
EIDTOL31 |
"X'80'" 31 BIT LENGTH IN TC ARG2 |
| (5) |
.1.. .... |
|
EIDFML31 |
"X'40'" 31 BIT LENGTH IN TC ARG4 |
| (5) |
..1. .... |
|
EIDMXL31 |
"X'20'" 31 BIT LENGTH IN TC ARG9 |
| (5) |
...1 .... |
|
EIDNTRNC |
"X'10'" TC NOTRUNCATE OPTION |
| (5) |
1... .... |
|
EIDTPN32 |
"X'80'" TPNs > 32 chars are valid |
| (5) |
.1.. .... |
|
EIDTROFF |
"X'40'" TRACE OFF |
| (5) |
...1 .... |
|
EIDTRLST |
"X'10'" TRACE LIST |
| (5) |
.... 1... |
|
EIDTRSIN |
"X'08'" TRACE SINGLE |
| (5) |
.... .1.. |
|
EIDTRSYS |
"X'04'" TRACE SYSTEM |
| (5) |
.... ..1. |
|
EIDTRUSE |
"X'02'" TRACE USER |
| (5) |
.... ...1 |
|
EIDTRALL |
"X'01'" TRACE ALL |
| (5) |
.... .1.. |
|
EIDMSDEF |
"X'04'" BMS DEFAULT |
| (5) |
.... ..1. |
|
EIDMSALT |
"X'02'" BMS ALTERNATE |
| (6) |
CHARACTER |
1 |
EIDOPT6 |
OPTION BYTE 6 |
| (6) |
1... .... |
|
EIDCONFM |
"X'80'" TC CONFIRM OPTION |
| (6) |
1... .... |
|
EIDRBA |
"X'80'" RBA |
| (6) |
1... .... |
|
EIDSYNC |
"X'80'" SYNCONRETURN specified |
| (6) |
1... .... |
|
EIDRTST |
"X'80'" Routable START |
| (6) |
.1.. .... |
|
EIDGENER |
"X'40'" GENERIC |
| (6) |
..1. .... |
|
EIDGTEQ |
"X'20'" GTEQ |
| (6) |
.... ..1. |
|
EIDPROT |
"X'02'" PROTECT |
| (6) |
.... ...1 |
|
EIDNOCHK |
"X'01'" NOCHECK |
| (6) |
.1.. .... |
|
EIDTCDEF |
"X'40'" TC DEFAULT |
| (6) |
..1. .... |
|
EIDTCALT |
"X'20'" TC ALTERNATE |
| (6) |
.1.. .... |
|
EIDRESUN |
"X'40'" RESUNAVAIL support |
| (7) |
CHARACTER |
1 |
EIDOPT7 |
OPTION BYTE 7 |
| (7) |
.... 1... |
|
EIDSGST |
"X'08'" SEGSET |
| (7) |
.... .1.. |
|
EIDUPDT |
"X'04'" UPDATE |
| (7) |
.... .1.. |
|
EIDREWR |
"X'04'" REWRITE |
| (7) |
.... 1... |
|
EIDITEM |
"X'08'" ITEM |
| (7) |
..1. .... |
|
EIDICHDR |
"X'20'" IC HEADER |
| (7) |
...1 .... |
|
EIDICPUT |
"X'10'" START WITH DATA |
| (7) |
...1 .... |
|
EIDSHRD |
"X'10'" GETMAIN SHARED |
| (7) |
1... .1.1 |
|
EIDTERM |
"X'85'" GETMAIN TERMINAL class |
| (8) |
CHARACTER |
8 |
EIDRMID (0) |
RESOURCE MANAGER ID |
| (8) |
CHARACTER |
1 |
EIDOPT8 |
OPTION BYTE 8 |
| (8) |
.... .... |
|
EIDCANCL |
"X'00'" CANCEL (DEFAULT) |
| (8) |
.... ..1. |
|
EIDLABEL |
"X'02'" LABEL |
| (8) |
.... ...1 |
|
EIDPROG |
"X'01'" PROGRAM |
| (8) |
.... ...1 |
|
EIDTCWRI |
"X'01'" TC SEND / CONVERSE |
| (8) |
.... .1.. |
|
EIDWT |
"X'04'" WAIT |
| (9) |
CHARACTER |
1 |
EIDOPT9 |
OPTION BYTE 9 |
| (9) |
...1 .... |
|
EIDRRN |
"X'10'" RRN |
| (A) |
CHARACTER |
1 |
EIDOPT10 |
OPTION BYTE 10 |
| (A) |
11.. .... |
|
EIDMAPO |
"X'C0'" MAPONLY |
| (A) |
1... .... |
|
EIDBUF |
"X'80'" BUFFER |
| (A) |
.... 1... |
|
EIDWAIT |
"X'08'" WAIT |
| (B) |
CHARACTER |
1 |
EIDOPT11 |
OPTION BYTE 11 |
| (B) |
.... .1.. |
|
EIDPSBKW |
"X'04'" PASSBK ON SEND |
| (C) |
CHARACTER |
1 |
EIDOPT12 |
OPTION BYTE 12 |
| (C) |
...1 .... |
|
EIDFMH |
"X'10'" FMH |
| (C) |
...1 .... |
|
EIDRTAIN |
"X'10'" RETAIN |
| (C) |
.... 1... |
|
EIDLAST |
"X'08'" LAST |
| (C) |
.... 1... |
|
EIDRLSE |
"X'08'" RELEASE |
| (D) |
CHARACTER |
1 |
EIDOPT13 |
OPTION BYTE 13 |
| (E) |
CHARACTER |
1 |
EIDOPT14 |
OPTION BYTE 14 |
| (E) |
...1 .... |
|
EIDSTRF |
"X'10'" STRUCTURED FIELD |
| (E) |
.... ..1. |
|
EIDNVIT |
"X'02'" INVITE |
| (F) |
CHARACTER |
1 |
EIDOPT15 |
OPTION BYTE 15 |
| (10) |
CHARACTER |
8 |
EIDLNNO (0) |
LINE NUMBER |
| (10) |
CHARACTER |
1 |
EIDOPT16 |
OPTION BYTE 16 |
| (11) |
CHARACTER |
1 |
EIDOPT17 |
OPTION BYTE 17 |
| (12) |
CHARACTER |
1 |
EIDOPT18 |
OPTION BYTE 18 |
| (13) |
CHARACTER |
1 |
EIDOPT19 |
OPTION BYTE 19 |
| (14) |
CHARACTER |
1 |
EIDOPT20 |
OPTION BYTE 20 |
| (15) |
CHARACTER |
1 |
EIDOPT21 |
OPTION BYTE 21 |
| (16) |
CHARACTER |
1 |
EIDOPT22 |
OPTION BYTE 22 |
| (17) |
CHARACTER |
1 |
EIDOPT23 |
OPTION BYTE 23 |
| (18) |
CHARACTER |
1 |
EIDOPT24 |
OPTION BYTE 24 |
| (19) |
CHARACTER |
1 |
EIDOPT25 |
OPTION BYTE 25 |
| (1A) |
CHARACTER |
1 |
EIDOPT26 |
OPTION BYTE 26 |
| (1B) |
CHARACTER |
1 |
EIDOPT27 |
OPTION BYTE 27 |