
                               					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

0001    !
0002    !			  COPYRIGHT (c) 1982 BY
0003    !	      MOSTEK CORPORATION, CARROLLTON TX
0004    !
0005    ! This software is furnished under a license and may be used and  copied
0006    ! only  in  accordance  with  the  terms  of  such  license and with the
0007    ! inclusion of the above copyright notice.  This software or  any  other
0008    ! copies  thereof may not be provided or otherwise made available to any
0009    ! other person.  No title to and ownership of  the  software  is  hereby
0010    ! transferred.
0011    !
0012    ! The information in this software is subject to change  without  notice
0013    ! and  should  not  be  construed  as  a commitment by MOSTEK
0014    ! CORPORATION.
0015    !
0016    ! MOSTEK assumes no responsibility for the use or  reliability  of  its
0017    ! software on equipment which is not supplied by MOSTEK.
0018    !
0019     
0020    !++
0021    ! FACILITY:
0022    !   MOSTEK CORPORATION
0023    !
0024    ! ABSTRACT:
0025    !   Along with all the compartmentalized things that VMS keeps on itself
0026    !   there are many things that don't fit any usual class. This procedure
0027    !   collects all the flotsam and jetsam of VMS.   
0028    !
0029    ! ENVIRONMENT:
0030    !   VAX11 VMS   
0031    !
0032    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0033    !
0034    ! MODIFIED BY:
0035    !
0036    !--
0037    !
0038    ! TABLE OF CONTENTS:
0039    !
0040    !
0041    ! INCLUDE FILES:
0042    !   mousesubs.for
0043    !
0044    ! MACROS:
0045    !   none
0046    !
0047    ! EQUATED SYMBOLS:
0048    !   see mousesubs.for
0049    !
0050    ! EXTERNAL REFERENCES:
0051    !
0052    !    PMS$GL_DIRIO         direct io
0053    !    PMS$GL_BUFIO         buffered io
0054    !    PMS$GL_LOGNAM        logical name translations
0055    !    PMS$GL_MBREADS       mail box read
0056    !    PMS$GL_MBWRITES      mail box writes
0057    !    PMS$GL_TURN          number of window turns

                               					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

0058    !    PMS$GL_SPLIT         number of split i/o transfers
0059    !    PMS$GL_HIT           number of transfers not requiring window turns
0060    !    PMS$GL_OPENS         number of total file opens
0061    !    PMS$GL_OPEN          number of files currently open
0062    !    PMS$GL_DIRHIT        number of directory hits
0063    !    PMS$GL_DIRMISS       number of directory misses
0064    !    PMS$GL_EXTHIT        number of file extent hits
0065    !    PMS$GL_EXTMISS       number of file extent misses
0066    !    PMS$GL_FIDHIT        number of file name hits
0067    !    PMS$GL_FIDMISS       number of file name misses
0068    !    PMS$GL_QUOHIT        number of quota hits
0069    !    PMS$GL_QUOMISS       number of quota misses
0070    !    ML$L_PEEK
0071    !++
0072    ! FUNCTIONAL DESCRIPTION:
0073    !   Using ML$L_PEEK, gather up all the miscallaneous stats that VMS keeps
0074    !   track of.
0075    !
0076    !
0077    ! FORMAL PARAMETERS:
0078    !   none
0079    !
0080    !
0081    ! IMPLICIT INPUTS:
0082    !   misc
0083    !
0084    !
0085    ! IMPLICIT OUTPUTS:
0086    !   misc
0087    !
0088    !
0089    ! ROUTINE VALUE and
0090    ! COMPLETION CODES:
0091    !   none
0092    !
0093    !
0094    ! SIDE EFFECTS:
0095    !   none to date
0096    !
0097    !
0098    !--
0099              SUBROUTINE STATMISC !!  miscellaneous stats
0100     
0101              external PMS$GL_DIRIO       !! direct io
0102              external PMS$GL_BUFIO       !! buffered io
0103              external PMS$GL_LOGNAM      !! logical name translations
0104              external PMS$GL_MBREADS     !! mail box read
0105              external PMS$GL_MBWRITES    !! mail box writes
0106              external PMS$GL_TURN        !! number of window turns
0107              external PMS$GL_SPLIT       !! number of split i/o transfers
0108              external PMS$GL_HIT         !! number of transfers w/o window
0109                                          !! turns
0110              external PMS$GL_OPENS       !! number of total file opens
0111              external PMS$GL_OPEN        !! number of files currently open
0112              external PMS$GL_DIRHIT      !! number of directory hits
0113              external PMS$GL_DIRMISS     !! number of directory misses
0114              external PMS$GL_EXTHIT      !! number of file extent hits

STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

0115              external PMS$GL_EXTMISS     !! number of file extent misses
0116              external PMS$GL_FIDHIT      !! number of file name hits
0117              external PMS$GL_FIDMISS     !! number of file name misses
0118              external PMS$GL_QUOHIT      !! number of quota hits
0119              external PMS$GL_QUOMISS     !! number of quota misses
0120     
0121              include 'mousesubs.for'
0324              include 'defrec.for'
0426     
0427              integer  last(misc_size)
0428     
0429              rec_misc( dirio    ) =  ML$L_PEEK( %LOC( PMS$GL_DIRIO    ) )
0430              rec_misc( bufio    ) =  ML$L_PEEK( %LOC( PMS$GL_BUFIO    ) )
0431              rec_misc( lognam   ) =  ML$L_PEEK( %LOC( PMS$GL_LOGNAM   ) )
0432              rec_misc( mbreads  ) =  ML$L_PEEK( %LOC( PMS$GL_MBREADS  ) )
0433              rec_misc( mbwrites ) =  ML$L_PEEK( %LOC( PMS$GL_MBWRITES ) )
0434              rec_misc( turn     ) =  ML$L_PEEK( %LOC( PMS$GL_TURN     ) )
0435              rec_misc( split    ) =  ML$L_PEEK( %LOC( PMS$GL_SPLIT    ) )
0436              rec_misc( hit      ) =  ML$L_PEEK( %LOC( PMS$GL_HIT      ) )
0437              rec_misc( opens    ) =  ML$L_PEEK( %LOC( PMS$GL_OPENS    ) )
0438              rec_misc( open     ) =  ML$L_PEEK( %LOC( PMS$GL_OPEN     ) )
0439              rec_misc( dirhit   ) =  ML$L_PEEK( %LOC( PMS$GL_DIRHIT   ) )
0440              rec_misc( dirmiss  ) =  ML$L_PEEK( %LOC( PMS$GL_DIRMISS  ) )
0441              rec_misc( exthit   ) =  ML$L_PEEK( %LOC( PMS$GL_EXTHIT   ) )
0442              rec_misc( extmiss  ) =  ML$L_PEEK( %LOC( PMS$GL_EXTMISS  ) )
0443              rec_misc( fidhit   ) =  ML$L_PEEK( %LOC( PMS$GL_FIDHIT   ) )
0444              rec_misc( fidmiss  ) =  ML$L_PEEK( %LOC( PMS$GL_FIDMISS  ) )
0445              rec_misc( quohit   ) =  ML$L_PEEK( %LOC( PMS$GL_QUOHIT   ) )
0446              rec_misc( quomiss  ) =  ML$L_PEEK( %LOC( PMS$GL_QUOMISS  ) )
0447     
0448              do i = 1, misc_size
0449                 if ( i .ne. open ) then
0450                    temp = rec_misc(i)
0451                    rec_misc(i) = rec_misc(i) - last(i)
0452                    last(i) = temp
0453                 end if
0454              end do
0455     
0456              return
0457              end

STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  560   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                  88   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG
  3 REC_COMMON                             348   PIC OVR REL GBL   SHR NOEXE   RD   WRT LONG

    Total Space Allocated                  996


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       STATMISC                                       99     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000048  I*4  I                                             448=      449       450       451(3)    452     
  3-00000108  I*4  REC_RESPONSE                    COMM EQUIV    327       384     
  2-0000004C  R*4  TEMP                                          450=      452     


ARRAYS

    Address  Type  Name                            Attributes        Bytes  Dimensions       References

  2-00000000  I*4  LAST                                                72  (18)                427       451       452=    
  3-00000000  I*4  REC_CPU_MODES                   COMM EQUIV          36  (9)                 329       341     
  3-00000024  I*4  REC_FCP                         COMM EQUIV          20  (5)                 335       348     
  3-00000120  I*4  REC_LOCK_MODES                  COMM EQUIV          28  (7)                 337       403     
  3-00000080  I*4  REC_MEM_MODES                   COMM EQUIV           8  (2)                 330       353     

  3-00000038  I*4  REC_MISC                        COMM EQUIV          72  (18)                332       350       429=    
											       430=      431=      432=    
											       433=      434=      435=    
											       436=      437=      438=    
											       439=      440=      441=    
											       442=      443=      444=    
											       445=      446=      450     
											       451(2)= 
  3-0000010C  I*4  REC_NET_MODES                   COMM EQUIV          20  (5)                 336       393     
  3-00000088  I*4  REC_PGFLT                       COMM EQUIV          28  (7)                 334       357     
  3-0000013C  I*4  REC_POOL_MODES                  COMM EQUIV          32  (8)                 338       414     
  3-000000A4  I*4  REC_SCH_STATE                   COMM EQUIV          56  (14)                333       362     

  3-000000DC  I*4  REC_SWAP                        COMM EQUIV          36  (9)                 331       368     
  3-00000100  I*4  REC_TIME                        COMM EQUIV           8  (2)                 328       375     
  3-00000000  I*4  STATS_REC                       COMM EQUIV         348  (87)                325       339       341     
											       348       350       353     
											       357       362       368     
											       375       384       393     
											       403       414     

STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

PARAMETER CONSTANTS

  Type  Name                                                   References

   I*2  ARRLOCPK                                                 268#    
   I*2  ARRTRAPK                                                 269#    
   CHAR ASCII_DELTA_TIME                                         126       127#    
   I*2  BIGHOLE                                                  302#    
   I*2  BJOBCNT                                                  158#    

   I*2  BUFIO                                                    179#      430     
   I*2  CEF                                                      225#    
   I*2  COLPG                                                    223#    
   I*2  COM                                                      234#    
   I*2  COMO                                                     235#    

   I*2  COMPAT                                                   156#    
   I*2  CPU_SIZE                                                 161#      318       329       348       350       353     
							         357       362       368       375       384       393     
							         403       414     
   I*2  CUR                                                      236#    
   I*2  DEPLOCPK                                                 270#    
   I*2  DEQ                                                      284#    

   I*2  DIRHIT                                                   188#      439     
   I*2  DIRIO                                                    178#      429     
   I*2  DIRMISS                                                  189#      440     
   I*2  DLCKFND                                                  285#    
   I*2  DLCKSRCH                                                 286#    

   I*2  DZROFLTS                                                 210#    
   I*2  ENQCVT                                                   287#    
   I*2  ENQNEW                                                   282#    
   I*2  ENQNOTQD                                                 288#    
   I*2  ENQWAIT                                                  283#    

   I*2  EXEC                                                     153#    
   I*2  EXTHIT                                                   190#      441     
   I*2  EXTMISS                                                  191#      442     
   I*2  FAULTS                                                   211#    
   I*2  FCP_CACHE                                                168#    

   I*2  FCP_CALLS                                                167#    
   I*2  FCP_CPU                                                  169#    
   I*2  FCP_READ                                                 170#    
   I*2  FCP_SIZE                                                 173#      318       335       350       353       357     
							         362       368       375       384       393       403     
							         414     
   I*2  FCP_WRITE                                                171#    

   I*2  FIDHIT                                                   192#      443     
   I*2  FIDMISS                                                  193#      444     
   I*2  FPG                                                      233#    
   I*2  FREECNT                                                  202#    
   I*2  GETDVI_EF                                                141#    

   I*2  HIB                                                      229#    

STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

   I*2  HIBO                                                     230#    
   I*2  HISWPCNT                                                 248#    
   I*2  HIT                                                      185#      436     
   I*2  HOLECNT                                                  301#    

   I*2  HOLESUM                                                  305#    
   I*2  HOSWPCNT                                                 247#    
   I*2  IDLE                                                     157#    
   I*2  IJOBCNT                                                  159#    
   I*2  INT                                                      155#    

   I*2  IRPCNT                                                   300#    
   I*2  ISPAGCNT                                                 243#    
   I*2  ISWPCNT                                                  244#    
   I*2  KERNEL                                                   151#    
   I*2  KEY_SIZE                                                 147#    

   I*2  LEF                                                      227#    
   I*2  LEFO                                                     228#    
   I*2  LOCK_SIZE                                                293#      318       337       414     
   I*2  LOGNAM                                                   180#      431     
   I*2  LRPCNT                                                   306#    

   I*2  MBREADS                                                  181#      432     
   I*2  MBWRITES                                                 182#      433     
   I*2  MEM_SIZE                                                 205#      318       330       357       362       368     
							         375       384       393       403       414     
   I*2  MFYCNT                                                   203#    
   I*2  MISC_SIZE                                                197#      318       332       353       357       362     
							         368       375       384       393       403       414     
							         427       448     

   I*2  MWAIT                                                    224#    
   I*2  NET_SIZE                                                 277#      318       336       403       414     
   I*2  NUM_MODES                                                162#    
   I*2  OPEN                                                     187#      438       449     
   I*2  OPENS                                                    186#      437     

   I*2  OSWPCNT                                                  246#    
   I*2  PFW                                                      226#    
   I*2  PGFLT_SIZE                                               218#      318       334       362       368       375     
							         384       393       403       414     
   I*2  POOL_SIZE                                                313#      318       338     
   I*2  PREADIO                                                  212#    

   I*2  PREADS                                                   214#    
   I*2  PROCCNT                                                  245#    
   I*2  PWRITES                                                  215#    
   I*2  PWRITIO                                                  213#    
   I*2  QUOHIT                                                   194#      445     

   I*2  QUOMISS                                                  195#      446     
   I*2  RCVBUFFL                                                 271#    
   I*2  RDFLTS                                                   216#    
   I*2  REC_SIZE                                                 318#      339     
   I*2  RES                                                      263#    


STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   7
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

   I*2  RESPONSE_SIZE                                            262#      318       393       403       414     
   I*2  SCH_SIZE                                                 238#      318       333       368       375       384     
							         393       403       414     
   I*2  SMALLCNT                                                 304#    
   I*2  SMALLHOLE                                                303#    
   I*2  SPLIT                                                    184#      435     

   I*2  SRPCNT                                                   307#    
   CHAR STANDARD_NEST_FILE                                       133       134#    
   I*2  SUPER                                                    152#    
   I*2  SUSP                                                     231#    
   I*2  SUSPO                                                    232#    

   I*2  SWAP_SIZE                                                250#      318       331       375       384       393     
							         403       414     
   I*2  SWAP_SPARES                                              251#    
   I*2  TIME_SIZE                                                256#      318       328       384       393       403     
							         414     
   I*2  TRCNGLOS                                                 272#    
   I*2  TURN                                                     183#      434     

   I*2  USER                                                     154#    
   I*2  WAIT_EF                                                  140#    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

   I*4  ML$L_PEEK                                                429       430       431       432       433       434     
							         435       436       437       438       439       440     
							         441       442       443       444       445       446     
        PMS$GL_BUFIO                                             102       430     
        PMS$GL_DIRHIT                                            112       439     
        PMS$GL_DIRIO                                             101       429     
        PMS$GL_DIRMISS                                           113       440     

        PMS$GL_EXTHIT                                            114       441     
        PMS$GL_EXTMISS                                           115       442     
        PMS$GL_FIDHIT                                            116       443     
        PMS$GL_FIDMISS                                           117       444     
        PMS$GL_HIT                                               108       436     

        PMS$GL_LOGNAM                                            103       431     
        PMS$GL_MBREADS                                           104       432     
        PMS$GL_MBWRITES                                          105       433     
        PMS$GL_OPEN                                              111       438     
        PMS$GL_OPENS                                             110       437     

        PMS$GL_QUOHIT                                            118       445     
        PMS$GL_QUOMISS                                           119       446     
        PMS$GL_SPLIT                                             107       435     
        PMS$GL_TURN                                              106       434     

STATMISC                       					20-May-1983 10:17:50	VAX-11 FORTRAN V3.2-37              Page   8
								10-May-1983 10:15:48	[GARY.STATS.SOURCE]STATMISC.FOR;27          

  +----------------------------------------------+
  |           KEY TO REFERENCE FLAGS             |
  |   =   - Value Modified                       |
  |   #   - Defining Reference                   |
  |   A   - Actual Argument, possibly modified   |
  |   D   - Data Initialization                  |
  |  (n)  - Number of occurrences on line        |
  +----------------------------------------------+



COMMAND QUALIFIERS

  FORTRAN /DEBUG/OBJECT=OBJ:STATMISC/LIST=LIS:STATMISC/CONT=99/CROSS/NOOPT SRC:STATMISC

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(SYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /NOOPTIMIZE  /WARNINGS  /NOD_LINES  /CROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=99


COMPILATION STATISTICS

  Run Time:           3.23 seconds
  Elapsed Time:       7.83 seconds
  Page Faults:        492
  Dynamic Memory:     851 pages
