         TITLE    'COMPILER DCB S'
*
* COBIO DATA CONTROL BLOCKS
         PAGE
* DATA CONTROL BLOCK F:W0
F:W0     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W0FLIST
         DATA     0,0,0
         DATA     W0KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W0FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A30'        ::0
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W0KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W1
F:W1     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W1FLIST
         DATA     0,0,0
         DATA     W1KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W1FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A31'        ::1
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W1KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W2
F:W2     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W2FLIST
         DATA     0,0,0
         DATA     W2KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W2FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A32'        ::2
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W2KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W3
F:W3     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX BUF SIZE/
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W3FLIST
         DATA     0,0,0
         DATA     W3KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W3FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A33'        ::3
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W3KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W4
F:W4     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W4FLIST
         DATA     0,0,0
         DATA     W4KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W4FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A34'        ::4
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W4KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W5
F:W5     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W5FLIST
         DATA     0,0,0
         DATA     W5KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W5FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A35'        ::5
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W5KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W6
F:W6     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W6FLIST
         DATA     0,0,0
         DATA     W6KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W6FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A36'        ::6
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W6KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W7
F:W7     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W7FLIST
         DATA     0,0,0
         DATA     W7KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W7FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A37'        ::7
         DATA     X'02000002'       ACCOUNT NUMBER
         DATA     0,0
         DATA     X'07000001'       INSN
         DATA     0
         DATA     X'08010001'       OUTSN                               CDCBS
         DATA     0
W7KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W8
F:W8     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W8FLIST
         DATA     0,0,0
         DATA     W8KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W8FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A38'        ::8
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W8KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE
* DATA CONTROL BLOCK F:W9
F:W9     DSECT    1
         DATA     X'00000001'       FILE
         DATA     X'00100011'       OUTIN FILE
         DATA     X'0A000000'       TRIES/BUFF ADDRESS
         DATA     X'7F000000'       MAX RECORD SIZE
         DATA     0                 LOGICAL ABN ADDRESS
         DATA     X'00000001'       SEQUENTIAL ACCESS
         DATA     W9FLIST
         DATA     0,0,0
         DATA     W9KBUF
         DATA     0
         DATA     X'31000000'       MAX KEY SIZE
         DATA     0,0,0
         DATA     0,0,0
         DATA     0,0,0
W9FLIST  DATA     X'01000101'       FILE NAME
         DATA     X'037A7A39'        ::9
         DATA     X'02010002'       ACCOUNT NUMBER
         DATA     0,0
W9KBUF   DATA     0,0,0,0           KEY BUFFER
         DATA     0,0,0,0
         PAGE                                                           CDCBS
* DATA CONTROL BLOCK M:BO                                               CDCBS
M:BO     DSECT    1                                                     CDCBS
         DATA     X'00000003'       DEVICE                              CDCBS
         DATA     X'00040507'       OUTIN FILE                          CDCBS
         DATA     X'0A000000'       TRIES/BUFF ADDRESS                  CDCBS
         DATA     X'00F00000'       MAX RECORD SIZE                     CDCBS
         DATA     0                 LOGICAL ABN ADDRESS                 CDCBS
         DATA     X'80000001'       SEQUENTIAL ACCESS    AND SAVE
         DATA     BOFLIST                                               CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     BOKBUF                                                CDCBS
         DATA     0                                                     CDCBS
         DATA     X'31000000'       MAX KEY SIZE                        CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     0,0,0                                                 CDCBS
BOFLIST  DATA     X'01000008'       FILE NAME                           CDCBS
         DATA     0,0,0,0,0,0,0,0    ::0                                CDCBS
         DATA     X'02000002'       ACCOUNT NUMBER                      CDCBS
         DATA     0,0                                                   CDCBS
         DATA     X'03000003',0,0,0   PASSWORD                          CDCBS
         DATA     X'07010003',0,0,0   SERIAL NUMBERS                    CDCBS
BOKBUF   DATA     0,0,0,0,0,0,0,0   KEY BUFFER                          CDCBS
         PAGE                                                           CDCBS
* DATA CONTROL BLOCK M:SO                                               CDCBS
M:SO     DSECT    1                                                     CDCBS
         DATA     X'00000003'       DEVICE                              CDCBS
         DATA     X'00040507'       OUTIN FILE                          CDCBS
         DATA     X'0A000000'       TRIES/BUFF ADDRESS                  CDCBS
         DATA     X'00F00000'       MAX RECORD SIZE                     CDCBS
         DATA     0                 LOGICAL ABN ADDRESS                 CDCBS
         DATA     X'00000001'       SEQUENTIAL ACCESS                   CDCBS
         DATA     SOFLIST                                               CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     SOKBUF                                                CDCBS
         DATA     0                                                     CDCBS
         DATA     X'31000000'       MAX KEY SIZE                        CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     0,0,0                                                 CDCBS
         DATA     0,0,0                                                 CDCBS
SOFLIST  DATA     X'01000008'       FILE NAME                           CDCBS
         DATA     0,0,0,0,0,0,0,0    ::0                                CDCBS
         DATA     X'02000002'       ACCOUNT NUMBER                      CDCBS
         DATA     0,0                                                   CDCBS
         DATA     X'03000003',0,0,0   PASSWORD                          CDCBS
         DATA     X'07010003',0,0,0   SERIAL NUMBERS                    CDCBS
SOKBUF   DATA     0,0,0,0,0,0,0,0   KEY BUFFER                          CDCBS
         END
