         TITLE    'D094 DCB 01'
         SYSTEM   ESCHCI6
         DO       UTS
F:DB01   DSECT    1
F:DB01   M:DCB    (FILE),(RANDOM),(DIRECT),(SAVE),(TRIES,15),;
                  (SN,10),(READ),(WRITE),(PASS)
         FIN
         DO       XOS
         DEF      Q:DCB
Q:DCB    M:DCB    (OPL,'DB01'),(AM,VD),(ORG,D)
         FIN
         END
