*COMDECK DCB$DMP
#                                                                      #
#     DOWNLINE CONTROL BLOCK - FORMATTED FOR INPUT TO FORTRAN.  THIS   #
#                              IS THE SHORT VERSION FOR DUMPING        #
#                              WHETHER OR NOT THERE IS AN ACTIVE FILE. #
#                                                                      #
#           USE - THIS IS A DUPLICATE OF BASED ARRAY DCB (WORDS 0-2)   #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$DCB).      #
#                 ANY CHANGES TO DCB$COM SHOULD BE MADE HERE ALSO,     #
#                 AND FORTRAN WILL GENERATE A PROGRAM TO DUMP THE NEW  #
#                 TABLE STRUCTURE.  OTHERWISE THIS COMMON DECK SHOULD  #
#                 NEVER BE USED (EXCEPT AS A SYMPL TEXT FOR DMP$DCB).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN DCB$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#      DCBINPUT - SAME AS DCMINPUT STATUS LIST IN DCB$COM              #
  
      STATUS DCBINPUT   # DCB$CURINPUT #
        DCBNULLI,                                # UNDEFINED STATE     #
        DCBGOI,                                  # GO COMMAND          #
        DCBSTOPI,                                # STOP COMMAND        #
        DCBRESUME,                               # RESUME COMMAND      #
        DCBDEVFL,                                # SET/SUPPRESS/RESTORE#
        DCBSTOPEND,                              # STOP,END COMMAND    #
        DCBSKP,                                  # SKIP COMMAND        #
        DCBSKPEND,                               # SKIP,END COMMAND    #
        DCBREWIND,                               # REWIND COMMAND      #
        DCBABORT,                                # ABORT COMMAND       #
        DCBRETURN,                               # RETURN COMMAND      #
        DCBOFCEOO,                               # OFC/EOO SM          #
        DCBOFCABT,                               # OFC/ABORT SM        #
        DCBINTRPT,                               # OFC/STPD/RC=1 SM    #
        DCBPM,                                   # OFC/STPD/RC=2 SM    #
        DCBLIMIT,                                # OFC/STPD/RC=3 SM    #
        DCBNOTRDY,                               # OFC/STPD/RC=4 SM    #
        DCBDSKERR,                               # OFC/STPD/RC=5 SM    #
        DCBOFCSTP,                               # OFC/STP SM          #
        DCBOFCDAT,                               # OFC/DATA SM         #
        DCBFILEFND,                              # FILE FOUND FLAG     #
        DCBBANCOMP,                              # BANNER COMPLETE FLAG#
        DCBENDCON,                               # CONSOLE ENDED       #
        DCBCONCB,                                # CONNECTION BROKEN   #
        DCBLAST;                                 # UNDEFINED STATE     #
  
#      DCBSTATE - SAME AS DCMSTATE STATUS LIST IN DCB$COM              #
  
      STATUS DCBSTATE   # DCB$CURSTATE #
        DCBNULL,                                 # UNDEFINED STATE     #
        DCBIDLE,                                 # NO FILE             #
        DCBGO,                                   # PRINTING FILE       #
        DCBGOBAN,                                # PRINTING BANNER     #
        DCBGOEOF,                                # PRINTING LAST LINE  #
        DCBWAIT1,                                # PRINTING STOPPING   #
        DCBWAIT2,                                # PRINTING STOPPED    #
        DCBWTBAN,                                # BANNER PRINTING STOP#
        DCBWTEOF,                                # LAST LINE STOPPED   #
        DCBSTOP,                                 # NO ACTIVE FILE      #
        DCBSKIP,                                 # FILE SKIPPING       #
        DCBSKPEND,                               # FILE SKIPPING TO END#
        DCBABORT,                                # FILE ABORTING       #
        DCBABTBAN,                               # FILE ABORTING       #
        DCBABTEOF,                               # FILE ABORTING       #
        DCBRETURN,                               # RETURN FILE TO QUEUE#
        DCBRETBAN,                               # RETURN FILE TO QUEUE#
        DCBRETEOF,                               # RETURN FILE TO QUEUE#
        DCBERROR;                                # UNDEFINED STATE     #
  
      BASED ARRAY DCB$DMP S(14);
        BEGIN 
        ITEM DCB$COMPLETE    B(00,00,01);        # EVENT COMPLETE      #
        ITEM DCB$PROCESSD    B (00,01,01);       # INPUT PROCESSED     #
        ITEM DCB$DEVABL      U (00,02,03);       # APP BLOCK LIMIT     #
        ITEM DCB$INPTYPE     U(00,06,06);        # INPUT TYPE          #
        ITEM DCB$TIME        U(00,12,12);        # DCM TIMMER          #
        ITEM DCB$EVENT       U(00,24,18);        # EVENT ADDRESS       #
        ITEM DCB$LINK        U(00,42,18);        # RETURN ADDRESS      #
        ITEM DCB$WORD0       U(00,00,60);        # FIRST WORD OF DCB   #
        ITEM DCB$TERMNAME    C(01,00,07);        # TERMINAL NAME       #
        ITEM DCB$STPEND      B(01,42,01);        # STOP,END RECEIVED   #
        ITEM DCB$SETFILE     B(01,43,01);        # RES/SUP FMT RECEIVED#
        ITEM DCB$FILEACT     B(01,44,01);        # RBF HAS FILE        #
        ITEM DCB$RSMTM       B(01,45,01);        # DCM TIMMER FLAG     #
        ITEM DCB$AUTOGO      B(01,46,01);        # AUTO GO FLAG        #
        ITEM DCB$EOJ         B(01,47,01);        # END OF JOB FLAG     #
        ITEM DCB$QABBUFO     U(01,48,12);        # QAC REQUEST BUFFER  #
        ITEM DCB$CURINPUT    S:DCBINPUT(02,00,06);# CURRENT INPUT      #
        ITEM DCB$CURSTATE    S:DCBSTATE(02,06,06);# CURRENT STATE      #
        ITEM DCB$CURACTN     U(02,12,06);        # CURRENT ACTION      #
        ITEM DCB$PMTXT       U(02,18,12);        # PM TEXT BUFFER      #
        ITEM DCB$BUFSIZE     U(02,30,12);        # DCL CURRENT SIZE    #
        ITEM DCB$PLTEMP      U (02,42,09);       # LP PAGE LENGTH      #
        ITEM DCB$RETFLG      B(02,51,01);        # RETURN FLAG    # 
        ITEM DCB$DEVSTOP     B(02,52,01);        # DEVICE STOPPED FLAG #
        ITEM DCB$TEMPSTP     B(02,53,01);        # TEMPORARY STOP      #
        ITEM DCB$OFCSTPD     U(02,55,05); 
        ITEM DCB$INTRPT      B(02,55,01);        # BATCH INTERRUPT     #
        ITEM DCB$PMINT       B(02,56,01);        # PM INTERRUPT        #
        ITEM DCB$LIMIT       B(02,57,01);        # ACCOUNT LIMIT EXCEED#
        ITEM DCB$NREADY      B(02,58,01);        # DEVICE NOT READY    #
        ITEM DCB$DSKERR      B(02,59,01);        # DISK ERROR          #
        END 
