         SYSTEM   BPM
F:1      DSECT    1
F:1      M:DCB    (FILE,8),(RANDOM),(DIRECT),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(PASS),(IN)
F:2      DSECT    1
F:2      M:DCB    (FILE,'EVAL_WF1',8),(CONSEC),(SEQUEN),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(READ),(WRITE),(PASS),(OUT)
F:3      DSECT    1
F:3      M:DCB    (FILE,8),(DEVICE,'LO'),(ASN,DEVICE),(TRIES,15),;
                  (SAVE),;
                  (SN,10),(WRITE),(READ),(PASS),(OUT)
         END
