(0) |
HALFWORD |
2 |
EIS_LENGTH |
>Length of EIS |
(2) |
CHARACTER |
6 |
EIS_EYE |
>EIS eye catcher |
TASK LIFETIME STORAGE
The following storage is used to hold information which has the
same lifetime as the task
The following word is required at offset 8 by GDDM
|
(8) |
ADDRESS |
4 |
EIS_USER_EIB_ADDR |
Address of 'User' EIB |
(C) |
ADDRESS |
4 |
EISEIPB9 |
SAVE EIP BASE REG 9 |
(10) |
ADDRESS |
4 |
EISTCTTE (0) |
A(TCTTE) for terminal/LU specified in current TC cmd. |
(10) |
ADDRESS |
4 |
EISTCTSE |
A(TCTSE) specified in ALLOCATE |
(14) |
ADDRESS |
4 |
(0) |
(14) |
CHARACTER |
20 |
EISTRDATAB (0) |
Data for TRACE_PUT with boundary information |
(14) |
CHARACTER |
18 |
EISTRDATA (0) |
Data for TRACE_PUT |
(14) |
CHARACTER |
8 |
EISTRFLDAB (0) |
Field A and B |
(14) |
CHARACTER |
4 |
EISTRFLDA |
Field A |
(18) |
CHARACTER |
4 |
EISTRFLDB |
Field B |
(1C) |
CHARACTER |
8 |
EISTRRES |
Resource name |
(24) |
CHARACTER |
2 |
EISTRREQ (0) |
Request bytes |
(24) |
CHARACTER |
1 |
EISTRREQ1 |
Request byte 1 |
(25) |
CHARACTER |
1 |
EISTRREQ2 |
Request byte 2 |
(26) |
BITSTRING |
1 |
EISTRDST |
Dispatcher state |
(27) |
BITSTRING |
1 |
EISTRBIND |
Boundary indicators |
(14) |
CHARACTER |
22 |
EISTREAM64 (0) |
AMODE 64 Entry Trace |
(14) |
BITSTRING |
2 |
EISTREFN |
AMODE 64 group & function |
(16) |
BITSTRING |
1 |
EISTREKEY |
AMODE 64 key |
(17) |
BITSTRING |
1 |
EISTREAM |
AMODE 64 AMODE |
(18) |
ADDRESS |
8 |
EISTRER13 |
AMODE 64 R13 |
(20) |
ADDRESS |
8 |
EISTRER1 |
AMODE 64 R1 |
(28) |
BITSTRING |
1 |
EISTREDST |
Dispatcher state |
(29) |
BITSTRING |
1 |
EISTREBIND |
Boundary indicators |
(14) |
CHARACTER |
12 |
EISTRXAM64 (0) |
AMODE 64 Exit Trace |
(14) |
BITSTRING |
2 |
EISTRXFN |
AMODE 64 group and function |
(16) |
BITSTRING |
1 |
EISTRXDST |
Dispatcher state |
(17) |
BITSTRING |
1 |
EISTRXBIND |
Boundary indicators |
(18) |
FULLWORD |
4 |
EISTRXRP |
AMODE 64 RESP |
(1C) |
FULLWORD |
4 |
EISTRXRP2 |
AMODE 64 RESP2 |
(18) |
CHARACTER |
6 |
EISTRXGR |
AMODE 64 GDS return code |
(2A) |
CHARACTER |
2 |
|
Spare |
(2C) |
ADDRESS |
4 |
EISATABN |
Saved table entry pointer to avoid subsequent lookup. Also used for this by CAU. |
(30) |
ADDRESS |
4 |
EISCAHCB |
HEAD OF CHAIN OF ATTACH HEADER CONTROL BLOCKS |
(34) |
ADDRESS |
4 |
EISEDFDL |
DEBUG LINKAGE |
(38) |
BITSTRING |
1 |
EISFLAG2 |
SOME ACTIVE HANDLE CONDS |
(38) |
1... .... |
|
EISRDATT |
"X'80'" RDATT |
(38) |
.1.. .... |
|
EISWRBRK |
"X'40'" WRBRK |
(38) |
..1. .... |
|
EISEOF |
"X'20'" EOF |
(38) |
...1 .... |
|
EISNOSPA |
"X'10'" NOSPACE |
(38) |
.... 1... |
|
EISQBUSY |
"X'08'" QBUSY |
(38) |
.... .1.. |
|
EISNOSTG |
"X'04'" NOSTG |
(38) |
.... ..1. |
|
EISNQBSY |
"X'02'" ENQBUSY |
(38) |
.... ...1 |
|
EISNOJBS |
"X'01'" NOJBUFSP |
(39) |
BITSTRING |
1 |
EISFLAG3 |
(39) |
1... .... |
|
EISIGNAL |
"X'80'" SIGNAL |
(39) |
.1.. .... |
|
EISOFLOW |
"X'40'" OVERFLOW |
(39) |
..1. .... |
|
EISYSBSY |
"X'20'" SYSBUSY |
(39) |
...1 .... |
|
EISESBSY |
"X'10'" SESSBUSY |
(3A) |
BITSTRING |
1 |
EISFLAG5 |
(3A) |
1... .... |
|
EISIN1 |
"X'80'" 1 FOR FIRST RECEIVE OVER |
(3A) |
.1.. .... |
|
EISLERR |
"X'40'" 1 FOR LENGERR TO BE RAIS |
(3A) |
..1. .... |
|
EISRECF |
"X'20'" 1 FOR F FORMAT |
(3A) |
...1 .... |
|
EISRECU |
"X'10'" 1 FOR U FORMAT |
(3A) |
.... 1... |
|
EISRETRY |
"X'08'" 1 FOR RETRIEVE IOERROR |
(3A) |
.... .1.. |
|
EISTWAIT |
"X'04'" 1 FOR WRITE WITHOUT WAIT |
(3A) |
.... ..1. |
|
EISTAID |
"X'02'" 1 FOR TEST EIBAID |
(3B) |
BITSTRING |
1 |
EISDRESP |
DELAY RESPONSE |
(3C) |
BITSTRING |
1 |
EISFLAG4 |
(3C) |
1... .... |
|
EISABDMP |
"X'80'" Last abend included dump |
(3C) |
.1.. .... |
|
EISRUTER |
"X'40'" In rununit initialization or rununit termination |
(3C) |
..1. .... |
|
EISQRECV |
"X'20'" TSQ recoverable (for CAU). |
(3C) |
...1 .... |
|
EISQMAIN |
"X'10'" TSQ in main stg (for CAU). |
(3C) |
.... 1... |
|
EIS_LOWER_LEVEL_ ABENDED |
"X'08'" A user program at a lower link-level has abended previously |
(3C) |
.... .1.. |
|
EISEDFSE |
"X'04'" User task security initialized |
(3C) |
.... ..1. |
|
EISCANXT |
"X'02'" EXEC CICS ABEND WITH CANCEL |
(3C) |
.... ...1 |
|
EISTCBNA |
"X'01'" TCB not available |
(3D) |
BITSTRING |
1 |
EISEDFDM |
EDF DEBUG MODE |
(3D) |
1... .... |
|
EISEDFDO |
"X'80'" DEBUG ON |
(3D) |
.1.. .... |
|
EISEDFST |
"X'40'" SEPARATE TERMINAL |
(3D) |
..1. .... |
|
EISEDFX |
"X'20'" I/O ISSUED BY EDFX |
(3D) |
...1 .... |
|
EISABNDG |
"X'10'" EDFX has issued an abend |
(3D) |
.... 1... |
|
EISEDFDF |
"X'08'" EDF ON but deferred. |
(3D) |
.... .1.. |
|
EISEDFRO |
"X'04'" Read only EDF |
(3E) |
CHARACTER |
2 |
|
Reserved |
(40) |
ADDRESS |
4 |
EISTIOA |
A(TIOA below the line) |
(44) |
FULLWORD |
4 |
EISTIOAL |
length of below the line TIOA |
(48) |
FULLWORD |
4 |
EISUPERC |
super-link level count for RMI |
(4C) |
ADDRESS |
4 |
EISEXITT |
Task token for user exit |
(50) |
ADDRESS |
4 |
EIS_SYS_EIB_ADDR |
address of 'System' EIB |
(54) |
ADDRESS |
4 |
EISTRACE |
Level 2 trace |
(58) |
FULLWORD |
4 |
EISSAVE0 |
R0 save area for GETMAIN/FREEM. |
(5C) |
ADDRESS |
4 |
EISSAVE1 |
R1 save area for GETMAIN/FREEM. |
(60) |
ADDRESS |
4 |
EISSAVE6 |
R6 save area for GETMAIN/FREEM. |
(64) |
ADDRESS |
4 |
EISSAVE7 |
R7 save area for GETMAIN/FREEM. |
(64) |
ADDRESS |
4 |
EISTPTA |
Save area for TCATPTA |
(68) |
BITSTRING |
8 |
EIS_LE370_THREAD_ TOKEN |
LE thread token |
PROGRAM LIFETIME STORAGE
The following storage is used to hold information which has the
same lifetime as the current program
|
(70) |
HALFWORD |
2 |
EISCSETL |
data length (no trunc) for read set |
(72) |
CHARACTER |
1 |
EISENILT |
ENTRY NO. IN LABEL TABLE |
(73) |
CHARACTER |
1 |
|
Reserved |
(74) |
ADDRESS |
4 |
EISRET |
SUBROUTINE RETURN ADDRESS |
(78) |
ADDRESS |
4 |
|
Reserved for Service |
COMMAND LIFETIME STORAGE
The following storage is used to hold information which has the
same lifetime as the current command
|
(7C) |
CHARACTER |
4 |
EISSYSNM |
name of sys. holding resrce. |
(80) |
ADDRESS |
4 |
EISTEMP |
TEMPORARY R14 SLOT |
(84) |
ADDRESS |
4 |
EISTEMP2 |
TEMPORARY R14 SLOT |
(88) |
ADDRESS |
4 |
EISTEMP3 |
TEMPORARY R14 SLOT |
(8C) |
ADDRESS |
4 |
EISTEMP4 |
TEMPORARY R14 SLOT |
(90) |
BITSTRING |
1 |
EISEDFRB |
EDF REQUEST/REPLY BYTE |
REQUEST BITS
|
(90) |
1... .... |
|
EISEDFRQ |
"X'80'" EXEC REQUEST |
(90) |
.1.. .... |
|
EISEDFRS |
"X'40'" EXEC RESPONSE |
(90) |
..1. .... |
|
EISEDFIN |
"X'20'" INITIALIZATION |
(90) |
...1 .... |
|
EISEDFPT |
"X'10'" PROGRAM TERMINATION |
(90) |
.... 1... |
|
EISEDFTT |
"X'08'" TASK TERMINATION |
(90) |
.... .1.. |
|
EISEDFAB |
"X'04'" ABEND |
(90) |
.... ..1. |
|
EISEDFAC |
"X'02'" ABNORMAL CONDITION |
(90) |
.... ...1 |
|
EISEDFRE |
"X'01'" PLIST-REFORMAT REQUIRED |
REPLY BITS
|
(90) |
1... .... |
|
EISEDFFA |
"X'80'" FORCED ABEND |
(90) |
.1.. .... |
|
EISEDFUA |
"X'40'" USER ABEND |
(90) |
..1. .... |
|
EISEDFUW |
"X'20'" USER ABEND WITH DUMP |
(90) |
...1 .... |
|
EISEDFUD |
"X'10'" USER DUMP |
(90) |
.... 1... |
|
EISEDFCA |
"X'08'" CATASTROPHIC ABEND |
(91) |
CHARACTER |
7 |
|
Reserved |
START OF STACKED STORAGE
The following storage up to EISUPERB is stacked across links. The
length of the stacked storage is held in EISTACKL. Fields from
here to EISERMSA are RUN-UNIT local.
|
(98) |
DBL WORD |
8 |
(0) |
(98) |
ADDRESS |
4 |
EISTACKA (0) |
(98) |
ADDRESS |
4 |
EIS_PIPI_CICSKEY_RSA |
Address of PIPI Cics key rsa |
(9C) |
ADDRESS |
4 |
EIS_PIPI_USERKEY_STG |
Address of PIPI User key stg incl rsa |
(A0) |
ADDRESS |
4 |
EISRUSTG |
RUN UNIT LOCAL STORAGE ADDRESS |
(A4) |
ADDRESS |
4 |
EISERMSA |
EDF/DLI ADDR EDF DISPLAY DATA |
(A8) |
ADDRESS |
4 |
EIS_PLB_ADDRESS |
Addr(Program Language Block) |
(AC) |
ADDRESS |
4 |
EIS_APLI_SAVEAREA |
Addr(DFHAPLI's registers on giving up control) |
(B0) |
ADDRESS |
4 |
EISASTG |
A(WS) FOR COBOL ONLY |
(B4) |
CHARACTER |
2 |
EIS_PROGRAM_MODE |
TCB MODE for application program |
(B6) |
BITSTRING |
1 |
EISAPM |
APPLICATION PROGRAM MASK |
(B7) |
BITSTRING |
1 |
EISFLAG8 |
(B7) |
1... .... |
|
EISSRPAB |
"X'80'" TCAAAM SET IN EDFX-SRP ISSUED ABND |
(B7) |
.1.. .... |
|
EISEDFRM |
"X'40'" INDICATE EDF INVOKED BY ERM |
(B7) |
...1 .... |
|
EISEDFRN |
"X'10'" INDICATE NEW TYPE EDF SCREEN REQUIRED |
(B7) |
.... 1... |
|
EISCEDFY |
"X'08'" CEDF allowed for current program |
(B7) |
.... .1.. |
|
EISTKING |
"X'04'" Entering new exec capable GLUE/URM |
(B7) |
.... ..1. |
|
EISDPL |
"X'02'" Program restricted to DPL API |
(B7) |
.... ...1 |
|
EISYNCOK |
"X'01'" Syncpointing allowed in DPL server prog. |
(B8) |
BITSTRING |
1 |
EISFLAG9 |
(B8) |
1... .... |
|
EISSYEIB |
"X'80'" SYSEIB ON LAST EXEC CICS COMMAND |
(B8) |
.1.. .... |
|
EISRTDST |
"X'40'" Indicate a RouTeD STart request |
(B8) |
..1. .... |
|
EISERM31 |
"X'20'" DFHERM INVOKED IN AMODE 31 |
(B8) |
...1 .... |
|
EISERM64 |
"X'10'" DFHERM INVOKED IN AMODE 64 |
(B8) |
.... 1... |
|
EISCISYN |
"X'08'" Syncpoint request by CICS |
(B9) |
BITSTRING |
1 |
|
Reserved |
(BA) |
HALFWORD |
2 |
EISEDFLV |
EDF stack level for current prog |
(BC) |
ADDRESS |
4 |
|
Reserved |
The following storage up to the EQU for EISINITL is re-initialised
to X'00' for each program level
The length of this initialised area is in EISINITL.
|
(C0) |
ADDRESS |
4 |
EISINITA (0) |
(C0) |
BITSTRING |
1 |
EISFLAG1 |
ASSORTED FLAGS |
(C0) |
1... .... |
|
EISRORX |
"X'80'" 1 FOR PL/I RETURN OR XCTL |
(C0) |
.1.. .... |
|
EISSPEX |
"X'40'" eligible for XEISPIN, OUT |
(C0) |
..1. .... |
|
EISJVMXC |
"X'20'" Executing in JVM |
(C0) |
.... 1... |
|
EISPGOTO |
"X'08'" LE/370 Perform Goto flag |
(C0) |
.... ..1. |
|
EISEDFFC |
"X'02'" 1 FOR EDF WAS ON FOR FIRST CALL OF A SET OF CALLS |
(C0) |
.... ...1 |
|
EISEXEC |
"X'01'" 1 DURING EXEC COMMAND |
(C1) |
CHARACTER |
2 |
EIS_FASTPATH (0) |
Fastpath Condition Flags |
(C1) |
BITSTRING |
1 |
EISFLAG6 |
MAINS FOR EISFLAG2 |
(C2) |
BITSTRING |
1 |
EISFLAG7 |
AND EISFLAG3 |
NOTE: EISLANG NOW REPLACES EISFLAG4. THE MEANING IS
A PATTERN OF BITS TESTED BY CLI RATHER THAN TM.
BITS 0,1,2,7 IN EISLANG ARE ALWAYS ZERO.
|
(C3) |
BITSTRING |
1 |
EISLANG |
LANGUAGE FLAGS |
(C3) |
...1 111. |
|
EISLANGS |
"X'1E'" ALL LANGUAGE BITS |
(C3) |
...1 .... |
|
EISRPG |
"X'10'" FOR RPG PROGRAM |
(C3) |
.... 1... |
|
EISASM |
"X'08'" FOR ASM PROGRAM |
(C3) |
.... .1.. |
|
EISCOBOL |
"X'04'" FOR COBOL PROGRAM |
(C3) |
.... .11. |
|
EISSPCOB |
"X'06'" FOR SPECIAL PROGRAM |
(C3) |
.... ..1. |
|
EISPLI |
"X'02'" FOR PL/I PROGRAM |
(C3) |
.... 1.1. |
|
EISPLS |
"X'0A'" FOR PL/AS PROGRAM |
(C3) |
.... 11.. |
|
EISVSPLI |
"X'0C'" FOR V. SPECIAL PROGRAM |
(C3) |
.... 111. |
|
EISC |
"X'0E'" FOR C PROGRAM |
(C3) |
...1 ..1. |
|
EISLEASM |
"X'12'" FOR LE MAIN Assembler |
(C4) |
BITSTRING |
1 |
EISFLAGA |
flag byte |
(C4) |
1... .... |
|
EISDAT31 |
"X'80'" program will accept data above 16M |
(C4) |
.1.. .... |
|
EISDAT64 |
"X'40'" program will accept data above 2G |
(C4) |
.... .1.. |
|
EIS_XCTL |
"X'04'" User has issued XCTL |
(C4) |
.... ..1. |
|
EIS_PROGRAM_ABENDED |
"X'02'" DFHAPLI's Recovery Routine has detected that the program has abended |
(C4) |
.... ...1 |
|
EISEIECR |
"X'01'" The program has terminated by issuing Exec Cics Return |
EIS_CICS_DATAKEY, EIS_CICS_EXECKEY, EIS_CURRENT_EXECKEY,
and EIS_ABEND_EXECKEY are all part of the support for
Storage Isolation - PSK
|
(C4) |
..1. .... |
|
EIS_CICS_DATAKEY |
"X'20'" Current program was defined with CICS data location key. |
(C4) |
...1 .... |
|
EIS_CICS_EXECKEY |
"X'10'" Current program was defined with |
(C4) |
.... 1... |
|
EISRUNIN |
"X'08'" CEE Run-Unit in control CICS execution key. |
(C5) |
BITSTRING |
1 |
EIS_CURRENT_EXECKEY |
Instantaneous execution key when current command started |
(C5) |
1..1 .... |
|
EIS_USERKEY |
"X'90'" Constant for testing EIS_CURRENT_EXECKEY |
(C6) |
BITSTRING |
1 |
EIS_ABEND_EXECKEY |
Instantaneous execution key when the last HANDLE ABEND LABEL was executed at this level. |
(C7) |
BITSTRING |
1 |
EIS_APPL_BOUNDARY_ FLAGS |
Application Boundary Flags |
(C7) |
1... .... |
|
EIS_RECOVERY_SWITCH |
"X'80'" Recovery environment switch needed at application boundary |
(C7) |
.1.. .... |
|
EIS_ABTERM_ALLOWED_ SWITCH |
"X'40'" Abterm_allowed switch needed at application boundary |
(C7) |
..1. .... |
|
EIS_CRITICAL_CODE_ SWITCH |
"X'20'" Critical code protection switch needed at application boundary |
(C7) |
...1 .... |
|
EIS_RESET_RUNAWAY_ SWITCH |
"X'10'" Reset runaway state |
(C7) |
.... 1... |
|
EISECOFF |
"X'08'" Event capture off for curr pgm |
(C7) |
.... .1.. |
|
EISECTST |
"X'04'" Event captr tested for curr pgm |
(C8) |
ADDRESS |
4 |
EIS24STG |
A(run-unit work-area <16 meg) |
(CC) |
ADDRESS |
4 |
|
Reserved |
(CC) |
...1 .... |
|
EISINITL |
"*-EISINITA" Length cleared |
This is the end of the area initialised to X'00' on LINK or XCTL.
|
(CC) |
..11 1... |
|
EISTACKL |
"*-EISTACKA" Length stacked on LINK |
END OF STACKED STORAGE
SUPERLINK STORAGE
The following storage is not stacked by a LINK, however it is stacked
by a resource manager call (SUPERLINK) to allow for recursion in the
event that the invoked res-mgr invokes CICS via the command level
interface ie. EXEC CICS...
|
(D0) |
ADDRESS |
8 |
EISUPERB (0) |
START OF SUPERLINK |
(D0) |
ADDRESS |
4 |
EISICIOAL |
IC Retrieve length for Bridge |
(D4) |
ADDRESS |
4 |
EISBAIOA |
A(BAIOA) |
(D8) |
ADDRESS |
4 |
EISTDIA |
A(TDIA) |
(DC) |
ADDRESS |
4 |
EISTSIOA |
A(TSIOA) |
(E0) |
ADDRESS |
4 |
EISICIOA |
IC TSIOA |
(E4) |
ADDRESS |
4 |
EISDITAB |
DI TABLE |
(E8) |
ADDRESS |
4 |
EISERMDA |
A(ERM-EDF I/F VECTOR) |
(EC) |
ADDRESS |
4 |
EISBIBP |
|
(F0) |
ADDRESS |
8 |
EISEIPR1 |
EIP'S INPUT R1 For EDF.. |
(F8) |
ADDRESS |
4 |
EISUPERE (0) |
END OF SUPERLINK * |
end of SUPERLINK storage
|
(F8) |
FULLWORD |
4 |
(0) |
(F8) |
CHARACTER |
8 |
EISTITLE |
DFHEIB |