         SYSTEM BPM
         DEF      EI:DESC,FUSR:DESC
         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
         PAGE
*                 BACKUP COMMAND FILE-READ COMMANDS
F:BACKUP DSECT    1
F:BACKUP M:DCB    (FILE,'F:BACKUP'),(KEYED),(DIRECT),(INOUT),;
                  (SAVE),(READ,'ALL'),(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
         PAGE
*                                   *********
*                    RECOVERY DATA
F:BREC   DSECT   1
F:BREC   M:DCB    (FILE,'F: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
         PAGE
*                                   *********
*                    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'14000010'       ACCESS ACCOUNTS
         DO1      2
         DATA     0,0,0,0,0,0,0,0
         DATA     X'15000003'       ACCESS VEHICLE
         DATA     0,0,0
EI:DESC  DATA     X'11010001',0     DESC VLP  (LAST ONE)
KBUF     SET      %
DSIZ     SET      %-F:EI+8
         RES      8
         ORG      F:EI
         DATA,1   DSIZ
         ORG      F:EI+10
         DATA     KBUF
         PAGE
*                 BACKUP OUTPUT TAPE FILE
F:EO     DSECT    1
F:EO     M:DCB    (LABEL),(ERR,TAP:ERR),(ABN,TAP:ABN),;
                  (READ),(WRITE),;
                     (SN,36),;
                  (OUT),(SEQUEN),(TRIES,10),;
                  (KEYM,63),(SAVE),(TLABEL,BLABL)
         PAGE
*                    FILL INPUT TAPE FILE
F:TI     DSECT    1
F:TI     M:DCB    (LABEL),(ERR,TAP:ERR),(ABN,TAP:ABN),;
                  (READ),(WRITE),;
                    (SN,36),;
                  (INOUT),(SEQUEN),;
                  (TRIES,10),(SAVE),(TLABEL,BLABL)
         PAGE
*                                   *********
*                   SEL FILL COMMAND
F:SEL    DSECT    1
F:SEL    M:DCB    (FILE,'SEL:FIL'),(INOUT),;
                  (RECL,80),(BUF,SEL:COM:BUF),;
                  (ABN,BSR1),(ERR,BSR1)
         PAGE
*                                   *********
*                 BACKUP COMMAND FILE-WRITE COMMANDS
F:BACK   DSECT    1
F:BACK   M:DCB    (FILE,'F: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
         PAGE
*                                   *********
*                 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'14000010'       ACCESS ACCOUNTS
         DO1      2
         DATA     0,0,0,0,0,0,0,0
         DATA     X'15000003'       ACCESS VEHICLE
         DATA     0,0,0
FUSR:DESC DATA    X'11010101',0     DESCRIPTOR VLP (LAST ONE)
KBUF     SET      %
DSIZ     SET      %-F:USR+8
         RES      8
         ORG      F:USR
         DATA,1   DSIZ
         ORG      F:USR+10
         DATA     KBUF
         END

