*COMDECK UCB$DMP
#                                                                      #
#     UPLINE 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 UCB (WORDS 0-2)   #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$UCB).      #
#                 ANY CHANGES TO UCB$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$UCB).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN UCB$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#      UCBINPUT - SAME AS UCMINPUT STATUS LIST IN UCM$COM.             #
  
      STATUS UCBINPUT   # UCB$CURINPUT #
        UCBNULLI,                      # UNDEFINED INPUT STATE         #
        UCBGOI,                        # GO COMMAND FROM THE TERMINAL  #
        UCBSTOPEND,                    # STOP,CR,END COMMAND           #
        UCBRESUME,                     # RESUME COMMAND                #
        UCBABORT,                      # ABORT COMMAND                 #
        UCBIFCJOB,                     # IFC/JOB SM                    #
        UCBEOS,                        # IFC/STPD/RC=END OF STREAM     #
        UCBCREMT,                      # IFC/STPD/RC=CR EMPTY          #
        UCBDSKERR,                     # IFC/STPD/RC=DISK ERROR        #
        UCBCRERR,                      # IFC/STPD/RC=CR ERROR          #
        UCBIFCEND,                     # IFC/END                       #
        UCBIFCEOJ,                     # IFC/EOJ                       #
        UCBIFCABT,                     # IFC/ABORT                     #
        UCBBADJOB,                     # BAD JOB/USER CARD,INPUT Q FULL#
        UCBGOODJOB,                    # JOB CARD OK                   #
        UCBINTRPT,                     # BATCH INTERRUPT               #
        UCBENDCON,                     # END COMMAND(200UT ONLY)       #
        UCBCONCB,                      # CONNECTION BROKEN             #
        UCBQFULL,                      # INPUT QUEUE FULL              #
        UCBIDLEDOWN,                   # IDLE DOWN                     #
        UCBLAST;                       # LAST DEFINED STATE            #
  
#      UCBSTATE - SAME AS UCMSTATE STATUS LIST IN UCM$COM.             #
  
      STATUS UCBSTATE   # UCB$CURSTATE #
        UCBNULL,                       # WAITING FOR JOB               #
        UCBIDLE,                       # UNDEFINED STATE               #
        UCBWTVEJ,                      # WAITING FOR VEJ TO COMPLETE   #
        UCBGO,                         # JOB ACTIVE                    #
        UCBWTID,                       # DEVICE NOTREADY,JOB NOT ACTIVE#
        UCBWTGO,                       # DEVICE NOTREADY,JOB ACTIVE    #
        UCBSTOP,                       # DEVICE IS STOPPED             #
        UCBABTBY,                      # ABORT BY-PASS STATE           #
        UCBABTIM,                      # ABORT IMMEDIATE STATE         #
        UCBERROR;                      # UCM ERROR STATE               #
  
      BASED ARRAY UCB$DMP S(2); 
        BEGIN 
        ITEM UCB$COMPLETE    B(00,00,01);        # EVENT COMPLET       #
        ITEM UCB$INPTYPE     U(00,06,06);        # INPUT TYPE          #
        ITEM UCB$TIME        U(00,12,12);        # UCM TIMMER          #
        ITEM UCB$EVENT       U(00,24,18);        # EVENT ADDRESS       #
        ITEM UCB$LINK        U(00,42,18);        # RETURN ADDRESS      #
        ITEM UCB$TERMNAME    C(01,00,07);        # TERMINAL NAME       #
        ITEM UCB$STPEND      B(01,42,01);        # STOP,END FLAG       #
        ITEM UCB$INTRPT      B(01,43,01);        # BATCH INTERRUPT FLAG#
        ITEM UCB$FILEACT     B(01,44,01);        # FILE ACTIVE         #
        ITEM UCB$AUTOGO      B(01,46,01);        # AUTO GO FLAG        #
        ITEM UCB$BUFFER      U(01,48,12);        # UCM SUP MSG BUFFER  #
        ITEM UCB$WORD2       I(02,00,60);        # THIRD WORD OF UCL   #
        ITEM UCB$CURINPUT    S:UCBINPUT(02,00,06);# CURRENT INPUT TYPE #
        ITEM UCB$CURSTATE    S:UCBSTATE(02,06,06);# CURRENT STATE      #
        ITEM UCB$CURACTN     U(02,12,06);        # CURRENT ACTION      #
        ITEM UCB$MESSAGE     U(02,18,06);        # CONSOLE MESSAGE TYPE#
        ITEM UCB$BUFSIZE     U(02,30,12);        # UCL SIZE            #
        ITEM UCB$DISKERR     U(02,48,12);        # DISK ERROR FIELD    #
        ITEM UCB$DSKCODE     U(02,57,03);        # DISK ERROR CODE     #
        END 
