NEPCA - Node error program commarea

    MACRO NAME = DFHNEPCA
    DESCRIPTIVE NAME = CICS TS DFHZNEP - Node Error Program
                       Commarea Mapper and Descriptor
         Licensed Materials - Property of IBM
          Restricted Materials of IBM 
         5655-Y04
         (C) Copyright IBM Corp. 1989, 2002 
    FUNCTION =
          This macro provides a DSECT description and a storage
          mapper for the NEP COMMAREA
    NOTES
      DEPENDENCIES = S/370
      RESTRICTIONS =
            See OPERANDS sections
      MODULE TYPE = Executable macro
   --------------------------------------------------------------------
      . $01 Reserved for APAR fix DELETED BY APAR
      . $02 Reserved for APAR fix DELETED BY APAR
      . $03 Reserved for APAR fix DELETED BY APAR
Table 1.
Offset Hex Type Len Name (Dim) Description
(0) STRUCTURE 0 DFHNEPCA 
         Invocation descriptor. - COMMAREA for the NEP user
                                  replaceable module
         These fields are READ ONLY
(0) BITSTRING 158 NEPCABEG (0)
(0) BITSTRING 4 NEPCAHDR (0) Invocation descriptor
(0) BITSTRING 1 NEPCAFNC Local descriptor
(1) BITSTRING 2 NEPCACMP Global descriptor
(3) BITSTRING 1   Reserved 
         Identity of terminal and the error code associated with it
         These fields are READ ONLY
(4) BITSTRING 1 TWAEC Error Code
(5) CHARACTER 3   Reserved
(8) CHARACTER 4 TWANID Terminal identity
(C) CHARACTER 8 TWANETN Netname 
         Action bytes. Initially set to the default actions.
         User can change these default actions.
(14) BITSTRING 4 TWAROPTL (0) Reserved
(14) BITSTRING 3 TWAOPTL (0) User option bytes
(14) BITSTRING 1 TWAROPT1 (0) User option byte 1
(14) BITSTRING 1 TWAOPT1 User option byte 1
(14) 1... ....   TWAOAF "X'80'" Print action flags
(14) .1.. ....   TWAORPL "X'40'" Print VTAM RPL
(14) ..1. ....   TWAOTCTE "X'20'" Print TCTTE
(14) ...1 ....   TWAOTIOA "X'10'" Print TIOA
(14) .... 1...   TWAOBIND "X'08'" Print BIND area
(14) .... .1..   TWAODNTA "X'04'" System dump if no task attached
(14) .... ..1.   TWAONQN "X'02'" Print NQNAME
(14) .... ...1   TWAOTNA "X'01'" Print TNADDR
(15) BITSTRING 1 TWAROPT2 (0) User option byte 2
(15) BITSTRING 1 TWAOPT2 User option byte 2
(15) 1... ....   TWAOAS "X'80'" Abort any send for this terminal
(15) .1.. ....   TWAOAR "X'40'" Abort any receive for " "
(15) ..1. ....   TWAOAT "X'20'" Abend any task attached to TCTTE
(15) ...1 ....   TWAOCT "X'10'" Cancel any task att to TCTTE
(15) .... 1...   TWAOGMM "X'08'" Good Morning message to be sent
(15) .... .1..   TWAOPBP "X'04'" Purge any BMS pages for this TCTTE
(15) .... ..1.   TWAOASM "X'02'" SIMLOGON required
(16) BITSTRING 1 TWAROPT3 (0) User option byte 3
(16) BITSTRING 1 TWAOPT3 User option byte 3
(16) 1... ....   TWAOINT "X'80'" Set INTLOG now allowed
(16) .1.. ....   TWAONINT "X'40'" Set no internal gen logons
(16) ...1 ....   TWAONCN "X'10'" Normal CLSDST (no reset allowed)
(16) .... 1...   TWAOSCN "X'08'" Normal CLSDST (reset allowed)
(16) .... .1..   TWAONEGR "X'04'" Send negative response
(16) .... ..1.   TWAOOS "X'02'" Keep node out of service
(16) .... ...1   TWAOCN "X'01'" CLSDST node
(17) BITSTRING 1   Reserved 
         Any VTAM sense and RPL codes
         These fields are READ ONLY
(18) BITSTRING 12 TWAVTAM (0) VTAM information
(18) HALFWORD 2 TWARPLCD VTAM RPL feedback codes
(1A) HALFWORD 2   Reserved
(1C) FULLWORD 4 TWASENSS (0) Sense codes to be sent
(1C) BITSTRING 1 TWASS1 System sense byte No 1
(1D) BITSTRING 1 TWASS2 System sense byte No 2
(1E) BITSTRING 1 TWAUS1 User sense byte No 1
(1F) BITSTRING 1 TWAUS2 User sense byte No 2
(20) FULLWORD 4 TWASENSR (0) Sense codes received
(20) BITSTRING 1 TWASR1 System sense byte No 1
(21) BITSTRING 1 TWASR2 System sense byte No 2
(22) BITSTRING 1 TWAUR1 User sense byte No 1
(23) BITSTRING 1 TWAUR2 User sense byte No 2 
         Other useful information for NEP
   With the exception of TWANLD,TWANLDL & TWANPFW these fields are
                      READ ONLY
(24) BITSTRING 22 TWAADINF (0)
(24) FULLWORD 4   Reserved
(28) BITSTRING 1 TWACTLB General use control byte
(28) ..1. ....   TWACSC "X'20'" Clear sense code indicator
(28) ...1 ....   TWAPSC "X'10'" Print VTAM sense codes
(28) .... 1...   TWATIOA "X'08'" Print portion of I/O area
(28) .... ..1.   TWAVTRTC "X'02'" VTAM return code available
(29) BITSTRING 1 TWANEPR NEP return code byte
(29) 1... ....   TWANPFW "X'80'" Retry write with FORCE=YES
(2A) BITSTRING 1 TWAREASN VTAM reason code
(2B) BITSTRING 1 TWASTAT VTAM status code
(2A) BITSTRING 1 TWATRSN CICS Terminal Control terminal error reason code
(2C) HALFWORD 2 TWAXRSN Exception response seq number recd
(2C) ..1. 111.   TWAR "*"
(2E) BITSTRING 1 TWAPFLG CLSDST Pass flag
(2E) 1... ....   TWAPIP "X'80'" CLSDST Pass in progress
(2F) BITSTRING 1 TWANEPC NEP Class Flag
(30) BITSTRING 1 TWAEISAB Stand alone begin bracket indicator
(30) .... .1..   TWAESAB "X'04'" Stand alone begin bracket
(31) BITSTRING 3   Reserved
(34) ADDRESS 4 TWANLD NEP data pointers
(38) HALFWORD 2 TWANLDL Length of NEP data 
         Additional system parameters
   With the exception of TWAPNETN, TWAPNTID & TWAUPRRC these fields
                   are READ ONLY
(3C) FULLWORD 4 (0)
(3C) BITSTRING 68 TWASYSPM (0)
(3C) ADDRESS 4 TWATCTA Address of TCTTE being processed
(40) ADDRESS 4 TWARPL Address of VTAM RPL
(44) ADDRESS 4 TWATIOAA Address of data portion of TIOA
(48) HALFWORD 2 TWATIOAL Length of data portion of TIOA
(4A) HALFWORD 2 TWACOMML Length of commarea data for TCTTE
(4C) CHARACTER 4 TWACOMMA Address of commarea data for TCTTE
(50) ADDRESS 4 TWATECIA Address of TCTTE USER AREA
(54) HALFWORD 2 TWATECIL Length of TCTTE USER AREA
(56) CHARACTER 8 TWAPPNTN primary 3270 printer netname
(5E) CHARACTER 4 TWAPPTID primary 3270 printer termid
(62) BITSTRING 1 TWAPPELG primary printer eligible indicator
(62) .... ...1   TWAPPELY "X'01'" primary printer is eligible flag
(63) CHARACTER 8 TWASPNTN secondary 3270 printer netname
(6B) CHARACTER 4 TWASPTID secondary 3270 printer termid
(6F) BITSTRING 1 TWASPELG secondary printer eligible indicator
(6F) .... ...1   TWASPELY "X'01'" secondary printer is eligible flag
(70) CHARACTER 8 TWAPNETN selected 3270 printer netname
(78) CHARACTER 4 TWAPNTID selected 3270 printer termid
(7C) BITSTRING 1 TWAUPRRC Unavailable Printer rtn return code
(7C) .... ....   TWAUPRNP "X'00'" No printer selected
(7C) .... ...1   TWAUPRPS "X'01'" printer selected
(7C) 1111 1111   TWAUPRDD "X'FF'" data disposal complete
(7C) 1111 111.   TWAUPRPE "X'FE'" Error on Put request
(7D) BITSTRING 1 TWAERRF1 Error flag byte 1
(7D) 1... ....   TWALXS "X'80'" Logon crossed simlogon
(7E) BITSTRING 2   reserved 
         XRF recovery notification data
         User can change these default actions
(80) BITSTRING 1 TWAXRNOT Recovery Notification Options
(80) 1... ....   TWAXRNON "X'80'" Recov Notification = None
(80) .1.. ....   TWAXRMSG "X'40'" Recov Notification = Message
(80) ..1. ....   TWAXRTRN "X'20'" Recov Notification = Transact.
(81) BITSTRING 3   Reserved
(84) CHARACTER 8 TWAXMSTN Recovery Mapset Name
(8C) CHARACTER 8 TWAXMAPN Recovery Map Name
(94) CHARACTER 4 TWAXTRAN Recovery Transaction ID 
         Additional system parameters
(98) ADDRESS 4 TWACINIT CINIT RU Address
(9C) BITSTRING 2 TWACINIL CINIT RU Length
(9C) 1..1 111.   NEPCALEN "*-NEPCABEG" Length of this DSECT