         SYSTEM BPM
         TITLE    '  **  BACKUP/FILL/PURGE DCBS  **  '
         REF      BCK:ERR,BCK:ABN,BREC:ERR,BREC:ABN
         REF      USR:ERR,USR:ABN,TAP:ERR,TAP:ABN
         REF      BSR1,ERBCK,USRERR,USRABN
         REF      PURABN,PURERR
         REF      FPAR,BLABL,SEL:COM:BUF,PURFPAR
*                 BACKUP COMMAND FILE-READ COMMANDS
F:BACKUP DSECT    1
F:BACKUP M:DCB    (FILE,'A:BACKUP'),(KEYED),(DIRECT),(INOUT),;
                  (SAVE),(READ,'NONE'),(WRITE,'NONE'),;
                  (KEYM,8),(ERR,BCK:ERR),(ABN,BCK:ABN)
         ORG      F:BACKUP+32       ADD DESC VLP
         DATA     X'06000202',C'NONE',C'    '
         DATA     X'0F000002',0,0   ACCESS-NO UPDATE
         DATA     X'11010101',X'F00'  DESC-NO BU,PURGE,ACCESS UP
KBUF     SET      %
DSIZ     SET      %-F:BACKUP+8
         RES      8
         ORG      F:BACKUP
         DATA,1   DSIZ
         ORG      F:BACKUP+10
         DATA     KBUF
         SPACE    3
*                                   *********
*                    RECOVERY DATA
F:BREC   DSECT   1
F:BREC   M:DCB    (FILE,'A:BREC'),(KEYED),(DIRECT),;
                  (INOUT),;
                  (READ,'NONE'),(WRITE,'NONE'),;
                  (ERR,BREC:ERR),(ABN,BREC:ABN)
         ORG      F:BREC+31         ADD DESC VLP
         DATA     X'06000202',C'NONE',C'    '
         DATA     X'11010101',X'F00'  DESC-NO BU,PURGE,ACCESS UP
KBUF     SET      %
DSIZ     SET      %-F:BREC+8
         RES      8
         ORG      F:BREC
         DATA,1   DSIZ
         ORG      F:BREC+10
         DATA     KBUF
         SPACE    3
*                                   *********
*                    INPUT USER'S FILE
F:EI     DSECT    1
F:EI     M:DCB    (FILE),(ERR,USR:ERR),(ABN,USR:ABN),;
                  (KEYM,63),(SEQUEN),(IN),(PASS),;
                  (FPARAM,FPAR)
         ORG      F:EI+34
         DATA     X'03000002',0,0   PASS VLP
         DATA     X'0F000002',0,0   ACCESS
         DATA     X'10000002',0,0   BACKUP
         DATA     X'11010001',0     DESC VLP     LEI
KBUF     SET      %
DSIZ     SET      %-F:EI+8
         RES      8
         ORG      F:EI
         DATA,1   DSIZ
         ORG      F:EI+10
         DATA     KBUF
         SPACE    3
*                                   *********
*                 BACKUP OUTPUT TAPE FILE
F:EO     DSECT    1
F:EO     M:DCB    (LABEL),(ERR,TAP:ERR),(ABN,TAP:ABN),;
                  (READ,'NONE'),(WRITE,'NONE'),;
                     (SN,36),;
                  (OUT),(SEQUEN),(TRIES,10),;
                  (KEYM,63),(SAVE),(TLABEL,BLABL)
         SPACE    3
*                                   *********
*                    FILL INPUT TAPE FILE
F:TI     DSECT    1
F:TI     M:DCB    (LABEL),(ERR,TAP:ERR),(ABN,TAP:ABN),;
                  (READ,'NONE'),(WRITE,'NONE'),;
                    (SN,36),;
                  (INOUT),(SEQUEN),;
                  (TRIES,10),(SAVE),(TLABEL,BLABL)
         SPACE    3
*                                   *********
*                   SEL FILL COMMAND
F:SEL    DSECT    1
F:SEL    M:DCB    (FILE,'ASELFIL'),(INOUT),;
                  (RECL,80),(BUF,SEL:COM:BUF),;
                  (ABN,BSR1),(ERR,BSR1)
         SPACE    3
*                                   *********
*                 BACKUP COMMAND FILE-WRITE COMMANDS
F:BACK   DSECT    1
F:BACK   M:DCB    (FILE,'A:BACKUP'),(KEYED),(DIRECT),;
                  (INOUT),(SAVE),(READ,'NONE'),(KEYM,8),;
                  (ERR,ERBCK),(ABN,ERBCK)
         ORG      F:BACK+X'1D'
         DATA     X'05000202',C'NONE',C'    '
         DATA     X'11010101',X'F00'  DESC-NO ANYTHING
KBUF     SET      %
DSIZ     SET      %-F:BACK+8
         RES      8
         ORG      F:BACK
         DATA,1   DSIZ
         ORG      F:BACK+10
         DATA     KBUF
         SPACE    3
*                                   *********
*                 R/W USER DISC FILE
F:USR    DSECT    1
F:USR    M:DCB    (FILE),(TRIES,10),(SAVE),(KEYM,20),(OUT),;
                  (READ),(WRITE),(SEQUEN),;
                  (SYNON),(PASS),;
                  (ABN,USRABN),(ERR,USRERR)
         ORG      F:USR+71
         DATA     X'0B000008'       OVERLAY LAST VLP TO ADD VLP
         DO1      8
         DATA     0
         DATA     X'04000002',0,0   EXPIR
         DATA     X'0A000003',0,0,0  MOD
         DATA     X'0E000002',0,0   CREATION
         DATA     X'0F000002',0,0   ACCESS
         DATA     X'10000002',0,0   BACKUP
         DATA     X'11010101',0     DESCRIPTOR VLP
KBUF     SET      %
DSIZ     SET      %-F:USR+8
         RES      8
         ORG      F:USR
         DATA,1   DSIZ
         ORG      F:USR+10
         DATA     KBUF
         SPACE    3
*                                   *********
*                    SEARCH AND DELETE DISC FILES
F:PURGE  DSECT    1
F:PURGE  M:DCB    (FILE),(TRIES,10),(SAVE),(KEYM,63),(IN),;
                   (ABN,PURABN),(ERR,PURERR),;
                   (FPARAM,PURFPAR),(PASS)
         ORG      F:PURGE+34
         DATA     X'03000002',0,0   PASS VLP
         DATA     X'11010101',0
KBUF     SET      %
DSIZ     SET      %-F:PURGE+8
         RES      8
         ORG      F:PURGE
         DATA,1   DSIZ
         ORG      F:PURGE+10
         DATA     KBUF
         END

