EIS - EXEC interface structure

Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHEISDS 
    CONTROL BLOCK NAME = DFHEISDS
    NAME OF MATCHING PL/AS CONTROL BLOCK = DFHEISPS
    DESCRIPTIVE NAME = CICS TS EXEC Interface Structure.
           Licensed Materials - Property of IBM
            Restricted Materials of IBM 
           5655-Y04
           (C) Copyright IBM Corp. 1980, 2014 
    FUNCTION =
    This copybook describes the system part of the EXEC
    Interface storage (EIS). It does not contain a DSECT
    statement and it is normally invoked by DFHEIS. See
    this macro for reasons and details.
   ---------------------------------------------------------------------
       Dummy change for PQ58342
Table 2.
Offset Hex Type Len Name (Dim) Description
(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.
(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. 
  PROGRAM LIFETIME STORAGE
  The following storage is used to hold information which has the
  same lifetime as the current program
(68) HALFWORD 2 EISCSETL data length (no trunc) for read set
(6A) CHARACTER 1 EISENILT ENTRY NO. IN LABEL TABLE
(6B) CHARACTER 1   Reserved
(6C) ADDRESS 4 EISRET SUBROUTINE RETURN ADDRESS
(70) 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
(74) CHARACTER 4 EISSYSNM name of sys. holding resrce.
(78) ADDRESS 4 EISTEMP TEMPORARY R14 SLOT
(7C) ADDRESS 4 EISTEMP2 TEMPORARY R14 SLOT
(80) ADDRESS 4 EISTEMP3 TEMPORARY R14 SLOT
(84) ADDRESS 4 EISTEMP4 TEMPORARY R14 SLOT
(88) BITSTRING 1 EISEDFRB EDF REQUEST/REPLY BYTE 
               REQUEST BITS
(88) 1... ....   EISEDFRQ "X'80'" EXEC REQUEST
(88) .1.. ....   EISEDFRS "X'40'" EXEC RESPONSE
(88) ..1. ....   EISEDFIN "X'20'" INITIALIZATION
(88) ...1 ....   EISEDFPT "X'10'" PROGRAM TERMINATION
(88) .... 1...   EISEDFTT "X'08'" TASK TERMINATION
(88) .... .1..   EISEDFAB "X'04'" ABEND
(88) .... ..1.   EISEDFAC "X'02'" ABNORMAL CONDITION
(88) .... ...1   EISEDFRE "X'01'" PLIST-REFORMAT REQUIRED 
               REPLY BITS
(88) 1... ....   EISEDFFA "X'80'" FORCED ABEND
(88) .1.. ....   EISEDFUA "X'40'" USER ABEND
(88) ..1. ....   EISEDFUW "X'20'" USER ABEND WITH DUMP
(88) ...1 ....   EISEDFUD "X'10'" USER DUMP
(88) .... 1...   EISEDFCA "X'08'" CATASTROPHIC ABEND
(89) 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.
(90) DBL WORD 8 (0)
(90) ADDRESS 4 EISTACKA (0)
(90) ADDRESS 4 EIS_PIPI_CICSKEY_RSA Address of PIPI Cics key rsa
(94) ADDRESS 4 EIS_PIPI_USERKEY_STG Address of PIPI User key stg incl rsa
(98) ADDRESS 4 EISRUSTG RUN UNIT LOCAL STORAGE ADDRESS
(9C) ADDRESS 4 EISERMSA EDF/DLI ADDR EDF DISPLAY DATA
(A0) ADDRESS 4 EIS_PLB_ADDRESS Addr(Program Language Block)
(A4) ADDRESS 4 EIS_APLI_SAVEAREA Addr(DFHAPLI's registers on giving up control)
(A8) ADDRESS 4 EISASTG A(WS) FOR COBOL ONLY
(AC) CHARACTER 2 EIS_PROGRAM_MODE TCB MODE for application program
(AE) BITSTRING 1 EISAPM APPLICATION PROGRAM MASK
(AF) BITSTRING 1 EISFLAG8
(AF) 1... ....   EISSRPAB "X'80'" TCAAAM SET IN EDFX-SRP ISSUED ABND
(AF) .1.. ....   EISEDFRM "X'40'" INDICATE EDF INVOKED BY ERM
(AF) ...1 ....   EISEDFRN "X'10'" INDICATE NEW TYPE EDF SCREEN REQUIRED
(AF) .... 1...   EISCEDFY "X'08'" CEDF allowed for current program
(AF) .... .1..   EISTKING "X'04'" Entering new exec capable GLUE/URM
(AF) .... ..1.   EISDPL "X'02'" Program restricted to DPL API
(AF) .... ...1   EISYNCOK "X'01'" Syncpointing allowed in DPL server prog.
(B0) BITSTRING 1 EISFLAG9
(B0) 1... ....   EISSYEIB "X'80'" SYSEIB ON LAST EXEC CICS COMMAND
(B0) .1.. ....   EISRTDST "X'40'" Indicate a RouTeD STart request
(B0) ..1. ....   EISERM31 "X'20'" DFHERM INVOKED IN AMODE 31
(B0) ...1 ....   EISERM64 "X'10'" DFHERM INVOKED IN AMODE 64
(B1) BITSTRING 1   Reserved
(B2) HALFWORD 2 EISEDFLV EDF stack level for current prog
(B4) 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.
(B8) ADDRESS 4 EISINITA (0)
(B8) BITSTRING 1 EISFLAG1 ASSORTED FLAGS
(B8) 1... ....   EISRORX "X'80'" 1 FOR PL/I RETURN OR XCTL
(B8) .1.. ....   EISSPEX "X'40'" eligible for XEISPIN, OUT
(B8) ..1. ....   EISJVMXC "X'20'" Executing in JVM
(B8) .... 1...   EISPGOTO "X'08'" LE/370 Perform Goto flag
(B8) .... ..1.   EISEDFFC "X'02'" 1 FOR EDF WAS ON FOR FIRST CALL OF A SET OF CALLS
(B8) .... ...1   EISEXEC "X'01'" 1 DURING EXEC COMMAND
(B9) CHARACTER 2 EIS_FASTPATH (0) Fastpath Condition Flags
(B9) BITSTRING 1 EISFLAG6 MASTERS FOR EISFLAG2
(BA) 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.
(BB) BITSTRING 1 EISLANG LANGUAGE FLAGS
(BB) ...1 111.   EISLANGS "X'1E'" ALL LANGUAGE BITS
(BB) ...1 ....   EISRPG "X'10'" FOR RPG PROGRAM
(BB) .... 1...   EISASM "X'08'" FOR ASM PROGRAM
(BB) .... .1..   EISCOBOL "X'04'" FOR COBOL PROGRAM
(BB) .... .11.   EISSPCOB "X'06'" FOR SPECIAL PROGRAM
(BB) .... ..1.   EISPLI "X'02'" FOR PL/I PROGRAM
(BB) .... 1.1.   EISPLS "X'0A'" FOR PL/AS PROGRAM
(BB) .... 11..   EISVSPLI "X'0C'" FOR V. SPECIAL PROGRAM
(BB) .... 111.   EISC "X'0E'" FOR C PROGRAM
(BB) ...1 ..1.   EISLEASM "X'12'" FOR LE MAIN Assembler
(BC) BITSTRING 1 EISFLAGA flag byte
(BC) 1... ....   EISDAT31 "X'80'" program will accept data above 16M
(BC) .1.. ....   EISDAT64 "X'40'" program will accept data above 2G
(BC) .... .1..   EIS_XCTL "X'04'" User has issued XCTL
(BC) .... ..1.   EIS_PROGRAM_ABENDED "X'02'" DFHAPLI's Recovery Routine has detected that the program has abended
(BC) .... ...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
(BC) ..1. ....   EIS_CICS_DATAKEY "X'20'" Current program was defined with CICS data location key.
(BC) ...1 ....   EIS_CICS_EXECKEY "X'10'" Current program was defined with
(BC) .... 1...   EISRUNIN "X'08'" CEE Run-Unit in control CICS execution key.
(BD) BITSTRING 1 EIS_CURRENT_EXECKEY Instantaneous execution key when current command started
(BD) 1..1 ....   EIS_USERKEY "X'90'" Constant for testing EIS_CURRENT_EXECKEY
(BE) BITSTRING 1 EIS_ABEND_EXECKEY Instantaneous execution key when the last HANDLE ABEND LABEL was executed at this level.
(BF) BITSTRING 1 EIS_APPL_BOUNDARY_ FLAGS Application Boundary Flags
(BF) 1... ....   EIS_RECOVERY_SWITCH "X'80'" Recovery environment switch needed at application boundary
(BF) .1.. ....   EIS_ABTERM_ALLOWED_ SWITCH "X'40'" Abterm_allowed switch needed at application boundary
(BF) ..1. ....   EIS_CRITICAL_CODE_ SWITCH "X'20'" Critical code protection switch needed at application boundary
(BF) ...1 ....   EIS_RESET_RUNAWAY_ SWITCH "X'10'" Reset runaway state
(BF) .... 1...   EISECOFF "X'08'" Event capture off for curr pgm
(BF) .... .1..   EISECTST "X'04'" Event captr tested for curr pgm
(C0) ADDRESS 4 EIS24STG A(run-unit work-area <16 meg)
(C4) ADDRESS 4   Reserved
(C4) ...1 ....   EISINITL "*-EISINITA" Length cleared 
  This is the end of the area initialised to X'00' on LINK or XCTL.
(C4) ..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...
(C8) ADDRESS 8 EISUPERB (0) START OF SUPERLINK
(C8) ADDRESS 4 EISICIOAL IC Retrieve length for Bridge
(CC) ADDRESS 4 EISBAIOA A(BAIOA)
(D0) ADDRESS 4 EISTDIA A(TDIA)
(D4) ADDRESS 4 EISTSIOA A(TSIOA)
(D8) ADDRESS 4 EISICIOA IC TSIOA
(DC) ADDRESS 4 EISDITAB DI TABLE
(E0) ADDRESS 4 EISERMDA A(ERM-EDF I/F VECTOR)
(E4) ADDRESS 4 EISBIBP
(E8) ADDRESS 8 EISEIPR1 EIP'S INPUT R1 For EDF..
(F0) ADDRESS 4 EISUPERE (0) END OF SUPERLINK * 
  end of SUPERLINK storage
(F0) FULLWORD 4 (0)
(F0) CHARACTER 8 EISTITLE DFHEIB