*COMDECK STATTAB2 
   DEF STAB2NO#12#;          # NO OF STATISTICS VARIABLES - 1          #
  
   COMMON STATTAM;
                             BEGIN
                             CONTROL IFEQ STAT,1;# STATISTICS ON       #
                                                                       #
*  VARIABLES FOR STATISTICS COLLECTION AS RELATED TO
*  DYNAMICALLY CONTROLLED MEMORY MANAGEMENT 
  
 STFR     IFEQ   STAT,1                                                #
   ARRAY STTM P(1);          # MARKS POSITION OF COMDECK IN DUMP       #
                             BEGIN
      ITEM STTMM#C,0,0,7#                                              #
*#                           C(0,0,7)=["STATTAM"];
      ITEM STTM7#U,0,42,18#                                            #
*#                           U(0,42,18)=[O"777777"];
                             END
                                                                       #
          BSS    1
                                                                       #
   ITEM ST$GET  = 0;         # NO. OF TIMES BUFFERS WAS ALLOCATED      #
   ITEM ST$GNB  = 0;         # NO. OF FREE BUFFERS TRANSVERSED         #
   ITEM ST$REL  = 0;         # NO. OF TIMES BUFFERS RELEASED           #
   ITEM ST$RNB  = 0;         # NO. OF BUFFERS TRANSVERSED IN MRELS     #
   ITEM ST$FL   = 0;         # NO. OF TIMES FL INCREASES               #
   ITEM ST$FLW  = 0;         # CM FIELD LENGTH WORDS INCREASED         #
   ITEM ST$FLX  = 0;         # NO. OF TIMES FL DECREASED               #
   ITEM ST$FLWX = 0;         # CM FIELD LENGTH WORDS DECREASED         #
   ITEM ST$FLT  = 0;         # FIELD LENGTH * TIME INTERVAL            #
   ITEM ST$FWT  = 0;         # NO. OF FREE WORDS * TIME INTERVAL       #
   ITEM ST$FBT  = 0;         # NO. OF FREE BUFFERS * TIME INTERVAL     #
   ITEM ST$GBWM = 0;         # TOTAL NO. OF WORDS MOVED ON GARBAGE COLL#
   ITEM ST$GBGC = 0;         # NO. OF BUFFERS COMBINED BY GARBAGE COLL #
  
   ITEM TIMESTR;             # RTIME WHEN MAINLINE EXECUTION BEGIN     #
   ITEM TIMECFL;             # RTIME WHEN OCFL WAS LAST CALLED         #
   ITEM TIMEGBG;             # RTIME WHEN MGBGCLT WAS LAST CALLED      #
                                                                       #
 STFR     ENDIF                                                        #
                             CONTROL FI;
                             END
                                                                       #
          USE    *                                                     #
