         SYSTEM   BPM
F:11     DSECT    1
F:11     M:DCB    (FILE,'DB1',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:12     DSECT    1
F:12     M:DCB    (FILE,'DB2',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:13     DSECT    1
F:13     M:DCB    (FILE,'DB3',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:14     DSECT    1
F:14     M:DCB    (FILE,'DB4',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:15     DSECT    1
F:15     M:DCB    (FILE,'DB5',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:16     DSECT    1
F:16     M:DCB    (FILE,'DB6',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:17     DSECT    1
F:17     M:DCB    (FILE,'DB7',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:18     DSECT    1
F:18     M:DCB    (FILE,'DB8',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:19     DSECT    1
F:19     M:DCB    (FILE,'DB9',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:20     DSECT    1
F:20     M:DCB    (FILE,'DB10',8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(INOUT)
F:100    M:DCB    (DEVICE,'SI'),(FILE,8),(CONSEC),(SEQUEN),(IN),;
                  (SAVE),(ASN,DEVICE),;
                  (SN,10),(READ),(WRITE),(PASS),(TRIES,15)
F:200    DSECT    1
F:200    M:DCB    (DEVICE,'LO'),(FILE,8),(CONSEC),(SEQUEN),(OUT),;
                  (SAVE),(ASN,DEVICE),;
                  (SN,10),(READ),(WRITE),(PASS),(TRIES,15)
F:7      DSECT    1
F:7      M:DCB    (DEVICE,'LO'),(FILE,8),(CONSEC),(SEQUEN),(OUT),;
                  (SAVE),(ASN,DEVICE),;
                  (SN,10),(READ),(WRITE),(PASS),(TRIES,15)
F:1      DSECT    1
F:1      M:DCB    (FILE,'EVAL_WF1',8),(CONSEC),(SEQUEN),(IN),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(TRIES,15)
         END
