9 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01374  M02S01304.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
01375  M02S01305.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01376  M02S01306.v23l617 ---|      TEM$VL[NIPP+1]=SBM/SAM;        # SUBTOTAL MEAN TIME #

Seq #  *Modification Id* Act 
----------------------------+
01377  M02S01307.v23l617 ---|      VAL=DDSM$SM[DDSC$FW[PMB1]]/DDSM$SM[DDSC$FW[PMA1]];

Seq #  *Modification Id* Act 
----------------------------+
01378  M02S01308.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01379  M02S01309.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01380  M02S01310.v23l617 ---|*     PRINT INTERVAL MEAN TIME VALUES. THE TOTAL MEAN TIME VALUE

Seq #  *Modification Id* Act 
----------------------------+
01381  M02S01311.v23l617 ---|*     IS PRINTED IF LESS THAN 7 COLUMNS ARE PRINTED ON A PAGE.

Seq #  *Modification Id* Act 
----------------------------+
01382  M02S01312.v23l617 ---|*     THE SUBTOTAL MEAN TIME VALUE (COLUMN 11) IS NOT PRINTED IF

Seq #  *Modification Id* Act 
----------------------------+
01383  M02S01313.v23l617 ---|*     THE SUBTOTAL AND THE TOTAL VALUES ARE THE SAME, I.E. IF THE

Seq #  *Modification Id* Act 
----------------------------+
01384  M02S01314.v23l617 ---|*     TOTAL COLUMNS PRINTED *TCOL* VALUE IS LESS THAN 7 COLUMNS.

Seq #  *Modification Id* Act 
----------------------------+
01385  M02S01315.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01386  M02S01316.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01387  M02S01317.v23l617 ---|      IF (SUM NQ 0.0)                # THE LINE IS NON ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01388  M02S01318.v23l617 ---|        OR (VAL NQ 0.0)              # TOTAL IS NOT ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01389  M02S01319.v23l617 ---|        OR (P$LO EQ "Z")             # *Z* OPTION SPECIFIED #

Seq #  *Modification Id* Act 
----------------------------+
01390  M02S01320.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
01391  M02S01321.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01392  M02S01322.v23l617 ---|        GETMSG(TPT,MSG);

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01323.v23l617 ---|        WRITEV(MSG,CHRC,1,22,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
01394  M02S01324.v23l617 ---|        PRDTEL(LOC(TEM),FLPC,LOC(APMD[POS]));

Seq #  *Modification Id* Act 
----------------------------+
01395  M02S01325.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01396  M02S01326.v23l617 ---|        IF (NIPP LQ (DCDC-3))        # ENOUGH SPACE FOR TOTAL #

Seq #  *Modification Id* Act 
----------------------------+
01397  M02S01327.v23l617 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
01398  M02S01328.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01399  M02S01329.v23l617 ---|          CL=BCLC;

Seq #  *Modification Id* Act 
----------------------------+
01400  M02S01330.v23l617 ---|          IF (TCOL GR (DCDC-3))      # PRINT SUBTOTAL #

Seq #  *Modification Id* Act 
----------------------------+
01401  M02S01331.v23l617 ---|          THEN

Seq #  *Modification Id* Act 
----------------------------+
01402  M02S01332.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01403  M02S01333.v23l617 ---|            CL=(NIPP+1)*10 + CL;

Seq #  *Modification Id* Act 
----------------------------+
01404  M02S01334.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01405  M02S01335.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01406  M02S01336.v23l617 ---|          ELSE

Seq #  *Modification Id* Act 
----------------------------+
01407  M02S01337.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01408  M02S01338.v23l617 ---|            CL=NIPP*10 + CL;

Seq #  *Modification Id* Act 
----------------------------+
01409  M02S01339.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01410  M02S01340.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01411  M02S01341.v23l617 ---|          WRITEV(VAL,FLPC,CL+1,9,NLFC);  # PRINT TOTAL #

Seq #  *Modification Id* Act 
----------------------------+
01412  M02S01342.v23l617 ---|          WRITEV(APMD$MX[POS],FLPC,CL+10,10,NLFC);  # PRINT MAXIMUM #

Seq #  *Modification Id* Act 
----------------------------+
01413  M02S01343.v23l617 ---|          WRITEV(APMD$MN[POS],FLPC,CL+20,10,LFDC);  # PRINT MINIMUM #

Seq #  *Modification Id* Act 
----------------------------+
01414  M02S01344.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01415  M02S01345.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01416  M02S01346.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01417  M02S01347.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
01418  M02S01348.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01419  M02S01349.v23l617 ---|      RETURN;

Seq #  *Modification Id* Act 
----------------------------+
01420  M02S01350.v23l617 ---|      END  # COMMTE #

Seq #  *Modification Id* Act 
----------------------------+
01421  M02S01351.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01422  M02S01352.v23l617 ---|      TERM

Seq #  *Modification Id* Act 
----------------------------+
01423  M02S01353.v23l617 ---|PROC COMPUT((APM),(PCM),(CRH),(CRM),(CMR),VAL);

Seq #  *Modification Id* Act 
----------------------------+
01424  M02S01354.v23l617 ---|# TITLE COMPUT - COMPUTE HIT RATE FOR *PMF* HARDWARE.  #

Seq #  *Modification Id* Act 
----------------------------+
01425  M02S01355.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01426  M02S01356.v23l617 ---|      BEGIN  # COMPUT #

Seq #  *Modification Id* Act 
----------------------------+
01427  M02S01357.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01428  M02S01358.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01429  M02S01359.v23l617 ---|**    COMPUT - COMPUTE HIT RATE FOR *PMF* HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
01430  M02S01360.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01431  M02S01361.v23l617 ---|*     COMPUTE THE CACHE AND MAP HIT RATES FOR *PMF* HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
01432  M02S01362.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01433  M02S01363.v23l617 ---|*     PROC COMPUT((APM),(PCM),(CRH),(CRM),(CMR),VAL)

Seq #  *Modification Id* Act 
----------------------------+
01434  M02S01364.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01435  M02S01365.v23l617 ---|*     ENTRY      APM = ADVANCED PROCESSOR MODULE.

Seq #  *Modification Id* Act 
----------------------------+
01436  M02S01366.v23l617 ---|*                PCM = MEMORY TYPE.

Seq #  *Modification Id* Act 
----------------------------+
01437  M02S01367.v23l617 ---|*                CRH = CACHE READ HIT.

Seq #  *Modification Id* Act 
----------------------------+
01438  M02S01368.v23l617 ---|*                CRM = CACHE READ MISS.

Seq #  *Modification Id* Act 
----------------------------+
01439  M02S01369.v23l617 ---|*                CMR = *CM* READ FOR PAGE OR SEGMENT TABLE.

Seq #  *Modification Id* Act 
----------------------------+
01440  M02S01370.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01441  M02S01371.v23l617 ---|*     EXIT       VAL = COMPUTED HIT RATE.

Seq #  *Modification Id* Act 
----------------------------+
01442  M02S01372.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01443  M02S01373.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01444  M02S01374.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01445  M02S01375.v23l617 ---|*     PARAMETER LIST.

Seq #  *Modification Id* Act 
----------------------------+
01446  M02S01376.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01447  M02S01377.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01448  M02S01378.v23l617 ---|      ITEM APM        I;             # ADVANCED PROCESSOR MODEL #

Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01379.v23l617 ---|      ITEM PCM        I;             # MEMORY TYPE #

Seq #  *Modification Id* Act 
----------------------------+
01450  M02S01380.v23l617 ---|      ITEM CRH        R;             # CACHE READ HIT #

Seq #  *Modification Id* Act 
----------------------------+
01451  M02S01381.v23l617 ---|      ITEM CRM        R;             # CACHE READ MISS #

Seq #  *Modification Id* Act 
----------------------------+
01452  M02S01382.v23l617 ---|      ITEM CMR        R;             # *CM* READ #

Seq #  *Modification Id* Act 
----------------------------+
01453  M02S01383.v23l617 ---|      ITEM VAL        R;             # COMPUTED HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01454  M02S01384.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01455  M02S01385.v23l617 ---|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #

Seq #  *Modification Id* Act 
----------------------------+
01456  M02S01386.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01457  M02S01387.v23l617 ---|*CALL     COMUCPD

Seq #  *Modification Id* Act 
----------------------------+
01458  M02S01388.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01459  M02S01389.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01460  M02S01390.v23l617 ---|*     LOCAL VARIABLES.

Seq #  *Modification Id* Act 
----------------------------+
01461  M02S01391.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01392.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01393.v23l617 ---|      ITEM CRT        R;             # TOTAL CACHE READ #

Seq #  *Modification Id* Act 
----------------------------+
01464  M02S01394.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01395.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01466  M02S01396.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01397.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01468  M02S01398.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01469  M02S01399.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01470  M02S01400.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01471  M02S01401.v23l617 ---|*     BEGIN COMPUT PROC.

Seq #  *Modification Id* Act 
----------------------------+
01472  M02S01402.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01473  M02S01403.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01474  M02S01404.v23l617 ---|      CRT=CRH + CRM;

Seq #  *Modification Id* Act 
----------------------------+
01475  M02S01405.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01476  M02S01406.v23l617 ---|      IF (APM EQ 2)

Seq #  *Modification Id* Act 
----------------------------+
01477  M02S01407.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01408.v23l617 ---|        BEGIN  # COMPUTE RATIO #

Seq #  *Modification Id* Act 
----------------------------+
01479  M02S01409.v23l617 ---|        IF (CRT NQ 0)

Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01410.v23l617 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
01481  M02S01411.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01482  M02S01412.v23l617 ---|          IF (PCM EQ CACHE)

Seq #  *Modification Id* Act 
----------------------------+
01483  M02S01413.v23l617 ---|          THEN

Seq #  *Modification Id* Act 
----------------------------+
01484  M02S01414.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01485  M02S01415.v23l617 ---|            VAL=100.0*(CRH/CRT);

Seq #  *Modification Id* Act 
----------------------------+
01486  M02S01416.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01487  M02S01417.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01488  M02S01418.v23l617 ---|          ELSE                       # SEGMENT OR PAGE READ #

Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01419.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01420.v23l617 ---|            VAL=100.0*(1 - (CMR/CRT));

Seq #  *Modification Id* Act 
----------------------------+
01491  M02S01421.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01422.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01423.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01494  M02S01424.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01495  M02S01425.v23l617 ---|        ELSE                         # CACHE READ TOTAL IS ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01496  M02S01426.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01497  M02S01427.v23l617 ---|          VAL=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01498  M02S01428.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01499  M02S01429.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01500  M02S01430.v23l617 ---|        END  # COMPUTE RATIO #

Seq #  *Modification Id* Act 
----------------------------+
01501  M02S01431.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01502  M02S01432.v23l617 ---|      ELSE                           # *APM* IS 1 OR 3 #

Seq #  *Modification Id* Act 
----------------------------+
01503  M02S01433.v23l617 ---|        BEGIN  # COMPUTE RATIO #

Seq #  *Modification Id* Act 
----------------------------+
01504  M02S01434.v23l617 ---|        IF (CRH NQ 0)

Seq #  *Modification Id* Act 
----------------------------+
01505  M02S01435.v23l617 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
01506  M02S01436.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01507  M02S01437.v23l617 ---|          IF (PCM EQ CACHE)

Seq #  *Modification Id* Act 
----------------------------+
01508  M02S01438.v23l617 ---|          THEN

Seq #  *Modification Id* Act 
----------------------------+
01509  M02S01439.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01510  M02S01440.v23l617 ---|            VAL=100.0*(CRH-CRM)/CRH;

Seq #  *Modification Id* Act 
----------------------------+
01511  M02S01441.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01442.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01443.v23l617 ---|          ELSE                       # SEGMENT OR PAGE READ #

Seq #  *Modification Id* Act 
----------------------------+
01514  M02S01444.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01515  M02S01445.v23l617 ---|            VAL=100.0*(1 - (CMR/CRH));

Seq #  *Modification Id* Act 
----------------------------+
01516  M02S01446.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01517  M02S01447.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01518  M02S01448.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01519  M02S01449.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01520  M02S01450.v23l617 ---|        ELSE                         # CACHE READ HIT IS ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01521  M02S01451.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01522  M02S01452.v23l617 ---|          VAL=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01523  M02S01453.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01524  M02S01454.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01525  M02S01455.v23l617 ---|        END  # COMPUTE RATIO #

Seq #  *Modification Id* Act 
----------------------------+
01526  M02S01456.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01527  M02S01457.v23l617 ---|      RETURN;

Seq #  *Modification Id* Act 
----------------------------+
01528  M02S01458.v23l617 ---|      END  # COMPUT #
01529  M01S01459.acpd    +++|
01530  M01S01460.acpd    +++|      TERM
01531  M01S01461.acpd    +++|PROC COMPWF((WFA),(WFP),(POS),WFT,PRFLG);
01532  M01S01462.acpd    +++|# TITLE COMPWF - COMPUTE WEIGHT FACTOR.  #
01533  M01S01463.acpd    +++|
01534  M01S01464.acpd    +++|      BEGIN  # COMPWF #
01535  M01S01465.acpd    +++|
01536  M01S01466.acpd    +++|#
01537  M01S01467.acpd    +++|**    COMPWF - COMPUTE WEIGHT FACTOR.
01538  M01S01468.acpd    +++|*
01539  M01S01469.acpd    +++|*     COMPUTE WEIGHT FACTOR FOR PERCENTAGE CALCULATION.
01540  M01S01470.acpd    +++|*
01541  M01S01471.acpd    +++|*     PROC COMPWF((WFA),(WFP),(POS),WFT,PRFLG)
01542  M01S01472.acpd    +++|*
01543  M01S01473.acpd    +++|*     ENTRY      WFA = WEIGHT FACTOR INFORMATION.
01544  M01S01474.acpd    +++|*                WFP = WEIGHT FACTOR.
01545  M01S01475.acpd    +++|*                POS = RELATIVE POSITION OF THE WEIGHT FACTOR.
01546  M01S01476.acpd    +++|*
01547  M01S01477.acpd    +++|*     EXIT       WFT = COMPUTED WEIGHT FACTOR.
01548  M01S01478.acpd    +++|*                      WFT=-1.0 IF PERCENTAGE NOT TO BE PRINTED.
01549  M01S01479.acpd    +++|*                PRFLG = PROCESS FLAG.
01550  M01S01480.acpd    +++|#
01551  M01S01481.acpd    +++|
01552  M01S01482.acpd    +++|#
01553  M01S01483.acpd    +++|*     PARAMETER LIST.
01554  M01S01484.acpd    +++|#
01555  M01S01485.acpd    +++|
01556  M01S01486.acpd    +++|      ITEM WFA        U;             # WEIGHT FACTOR INFORMATION #
01557  M01S01487.acpd    +++|      ITEM WFP        U;             # WEIGHT FACTOR #
01558  M01S01488.acpd    +++|      ITEM POS        I;             # RELATIVE POSITION OF *WFP* #
01559  M01S01489.acpd    +++|      ITEM WFT        R;             # COMPUTED WEIGHT FACTOR #
01560  M01S01490.acpd    +++|      ITEM PRFLG      B;             # PROCESS FLAG #
01561  M01S01491.acpd    +++|
01562  M01S01492.acpd    +++|#
01563  M01S01493.acpd    +++|****  PROC COMPWF - XREF LIST BEGIN.
01564  M01S01494.acpd    +++|#
01565  M01S01495.acpd    +++|
01566  M01S01496.acpd    +++|      XREF
01567  M01S01497.acpd    +++|        BEGIN
01568  M01S01498.acpd    +++|        PROC CHKSPA;                 # CHECK SPECIAL ACTION #
01569  M01S01499.acpd    +++|        END
01570  M01S01500.acpd    +++|
01571  M01S01501.acpd    +++|#
01572  M01S01502.acpd    +++|****  PROC COMPWF - XREF LIST END.
01573  M01S01503.acpd    +++|#
01574  M01S01504.acpd    +++|
01575  M01S01505.acpd    +++|      DEF NPCC       #-1.0#;         # NO PERCENTAGE FLAG #
01576  M01S01506.acpd    +++|
01577  M01S01507.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
01578  M01S01508.acpd    +++|
01579  M01S01509.acpd    +++|*CALL     COMUCPD
01580  M01S01510.acpd    +++|
01581  M01S01511.acpd    +++|#
01582  M01S01512.acpd    +++|*     LOCAL VARIABLES.
01583  M01S01513.acpd    +++|#
01584  M01S01514.acpd    +++|
01585  M01S01515.acpd    +++|
01586  M01S01516.acpd    +++|      SWITCH WFAT
01587  M01S01517.acpd    +++|             WGFS,                   # WEIGHT FACTOR SPECIFIED #
01588  M01S01518.acpd    +++|             NWFS,                   # NO WEIGHT FACTOR #
01589  M01S01519.acpd    +++|             CWFS,                   # CONSTANT WEIGHT FACTOR #
01590  M01S01520.acpd    +++|             SPAS,                   # SPECIAL ACTION #
01591  M01S01521.acpd    +++|             IWFS,                   # INDIRECT WEIGHT FACTOR #
01592  M01S01522.acpd    +++|             ;                       # END OF WFAT #
01593  M01S01523.acpd    +++|
01594  M01S01524.acpd    +++|
01595  M01S01525.acpd    +++|
01596  M01S01526.acpd    +++|
01597  M01S01527.acpd    +++|
01598  M01S01528.acpd    +++|#
01599  M01S01529.acpd    +++|*     BEGIN COMPWF PROC.
01600  M01S01530.acpd    +++|#
01601  M01S01531.acpd    +++|
01602  M01S01532.acpd    +++|      P<DCHD>=LOC(DBUF);
01603  M01S01533.acpd    +++|      P<DDSC>=LOC(DDHD);
01604  M01S01534.acpd    +++|      PRFLG=TRUE;
01605  M01S01535.acpd    +++|      GOTO WFAT[WFA];
01606  M01S01536.acpd    +++|
01607  M01S01537.acpd    +++|WGFS:                                # WEIGHT FACTOR SPECIFIED #
01608  M01S01538.acpd    +++|      WFT=DCHD$WD[DDSC$FW[WFP] + POS];
01609  M01S01539.acpd    +++|      RETURN;
01610  M01S01540.acpd    +++|
01611  M01S01541.acpd    +++|NWFS:                                # NO WEIGHT FACTOR #
01612  M01S01542.acpd    +++|      WFT=NPCC;
01613  M01S01543.acpd    +++|      RETURN;
01614  M01S01544.acpd    +++|
01615  M01S01545.acpd    +++|CWFS:                                # CONSTANT WEIGHT FACTOR #
01616  M01S01546.acpd    +++|      WFT=WFP;
01617  M01S01547.acpd    +++|      IF (WFP EQ 100)                # CONSTANT FACTOR IS 100 #
01618  M01S01548.acpd    +++|      THEN                           # NO PERCENTAGE #
01619  M01S01549.acpd    +++|        BEGIN
01620  M01S01550.acpd    +++|        WFT=NPCC;
01621  M01S01551.acpd    +++|        END
01622  M01S01552.acpd    +++|
01623  M01S01553.acpd    +++|      RETURN;
01624  M01S01554.acpd    +++|
01625  M01S01555.acpd    +++|SPAS:                                # SPECIAL ACTION #
01626  M01S01556.acpd    +++|
01627  M01S01557.acpd    +++|      CHKSPA(WFP,WFT,PRFLG);
01628  M01S01558.acpd    +++|      RETURN;
01629  M01S01559.acpd    +++|
01630  M01S01560.acpd    +++|IWFS:                                # INDIRECT WEIGHT FACTOR #
01631  M01S01561.acpd    +++|      WFT=0.0;                       # TO BE COMPUTED #
01632  M01S01562.acpd    +++|      RETURN;
01633  M01S01563.acpd    +++|
01634  M01S01564.acpd    +++|#
01635  M01S01565.acpd    +++|*     END CASE.
01636  M01S01566.acpd    +++|#
01637  M01S01567.acpd    +++|
01638  M01S01568.acpd    +++|      END  # COMPWF #
01639  M01S01569.acpd    +++|
01640  M01S01570.acpd    +++|      TERM

Seq #  *Modification Id* Act 
----------------------------+
01641  M02S01571.v23l617 ---|PROC COMRAT((APM),(PCM),(TPT),(POS));

Seq #  *Modification Id* Act 
----------------------------+
01642  M02S01572.v23l617 ---|# TITLE COMRAT - COMPUTE AND PRINT HIT RATES FOR *PMF* HARDWARE.  #

Seq #  *Modification Id* Act 
----------------------------+
01643  M02S01573.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01644  M02S01574.v23l617 ---|      BEGIN  # COMRAT #

Seq #  *Modification Id* Act 
----------------------------+
01645  M02S01575.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01646  M02S01576.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01647  M02S01577.v23l617 ---|**    COMRAT - COMPUTE AND PRINT HIT RATES FOR *PMF* HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
01648  M02S01578.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01649  M02S01579.v23l617 ---|*     *COMRAT* COMPUTES INTERVAL, SUBTOTAL, AND TOTAL HIT RATES

Seq #  *Modification Id* Act 
----------------------------+
01650  M02S01580.v23l617 ---|*     FOR THE *PMF* HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
01651  M02S01581.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01652  M02S01582.v23l617 ---|*     PROC COMRAT((APM),(PCM),(TPT),(POS))

Seq #  *Modification Id* Act 
----------------------------+
01653  M02S01583.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01654  M02S01584.v23l617 ---|*     ENTRY      APM = ADVANCED PROCESSOR MODULE.

Seq #  *Modification Id* Act 
----------------------------+
01655  M02S01585.v23l617 ---|*                PCM = MEMORY TYPE.

Seq #  *Modification Id* Act 
----------------------------+
01656  M02S01586.v23l617 ---|*                TPT = REPORT TITLE POINTER.

Seq #  *Modification Id* Act 
----------------------------+
01657  M02S01587.v23l617 ---|*                POS = RELATIVE POSITION IN *APMD* TABLE.

Seq #  *Modification Id* Act 
----------------------------+
01658  M02S01588.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
01659  M02S01589.v23l617 ---|*     EXIT       THE HIT RATES FOR INTERVAL, SUBTOTAL, AND TOTAL

Seq #  *Modification Id* Act 
----------------------------+
01660  M02S01590.v23l617 ---|*                ARE COMPUTED AND PRINTED.

Seq #  *Modification Id* Act 
----------------------------+
01661  M02S01591.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01662  M02S01592.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01663  M02S01593.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01664  M02S01594.v23l617 ---|*     PARAMETER LIST.

Seq #  *Modification Id* Act 
----------------------------+
01665  M02S01595.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01666  M02S01596.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01667  M02S01597.v23l617 ---|      ITEM APM        I;             # ADVANCED PROCESSOR MODULE #

Seq #  *Modification Id* Act 
----------------------------+
01668  M02S01598.v23l617 ---|      ITEM PCM        I;             # MEMORY TYPE #

Seq #  *Modification Id* Act 
----------------------------+
01669  M02S01599.v23l617 ---|      ITEM TPT        I;             # REPORT TITLE POINTER #

Seq #  *Modification Id* Act 
----------------------------+
01670  M02S01600.v23l617 ---|      ITEM POS        I;             # POSITION IN *APMD* TABLE #

Seq #  *Modification Id* Act 
----------------------------+
01671  M02S01601.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01672  M02S01602.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01673  M02S01603.v23l617 ---|****  PROC COMRAT - XREF LIST BEGIN.

Seq #  *Modification Id* Act 
----------------------------+
01674  M02S01604.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01675  M02S01605.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01676  M02S01606.v23l617 ---|      XREF

Seq #  *Modification Id* Act 
----------------------------+
01677  M02S01607.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01678  M02S01608.v23l617 ---|        PROC COMPUT;                 # COMPUTE HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01679  M02S01609.v23l617 ---|        PROC GETMSG;                 # GET REPORT TITLE #

Seq #  *Modification Id* Act 
----------------------------+
01680  M02S01610.v23l617 ---|        PROC PRDTEL;                 # PRINT ONE ROW OF DATA VALUES #

Seq #  *Modification Id* Act 
----------------------------+
01681  M02S01611.v23l617 ---|        PROC WRITEV;                 # WRITE ONE VALUE #

Seq #  *Modification Id* Act 
----------------------------+
01682  M02S01612.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
01683  M02S01613.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01684  M02S01614.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01685  M02S01615.v23l617 ---|****  PROC COMRAT - XREF LIST END.

Seq #  *Modification Id* Act 
----------------------------+
01686  M02S01616.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01687  M02S01617.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01688  M02S01618.v23l617 ---|      DEF LISTCON    #0#;            # TURN OFF COMMON LISTING #

Seq #  *Modification Id* Act 
----------------------------+
01689  M02S01619.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01690  M02S01620.v23l617 ---|*CALL     COMUCPD

Seq #  *Modification Id* Act 
----------------------------+
01691  M02S01621.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01692  M02S01622.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01693  M02S01623.v23l617 ---|*     LOCAL VARIABLES.

Seq #  *Modification Id* Act 
----------------------------+
01694  M02S01624.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01695  M02S01625.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01696  M02S01626.v23l617 ---|      ITEM CL         I;             # PRINT COLUMN #

Seq #  *Modification Id* Act 
----------------------------+
01697  M02S01627.v23l617 ---|      ITEM CMR        R;             # *CM* READ #

Seq #  *Modification Id* Act 
----------------------------+
01698  M02S01628.v23l617 ---|      ITEM CRH        R;             # CACHE READ HIT #

Seq #  *Modification Id* Act 
----------------------------+
01699  M02S01629.v23l617 ---|      ITEM CRM        R;             # CACHE READ MISS #

Seq #  *Modification Id* Act 
----------------------------+
01700  M02S01630.v23l617 ---|      ITEM I          I;             # FOR LOOP CONTROL #

Seq #  *Modification Id* Act 
----------------------------+
01701  M02S01631.v23l617 ---|      ITEM MSG        C(50);         # REPORT TITLE #

Seq #  *Modification Id* Act 
----------------------------+
01702  M02S01632.v23l617 ---|      ITEM SCMR       R;             # SUBTOTAL *CM* READ #

Seq #  *Modification Id* Act 
----------------------------+
01703  M02S01633.v23l617 ---|      ITEM SCRH       R;             # SUBTOTAL CACHE READ HIT #

Seq #  *Modification Id* Act 
----------------------------+
01704  M02S01634.v23l617 ---|      ITEM SCRM       R;             # SUBTOTAL CACHE READ MISS #

Seq #  *Modification Id* Act 
----------------------------+
01705  M02S01635.v23l617 ---|      ITEM SUM        R;             # TEMPORARY VALUE #

Seq #  *Modification Id* Act 
----------------------------+
01706  M02S01636.v23l617 ---|      ITEM T          I;             # TEMPORARY VALUE #

Seq #  *Modification Id* Act 
----------------------------+
01707  M02S01637.v23l617 ---|      ITEM TCMR       R;             # TOTAL *CM* READ #

Seq #  *Modification Id* Act 
----------------------------+
01708  M02S01638.v23l617 ---|      ITEM TCRH       R;             # TOTAL CACHE READ HIT #

Seq #  *Modification Id* Act 
----------------------------+
01709  M02S01639.v23l617 ---|      ITEM TCRM       R;             # TOTAL CACHE READ MISS #

Seq #  *Modification Id* Act 
----------------------------+
01710  M02S01640.v23l617 ---|      ITEM VAL        R;             # TEMPORARY VALUE #

Seq #  *Modification Id* Act 
----------------------------+
01711  M02S01641.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01712  M02S01642.v23l617 ---|      ARRAY TEM [1:11] P(1);         # TEMPORARY STORAGE #

Seq #  *Modification Id* Act 
----------------------------+
01713  M02S01643.v23l617 ---|        BEGIN  # ARRAY TEM #

Seq #  *Modification Id* Act 
----------------------------+
01714  M02S01644.v23l617 ---|        ITEM TEM$VL     R(00,00,60);  # INTERVAL HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01715  M02S01645.v23l617 ---|        END  # ARRAY TEM #

Seq #  *Modification Id* Act 
----------------------------+
01716  M02S01646.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01717  M02S01647.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01718  M02S01648.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01719  M02S01649.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01720  M02S01650.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01721  M02S01651.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01722  M02S01652.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01723  M02S01653.v23l617 ---|*     BEGIN COMRAT PROC.

Seq #  *Modification Id* Act 
----------------------------+
01724  M02S01654.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01725  M02S01655.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01726  M02S01656.v23l617 ---|      P<DDSC>=LOC(DDDT);

Seq #  *Modification Id* Act 
----------------------------+
01727  M02S01657.v23l617 ---|      P<DCDT>=LOC(DBUF[DCHL]);

Seq #  *Modification Id* Act 
----------------------------+
01728  M02S01658.v23l617 ---|      P<DDSM>=LOC(DBUF[DCHL + DCDL*DCDC*2]);

Seq #  *Modification Id* Act 
----------------------------+
01729  M02S01659.v23l617 ---|      IF (PCM EQ SEGMENT)

Seq #  *Modification Id* Act 
----------------------------+
01730  M02S01660.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
01731  M02S01661.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01732  M02S01662.v23l617 ---|        T=DDSC$FW[PMB2];

Seq #  *Modification Id* Act 
----------------------------+
01733  M02S01663.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
01734  M02S01664.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01735  M02S01665.v23l617 ---|      ELSE

Seq #  *Modification Id* Act 
----------------------------+
01736  M02S01666.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01737  M02S01667.v23l617 ---|        T=DDSC$FW[PMA2];

Seq #  *Modification Id* Act 
----------------------------+
01738  M02S01668.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
01739  M02S01669.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01740  M02S01670.v23l617 ---|      SCRH=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01741  M02S01671.v23l617 ---|      SCRM=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01742  M02S01672.v23l617 ---|      SCMR=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01743  M02S01673.v23l617 ---|      SUM=0.0;

Seq #  *Modification Id* Act 
----------------------------+
01744  M02S01674.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01745  M02S01675.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01746  M02S01676.v23l617 ---|*     COMPUTE INTERVAL RATES.

Seq #  *Modification Id* Act 
----------------------------+
01747  M02S01677.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01748  M02S01678.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01749  M02S01679.v23l617 ---|      SLOWFOR I=1 STEP 1 UNTIL NIPP

Seq #  *Modification Id* Act 
----------------------------+
01750  M02S01680.v23l617 ---|      DO

Seq #  *Modification Id* Act 
----------------------------+
01751  M02S01681.v23l617 ---|        BEGIN  # COMPUTE INTERVAL HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01752  M02S01682.v23l617 ---|        CRH=DCDT$SM[DDSC$FW[PMA0] + (I-1)*DCDL];

Seq #  *Modification Id* Act 
----------------------------+
01753  M02S01683.v23l617 ---|        CRM=DCDT$SM[DDSC$FW[PMB0] + (I-1)*DCDL];

Seq #  *Modification Id* Act 
----------------------------+
01754  M02S01684.v23l617 ---|        CMR=DCDT$SM[T + (I-1)*DCDL];

Seq #  *Modification Id* Act 
----------------------------+
01755  M02S01685.v23l617 ---|        SCRH=SCRH + CRH;

Seq #  *Modification Id* Act 
----------------------------+
01756  M02S01686.v23l617 ---|        SCRM=SCRM + CRM;

Seq #  *Modification Id* Act 
----------------------------+
01757  M02S01687.v23l617 ---|        SCMR=SCMR + CMR;

Seq #  *Modification Id* Act 
----------------------------+
01758  M02S01688.v23l617 ---|        COMPUT(APM,PCM,CRH,CRM,CMR,TEM[I]);

Seq #  *Modification Id* Act 
----------------------------+
01759  M02S01689.v23l617 ---|        SUM=SUM + TEM$VL[I];

Seq #  *Modification Id* Act 
----------------------------+
01760  M02S01690.v23l617 ---|        END  # COMPUTE INTERVAL HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01761  M02S01691.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01762  M02S01692.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01763  M02S01693.v23l617 ---|*     COMPUTE SUBTOTAL AND TOTAL HIT RATES.

Seq #  *Modification Id* Act 
----------------------------+
01764  M02S01694.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01765  M02S01695.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01766  M02S01696.v23l617 ---|      COMPUT(APM,PCM,SCRH,SCRM,SCMR,TEM[NIPP+1]);  # SUBTOTAL #

Seq #  *Modification Id* Act 
----------------------------+
01767  M02S01697.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01768  M02S01698.v23l617 ---|      TCRH=DDSM$SM[DDSC$FW[PMA0]];

Seq #  *Modification Id* Act 
----------------------------+
01769  M02S01699.v23l617 ---|      TCRM=DDSM$SM[DDSC$FW[PMB0]];

Seq #  *Modification Id* Act 
----------------------------+
01770  M02S01700.v23l617 ---|      TCMR=DDSM$SM[T];

Seq #  *Modification Id* Act 
----------------------------+
01771  M02S01701.v23l617 ---|      COMPUT(APM,PCM,TCRH,TCRM,TCMR,VAL);  # TOTAL HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
01772  M02S01702.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01773  M02S01703.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01774  M02S01704.v23l617 ---|*     PRINT INTERVAL VALUES.

Seq #  *Modification Id* Act 
----------------------------+
01775  M02S01705.v23l617 ---|*     SUBTOTAL WILL NOT BE PRINTED IF LESS THAN 10 COLUMNS REPORTED.

Seq #  *Modification Id* Act 
----------------------------+
01776  M02S01706.v23l617 ---|*     TOTAL WILL NOT BE PRINTED IF MORE THAN 7 COLUMNS REPORTED ON

Seq #  *Modification Id* Act 
----------------------------+
01777  M02S01707.v23l617 ---|*     THIS PAGE.

Seq #  *Modification Id* Act 
----------------------------+
01778  M02S01708.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
01779  M02S01709.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01780  M02S01710.v23l617 ---|      IF (SUM NQ 0.0)                # THIS LINE IS NON ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01781  M02S01711.v23l617 ---|        OR (VAL NQ 0.0)              # TOTAL IS NON ZERO #

Seq #  *Modification Id* Act 
----------------------------+
01782  M02S01712.v23l617 ---|        OR (P$LO EQ "Z")             # *Z* OPTION SPECIFIED #

Seq #  *Modification Id* Act 
----------------------------+
01783  M02S01713.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
01784  M02S01714.v23l617 ---|        BEGIN  # PRINT INTERVAL VALUES #

Seq #  *Modification Id* Act 
----------------------------+
01785  M02S01715.v23l617 ---|        GETMSG(TPT,MSG);

Seq #  *Modification Id* Act 
----------------------------+
01786  M02S01716.v23l617 ---|        WRITEV(MSG,CHRC,1,22,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
01787  M02S01717.v23l617 ---|        PRDTEL(LOC(TEM),FLPC,LOC(APMD[POS]));

Seq #  *Modification Id* Act 
----------------------------+
01788  M02S01718.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01789  M02S01719.v23l617 ---|        IF (NIPP LQ (DCDC-3))        # ENOUGH SPACE FOR TOTAL #

Seq #  *Modification Id* Act 
----------------------------+
01790  M02S01720.v23l617 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
01791  M02S01721.v23l617 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01792  M02S01722.v23l617 ---|          IF (TCOL GR (DCDC-3))      # SUBTOTAL WAS PRINTED #

Seq #  *Modification Id* Act 
----------------------------+
01793  M02S01723.v23l617 ---|          THEN

Seq #  *Modification Id* Act 
----------------------------+
01794  M02S01724.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01795  M02S01725.v23l617 ---|            CL=(NIPP+1)*10 + BCLC;

Seq #  *Modification Id* Act 
----------------------------+
01796  M02S01726.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01797  M02S01727.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01798  M02S01728.v23l617 ---|          ELSE

Seq #  *Modification Id* Act 
----------------------------+
01799  M02S01729.v23l617 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01800  M02S01730.v23l617 ---|            CL=NIPP*10 + BCLC;

Seq #  *Modification Id* Act 
----------------------------+
01801  M02S01731.v23l617 ---|            END

Seq #  *Modification Id* Act 
----------------------------+
01802  M02S01732.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01803  M02S01733.v23l617 ---|          WRITEV(VAL,FLPC,CL+1,9,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
01804  M02S01734.v23l617 ---|          WRITEV(APMD$MX[POS],FLPC,CL+10,10,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
01805  M02S01735.v23l617 ---|          WRITEV(APMD$MN[POS],FLPC,CL+20,10,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
01806  M02S01736.v23l617 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
01807  M02S01737.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01808  M02S01738.v23l617 ---|        END  # PRINT INTERVAL VALUES #

Seq #  *Modification Id* Act 
----------------------------+
01809  M02S01739.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01810  M02S01740.v23l617 ---|      RETURN;

Seq #  *Modification Id* Act 
----------------------------+
01811  M02S01741.v23l617 ---|      END  # COMRAT #

Seq #  *Modification Id* Act 
----------------------------+
01812  M02S01742.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
01813  M02S01743.v23l617 ---|      TERM
01814  M01S01744.acpd    +++|PROC DATBLK(EDTM,DTDC,LSTM);
01815  M01S01745.acpd    +++|# TITLE DATBLK - PROCESS DATA BLOCK.  #
01816  M01S01746.acpd    +++|
01817  M01S01747.acpd    +++|      BEGIN  # DATBLK #
01818  M01S01748.acpd    +++|
01819  M01S01749.acpd    +++|#
01820  M01S01750.acpd    +++|**    DATBLK - PROCESS DATA BLOCK.
01821  M01S01751.acpd    +++|*
01822  M01S01752.acpd    +++|*     DATBLK PROCESSES DATA BLOCKS OF EACH FILE IN THE DATA FILE.
01823  M01S01753.acpd    +++|*
01824  M01S01754.acpd    +++|*     PROC DATBLK(EDTM,DTDC,LSTM)
01825  M01S01755.acpd    +++|*
01826  M01S01756.acpd    +++|*     ENTRY      EDTM = TRUE IF ENDING TIME REACHED,
01827  M01S01757.acpd    +++|*                       FALSE IF OTHERWISE.
01828  M01S01758.acpd    +++|*                DTDC = INDICATE IF DATA BLOCK HAS BEEN DECODED.
01829  M01S01759.acpd    +++|*                FILE IS POSITIONED AT THE FIRST DATA BLOCK RECORD.
01830  M01S01760.acpd    +++|*
01831  M01S01761.acpd    +++|*     EXIT       TIME = TRUE IF ENDING TIME REACHED.
01832  M01S01762.acpd    +++|*                LSTM = TIME OF LAST RECORD.
01833  M01S01763.acpd    +++|*                DATA FILE IS POSITIONED AT EITHER *EOI* OR
01834  M01S01764.acpd    +++|*                AT *EOF* OF THE CURRENT FILE. IF TIME IS TRUE,
01835  M01S01765.acpd    +++|*                DATA FILE IS AT THE RECORD CONTAINING THE
01836  M01S01766.acpd    +++|*                ENDING TIME.
01837  M01S01767.acpd    +++|#
01838  M01S01768.acpd    +++|
01839  M01S01769.acpd    +++|#
01840  M01S01770.acpd    +++|*     PARAMETER LIST.
01841  M01S01771.acpd    +++|#
01842  M01S01772.acpd    +++|

Seq #  *Modification Id* Act 
----------------------------+
01843  M02S01773.acpd2   ---|      ITEM EDTM       B;             # ENDING TIME FLAG #
01844  M01S00001.acpd2   +++|      ITEM EDTM       B;             # ENDING TIME OR EOI FLAG #
01845  M01S01774.acpd    +++|      ITEM DTDC       B;             # DECODE DATA BLOCK FLAG #
01846  M01S01775.acpd    +++|      ITEM LSTM       U;             # TIME IF LAST RECORD #
01847  M01S01776.acpd    +++|
01848  M01S01777.acpd    +++|#
01849  M01S01778.acpd    +++|****  PROC DATBLK - XREF LIST BEGIN.
01850  M01S01779.acpd    +++|#
01851  M01S01780.acpd    +++|
01852  M01S01781.acpd    +++|      XREF
01853  M01S01782.acpd    +++|        BEGIN
01854  M01S01783.acpd    +++|        PROC DECODE;                 # DECODE *CIO* INPUT BUFFER DATA #
01855  M01S01784.acpd    +++|        FUNC DTMNUM U;               # CONVERT DATE/TIME TO BINARY #
01856  M01S01785.acpd    +++|        PROC PERROR;                 # PROCESS ERROR #
01857  M01S01786.acpd    +++|        PROC PUTDAT;                 # PRINT DATA BLOCK ELEMENTS #
01858  M01S01787.acpd    +++|        PROC READRC;                 # READ ONE RECORD FROM DATA FILE #
01859  M01S01788.acpd    +++|        PROC WRTSUM;                 # WRITE SUMMARY FILE #
01860  M01S01789.acpd    +++|        END
01861  M01S01790.acpd    +++|
01862  M01S01791.acpd    +++|#
01863  M01S01792.acpd    +++|****  PROC DATBLK - XREF LIST END.
01864  M01S01793.acpd    +++|#
01865  M01S01794.acpd    +++|
01866  M01S01795.acpd    +++|      DEF DOTC       #TRUE#;         # FLAG #
01867  M01S01796.acpd    +++|      DEF MXVC       #1.0E10#;       # MAXIMUM VALUE #
01868  M01S01797.acpd    +++|
01869  M01S01798.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
01870  M01S01799.acpd    +++|
01871  M01S01800.acpd    +++|*CALL     COMUCPD
01872  M01S01801.acpd    +++|
01873  M01S01802.acpd    +++|#
01874  M01S01803.acpd    +++|*     LOCAL VARIABLES.
01875  M01S01804.acpd    +++|#
01876  M01S01805.acpd    +++|
01877  M01S01806.acpd    +++|      ITEM BC         I;             # BEGINNING COLUMN #
01878  M01S01807.acpd    +++|      ITEM FW         I;             # FILE WRITE TIME #
01879  M01S01808.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
01880  M01S01809.acpd    +++|      ITEM J          I;             # FOR LOOP CONTROL #
01881  M01S01810.acpd    +++|      ITEM K          I;             # FOR LOOP CONTROL #
01882  M01S01811.acpd    +++|      ITEM NS         I;             # SAMPLING FREQUENCY #
01883  M01S01812.acpd    +++|      ITEM PT         I;             # ADDRESS OF DECODED DATA BLOCK #
01884  M01S01813.acpd    +++|      ITEM STAT       I;             # I/O STATUS #
01885  M01S01814.acpd    +++|      ITEM TM         I;             # TIME OF CURRENT RECORD #
01886  M01S01815.acpd    +++|
01887  M01S01816.acpd    +++|
01888  M01S01817.acpd    +++|
01889  M01S01818.acpd    +++|
01890  M01S01819.acpd    +++|
01891  M01S01820.acpd    +++|#
01892  M01S01821.acpd    +++|*     BEGIN DATBLK PROC.
01893  M01S01822.acpd    +++|#
01894  M01S01823.acpd    +++|
01895  M01S01824.acpd    +++|      P<DCHD>=LOC(DBUF);
01896  M01S01825.acpd    +++|      P<DCDT>=LOC(DBUF[DCHL]);
01897  M01S01826.acpd    +++|      P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
01898  M01S01827.acpd    +++|      TLFG=1;                        # SUBTITLE IS TO BE PRINTED #
01899  M01S01828.acpd    +++|
01900  M01S01829.acpd    +++|#
01901  M01S01830.acpd    +++|*     DETERMINE REPORT INTERVAL LENGTH.
01902  M01S01831.acpd    +++|#
01903  M01S01832.acpd    +++|
01904  M01S01833.acpd    +++|      P<DDSC>=LOC(DDHD);
01905  M01S01834.acpd    +++|      FW=DCHD$WD[DDSC$FW[DLFW]];     # FILE WRITE TIME #

Seq #  *Modification Id* Act 
----------------------------+
01906  M02S01835.v23l617 ---|      NS=(P$IN*60)/FW;               # DATA BLOCKS PER INTERVAL #

Seq #  *Modification Id* Act 
----------------------------+
01907  M02S01836.v23l617 ---|      IF (NS LQ 0)                   # *IN* LESS THAN *FW* #

Seq #  *Modification Id* Act 
----------------------------+
01908  M02S01837.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
01909  M02S01838.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
01910  M02S01839.v23l617 ---|        PERROR(ERM10,FATAL,NULL);    # IN LESS THAN FILE WRITE TIME #

Seq #  *Modification Id* Act 
----------------------------+
01911  M02S01840.v23l617 ---|        END
01912  M01S00054.v23l617 +++|      IF (P$IN NQ 0)                 # INTERVAL TIME SPECIFIED #
01913  M01S00055.v23l617 +++|      THEN
01914  M01S00056.v23l617 +++|        BEGIN
01915  M01S00057.v23l617 +++|        NS=(P$IN*60)/FW;             # NUMBER OF RECORDS PER INTERVAL #
01916  M01S00058.v23l617 +++|        IF (NS EQ 0)                 # *IN* .LT. *FW* #
01917  M01S00059.v23l617 +++|        THEN
01918  M01S00060.v23l617 +++|          BEGIN
01919  M01S00061.v23l617 +++|          PERROR(ERM10,FATAL,NULL);  # IN LESS THAN FILE WRITE TIME #
01920  M01S00062.v23l617 +++|          END
01921  M01S00063.v23l617 +++|
01922  M01S00064.v23l617 +++|        END
01923  M01S00065.v23l617 +++|
01924  M01S00066.v23l617 +++|      ELSE
01925  M01S00067.v23l617 +++|        BEGIN
01926  M01S00068.v23l617 +++|        NS=P$IC;                     # NUMBER OF RECORDS PER INTERVAL #
01927  M01S00069.v23l617 +++|        END
01928  M01S01841.acpd    +++|
01929  M01S01842.acpd    +++|      IF (DTDC)                      # FIRST DATA BLOCK DECODED #
01930  M01S01843.acpd    +++|      THEN
01931  M01S01844.acpd    +++|        BEGIN
01932  M01S01845.acpd    +++|        BC=2;                        # COLLECT NEXT SAMPLE #
01933  M01S01846.acpd    +++|        ACNS=1;
01934  M01S01847.acpd    +++|        TM=P$BT;
01935  M01S01848.acpd    +++|        DTDC=FALSE;
01936  M01S01849.acpd    +++|        END
01937  M01S01850.acpd    +++|
01938  M01S01851.acpd    +++|      ELSE                           # NOT DECODED #
01939  M01S01852.acpd    +++|        BEGIN
01940  M01S01853.acpd    +++|        BC=1;                        # COLLECT FIRST SAMPLE #
01941  M01S01854.acpd    +++|        ACNS=0;

Seq #  *Modification Id* Act 
----------------------------+
01942  M02S01855.ns2786  ---|        TM=(DTMNUM(DCHD$WD[DDSC$FW[DATE]],DOTC) - Y70C)*SHFC;

Seq #  *Modification Id* Act 
----------------------------+
01943  M02S01856.ns2786  ---|        TM=TM + DTMNUM(DCHD$WD[DDSC$FW[TIME]],DOTC);
01944  M01S00007.ns2786  +++|        TM=DTMNUM(DCHD$WD[DDSC$FW[DATE]],DOTC,TRUE)*SHFC;
01945  M01S00008.ns2786  +++|        TM=TM + DTMNUM(DCHD$WD[DDSC$FW[TIME]],DOTC,FALSE);
01946  M01S01857.acpd    +++|        END
01947  M01S01858.acpd    +++|
01948  M01S01859.acpd    +++|#
01949  M01S01860.acpd    +++|*     PROCESS DATA BLOCKS UNTIL EITHER END OF
01950  M01S01861.acpd    +++|*     CURRENT FILE OR END TIME IS REACHED.
01951  M01S01862.acpd    +++|#
01952  M01S01863.acpd    +++|
01953  M01S01864.acpd    +++|      PT=LOC(DCDT);
01954  M01S01865.acpd    +++|      P<DDSC>=LOC(DDDT);
01955  M01S01866.acpd    +++|      STAT=EORC;
01956  M01S01867.acpd    +++|      TCOL=0;                        # TOTAL NUMBER OF COLUMNS #
01957  M01S01868.acpd    +++|
01958  M01S01869.acpd    +++|      SLOWFOR K=1 STEP 1 WHILE (STAT EQ EORC) AND (P$ET GR TM)
01959  M01S01870.acpd    +++|      DO
01960  M01S01871.acpd    +++|        BEGIN  # COLLECT DATA #
01961  M01S01872.acpd    +++|
01962  M01S01873.acpd    +++|#
01963  M01S01874.acpd    +++|*     COLLECT DATA FOR 10 COLUMNS AND PUT THEM IN THE DECODED
01964  M01S01875.acpd    +++|*     DATA BLOCK BUFFER *DCDT*. *PT* IS THE ADDRESS OF WHERE THE
01965  M01S01876.acpd    +++|*     DECODED DATA ARE TO BE STORED IN *DCDT*. FOR EACH COLUMN, THE
01966  M01S01877.acpd    +++|*     NUMBER OF DATA BLOCKS NEEDED TO COLLECT IS DETERMINED BY *NS*.
01967  M01S01878.acpd    +++|#
01968  M01S01879.acpd    +++|
01969  M01S01880.acpd    +++|        SLOWFOR I=1 STEP 1 UNTIL DCDC
01970  M01S01881.acpd    +++|        DO
01971  M01S01882.acpd    +++|          BEGIN  # PROCESS 10 COLUMNS #
01972  M01S01883.acpd    +++|          SLOWFOR J=BC STEP 1 UNTIL NS
01973  M01S01884.acpd    +++|          DO
01974  M01S01885.acpd    +++|            BEGIN  # COLLECT DATA FOR THE I-TH COLUMN #
01975  M01S01886.acpd    +++|            IF (IBWA GQ IBNW)        # INPUT BUFFER EXHAUSTED #
01976  M01S01887.acpd    +++|            THEN
01977  M01S01888.acpd    +++|              BEGIN  # GET NEXT RECORD #
01978  M01S01889.acpd    +++|              READRC(STAT);          # READ NEXT RECORD #
01979  M01S01890.acpd    +++|              IF (STAT NQ EORC)      # EOF OR EOI #
01980  M01S01891.acpd    +++|              THEN
01981  M01S01892.acpd    +++|                BEGIN
01982  M01S01893.acpd    +++|                TEST K;              # END OF CURRENT FILE #
01983  M01S01894.acpd    +++|                END
01984  M01S01895.acpd    +++|
01985  M01S01896.acpd    +++|              IBWA=0;                # RESET INPUT BUFFER POINTER #
01986  M01S01897.acpd    +++|              END  # GET NEXT RECORD #
01987  M01S01898.acpd    +++|
01988  M01S01899.acpd    +++|            DECODE(LOC(DATT),PT);    # DECODE DATA BLOCK #
01989  M01S01900.acpd    +++|            ACNS=ACNS+1;             # NUMBER OF DATA BLOCKS DECODED #
01990  M01S01901.acpd    +++|            TM=DCDT$WD[(I-1)*DCDL + DDSC$FW[PDTM]];  # GET TIME #
01991  M01S01902.acpd    +++|            IF (TM GQ P$ET)          # CURRENT TIME GREATER THAN #
01992  M01S01903.acpd    +++|            THEN                     # ENDING TIME #
01993  M01S01904.acpd    +++|              BEGIN
01994  M01S01905.acpd    +++|              TEST K;                # ENDING TIME REACHED #
01995  M01S01906.acpd    +++|              END
01996  M01S01907.acpd    +++|
01997  M01S01908.acpd    +++|            END  # COLLECT DATA FOR THE I-TH COLUMN #
01998  M01S01909.acpd    +++|
01999  M01S01910.acpd    +++|          BC=1;
02000  M01S01911.acpd    +++|          TCOL=TCOL+1;
02001  M01S01912.acpd    +++|          PT=PT+DCDL;                # NEXT BUFFER ADDRESS #
02002  M01S01913.acpd    +++|          END  # PROCESS 10 COLUMNS #
02003  M01S01914.acpd    +++|
02004  M01S01915.acpd    +++|#
02005  M01S01916.acpd    +++|*     DATA OF THE FAST, MEDIUM, SLOW, AND SNAPSHOT LOOPS FOR 10
02006  M01S01917.acpd    +++|*     COLUMNS HAVE BEEN DECODED AND SAVED IN DECODED DATA BLOCK
02007  M01S01918.acpd    +++|*     BUFFER *DCDT*. NOW PRINT THE DATA TO THE REPORT FILE AND
02008  M01S01919.acpd    +++|*     THE SUMMARY FILE IF THE SUMMARY FILE IS SPECIFIED.
02009  M01S01920.acpd    +++|#
02010  M01S01921.acpd    +++|
02011  M01S01922.acpd    +++|        PUTDAT(NS,DCDC);             # COMPUTE DATA BLOCK ELEMENTS #
02012  M01S01923.acpd    +++|        IF (P$S NQ NULL)             # SUMMARY FILE SPECIFIED #
02013  M01S01924.acpd    +++|        THEN
02014  M01S01925.acpd    +++|          BEGIN
02015  M01S01926.acpd    +++|          WRTSUM(DCDC);              # WRITE SUMMARY FILE #
02016  M01S01927.acpd    +++|          END
02017  M01S01928.acpd    +++|
02018  M01S01929.acpd    +++|#
02019  M01S01930.acpd    +++|*     REINITIALIZE THE DECODED DATA BLOCK BUFFER FOR NEXT
02020  M01S01931.acpd    +++|*     COLLECTION OF DATA.
02021  M01S01932.acpd    +++|#
02022  M01S01933.acpd    +++|
02023  M01S01934.acpd    +++|        PT=LOC(DCDT);
02024  M01S01935.acpd    +++|        SLOWFOR I=0 STEP 1 UNTIL DCDC*DCDL*2 - 1
02025  M01S01936.acpd    +++|        DO
02026  M01S01937.acpd    +++|          BEGIN
02027  M01S01938.acpd    +++|          DCDT$WD[I]=0;
02028  M01S01939.acpd    +++|          END
02029  M01S01940.acpd    +++|
02030  M01S01941.acpd    +++|        END  # COLLECT DATA #
02031  M01S01942.acpd    +++|
02032  M01S01943.acpd    +++|#
02033  M01S01944.acpd    +++|*     PROCESS END CASE.
02034  M01S01945.acpd    +++|*     THE NUMBER OF COLUMNS MAY NOT BE 10, AND THE NUMBER OF DATA
02035  M01S01946.acpd    +++|*     BLOCKS COLLECTED FOR THE LAST COLUMN MAY NOT BE *NS*.
02036  M01S01947.acpd    +++|#
02037  M01S01948.acpd    +++|
02038  M01S01949.acpd    +++|      IF (STAT NQ EORC)              # EOF OR EOI #
02039  M01S01950.acpd    +++|      THEN
02040  M01S01951.acpd    +++|        BEGIN
02041  M01S01952.acpd    +++|        J=J-1;
02042  M01S01953.acpd    +++|        END
02043  M01S01954.acpd    +++|
02044  M01S01955.acpd    +++|#
02045  M01S01956.acpd    +++|*     IF LAST COLUMN DOES NOT HAVE ENOUGH BLOCKS, IGNORE LAST
02046  M01S01957.acpd    +++|*     COLUMN.
02047  M01S01958.acpd    +++|#
02048  M01S01959.acpd    +++|
02049  M01S01960.acpd    +++|      IF (J LS NS)                   # NOT ENOUGH BLOCKS #
02050  M01S01961.acpd    +++|      THEN
02051  M01S01962.acpd    +++|        BEGIN  # IGNORE LAST INCOMPLETED COLUMN #
02052  M01S01963.acpd    +++|        I=I-1;
02053  M01S01964.acpd    +++|        IF (I EQ 0)                  # ONLY ONE COLUMN COLLECTED #
02054  M01S01965.acpd    +++|        THEN
02055  M01S01966.acpd    +++|          BEGIN
02056  M01S01967.acpd    +++|          I=1;
02057  M01S01968.acpd    +++|          NS=J;
02058  M01S01969.acpd    +++|          END
02059  M01S01970.acpd    +++|
02060  M01S01971.acpd    +++|        END  # IGNORE LAST INCOMPLETED COLUMN #
02061  M01S01972.acpd    +++|
02062  M01S01973.acpd    +++|      IF (NS GR 0)                   # LAST COLUMN HAS DATA #
02063  M01S01974.acpd    +++|      THEN
02064  M01S01975.acpd    +++|        BEGIN
02065  M01S01976.acpd    +++|        PUTDAT(NS,I);                # PROCESS LAST COLLECTION #
02066  M01S01977.acpd    +++|        IF (P$S NQ NULL)             # SUMMARY FILE SPECIFIED #
02067  M01S01978.acpd    +++|        THEN                         # WRITE SUMMARY FILE #
02068  M01S01979.acpd    +++|          BEGIN
02069  M01S01980.acpd    +++|          WRTSUM(I);
02070  M01S01981.acpd    +++|          END
02071  M01S01982.acpd    +++|
02072  M01S01983.acpd    +++|        END
02073  M01S01984.acpd    +++|
02074  M01S01985.acpd    +++|      IF (I GR (DCDC-3))             # MORE THAN 7 COLUMNS COLLECTED #
02075  M01S01986.acpd    +++|        OR (NS EQ 0)                 # NO BLOCK WAS COLLECTED #
02076  M01S01987.acpd    +++|      THEN                           # PRINT TOTAL ON NEXT PAGE #
02077  M01S01988.acpd    +++|        BEGIN
02078  M01S01989.acpd    +++|        PUTDAT(NS,0);                # PRINT TOTAL #
02079  M01S01990.acpd    +++|        END
02080  M01S01991.acpd    +++|
02081  M01S01992.acpd    +++|#
02082  M01S01993.acpd    +++|*     THE CURRENT FILE IS DONE. CHECK IF THERE IS ANOTHER FILE
02083  M01S01994.acpd    +++|*     TO REPORT.
02084  M01S01995.acpd    +++|#
02085  M01S01996.acpd    +++|
02086  M01S01997.acpd    +++|      IF (P$ET LQ TM)                # ENDING TIME REACHED #
02087  M01S00002.acpd2   +++|        OR (STAT EQ EOIC)            # EOI ENCOUNTERED ON FILE #
02088  M01S01998.acpd    +++|      THEN
02089  M01S01999.acpd    +++|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
02090  M02S02000.acpd2   ---|        EDTM=TRUE;                   # ENDING TIME REACHED #
02091  M01S00003.acpd2   +++|        EDTM=TRUE;                   # ENDING TIME REACHED OR EOI #
02092  M01S02001.acpd    +++|        END
02093  M01S02002.acpd    +++|
02094  M01S02003.acpd    +++|      ELSE                           # DONE WITH THE CURRENT FILE #
02095  M01S02004.acpd    +++|        BEGIN
02096  M01S02005.acpd    +++|        LSTM=TM;                     # TIME OF LAST RECORD #
02097  M01S02006.acpd    +++|        END
02098  M01S02007.acpd    +++|
02099  M01S02008.acpd    +++|      RETURN;

Proceed to Part 2