2 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comccua +++|          CTEXT  COMCCUA - COMPUTER UTILIZATION ANALYSIS ROUTINES.
00002  M01S00002.comccua +++|          SPACE  4,10
00003  M01S00003.comccua +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comccua +++|          QUAL   COMCCUA
00005  M01S00005.comccua +++|          BASE   D

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP. 1984.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comccua +++|CUA       SPACE  4,10
00009  M01S00008.comccua +++|***       CUA - COMPUTER UTILIZATION ANALYSIS ROUTINES.
00010  M01S00009.comccua +++|*
00011  M01S00010.comccua +++|*         M. L. SWANSON.     84/05/09.
00012  M01S00011.comccua +++|*         N. K. CLARK.       84/05/09.
00013  M01S00012.comccua +++|          SPACE  4,10
00014  M01S00013.comccua +++|***       *CUA* ALLOWS COMPUTER UTILIZATION ANALYSIS BY MEASURING THE
00015  M01S00014.comccua +++|*         ELAPSED TIME, CP TIME, AND MASS STORAGE ACTIVITY OF THE
00016  M01S00015.comccua +++|*         CALLING PROGRAM.  THE RESULTS ARE THEN WRITTEN TO THE SYSTEM
00017  M01S00016.comccua +++|*         DAYFILE, THE USER DAYFILE, AND THE JOB MESSAGE BUFFER.
00018  M01S00017.comccua +++|          SPACE  4,15
00019  M01S00018.comccua +++|***       DAYFILE MESSAGE.
00020  M01S00019.comccua +++|*
00021  M01S00020.comccua +++|*         1 3         14        24        34
00022  M01S00021.comccua +++|*         - TOOLNAME  ETIME     CPTIME    MSACT
00023  M01S00022.comccua +++|*
00024  M01S00023.comccua +++|*         TOOLNAME - CALLING TOOL.
00025  M01S00024.comccua +++|*         ETIME - ELAPSED TIME SINCE INITIATION OF THE TOOL
00026  M01S00025.comccua +++|*                 IN THE FORM  HH.MM.SS.
00027  M01S00026.comccua +++|*         CPTIME - CP TIME FOR THE TOOL IN SECONDS (TO 3
00028  M01S00027.comccua +++|*                 DECIMAL PLACES).
00029  M01S00028.comccua +++|*         MSACT - MASS STORAGE ACTIVITY FOR THE TOOL IN KUNS,
00030  M01S00029.comccua +++|*                 (TO 3 DECIMAL PLACES).
00031  M01S00030.comccua +++| INT      SPACE  4,10
00032  M01S00031.comccua +++|***       CALLING SEQUENCES.
00033  M01S00032.comccua +++|*
00034  M01S00033.comccua +++|*         *SYMPL* CALL -
00035  M01S00034.comccua +++|*
00036  M01S00035.comccua +++|*         INT(TOOLNAME);
00037  M01S00036.comccua +++|*
00038  M01S00037.comccua +++|*         FNL;
00039  M01S00038.comccua +++| INT      SPACE  4,15
00040  M01S00039.comccua +++|**        INT - *CUA* INITIALIZATION.
00041  M01S00040.comccua +++|*
00042  M01S00041.comccua +++|*         ENTRY  (A1) = FWA OF PARAMETER LIST.
00043  M01S00042.comccua +++|*                (X1) = ADDRESS OF TOOLNAME PARAMETER.
00044  M01S00043.comccua +++|*
00045  M01S00044.comccua +++|*         EXIT   INITIAL ACCUMULATOR VALUES SAVED.
00046  M01S00045.comccua +++|*
00047  M01S00046.comccua +++|*         USES   X - 2, 3, 6, 7.
00048  M01S00047.comccua +++|*                A - 1, 2, 6, 7.
00049  M01S00048.comccua +++|*                B - 1.
00050  M01S00049.comccua +++|*
00051  M01S00050.comccua +++|*         MACROS GETJA, RTIME, TIME.
00052  M01S00051.comccua +++|*
00053  M01S00052.comccua +++|*         XREF   COMCZTB.
00054  M01S00053.comccua +++|
00055  M01S00054.comccua +++|
00056  M01S00055.comccua +++| INT      SUBR               ENTRY/EXIT
00057  M01S00056.comccua +++|          SB1    1
00058  M01S00057.comccua +++|          SA1    X1          GET TOOLNAME PARAMETER
00059  M01S00058.comccua +++|          RJ     ZTB         SPACE FILL TOOLNAME
00060  M01S00059.comccua +++|          MX2    -12
00061  M01S00060.comccua +++|          BX7    -X2*X6      SAVE LAST 2 CHARACTERS
00062  M01S00061.comccua +++|          BX6    X2*X6       ADD TOOLNAME TO MESSAGE
00063  M01S00062.comccua +++|          SX3    2R-
00064  M01S00063.comccua +++|          BX6    X6+X3
00065  M01S00064.comccua +++|          LX6    -12
00066  M01S00065.comccua +++|          SA6    MESS
00067  M01S00066.comccua +++|          LX7    -12
00068  M01S00067.comccua +++|          SA7    A6+B1
00069  M01S00068.comccua +++|          RTIME  CUAB        INITIAL ELAPSED TIME
00070  M01S00069.comccua +++|          TIME   CUAC        INITIAL ACCUMULATE CP TIME
00071  M01S00070.comccua +++|          GETJA  CUAA        INITIAL MS ACCUMULATOR
00072  M01S00071.comccua +++|          SA2    CUAA+2
00073  M01S00072.comccua +++|          BX6    X2
00074  M01S00073.comccua +++|          SA6    CUAD        SAVE INITIAL MS ACCUMULATOR
00075  M01S00074.comccua +++|          EQ     INTX        RETURN
00076  M01S00075.comccua +++| FNL      SPACE  4,15
00077  M01S00076.comccua +++|**        FNL - COMPLETE UTILIZATION ANALYSIS PROCESS.
00078  M01S00077.comccua +++|*
00079  M01S00078.comccua +++|*         EXIT   MESSAGE ISSUED TO DAYFILE.
00080  M01S00079.comccua +++|*
00081  M01S00080.comccua +++|*         USES   X - 1, 2, 3, 4, 6, 7.
00082  M01S00081.comccua +++|*                A - 1, 2, 3, 6, 7.
00083  M01S00082.comccua +++|*                B - 1, 4.
00084  M01S00083.comccua +++|*
00085  M01S00084.comccua +++|*         MACROS ETIMES, GETJA, MESSAGE, RTIME, TIME.
00086  M01S00085.comccua +++|*
00087  M01S00086.comccua +++|*         XREF   COMCCDD, COMCCFD, COMCEDT.
00088  M01S00087.comccua +++|
00089  M01S00088.comccua +++|
00090  M01S00089.comccua +++| FNL      SUBR               ENTRY/EXIT
00091  M01S00090.comccua +++|          SB1    1
00092  M01S00091.comccua +++|          RTIME  CUAE        FINAL ELAPSED TIME
00093  M01S00092.comccua +++|          TIME   CUAF        FINAL ACCUMULATED CP TIME
00094  M01S00093.comccua +++|          GETJA  CUAA        FINAL MS ACCUMULATOR
00095  M01S00094.comccua +++|
00096  M01S00095.comccua +++|*         CALCULATE TOTAL ELAPSED TIME.
00097  M01S00096.comccua +++|
00098  M01S00097.comccua +++|          SA2    CUAB        INITIAL ELAPSED TIME
00099  M01S00098.comccua +++|          SA3    CUAE        FINAL ELAPSED TIME
00100  M01S00099.comccua +++|          IX2    X3-X2       FINAL ELAPSED TIME IN SECONDS
00101  M01S00100.comccua +++|          AX2    36
00102  M01S00101.comccua +++|
00103  M01S00102.comccua +++|*         CONVERT ELAPSED TIME TO DISPLAY CODE FORMAT  HH.MM.SS.
00104  M01S00103.comccua +++|
00105  M01S00104.comccua +++|          SX1    3600        CALCULATE ELAPSED HOURS
00106  M01S00105.comccua +++|          BX3    X2
00107  M01S00106.comccua +++|          IX7    X3/X1
00108  M01S00107.comccua +++|          SX1    3600
00109  M01S00108.comccua +++|          IX6    X7*X1
00110  M01S00109.comccua +++|          LX7    12
00111  M01S00110.comccua +++|          IX2    X2-X6       HOUR REMAINDER
00112  M01S00111.comccua +++|          SX1    60          CALCULATE ELAPSED MINUTES
00113  M01S00112.comccua +++|          BX3    X2
00114  M01S00113.comccua +++|          IX6    X3/X1
00115  M01S00114.comccua +++|          LX6    6
00116  M01S00115.comccua +++|          BX7    X7+X6
00117  M01S00116.comccua +++|          SX1    60
00118  M01S00001.ccua1   +++|          LX6    -6
00119  M01S00117.comccua +++|          IX4    X6*X1
00120  M01S00118.comccua +++|          IX6    X2-X4       ELAPSED SECONDS

Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00119.ccua1   ---|          BX7    X7+X6

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00120.ccua1   ---|          ETIME  X7          CONVERT PACKED TIME TO DISPLAY CODE
00123  M01S00002.ccua1   +++|          BX1    X7+X6
00124  M01S00003.ccua1   +++|          ETIME  X1          CONVERT PACKED TIME TO DISPLAY CODE
00125  M01S00121.comccua +++|          SA1    MESS+1      STORE ELAPSED TIME IN MESSAGE
00126  M01S00122.comccua +++|          MX2    48
00127  M01S00123.comccua +++|          BX7    X2*X6
00128  M01S00124.comccua +++|          LX7    -12
00129  M01S00125.comccua +++|          BX7    X1+X7
00130  M01S00126.comccua +++|          SA7    A1
00131  M01S00127.comccua +++|          BX6    -X2*X6
00132  M01S00128.comccua +++|          LX6    -12
00133  M01S00129.comccua +++|          SA6    A7+B1
00134  M01S00130.comccua +++|
00135  M01S00131.comccua +++|*         CALCULATE TOTAL CP TIME FOR THE TOOL IN MILLISECONDS.
00136  M01S00132.comccua +++|
00137  M01S00133.comccua +++|          SA2    CUAC        INITIAL CP TIME ACCUMULATOR
00138  M01S00134.comccua +++|          SA3    CUAF        FINAL CP TIME ACCUMULATOR
00139  M01S00135.comccua +++|          SB4    48
00140  M01S00136.comccua +++|          MX4    -24
00141  M01S00137.comccua +++|          LX7    X2,B4
00142  M01S00138.comccua +++|          LX6    X3,B4
00143  M01S00139.comccua +++|          BX7    -X4*X7      INITIAL CP TIME (SECONDS)
00144  M01S00140.comccua +++|          BX6    -X4*X6      FINAL CP TIME (SECONDS)
00145  M01S00141.comccua +++|          SX1    1000        CONVERT TO MILLISECONDS
00146  M01S00142.comccua +++|          IX7    X7*X1
00147  M01S00143.comccua +++|          IX6    X6*X1
00148  M01S00144.comccua +++|          MX4    -12
00149  M01S00145.comccua +++|          BX2    -X4*X2      CALCULATE TOTALS IN MILLISECONDS
00150  M01S00146.comccua +++|          BX3    -X4*X3
00151  M01S00147.comccua +++|          IX7    X7+X2
00152  M01S00148.comccua +++|          IX6    X6+X3
00153  M01S00149.comccua +++|          IX1    X6-X7       TOTAL CP ACTIVITY IN MILLISECONDS
00154  M01S00150.comccua +++|          RJ     CFD         CONVERT TO DISPLAY CODE
00155  M01S00151.comccua +++|          SA1    MESS+2      STORE CP TIME IN MESSAGE
00156  M01S00152.comccua +++|          MX2    48
00157  M01S00153.comccua +++|          BX7    X2*X6
00158  M01S00154.comccua +++|          LX7    -12
00159  M01S00155.comccua +++|          BX7    X1+X7
00160  M01S00156.comccua +++|          SA7    A1
00161  M01S00157.comccua +++|          BX7    -X2*X6
00162  M01S00158.comccua +++|          LX7    -12
00163  M01S00159.comccua +++|          SA7    A7+B1
00164  M01S00160.comccua +++|
00165  M01S00161.comccua +++|*         CALCULATE TOTAL MS ACTIVITY FOR THE TOOL IN KUNS.
00166  M01S00162.comccua +++|
00167  M01S00163.comccua +++|          SA2    CUAD        INITIAL MS ACCUMULATOR
00168  M01S00164.comccua +++|          SA3    CUAA+2      FINAL MS ACCUMULATOR
00169  M01S00165.comccua +++|          MX4    20
00170  M01S00166.comccua +++|          BX2    X4*X2       INITIAL MS ACCUMULATOR
00171  M01S00167.comccua +++|          BX3    X4*X3       FINAL MS ACCUMULATOR
00172  M01S00168.comccua +++|          LX2    20
00173  M01S00169.comccua +++|          LX3    20
00174  M01S00170.comccua +++|          IX1    X3-X2       TOTAL MS ACTIVITY
00175  M01S00171.comccua +++|          RJ     CFD         CONVERT TO DISPLAY CODE
00176  M01S00172.comccua +++|          SA1    MESS+3      SAVE TOTAL MS ACCUMUTATOR IN MESSAGE
00177  M01S00173.comccua +++|          MX2    48
00178  M01S00174.comccua +++|          BX7    X2*X6
00179  M01S00175.comccua +++|          LX7    -12
00180  M01S00176.comccua +++|          BX7    X1+X7
00181  M01S00177.comccua +++|          SA7    A1
00182  M01S00178.comccua +++|          BX7    -X2*X6
00183  M01S00179.comccua +++|          LX7    -12
00184  M01S00180.comccua +++|          SA7    A7+B1
00185  M01S00181.comccua +++|          MESSAGE  MESS,,R   SEND MESSAGE TO DAYFILE
00186  M01S00182.comccua +++|          EQ     FNLX        RETURN
00187  M01S00183.comccua +++|
00188  M01S00184.comccua +++|
00189  M01S00185.comccua +++| CUAA     BSSZ   5           REPLY BLOCK FOR *GETJA*
00190  M01S00186.comccua +++| CUAB     BSS    1           INITIAL ELAPSED TIME
00191  M01S00187.comccua +++| CUAC     BSS    1           INITIAL CP ACTIVITY ACCUMULATOR
00192  M01S00188.comccua +++| CUAD     BSS    1           INITIAL MS ACTIVITY ACCUMULATOR
00193  M01S00189.comccua +++| CUAE     BSS    1           FINAL ELAPSED TIME
00194  M01S00190.comccua +++| CUAF     BSS    1           FINAL CP ACTIVITY ACCUMULATOR
00195  M01S00191.comccua +++| MESS     BSSZ   6           DAYFILE MESSAGE BUFFER
00196  M01S00192.comccua +++|          SPACE  4,10
00197  M01S00193.comccua +++|          BASE   *
00198  M01S00194.comccua +++| QUAL$    IF     -DEF,QUAL$
00199  M01S00195.comccua +++|          QUAL   *
00200  M01S00196.comccua +++| INT      EQU    /COMCCUA/INT
00201  M01S00197.comccua +++| FNL      EQU    /COMCCUA/FNL
00202  M01S00198.comccua +++| QUAL$    ENDIF
00203  M01S00199.comccua +++|          ENDX
00204  M01S00200.comccua +++|