$BUFFER mapping

Table 1. Structure BFPDSECT
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BFPDSECT START OF BUFFER PREFIX
0 (0) CHARACTER 4  BFPID BUFFER INDENTIFIER
4 (4) SIGNED 4  BFPBAT ADDRESS OF AUXILIARY BUFFER
4 (4) X'4' 0  BFPSWEL "BFPBAT,,C'A'" Address of SWEL (TP buffers in process of signon only)
8 (8) ADDRESS 4  BUFCHAIN BUFFER CHAIN FIELD
12 (C) BITSTRING 1  BUFTYPE BUFFER TYPE
      .... ....  BUFLOCAL "B'00000000'" LOCAL BUFFER 
         The BUFFIX and BUFMULT EQUs are the same as
         $GTB1FIX and $GTB1MUL EQUs in $PARMLST
      1... ....  BUFFIX "B'10000000'" Page-fix request
      .1.. ....  BUFMULT "B'01000000'" Multiple buffer request
      ..1. ....  BUFIOB "B'00100000'" IOB in front of the buffer
      ...1 ....  BUFRPL "B'00010000'" RPL IN FRONT OF BUFFER
      .... 1...  BUFDECB "B'00001000'" DECB IN FRONT OF BUFFER
      .... .111  BUFBPMT "B'00000111'" Buffer type (see below)
      .... ...1  BPMTBSC "B'00000001'" BSC buffer type
      .... ..1.  BPMTCB "B'00000010'" CB buffer type
      .... ..11  BPMTHASP "B'00000011'" HASP buffer type
      .... .1..  BPMTPAGE "B'00000100'" PAGE buffer type
      .... .1.1  BPMTPP "B'00000101'" Print/Punch buffer type
      .... .11.  BPMTVTAM "B'00000110'" VTAM buffer type
      .... .111  BPMTHAM "B'00000111'" HAM HDB buffer
      1111 1111  BPMTUSCB "B'11111111'" User environment CB buffer
12 (C) X'21' 0  BUFBSC "BUFLOCAL+BUFIOB+BPMTBSC"
12 (C) X'22' 0  BUFCB "BUFLOCAL+BUFIOB+BPMTCB"
12 (C) X'23' 0  BUFHASP "BUFLOCAL+BUFIOB+BPMTHASP"
12 (C) X'16' 0  BUFVTAM "BUFRPL+BPMTVTAM"
12 (C) X'24' 0  BUFPAGE "BUFLOCAL+BUFIOB+BPMTPAGE"
12 (C) X'C' 0  BUFSPXFR "BUFLOCAL+BUFDECB+BPMTPAGE"
12 (C) X'25' 0  BUFPP "BUFLOCAL+BUFIOB+BPMTPP"
13 (D) CHARACTER 1  BUFECBCC I/O COMPLETION CODE
      .... ...1  BUFCCFCB "X'01'" HASPIMAG - BAD FCB
14 (E) BITSTRING 1  BUFFLAG1 Buffer flag byte
      1... ....  BFPTHMGR "B'10000000'" BUFFER BELONGS TO PATH MGR 
         WARNING - The bit below has a different use
                   depending on the Environment.
      .1.. ....  BUF1WIN "B'01000000'" User ENV - Write in progress flag ( only used by USER ENV I/O )
      .1.. ....  BUF1EXVR "B'01000000'" Main Task ENV - On REDO issue EXCPVR instead of EXCP ( only used by MAIN TASK I/O ).
      ..1. ....  BUF1SINT "B'00100000'" Simulated I/O error
      ...1 ....  BUF1PERM "B'00010000'" Permanent I/O error
      .... 1...  BUF1CHEN "B'00001000'" Channel end appendage processed buffer
      .... .1..  BUF1DASD "B'00000100'" I/O to DASD device
      .... ..1.  BUF1REDO "B'00000010'" Redo I/O ( only used by MAIN TASK I/O ).
      .... ...1  BUF1MIGO "B'00000001'" During spool migration, override mapped volume consideration ( only used by MAIN TASK I/O ).
15 (F) BITSTRING 1  BUFMIGTC Migration transition count ( only used by MAIN TASK I/O ).
16 (10) ADDRESS 4  BFPDCT ADDRESS OF DEVICE CONTROL TABLE
20 (14) ADDRESS 4  BFPEWF PCE WITH EWF TO POST OR EXIT ADDRESS
20 (14) X'18' 0  BFPLEN "*-BFPDSECT" LENGTH OF BUFFER PREFIX
24 (18) BITSTRING 1  BUFIOBST Define IOB work area 
         Remapping of fields inside a standard IOB
24 (18) X'2C' 0  TPBMXREC "IOBINCAM,1,C'C'" Max RJE output record count
24 (18) X'2D' 0  IOBECBSV "IOBINCAM+1,1" I/O COMPLETION SAVE AREA
24 (18) X'30' 0  TPBLCCC "IOBXTENT,1,C'C'" Last rmt output command op.
24 (18) X'30' 0  TPBLCCAD "IOBXTENT,4,C'A'" Addr of last remote CC
24 (18) X'30' 0  IOBXTENT "IOBM,1,C'C'" DEB extent 
         Note that last 4 bytes of IOBSEEK overlap TPBFDATA,
         which is not used in a buffer for DASD I/O.
60 (3C) CHARACTER 1  TPBRECNT(0) CURRENT REMOTE OUTPUT RECORD COUNT
60 (3C) SIGNED 4  TPBFDATA REMOTE DATA POINTER
64 (40) CHARACTER 1  LCBMCB REMOTE MODE BYTE
64 (40) X'40' 0  PPBFLAG1 "LCBMCB" IOB BUFF WHERE LAST PCI
65 (41) CHARACTER 1  BUFCHOFF(0) OFFSET OF 1ST BUFFER IN TRACKCELL
65 (41) CHARACTER 1  LCBACK REMOTE NEXT ACKNOWLEDGEMENT
66 (42) SIGNED 2  BUFCHNCT(0) COUNT OF BUFFERS IN CHAIN
66 (42) SIGNED 2  LCBRCB REMOTE RESPONSE CONTROL BLOCK
68 (44) SIGNED 4  BUFCHECB(0) $EXCP ECB
68 (44) SIGNED 4  BUFCHEQ Channel end queue chain
72 (48) DBL WORD 8  IOBCCW1 CHANNEL COMMAND WORD 1
80 (50) DBL WORD 8  IOBCCW2 CHANNEL COMMAND WORD 2
88 (58) DBL WORD 8  IOBCCW3 CHANNEL COMMAND WORD 3
96 (60) DBL WORD 8  IOBCCW4 CHANNEL COMMAND WORD 4 
         PP BUFFER SYNCHRONIZATION INFORMATION
72 (48) SIGNED 4  PPBPCIE ADDRESS OF ACTIVE PCIE
76 (4C) SIGNED 4  PPBCCWNX ADDRESS OF NEXT CCW AREA
80 (50) SIGNED 4  PPBLVCCN LAST-VALID CCW IN NEXT AREA
84 (54) BITSTRING 6  PPBCMQTR Current punch
90 (5A) CHARACTER 2  PPBCRCB restart fields
92 (5C) CHARACTER 1  PPBCBOFF (keep together)
93 (5D) BITSTRING 6  PPBNMQTR Next punch
99 (63) CHARACTER 2  PPBNRCB restart fields
101 (65) CHARACTER 1  PPBNBOFF (keep together)
102 (66) CHARACTER 2  PPBDISPL OFFSET OF 2ND IOB BUFFER
60 (3C) SIGNED 4  PPBLVCCC LAST VALID CCW IN CURRENT AREA 
         Define memory-only fields for control block I/O.
         These utility fields will be accessed using
         definitions in the control blocks using the fields
         (for example the IOT). The access will be via
         the use of EQU. For example IOTIOT (a memory
         chain pointer for the IOT) could be defined as:
         IOTIOT EQU BUFMEMW1-BFPDSECT+IOT
         The advantage of defining the fields at this point
         in the buffer is that this part of the buffer is
         never written to SPOOL and thus there is no
         exposure to residual data being available when the
         buffer is read from SPOOL later. This area is
         zeroed in the $CBIO support routines just before
         a control block is read.
56 (38) DBL WORD 8  BUFMEMD1 Memory-only double word
64 (40) ADDRESS 4  BUFMEMW1 First memory-only word
68 (44) ADDRESS 4  BUFMEMW2 Second memory-only word
72 (48) ADDRESS 4  BUFMEMW3 Third memory-only word
76 (4C) ADDRESS 4  BUFMEMW4 Fourth memory-only word 
         Flag byte BUFMEMF1 is currently defined to use only
         for control block I/O (eg. IOT.) For general use
         (eg. HDB buffers), flag byte BUFMEMF4 should be
         used with neccessary bit definitions defined in
         corresponding DSECT.
80 (50) BITSTRING 1  BUFMEMF1 First memory-only flag
80 (50) X'50' 0  BUFMFLG1 "BUFMEMF1" Memory only flag
      1... ....  BUFM1CKP "B'10000000'" Control block needs to be written to SPOOL
      .1.. ....  BUFM1CK2 "B'01000000'" Secondary CKPT flag (only set for IOTs)
81 (51) BITSTRING 1  BUFMEMF2 Second memory-only flag
82 (52) BITSTRING 1  BUFMEMF3 Third memory-only flag
83 (53) BITSTRING 1  BUFMEMF4 Fourth memory-only flag. For general use, see specific control block for bit definitions.
84 (54) ADDRESS 4  BUFMEMW5 Fifth memory-only word
88 (58) ADDRESS 4  BUFMEMW6 Sixth memory-only word
92 (5C) ADDRESS 4  BUFMEMW7 Seventh memory-only word
96 (60) ADDRESS 4  BUFSJIOB SJIOB address ($CBIO in USER environment)
100 (64) ADDRESS 4  BUFWRTBK Buffer backward chain pointer during CB chain write in user environment
100 (64) X'38' 0  BUFMEM "BUFMEMD1,*-BUFMEMD1,C'X'" Name of composite area 
         An assembly error on the following statement
         implies that there has been too much "redefinition"
         of the buffer prefix area. Ensure the redefinition
         does not exceed 6 double words.
104 (68) ADDRESS 2   (0) See above 
         Start of data area in SPOOL buffers
104 (68) DBL WORD 8  BUFSTART(0) START OF BUFFER WORK SPACE 
      The following sub-section, generated by the SPID
      macro, must reside immediately after the I/O control
      data in every spool buffer.
      The following fields are defined:
      Eyecatcher - 4 bytes
      Job name - 8 bytes
      Job number - 4 bytes
      Job key - 4 bytes
      Dataset key - 4 bytes (or reserved if not applicable)
104 (68) CHARACTER 4  HDBID Eyecatcher
108 (6C) CHARACTER 8  HDBJNAME Job name
116 (74) SIGNED 4  HDBJBNUM Job number
120 (78) BITSTRING 8  HDBKEY(0) Record verification key
120 (78) SIGNED 4  HDBJBKEY Job key
124 (7C) SIGNED 4  HDBDSKEY Dataset key
124 (7C) X'18' 0  HDBSPLNG "*-HDBID"
128 (80) SIGNED 4  HDBNXTRK HASP DATA BLOCK CHAIN TRACK
132 (84) SIGNED 4 Reserved
132 (84) X'88' 0  HDBSTART "*" HASP DATA BLOCK START 
         BSC TP buffer fields
104 (68) DBL WORD 8  IOBCCW5 CHANNEL COMMAND WORD 5
112 (70) DBL WORD 8  IOBCCW6 CHANNEL COMMAND WORD 6
120 (78) DBL WORD 8  IOBCCW7 CHANNEL COMMAND WORD 7
128 (80) DBL WORD 8  IOBCCW8 CHANNEL COMMAND WORD 8
128 (80) X'70' 0  BUFIOBSZ "*-BUFIOBST" IOB LENGTH
136 (88) SIGNED 4  TPBUFST(0) START OF REMOTE BUFFER WORK SPACE
136 (88) X'F78' 0  $MAXTPBS "(4096+7-(TPBUFST-BFPDSECT))/8*8" Max bisynch buffer size
136 (88) X'7F00' 0  $SNABFMX "(32768-256)" Max SNA buffer size 
         SPOOL OFFLOAD BUFFER FORMAT. THE FIELD SPBSTART MUST
         ALWAYS BE X'36' BYTES INTO THE BUFFER TO ENSURE A
         CONSISTENT AMOUNT OF DATA IS BEING READ OR WRITTEN.
24 (18) SIGNED 4  SPBCHAN2 SECONDARY BUFFER CHAIN FIELD
28 (1C) SIGNED 4  SPBFDATA POINTER TO NEXT RECORD
32 (20) SIGNED 2  SPBRECNT SPOOL TRANSFER BUFFER REC CNT
34 (22) BITSTRING 1  SPBFLAG1 SPOOL OFFLOAD BUFFER FLAGS
54 (36) BITSTRING 1  SPBSTART(0) START OF DATA SECTION OF BUFFER
Table 2. Structure SPBRECD
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 SPBRECD , START OF LOGICAL RECORD
0 (0) BITSTRING 1  SPBRCB RECORD RCB
1 (1) BITSTRING 1  SPBSRCB RECORD SRCB
2 (2) BITSTRING 1  SPBTYPE RECORD TYPE
3 (3) BITSTRING 2  SPBDLEN RECORD LENGTH FOR DATA RECORD
5 (5) BITSTRING 1  SPBRDATA(0) START OF DATA PORTION OF RECORD
5 (5) X'0' 0  SPBHDR "SPBRCB,*-SPBRCB" DISPL AND LENGTH OF RECORD HDR
5 (5) X'3' 0  SPBEOFID "SPBDLEN" EOF TYPE FOR EOF RECORD 
         SPBTYPE DEFINITIONS
5 (5) X'1' 0  SPBTYPD "1" TYPE IS DATA RECORD
5 (5) X'2' 0  SPBTYPEF "2" TYPE IS EOF RECORD
5 (5) X'3' 0  SPBTYPEB "3" TYPE IS END OF BUFFER RECORD 
         SPBEOFID DEFINITIONS
5 (5) X'1' 0  SPBEOFOK "1" NORMAL EOF REACHED
5 (5) X'2' 0  SPBEOFAB "2" ABNORMAL EOF REACHED 
         SPBFLAG1 DEFINITIONS
      1... ....  SPBSYNAD "B'10000000'" PERM I/O ERROR HAS OCCURED
      .1.. ....  SPBEODAD "B'01000000'" END OF DATA HAS OCCURED
      ..1. ....  SPBSKIP "B'00100000'" BUFFER IS TO BE SKIPPED
Table 3. Structure BFD
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BFD Start of HAM buffer prefix
0 (0) CHARACTER 4  BFDID Buffer identifier
4 (4) SIGNED 4  BFDBAT Address of auxiliary buffer
8 (8) ADDRESS 4  BFDCHAIN Buffer chain field
12 (C) BITSTRING 1  BFDTYPE Buffer type (see BUFTYPE)
13 (D) BITSTRING 1  BFDMIGT Migration transition count captured from DAS when I/O is queued
14 (E) SIGNED 2  BFDLEN Length remaining in buffer
16 (10) DBL WORD 8   (0) Alignment for BFDCCWS
16 (10) BITSTRING 56  BFDCCWS CCWs for write processing
16 (10) CHARACTER 8  BFDFSRBA First seg spanned RBA addr
24 (18) SIGNED 4  BFDSPNRG(4) Suspended GET R2-R5
40 (28) SIGNED 4  BFDSPNR9 R9 and
44 (2C) SIGNED 4  BFDSPNRC R12 save area
48 (30) ADDRESS 4  BFDSCDR SPOOL data record in UBF (indexed DS GET)
52 (34) BITSTRING 7  BFDSCDWK SCDR work area (part of BUFMEMD1)
59 (3B) BITSTRING 1  BFDCCWRK Carriage control work area
60 (3C) BITSTRING 1  BFDFLAG3 More flags: (also part of BUFMEMD1)
      1... ....  BFD3RDYR "B'10000000'" record with result of sym substitution is in a substitution buffer in SDBYSUBF
      .1.. ....  BFD1ULOC "B'01000000'" Use BFDLOC in UBUF in GET (/ ROUTE XEQ case)
64 (40) SIGNED 8  BFDCRECN Current record number (also BUFMEMW1/BUFMEMW2)
72 (48) ADDRESS 4  BFDSDB In HAM, addr of owning SDB
72 (48) X'48' 0  BFDPCE "BFDSDB,4,C'A'" In HAM, addr of owning PCE
76 (4C) BITSTRING 1  BFDECBCC(0) I/O completion code
76 (4C) SIGNED 4  BFDECB ECB on which to wait (also BUFMEMW4)
80 (50) BITSTRING 1  BFDFLAG1 Flag byte 1 (also BUFMEMF1)
      1... ....  BFD1EOB "B'10000000'" END-OF-BUFFER indicator
      .1.. ....  BFD1PUAC "B'01000000'" PUT update active
      ..1. ....  BFD1MQTR "B'00100000'" BFDTRK contains an MQTR
      ...1 ....  BFD1ENDR "B'00010000'" ENDREQ created buffer
      .... 1...  BFD1RSKP "B'00001000'" Records skipped due to I/O error on GET 
         BFDFLAG1 flags, for internal reader only
      .... 1...  BFD1IEOF "B'00001000'" PUT request for EOF
      .... .1..  BFD1IDEL "B'00000100'" PUT req for DEL or PURGE
      .... ..1.  BFD1IERQ "B'00000010'" ENDREQ request
      .... ...1  BFD1ICLS "B'00000001'" CLOSE request
81 (51) BITSTRING 1  BFDFLAG2 Flag byte 2 (also IOTFLAG5, BUFMEMF2)
      1... ....  BFD2CSDB "B'10000000'" Buffer queue for HAM PUT
      .1.. ....  BFD2CSFR "B'01000000'" HAM PUT should free bfr
      ..1. ....  BFD2RPBF "B'00100000'" Try again to fill PBF
      ...1 ....  BFD2IOE "B'00010000'" I/O error encountered
      .... 1...  BFD2PCE "B'00001000'" PCE owns I/O
      .... .1..  BFD2SRBF "B'00000100'" SRB failed to obtain bfr
      .... ..1.  BFD2MGSK "B'00000010'" Skip migration processing
      .... ...1  BFD2SOVR "B'00000001'" Source override - use source DAS for I/O 
         BFDTRK/BFDTRKQ use BUFMEMF3/BUFMEMF4/BUFMEMW5
82 (52) BITSTRING 4  BFDTRK(0) Track address of buffer
82 (52) BITSTRING 6  BFDTRKQ MQTR address of buffer 
         BFDRBA uses BUFMEMW6/BUFMEMW7
88 (58) DBL WORD 8   (0) Alignment for BFDRBA
88 (58) CHARACTER 8  BFDRBA Relative block address
96 (60) ADDRESS 4  BFDTCB TCB address for FREEMAIN
100 (64) ADDRESS 4  BFDLOC Current location in buffer
104 (68) DBL WORD 8  BFDSTART(0) Start of data in buffer 
         Fields only used for substitution buffer
         (TYPE=SUBST).
104 (68) SIGNED 4  BFDYSLEN Allocated buffer size
108 (6C) CHARACTER 20  BFDYSRCN Left adjusted printable record number (logging)
128 (80) SIGNED 4  BFDYSRNL Length of rec number
132 (84) CHARACTER 12  BFDYSTRN Printable truncate position (used for logging)
144 (90) BITSTRING 1  BFDYSPRM(0) Substitution service parameter list
144 (90) BITSTRING 1   (0) End of SUBST fields
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) ADDRESS 2   (0)  
144 (90) X'1000' 0  BFDSIZE "4096" Length of data set buffer
144 (90) X'798' 0  $MINBFSZ "(2048+7-(BUFSTART-BFPDSECT))/8*8" Min HASP buffer size
144 (90) X'F98' 0  $MAXBFSZ "(4096+7-(BUFSTART-BFPDSECT))/8*8" Max HASP buffer size
Table 4. Structure SCDREC
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 SCDREC
0 (0) ADDRESS 1  SCDLEN Length of record
1 (1) BITSTRING 6  SCDSTCKE STCKE of PUT
1 (1) X'7' 0  SCDTSLEN "*-SCDREC" Length of PUT timestamp
Table 5. Cross Reference for $BUFFER
Name Offset Hex Tag
$MAXBFSZ 90 F98
$MAXTPBS 88 F78
$MINBFSZ 90 798
$SNABFMX 88 7F00
BFD 0
BFDBAT 4
BFDCCWRK 3B
BFDCCWS 10
BFDCHAIN 8
BFDCRECN 40
BFDECB 4C
BFDECBCC 4C
BFDFLAG1 50
BFDFLAG2 51
BFDFLAG3 3C
BFDFSRBA 10
BFDID 0
BFDLEN E
BFDLOC 64
BFDMIGT D
BFDPCE 48 48
BFDRBA 58
BFDSCDR 30
BFDSCDWK 34
BFDSDB 48
BFDSIZE 90 1000
BFDSPNRC 2C
BFDSPNRG 18
BFDSPNR9 28
BFDSTART 68
BFDTCB 60
BFDTRK 52
BFDTRKQ 52
BFDTYPE C
BFDYSLEN 68
BFDYSPRM 90
BFDYSRCN 6C
BFDYSRNL 80
BFDYSTRN 84
BFD1ENDR 50 10
BFD1EOB 50 80
BFD1ICLS 50 1
BFD1IDEL 50 4
BFD1IEOF 50 8
BFD1IERQ 50 2
BFD1MQTR 50 20
BFD1PUAC 50 40
BFD1RSKP 50 8
BFD1ULOC 3C 40
BFD2CSDB 51 80
BFD2CSFR 51 40
BFD2IOE 51 10
BFD2MGSK 51 2
BFD2PCE 51 8
BFD2RPBF 51 20
BFD2SOVR 51 1
BFD2SRBF 51 4
BFD3RDYR 3C 80
BFPBAT 4
BFPDCT 10
BFPDSECT 0
BFPEWF 14
BFPID 0
BFPLEN 14 18
BFPSWEL 4 4
BFPTHMGR E 80
BPMTBSC C 1
BPMTCB C 2
BPMTHAM C 7
BPMTHASP C 3
BPMTPAGE C 4
BPMTPP C 5
BPMTUSCB C FF
BPMTVTAM C 6
BUFBPMT C 7
BUFBSC C 21
BUFCB C 22
BUFCCFCB D 1
BUFCHAIN 8
BUFCHECB 44
BUFCHEQ 44
BUFCHNCT 42
BUFCHOFF 41
BUFDECB C 8
BUFECBCC D
BUFFIX C 80
BUFFLAG1 E
BUFHASP C 23
BUFIOB C 20
BUFIOBST 18
BUFIOBSZ 80 70
BUFLOCAL C 0
BUFMEM 64 38
BUFMEMD1 38
BUFMEMF1 50
BUFMEMF2 51
BUFMEMF3 52
BUFMEMF4 53
BUFMEMW1 40
BUFMEMW2 44
BUFMEMW3 48
BUFMEMW4 4C
BUFMEMW5 54
BUFMEMW6 58
BUFMEMW7 5C
BUFMFLG1 50 50
BUFMIGTC F
BUFMULT C 40
BUFM1CKP 50 80
BUFM1CK2 50 40
BUFPAGE C 24
BUFPP C 25
BUFRPL C 10
BUFSJIOB 60
BUFSPXFR C C
BUFSTART 68
BUFTYPE C
BUFVTAM C 16
BUFWRTBK 64
BUF1CHEN E 8
BUF1DASD E 4
BUF1EXVR E 40
BUF1MIGO E 1
BUF1PERM E 10
BUF1REDO E 2
BUF1SINT E 20
BUF1WIN E 40
HDBDSKEY 7C
HDBID 68
HDBJBKEY 78
HDBJBNUM 74
HDBJNAME 6C
HDBKEY 78
HDBNXTRK 80
HDBSPLNG 7C 18
HDBSTART 84 88
IOBCCW1 48
IOBCCW2 50
IOBCCW3 58
IOBCCW4 60
IOBCCW5 68
IOBCCW6 70
IOBCCW7 78
IOBCCW8 80
IOBECBSV 18 2D
IOBXTENT 18 30
LCBACK 41
LCBMCB 40
LCBRCB 42
PPBCBOFF 5C
PPBCCWNX 4C
PPBCMQTR 54
PPBCRCB 5A
PPBDISPL 66
PPBFLAG1 40 40
PPBLVCCC 3C
PPBLVCCN 50
PPBNBOFF 65
PPBNMQTR 5D
PPBNRCB 63
PPBPCIE 48
SCDLEN 0
SCDREC 0
SCDSTCKE 1
SCDTSLEN 1 7
SPBCHAN2 18
SPBDLEN 3
SPBEODAD 5 40
SPBEOFAB 5 2
SPBEOFID 5 3
SPBEOFOK 5 1
SPBFDATA 1C
SPBFLAG1 22
SPBHDR 5 0
SPBRCB 0
SPBRDATA 5
SPBRECD 0
SPBRECNT 20
SPBSKIP 5 20
SPBSRCB 1
SPBSTART 36
SPBSYNAD 5 80
SPBTYPD 5 1
SPBTYPE 2
SPBTYPEB 5 3
SPBTYPEF 5 2
TPBFDATA 3C
TPBLCCAD 18 30
TPBLCCC 18 30
TPBMXREC 18 2C
TPBRECNT 3C
TPBUFST 88