Sequential Transfer Data Area — SEQ

The SEQ is the data CSECT used by the SEQ dynamic application program (DAP) in the file-to-file copying of sequential data sets.

      DATA CSECT FOR BDTSEQ

      LOCAL DATA SET CONTROL BLOCK HEADER
0     (0)    CHARACTER   4         SEQHDR       CONTROL BLOCK ACRONYM SEQ
4     (4)    CHARACTER   4         SEQREL       VERSION RELEASE ID
8     (8)    ADDRESS     2         SEQLEN       LENGTH OF SEQ CONTROL BLOCK
      LENGTH FIELDS
10    (A)    ADDRESS     2         SEQLENCK     LENGTH OF CHECKPOINT RECORD
12    (C)    ADDRESS     2         SEQDBLEN     LENGTH OF DCB
14    (E)    ADDRESS     2         SEQRSVD1     RESERVED
      I/O BUFFER DEFINITION
16    (10)   ADDRESS     4         SEQBUFAD       I/O BUFFER ADDRESS
20    (14)   ADDRESS     4         SEQBUFSZ       I/O BUFFER SIZE
24    (18)   ADDRESS     4         SEQEOBAD       END OF BLOCK ADDRESS
28    (1C)   ADDRESS     4         SEQNLRAD       ADDR OF NEXT LOGICAL RECORD
32    (20)   ADDRESS     4         SEQLRWRT       LOGICAL RECORDS WRITTEN
36    (24)   BITSTRING   1         SEQRSVU1       RESERVED
      LOCAL DATA SET RECORDING FLAG DEFINITION
39    (27)   BITSTRING   1         SEQRECFM       LOCAL DATA SET RECORDING
                                                     FORMAT

            1...  ....            SEQFECR1          "BIT0" RESERVED
            .1..  ....            SEQFECR2          "BIT1" RESERVED
            ..1.  ....            SEQFMBLK          "BIT2" BLOCKED RECORDS
            ...1  ....            SEQFMVL           "BIT3" VARIABLE LENGTH
                                                    RECORDS
            ....  1...            SEQFMUR           "BIT4" UNDEFINED RECORDS
            ....  .1..            SEQFECR3          "BIT5" RESERVED
            ....  ..1.            SEQFECR4          "BIT6" RESERVED
            ....  ...1            SEQFECR5          "BIT7" RESERVED

40    (28)   ADDRESS     4         SEQRSVD2       RESERVED
      CHECKPOINT DATA
44    (2C)   FIXED       4         SEQCKPTD       CHECKPOINT DATA AREA
44    (2C)   ADDRESS     2         SEQCKLEN       LENGTH OF CHECKPOINT RECORD
46    (2E)   ADDRESS     2         SEQCKNLR       NEXT LOGICAL RECORD
                                                    DISPLACEMENT
48    (30)   ADDRESS     4         SEQCKNOT       BSAM NOTE INFORMATION
52    (34)   ADDRESS     4         SEQCKCLR       CURRENT LOGICAL RECD NUMBER
      CHECKPOINT FLAG DEFINITION
56    (38)   BITSTRING   1         SEQCKFLG       CHECKPOINT FLAGS

            1...  ....            SEQQFCKPT         "BIT0" CHECKPOINT OPTION
                                                    SELECTED
            .1..  ....            SEQFCKIB          "BIT1" CURRENT BLOCK IS
                                                    INCOMPLETE
            ..1.  ....            SEQFCKSO          "BIT2" DEST IS SYSOUT DATA
                                                    SET
            ...1  ....            SEQFCKPD          "BIT3" DESTINATION IS
                                                    MEMBER OF PDS
            ....  1...            SEQFCKDD          "BIT4" DESTINATION IS A
                                                    DUMMY DS
            ....  .1..            SEQFCFR1         "BIT5" RESERVED
            ....  ..1.            SEQFCFR2         "BIT6" RESERVED
            ....  ...1            SEQFCFR3         "BIT7" RESERVED

57    (39)   BITSTRING   1         SEQCKRU2       RESERVED
60    (3C)   ADDRESS     4         SEQCKRD3       RESERVED

            ..1.  11..            SEQCKREC         CHECKPOINT RECORD

64    (40)   FIXED       4         SEQCKTEM       FULLWORD ALIGNMENT
   NEXT VALUE REPRESENTS ACTUAL CHECKPOINT AREA ALLOCATED IN MJD
            ..1.  .1..            SEQCKMAX          "36" MJD DEFAULT LENGTH
                                                    MJDCKDEF
      SUPERSCAN PARAMETER LIST
64    (40)   FIXED       4         SEQSUPC
      DEFINITION OF SUPCFLG1 FIELD
64    (40)   BITSTRING   1         SEQFLG1        FLAGS

            1...  ....            SEQNUMR           "BIT0" PARAMETER MAY
                                                    CONTAIN NUMERICS
            .1..  ....            SEQALPH           "BIT1" PARAMETER MAY
                                                    CONTAIN ALPHABETICS
            ..1.  ....            SEQNATL           "BIT2" PARAMETER MAY
                                                    CONTAIN NATIONAL CHARS
            ...1  ....            SEQHEX            "BIT3" PARAMETER MAY
                                                    CONTAIN HEX CHARACTERS
            ....  1...            SEQDSN            "BIT4" PARAMETER IS TO BE
                                                    INTERPRETED AS DS
            ....  .1..            SEQKEYW           "BIT5" KEYWORD PARAMETER IS
                                                    PERMISSIBLE
            ....  ..1.            SEQSUBL           "BIT6" SUBLIST PARAMETER IS
                                                    PERMISSIBLE
            ....  ...1            SEQRSCN           "BIT7" THIS IS A RE SCAN OF
                                                    PREVIOUS PARM
      DATA RESTRICTIONS EXIST
            1111  1...            SEQRSTR
                                                            "SEQNUMR+SEQALPH+S
                                                    EQNATL+SEQHEX+SEQDSN"
      DEFINITION OF SUPCFLG2 FIELD
65    (41)   BITSTRING   1         SEQFLG2        FLAGS

            1...  ....            SEQBIN            "BIT0" TARGET AREA TYPE
                                                    ATTRIBUTE IS BINARY
            .1..  ....            SEQPACK           "BIT1" TARGET AREA TYPE
                                                    ATTRIBUTE IS 'PACKED
                                                    DECIMAL'
            ..1.  ....            SEQSTDA           "BIT2" SUPRSCAN IS BEING
                                                    INVOKED AS A STAND ALONE
                                                    FUNCTION
            ...1  ....            SEQQUOT           "BIT3" QUOTED STRING IS
                                                    PERMISSIBLE
            ....  1...            SEQKERR           "BIT4" KEYWORD FOUND IN
                                                    ERROR
            ....  .1..            SEQF2R1           "BIT5" RESERVED
            ....  ..1.            SEQF2R2           "BIT6" RESERVED
            ....  ...1            SEQF2R3           "BIT7" RESERVED
      LENGTH DEFINITIONS
66    (42)   ADDRESS     1         SEQMINL        MINIMUM PARAMETER LENGTH
67    (43)   ADDRESS     1         SEQMAXL        MAXIMUM PARAMETER LENGTH
68    (44)   ADDRESS     1         SEQTRGL        LENGTH OF TARGET AREA
      RESERVED
69    (45)   ADDRESS     3         SEQRSV1        RESERVED
      TARGET AREA ADDRESS
72    (48)   ADDRESS     4         SEQTRGA        ADDRESS OF TARGET AREA
      PARAMETER VALUES
76    (4C)   ADDRESS     4         SEQMINV        MINIMUM PARAMETER VALUE
80    (50)   ADDRESS     4         SEQMAXV        MINIMUM PARAMETER VALUE
      LENGTH OF THE KEYWORD AND PARAMETER
84    (54)   ADDRESS     1         SEQKEYL        LENGTH OF KEYWORD
85    (55)   ADDRESS     1         SEQPRML        LENGTH OF PARAMETER
      RESERVED
86    (56)   ADDRESS     2         SEQRSV2        RESERVED
      ADDRESSES OF THE KEYWORD AND PARAMETER
88    (58)   ADDRESS     4         SEQKEYA        ADDRESS OF KEYWORD
92    (5C)   ADDRESS     4         SEQPRMA        ADDRESS OF PARAMETER
      ADDITIONAL INFORMATION
96    (60)   ADDRESS     2         SEQDSNL        NUMBER OF DSN INDEX LEVELS
98    (62)   ADDRESS     2         SEQDSNG        RELATIVE GENERATION NUMBER
      INPUT CONSOLE MESSAGE AREA
                     MAP BDT CONSOLE BUFFER AREAS
      CONSOLE MESSAGE AREA
100   (64)   FIXED       4         CONSMESS       CONSOLE MESSAGE AREA
      SUPERSCAN FLAG
100   (64)   BITSTRING   1         CONSFLGS       FLAG (USED BY SUPRSCAN)
      AUTHORITY LEVEL
101   (65)   BITSTRING   1         CONSAUTH       AUTHORITY LEVEL
102   (66)   CHARACTER   4         CONSXHDR       CONTROL BLOCK ACRONYM
106   (6A)   CHARACTER   4         CONSXREL       VERSION ID
110   (6E)   ADDRESS     2         CONSXLEN       XOID LENGTH
112   (70)   BITSTRING   8         CONSXBSI       XACTION ORIGIN BDT SYS ID
120   (78)   BITSTRING   8         CONSXBSN       XACTION ORIGIN BDT SYS NAME
      TRANSACTION ORIGIN TYPE
128   (80)   BITSTRING   1         CONSXTYP       XACTION ORIGIN TYPE

            ....  ...1            CONSTSO           "1" TSO USER
            ....  ..1.            CONSJES           "2" JES CONSOLE
            ....  ..11            CONSBTCH          "3" BATCH JOB
            ....  .1..            CONSMCS           "4" MCS CONSOLE
            ....  .1.1            CONSLOG           "5" JOB MESSAGE LOG
            ....  .11.            CONSFCT           "6" BDT FCT
            ....  .111            CONSJMC           "7" JES MESSAGE CLASS
            ....  1...            CONSRDEV          "8" BEGIN DEVELOPMENT
                                                    DEFINED XOIDXTYP
            1...  ....            CONSUSER          "128" BEGIN USER DEFINED
                                                    XOIDXTYP
      FLAG 1 DEFINITION
129   (81)   BITSTRING   1         CONSXFL1       XOID FLAG 1

            1...  ....            CONSXMCL          "BIT0" SUPPRESSION OF
                                                    MESSAGE CLASS
            .1..  ....            CONSX1R1          "BIT1" RESERVED
            ..1.  ....            CONSX1R2          "BIT2" RESERVED
            ...1  ....            CONSX1R3          "BIT3" RESERVED
            ....  1...            CONSX1R4          "BIT4" RESERVED
            ....  .1..            CONSX1R5          "BIT5" RESERVED
            ....  ..1.            CONSX1R6          "BIT6" RESERVED
            ....  ...1            CONSX1R7          "BIT7" RESERVED
      MISCELLANEOUS INFORMATION
130   (82)   CHARACTER   8         CONSXDDN       TRANSACTION ORIGIN DDNAME
130   (82)   CHARACTER   8         CONSUSID       TSO USERID
130   (82)   CHARACTER   8         CONSCNDD       JES CONSOLE DDNAME
130   (82)   CHARACTER   8         CONSJCLS       JES MESSAGE CLASS
130   (82)   CHARACTER   8         CONSBJNM       BATCH JOB NAME
130   (82)   ADDRESS     1         CONSMCSI       MCS CONSOLE ID
130   (82)   BITSTRING   2         CONSBJNO       BDT JOB NUMBER
130   (82)   BITSTRING   2         CONSDDRS       DDNAME
      RESERVED FIELDS
138   (8A)   BITSTRING   4         CONSXRD2       RESERVED
142   (8E)   BITSTRING   4         CONSXRD3       RESERVED
146   (92)   BITSTRING   4         CONSXRS1       RESERVED
150   (96)   BITSTRING   4         CONSXRS2       RESERVED
154   (9A)   BITSTRING   4         CONSXRU1       RESERVED
158   (9E)   BITSTRING   4         CONSXRU2       RESERVED

            1...  ..11            CONSMCSA          "CONSMCSI+1,1,C'C'" MCS
                                                    CONSOLE UX28 AUTH
            1.1.  ..1.            CONSXEND          END OF XOID
            .11.  .11.            CONSXOID          XOID EQUATE
            .111  ....            CONSXALL          BSI EQUATE
      MISCELLANEOUS
162   (A2)   BITSTRING   1         CONSIFLG       FLAGS

            1...  ....            CNIFLR1           "BIT0" RESERVED
            .1..  ....            CNIFLR2           "BIT1" RESERVED
            ..1.  ....            CNIFLR3           "BIT2" RESERVED
            ...1  ....            CNMULT            "BIT3" OPERAND SUBLIST
            ....  1...            CNBLEOD           "BIT4" BLANK IS EOD
            ....  .1..            CNIFLR4           "BIT5" RESERVED
            ....  ..1.            CNIFLR5           "BIT6" RESERVED
            ....  ...1            CNCOMMA           "BIT7" DELIMITER WAS COMMA
      CONSOLE MESSAGE AREA INFORMATION
163   (A3)   ADDRESS     1         CONCHRCT       CONSOLE MESSAGE AREA LENGTH
164   (A4)   ADDRESS     1         CONACTN        INPUT VERB ACTION CODE
165   (A5)   ADDRESS     1         CONSCAN        CURRENT SCAN DISPLACEMENT
      RESERVED
166   (A6)   ADDRESS     4         CONSRSD1       RESERVED
170   (AA)   ADDRESS     1         CONSRSD2       RESERVED
171   (AB)   ADDRESS     1         CONSRSS1       RESERVED
172   (AC)   ADDRESS     4         CONSRSS2       RESERVED
      MESSAGE TEXT
            .11.  .1..            CONSPRFX          CONS PREFIX LENGTH

176   (B0)   CHARACTER   1         CONMESSG       TEXT OF MESSAGE

            .11.  .1..            CONSAREA          CONS TOTAL LENGTH
      MISCELLANEOUS DATA
356   (164)  ADDRESS     4         SEQGSDAD       ADDRESS OF THE GSD
      OPERATING REGISTERS
360   (168)  FIXED       4         SEQREGS        OPERATING REGISTERS
360   (168)  ADDRESS     4         SEQR9          SECONDARY BASE REGISTER
364   (16C)  ADDRESS     4         SEQR10         PRIMARY BASE REGISTER
368   (170)  ADDRESS     4         SEQR11         ADDRESS OF DATA CSECT
372   (174)  ADDRESS     4         SEQR12         ADDRESS OF TVT
376   (178)  ADDRESS     4         SEQR13         ADDR OF REGISTER SAVE AREA
      INTERNAL SAVE AREA AND WORK AREA
380   (17C)  ADDRESS     4         SEQSVAR1       INTERNAL REGISTER SAVE AREA
396   (18C)  ADDRESS     4         SEQSVAR2       INTERNAL REGISTER SAVE AREA
404   (194)  BITSTRING   20        SEQSWORK       INTERNAL WORK AREA
      REMOTE DATA SET I/O BUFFER INFORMATION
424   (1A8)  ADDRESS     4         SEQRDSBA       REMOTE DATA SET I/O BUFFER
                                                     ADDRESS
428   (1AC)  ADDRESS     4         SEQRDSBS       REMOTE DATA SET I/O BUFFER
                                                     SIZE
432   (1B0)  ADDRESS     4         SEQDCBXL       DCB EXIT LIST
432   (1B0)  ADDRESS     1         SEQJBLTM       CODE = JFCB, LIST TERMINATOR
433   (1B1)  ADDRESS     3         SEQJFCBA       JFCB BUFFER ADDRESS
436   (1B4)  ADDRESS     2         SEQRTNCD       RETURN CODE
438   (1B6)  BITSTRING   1         SEQPADVL       PADDING VAL TO BE USED WHEN
                                                     LRECL EXPANSION IS
                                                     REQUIRED
      PROCESSING FLAG 1 DEFINITION
439   (1B7)  BITSTRING   1         SEQFLGS1       PROCESSING FLAGS

            1...  ....            SEQF1LSR          "BIT0" SOURCE DATA SET IS
                                                    LOCAL
            .1..  ....            SEQF1LDS          "BIT1" DEST DATA SET IS
                                                    LOCAL
            ..1.  ....            SEQF1CIP          "BIT2" CHECKPOINT IS
                                                    PROCESS
            ...1  ....            SEQF1DXS          "BIT3" DATA TRANSFER
                                                    STARTED
            ....  1...            SEQF1DXC          "BIT4" DATA TRANSFER
                                                    COMPLETE
            ....  .1..            SEQF1CWM          "BIT5" CKPOINT WARNING MSG
                                                    ISSUED
            ....  ..1.            SEQF1PRM          "BIT6" RECEIVER PROCESSING
                                                    USER PARM ON FROM SIDE
            ....  ...1            SEQF1NCL          "BIT7" PREVENT CLOSE OF
                                                    DATASET
            1...  ....            SEQF1SND          "SEQF1LSR" WE ARE THE
                                                    SENDER
            .1..  ....            SEQF1RCV          "SEQF1LDS" WE ARE THE
                                                    RECEIVER
      PROCESSING FLAG 2 DEFINITION
440   (1B8)  BITSTRING   1         SEQFLGS2       PROCESSING FLAGS

            1...  ....            SEQF2PAD          "BIT0" PADDING VALUE
                                                    SPECIFIED
            .1..  ....            SEQMSGA           "BIT1" DISPLAY ALL MESSAGES
            ..1.  ....            SEQMSGS           "BIT2" DISPLAY STATUS
                                                    MESSAGES ONLY
            ...1  ....            SEQF2RS1          "BIT3" RESERVED
            ....  1...            SEQF2RS2          "BIT4" RESERVED
            ....  .1..            SEQF2RS3          "BIT5" RESERVED
            ....  ..1.            SEQF2RS4          "BIT6" RESERVED
            ....  ...1            SEQF2RS5          "BIT7" RESERVED

441   (1B9)  CHARACTER   80        SEQJ2DEL       JES2 'DELETE' CONTROL CARD
      MESSAGES ISSUED BY BDTSEQ
521   (209)  ADDRESS     1         SEQ00001
522   (20A)  CHARACTER   12        SEQ01TXT
534   (216)  CHARACTER   44        SEQ01DSN
578   (242)  CHARACTER   7
585   (249)  CHARACTER   2         SEQ01FX

585   (249)                        SEQ01VX        "SEQ01FX,2,C'C'"
585   (249)                        SEQ01U         "SEQ01FX,2,C'C'"
585   (249)                        SEQ01B         "SEQ01FX+1,1,C'C'"

587   (24B)  CHARACTER   7
594   (252)  CHARACTER   5         SEQ01LRL
599   (257)  CHARACTER   9
608   (260)  CHARACTER   5         SEQ01BSZ

608   (260)                        SEQ01END

613   (265)  ADDRESS     1         SEQ0002
614   (266)  CHARACTER   30        SEQ02TXT

614   (266)                        SEQ02END

644   (284)  ADDRESS     1         SEQ0003
645   (285)  ADDRESS     38        SEQ03TXT

645   (285)                        SEQ03END

683   (2AB)  ADDRESS     1         SEQ0004
684   (2AC)  CHARACTER   8         SEQ04TXT
692   (2B4)  CHARACTER   10        SEQ04RCD       OY00613
702   (2BE)  CHARACTER   17
719   (2CF)  CHARACTER   11        SEQ04XMT
719   (2CF)  CHARACTER   11        SEQ04WRT

719   (2CF)                        SEQ04END

730   (2DA)  CHARACTER   11        SEQXMTTD
741   (2E5)  CHARACTER   11        SEQWRTTN
752   (2F0)  ADDRESS     1         SEQ0005
753   (2F1)  CHARACTER   41        SEQ05TXT

753   (2F1)                        SEQ05END

794   (31A)  ADDRESS     1         SEQ0006
795   (31B)  CHARACTER   26        SEQ06FXD
821   (335)  CHARACTER   1         SEQ06VAR

821   (335)                        SEQ06END

1001  (3E9)  CHARACTER   6         SEQNOPRM
1007  (3EF)  ADDRESS     1         SEQ0007
1008  (3F0)  CHARACTER   53        SEQ07TXT
1053  (41D)  CHARACTER   8         SEQ07TEX
1061  (425)  CHARACTER   6         SEQ07RCD

1061  (425)                        SEQ07END

1067  (42B)  ADDRESS     1         SEQ0008
1068  (42C)  CHARACTER   22        SEQ08TXT
1090  (442)  CHARACTER   10        SEQ08INC
1090  (442)  CHARACTER   10        SEQ08CMP
1090  (442)  CHARACTER   10        SEQ08ABT

1090  (442)                        SEQ08END

1100  (44C)  CHARACTER   10        SEQINCOM
1110  (456)  CHARACTER   10        SEQCOMPL
1120  (460)  CHARACTER   10        SEQABORT
1130  (46A)  ADDRESS     1         SEQ0009
1131  (46B)  CHARACTER   45        SEQ09TXT
1176  (498)  CHARACTER   26        SEQ09TEX

1176  (498)                        SEQ09END

1202  (4B2)  ADDRESS     1         SEQ0011
1203  (4B3)  CHARACTER   1         SEQ11TXT
1248  (4E0)  CHARACTER   41        SEQ11TEX

1248  (4E0)                        SEQ11END

1289  (509)  ADDRESS     1         SEQ0012
1290  (50A)  CHARACTER   44        SEQ12TXT

1290  (50A)                        SEQ12END

1334  (536)  ADDRESS     1         SEQ0013
1335  (537)  CHARACTER   47        SEQ13TXT
1382  (566)  CHARACTER   2         SEQ13FL
1384  (568)  CHARACTER   5
1389  (56D)  CHARACTER   2         SEQ13CC
1391  (56F)  CHARACTER   8
1399  (577)  CHARACTER   4         SEQ13SN
1403  (57B)  CHARACTER   7
1410  (582)  CHARACTER   4         SEQ13ST

1410  (582)                        SEQ13END

1414  (586)  ADDRESS     1         SEQ0014
1415  (587)  CHARACTER   29        SEQ14TXT
1444  (5A4)  CHARACTER   8         SEQ14TY
1444  (5A4)  CHARACTER   8
1444  (5A4)  CHARACTER   8
1444  (5A4)  CHARACTER   8

1444  (5A4)  CHARACTER   8         SEQ14END
1452  (5AC)  ADDRESS     1         SEQ0015
1453  (5AD)  CHARACTER   35        SEQ15TXT

1453  (5AD)                        SEQ15END

1488  (5D0)  ADDRESS     1         SEQ0016
1489  (5D1)  CHARACTER   48        SEQ16TXT
1537  (601)  CHARACTER   5
1542  (606)  CHARACTER   2         SEQ16ER
1544  (608)  CHARACTER   6
1550  (60E)  CHARACTER   2         SEQ16RS

1550  (60E)                        SEQ16END

1552  (610)  ADDRESS     1         SEQ0017
1553  (611)  CHARACTER   40        SEQ17TXT

1553  (611)                        SEQ17END

1593  (639)  ADDRESS     1         SEQ0018
1594  (63A)  CHARACTER   8         SEQ18TXT
1602  (642)  CHARACTER   7         SEQ18TYP
1609  (649)  CHARACTER   27
1636  (664)  CHARACTER   13
1649  (671)  CHARACTER   2         SEQ1815

1649  (671)                        SEQ18END

1651  (673)  CHARACTER   7         SEQ18JFR
1658  (67A)  CHARACTER   7         SEQ18OBT
1665  (681)  CHARACTER   7         SEQ18DEV
1672  (688)  CHARACTER   7         SEQ18DCK
1679  (68F)  ADDRESS     1         SEQ0019
1680  (690)  CHARACTER   52        SEQ19TXT

1680  (690)                        SEQ19END

1732  (6C4)  ADDRESS     1         SEQ0020
1733  (6C5)  CHARACTER   48        SEQ20TXT

1733  (6C5)                        SEQ20END

1784  (6F8)  ADDRESS     4         SEQRSVU4       RESERVED
1788  (6FC)  ADDRESS     4         SEQRSVD5       RESERVED
      LOCAL DATA SET DCB
      DCB DDNAME=SEQLDDCB,DSORG=PS,MACRF=(RC,WC),EXLST=SEQDCBXL
      DATA CONTROL BLOCK
1792  (700)  FIXED       4         SEQLCDCB     ORIGIN ON WORD BOUNDARY
                                                   DIRECT ACCESS DEVICE
                                                   INTERFACE
1792  (700)  BITSTRING   16                     FDAD,DVTBL
1808  (710)  ADDRESS     4                      KEYLE,DEVT,TRBAL COMMON ACCESS
                                                   METHOD INTERFACE
1812  (714)  ADDRESS     1                      BUFNO
1813  (715)  ADDRESS     3                      BUFCB
1816  (718)  ADDRESS     2                      BUFL
1818  (71A)  BITSTRING   2                      DSORG
1820  (71C)  ADDRESS     4                      IOBAD FOUNDATION EXTENSION
1824  (720)  BITSTRING   1                      BFTEK,BFLN,HIARCHY
1825  (721)  ADDRESS     3                      EODAD
1828  (724)  BITSTRING   1                      RECFM
1829  (725)  ADDRESS     3                      EXLST FOUNDATION BLOCK
1832  (728)  CHARACTER   8                      DDNAME
1840  (730)  BITSTRING   1                      OFLGS
1841  (731)  BITSTRING   1                      IFLG
1842  (732)  BITSTRING   2                      MACR BSAM BPAM QSAM INTERFACE
1844  (734)  BITSTRING   1                      RER1
1845  (735)  ADDRESS     3                      CHECK, GERR, PERR
1848  (738)  ADDRESS     4                      SYNAD
1852  (73C)  FIXED       2                      CIND1, CIND2
1854  (73E)  ADDRESS     2                      BLKSIZE
1856  (740)  FIXED       4                      WCPO, WCPL, OFFSR, OFFSW
1860  (744)  ADDRESS     4                      IOBA
1864  (748)  ADDRESS     1                      NCP
1865  (749)  ADDRESS     3                      EOBR, EOBAD BSAM BPAM
                                                    INTERFACE
1868  (74C)  ADDRESS     4                      EOBW
1872  (750)  FIXED       2                      DIRCT
1874  (752)  ADDRESS     2                      LRECL
1876  (754)  ADDRESS     4                      CNTRL, NOTE, POINT
1876  (754)  ADDRESS     4          SEQLDDCB     LOCAL DATA SET DCB
          LIST-FORM MACROS
          ESTAE 0,MF=L ESTAE LIST
      MACDATE 80247
1880  (758)  FIXED       4
1880  (758)  ADDRESS     1         SEQESTAE     FLAGS FOR TCB,PURGE,ASYNCH
1881  (759)  ADDRESS     3                     STAE EXIT ROUTINE ADDR.
1884  (75C)  ADDRESS     4                     PARM. LIST ADDR. NOT SPECIFIED
1888  (760)  ADDRESS     4                     TCB NOT SPECIFIED
1892  (764)  ADDRESS     1                     FLAGS
1893  (765)  ADDRESS     3                     RESERVED
1896  (768)  ADDRESS     4                     TOKEN VALUE AREA
      RDJFCB 0,MF=L READ JFCB LIST
1900  (76C)  FIXED       4         SEQRDJFC     ALIGN LIST TO FULLWORD
1900  (76C)  ADDRESS     1                     OPTION BYTE
1901  (76D)  ADDRESS     3                     DCB ADDRESS
      OPEN O,MF=L OPEN LIST
1904  (770)  FIXED       4         SEQOPENL     ALIGN LIST TO FULLWORD
1904  (770)  ADDRESS     1                     OPTION BYTE
1905  (771)  ADDRESS     3                     DCB ADDRESS
      READ READDECB,SF,MF=L BSAM READ LIST
1908  (774)  FIXED       4         SEQREADL
1908  (774)  FIXED       4         READDECB     EVENT CONTROL BLOCK
1912  (778)  BITSTRING   1                     TYPE FIELD
1913  (779)  BITSTRING   1                     TYPE FIELD
1914  (77A)  ADDRESS     2                     LENGTH
1916  (77C)  ADDRESS     4                     DCB ADDRESS
1920  (780)  ADDRESS     4                     AREA ADDRESS
1924  (784)  ADDRESS     4                     RECORD POINTER WORD
      WRITE WRITDECB,SF,MF=L BSAM WRITE LIST
1928  (788)  FIXED       4         SEQWRITL
1928  (788)  FIXED       4         WRITDECB     EVENT CONTROL BLOCK
1932  (78C)  BITSTRING   1                     TYPE FIELD
1933  (78D)  BITSTRING   1                     TYPE FIELD
1934  (78E)  ADDRESS     2                     LENGTH
1936  (790)  ADDRESS     4                     DCB ADDRESS
1940  (794)  ADDRESS     4                     AREA ADDRESS
1944  (798)  ADDRESS     4                     RECORD POINTER WORD
      CLOSE 0,MF=L CLOSE LIST
1948  (79C)  FIXED       4         SEQCLOSL     ALIGN LIST TO FULLWORD
1948  (79C)  ADDRESS     1                     OPTION BYTE
1949  (79D)  ADDRESS     3                     DCB ADDRESS
      JFCB BUFFER AREA
1952  (7A0)  FIXED       4         SEQJFCBF     JFCB BUFFER AREA
      DEVTYPE RESPONSE AREA
2128  (850)  FIXED       4         SEQDEVTA     DEVTYPE RESPONSE AREA
2128  (850)  CHARACTER   1         SEQDMODL     DEVICE MODEL CODE
2129  (851)  CHARACTER   1         SEQDOPTS     OPTIONAL FEATURES
2130  (852)  CHARACTER   1         SEQDVCLS     DEVICE CLASS
2131  (853)  CHARACTER   1         SEQUNTYP     UNIT TYPE
2132  (854)  FIXED       4         SEQDEVTB     MAXIMUM DEVICE/SYSTEM BLKSIZE
2132  (854)                        SEQDEVTO     "SEQDMODL,4,C'F'" DEVICE TYPE
                                                   WORD ZERO
      DSCB WORK AREA
2136  (858)  BITSTRING   44        SEQF1DSN     DS NAME FOR OBTAIN
2180  (884)  BITSTRING   6         SEQF1VOL     VOL SER FOR OBTAIN
2186  (88A)  BITSTRING   140       SEQF1WRK     WORK AREA FOR OBTAIN
2328  (918)  FIXED       4
2328  (918)  BITSTRING   16        SEQOBLST     OBTAIN PARM LIST
2328  (918)  ADDRESS     1         SEQOPCDE     OBTAIN OP CODE X'C1'
2329  (919)  ADDRESS     3                     FLAG BYTES
2332  (91C)  ADDRESS     4         SEQF1DSP     DS NAME PTR FOR OBT
2336  (920)  ADDRESS     4         SEQF1VP      VOL PTR FOR OBTAIN
2340  (924)  ADDRESS     4         SEQWRKPT     OBTAIN WRK AREA PTR
2344  (928)  BITSTRING   1         SEQEMPFL     DATA SET EMPTY FLAG
            1...  ....            SEQEMPTY        "BIT0" EMPTY DATA SET

2344  (928)                        SEQEND       END OF CONTROL BLOCK
                           CROSS REFERENCE
                            HEX     HEX
NAME                        OFFSET  VALUE  LEVEL
CNBLEOD                     A2      8      2
CNCOMMA                     A2      1      2
CNIFLR1                     A2      80     2
CNIFLR2                     A2      40     2
CNIFLR3                     A2      20     2
CNIFLR4                     A2      4      2
CNIFLR5                     A2      2      2
CNMULT                      A2      10     2
CONACTN                     A4             2
CONCHRCT                    A3             2
CONMESSG                    B0             2
CONSAREA                    B0      64     2
CONSAUTH                    65             2
CONSBJNM                    82             2
CONSBJNO                    82             2
CONSBTCH                    80      3      2
CONSCAN                     A5             2
CONSCNDD                    82             2
CONSDDRS                    82      0      2
CONSFCT                     80      6      2
CONSFLGS                    64             2
CONSIFLG                    A2             2
CONSJCLS                    82             2
CONSJES                     80      2      2
CONSJMC                     80      7      2
CONSLOG                     80      5      2
CONSMCS                     80      4      2
CONSMCSA                    9E      83     2
CONSMCSI                    82             2
CONSMESS                    64             2
CONSPRFX                    AC      64     2
CONSRDEV                    80      8      2
CONSRSD1                    A6             2
CONSRSD2                    AA             2
CONSRSS1                    AB             2
CONSRSS2                    AC             2
CONSTSO                     80      1      2
CONSUSER                    80      80     2
CONSUSID                    82             2
CONSXALL                    9E      70     2
CONSXBSI                    70      0      2
CONSXBSN                    78      0      2
CONSXDDN                    82             2
CONSXEND                    9E      A2     2
CONSXFL1                    81      0      2
CONSXHDR                    66      E7D6   2
CONSXLEN                    6E      3C     2
CONSXMCL                    81      80     2
CONSXOID                    9E      66     2
CONSXRD2                    8A      0      2
CONSXRD3                    8E      0      2
CONSXREL                    6A      F1F0   2
CONSXRS1                    92      0      2
CONSXRS2                    96      0      2
CONSXRU1                    9A      0      2
CONSXRU2                    9E      0      2
CONSXTYP                    80      0      2
CONSX1R1                    81      40     2
CONSX1R2                    81      20     2
CONSX1R3                    81      10     2
CONSX1R4                    81      8      2
CONSX1R5                    81      4      2
CONSX1R6                    81      2      2
CONSX1R7                    81      1      2
READDECB                    73C     0      2
SEQABORT                    45C     C1C2   2
SEQALPH                     40      40     2
SEQBIN                      41      80     2
SEQBUFAD                    10             2
SEQBUFSZ                    14             2
SEQCKCLR                    34             2
SEQCKFLG                    38      0      2
SEQCKLEN                    2C             2
SEQCKMAX                    40      24     2
SEQCKNLR                    2E             2
SEQCKNOT                    30             2
SEQCKPTD                    2C             2
SEQCKRD3                    3C             2
SEQCKREC                    3C      2C     2
SEQCKRU2                    39      0      2
SEQCKTEM                    40             2
SEQCLOSL                    764            2
SEQCOMPL                    452     C3D6   2
SEQDBLEN                    C       58     2
SEQDCBXL                    1B0            2
SEQDEVTA                    818            2
SEQDEVTB                    81C            2
SEQDEVT0                    81C     818    2
SEQDMODL                    818            2
SEQDOPTS                    819            2
SEQDSN                      40      8      2
SEQDSNG                     62             2
SEQDSNL                     60             2
SEQDVCLS                    81A            2
SEQEMPFL                    93C            2
SEQEMPTY                    93C     80     2
SEQEND                      93C     93D    2
SEQEOBAD                    18             2
SEQESTAE                    720            2
SEQFCFR1                    38      4      2
SEQFCFR2                    38      2      2
SEQFCFR3                    38      1      2
SEQFCKDD                    38      8      2
SEQFCKIB                    38      40     2
SEQFCKPD                    38      10     2
SEQFCKPT                    38      80     2
SEQFCKSO                    38      20     2
SEQFECR1                    27      80     2
SEQFECR2                    27      40     2
SEQFECR3                    27      4      2
SEQFECR4                    27      2      2
SEQFECR5                    27      1      2
SEQFLGS1                    1B7     0      2
SEQFLGS2                    1B8     0      2
SEQFLG1                     40      0      2
SEQFLG2                     41      0      2
SEQFMBLK                    27      20     2
SEQFMUR                     27      8      2
SEQFMVL                     27      10     2
SEQF1CIP                    1B7     20     2
SEQF1CWM                    1B7     4      2
SEQF1DSN                    86E     0      2
SEQF1DSP                    930            2
SEQF1DXC                    1B7     8      2
SEQF1DXS                    1B7     10     2
SEQF1LDS                    1B7     40     2
SEQF1LSR                    1B7     80     2
SEQF1RCV                    1B7     40     2
SEQF1RS1                    1B7     2      2
SEQF1RS2                    1B7     1      2
SEQF1SND                    1B7     80     2
SEQF1VOL                    89A     0      2
SEQF1VP                     934            2
SEQF1WRK                    8A0     0      2
SEQF2PAD                    1B8     80     2
SEQF2RS1                    1B8     10     2
SEQF2RS2                    1B8     8      2
SEQF2RS3                    1B8     4      2
SEQF2RS4                    1B8     2      2
SEQF2RS5                    1B8     1      2
SEQF2R1                     41      4      2
SEQF2R2                     41      2      2
SEQF2R3                     41      1      2
SEQGSDAD                    164            2
SEQHDR                      0       E2C5   2
SEQHEX                      40      10     2
SEQINCOM                    448     C9D5   2
SEQJBLTM                    1B0            2
SEQJFCBA                    1B1            1
SEQJFCBF                    768     4040   2
SEQJ2DEL                    1B9     615C   2
SEQKERR                     41      8      2
SEQKEYA                     58             2
SEQKEYL                     54             2
SEQKEYW                     40      4      2
SEQLCDCB                    6C8            2
SEQLDDCB                    71C     6C8    2
SEQLEN                      8       93D    2
SEQLENCK                    A       14     2
SEQLRWRT                    20             2
SEQMAXL                     43             2
SEQMAXV                     50             2
SEQMINL                     42             2
SEQMINV                     4C             2
SEQMSGA                     1B8     40     2
SEQMSGS                     1B8     20     2
SEQNATL                     40      20     2
SEQNLRAD                    1C             2
SEQNOPRM                    3E5     60D5   2
SEQNUMR                     40      80     2
SEQOBLST                    92C     0      2
SEQOPCDE                    92C            2
SEQOPENL                    738            2
SEQPACK                     41      40     2
SEQPADVL                    1B6     0      2
SEQPRMA                     5C             2
SEQPRML                     55             2
SEQQUOT                     41      10     2
SEQRDJFC                    734            2
SEQRDSBA                    1A8            2
SEQRDSBS                    1AC            2
SEQREADL                    73C            2
SEQRECFM                    27      0      2
SEQREGS                     168            2
SEQREL                      4       F1F0   2
SEQRSCN                     40      1      2
SEQRSTR                     40      F8     2
SEQRSVD1                    E              2
SEQRSVD2                    28             2
SEQRSVD5                    6C4            2
SEQRSVU1                    24      0      2
SEQRSVU4                    6C0            2
SEQRSV1                     45             2
SEQRSV2                     56             2
SEQRTNCD                    1B4            2
SEQR10                      16C            2
SEQR11                      170            2
SEQR12                      174            2
SEQR13                      178            2
SEQR9                       168            2
SEQSAV01                    820            2
SEQSTDA                     41      20     2
SEQSUBL                     40      2      2
SEQSUPC                     40             2
SEQSVAR1                    17C            2
SEQSVAR2                    18C            2
SEQSWORK                    194     0      2
SEQTRGA                     48             2
SEQTRGL                     44             2
SEQUNTYP                    81B            2
SEQVOLSR                    868     4040   2
SEQWRITL                    750            2
SEQWRKPT                    938            2
SEQWRTTN                    2E1     E6D9   2
SEQXMTTD                    2D6     E3D9   2
SEQ0001                     209            2
SEQ0002                     265            2
SEQ0003                     284            2
SEQ0004                     2AB            2
SEQ0005                     2EC            2
SEQ0006                     316            2
SEQ0007                     3EB            2
SEQ0008                     427            2
SEQ0009                     466            2
SEQ0011                     4AE            2
SEQ0012                     505            2
SEQ0013                     532            2
SEQ0014                     582            2
SEQ0015                     5A8            2
SEQ0016                     5CC            2
SEQ0017                     60C            2
SEQ0018                     635            2
SEQ0019                     68B            2
SEQ01B                      249     24A    2
SEQ01BSZ                    260     4040   2
SEQ01DSN                    216     4040   2
SEQ01END                    260     265    2
SEQ01FX                     249     C6E7   2
SEQ01LRL                    252     4040   2
SEQ01TXT                    20A     C2C4   2
SEQ01U                      249     249    2
SEQ01VX                     249     249    2
SEQ02END                    266     284    2
SEQ02TXT                    266     C2C4   2
SEQ03END                    285     2AB    2
SEQ03TXT                    285     C2C4   2
SEQ04END                    2CB     2D6    2
SEQ04RCD                    2B4     4040   2
SEQ04TXT                    2AC     C2C4   2
SEQ04WRT                    2CB     E6D9   2
SEQ04XMT                    2CB            2
SEQ05END                    2ED     316    2
SEQ05TXT                    2ED     C2C4   2
SEQ06END                    331     3E5    2
SEQ06FXD                    317     C2C4   2
SEQ06VAR                    331     4040   2
SEQ07END                    421     427    2
SEQ07RCD                    421     4040   2
SEQ07TEX                    419     40D9   2
SEQ07TXT                    3EC     C2C4   2
SEQ08ABT                    43E     C1C2   2
SEQ08CMP                    43E            2
SEQ08END                    43E     448    2
SEQ08INC                    43E            2
SEQ08TXT                    428     C2C4   2
SEQ09END                    494     4AE    2
SEQ09TEX                    494     40E2   2
SEQ09TXT                    467     C2C4   2
SEQ11END                    4DC     505    2
SEQ11TEX                    4DC     40C9   2
SEQ11TXT                    4AF     C2C4   2
SEQ12END                    506     532    2
SEQ12TXT                    506     C2C4   2
SEQ13CC                     569     4040   2
SEQ13END                    57E     582    2
SEQ13FL                     562     4040   2
SEQ13SN                     573     4040   2
SEQ13ST                     57E     4040   2
SEQ13TXT                    533     C2C4   2
SEQ14END                    5A0     5A8    2
SEQ14TXT                    583     C2C4   2
SEQ14TY                     5A0            2
SEQ15END                    5A9     5CC    2
SEQ15TXT                    5A9     C2C4   2
SEQ16END                    60A     60C    2
SEQ16ER                     602     4040   2
SEQ16RS                     60A     4040   2
SEQ16TXT                    5CD     C2C4   2
SEQ17END                    60D     635    2
SEQ17TXT                    60D     C2C4   2
SEQ18DCK                    684     C4C5   2
SEQ18DEV                    67D     C4C5   2
SEQ18END                    66D     66F    2
SEQ18JFR                    66F     D9C4   2
SEQ18OBT                    676     D6C2   2
SEQ18TXT                    636     C2C4   2
SEQ18TYP                    63E     4040   2
SEQ1815                     66D            2
SEQ19END                    68C     6C0    2
SEQ19TXT                    68C     C2C4   2
WRITDECB                    750     0      2