9 Modifications

Seq #  *Modification Id* Act 
----------------------------+
04251  M01S04119.acpd    +++|*     PRINT SAMPLE TIMES. *NIPP* IS THE NUMBER OF COLUMNS PER PAGE.
04252  M01S04120.acpd    +++|#
04253  M01S04121.acpd    +++|
04254  M01S04122.acpd    +++|      J=BCLC;                        # STARTING POSITION TO PRINT #
04255  M01S04123.acpd    +++|      SUM=0;
04256  M01S04124.acpd    +++|      P<DDSC>=LOC(DDDT);
04257  M01S04125.acpd    +++|
04258  M01S04126.acpd    +++|      SLOWFOR I=1 STEP 1 UNTIL NIPP
04259  M01S04127.acpd    +++|      DO
04260  M01S04128.acpd    +++|        BEGIN
04261  M01S04129.acpd    +++|        SM=DCDT$WD[(I-1)*DCDL + DDSC$FW[PT]];
04262  M01S04130.acpd    +++|        WRITEV(SM,INTC,J,10,NLFC);
04263  M01S04131.acpd    +++|        SUM=SUM+SM;
04264  M01S04132.acpd    +++|        J=J+10;
04265  M01S04133.acpd    +++|        END
04266  M01S04134.acpd    +++|
04267  M01S04135.acpd    +++|      IF (NIPP GR (DCDC-3))          # MORE THAN 7 COLUMNS #
04268  M01S04136.acpd    +++|      THEN                           # NO TOTAL ON THIS PAGE #
04269  M01S04137.acpd    +++|        BEGIN
04270  M01S04138.acpd    +++|        WRITEV(SUM,INTC,J,10,LFDC);  # PRINT SUBTOTAL #
04271  M01S04139.acpd    +++|        END
04272  M01S04140.acpd    +++|
04273  M01S04141.acpd    +++|      ELSE                           # PRINT TOTAL ON SAME PAGE #
04274  M01S04142.acpd    +++|        BEGIN
04275  M01S04143.acpd    +++|        IF (NIPP GR 0)               # MORE THAN 1 COLUMN COLLECTED #
04276  M01S04144.acpd    +++|          AND (TCOL GR (DCDC-3))
04277  M01S04145.acpd    +++|        THEN                         # PRINT SUBTOTAL #
04278  M01S04146.acpd    +++|          BEGIN
04279  M01S04147.acpd    +++|          WRITEV(SUM,INTC,J,10,NLFC);
04280  M01S04148.acpd    +++|          J=J+10;
04281  M01S04149.acpd    +++|          END
04282  M01S04150.acpd    +++|
04283  M01S04151.acpd    +++|        SUM=DDSM$IM[DDSC$FW[PT]];    # TOTAL SAMPLES #
04284  M01S04152.acpd    +++|        WRITEV(SUM,INTC,J,10,LFDC);
04285  M01S04153.acpd    +++|        END
04286  M01S04154.acpd    +++|
04287  M01S04155.acpd    +++|#
04288  M01S04156.acpd    +++|*     COMPUTE AND PRINT LOOP ELEMENTS.
04289  M01S04157.acpd    +++|*     THE PROCESSING OF THE LOOP ELEMENTS WILL FOLLOW THE
04290  M01S04158.acpd    +++|*     INSTRUCTIONS CONTAINED IN THE *DSPT* TABLE FROM
04291  M01S04159.acpd    +++|*     *FWA* TO *LWA*.
04292  M01S04160.acpd    +++|#
04293  M01S04161.acpd    +++|
04294  M01S04162.acpd    +++|      CT=FWA+1;
04295  M01S04163.acpd    +++|      FASTFOR I=0 WHILE (CT LQ LWA)
04296  M01S04164.acpd    +++|      DO
04297  M01S04165.acpd    +++|        BEGIN  # FOLLOW TABLE *DSPT* #
04298  M01S04166.acpd    +++|        PT=DSPT$PT[CT];              # POINTER TO *DDSC* TABLE #
04299  M01S04167.acpd    +++|        IF NOT (DDSC$SD[PT])         # ELEMENT IS NOT SELECTED #
04300  M01S04168.acpd    +++|        THEN
04301  M01S04169.acpd    +++|          BEGIN
04302  M01S04170.acpd    +++|          CT=CT+1;
04303  M01S04171.acpd    +++|          TEST I;                    # SKIP IT #
04304  M01S04172.acpd    +++|          END
04305  M01S04173.acpd    +++|
04306  M01S04174.acpd    +++|        ST=DSPT$ST[CT];              # POINTER TO SUBTITLE TABLE #
04307  M01S04175.acpd    +++|        GETMSG(CT,MS1);
04308  M01S04176.acpd    +++|        WA=DDSC$WA[PT];              # WEIGHT FACTOR INFORMATION #
04309  M01S04177.acpd    +++|        WP=DDSC$WP[PT];              # WEIGHT FACTOR #
04310  M01S04178.acpd    +++|        IF (WA EQ WGFC)              # WEIGHT FACTOR SPECIFIED #
04311  M01S04179.acpd    +++|        THEN
04312  M01S04180.acpd    +++|          BEGIN  # CHECK IF MULTIPLE WEIGHT FACTORS #
04313  M01S04181.acpd    +++|          P<DDSC>=LOC(DDHD);
04314  M01S04182.acpd    +++|          IF (DDSC$LN[WP] GR 1)      # MORE THAN 1 WEIGHT FACTOR #
04315  M01S04183.acpd    +++|          THEN
04316  M01S04184.acpd    +++|            BEGIN
04317  M01S04185.acpd    +++|            WIC=DDSC$IC[WP];         # WEIGHT FACTOR INCREMENTOR #
04318  M01S04186.acpd    +++|            END
04319  M01S04187.acpd    +++|
04320  M01S04188.acpd    +++|          ELSE
04321  M01S04189.acpd    +++|            BEGIN
04322  M01S04190.acpd    +++|            WIC=0;
04323  M01S04191.acpd    +++|            END
04324  M01S04192.acpd    +++|
04325  M01S04193.acpd    +++|          P<DDSC>=LOC(DDDT);
04326  M01S04194.acpd    +++|          END  # CHECK IF MULTIPLE WEIGHT FACTORS #
04327  M01S04195.acpd    +++|
04328  M01S04196.acpd    +++|        TY=DDSC$TY[PT];              # DATA TYPE #
04329  M01S04197.acpd    +++|        FW=DDSC$FW[PT];              # POINTER TO *DCDT* TABLE #
04330  M01S04198.acpd    +++|        LN=DDSC$LN[PT];              # NUMBER OF ENTRIES #
04331  M01S04199.acpd    +++|        IC=DDSC$IC[PT];              # INCREMENTOR #
04332  M01S04200.acpd    +++|
04333  M01S04201.acpd    +++|#
04334  M01S04202.acpd    +++|*     IF THE POINTER TO SUBBLOCK TITLE TABLE *ST* IS NIL (*NSBC*),
04335  M01S04203.acpd    +++|*     THE ELEMENT IS A SINGLE ENTRY ELEMENT OR HAS NO SUBTITLES.
04336  M01S04204.acpd    +++|#
04337  M01S04205.acpd    +++|
04338  M01S04206.acpd    +++|
04339  M01S04207.acpd    +++|        IF (ST EQ NSBC)              # SINGLE ENTRY OR NO SUBTITLE #
04340  M01S04208.acpd    +++|        THEN
04341  M01S04209.acpd    +++|          BEGIN  # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT #
04342  M01S04210.acpd    +++|          FG=FALSE;                  # DO NOT PRINT SUBBLOCK TITLE #
04343  M01S04211.acpd    +++|          POS=0;                     # FIRST WEIGHT FACTOR POSITION #
04344  M01S04212.acpd    +++|          SLOWFOR J=1 STEP 1 WHILE (J LS LN)
04345  M01S04213.acpd    +++|          DO
04346  M01S04214.acpd    +++|            BEGIN
04347  M01S04215.acpd    +++|            DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF);
04348  M01S04216.acpd    +++|            CT=CT+1;
04349  M01S04217.acpd    +++|            GETMSG(CT,MS1);
04350  M01S04218.acpd    +++|            FW=FW+IC;
04351  M01S04219.acpd    +++|            POS=POS+WIC;
04352  M01S04220.acpd    +++|            END
04353  M01S04221.acpd    +++|
04354  M01S04222.acpd    +++|          DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF);
04355  M01S04223.acpd    +++|          END  # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT #
04356  M01S04224.acpd    +++|
04357  M01S04225.acpd    +++|#
04358  M01S04226.acpd    +++|*     THE ELEMENT HAS SUBTITLES TO BE PROCESS. EACH ENTRY OF THE
04359  M01S04227.acpd    +++|*     MULTIPLE-ENTRY ELEMENT HAS A SUBTITLE DEFINED IN TABLE *SMGT*.
04360  M01S04228.acpd    +++|#
04361  M01S04229.acpd    +++|
04362  M01S04230.acpd    +++|        ELSE
04363  M01S04231.acpd    +++|          BEGIN  # MULTIPLE ENTRIES #
04364  M01S04232.acpd    +++|          T=ST;
04365  M01S04233.acpd    +++|          FG=TRUE;                   # PRINT SUBBLOCK #
04366  M01S04234.acpd    +++|          POS=0;
04367  M01S04235.acpd    +++|          FASTFOR J=1 STEP 1 UNTIL LN
04368  M01S04236.acpd    +++|          DO
04369  M01S04237.acpd    +++|            BEGIN  # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT #
04370  M01S04238.acpd    +++|            MS2$MS[1]=SMGT$TX[T];
04371  M01S04239.acpd    +++|            IF (MS2$MS[1] EQ BLKC)   # END OF SUBBLOCK TABLE #
04372  M01S04240.acpd    +++|            THEN
04373  M01S04241.acpd    +++|              BEGIN
04374  M01S04242.acpd    +++|              T=ST;                  # RESET *SMGT* POINTER #
04375  M01S04243.acpd    +++|              CT=CT+1;               # NEXT *DSPT* ELEMENT #
04376  M01S04244.acpd    +++|              GETMSG(CT,MS1);
04377  M01S04245.acpd    +++|              MS2$MS[1]=SMGT$TX[T];
04378  M01S04246.acpd    +++|              FG=TRUE;               # PRINT SUBBLOCK #
04379  M01S04247.acpd    +++|              END
04380  M01S04248.acpd    +++|
04381  M01S04249.acpd    +++|            DATELM(FG,MS1,MS2,WA,WP,POS,TY,FW,NSF);
04382  M01S04250.acpd    +++|
04383  M01S04251.acpd    +++|            T=T+1;
04384  M01S04252.acpd    +++|            FW=FW+IC;
04385  M01S04253.acpd    +++|            POS=POS+WIC;
04386  M01S04254.acpd    +++|            END  # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT #
04387  M01S04255.acpd    +++|
04388  M01S04256.acpd    +++|          END  # MULTIPLE ENTRIES #
04389  M01S04257.acpd    +++|
04390  M01S04258.acpd    +++|        CT=CT+1;
04391  M01S04259.acpd    +++|        END  # FOLLOW TABLE *DSPT* #
04392  M01S04260.acpd    +++|
04393  M01S04261.acpd    +++|      END  # PUTBLK #
04394  M01S04262.acpd    +++|
04395  M01S04263.acpd    +++|      TERM
04396  M01S04264.acpd    +++|PROC PUTDAT((NSF),(NIN));
04397  M01S04265.acpd    +++|# TITLE PUTDAT - PRINT DATA BLOCK ELEMENTS.  #
04398  M01S04266.acpd    +++|
04399  M01S04267.acpd    +++|      BEGIN  # PUTDAT #
04400  M01S04268.acpd    +++|
04401  M01S04269.acpd    +++|#
04402  M01S04270.acpd    +++|**    PUTDAT - PRINT DATA BLOCK ELEMENTS.
04403  M01S04271.acpd    +++|*
04404  M01S04272.acpd    +++|*     PRINT FAST, MEDIUM, SLOW, AND SNAPSHOT LOOPS.
04405  M01S04273.acpd    +++|*
04406  M01S04274.acpd    +++|*     PROC PUTDAT((NSF),(NIN))
04407  M01S04275.acpd    +++|*
04408  M01S04276.acpd    +++|*     ENTRY      NSF = NUMBER OF RECORDS PER INTERVAL.
04409  M01S04277.acpd    +++|*                NIN = NUMBER OF INTERVALS PER PAGE.
04410  M01S04278.acpd    +++|*                TABLE *DCDT* CONTAINS DATA BLOCK ELEMENT VALUES.
04411  M01S04279.acpd    +++|*
04412  M01S04280.acpd    +++|*     EXIT       DATA BLOCK ELEMENTS ARE PRINTED TO THE REPORT
04413  M01S04281.acpd    +++|*                FILE.
04414  M01S04282.acpd    +++|#
04415  M01S04283.acpd    +++|
04416  M01S04284.acpd    +++|#
04417  M01S04285.acpd    +++|*     PARAMETER LIST.
04418  M01S04286.acpd    +++|#
04419  M01S04287.acpd    +++|
04420  M01S04288.acpd    +++|      ITEM NSF        I;             # NUMBER OF RECORDS PER INTERVAL #
04421  M01S04289.acpd    +++|      ITEM NIN        I;             # NUMBER OF INTERVALS PER PAGE #
04422  M01S04290.acpd    +++|
04423  M01S04291.acpd    +++|#
04424  M01S04292.acpd    +++|****  PROC PUTDAT - XREF LIST BEGIN.
04425  M01S04293.acpd    +++|#
04426  M01S04294.acpd    +++|
04427  M01S04295.acpd    +++|      XREF
04428  M01S04296.acpd    +++|        BEGIN
04429  M01S04297.acpd    +++|        PROC PUTBLK;                 # PRINT ONE LOOP DATA ELEMENTS #

Seq #  *Modification Id* Act 
----------------------------+
04430  M02S04298.v23l617 ---|        PROC PUTPMF;                 # PRINT *PMF* HARDWARE RATIOS #
04431  M01S04299.acpd    +++|        PROC PUTSNS;                 # PRINT SNAPSHOT LOOP ELEMENTS #
04432  M01S04300.acpd    +++|        PROC RPEJECT;                # PAGE EJECT #
04433  M01S04301.acpd    +++|        PROC WRITEV;                 # WRITE DATA ELEMENT #
04434  M01S04302.acpd    +++|        END
04435  M01S04303.acpd    +++|
04436  M01S04304.acpd    +++|#
04437  M01S04305.acpd    +++|****  PROC PUTDAT - XREF LIST END.
04438  M01S04306.acpd    +++|#
04439  M01S04307.acpd    +++|
04440  M01S04308.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
04441  M01S04309.acpd    +++|
04442  M01S04310.acpd    +++|*CALL     COMUCPD
04443  M01S04311.acpd    +++|
04444  M01S04312.acpd    +++|#
04445  M01S04313.acpd    +++|*     LOCAL VARIABLES.
04446  M01S04314.acpd    +++|#
04447  M01S04315.acpd    +++|
04448  M01S04316.acpd    +++|      ITEM FW         I;             # LOOP BEGINNING INDEX #
04449  M01S04317.acpd    +++|      ITEM LW         I;             # LOOP ENDING INDEX #
04450  M01S04318.acpd    +++|      ITEM MSG        C(30)="**********************";
04451  M01S04319.acpd    +++|                                     # LOOP REPORT SEPARATOR #
04452  M01S04320.acpd    +++|
04453  M01S04321.acpd    +++|
04454  M01S04322.acpd    +++|
04455  M01S04323.acpd    +++|
04456  M01S04324.acpd    +++|
04457  M01S04325.acpd    +++|#
04458  M01S04326.acpd    +++|*     BEGIN PUTDAT PROC.
04459  M01S04327.acpd    +++|#
04460  M01S04328.acpd    +++|
04461  M01S04329.acpd    +++|      NIPP=NIN;
04462  M01S04330.acpd    +++|      IF (P$L NQ NULL)               # REPORT FILE SPECIFIED #
04463  M01S04331.acpd    +++|      THEN
04464  M01S04332.acpd    +++|        BEGIN
04465  M01S04333.acpd    +++|        RPEJECT(OFFA);               # PAGE EJECT #
04466  M01S04334.acpd    +++|        END
04467  M01S04335.acpd    +++|
04468  M01S04336.acpd    +++|      P<DCHD>=LOC(DBUF);
04469  M01S04337.acpd    +++|      P<DDSC>=LOC(DDHD);
04470  M01S04338.acpd    +++|
04471  M01S04339.acpd    +++|      IF (DCHD$WD[DDSC$FW[DLIL]] NQ 0)  # FAST LOOP WAS COLLECTED #
04472  M01S04340.acpd    +++|      THEN
04473  M01S04341.acpd    +++|        BEGIN
04474  M01S04342.acpd    +++|        FW=HDML;
04475  M01S04343.acpd    +++|        LW=FW+FSML-1;
04476  M01S04344.acpd    +++|        PUTBLK(NSF,FW,LW);           # PROCESS FAST LOOP #
04477  M01S04345.acpd    +++|        WRITEV(MSG,CHRC,1,22,LFDC);
04478  M01S04346.acpd    +++|        END
04479  M01S04347.acpd    +++|
04480  M01S04348.acpd    +++|      IF (DCHD$WD[DDSC$FW[DLML]] NQ 0)  # MEDIUM LOOP WAS COLLECTED #
04481  M01S04349.acpd    +++|      THEN
04482  M01S04350.acpd    +++|        BEGIN
04483  M01S04351.acpd    +++|        FW=HDML+FSML;
04484  M01S04352.acpd    +++|        LW=FW+MDML-1;
04485  M01S04353.acpd    +++|        PUTBLK(NSF,FW,LW);           # PROCESS MEDIUM LOOP #
04486  M01S04354.acpd    +++|        WRITEV(MSG,CHRC,1,22,LFDC);
04487  M01S04355.acpd    +++|        END
04488  M01S04356.acpd    +++|
04489  M01S04357.acpd    +++|      IF (DCHD$WD[DDSC$FW[DLOL]] NQ 0)  # SLOW LOOP WAS COLLECTED #
04490  M01S04358.acpd    +++|      THEN
04491  M01S04359.acpd    +++|        BEGIN
04492  M01S04360.acpd    +++|        FW=HDML+FSML+MDML;
04493  M01S04361.acpd    +++|        LW=FW+SLML-1;
04494  M01S04362.acpd    +++|        PUTBLK(NSF,FW,LW);           # PROCESS SLOW LOOP #

Seq #  *Modification Id* Act 
----------------------------+
04495  M02S04363.v23l617 ---|        FW=LW+1;

Seq #  *Modification Id* Act 
----------------------------+
04496  M02S04364.v23l617 ---|        PUTPMF(FW);                  # PROCESS *PMF* HARDWARE RATIO #

Seq #  *Modification Id* Act 
----------------------------+
04497  M02S04365.v23l617 ---|        LW=FW+DRVL-1;
04498  M01S04366.acpd    +++|        WRITEV(MSG,CHRC,1,22,LFDC);
04499  M01S04367.acpd    +++|        END
04500  M01S04368.acpd    +++|
04501  M01S04369.acpd    +++|      IF (NIN GR 0)                  # NUMBER OF COLUMNS .GT. 0 #
04502  M01S04370.acpd    +++|        AND (DCHD$WD[DDSC$FW[DLFW]] NQ 0)  # SNAPSHOT WAS COLLECTED #
04503  M01S04371.acpd    +++|      THEN
04504  M01S04372.acpd    +++|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04505  M02S04373.v23l617 ---|        FW=HDML+FSML+MDML+SLML+DRVL;
04506  M01S00078.v23l617 +++|        FW=HDML+FSML+MDML+SLML;
04507  M01S04374.acpd    +++|        LW=FW+SNML-1;
04508  M01S04375.acpd    +++|        TLFG=2;
04509  M01S04376.acpd    +++|        PUTSNS(FW,LW);               # PROCESS SNAPSHOT LOOP ELEMENTS #
04510  M01S04377.acpd    +++|        TLFG=1;
04511  M01S04378.acpd    +++|        END
04512  M01S04379.acpd    +++|
04513  M01S04380.acpd    +++|      RETURN;
04514  M01S04381.acpd    +++|      END  # PUTDAT #
04515  M01S04382.acpd    +++|
04516  M01S04383.acpd    +++|      TERM
04517  M01S04384.acpd    +++|PROC PUTEST;
04518  M01S04385.acpd    +++|# TITLE PUTEST - PRINT *EST*.  #
04519  M01S04386.acpd    +++|
04520  M01S04387.acpd    +++|      BEGIN  # PUTEST #
04521  M01S04388.acpd    +++|
04522  M01S04389.acpd    +++|#
04523  M01S04390.acpd    +++|**    PUTEST - PRINT *EST*.
04524  M01S04391.acpd    +++|*
04525  M01S04392.acpd    +++|*     PRINT *EST* TABLE.
04526  M01S04393.acpd    +++|*
04527  M01S04394.acpd    +++|*     PROC PUTEST
04528  M01S04395.acpd    +++|*
04529  M01S04396.acpd    +++|*     ENTRY      TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
04530  M01S04397.acpd    +++|*
04531  M01S04398.acpd    +++|*     EXIT       EST IS WRITTEN TO THE REPORT FILE.
04532  M01S04399.acpd    +++|*
04533  M01S04400.acpd    +++|*     NOTE.
04534  M01S04401.acpd    +++|*
04535  M01S04402.acpd    +++|*     THE SYMBOL *SROS* DEFINED IN THIS ROUTINE HAS TO HAVE
04536  M01S04403.acpd    +++|*     THE SAME VALUE AS THE SYMBOL *SROS* DEFINED IN COMMON
04537  M01S04404.acpd    +++|*     DECK *COMSCPS*.
04538  M01S04405.acpd    +++|*     THE ITEMS *FATT* AND *FATL* HAVE TO BE CHANGED ACCORDINGLY
04539  M01S04406.acpd    +++|*     IF CHANGE IS MADE TO THE FILE TYPES.
04540  M01S04407.acpd    +++|#
04541  M01S04408.acpd    +++|
04542  M01S04409.acpd    +++|#
04543  M01S04410.acpd    +++|****  PROC PUTEST - XREF LIST BEGIN.
04544  M01S04411.acpd    +++|#
04545  M01S04412.acpd    +++|
04546  M01S04413.acpd    +++|      XREF
04547  M01S04414.acpd    +++|        BEGIN
04548  M01S04415.acpd    +++|        PROC RPEJECT;                # PAGE EJECT #
04549  M01S04416.acpd    +++|        PROC WRITEV;                 # WRITE DATA ELEMENT #
04550  M01S04417.acpd    +++|        FUNC XCOD C(10);             # BINARY TO DISPLAY OCTAL #
04551  M01S04418.acpd    +++|        END
04552  M01S04419.acpd    +++|
04553  M01S04420.acpd    +++|#
04554  M01S04421.acpd    +++|****  PROC PUTEST - XREF LIST END.
04555  M01S04422.acpd    +++|#
04556  M01S04423.acpd    +++|
04557  M01S04424.acpd    +++|      DEF BLKC       #" "#;          # BLANK #
04558  M01S04425.acpd    +++|      DEF CHSC       #"S"#;          # CHARACTER S #
04559  M01S04426.acpd    +++|      DEF CHXC       #"X"#;          # CHARACTER X #
04560  M01S04427.acpd    +++|      DEF MGMC       #"MT"#;         # *MT* TAPE #
04561  M01S04428.acpd    +++|      DEF MGNC       #"NT"#;         # *NT* TAPE #
04562  M01S04429.acpd    +++|      DEF MNSC       #"-"#;          # MINUS SIGN #
04563  M01S04430.acpd    +++|      DEF MXMSA      #47#;           # MAXIMUM MS ALLOCATABLE DEVICE #
04564  M01S04431.acpd    +++|      DEF SROS       #8#;            # SECONDARY ROLLOUT DEVICE #
04565  M01S04432.acpd    +++|
04566  M01S04433.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
04567  M01S04434.acpd    +++|
04568  M01S04435.acpd    +++|*CALL     COMUCPD
04569  M01S04436.acpd    +++|*CALL     COMUEST
04570  M01S04437.acpd    +++|
04571  M01S04438.acpd    +++|#
04572  M01S04439.acpd    +++|*     LOCAL VARIABLES.
04573  M01S04440.acpd    +++|#
04574  M01S04441.acpd    +++|
04575  M01S04442.acpd    +++|      ITEM FATL       C(12)
04576  M01S04443.acpd    +++|         = "TIORDPLBSRRN";           # FILES TYPE #
04577  M01S04444.acpd    +++|      ITEM FATT       C(12);         # TEMPORARY BUFFER #
04578  M01S04445.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
04579  M01S04446.acpd    +++|      ITEM J          I;             # FOR LOOP CONTROL #
04580  M01S04447.acpd    +++|      ITEM L          I;             # FOR LOOP CONTROL #
04581  M01S04448.acpd    +++|      ITEM M          I;             # TEMPORARY STORAGE #
04582  M01S04449.acpd    +++|      ITEM MSG        C(50);         # TEMPORARY BUFFER #
04583  M01S04450.acpd    +++|      ITEM MXRS       I;             # NUMBER OF *MSAL* CATEGORIES #
04584  M01S04451.acpd    +++|      ITEM MSI        I;             # MST ORDINAL #
04585  M01S04452.acpd    +++|      ITEM MSIC       I;             # MST INCREMENTOR #
04586  M01S04453.acpd    +++|      ITEM MUI        I;             # MST ORDINAL #
04587  M01S04454.acpd    +++|      ITEM MUIC       I;             # MST INCREMENTOR #
04588  M01S04455.acpd    +++|      ITEM N          I;             # TEMPORARY STORAGE #
04589  M01S04456.acpd    +++|

Seq #  *Modification Id* Act 
----------------------------+
04590  M02S04457.252l678 ---|      ARRAY CHNN [0:3] P(1);         # CHANNELS #
04591  M01S00003.252l678 +++|      ARRAY CHNN [0:1] P(1);         # CHANNELS #
04592  M01S04458.acpd    +++|        BEGIN  # ARRAY CHNN #
04593  M01S04459.acpd    +++|        ITEM CH         U(00,00,60);  # CHANNEL WORD #

Seq #  *Modification Id* Act 
----------------------------+
04594  M02S04460.252l678 ---|        ITEM CHDWN      B(00,54,01);  # CHANNEL DOWN FLAG #
04595  M01S00004.252l678 +++|        ITEM CHAPFLAG   B(00,48,01);  # CHANNEL ACCESS PATH FLAG #
04596  M01S00005.252l678 +++|        ITEM CHSTATUS   U(00,49,02);  # CHANNEL STATUS #
04597  M01S00006.252l678 +++|        ITEM CHNUMBER   U(00,55,05);  # CHANNEL NUMBER #
04598  M01S04461.acpd    +++|        END  # ARRAY CHNN #
04599  M01S04462.acpd    +++|
04600  M01S04463.acpd    +++|      ARRAY TEM [0:0] P(1);          # TEMPORARY BUFFER #
04601  M01S04464.acpd    +++|        BEGIN  # ARRAY TEM #
04602  M01S04465.acpd    +++|        ITEM TEM$TYPE   U(00,01,11);  # EQUIPMENT TYPE #
04603  M01S04466.acpd    +++|        END  # ARRAY TEM #
04604  M01S04467.acpd    +++|
04605  M01S04468.acpd    +++|
04606  M01S04469.acpd    +++|
04607  M01S04470.acpd    +++|
04608  M01S04471.acpd    +++|
04609  M01S04472.acpd    +++|#
04610  M01S04473.acpd    +++|*     BEGIN PUTEST PROC.
04611  M01S04474.acpd    +++|#
04612  M01S04475.acpd    +++|
04613  M01S04476.acpd    +++|      P<DCHD>=LOC(DBUF);
04614  M01S04477.acpd    +++|      P<DDSC>=LOC(DDHD);
04615  M01S04478.acpd    +++|
04616  M01S04479.acpd    +++|      TLFG=3;                        # INDICATES PRINTING EST #
04617  M01S04480.acpd    +++|      RPEJECT(OFFA);
04618  M01S04481.acpd    +++|
04619  M01S04482.acpd    +++|#
04620  M01S04483.acpd    +++|*     PRINT EST ENTRY.
04621  M01S04484.acpd    +++|#
04622  M01S04485.acpd    +++|
04623  M01S04486.acpd    +++|      P<EST>=LOC(DCHD$WD[DDSC$FW[ESTB]]);
04624  M01S04487.acpd    +++|      MSI=0;
04625  M01S04488.acpd    +++|      MSIC=DDSC$IC[TRKC];
04626  M01S04489.acpd    +++|      MUI=0;
04627  M01S04490.acpd    +++|      MUIC=DDSC$IC[MSUN];
04628  M01S04491.acpd    +++|
04629  M01S04492.acpd    +++|      SLOWFOR I=0 STEP 1 UNTIL DCHD$WD[DDSC$FW[ESTL]] - 1
04630  M01S04493.acpd    +++|      DO
04631  M01S04494.acpd    +++|        BEGIN  # PROCESS ONE EST ENTRY #
04632  M01S04495.acpd    +++|        IF (EST$EQDE[I] EQ NULL)     # ENTRY NOT DEFINED #
04633  M01S04496.acpd    +++|        THEN
04634  M01S04497.acpd    +++|          BEGIN
04635  M01S04498.acpd    +++|          TEST I;
04636  M01S04499.acpd    +++|          END
04637  M01S04500.acpd    +++|
04638  M01S04501.acpd    +++|        WRITEV(I,OC2C,4,3,NLFC);     # EST ORDINAL #
04639  M01S04502.acpd    +++|        TEM$TYPE[0]=EST$TYPE[I];
04640  M01S04503.acpd    +++|        WRITEV(TEM,CHRC,11,2,NLFC);  # DEVICE TYPE #
04641  M01S04504.acpd    +++|

Seq #  *Modification Id* Act 
----------------------------+
04642  M02S04505.252l678 ---|        IF (NOT EST$OFF[I])          # NOT DEVICE OFF #

Seq #  *Modification Id* Act 
----------------------------+
04643  M02S04506.252l678 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
04644  M02S04507.252l678 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04645  M02S04508.252l678 ---|          MSG="ON";

Seq #  *Modification Id* Act 
----------------------------+
04646  M02S04509.252l678 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
04647  M02S04510.252l678 ---|

Seq #  *Modification Id* Act 
----------------------------+
04648  M02S04511.252l678 ---|        ELSE

Seq #  *Modification Id* Act 
----------------------------+
04649  M02S04512.252l678 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04650  M02S04513.252l678 ---|          MSG="OFF";

Seq #  *Modification Id* Act 
----------------------------+
04651  M02S04514.252l678 ---|          END
04652  M01S00007.252l678 +++|        IF EST$STATUS[I] EQ 0        # ON DEVICE #
04653  M01S00008.252l678 +++|        THEN
04654  M01S00009.252l678 +++|          MSG="ON";
04655  M01S00010.252l678 +++|        ELSE
04656  M01S00011.252l678 +++|          BEGIN
04657  M01S00012.252l678 +++|          IF EST$STATUS[I] EQ 1      # IDLE DEVICE #
04658  M01S00013.252l678 +++|          THEN
04659  M01S00014.252l678 +++|            MSG="IDLE";
04660  M01S00015.252l678 +++|          ELSE
04661  M01S00016.252l678 +++|            BEGIN
04662  M01S00017.252l678 +++|            IF EST$STATUS[I] EQ 2    # OFF DEVICE #
04663  M01S00018.252l678 +++|            THEN
04664  M01S00019.252l678 +++|              MSG="OFF";
04665  M01S00020.252l678 +++|            ELSE                     # DOWN DEVICE #
04666  M01S00021.252l678 +++|              MSG="DOWN";
04667  M01S00022.252l678 +++|            END
04668  M01S00023.252l678 +++|
04669  M01S00024.252l678 +++|          END
04670  M01S04515.acpd    +++|
04671  M01S04516.acpd    +++|        WRITEV(MSG,CHRC,16,3,NLFC);  # DEVICE STATUS #
04672  M01S04517.acpd    +++|
04673  M01S04518.acpd    +++|        IF (NOT EST$MS[I])           # NOT MASS STORAGE DEVICE #
04674  M01S04519.acpd    +++|        THEN
04675  M01S04520.acpd    +++|          BEGIN
04676  M01S04521.acpd    +++|          N=EST$EQU[I];
04677  M01S04522.acpd    +++|          WRITEV(N,OC2C,22,2,NLFC);  # EQUIPMENT NUMBER #
04678  M01S04523.acpd    +++|          N=EST$UN[I];
04679  M01S04524.acpd    +++|          WRITEV(N,OC2C,26,2,NLFC);  # UNIT NUMBER #
04680  M01S04525.acpd    +++|          END
04681  M01S04526.acpd    +++|
04682  M01S04527.acpd    +++|        ELSE                         # MASS STORAGE DEVICE #
04683  M01S04528.acpd    +++|          BEGIN
04684  M01S04529.acpd    +++|          IF (EST$RMVE[I])           # REMOVABLE MASS STORAGE DEVICE #
04685  M01S04530.acpd    +++|          THEN
04686  M01S04531.acpd    +++|            BEGIN
04687  M01S04532.acpd    +++|            N=DCHD$WD[DDSC$FW[MSUN]+MUI];
04688  M01S04533.acpd    +++|            WRITEV(N,OC2C,26,2,NLFC);
04689  M01S04534.acpd    +++|            END
04690  M01S04535.acpd    +++|
04691  M01S04536.acpd    +++|          MUI=MUI + MUIC;
04692  M01S04537.acpd    +++|          END
04693  M01S04538.acpd    +++|
04694  M01S04539.acpd    +++|#
04695  M01S04540.acpd    +++|*     PRINT CHANNELS.
04696  M01S04541.acpd    +++|#
04697  M01S04542.acpd    +++|
04698  M01S04543.acpd    +++|        CH[0]=EST$CHANA[I];          # CHANNEL A #

Seq #  *Modification Id* Act 
----------------------------+
04699  M02S04544.252l678 ---|        CHDWN[0]=EST$DCHA[I];        # CHANNEL A DOWN FLAG #
04700  M01S00025.252l678 +++|        CHAPFLAG[0]=EST$CHAAE[I];    # CHANNEL A ACCESS ENABLED FLAG #
04701  M01S00026.252l678 +++|        CHSTATUS[0]=EST$CHAST[I];    # CHANNEL A STATUS #
04702  M01S04545.acpd    +++|        CH[1]=EST$CHANB[I];          # CHANNEL B #

Seq #  *Modification Id* Act 
----------------------------+
04703  M02S04546.252l678 ---|        CHDWN[1]=EST$DCHB[I];        # CHANNEL B DOWN FLAG #

Seq #  *Modification Id* Act 
----------------------------+
04704  M02S04547.252l678 ---|        IF (EST$TYPE[I] NQ MGMC) AND (EST$TYPE[I] NQ MGNC)

Seq #  *Modification Id* Act 
----------------------------+
04705  M02S04548.252l678 ---|        THEN

Seq #  *Modification Id* Act 
----------------------------+
04706  M02S04549.252l678 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04707  M02S04550.252l678 ---|          CH[2]=0;

Seq #  *Modification Id* Act 
----------------------------+
04708  M02S04551.252l678 ---|          CH[3]=0;

Seq #  *Modification Id* Act 
----------------------------+
04709  M02S04552.252l678 ---|          END

Seq #  *Modification Id* Act 
----------------------------+
04710  M02S04553.252l678 ---|

Seq #  *Modification Id* Act 
----------------------------+
04711  M02S04554.252l678 ---|        ELSE

Seq #  *Modification Id* Act 
----------------------------+
04712  M02S04555.252l678 ---|          BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04713  M02S04556.252l678 ---|          CH[2]=EST$CHANC[I];        # CHANNEL C #

Seq #  *Modification Id* Act 
----------------------------+
04714  M02S04557.252l678 ---|          CHDWN[2]=EST$DCHC[I];      # CHANNEL C DOWN FLAG #

Seq #  *Modification Id* Act 
----------------------------+
04715  M02S04558.252l678 ---|          CH[3]=EST$CHAND[I];        # CHANNEL D #

Seq #  *Modification Id* Act 
----------------------------+
04716  M02S04559.252l678 ---|          CHDWN[3]=EST$DCHD[I];      # CHANNEL D DOWN FLAG #

Seq #  *Modification Id* Act 
----------------------------+
04717  M02S04560.252l678 ---|          END
04718  M01S00027.252l678 +++|        CHAPFLAG[1]=EST$CHBAE[I];    # CHANNEL B ACCESS ENABLED FLAG #
04719  M01S00028.252l678 +++|        CHSTATUS[1]=EST$CHBST[I];    # CHANNEL B STATUS #
04720  M01S04561.acpd    +++|

Seq #  *Modification Id* Act 
----------------------------+
04721  M02S04562.252l678 ---|        FASTFOR L=0 STEP 1 UNTIL 3
04722  M01S00029.252l678 +++|        FASTFOR L=0 STEP 1 UNTIL 1
04723  M01S04563.acpd    +++|        DO
04724  M01S04564.acpd    +++|          BEGIN  # PRINT CHANNEL NUMBER #

Seq #  *Modification Id* Act 
----------------------------+
04725  M02S04565.252l678 ---|          IF (NOT CHDWN[L])          # CHANNEL NOT DOWN #
04726  M01S00030.252l678 +++|          IF (CHAPFLAG[L])           # CHANNEL ACCESS PATH ENABLED #
04727  M01S04566.acpd    +++|          THEN
04728  M01S04567.acpd    +++|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04729  M02S04568.252l678 ---|            IF (L EQ 0) OR (CH[L] NQ 0)
04730  M01S00031.252l678 +++|            IF (CHSTATUS[L] EQ 0)    # CHANNEL IS UP #
04731  M01S04569.acpd    +++|            THEN
04732  M01S04570.acpd    +++|              BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04733  M02S04571.252l678 ---|              WRITEV(CH[L],OC2C,30+3*L,2,NLFC);
04734  M01S00032.252l678 +++|              WRITEV(CHNUMBER[L],OC2C,30+3*L,2,NLFC);
04735  M01S04572.acpd    +++|              END
04736  M01S04573.acpd    +++|
04737  M01S00033.252l678 +++|            ELSE
04738  M01S00034.252l678 +++|              BEGIN
04739  M01S00035.252l678 +++|              WRITEV("**",CHRC,30+3*L,2,NLFC);
04740  M01S00036.252l678 +++|              END
04741  M01S00037.252l678 +++|
04742  M01S04574.acpd    +++|            END
04743  M01S04575.acpd    +++|

Seq #  *Modification Id* Act 
----------------------------+
04744  M02S04576.252l678 ---|          ELSE

Seq #  *Modification Id* Act 
----------------------------+
04745  M02S04577.252l678 ---|            BEGIN

Seq #  *Modification Id* Act 
----------------------------+
04746  M02S04578.252l678 ---|            WRITEV("**",CHRC,30+3*L,2,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
04747  M02S04579.252l678 ---|            END
04748  M01S04580.acpd    +++|
04749  M01S04581.acpd    +++|          END  # PRINT CHANNEL NUMBER #
04750  M01S04582.acpd    +++|
04751  M01S04583.acpd    +++|#
04752  M01S04584.acpd    +++|*     PRINT EST ENTRY IN FULL WORD, AND DEVICE TRACK CAPACITY.
04753  M01S04585.acpd    +++|#
04754  M01S04586.acpd    +++|
04755  M01S04587.acpd    +++|        N=EST$LHDE[I];
04756  M01S04588.acpd    +++|        WRITEV(N,OC3C,42,10,NLFC);
04757  M01S04589.acpd    +++|        N=EST$RHDE[I];
04758  M01S04590.acpd    +++|        WRITEV(N,OC3C,52,10,NLFC);
04759  M01S04591.acpd    +++|        N=EST$LHAE[I];
04760  M01S04592.acpd    +++|        WRITEV(N,OC3C,63,10,NLFC);
04761  M01S04593.acpd    +++|        N=EST$RHAE[I];
04762  M01S04594.acpd    +++|        IF (NOT EST$MS[I])           # NOT MASS STORAGE DEVICE #
04763  M01S04595.acpd    +++|        THEN
04764  M01S04596.acpd    +++|          BEGIN
04765  M01S04597.acpd    +++|          WRITEV(N,OC3C,73,10,LFDC);
04766  M01S04598.acpd    +++|          TEST I;
04767  M01S04599.acpd    +++|          END
04768  M01S04600.acpd    +++|
04769  M01S04601.acpd    +++|        ELSE
04770  M01S04602.acpd    +++|          BEGIN  # MASS STORAGE DEVICE #
04771  M01S04603.acpd    +++|          WRITEV(N,OC3C,73,10,NLFC);
04772  M01S04604.acpd    +++|          N=DCHD$WD[DDSC$FW[TRKC] + MSI];
04773  M01S04605.acpd    +++|          WRITEV(N,OC2C,87,4,NLFC);  # TRACK CAPACITY #
04774  M01S04606.acpd    +++|          MSI=MSI+MSIC;
04775  M01S04607.acpd    +++|
04776  M01S04608.acpd    +++|#
04777  M01S04609.acpd    +++|*     PRINT THE MASS STORAGE ALLOCATION TABLE.
04778  M01S04610.acpd    +++|#
04779  M01S04611.acpd    +++|
04780  M01S04612.acpd    +++|          IF (I GR MXMSA)            # EST ORDINAL .GT. *MXMSA* #
04781  M01S04613.acpd    +++|          THEN
04782  M01S04614.acpd    +++|            BEGIN
04783  M01S04615.acpd    +++|            WRITEV(BLKC,CHRC,95,1,LFDC);  # LINE FEED #
04784  M01S04616.acpd    +++|            END
04785  M01S04617.acpd    +++|
04786  M01S04618.acpd    +++|          ELSE                       # EST ORDINAL .LE. *MXMSA* #
04787  M01S04619.acpd    +++|            BEGIN  # CHECK FILE TYPE ON THE DEVICE #
04788  M01S04620.acpd    +++|            FATT="------------";
04789  M01S04621.acpd    +++|            MXRS=DCHD$WD[DDSC$FW[CON8]];
04790  M01S04622.acpd    +++|            SLOWFOR J=0 STEP 1 UNTIL MXRS-1
04791  M01S04623.acpd    +++|            DO
04792  M01S04624.acpd    +++|              BEGIN
04793  M01S04625.acpd    +++|              L=DDSC$FW[MSAA] + J;
04794  M01S04626.acpd    +++|              IF (B<12+I,1>DCHD$WD[L] EQ 1)
04795  M01S04627.acpd    +++|              THEN
04796  M01S04628.acpd    +++|                BEGIN
04797  M01S04629.acpd    +++|                C<J,1>FATT=C<J,1>FATL;
04798  M01S04630.acpd    +++|                END
04799  M01S04631.acpd    +++|
04800  M01S04632.acpd    +++|              END
04801  M01S04633.acpd    +++|
04802  M01S04634.acpd    +++|            IF (EST$SYS[I])          # SYSTEM FILE ON DEVICE #
04803  M01S04635.acpd    +++|            THEN
04804  M01S04636.acpd    +++|              BEGIN
04805  M01S04637.acpd    +++|              MSG=CHXC;
04806  M01S04638.acpd    +++|              END
04807  M01S04639.acpd    +++|
04808  M01S04640.acpd    +++|            ELSE
04809  M01S04641.acpd    +++|              BEGIN
04810  M01S04642.acpd    +++|              MSG=MNSC;
04811  M01S04643.acpd    +++|              END
04812  M01S04644.acpd    +++|
04813  M01S04645.acpd    +++|            WRITEV(MSG,CHRC,94,1,NLFC);
04814  M01S04646.acpd    +++|
04815  M01S04647.acpd    +++|#
04816  M01S04648.acpd    +++|*     PRINT THE THRESHOLD OF THE NUMBER OF SECTORS ROLLED IF
04817  M01S04649.acpd    +++|*     THE DEVICE IS SECONDARY ROLLOUT.
04818  M01S04650.acpd    +++|#
04819  M01S04651.acpd    +++|
04820  M01S04652.acpd    +++|            IF (C<SROS,1>FATT NQ CHSC)  # NOT SECONDARY ROLLOUT #
04821  M01S04653.acpd    +++|            THEN
04822  M01S04654.acpd    +++|              BEGIN
04823  M01S04655.acpd    +++|              WRITEV(FATT,CHRC,95,MXRS,LFDC);
04824  M01S04656.acpd    +++|              END
04825  M01S04657.acpd    +++|
04826  M01S04658.acpd    +++|            ELSE                     # SECONDARY ROLLOUT #
04827  M01S04659.acpd    +++|              BEGIN
04828  M01S04660.acpd    +++|              WRITEV(FATT,CHRC,95,MXRS,NLFC);
04829  M01S04661.acpd    +++|              WRITEV("THRESHOLD = ",CHRC,109,12,NLFC);
04830  M01S04662.acpd    +++|              WRITEV(DCHD$WD[DDSC$FW[SROT]],OC1C,121,5,NLFC);
04831  M01S04663.acpd    +++|              WRITEV("SECTORS",CHRC,127,7,LFDC);
04832  M01S04664.acpd    +++|              END
04833  M01S04665.acpd    +++|
04834  M01S04666.acpd    +++|            END  # CHECK FILE TYPE ON THE DEVICE #
04835  M01S04667.acpd    +++|
04836  M01S04668.acpd    +++|          END  # MASS STORAGE DEVICE #
04837  M01S04669.acpd    +++|
04838  M01S04670.acpd    +++|        END  # PROCESS ONE EST ENTRY #
04839  M01S04671.acpd    +++|
04840  M01S04672.acpd    +++|      RETURN;
04841  M01S04673.acpd    +++|      END  # PUTEST #
04842  M01S04674.acpd    +++|
04843  M01S04675.acpd    +++|      TERM
04844  M01S04676.acpd    +++|PROC PUTHDR;
04845  M01S04677.acpd    +++|# TITLE PUTHDR - PROCESS HEADER BLOCK.  #
04846  M01S04678.acpd    +++|
04847  M01S04679.acpd    +++|      BEGIN  # PUTHDR #
04848  M01S04680.acpd    +++|
04849  M01S04681.acpd    +++|#
04850  M01S04682.acpd    +++|**    PUTHDR - PROCESS HEADER BLOCK.
04851  M01S04683.acpd    +++|*
04852  M01S04684.acpd    +++|*     PRINT FIRST PAGE OF HEADER BLOCK ELEMENTS.
04853  M01S04685.acpd    +++|*
04854  M01S04686.acpd    +++|*     PROC HEADER
04855  M01S04687.acpd    +++|*
04856  M01S04688.acpd    +++|*     ENTRY      TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
04857  M01S04689.acpd    +++|*
04858  M01S04690.acpd    +++|*     EXIT       HEADER BLOCK ELEMENTS ARE PRINTED TO THE REPORT
04859  M01S04691.acpd    +++|*                FILE.
04860  M01S04692.acpd    +++|#
04861  M01S04693.acpd    +++|
04862  M01S04694.acpd    +++|#
04863  M01S04695.acpd    +++|****  PROC PUTHDR - XREF LIST BEGIN.
04864  M01S04696.acpd    +++|#
04865  M01S04697.acpd    +++|
04866  M01S04698.acpd    +++|      XREF
04867  M01S04699.acpd    +++|        BEGIN
04868  M01S04700.acpd    +++|        PROC HDRELM;                 # PROCESS HEADER BLOCK ELEMENT #
04869  M01S04701.acpd    +++|        PROC RPEJECT;                # PAGE EJECT #
04870  M01S04702.acpd    +++|        PROC RPSPACE;                # LINE FEED #
04871  M01S04703.acpd    +++|        PROC WRITEV;                 # WRITE ONE ELEMENT #
04872  M01S04704.acpd    +++|        END
04873  M01S04705.acpd    +++|
04874  M01S04706.acpd    +++|#
04875  M01S04707.acpd    +++|****  PROC PUTHDR - XREF LIST END.
04876  M01S04708.acpd    +++|#
04877  M01S04709.acpd    +++|
04878  M01S04710.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
04879  M01S04711.acpd    +++|
04880  M01S04712.acpd    +++|*CALL     COMUCPD
04881  M01S04713.acpd    +++|
04882  M01S04714.acpd    +++|#
04883  M01S04715.acpd    +++|*     LOCAL VARIABLES.
04884  M01S04716.acpd    +++|#
04885  M01S04717.acpd    +++|
04886  M01S04718.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
04887  M01S04719.acpd    +++|      ITEM MSG        C(50);         # TEMPORARY BUFFER #
04888  M01S04720.acpd    +++|
04889  M01S04721.acpd    +++|
04890  M01S04722.acpd    +++|
04891  M01S04723.acpd    +++|
04892  M01S04724.acpd    +++|
04893  M01S04725.acpd    +++|#
04894  M01S04726.acpd    +++|*     BEGIN PUTHDR PROC.
04895  M01S04727.acpd    +++|#
04896  M01S04728.acpd    +++|
04897  M01S04729.acpd    +++|      TLFG=0;                        # INDICATES NO SUBTITLE #
04898  M01S04730.acpd    +++|      RPEJECT(OFFA);
04899  M01S04731.acpd    +++|      RPSPACE(OFFA,2,1);
04900  M01S04732.acpd    +++|
04901  M01S04733.acpd    +++|#
04902  M01S04734.acpd    +++|*     PRINT START DATE AND START TIME OF THE DATA FILE.
04903  M01S04735.acpd    +++|#
04904  M01S04736.acpd    +++|
04905  M01S04737.acpd    +++|      HDRELM(0,11,34);               # START DATE #
04906  M01S04738.acpd    +++|      HDRELM(1,11,34);               # START TIME #
04907  M01S04739.acpd    +++|
04908  M01S04740.acpd    +++|#
04909  M01S04741.acpd    +++|*     PRINT *ACPD* PARAMETERS.
04910  M01S04742.acpd    +++|#
04911  M01S04743.acpd    +++|
04912  M01S04744.acpd    +++|      RPSPACE(OFFA,2,1);
04913  M01S04745.acpd    +++|      WRITEV("DATA FILE NAME",CHRC,11,14,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
04914  M02S04746.v23l617 ---|      WRITEV(P$FN,CHRC,37,7,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
04915  M02S04747.v23l617 ---|      WRITEV("REPORT INTERVAL (MINS)",CHRC,11,22,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
04916  M02S04748.v23l617 ---|      WRITEV(P$IN,INTC,34,10,LFDC);
04917  M01S00079.v23l617 +++|      WRITEV(P$FN,CHRC,40,7,LFDC);
04918  M01S00080.v23l617 +++|      IF (P$IN NQ 0)
04919  M01S00081.v23l617 +++|      THEN
04920  M01S00082.v23l617 +++|        BEGIN
04921  M01S00083.v23l617 +++|        WRITEV("REPORT INTERVAL (MINUTES)",CHRC,11,25,NLFC);
04922  M01S00084.v23l617 +++|        WRITEV(P$IN,INTC,37,10,LFDC);
04923  M01S00085.v23l617 +++|        END
04924  M01S00086.v23l617 +++|
04925  M01S00087.v23l617 +++|      ELSE
04926  M01S00088.v23l617 +++|        BEGIN
04927  M01S00089.v23l617 +++|        WRITEV("REPORT INTERVAL (RECORDS)",CHRC,11,25,NLFC);
04928  M01S00090.v23l617 +++|        WRITEV(P$IC,INTC,37,10,LFDC);
04929  M01S00091.v23l617 +++|        END
04930  M01S04749.acpd    +++|
04931  M01S04750.acpd    +++|      RPSPACE(OFFA,2,1);
04932  M01S04751.acpd    +++|      FASTFOR I=APPM STEP 1 UNTIL HWCF-1
04933  M01S04752.acpd    +++|      DO
04934  M01S04753.acpd    +++|        BEGIN
04935  M01S04754.acpd    +++|        HDRELM(I,11,40);
04936  M01S04755.acpd    +++|        END
04937  M01S04756.acpd    +++|
04938  M01S04757.acpd    +++|#
04939  M01S04758.acpd    +++|*     PRINT THE HARDWARE CONFIGURATION.
04940  M01S04759.acpd    +++|#
04941  M01S04760.acpd    +++|
04942  M01S04761.acpd    +++|      RPSPACE(OFFA,2,1);
04943  M01S04762.acpd    +++|      FASTFOR I=HWCF STEP 1 UNTIL CMCF-1
04944  M01S04763.acpd    +++|      DO
04945  M01S04764.acpd    +++|        BEGIN
04946  M01S04765.acpd    +++|        HDRELM(I,11,40);
04947  M01S04766.acpd    +++|        END
04948  M01S04767.acpd    +++|
04949  M01S04768.acpd    +++|#
04950  M01S04769.acpd    +++|*     PRINT THE CMR CONFIGURATION.
04951  M01S04770.acpd    +++|#
04952  M01S04771.acpd    +++|
04953  M01S04772.acpd    +++|      RPSPACE(OFFA,2,1);
04954  M01S04773.acpd    +++|      FASTFOR I=CMCF STEP 1 UNTIL SASC-1
04955  M01S04774.acpd    +++|      DO
04956  M01S04775.acpd    +++|        BEGIN
04957  M01S04776.acpd    +++|        HDRELM(I,11,40);
04958  M01S04777.acpd    +++|        END
04959  M01S04778.acpd    +++|
04960  M01S04779.acpd    +++|#
04961  M01S04780.acpd    +++|*     PRINT THE SYSTEM ASSEMBLY CONSTANTS.
04962  M01S04781.acpd    +++|#
04963  M01S04782.acpd    +++|
04964  M01S04783.acpd    +++|      RPSPACE(OFFA,2,1);
04965  M01S04784.acpd    +++|      FASTFOR I=SASC STEP 1 UNTIL SDLP-1
04966  M01S04785.acpd    +++|      DO
04967  M01S04786.acpd    +++|        BEGIN
04968  M01S04787.acpd    +++|        HDRELM(I,11,47);
04969  M01S04788.acpd    +++|        END
04970  M01S04789.acpd    +++|
04971  M01S04790.acpd    +++|#
04972  M01S04791.acpd    +++|*     PRINT THE SYSTEM DELAY PARAMETERS.
04973  M01S04792.acpd    +++|#
04974  M01S04793.acpd    +++|
04975  M01S04794.acpd    +++|      RPSPACE(OFFA,2,1);
04976  M01S04795.acpd    +++|      FASTFOR I=SDLP STEP 1 UNTIL BFIO-1
04977  M01S04796.acpd    +++|      DO
04978  M01S04797.acpd    +++|        BEGIN
04979  M01S04798.acpd    +++|        HDRELM(I,11,47);
04980  M01S04799.acpd    +++|        END
04981  M01S04800.acpd    +++|
04982  M01S04801.acpd    +++|#
04983  M01S04802.acpd    +++|*     PRINT THE TOTAL NUMBER OF HIGH SPEED DISK BUFFERS
04984  M01S04803.acpd    +++|*     AND EXTENDED MEMORY/PP BUFFERS.
04985  M01S04804.acpd    +++|#
04986  M01S04805.acpd    +++|
04987  M01S04806.acpd    +++|      RPSPACE(OFFA,2,1);
04988  M01S04807.acpd    +++|      FASTFOR I=BFIO STEP 1 UNTIL HDML-1
04989  M01S04808.acpd    +++|      DO
04990  M01S04809.acpd    +++|        BEGIN
04991  M01S04810.acpd    +++|        HDRELM(I,11,47);
04992  M01S04811.acpd    +++|        END
04993  M01S04812.acpd    +++|
04994  M01S04813.acpd    +++|      RETURN;
04995  M01S04814.acpd    +++|      END  # PUTHDR #
04996  M01S04815.acpd    +++|
04997  M01S04816.acpd    +++|      TERM

Seq #  *Modification Id* Act 
----------------------------+
04998  M02S04817.v23l617 ---|PROC PUTPMF((FWA));

Seq #  *Modification Id* Act 
----------------------------+
04999  M02S04818.v23l617 ---|# TITLE PUTPMF - PROCESS *PMF* HARDWARE HIT RATE.  #

Seq #  *Modification Id* Act 
----------------------------+
05000  M02S04819.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05001  M02S04820.v23l617 ---|      BEGIN  # PUTPMF #

Seq #  *Modification Id* Act 
----------------------------+
05002  M02S04821.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05003  M02S04822.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05004  M02S04823.v23l617 ---|**    PUTPMF - PROCESS *PMF* HARDWARE HIT RATES.

Seq #  *Modification Id* Act 
----------------------------+
05005  M02S04824.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
05006  M02S04825.v23l617 ---|*     THIS PROC IS A SPECIAL ROUTINE TO PROCESS *PMF* HARDWARE.

Seq #  *Modification Id* Act 
----------------------------+
05007  M02S04826.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
05008  M02S04827.v23l617 ---|*     PROC PUTPMF((FWA))

Seq #  *Modification Id* Act 
----------------------------+
05009  M02S04828.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
05010  M02S04829.v23l617 ---|*     ENTRY      FWA = ADDRESS OF THE FIRST REPORT TITLE.

Seq #  *Modification Id* Act 
----------------------------+
05011  M02S04830.v23l617 ---|*

Seq #  *Modification Id* Act 
----------------------------+
05012  M02S04831.v23l617 ---|*     EXIT       THE HIT RATES OF THE *PMF* HARDWARE FOR THE

Seq #  *Modification Id* Act 
----------------------------+
05013  M02S04832.v23l617 ---|*                INTERVALS, SUBTOTAL, AND TOTAL ARE COMPUTED

Seq #  *Modification Id* Act 
----------------------------+
05014  M02S04833.v23l617 ---|*                AND REPORTED.

Seq #  *Modification Id* Act 
----------------------------+
05015  M02S04834.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05016  M02S04835.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05017  M02S04836.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05018  M02S04837.v23l617 ---|*     PARAMETER LIST.

Seq #  *Modification Id* Act 
----------------------------+
05019  M02S04838.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05020  M02S04839.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05021  M02S04840.v23l617 ---|      ITEM FWA        I;             # ADDRESS OF FIRST REPORT TITLE #

Seq #  *Modification Id* Act 
----------------------------+
05022  M02S04841.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05023  M02S04842.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05024  M02S04843.v23l617 ---|****  PROC PUTPMF - XREF LIST BEGIN.

Seq #  *Modification Id* Act 
----------------------------+
05025  M02S04844.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05026  M02S04845.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05027  M02S04846.v23l617 ---|      XREF

Seq #  *Modification Id* Act 
----------------------------+
05028  M02S04847.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
05029  M02S04848.v23l617 ---|        PROC COMMTE;                 # COMPUTE EXEC STATE MEAN TIME #

Seq #  *Modification Id* Act 
----------------------------+
05030  M02S04849.v23l617 ---|        PROC COMRAT;                 # COMPUTE *PMF* RATIOS #

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

Seq #  *Modification Id* Act 
----------------------------+
05032  M02S04851.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
05033  M02S04852.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05034  M02S04853.v23l617 ---|#

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

Seq #  *Modification Id* Act 
----------------------------+
05036  M02S04855.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05037  M02S04856.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05038  M02S04857.v23l617 ---|      DEF BLKC       #" "#;          # BLANK #

Seq #  *Modification Id* Act 
----------------------------+
05039  M02S04858.v23l617 ---|

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

Seq #  *Modification Id* Act 
----------------------------+
05041  M02S04860.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05042  M02S04861.v23l617 ---|*CALL     COMUCPD

Seq #  *Modification Id* Act 
----------------------------+
05043  M02S04862.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05044  M02S04863.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05045  M02S04864.v23l617 ---|*     LOCAL VARIABLES.

Seq #  *Modification Id* Act 
----------------------------+
05046  M02S04865.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05047  M02S04866.v23l617 ---|

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

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

Seq #  *Modification Id* Act 
----------------------------+
05050  M02S04869.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05051  M02S04870.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05052  M02S04871.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05053  M02S04872.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05054  M02S04873.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05055  M02S04874.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05056  M02S04875.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05057  M02S04876.v23l617 ---|*     BEGIN PUTPMF PROC.

Seq #  *Modification Id* Act 
----------------------------+
05058  M02S04877.v23l617 ---|#

Seq #  *Modification Id* Act 
----------------------------+
05059  M02S04878.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05060  M02S04879.v23l617 ---|      P<DDSC>=LOC(DDHD);

Seq #  *Modification Id* Act 
----------------------------+
05061  M02S04880.v23l617 ---|      P<DCHD>=LOC(DBUF);

Seq #  *Modification Id* Act 
----------------------------+
05062  M02S04881.v23l617 ---|      WRITEV(BLKC,CHRC,1,1,LFDC);    # LINE FEED #

Seq #  *Modification Id* Act 
----------------------------+
05063  M02S04882.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05064  M02S04883.v23l617 ---|      TPT=FWA;

Seq #  *Modification Id* Act 
----------------------------+
05065  M02S04884.v23l617 ---|      APM=DCHD$WD[DDSC$FW[APMF]]/2;

Seq #  *Modification Id* Act 
----------------------------+
05066  M02S04885.v23l617 ---|      IF (APM EQ 2) OR (APM EQ 3)

Seq #  *Modification Id* Act 
----------------------------+
05067  M02S04886.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
05068  M02S04887.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
05069  M02S04888.v23l617 ---|        COMRAT(APM,CACHE,TPT,0);     # CACHE HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
05070  M02S04889.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
05071  M02S04890.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05072  M02S04891.v23l617 ---|      TPT=TPT+1;

Seq #  *Modification Id* Act 
----------------------------+
05073  M02S04892.v23l617 ---|      IF (APM NQ 0)

Seq #  *Modification Id* Act 
----------------------------+
05074  M02S04893.v23l617 ---|      THEN

Seq #  *Modification Id* Act 
----------------------------+
05075  M02S04894.v23l617 ---|        BEGIN

Seq #  *Modification Id* Act 
----------------------------+
05076  M02S04895.v23l617 ---|        COMMTE(TPT,1);               # MEAN TIME IN EXEC STATE #

Seq #  *Modification Id* Act 
----------------------------+
05077  M02S04896.v23l617 ---|        TPT=TPT+1;

Seq #  *Modification Id* Act 
----------------------------+
05078  M02S04897.v23l617 ---|        COMRAT(APM,PAGE,TPT,2);      # PAGE MAP HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
05079  M02S04898.v23l617 ---|        TPT=TPT+1;

Seq #  *Modification Id* Act 
----------------------------+
05080  M02S04899.v23l617 ---|        COMRAT(APM,SEGMENT,TPT,3);   # SEGMENT MAP HIT RATE #

Seq #  *Modification Id* Act 
----------------------------+
05081  M02S04900.v23l617 ---|        END

Seq #  *Modification Id* Act 
----------------------------+
05082  M02S04901.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05083  M02S04902.v23l617 ---|      RETURN;

Seq #  *Modification Id* Act 
----------------------------+
05084  M02S04903.v23l617 ---|      END  # PUTPMF #

Seq #  *Modification Id* Act 
----------------------------+
05085  M02S04904.v23l617 ---|

Seq #  *Modification Id* Act 
----------------------------+
05086  M02S04905.v23l617 ---|      TERM
05087  M01S04906.acpd    +++|PROC PUTSCI;
05088  M01S04907.acpd    +++|# TITLE PUTSCI - PRINT SYSTEM CONTROL INFORMATION.  #
05089  M01S04908.acpd    +++|
05090  M01S04909.acpd    +++|      BEGIN  # PUTSCI #
05091  M01S04910.acpd    +++|
05092  M01S04911.acpd    +++|#
05093  M01S04912.acpd    +++|**    PUTSCI - PRINT SYSTEM CONTROL INFORMATION.
05094  M01S04913.acpd    +++|*
05095  M01S04914.acpd    +++|*     PRINT SYSTEM CONTROL INFORMATION.
05096  M01S04915.acpd    +++|*
05097  M01S04916.acpd    +++|*     PROC PUTSCI
05098  M01S04917.acpd    +++|*
05099  M01S04918.acpd    +++|*     ENTRY      TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
05100  M01S04919.acpd    +++|*
05101  M01S04920.acpd    +++|*     EXIT       SYSTEM CONTROL INFORMATION (SERVICE CLASSES,
05102  M01S04921.acpd    +++|*                PRIORITY, ETC.) ARE PRINTED TO THE REPORT FILE.
05103  M01S04922.acpd    +++|#
05104  M01S04923.acpd    +++|
05105  M01S04924.acpd    +++|#
05106  M01S04925.acpd    +++|****  PROC PUTSCI - XREF LIST BEGIN.
05107  M01S04926.acpd    +++|#
05108  M01S04927.acpd    +++|
05109  M01S04928.acpd    +++|      XREF
05110  M01S04929.acpd    +++|        BEGIN
05111  M01S04930.acpd    +++|        PROC RPEJECT;                # PAGE EJECT #
05112  M01S04931.acpd    +++|        PROC RPSPACE;                # LINE FEED #
05113  M01S04932.acpd    +++|        PROC WRITEV;                 # WRITE DATA ELEMENT #
05114  M01S04933.acpd    +++|        END
05115  M01S04934.acpd    +++|
05116  M01S04935.acpd    +++|#
05117  M01S04936.acpd    +++|****  PROC PUTSCI - XREF LIST END.
05118  M01S04937.acpd    +++|#
05119  M01S04938.acpd    +++|
05120  M01S04939.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
05121  M01S04940.acpd    +++|
05122  M01S04941.acpd    +++|*CALL     COMUCPD
05123  M01S04942.acpd    +++|*CALL     COMUJCA
05124  M01S04943.acpd    +++|
05125  M01S04944.acpd    +++|#
05126  M01S04945.acpd    +++|*     LOCAL VARIABLES.
05127  M01S04946.acpd    +++|#
05128  M01S04947.acpd    +++|
05129  M01S04948.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
05130  M01S04949.acpd    +++|      ITEM VALUE      I;             # TEMPORARY STORAGE #
05131  M01S04950.acpd    +++|
05132  M01S04951.acpd    +++|
05133  M01S04952.acpd    +++|
05134  M01S04953.acpd    +++|
05135  M01S04954.acpd    +++|
05136  M01S04955.acpd    +++|#
05137  M01S04956.acpd    +++|*     BEGIN PUTSCI PROC.
05138  M01S04957.acpd    +++|#
05139  M01S04958.acpd    +++|
05140  M01S04959.acpd    +++|      TLFG=0;                        # INDICATES NO SUBTITLE #
05141  M01S04960.acpd    +++|      P<DCHD>=LOC(DBUF);
05142  M01S04961.acpd    +++|      P<DDSC>=LOC(DDHD);
05143  M01S04962.acpd    +++|
05144  M01S04963.acpd    +++|      RPEJECT(OFFA);
05145  M01S04964.acpd    +++|      RPSPACE(OFFA,2,1);
05146  M01S04965.acpd    +++|      WRITEV("SYSTEM CONTROL INFORMATION",CHRC,11,26,LFDC);
05147  M01S00001.271l750 +++|
05148  M01S04966.acpd    +++|      RPSPACE(OFFA,2,1);
05149  M01S04967.acpd    +++|      WRITEV("SERVICE   QUEUE",CHRC,11,15,NLFC);
05150  M01S04968.acpd    +++|      WRITEV("               PRIORITIES",CHRC,26,25,NLFC);
05151  M01S04969.acpd    +++|      WRITEV("SERVICE LIMITS",CHRC,77,14,LFDC);
05152  M01S00002.271l750 +++|
05153  M01S04970.acpd    +++|      WRITEV("CLASS",CHRC,11,5,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05154  M02S04971.271l716 ---|      WRITEV("PR       CP     CM     NJ    TD",CHRC,68,31,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05155  M02S04972.271l716 ---|      WRITEV("FL       AM            TP",CHRC,68,25,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05156  M02S04973.271l716 ---|      WRITEV("IL     LP     UP    WF     IP",CHRC,31,29,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05157  M02S04974.271l716 ---|      WRITEV("EC       EM     DS   FC  CS  FS",CHRC,68,31,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05158  M02S00001.271l750 ---|      WRITEV("CB/L     CP      CT    CM     NJ    TD",CHRC,60,38,LFDC);
05159  M01S00003.271l750 +++|      WRITEV("CP      CT    CM     NJ    TD",CHRC,69,29,LFDC);
05160  M01S00004.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
05161  M02S00002.271l750 ---|      WRITEV("CB/U     FL      AM           TP ",CHRC,60,33,LFDC);
05162  M01S00005.271l750 +++|      WRITEV("FL      AM    TP     AJ    DT",CHRC,69,29,LFDC);
05163  M01S00006.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
05164  M02S00003.271l750 ---|      WRITEV("IL     LP     UP   WF    IP",CHRC,31,27,NLFC);
05165  M01S00007.271l750 +++|      WRITEV("IL     LP     UP    WF    IP",CHRC,31,28,NLFC);
05166  M01S00004.271l716 +++|      WRITEV("EC      EM    DS   FC  CS  FS",CHRC,69,29,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05167  M02S00005.271l750 ---|      WRITEV("SD",CHRC,69,2,LFDC);
05168  M01S00008.271l750 +++|
05169  M01S00009.271l750 +++|      WRITEV("PR      SE    RS     US",CHRC,69,23,LFDC);
05170  M01S04975.acpd    +++|
05171  M01S04976.acpd    +++|      P<JBCA>=LOC(DCHD$WD[DDSC$FW[JCBA]]);
05172  M01S04977.acpd    +++|
05173  M01S04978.acpd    +++|#
05174  M01S04979.acpd    +++|*     PRINT SERVICE CLASS INFORMATION.
05175  M01S04980.acpd    +++|#
05176  M01S04981.acpd    +++|
05177  M01S04982.acpd    +++|      SLOWFOR I=1 STEP 1 UNTIL DCHD$WD[DDSC$FW[MXNS]]-2
05178  M01S04983.acpd    +++|      DO
05179  M01S04984.acpd    +++|        BEGIN  # PROCESS ONE SERVICE CLASS #
05180  M01S04985.acpd    +++|        RPSPACE(OFFA,2,1);
05181  M01S04986.acpd    +++|        WRITEV(JCST$SC[I],CHRC,13,2,NLFC);  # SERVICE CLASS NAME #

Seq #  *Modification Id* Act 
----------------------------+
05182  M02S04987.271l750 ---|
05183  M01S04988.acpd    +++|        WRITEV("IN",CHRC,22,2,NLFC);
05184  M01S04989.acpd    +++|        WRITEV(JCA$INLP[I],OC2C,36,4,NLFC);
05185  M01S04990.acpd    +++|        WRITEV(JCA$INUP[I],OC2C,43,4,NLFC);
05186  M01S04991.acpd    +++|        VALUE=2**JCA$INWF[I];

Seq #  *Modification Id* Act 
----------------------------+
05187  M02S04992.271l716 ---|        WRITEV(VALUE,OC2C,49,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05188  M02S04993.271l716 ---|        WRITEV(JCA$PR[I],OC2C,66,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05189  M02S04994.271l716 ---|        WRITEV(JCA$CP[I],OC2C,75,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05190  M02S04995.271l716 ---|        WRITEV(JCA$CM[I],OC2C,82,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05191  M02S04996.271l716 ---|        WRITEV(JCA$NJ[I],OC2C,89,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05192  M02S04997.271l716 ---|        WRITEV(JCA$TD[I],OC2C,95,4,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05193  M02S00006.271l750 ---|        WRITEV(VALUE,OC2C,48,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05194  M02S00007.271l750 ---|        WRITEV(JCA$CL[I],OC2C,60,4,NLFC);
05195  M01S00010.271l750 +++|        WRITEV(VALUE,OC2C,49,4,NLFC);
05196  M01S00008.271l716 +++|        WRITEV(JCA$CP[I],OC2C,67,4,NLFC);
05197  M01S00009.271l716 +++|        WRITEV(JCA$CT[I],OC2C,75,4,NLFC);
05198  M01S00010.271l716 +++|        WRITEV(JCA$CM[I],OC2C,81,4,NLFC);
05199  M01S00011.271l716 +++|        WRITEV(JCA$NJ[I],OC2C,88,4,NLFC);
05200  M01S00012.271l716 +++|        WRITEV(JCA$TD[I],OC2C,94,4,LFDC);
05201  M01S04998.acpd    +++|
05202  M01S04999.acpd    +++|        WRITEV("EX",CHRC,22,2,NLFC);
05203  M01S05000.acpd    +++|        WRITEV(JCA$EXIL[I],OC2C,29,4,NLFC);
05204  M01S05001.acpd    +++|        WRITEV(JCA$EXLP[I],OC2C,36,4,NLFC);
05205  M01S05002.acpd    +++|        WRITEV(JCA$EXUP[I],OC2C,43,4,NLFC);
05206  M01S05003.acpd    +++|        VALUE=2**JCA$EXWF[I];

Seq #  *Modification Id* Act 
----------------------------+
05207  M02S05004.271l716 ---|        WRITEV(VALUE,OC2C,49,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05208  M02S05005.271l716 ---|        WRITEV(JCA$EXIP[I],OC2C,56,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05209  M02S05006.271l716 ---|        WRITEV(JCA$FL[I],OC2C,66,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05210  M02S05007.271l716 ---|        WRITEV(JCA$AM[I],OC2C,71,8,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05211  M02S05008.271l716 ---|        WRITEV(JCA$TP[I],OC2C,89,4,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05212  M02S00013.271l750 ---|        WRITEV(VALUE,OC2C,48,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05213  M02S00014.271l750 ---|        WRITEV(JCA$EXIP[I],OC2C,54,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05214  M02S00015.271l750 ---|        WRITEV(JCA$CU[I],OC2C,60,4,NLFC);
05215  M01S00011.271l750 +++|        WRITEV(VALUE,OC2C,49,4,NLFC);
05216  M01S00012.271l750 +++|        WRITEV(JCA$EXIP[I],OC2C,55,4,NLFC);
05217  M01S00016.271l716 +++|        WRITEV(JCA$FL[I],OC2C,67,4,NLFC);
05218  M01S00017.271l716 +++|        WRITEV(JCA$AM[I],OC2C,71,8,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05219  M02S00018.271l750 ---|        WRITEV(JCA$TP[I],OC2C,88,4,LFDC);
05220  M01S00013.271l750 +++|        WRITEV(JCA$TP[I],OC2C,81,4,NLFC);
05221  M01S00014.271l750 +++|        WRITEV(JCA$AJ[I],OC2C,88,4,NLFC);
05222  M01S00015.271l750 +++|        WRITEV(JCST$SC[JCA$DT[I]],CHRC,96,2,LFDC);
05223  M01S05009.acpd    +++|
05224  M01S05010.acpd    +++|        WRITEV("OT",CHRC,22,2,NLFC);
05225  M01S05011.acpd    +++|        WRITEV(JCA$OTLP[I],OC2C,36,4,NLFC);
05226  M01S05012.acpd    +++|        WRITEV(JCA$OTUP[I],OC2C,43,4,NLFC);
05227  M01S05013.acpd    +++|        VALUE=2**JCA$OTWF[I];

Seq #  *Modification Id* Act 
----------------------------+
05228  M02S05014.271l716 ---|        WRITEV(VALUE,OC2C,49,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05229  M02S05015.271l716 ---|        WRITEV(JCA$EC[I],OC2C,66,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05230  M02S05016.271l716 ---|        WRITEV(JCA$EM[I],OC2C,75,4,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05231  M02S05017.271l716 ---|        WRITEV(JCA$DS[I],OC2C,85,1,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05232  M02S05018.271l716 ---|        WRITEV(JCA$FC[I],OC2C,90,1,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05233  M02S05019.271l716 ---|        WRITEV(JCA$CS[I],OC2C,94,1,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05234  M02S05020.271l716 ---|        WRITEV(JCA$FS[I],OC2C,98,1,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05235  M02S00019.271l750 ---|        WRITEV(VALUE,OC2C,48,4,NLFC);
05236  M01S00016.271l750 +++|        WRITEV(VALUE,OC2C,49,4,NLFC);
05237  M01S00020.271l716 +++|        WRITEV(JCA$EC[I],OC2C,67,4,NLFC);
05238  M01S00021.271l716 +++|        WRITEV(JCA$EM[I],OC2C,75,4,NLFC);
05239  M01S00022.271l716 +++|        WRITEV(JCA$DS[I],OC2C,84,1,NLFC);
05240  M01S00023.271l716 +++|        WRITEV(JCA$FC[I],OC2C,89,1,NLFC);
05241  M01S00024.271l716 +++|        WRITEV(JCA$CS[I],OC2C,93,1,NLFC);
05242  M01S00025.271l716 +++|        WRITEV(JCA$FS[I],OC2C,97,1,LFDC);

Seq #  *Modification Id* Act 
----------------------------+
05243  M02S00026.271l750 ---|        WRITEV(JCA$SD[I],OC2C,67,4,LFDC);
05244  M01S00017.271l750 +++|
05245  M01S00018.271l750 +++|        WRITEV(JCA$PR[I],OC2C,67,4,NLFC);
05246  M01S00019.271l750 +++|        WRITEV(JCA$SE[I],OC2C,75,4,NLFC);
05247  M01S00020.271l750 +++|        WRITEV(JCA$RS[I],OC2C,81,4,NLFC);
05248  M01S00021.271l750 +++|        WRITEV(JCA$US[I],OC2C,88,4,LFDC);
05249  M01S00022.271l750 +++|
05250  M01S05021.acpd    +++|        END  # PROCESS ONE SERVICE CLASS #
05251  M01S05022.acpd    +++|
05252  M01S05023.acpd    +++|      RETURN;
05253  M01S05024.acpd    +++|      END  # PUTSCI #
05254  M01S05025.acpd    +++|
05255  M01S05026.acpd    +++|      TERM
05256  M01S05027.acpd    +++|PROC PUTSNS((FWA),(LWA));
05257  M01S05028.acpd    +++|# TITLE PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS.  #
05258  M01S05029.acpd    +++|
05259  M01S05030.acpd    +++|      BEGIN  # PUTSNS #
05260  M01S05031.acpd    +++|
05261  M01S05032.acpd    +++|#
05262  M01S05033.acpd    +++|**    PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS.
05263  M01S05034.acpd    +++|*
05264  M01S05035.acpd    +++|*     PUTSNS IS THE DRIVER OF THE SNAPSHOT LOOP ELEMENTS.
05265  M01S05036.acpd    +++|*
05266  M01S05037.acpd    +++|*     PROC PUTSNS((FWA),(LWA))
05267  M01S05038.acpd    +++|*
05268  M01S05039.acpd    +++|*     ENTRY      FWA = FIRST WORD ADDRESS OF SNAPSHOT LOOP
05269  M01S05040.acpd    +++|*                      ELEMENTS IN TABLE *DSPT*.
05270  M01S05041.acpd    +++|*                LWA = LAST WORD ADDRESS OF SNAPSHOT LOOP
05271  M01S05042.acpd    +++|*                      ELEMENTS IN TABLE *DSPT*.
05272  M01S05043.acpd    +++|*
05273  M01S05044.acpd    +++|*     EXIT       SNAPSHOT LOOP ELEMENTS ARE PRINTED TO THE REPORT
05274  M01S05045.acpd    +++|*                FILE.
05275  M01S05046.acpd    +++|#
05276  M01S05047.acpd    +++|
05277  M01S05048.acpd    +++|#
05278  M01S05049.acpd    +++|*     PARAMETER LIST.
05279  M01S05050.acpd    +++|#
05280  M01S05051.acpd    +++|
05281  M01S05052.acpd    +++|      ITEM FWA        I;             # *FWA* IN *DSPT* TABLE #
05282  M01S05053.acpd    +++|      ITEM LWA        I;             # *LWA* IN *DSPT* TABLE #
05283  M01S05054.acpd    +++|
05284  M01S05055.acpd    +++|#
05285  M01S05056.acpd    +++|****  PROC PUTSNS - XREF LIST BEGIN.
05286  M01S05057.acpd    +++|#
05287  M01S05058.acpd    +++|
05288  M01S05059.acpd    +++|      XREF
05289  M01S05060.acpd    +++|        BEGIN
05290  M01S05061.acpd    +++|        PROC GETMSG;                 # GET TITLE FROM TABLE *DSPTTXT* #
05291  M01S05062.acpd    +++|        PROC WRITEV;                 # WRITE DATA ELEMENT #
05292  M01S05063.acpd    +++|        END
05293  M01S05064.acpd    +++|
05294  M01S05065.acpd    +++|#
05295  M01S05066.acpd    +++|**** PROC PUTSNS - XREF LIST END.
05296  M01S05067.acpd    +++|#
05297  M01S05068.acpd    +++|
05298  M01S05069.acpd    +++|      DEF BLKC       #" "#;          # BLANK #
05299  M01S05070.acpd    +++|      DEF BPCC       #6#;            # NUMBER OF BITS PER CHAR #
05300  M01S05071.acpd    +++|      DEF NSBC       #O"777"#;       # NO SUBBLOCK FLAG #
05301  M01S05072.acpd    +++|
05302  M01S05073.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
05303  M01S05074.acpd    +++|
05304  M01S05075.acpd    +++|*CALL     COMUCPD
05305  M01S05076.acpd    +++|
05306  M01S05077.acpd    +++|#
05307  M01S05078.acpd    +++|*     LOCAL VARIABLES.
05308  M01S05079.acpd    +++|#
05309  M01S05080.acpd    +++|
05310  M01S05081.acpd    +++|      ITEM BL         U;             # BIT LENGTH #
05311  M01S05082.acpd    +++|      ITEM BT         I;             # BIT POSITION #
05312  M01S05083.acpd    +++|      ITEM FW         I;             # POINTER TO *DCDT* TABLE #
05313  M01S05084.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
05314  M01S05085.acpd    +++|      ITEM IC         I;             # INCREMENTOR #
05315  M01S05086.acpd    +++|      ITEM J          I;             # FOR LOOP CONTROL #
05316  M01S05087.acpd    +++|      ITEM K          I;             # FOR LOOP CONTROL #
05317  M01S05088.acpd    +++|      ITEM L          I;             # FOR LOOP CONTROL #
05318  M01S05089.acpd    +++|      ITEM LN         U;             # TITLE LENGTH IN CHARACTERS #
05319  M01S05090.acpd    +++|      ITEM MSG        C(50);         # TEMPORARY BUFFER #
05320  M01S05091.acpd    +++|      ITEM N          I;             # TEMPORARY STORAGE #
05321  M01S05092.acpd    +++|      ITEM PT         I;             # POINTER TO *DDDT* TABLE #
05322  M01S05093.acpd    +++|      ITEM ST         U;             # POINTER TO SUBTITLE TABLE #
05323  M01S05094.acpd    +++|      ITEM VL         I;             # TEMPORARY VALUE #
05324  M01S05095.acpd    +++|      ITEM WC         I;             # WORD COUNT #
05325  M01S05096.acpd    +++|
05326  M01S05097.acpd    +++|
05327  M01S05098.acpd    +++|
05328  M01S05099.acpd    +++|
05329  M01S05100.acpd    +++|
05330  M01S05101.acpd    +++|
05331  M01S05102.acpd    +++|#
05332  M01S05103.acpd    +++|*     BEGIN PUTSNS PROC.
05333  M01S05104.acpd    +++|#
05334  M01S05105.acpd    +++|
05335  M01S05106.acpd    +++|      P<DCDT>=LOC(DBUF[DCHL]);
05336  M01S05107.acpd    +++|      P<DDSC>=LOC(DDDT);
05337  M01S05108.acpd    +++|
05338  M01S05109.acpd    +++|      FASTFOR I=FWA STEP 1 UNTIL LWA
05339  M01S05110.acpd    +++|      DO
05340  M01S05111.acpd    +++|        BEGIN  # FOLLOW TABLE *DSPT* #
05341  M01S05112.acpd    +++|        PT=DSPT$PT[I];               # POINTER TO *DDSC* #
05342  M01S05113.acpd    +++|        ST=DSPT$ST[I];               # POINTER TO *SMGT* #
05343  M01S05114.acpd    +++|        BL=DSPT$BL[I];               # BIT LENGTH #
05344  M01S05115.acpd    +++|        LN=DSPT$LN[I];
05345  M01S05116.acpd    +++|        GETMSG(I,MSG);
05346  M01S05117.acpd    +++|        FW=DDSC$FW[PT];
05347  M01S05118.acpd    +++|        IC=DDSC$IC[PT];              # INCREMENTOR #
05348  M01S05119.acpd    +++|
05349  M01S05120.acpd    +++|#
05350  M01S05121.acpd    +++|*     IF BIT LENGTH *BL* IS ZERO, THE VALUE IS A FULL WORD VALUE.
05351  M01S05122.acpd    +++|*     THE VALUE IS PRINTED IN FIVE 12-BIT BYTES, IN SUCCESSIVE ROWS.
05352  M01S05123.acpd    +++|#
05353  M01S05124.acpd    +++|
05354  M01S05125.acpd    +++|        IF (BL EQ 0)                 # NO BIT LENGTH #
05355  M01S05126.acpd    +++|        THEN
05356  M01S05127.acpd    +++|          BEGIN  # ACCESS FULL WORD #
05357  M01S05128.acpd    +++|          WRITEV(MSG,CHRC,1,LN,LFDC);
05358  M01S05129.acpd    +++|          FASTFOR J=1 STEP 1 UNTIL DDSC$LN[PT]
05359  M01S05130.acpd    +++|          DO
05360  M01S05131.acpd    +++|            BEGIN  # PROCESS ONE ENTRY #
05361  M01S05132.acpd    +++|            IF (ST NQ NSBC)          # SUBTITLE PRESENT #
05362  M01S05133.acpd    +++|            THEN                     # PRINT SUBTITLE #
05363  M01S05134.acpd    +++|              BEGIN
05364  M01S05135.acpd    +++|              MSG=SMGT$TX[ST+J-1];
05365  M01S05136.acpd    +++|              WRITEV(MSG,CHRC,10,10,NLFC);
05366  M01S05137.acpd    +++|              END
05367  M01S05138.acpd    +++|
05368  M01S05139.acpd    +++|            FASTFOR L=0 STEP 1 UNTIL 4
05369  M01S05140.acpd    +++|            DO
05370  M01S05141.acpd    +++|              BEGIN  # BREAK A WORD INTO FIVE BYTES #
05371  M01S05142.acpd    +++|              N=31;
05372  M01S05143.acpd    +++|              SLOWFOR K=1 STEP 1 UNTIL NIPP
05373  M01S05144.acpd    +++|              DO                     # PRINT BYTE L OF COLUMN K #
05374  M01S05145.acpd    +++|                BEGIN
05375  M01S05146.acpd    +++|                VL=C<L*2,2>DCDT$CW[(K-1)*DCDL + FW];
05376  M01S05147.acpd    +++|                WRITEV(VL,OC3C,N,4,NLFC);
05377  M01S05148.acpd    +++|                N=N+10;
05378  M01S05149.acpd    +++|                END
05379  M01S05150.acpd    +++|
05380  M01S05151.acpd    +++|              WRITEV(BLKC,CHRC,N+2,1,LFDC);  # LINE FEED #
05381  M01S05152.acpd    +++|              END  # BREAK A WORD INTO FIVE BYTES #
05382  M01S05153.acpd    +++|
05383  M01S05154.acpd    +++|            FW=FW+IC;
05384  M01S05155.acpd    +++|            END  # PROCESS ONE ENTRY #
05385  M01S05156.acpd    +++|
05386  M01S05157.acpd    +++|          END  # ACCESS FULL WORD #
05387  M01S05158.acpd    +++|
05388  M01S05159.acpd    +++|#
05389  M01S05160.acpd    +++|*     IF BIT LENGTH *BL* IS NON ZERO, THE VALUE IS A PARTIAL WORD
05390  M01S05161.acpd    +++|*     VALUE. *WC* IS THE WORD COUNT INDICATING WHAT WORD IN A
05391  M01S05162.acpd    +++|*     MULTIPLE-ENTRY ELEMENT THAT CONTAINS THE VALUE. IF THE ELEMENT
05392  M01S05163.acpd    +++|*     IS A SINGLE-ENTRY ELEMENT, *WC* IS ZERO. *BL* AND *BT* ARE
05393  M01S05164.acpd    +++|*     THE NUMBER OF BITS AND THE STARTING BIT POSITION, RESPECTIVELY.
05394  M01S05165.acpd    +++|#
05395  M01S05166.acpd    +++|
05396  M01S05167.acpd    +++|        ELSE
05397  M01S05168.acpd    +++|          BEGIN  # ACCESS PARTIAL WORD #
05398  M01S05169.acpd    +++|          WRITEV(MSG,CHRC,1,LN,NLFC);
05399  M01S05170.acpd    +++|          BT=DSPT$BT[I]/BPCC;        # CHARACTER POSITION #
05400  M01S05171.acpd    +++|          WC=DSPT$WC[I];             # WORD POSITION #
05401  M01S05172.acpd    +++|          BL=BL/BPCC;                # NUMBER OF CHARACTERS #
05402  M01S05173.acpd    +++|          N=BCLC + 2;
05403  M01S05174.acpd    +++|
05404  M01S05175.acpd    +++|          SLOWFOR J=1 STEP 1 UNTIL NIPP
05405  M01S05176.acpd    +++|          DO
05406  M01S05177.acpd    +++|            BEGIN
05407  M01S05178.acpd    +++|            VL=C<BT,BL>DCDT$CW[(J-1)*DCDL + FW + WC];
05408  M01S05179.acpd    +++|            WRITEV(VL,INTC,N,8,NLFC);
05409  M01S05180.acpd    +++|            N=N+10;
05410  M01S05181.acpd    +++|            END
05411  M01S05182.acpd    +++|
05412  M01S05183.acpd    +++|          WRITEV(BLKC,CHRC,N+2,1,LFDC);  # LINE FEED #
05413  M01S05184.acpd    +++|          END  # ACCESS PARTIAL WORD #
05414  M01S05185.acpd    +++|
05415  M01S05186.acpd    +++|        END  # FOLLOW TABLE *DSPT* #
05416  M01S05187.acpd    +++|
05417  M01S05188.acpd    +++|      RETURN;
05418  M01S05189.acpd    +++|      END  # PUTSNS #
05419  M01S05190.acpd    +++|
05420  M01S05191.acpd    +++|      TERM
05421  M01S05192.acpd    +++|PROC READRC(STAT);
05422  M01S05193.acpd    +++|# TITLE READRC - READ DATA FILE.  #
05423  M01S05194.acpd    +++|
05424  M01S05195.acpd    +++|      BEGIN  # READRC #
05425  M01S05196.acpd    +++|
05426  M01S05197.acpd    +++|#
05427  M01S05198.acpd    +++|**    READRC - READ DATA FILE.
05428  M01S05199.acpd    +++|*
05429  M01S05200.acpd    +++|*     READ ONE RECORD FROM THE DATA FILE.
05430  M01S05201.acpd    +++|*
05431  M01S05202.acpd    +++|*     PROC READRC(STAT)
05432  M01S05203.acpd    +++|*
05433  M01S05204.acpd    +++|*     ENTRY      THE DATA FILE.
05434  M01S05205.acpd    +++|*
05435  M01S05206.acpd    +++|*     EXIT       STAT = STATUS CODE.
05436  M01S05207.acpd    +++|*                ONE RECORD OF THE DATA FILE IS READ TO
05437  M01S05208.acpd    +++|*                WORKING STORAGE AREA *WSAI*.
05438  M01S05209.acpd    +++|*                THE NUMBER OF WORDS READ *IBNW* IS UPDATED.
05439  M01S05210.acpd    +++|#
05440  M01S05211.acpd    +++|
05441  M01S05212.acpd    +++|#
05442  M01S05213.acpd    +++|*     PARAMETER LIST.
05443  M01S05214.acpd    +++|#
05444  M01S05215.acpd    +++|
05445  M01S05216.acpd    +++|      ITEM STAT       I;             # STATUS CODE #
05446  M01S05217.acpd    +++|
05447  M01S05218.acpd    +++|#
05448  M01S05219.acpd    +++|****  PROC READRC - XREF LIST BEGIN.
05449  M01S05220.acpd    +++|#
05450  M01S05221.acpd    +++|
05451  M01S05222.acpd    +++|      XREF
05452  M01S05223.acpd    +++|        BEGIN
05453  M01S05224.acpd    +++|        PROC READSKP;                # READ AND SKIP #
05454  M01S05225.acpd    +++|        END
05455  M01S05226.acpd    +++|
05456  M01S05227.acpd    +++|#
05457  M01S05228.acpd    +++|****  PROC READRC - XREF LIST END.
05458  M01S05229.acpd    +++|#
05459  M01S05230.acpd    +++|
05460  M01S05231.acpd    +++|      DEF RFETL      #8#;            # FET LENGTH #
05461  M01S05232.acpd    +++|
05462  M01S05233.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
05463  M01S05234.acpd    +++|
05464  M01S05235.acpd    +++|*CALL     COMAFET
05465  M01S05236.acpd    +++|*CALL     COMUCPD
05466  M01S05237.acpd    +++|
05467  M01S05238.acpd    +++|#
05468  M01S05239.acpd    +++|*     LOCAL VARIABLES.
05469  M01S05240.acpd    +++|#
05470  M01S05241.acpd    +++|
05471  M01S05242.acpd    +++|      ARRAY STT [0:0] P(1);          # STATUS CODE #
05472  M01S05243.acpd    +++|        BEGIN  # ARRAY STT #
05473  M01S05244.acpd    +++|        ITEM STT$STAT   U(00,42,18);  # STATUS #
05474  M01S05245.acpd    +++|        ITEM STT$LN     U(00,42,04);  # LEVEL NUMBER #
05475  M01S05246.acpd    +++|        ITEM STT$AT     U(00,46,04);  # ABNORMAL TERMINATION CODE #
05476  M01S05247.acpd    +++|        ITEM STT$CODE   U(00,50,10);  # REQUEST/RETURN CODE #
05477  M01S05248.acpd    +++|        END  # ARRAY STT #
05478  M01S05249.acpd    +++|
05479  M01S05250.acpd    +++|
05480  M01S05251.acpd    +++|
05481  M01S05252.acpd    +++|
05482  M01S05253.acpd    +++|#
05483  M01S05254.acpd    +++|*     BEGIN READRC PROC.
05484  M01S05255.acpd    +++|#
05485  M01S05256.acpd    +++|
05486  M01S05257.acpd    +++|      P<FETSET>=LOC(FETI);
05487  M01S05258.acpd    +++|      FET$IN[0]=FET$FRST[0];         # SET *IN* = *FIRST* #
05488  M01S05259.acpd    +++|      FET$OUT[0]=FET$FRST[0];        # SET *OUT* = *FIRST* #
05489  M01S05260.acpd    +++|      READSKP(FETSET,0,1);
05490  M01S05261.acpd    +++|      IBNW = FET$IN[0] - FET$OUT[0];  # NUMBER OF WORDS READ #
05491  M01S05262.acpd    +++|      STT$LN[0]=FET$LN[0];
05492  M01S05263.acpd    +++|      STT$AT[0]=FET$AT[0];
05493  M01S05264.acpd    +++|      STT$CODE[0]=FET$CODE[0];
05494  M01S05265.acpd    +++|
05495  M01S05266.acpd    +++|      STAT=STT$STAT[0];
05496  M01S05267.acpd    +++|      RETURN;
05497  M01S05268.acpd    +++|      END  # READRC #
05498  M01S05269.acpd    +++|
05499  M01S05270.acpd    +++|      TERM
05500  M01S05271.acpd    +++|PROC REPTLE;
05501  M01S05272.acpd    +++|# TITLE REPTLE - PRINT REPORT SUBTITLE.  #
05502  M01S05273.acpd    +++|
05503  M01S05274.acpd    +++|      BEGIN  # REPTLE #
05504  M01S05275.acpd    +++|
05505  M01S05276.acpd    +++|#
05506  M01S05277.acpd    +++|**    REPTLE - PRINT REPORT SUBTITLE.
05507  M01S05278.acpd    +++|*
05508  M01S05279.acpd    +++|*     *REPTLE* PRINTS THE SUBTITLE AT EACH PAGE EJECT.
05509  M01S05280.acpd    +++|*     THE SUBTITLE TO BE PRINTED DEPENDS ON THE VALUE
05510  M01S05281.acpd    +++|*     OF *TLFG* (COMMON BLOCK *CIOCOMM*).
05511  M01S05282.acpd    +++|*
05512  M01S05283.acpd    +++|*     PROC REPTLE
05513  M01S05284.acpd    +++|*
05514  M01S05285.acpd    +++|*     ENTRY      NIPP = NUMBER OF INTERVALS PER PAGE
05515  M01S05286.acpd    +++|*                       (COMMON BLOCK *CIOCOMM*).
05516  M01S05287.acpd    +++|*                TLFG = SUBTITLE FLAG (COMMON BLOCK *CIOCOMM*).
05517  M01S05288.acpd    +++|*                       IF *TLFG* IS :
05518  M01S05289.acpd    +++|*                       0    NO SUBTITLE.
05519  M01S05290.acpd    +++|*                       1    PRINT SUBTITLE FOR DATA BLOCK.
05520  M01S05291.acpd    +++|*                       2    PRINT SUBTITLE FOR SNAPSHOT.
05521  M01S05292.acpd    +++|*                       3    PRINT SUBTITLE FOR EST REPORT.
05522  M01S05293.acpd    +++|*
05523  M01S05294.acpd    +++|*     EXIT       SUBTITLE IS PRINTED ON TOP OF EACH PAGE.
05524  M01S05295.acpd    +++|#
05525  M01S05296.acpd    +++|
05526  M01S05297.acpd    +++|#
05527  M01S05298.acpd    +++|****  PROC REPTLE - XREF LIST BEGIN.
05528  M01S05299.acpd    +++|#
05529  M01S05300.acpd    +++|
05530  M01S05301.acpd    +++|      XREF
05531  M01S05302.acpd    +++|        BEGIN
05532  M01S05303.acpd    +++|        FUNC EDATE C(10);            # CONVERT NUMBER TO DATE #
05533  M01S05304.acpd    +++|        FUNC ETIME C(10);            # CONVERT NUMBER TO TIME #
05534  M01S05305.acpd    +++|        PROC RPLINEX;                # PRINT ONE LINE #
05535  M01S05306.acpd    +++|        FUNC XCDD C(10);             # CONVERT TO DISPLAY DECIMAL #
05536  M01S05307.acpd    +++|        END
05537  M01S05308.acpd    +++|
05538  M01S05309.acpd    +++|#
05539  M01S05310.acpd    +++|****  PROC REPTLE - XREF LIST END.
05540  M01S05311.acpd    +++|#
05541  M01S05312.acpd    +++|
05542  M01S05313.acpd    +++|      DEF ASTC       #"*"#;          # ASTERISK #
05543  M01S05314.acpd    +++|      DEF BLKC       #" "#;          # BLANK #
05544  M01S05315.acpd    +++|      DEF PRDC       #"."#;          # PERIOD #
05545  M01S05316.acpd    +++|      DEF SLSC       #"/"#;          # SLASH #
05546  M01S05317.acpd    +++|      DEF ZERC       #"0"#;          # CHARACTER ZERO #
05547  M01S05318.acpd    +++|
05548  M01S05319.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
05549  M01S05320.acpd    +++|
05550  M01S05321.acpd    +++|*CALL     COMUCPD
05551  M01S05322.acpd    +++|
05552  M01S05323.acpd    +++|#
05553  M01S05324.acpd    +++|*     LOCAL VARIABLES.
05554  M01S05325.acpd    +++|#
05555  M01S05326.acpd    +++|
05556  M01S05327.acpd    +++|      ITEM ESTFS      B=TRUE;        # FIRST EST SUBTITLE FLAG #
05557  M01S05328.acpd    +++|      ITEM HRS        I;             # HOUR #
05558  M01S05329.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
05559  M01S05330.acpd    +++|      ITEM J          I;             # TEMPORARY VARIABLE #
05560  M01S05331.acpd    +++|      ITEM MNS        I;             # MINUTE #
05561  M01S05332.acpd    +++|      ITEM MSG        C(40);         # TEMPORARY STORAGE #
05562  M01S05333.acpd    +++|      ITEM N          I;             # TEMPORARY VARIABLE #
05563  M01S05334.acpd    +++|      ITEM N1         I;             # TEMPORARY VARIABLE #
05564  M01S05335.acpd    +++|      ITEM N2         I;             # TEMPORARY VARIABLE #
05565  M01S05336.acpd    +++|      ITEM OF         I;             # OFFSET #
05566  M01S05337.acpd    +++|
05567  M01S05338.acpd    +++|      ARRAY T [0:0] P(1);            # TEMPORARY STORAGE #
05568  M01S05339.acpd    +++|        BEGIN
05569  M01S05340.acpd    +++|        ITEM T$WD       C(00,00,10);  # TEN CHARACTER WORD #
05570  M01S05341.acpd    +++|        ITEM T$3C       C(00,00,03);  # THREE CHARACTER ITEM #
05571  M01S05342.acpd    +++|        ITEM T$2C       C(00,00,02);  # TWO CHARACTER ITEM #
05572  M01S05343.acpd    +++|        ITEM T$1C       C(00,00,01);  # ONE CHARACTER ITEM #
05573  M01S05344.acpd    +++|        ITEM T$ZC       C(00,06,01);  # ZERO FILL #
05574  M01S05345.acpd    +++|        END
05575  M01S05346.acpd    +++|
05576  M01S05347.acpd    +++|      ARRAY TEM [0:0] P(1);          # TEMPORARY STORAGE #
05577  M01S05348.acpd    +++|        BEGIN  # ARRAY TEM #
05578  M01S05349.acpd    +++|        ITEM TEM$WD     C(00,00,10);  # TEN CHARACTER ITEM #
05579  M01S05350.acpd    +++|        ITEM TEM$3C     C(00,42,03);  # THREE CHARACTER ITEM #
05580  M01S05351.acpd    +++|        ITEM TEM$2C     C(00,48,02);  # TWO CHARACTER ITEM #
05581  M01S05352.acpd    +++|        END
05582  M01S05353.acpd    +++|
05583  M01S05354.acpd    +++|
05584  M01S05355.acpd    +++|
05585  M01S05356.acpd    +++|
05586  M01S05357.acpd    +++|
05587  M01S05358.acpd    +++|
05588  M01S05359.acpd    +++|#
05589  M01S05360.acpd    +++|*     BEGIN REPTLE PROC.
05590  M01S05361.acpd    +++|#
05591  M01S05362.acpd    +++|
05592  M01S05363.acpd    +++|      IF (TLFG EQ 0) OR (P$L EQ NULL)   # NO TITLE OR NO REPORT FILE #
05593  M01S05364.acpd    +++|      THEN
05594  M01S05365.acpd    +++|        BEGIN
05595  M01S05366.acpd    +++|        RETURN;                      # NO SUBTITLE #
05596  M01S05367.acpd    +++|        END
05597  M01S05368.acpd    +++|
05598  M01S05369.acpd    +++|      IF (TLFG EQ 3)                 # PRINTING EST #
05599  M01S05370.acpd    +++|      THEN
05600  M01S05371.acpd    +++|        BEGIN  # PRINT EST SUBTITLE #
05601  M01S05372.acpd    +++|        RPLINEX(OFFA,BLKC,1,1,LFDC);
05602  M01S05373.acpd    +++|        RPLINEX(OFFA,BLKC,1,1,LFDC);
05603  M01S05374.acpd    +++|        IF (ESTFS)                   # FIRST EST SUBTITLE #
05604  M01S05375.acpd    +++|        THEN
05605  M01S05376.acpd    +++|          BEGIN
05606  M01S05377.acpd    +++|          MSG="EQUIPMENT STATUS TABLE";
05607  M01S05378.acpd    +++|          RPLINEX(OFFA,MSG,5,22,LFDC);
05608  M01S05379.acpd    +++|          ESTFS=FALSE;
05609  M01S05380.acpd    +++|          END
05610  M01S05381.acpd    +++|
05611  M01S05382.acpd    +++|        ELSE                         # SECOND EST SUBTITLE #
05612  M01S05383.acpd    +++|          BEGIN
05613  M01S05384.acpd    +++|          MSG="EQUIPMENT STATUS TABLE  (CONTINUED)";
05614  M01S05385.acpd    +++|          RPLINEX(OFFA,MSG,5,35,LFDC);
05615  M01S05386.acpd    +++|          END
05616  M01S05387.acpd    +++|
05617  M01S05388.acpd    +++|        MSG="NO.  TYPE  STAT  EQ  UN  CHANNELS";
05618  M01S05389.acpd    +++|        RPLINEX(OFFA,MSG,5,33,NLFC);
05619  M01S05390.acpd    +++|        MSG="EST ENTRY";
05620  M01S05391.acpd    +++|        RPLINEX(OFFA,MSG,42,9,NLFC);
05621  M01S05392.acpd    +++|        MSG="TRACK       FILES";
05622  M01S05393.acpd    +++|        RPLINEX(OFFA,MSG,86,17,LFDC);
05623  M01S05394.acpd    +++|        RPLINEX(OFFA,BLKC,1,1,LFDC);
05624  M01S05395.acpd    +++|        RETURN;
05625  M01S05396.acpd    +++|        END  # PRINT EST SUBTITLE #
05626  M01S05397.acpd    +++|
05627  M01S05398.acpd    +++|      P<DCDT>=LOC(DBUF[DCHL]);
05628  M01S05399.acpd    +++|      P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
05629  M01S05400.acpd    +++|      P<DDSC>=LOC(DDDT);
05630  M01S05401.acpd    +++|
05631  M01S05402.acpd    +++|#
05632  M01S05403.acpd    +++|*     PRINT INTERVAL TIMES.
05633  M01S05404.acpd    +++|#
05634  M01S05405.acpd    +++|
05635  M01S05406.acpd    +++|      RPLINEX(OFFA,BLKC,1,1,LFDC);   # LINE FEED #

Seq #  *Modification Id* Act 
----------------------------+
05636  M02S05407.v23l617 ---|      TEM$WD[0]=XCDD(P$IN);
05637  M01S00092.v23l617 +++|      IF(P$IN NQ 0)
05638  M01S00093.v23l617 +++|      THEN
05639  M01S00094.v23l617 +++|        BEGIN
05640  M01S00095.v23l617 +++|        TEM$WD=XCDD(P$IN);
05641  M01S00096.v23l617 +++|        END
05642  M01S00097.v23l617 +++|
05643  M01S00098.v23l617 +++|      ELSE
05644  M01S00099.v23l617 +++|        BEGIN
05645  M01S00100.v23l617 +++|        TEM$WD=XCDD(P$IC);
05646  M01S00101.v23l617 +++|        END
05647  M01S00102.v23l617 +++|
05648  M01S05408.acpd    +++|      T$3C[0]=TEM$3C[0];
05649  M01S05409.acpd    +++|      RPLINEX(OFFA,T,1,3,NLFC);

Seq #  *Modification Id* Act 
----------------------------+
05650  M02S05410.v23l617 ---|      RPLINEX(OFFA," MINS INTERVAL",5,14,NLFC);
05651  M01S00103.v23l617 +++|      IF (P$IN NQ 0)                 # INTERVAL TIME SPECIFIED #
05652  M01S00104.v23l617 +++|      THEN
05653  M01S00105.v23l617 +++|        BEGIN
05654  M01S00106.v23l617 +++|        RPLINEX(OFFA," MINS INTERVAL ",5,14,NLFC);
05655  M01S00107.v23l617 +++|        END
05656  M01S00108.v23l617 +++|
05657  M01S00109.v23l617 +++|      ELSE
05658  M01S00110.v23l617 +++|        BEGIN
05659  M01S00111.v23l617 +++|        RPLINEX(OFFA," RECS INTERVAL ",5,14,NLFC);
05660  M01S00112.v23l617 +++|        END
05661  M01S05411.acpd    +++|
05662  M01S05412.acpd    +++|      J = BCLC + 1;
05663  M01S05413.acpd    +++|      OF=DCDC*DCDL + DDSC$FW[PDTM];
05664  M01S05414.acpd    +++|
05665  M01S05415.acpd    +++|      SLOWFOR I=1 STEP 1 UNTIL NIPP
05666  M01S05416.acpd    +++|      DO
05667  M01S05417.acpd    +++|        BEGIN  # PRINT INTERVAL TIME #
05668  M01S05418.acpd    +++|        N=DCDT$ET[(I-1)*DCDL + OF];  # INTERVAL END TIME #
05669  M01S05419.acpd    +++|        T$WD[0]=ETIME(N);            # CONVERT TO DISPLAY TIME #
05670  M01S05420.acpd    +++|        RPLINEX(OFFA,T,J,9,NLFC);
05671  M01S05421.acpd    +++|        J=J+10;
05672  M01S05422.acpd    +++|        END  # PRINT INTERVAL TIME #
05673  M01S05423.acpd    +++|
05674  M01S05424.acpd    +++|#
05675  M01S05425.acpd    +++|*     PRINT TITLES OF SUBTOTAL AND TOTAL. IF SNAPSHOT
05676  M01S05426.acpd    +++|*     LOOP IS BEING PRINTED, THESE TITLES WILL NOT BE
05677  M01S05427.acpd    +++|*     PRINTED.
05678  M01S05428.acpd    +++|#
05679  M01S05429.acpd    +++|
05680  M01S05430.acpd    +++|      IF (TLFG EQ 1)                 # NOT PRINTING SNAPSHOT ELEMENTS #
05681  M01S05431.acpd    +++|      THEN
05682  M01S05432.acpd    +++|        BEGIN  # PRINT TIME #
05683  M01S05433.acpd    +++|
05684  M01S05434.acpd    +++|#
05685  M01S05435.acpd    +++|*     PRINT SUBTOTAL HEADER. SUBTOTAL IS NOT PRINTED IF THE SUBTOTAL
05686  M01S05436.acpd    +++|*     AND THE TOTAL COLUMNS ARE THE SAME, I.E. IF THE TOTAL COLUMNS
05687  M01S05437.acpd    +++|*     PRINTED *TCOL* IS LESS THAN 7 COLUMNS. THE SUBTOTAL HEADER IS
05688  M01S05438.acpd    +++|*     NOT PRINTED IF THE CURRENT PAGE IS USED TO PRINT THE TOTAL
05689  M01S05439.acpd    +++|*     STATISTICS ONLY (*NIPP* IS 0).
05690  M01S05440.acpd    +++|#
05691  M01S05441.acpd    +++|
05692  M01S05442.acpd    +++|        IF (NIPP GR 0) AND (TCOL GR (DCDC-3))
05693  M01S05443.acpd    +++|        THEN
05694  M01S05444.acpd    +++|          BEGIN  # COMPUTE AND PRINT LENGTH OF SUBTOTAL #
05695  M01S05445.acpd    +++|          N=P$IN*NIPP;               # LENGTH OF SUBTOTAL #
05696  M01S05446.acpd    +++|          HRS=N/60;                  # NUMBER OF HOURS #
05697  M01S05447.acpd    +++|          MNS=N - (HRS*60);          # NUMBER OF MINUTES #
05698  M01S05448.acpd    +++|          TEM$WD=XCDD(HRS);
05699  M01S05449.acpd    +++|          T$3C[0]=TEM$3C[0];
05700  M01S05450.acpd    +++|          IF (T$2C[0] EQ BLKC)
05701  M01S05451.acpd    +++|          THEN
05702  M01S05452.acpd    +++|            BEGIN
05703  M01S05453.acpd    +++|            T$ZC[0]=ZERC;
05704  M01S05454.acpd    +++|            END
05705  M01S05455.acpd    +++|
05706  M01S05456.acpd    +++|          RPLINEX(OFFA,T,J,3,NLFC);
05707  M01S05457.acpd    +++|          RPLINEX(OFFA,":",J+3,1,NLFC);
05708  M01S05458.acpd    +++|          TEM$WD=XCDD(MNS);
05709  M01S05459.acpd    +++|          T$2C[0]=TEM$2C[0];
05710  M01S05460.acpd    +++|          IF (T$1C[0] EQ BLKC)
05711  M01S05461.acpd    +++|          THEN
05712  M01S05462.acpd    +++|            BEGIN
05713  M01S05463.acpd    +++|            T$1C[0]=ZERC;
05714  M01S05464.acpd    +++|            END
05715  M01S05465.acpd    +++|
05716  M01S05466.acpd    +++|          RPLINEX(OFFA,T,J+4,2,NLFC);
05717  M01S05467.acpd    +++|          END  # COMPUTE AND PRINT LENGTH OF SUBTOTAL #
05718  M01S05468.acpd    +++|
05719  M01S05469.acpd    +++|#
05720  M01S05470.acpd    +++|*     PRINT TOTAL HEADER. TOTAL HEADER IS NOT PRINTED IF MORE
05721  M01S05471.acpd    +++|*     THAN 7 COLUMNS ARE PRINTED ON THE CURRENT PAGE.
05722  M01S05472.acpd    +++|#
05723  M01S05473.acpd    +++|
05724  M01S05474.acpd    +++|        IF (NIPP GR (DCDC-3))
05725  M01S05475.acpd    +++|        THEN
05726  M01S05476.acpd    +++|          BEGIN
05727  M01S05477.acpd    +++|          RPLINEX(OFFA," HR",J+6,3,LFDC);
05728  M01S05478.acpd    +++|          END
05729  M01S05479.acpd    +++|
05730  M01S05480.acpd    +++|        ELSE
05731  M01S05481.acpd    +++|          BEGIN  # COMPUTE AND PRINT LENGTH OF TOTAL #
05732  M01S05482.acpd    +++|          IF (NIPP GR 0) AND (TCOL GR (DCDC-3))
05733  M01S05483.acpd    +++|          THEN
05734  M01S05484.acpd    +++|            BEGIN
05735  M01S05485.acpd    +++|            RPLINEX(OFFA," HR",J+6,3,NLFC);
05736  M01S05486.acpd    +++|            J=J+10;
05737  M01S05487.acpd    +++|            END
05738  M01S05488.acpd    +++|
05739  M01S05489.acpd    +++|          P<DCHD>=LOC(DBUF);
05740  M01S05490.acpd    +++|          P<DDSC>=LOC(DDHD);
05741  M01S05491.acpd    +++|          N=(DCHD$WD[DDSC$FW[DLFW]]*ACNS)/60;  # TOTAL MINUTES #
05742  M01S05492.acpd    +++|          HRS=N/60;                  # TOTAL HOURS #
05743  M01S05493.acpd    +++|          MNS=N - (HRS*60);
05744  M01S05494.acpd    +++|          TEM$WD[0]=XCDD(HRS);
05745  M01S05495.acpd    +++|          T$3C[0]=TEM$3C[0];
05746  M01S05496.acpd    +++|          IF (T$2C[0] EQ BLKC)
05747  M01S05497.acpd    +++|          THEN
05748  M01S05498.acpd    +++|            BEGIN
05749  M01S05499.acpd    +++|            T$ZC[0]=ZERC;
05750  M01S05500.acpd    +++|            END
05751  M01S05501.acpd    +++|
05752  M01S05502.acpd    +++|          RPLINEX(OFFA,T,J,3,NLFC);
05753  M01S05503.acpd    +++|          RPLINEX(OFFA,":",J+3,1,NLFC);
05754  M01S05504.acpd    +++|          TEM$WD[0]=XCDD(MNS);
05755  M01S05505.acpd    +++|          T$2C[0]=TEM$2C[0];
05756  M01S05506.acpd    +++|          IF (T$1C[0] EQ BLKC)
05757  M01S05507.acpd    +++|          THEN
05758  M01S05508.acpd    +++|            BEGIN
05759  M01S05509.acpd    +++|            T$1C[0]=ZERC;
05760  M01S05510.acpd    +++|            END
05761  M01S05511.acpd    +++|
05762  M01S05512.acpd    +++|          RPLINEX(OFFA,T,J+4,2,NLFC);
05763  M01S05513.acpd    +++|          RPLINEX(OFFA," HR",J+6,3,NLFC);
05764  M01S05514.acpd    +++|
05765  M01S05515.acpd    +++|#
05766  M01S05516.acpd    +++|*     PRINT HEADERS FOR THE MAXIMUM AND MINIMUM STATISTIC COLUMNS.
05767  M01S05517.acpd    +++|#
05768  M01S05518.acpd    +++|
05769  M01S05519.acpd    +++|          P<DDSC>=LOC(DDDT);
05770  M01S05520.acpd    +++|          N1=DDSM$BT[DDSC$FW[PDTM]];   # TOTAL BEGIN TIME #

Proceed to Part 4