*COMDECK UCL$DMP
#                                                                      #
#      UPLINE CONTROL BLOCK - FORMATTED FOR INPUT TO FORTRAN.          #
#                                                                      #
#           USE - THIS IS A DUPLICATE OF BASED ARRAY UCB (WORDS 3-9)   #
#                 FORMATTED SUCH THAT FORTRAN CAN BE USED TO GENERATE  #
#                 A SYMBOLIC TABLE DUMPING PROGRAM (IE. DMP$UCL).      #
#                 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$UCL).  #
#                 SEE THE FORTRAN USERS GUIDE FOR MORE INFORMATION.    #
#                                                                      #
#          NOTE - FORTRAN REQUIRES ANY STATUS LISTS USED IN UCL$COM    #
#                 TO BE DECLARED HERE ALSO.                            #
#                                                                      #
#     UCLVEJERR - SAME AS VEJERR STATUS LIST IN MISC$.                 #
  
      STATUS UCLVEJERR    # UCL$VEJERR #
        UCLJOBOK,                      # NO ERROR,JOB CARD OK          #
        UCLJOBERR,                     # JOB CARD ERROR                #
        UCLBADBUF,                     # BUFFER ARGUMENT ERROR(FATAL)  #
        UCLACCERR,                     # ACCOUNT CARD ERROR            #
        UCLINPFUL,                     # INPUT QUEUE FULL              #
        UCLBADTID,                     # INVALID TID                   #
        UCLLAST;                       # ILLEGAL REQUEST(FATAL)        #
  
      BASED ARRAY UCL$DMP S(8); 
        BEGIN 
        ITEM UCL$VEJ0        I(03,00,60);        # VEJ FET WORD ZERO   #
        ITEM UCL$FETLFN      C(03,00,07);        # FILE NAME           #
        ITEM UCL$JOBNAME     C(03,00,07);        # VEJ ASSIGNED JOBNAME#
        ITEM UCL$VEJERR      S:UCLVEJERR(03,42,06); # VEJ ERROR FIELD  #
        ITEM UCL$FETSTAT     U(03,42,18);        # FNT STATUS FIELD    #
        ITEM UCL$FETCB       B(03,59,01);        # PP CALL COMPLETED   #
        ITEM UCL$VEJ1        I(04,00,60);        # VEJ 2ND WORD        #
        ITEM UCL$VEJTID      I(04,36,24);        # TERMINAL ID FIELD   #
        ITEM UCL$VEJ2        I(05,00,60);        # VEJ 3RD WORD        #
        ITEM UCL$VEJLWA      U(05,42,18);        # LAST WORD ADDRESS   #
        ITEM UCL$VEJ3        I(06,00,60);        # VEJ 4TH WORD        #
        ITEM UCL$VEJFWA      U(06,42,18);        # FIRST WORD ADDRESS  #
        ITEM UCL$VEJ4        I(07,00,60);        # VEJ 5TH WORD        #
        ITEM UCL$FETFNT      U(07,00,12);        # FNT ORDINAL         #
        ITEM UCL$VEJ5        I(08,00,60);        #                     #
        ITEM UCL$VEJFAM      C(08,00,07);        # FAMILY NAME         #
        ITEM UCL$VEJ6        I(09,00,60);        #                     #
        ITEM UCL$VEJUSR      C(09,00,07);        # USER NAME           #
        ITEM UCL$DSP0        I(03,00,60);        # DSP WORD 0          #
        ITEM UCL$DSPERR      U(03,42,06);        # DSP ERROR FIELD     #
        ITEM UCL$DSP1        I(04,00,60);        # DSP WORD 1          #
        ITEM UCL$DSPABT      B(04,15,01);        # DSP ABORT INPUT     #
        ITEM UCL$DSPINP      B(04,16,01);        # DISPOSE TO INPUT    #
        ITEM UCL$DSPMNE      C(04,24,02);        # DISPOSITION MNEMONIC#
        ITEM UCL$DSPACC      B(04,43,01);        # ACCOUNT FLAG        #
        ITEM UCL$DSPNDM      B(04,47,01);        # NO DAYFILE MSG      #
        ITEM UCL$DSPDC       B(04,55,01);        # DISPOSITION CODE FLG#
        ITEM UCL$DSPCS       B(04,58,01);        # DSP TO CENTRAL SITE #
        ITEM UCL$DSPFLAGS    U(04,42,18);        # DSP FLAG FIELD      #
        ITEM UCL$DSP2        I(05,00,60);        # DSP WORD 2          #
        ITEM UCL$DSP3        I(06,00,60);        # DSP WORD 3          #
        ITEM UCL$DSP4        I(07,00,60);        # DSP WORD 4          #
        ITEM UCL$DSPMSG      U(07,24,12);        # REASON FOR DSP ABORT#
        ITEM UCL$DSPFNT      U(07,48,12);        # DSP FNT ORDINAL     #
        ITEM UCL$DSP5        I(08,00,60);        # DSP WORD 5          #
        ITEM UCL$DSPCARDS    U(08,36,24);        # CARD COUNT          #
        ITEM UCL$DSP6        I(09,00,60);        # DSP WORD 6          #
        ITEM UCL$DSPTNAME    C(09,00,07);        # TERMINAL NAME       #
        END 
