*COMDECK DUMPFLG
                                                                       #
* * * * * * * * * *  ---------- DUMPFLG ----------  * * * * * * * * * * 
  
*                   ONE WORD BUFFER USED TO STORE REASON CODES
*                   FOR DUMPING NIP-S FIELD LENGTH
  
*     CAUTION ... THIS COMMON BLOCK IS ALSO USED BY THE COMPASS 
*                 ROUTINES OSCCALL, OVLCALL, AND RDUMP. 
                                                                       #
      COMMON DUMPFLG; 
  
                              BEGIN 
   ARRAY DPFL P(1);              # MARKS POSITION OF COMDECK IN DUMP   #
                             BEGIN
      ITEM OPFLM#C,0,0,7#                                              #
*#                           C(0,0,7)=["DUMPFLG"];
      ITEM DPFL7#U,0,42,18#                                            #
*#                           U(0,42,18)=[O"777777"];
                             END
                                                                       #
          BSS    1
                                                                       #
      ITEM DMPFLG;
      ITEM HFCALL B=FALSE;   # SET IF OSCCALL IS CALLED BY HAPFAIL     #
                              # FOR A SF.ENDT FUNCTION                 #
                              END 
                                                                       #
          USE    *
  
*                   REASON CODES FOR DUMPING NIP-S FIELD LENGTH 
                                                                       #
   DEF    DBDELIN1#1#;       # BAD DATA BLK ADDR IN QCB                #
   DEF    DBDELIN2#2#;       # BAD CHAR TYPE IN DATA                   #
   DEF    DHAPFAI1#4#;       # CS FAILED                               #
   DEF    DHAPFAI2#5#;       # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHBSMAB1#6#;       # BAD CHAR TYPE IN MSG                    #
   DEF    DHCBACK1#7#;       # BAD QCB ADDRESS                         #
   DEF    DHPNOFF1#8#;       # CS FAILED                               #
   DEF    DHPNOFF2#9#;       # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHPNOFF3#10#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHPNONA1#11#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHPNONC1#12#;      # BAD PN IN NET/ON/R SUP MSG FROM CS      #
   DEF    DHPNONS1#13#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHPPUT1#14#;       # PROCESS USER/ERR SUP MSG                #
   DEF    DHPWAIT1#15#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHSCAN1#17#;       # ACNB IN CN DATA RING WITH NO DATA QUEUED#
   DEF    DNGIGO1#18#;       # UNEXPECTED GARBAGE MESSAGE FROM NPU     #
   DEF    DNPBACK1#19#;      # BAD BSN FROM NPU                        #
   DEF    DNPBRK1#20#;       # BAD BSN FROM NPU                        #
   DEF    DNPBRK2#21#;       # BAD BSN FROM NPU                        #
   DEF    DOSCCAL1#22#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DOVLCAL1#23#;      # TRIED TO LOAD OVLY OVER EXECUTING OVLY  #
   DEF    DRMAIN1#24#;       # NIP REPRIEVED                           #
   DEF    DSQCBLR1#25#;      # BAD PN IN TRAL/LLRGH SUP MSG FROM CS    #
   DEF    DSQCBLR2#26#;      # BAD PROCESS CONTROL RING                #
   DEF    DXABTAP1#27#;      # BAD SCP FUNCTION RETURN CODE            #
   DEF    DXSAPP1#28#;       # BAD SCP FUNCTION RETURN CODE            #
   DEF    DXSPCB1#29#;       # BAD SCP FUNCTION RETURN CODE            #
   DEF    DHHIR1#32#;        # BAD NWLADDR ADDR                        #
   DEF    DHHIR2#33#;        # BAD NWLADDR ADDR                        #
   DEF    DPCBDHS1#34#;      # BAD PCB DELETE                          #
   DEF    DNPREGL1#35#;      # BAD HOST INDICATOR                      #
   DEF    DLNCNB1#36#;       # BAD LLCB ADDRESS                        #
   DEF    DNBSTTP1#37#;      # NO NCNB                                 #
   DEF    DNBSTTP2#38#;      # ILLEGAL TRIGGER                         #
   DEF    DHBSTTP1#39#;      # ILLEGAL TRIGGER                         #
   DEF    DNCSTTP1#40#;      # ACNB DELINKED                           #
   DEF    DNCSTTP2#41#;      # ILLEGAL TRIGGER                         #
   DEF    DHCSTTP1#42#;      # ILLEGAL TRIGGER                         #
   DEF    DNCSTTP3#43#;      # INVALID TRIGGER NUMBER                  #
   DEF    DNBSTTP3#44#;      # INVALID TRIGGER NUMBER                  #
   DEF    DHCSTTP2#45#;      # INVALID TRIGGER NUMBER                  #
   DEF    DHBSTTP2#46#;      # INVALID TRIGGER NUMBER                  #
   DEF    DRLACNB1#47#;      # BAD ACNB ADDRESS                        #
   DEF    DNCSTTP4#48#;      # ILLEGAL TRIGGER                         #
   DEF    DHBSTTP3#49#;      # NO NCNB                                 #
   DEF    DHCSTTP3#50#;      # NO NCNB                                 #
   DEF    DHCSTTP4#51#;      # NO LLCB                                 #
   DEF    DNBSTTP4#52#;      # NO NCNB                                 #
   DEF    DNBSTTP5#53#;      # NO LLCB                                 #
   DEF    DNBSTTP6#54#;      # NO ACNB                                 #
   DEF    DNCSTTP5#55#;      # NO NCNB                                 #
   DEF    DRLNCNB1#56#;      # NO LLCB                                 #
   DEF    DNFOB1#57#;        # NPU IN REGULATION                       #
   DEF    DNCSTTP6#58#;      # NO NCNB                                 #
   DEF    DHBSTTP4#59#;      # NO ACNB                                 #
   DEF    DNBSTTP7#60#;      # NO NCNB                                 #
   DEF    DBACNB1#61#;       # MAXIMUM NO. OF CONNECTIONS REACHED      #
   DEF    DBACNB2#62#;       # NO NCNB                                 #
   DEF    DBDNCNB1#63#;      # CONNECTION ALREADY EXISTS               #
   DEF    DLOCNAL1#64#;      # ERROR IN LOCATING APPL LIST RING        #
   DEF    DBLDLLC1#65#;      # ERROR IN BLDLLCB                        #
   DEF    DNPREGCP#66#;      # BAD DESTINATION NODE                    #
   DEF    DALOCN1#70#;       # MAX NO OF CONNECTIONS REACHED           #
                                                                       #
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
                                                                       #
