*COMDECK NP$STAT
      #* * * * * * * ---------- NP$STAT ---------- * * * * * * * * * * #
      STATUS TYPE 
        CHEK,  # 0#          # NUMBER OF NETCHEK"S                     #
        DMB,   # 1#          # NUMBER OF NETDMB'S                     # 
        FUNC,  # 2#          # NUMBER OF NETFUNC CALLS                 #
        GET,   # 3#          # NUMBER OF NETGET"S                      #
        GETF,  # 4#          # NUMBER OF NETGETF"S                     #
        GETL,  # 5#          # NUMBER OF NETGETL"S                     #
        GETQ,  # 6#          # NUMBER OF NETGETQ CALLS                 #
        GTFL,  # 7#          # NUMBER OF NETGTFL"S                     #
        GTLQ,  # 8#          # NUMBER OF NETGTLQ CALLS                 #
        LGS,   # 9#          # NUMBER OF NETLGS'S                      #
        LOG,   #10#          # NUMBER OF NETLOG'S                      #
        PUT,   #11#          # NUMBER OF NETPUT"S                      #
        PUTF,  #12#          # NUMBER OF NETPUTF"S                     #
        SETP,  #13#          # NUMBER OF NETSETP"S                     #
        WAIT,  #14#          # NUMBER OF NETWAIT"S                     #
        XFR,   #15#          #    NETXFR ( FILE TRANSFER CALL     )    #
        XFRC,  #16#          #    NETXFRC                              #
        RES1,  #17#          #                                         #
        OFF,   #18#          #          NETOFF                         #
        ON,    #19#          #          NETON                          #
        GDM,   #20#          # NUMBER OF DISCARDED GMM MESSAGES        #
        GMM,   #21#          # NUMBER OF GMM WORKLIST ENTRIES SENT     #
        GSM,   #22#          # NUMBER OF GSM WORKLIST ENTRIES SENT     #
        GMD,   #23#          # NUMBER OF GMM MESSAGES DELIVERED        #
        GSD,   #24#          # NUMBER OF GSM MESSAGES DELIVERED        #
        GMR,   #25#          # NUMBER OF START GETMM REQUESTS          #
        GMWD,  #26#          # NUMBER OF GMM WORDS DELIVERED           #
        GSWD,  #27#          # NUMBER OF GSM WORDS DELIVERED           #
        XFER,  #28#          #          NP$XFER                        #
        WLX,   #29#          # NUMBER OF WORKLISTS TRANSFERRED         #
        WLNX,  #30#          # NUMBER OF WORKLISTS NOT XFERRED:NIP BUSY#
        INB,   #31#          # NUMBER OF INBOUND NULL BLOCKS           #
        IDB,   #32#          # NUMBER OF INBOUND DATA BLOCKS           #
        IMB,   #33#          # NUMBER OF INBOUND MESSAGE BLOCKS        #
        ISB,   #34#          # NUMBER OF INBOUND SUPERVISORY BLOCKS    #
        ISB4,  #35#          # NUMBER OF INBOUND SUPERVISORY BLOCKS TP4#
        IDB5,  #36# 
        IDB6,  #37#          # NUMBER OF INBOUND QBLK TYPE             #
        IDB7,  #38#          # NUMBER OF INBOUND QMSG TYPE             #
        ODB,   #39#          # NUMBER OF OUTBOUND DATA BLOCKS          #
        OMB,   #40#          # NUMBER OF OUTBOUND MESSAGE BLOCKS       #
        OSB,   #41#          # NUMBER OF OUTBOUND SUPERVISORY BLOCKS   #
        OSB4,  #42#          # NUMBER OF OUTBOUND SUPERVISORY BLOCKS   #
        ODB5,  #43#          #                                         #
        ODB6,  #44#          # NUMBER OF OUTBOUND DATA QBLK TYPE       #
        ODB7,  #45#          # NUMBER OF OUTBOUND DATA QMSG TYPE       #
        ERRS,  #46#          # NUMBER OF LOGICAL ERRORS                #
        NAKS,  #47#          # NUMBER OF NAK"S                         #
        PUTQ;  #48#          # NUMBER OF PUTQ WORKLIST ENTRIES SENT    #
      DEF STATSIZE #48# ; 
      DEF ZSNCIOBUFL # 129 #; # CIO BUF FOR ZZZZZSN, 2 PRUS+1          #
      COMMON NP$STAT; 
      BEGIN 
*IF,DEF,STAT
      ARRAY STATISTICS[0:STATSIZE] S(1);
        ITEM STAT       I (0);
  
      ARRAY SN$FET P(8);                #FET FOR STATISTICS LOG FILE  # 
                                        #     ZZZZZSN                 # 
        BEGIN 
        ITEM SN$LFN     C (0,0,7);
        ITEM SN$CODE    U (0,42,18);
        ITEM SN$AT      U(0,46,05);     # ABNORMAL TERMINATION CODE    #
        ITEM SN$UP      B(1,14,01);     # USER PROCESSING FLAG         #
        ITEM SN$EP      B(1,15,01);     # ERROR PROCESSING FLAG        #
        ITEM SN$LEN     U (1,36,6); 
        ITEM SN$FIRST   U (1,42,18);
        ITEM SN$WD1     U (1,0,60)=[0]; 
        ITEM SN$IN      U (2,0,60); 
        ITEM SN$OUT     U (3,0,60); 
        ITEM SN$LIMIT   U (4,0,60); 
        END #SN$FET#
  
      ARRAY SN$BUF [1:ZSNCIOBUFL] S(1); 
        BEGIN # CIO BUFFER FOR ZZZZZSN                                 #
        ITEM SN$BUFF I(0,0,60); 
        END 
      ARRAY ST$TIM[0:1];
        ITEM
          ST$CLK        I(0),           #VALUE OF CPU.TIME ON ENTERING# 
          CPSECS        U(0,24,24),     #AND LEAVING AIP              # 
          CPMLSECS      U(0,48,12); 
      ITEM
        PRNT            B=FALSE,        # OUTPUT COUNT TO ZZZZZSN-TRUE #
        STATON          B=TRUE,         # FLAG FOR STATISTIC LOGGING   #
        ST$NMD          I=0,            # NUMBER OF MSGS WRITTEN TO GMB#
        ST$NWD          I=0,            # NUMBER OF WDS WRITTEN TO GMB #
        ST$NSMD         I=0,            # NUMBER OF MSGS WRITTEN TO SMB#
        ST$NSWD         I=0;            # NUMBER OF WDS WRITTEN TO SMB #
  
*ENDIF
      END                    # NP$STAT                                 #
*ENDIF
#                                                                      #
