* 01/20/76 -- 12:00
* MODULE NAME: FDCBS
* NUMBER: 57
* PURPOSE: CONTAINS ALL TEXT DATA CONTROL BLOCKS
*
*
         SYSTEM   BPM
*
F:TXT    DSECT    1
F:HDR    DSECT    1
F:CPY    DSECT    1
F:LO     DSECT    1
F:MT     DSECT    1
F:VP     DSECT    1
F:NA     DSECT    1
F:LL     DSECT    1
*
*
         DEF      57P
*
         CSECT    1
57P      EQU      %
         DATA     X'57'             MODULE NUMBER
         DATA     X'012076'         DATE
         DATA     X'1200'           TIME
*
*
         TITLE    '** FDCBS(57) **'
*
*
F:TXT    M:DCB    (FILE),(KEYED),(DIRECT),(PASS),(TRIES,10),;
                  (KEYM,3),(SAVE),(EXPIRE,NEVER)
*
*
         PAGE
*
*
F:HDR    M:DCB    (FILE),(KEYED),(DIRECT),(PASS),(TRIES,10),;
                  (KEYM,3),(SAVE),(EXPIRE,NEVER)
*
*
*
*
         PAGE
*
*
F:CPY    M:DCB    (FILE),(KEYED),(DIRECT),(PASS),(TRIES,10),;
                  (KEYM,3),(SAVE),(EXPIRE,NEVER)
*
*
*
*
         PAGE
*
*
F:LO     M:DCB    (DEVICE,'LP'),(OUT),(L),(VFC)
         PAGE
*
*
F:MT     M:DCB    (DEVICE,'9T'),(LABEL),(INSN),(OUTSN),;
                  (SAVE),(TRIES,10),(KEYM,3),(KEYED)
*
*
         PAGE
*
*
F:VP     M:DCB    (FILE),(CONSEC),(PASS),(OUT),(SAVE),(EXPIRE,NEVER)
*
*
         PAGE
*
*
F:NA     M:DCB    (FILE),(KEYED),(DIRECT),(PASS),(TRIES,10),;
                  (KEYM,3),(SAVE),(EXPIRE,NEVER)
*
*
         PAGE
*
*
F:LL     M:DCB    (FILE),(PASS),(TRIES,10),;
                  (SAVE),(EXPIRE,NEVER),(OUT)
*
*
         END
