Retro1.org codex

User Tools

Site Tools

Trace: • SMFSTAT
cdc:nos2.source:opl871:smfstat

Table of Contents

SMFSTAT

Table Of Contents

Source Code

SMFSTAT.txt 
  1. *NOSEQ 
  2. *WIDTH 132
  3. .PROC,SMFSTAT.
  4. RETURN,ZZZDATA.
  5. REWIND,ZZZSTAT,TAPE2,TAPE3,TAPE4,ZZZLGO.
  6. $FSE,ZZZDATA.SUN
  7. FTN5,I=ZZZSTAT,L=0,B=ZZZLGO.
  8. ZZZLGO,ZZZDATA.
  9. REWIND,TAPE2,TAPE3,TAPE4,STATOUT.
  10. COPYSBF,TAPE4,STATOUT.
  11. COPYSBF,TAPE3,STATOUT.
  12. COPYSBF,TAPE2,STATOUT.
  13. REWIND,TAPE4.
  14. COPY,TAPE4,OUTPUT.
  15. REVERT. SMFSTAT COMPLETE.
  16. EXIT.
  17. REVERT. SMFSTAT FAILED.
  18. .DATA,ZZZSTAT.
  19.           PROGRAM SMFSTAT(TAPE1,TAPE2,TAPE3,TAPE4)
  20.  
  21.           INTEGER SCLR(49), VCTR1(18), VCTR2(18)
  22.           INTEGER VCTR3(18), VCTR4(18), VCTR5(18), VCTR6(18)
  23.  
  24.           CHARACTER*20 LBL1(18), LBL2(18), LBL3(18)
  25.           CHARACTER*20 LBL4(18), LBL5(18), LBL6(18)
  26.           CHARACTER*55 TAG(43)
  27.  
  28.           DATA (TAG(I),I=1,15) /
  29.      +      ' SURPLUS WORD, NOT ON CONSOLE DISPLAYS            ',
  30.      +      ' NUMBER OF CRITICAL IAF BUFFER SHORTAGES          ',
  31.      +      ' NUMBER OF TASK SHORTAGES                         ',
  32.      +      ' NUMBER OF SESSIONS                               ',
  33.      +      ' NUMBER OF TRANSACTIONS                           ',
  34.      +      ' TOTAL RESPONSE TIME IN MILLISECONDS              ',
  35.      +      ' TOTAL THINK TIME IN MILLISECONDS                 ',
  36.      +      ' PREEMPTIVE SWAPS TO ADVANCE TTY OUTPUT           ',
  37.      +      ' PREEMPTIVE SWAPS FOR TASK SHORTAGE               ',
  38.      +      ' PREEMTIVE SWAPS FOR IAF BUFFER SHORTAGE          ',
  39.      +      ' TTY OUTPUT FRAGMENTATION (BUFFER OVERFLOW)       ',
  40.      +      ' USER BREAKS                                      ',
  41.      +      ' USER DETACHES                                    ',
  42.      +      ' MAXIMUM USERS LOGGED IN                          ',
  43.      +      ' CURRENT NUMBER OF USERS                          ' /
  44.           DATA (TAG(I),I=16,30) /
  45.      +      ' REAL TIME CLOCK                                  ',
  46.      +      ' NUMBER OF RECALL CYCLES                          ',
  47.      +      ' NUMBER OF USER-ECS SWAPS                         ',
  48.      +      ' NUMBER OF DISK SWAPS                             ',
  49.      +      ' TOTAL SWAPPING TIME IN MILLISECONDS              ',
  50.      +      ' TOTAL CIO TIME IN MILLISECONDS                   ',
  51.      +      ' NUMBER OF CIO CALLS                              ',
  52.      +      ' NUMBER OF TRANSACTIONS CAUSING ZERO CIO CALLS    ',
  53.      +      ' NUMBER OF TRANSACTIONS CAUSING 16/MORE CIO CALLS ',
  54.      +      ' NUMBER OF CIO CALLS IN LARGE TRANSACTIONS        ',
  55.      +      ' TOTAL WORKFILE CIO CALLS FOR INITIAL BUILDS      ',
  56.      +      ' TTY INPUT WORDS                                  ',
  57.      +      ' TTY OUTPUT WORDS                                 ',
  58.      +      ' TTY OUTPUT BLOCKS                                ',
  59.      +      ' NUMBER OF OUTPUT FRAGMENTS WITH SWAP AVOIDANCE   ' /
  60.           DATA (TAG(I),I=31,43) /
  61.      +      ' TOTAL MILLSECONDS OF TASK UTILIZATION            ',
  62.      +      ' WORKFILE LINE ACCESSES                           ',
  63.      +      ' WORKFILE SECTORS READ FROM CACHE                 ',
  64.      +      ' WORKFILE SECTORS READ FROM DISK                  ',
  65.      +      ' WORKFILE DRAIN OUTPUT TO SWITCH BUFFER TO INPUT  ',
  66.      +      ' WORKFILE PURGE WRONG INPUT SECTOR                ',
  67.      +      ' WORKFILE CACHE FLUSH SEQUENCES                   ',
  68.      +      ' WORKFILE PURGE INPUT TO SWITCH BUFFER TO OUTPUT  ',
  69.      +      ' WORKFILE SECTORS WRITTEN TO DISK                 ',
  70.      +      ' WORKFILE DISCONTIGUOUS WRITE EVENTS              ',
  71.      +      ' WORKFILE PADDING SECTORS                         ',
  72.      +      ' WORKFILE CIO READ FUNCTIONS                      ',
  73.      +      ' RECALL TO MINIMIZE CPU UTILIZATION              ' /
  74.  
  75.           DATA LBL1/ ' ', ' ', 'INSTANT', '1/64 SEC', '1/32 SEC',
  76.      +      '1/16 SEC', '1/8 SEC', '1/4 SEC', '1/2 SEC', '1 SEC',
  77.      +      '1-2 SEC', '2-4 SEC', '4-8 SEC', '8-16 SEC', '16-32 SEC',
  78.      +      '32-64 SEC', '64-128 SEC', '128 OR MORE SEC' /
  79.  
  80.           DATA LBL2/ ' ', ' ', 'LESS THAN 1 SEC', '1-2 SEC',
  81.      +      '2-4', '4-8', '8-16', '16-32', '32-64', '64-128',
  82.      +      '128-256', '256-512', '512-1K', '1K - 2K', '2K - 4K',
  83.      +      '4K - 8K', '8K - 16K', '16K OR MORE' /
  84.  
  85.           DATA LBL3/ ' ', ' ', 'ZERO', '1', '2-3', '4-7',
  86.      +      '8-15', '16-31', '32-63', '64-127',
  87.      +      '128-255', '256-511', '512-1K', '1K - 2K', '2K - 4K',
  88.      +      '4K - 8K', '8K - 16K', '16K OR MORE' /
  89.  
  90.           DATA LBL4/ ' ', ' ', 'ZERO', '1', '2-3', '4-7',
  91.      +      '8-15', '16-31', '32-63', '64-127',
  92.      +      '128-255', '256-511', '512-1K', '1K - 2K', '2K - 4K',
  93.      +      '4K - 8K', '8K - 16K', '16K OR MORE' /
  94.  
  95.           DATA LBL5/ ' ', ' ', 'ZERO', '1', '2-3', '4-7',
  96.      +      '8-15', '16-31', '32-63', '64-127',
  97.      +      '128-255', '256-511', '512-1K', '1K - 2K', '2K - 4K',
  98.      +      '4K - 8K', '8K - 16K', '16K OR MORE' /
  99.  
  100.           DATA LBL6/ ' ', ' ', 'ZERO', '1', '2-3', '4-7',
  101.      +      '8-15', '16-31', '32-63', '64-127',
  102.      +      '128-255', '256-511', '512-1K', '1K - 2K', '2K - 4K',
  103.      +      '4K - 8K', '8K - 16K', '16K OR MORE' /
  104.  
  105.           READ(1,1001) SCLR, VCTR1, VCTR2, VCTR3, VCTR4,
  106.      +      VCTR5, VCTR6
  107. 1001      FORMAT( 49(O20,/), 6(O10,O10,/,4O5,/,4O5,/,4O5,/,4O5,/) )
  108.  
  109.           WRITE(3,3001) (TAG(I),SCLR(I),I=2,43)
  110. 3001      FORMAT(1X,A55,I10)
  111.  
  112.           WRITE (4,4001) SCLR(4), SCLR(5), SCLR(14)
  113. 4001      FORMAT(' SESSIONS, TRANSACTS, MAX USERS  ', 3I10)
  114.  
  115.           WRITE (4,4002) .001*FLOAT(SCLR(6))/SCLR(5)
  116. 4002      FORMAT(' AVERAGE RESPONSE TIME        ', F10.3)
  117.  
  118.           WRITE (4,4003) .001*FLOAT(SCLR(7))/SCLR(5)
  119. 4003      FORMAT(' AVERAGE THINK TIME           ', F10.3)
  120.  
  121.           WRITE (4,4004) .001*FLOAT(SCLR(21))/SCLR(22)
  122. 4004      FORMAT(' AVERAGE CIO TIME             ', F10.3)
  123.  
  124.           WRITE (4,4005) FLOAT(SCLR(22))/SCLR(5)
  125. 4005      FORMAT(' AVERAGE CIO PER TRANSACTION  ', F10.3)
  126.  
  127.           WRITE (4,4006) FLOAT(SCLR(5))/SCLR(4)
  128. 4006      FORMAT(' AVERAGE TRANSACT PER SESSION ', F10.3)
  129.  
  130.           WRITE (4,4007) FLOAT(SCLR(23))/SCLR(5)
  131. 4007      FORMAT(' FRACTION OF ZERO-CIO TRANSACT', F10.3)
  132.  
  133.           WRITE (4,4008) FLOAT(SCLR(34))/SCLR(33)
  134. 4008      FORMAT(' RATIO PRUS READ/CACHED       ', F10.3)
  135.  
  136.           WRITE (4,4009) FLOAT(SCLR(34))/SCLR(42)
  137. 4009      FORMAT(' RATIO PRUS READ/CIO CALL     ', F10.3)
  138.  
  139.           WRITE (4,4010) FLOAT(SCLR(33))/SCLR(42)
  140. 4010      FORMAT(' RATIO CACHE HITS/CIO CALL    ', F10.3)
  141.  
  142.           WRITE (4,4011) FLOAT(SCLR(27))/SCLR(5)
  143. 4011      FORMAT(' INPUT WORDS PER TRANSACT     ', F10.3)
  144.  
  145.           WRITE (4,4012) FLOAT(SCLR(28))/SCLR(5)
  146. 4012      FORMAT(' OUTPUT WORDS PER TRANSACT    ', F10.3)
  147.  
  148.           WRITE (4,4013) FLOAT(SCLR(24))/SCLR(5)
  149. 4013      FORMAT(' FRACTION OF TRANSACTS LARGE  ', F10.3)
  150.  
  151.           WRITE (4,4014) FLOAT(SCLR(25))/SCLR(22)
  152. 4014      FORMAT(' FRACTION OF CIOS, LARGE TRANS', F10.3)
  153.  
  154.           WRITE (4,4015) FLOAT(SCLR(32))/SCLR(5)
  155. 4015      FORMAT(' AVERAGE LINE ACCESSES/TRANS  ', F10.3)
  156.  
  157.           WRITE (4,4016) FLOAT(SCLR(32))/SCLR(22)
  158. 4016      FORMAT(' RATIO LINE ACCESSES TO CIOS  ', F10.3)
  159.  
  160.           WRITE (4,4017) FLOAT(SCLR(31))/SCLR(16)
  161. 4017      FORMAT(' TASK UTILIZATION FACTOR      ', F10.3)
  162.  
  163.           WRITE (4,4018) FLOAT(SCLR(30))/SCLR(11)
  164. 4018      FORMAT(' FRACTION OF MSGS UNSWAPPED   ', F10.3)
  165.  
  166.  
  167.  
  168.           WRITE(2,2051) VCTR1(1)/(64.0*VCTR1(2))
  169. 2051      FORMAT(/,' AVERAGE RESPONSE TIME PER TRANSACTION ',F10.3)
  170.  
  171.           WRITE(2,2001) (LBL1(I),VCTR1(I),I=3,18)
  172. 2001      FORMAT(/,' TRANSACTIONS PER RESPONSE TIME CATEGORY ', //,
  173.      +      16(10X,A12,I10,/) )
  174.  
  175.           WRITE(2,2052) VCTR2(1)/FLOAT(VCTR2(2))
  176. 2052      FORMAT(/,' AVERAGE THINK TIME PER TRANSACTION ',F10.3)
  177.  
  178.           WRITE(2,2002) (LBL2(I),VCTR2(I),I=3,18)
  179. 2002      FORMAT(/,' TRANSACTIONS PER THINK TIME CATEGORY ', //,
  180.      +      16(10X,A12,I10,/) )
  181.  
  182.           WRITE(2,2053) VCTR3(1)/FLOAT(VCTR3(2))
  183. 2053      FORMAT(/,' AVERAGE CIO CALLS PER TRANSACTION ',F10.3)
  184.  
  185.           WRITE(2,2003) (LBL3(I),VCTR3(I),I=3,18)
  186. 2003      FORMAT(/,' TRANSACTIONS PER CIO COUNT CATEGORY ', //,
  187.      +      16(10X,A12,I10,/) )
  188.  
  189.           WRITE(2,2054) VCTR4(1)/FLOAT(VCTR4(2))
  190. 2054      FORMAT(/,' AVERAGE TRANSACTIONS PER SESSION ',F10.3)
  191.  
  192.           WRITE(2,2004) (LBL4(I),VCTR4(I),I=3,18)
  193. 2004      FORMAT(/,' SESSIONS PER TRANSACTION COUNT CATEGORY ', //,
  194.      +      16(10X,A12,I10,/) )
  195.  
  196.           WRITE(2,2055) VCTR5(1)/FLOAT(VCTR5(2))
  197. 2055      FORMAT(/,' AVERAGE WORKFILE LINES PER SESSION ',F10.3)
  198.  
  199.           WRITE(2,2005) (LBL5(I),VCTR5(I),I=3,18)
  200. 2005      FORMAT(/,' SESSIONS PER FILE SIZE CATEGORY ', //,
  201.      +      16(10X,A12,I10,/) )
  202.  
  203.           WRITE(2,2056) VCTR6(1)/FLOAT(VCTR6(2))
  204. 2056      FORMAT(/,' AVERAGE OUTPUT MESSAGE SIZE ',F10.3)
  205.  
  206.           WRITE(2,2006) (LBL6(I),VCTR6(I),I=3,18)
  207. 2006      FORMAT(/,' TRANSACTIONS PER OUTPUT MSG SIZE CATEGORY ', //,
  208.      +      16(10X,A12,I10,/) )
  209.  
  210.           STOP
  211.           END
  212. *WEOR
cdc/nos2.source/opl871/smfstat.txt · Last modified: 2023/08/05 17:24 by Site Administrator