*COMDECK NP$DB
      #* * * * * * * ----------  NP$DB  ---------- * * * * * * * * * * #
      DEF ZDNCIOBUFL # 193 #; # CIO BUF FOR ZZZZZDN, 3 PRUS+1 WORDS    #
#                                                                      #
#     COMMON BLOCK NP$DB DEFINES ITEMS USED BY THE AIP DEBUG OPTION    #
  
      COMMON NP$DB; 
        BEGIN 
*IF,DEF,DEBUG 
        ITEM DB$ERCT I=500;  # END-OF-RECORD COUNT, UP TO 500 MSGS     #
        ITEM DB$SM   B=TRUE; # LOG SUPERVISORY MESSAGE FLAG            #
        ITEM DB$DM   B=TRUE; # LOG DATA MESSAGE FLAG                   #
        ITEM DB$OP   I;      # OP-CODE AS DEFINED FOR WORKLIST.  SEE   #
                             # COMMON DECK NP$NWL.                     #
        ITEM DB$CALL I;      # ADDRESS OF PROCEDURE ENTRY              #
        ITEM DB$TRUNC I=410; # MAX NUMBER OF MESSAGE LINES TO LOG      #
        ITEM DB$SIZE;        # TEXT SIZE                               #
        ITEM DB$FORMAT;      # FORMATTED MSG FLAG                      #
        ITEM DB$JR B = FALSE; # TRUE = JOB RECORD FILE EXISTS          #
        ITEM DB$LFN C(7);    # LFN OF JOB RECORD FILE                  #
        ITEM DB$RWD B;       # TRUE = REWIND JOB RECORD FILE           #
  
        ARRAY DB$FET  P(8);       # FET FOR DEBUG LOG FILE ZZZZZDN     #
          BEGIN 
          ITEM FET$LFN    C(0, 0, 7); 
          ITEM FET$LN     U(0,42,04); # LEVEL NUMBER                   #
          ITEM FET$AT     U(0,46,05); # ABNORMAL TERMINATION CODE      #
          ITEM FET$CODE   U(0,51,09); # REQUEST/RETURN CODE            #
          ITEM FET$LEN    U(1,36, 6); 
          ITEM FET$UP     B(1,14,01); # USER PROCESSING FLAG           #
          ITEM FET$EP     B(1,15,01); # ERROR PROCESSING FLAG          #
  
          ITEM FET$FB     B(1,23,1);  # FLUSH BIT                      #
          ITEM FET$FIRST  U(1,42,18); 
          ITEM FET$WD1    U(1,0,60)=[0];
          ITEM FET$IN     U(2,0,60);
          ITEM FET$OUT    U(3,0,60);
          ITEM FET$LIMIT  U(4,0,60);
          END 
  
        ARRAY DB$BUF [1:ZDNCIOBUFL] S(1); 
          BEGIN # CIO BUFFER FOR ZZZZZDN FILE                          #
          ITEM DB$BUFF I(0,0,60); 
          END 
  
  
        BASED ARRAY CALLADR P(1); 
          BEGIN 
          ITEM CALLADDR I(0,12,AL);    # RETURN ADDRESS                #
          END 
  
*ENDIF
        END                  # NP$DB                                   #
  
