*    COPYRIGHT, (C) HONEYWELL INFORMATION SYSTEMS INC., 1979
*
         TITLE    'D094 DCB 01'
         SYSTEM   EDMLCI6
         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
