User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:acpd

Deck ACPD

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.acpd    +++|          IDENT  ACPD
00002  M01S00002.acpd    +++|          SST
00003  M01S00003.acpd    +++|          ENTRY  ACPD
00004  M01S00004.acpd    +++|          ENTRY  PAP
00005  M01S00005.acpd    +++|          ENTRY  RFL=
00006  M01S00006.acpd    +++|          SYSCOM B1
00007  M01S00007.acpd    +++|          TITLE  ACPD - ANALYZE PERFORMANCE DATA.
00008  M01S00008.acpd    +++|*COMMENT  ACPD - ANALYZE PERFORMANCE DATA.
Line S00009 Modification History
M01 (Added by) acpd
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1983.
00010  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00011  M01S00010.acpd    +++|          SPACE  4,10
00012  M01S00011.acpd    +++|**        MPAR - MULTIPLE PRECISION ARRAY.
00013  M01S00012.acpd    +++|*
00014  M01S00013.acpd    +++|* NAME    MPAR   LEN,PREC,LMP
00015  M01S00014.acpd    +++|*
00016  M01S00015.acpd    +++|*         ENTRY  *NAME*   = NAME OF DATA ITEM.
00017  M01S00016.acpd    +++|*                *LEN*    = NUMBER OF ENTRIES OF DATA ITEM.
00018  M01S00017.acpd    +++|*                *PREC*   = PRECISION OF ITEM IN PP WORDS.
00019  M01S00018.acpd    +++|*                *LMP*    = POINTER TO LENGTH MULTIPLIER.
00020  M01S00019.acpd    +++|*
00021  M01S00020.acpd    +++|*         EXIT   *NAME*   = ORDINAL OF ITEM IN THE CORRESPONDING TABLE.
00022  M01S00021.acpd    +++|*                *P.NAME* = PRECISION OF THE ITEM.
00023  M01S00022.acpd    +++|*                *L.NAME* = LENGTH OF THE ITEM.
00024  M01S00023.acpd    +++|*
00025  M01S00024.acpd    +++|*         NOTE   *MPAR* TABLE FORMAT IS
00026  M01S00025.acpd    +++|*T        24/NAME,3/TP,6/LMP,4/ICM,11/PREC,12/LEN
Figure

011122223262729LENPRECICMLMP303233353659LMPTPNAME

00027  M01S00026.acpd    +++|*
00028  M01S00027.acpd    +++|*         WHERE
00029  M01S00028.acpd    +++|*
00030  M01S00029.acpd    +++|*         *TP*   TYPE OF BLOCK (HEADER, FAST, MEDIUM, SLOW
00031  M01S00030.acpd    +++|*                OR SNAPSHOT LOOP).
00032  M01S00031.acpd    +++|*         *ICM*  INDICATES THAT THE FOLLOWING GROUP OF DATA ELEMENTS
00033  M01S00032.acpd    +++|*                (UP TO THE NEXT DEFINITION OF *ICM*) IS EITHER A
00034  M01S00033.acpd    +++|*                SINGLE OR MULTIPLE ELEMENT ENTRY.
00035  M01S00034.acpd    +++|*
00036  M01S00035.acpd    +++|*         WARNING - IF ARRAY LENGTH IS NOT EQUAL TO ONE. THE ELEMENT
00037  M01S00036.acpd    +++|*         PRECISION MUST NOT BE GREATER THAN TWO.
00038  M01S00037.acpd    +++|
00039  M01S00038.acpd    +++|          PURGMAC MPAR
00040  M01S00039.acpd    +++|
00041  M01S00040.acpd    +++|          MACRO  MPAR,NAME,LEN,PREC,LMP
00042  M01S00041.acpd    +++|          NOREF  .IC,.TYPE,BL
00043  M01S00042.acpd    +++| .1       IFC    EQ,$NAME$$
00044  M01S00043.acpd    +++|          CON    0
00045  M01S00044.acpd    +++| .1       ELSE
00046  M01S00045.acpd    +++| .2       IFC    EQ,$PREC$$
00047  M01S00046.acpd    +++|          ERR                PRECISION NOT SPECIFIED
00048  M01S00047.acpd    +++| .2       ENDIF
00049  M01S00048.acpd    +++|          IFNE   LEN,1,1
00050  M01S00049.acpd    +++|          ERRNG  2-P.NAME    OFFSET CALCULATION ERROR
00051  M01S00050.acpd    +++|          IFEQ   BL,0,1
00052  M01S00051.acpd    +++| .IC      SET    0
00053  M01S00052.acpd    +++| NAME     EQU    .IC
00054  M01S00053.acpd    +++| .IC      SET    .IC+1
00055  M01S00054.acpd    +++| P.NAME   EQU    PREC 0
00056  M01S00055.acpd    +++| L.NAME   EQU    LEN 0
00057  M01S00056.acpd    +++|          VFD    24/4L_NAME,3/.TYPE,6/LMP,4/.ICM,11/P.NAME,12/L.NAME
00058  M01S00057.acpd    +++| BL       SET    BL+P.NAME*L.NAME
00059  M01S00058.acpd    +++| .1       ENDIF
00060  M01S00059.acpd    +++|          ENDM
00061  M01S00060.acpd    +++|          SPACE  4,10
00062  M01S00061.acpd    +++|**        DDSC - DATA DESCRIPTION.
00063  M01S00062.acpd    +++|*
00064  M01S00063.acpd    +++|* NAME    DDSC   SDL,DTY,WFA,WFP
00065  M01S00064.acpd    +++|*
00066  M01S00065.acpd    +++|*         ENTRY  *NAME* = ORDINAL OF ITEM IN THE CORRESPONDING
00067  M01S00066.acpd    +++|*                         *MPAR* TABLE.
00068  M01S00067.acpd    +++|*                *SDL*  = SELECTION BIT.
00069  M01S00068.acpd    +++|*                *DTY*  = DATA TYPE OF ITEM.
00070  M01S00069.acpd    +++|*                *WFA*  = WEIGHT FACTOR INSTRUCTION.
00071  M01S00070.acpd    +++|*                *WFP*  = WEIGHT FACTOR POINTER.
00072  M01S00071.acpd    +++|*
00073  M01S00072.acpd    +++|*         EXIT   *DDSC* ENTRY CONTAINS A POINTER TO THE DECODED
00074  M01S00073.acpd    +++|*                DATA BUFFER *DBUF*, WHERE THE DATA OF THE ITEM
00075  M01S00074.acpd    +++|*                IS DECODED AND STORED.
00076  M01S00075.acpd    +++|*
00077  M01S00076.acpd    +++|*         NOTE - *DDSC* ENTRY FORMAT IS
00078  M01S00077.acpd    +++|*
Line S00078 Modification History
M01 (Added by) acpd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00078.252l678 ---|*T        1/S,2/D,3/WI,14/WFP,4/ICM,18/LEN,18/FW
Figure

0171829FWLEN3035363940535456575859LENICMWFPWIDS

00080  M01S00001.252l678 +++|*T        1/S,3/D,3/WI,13/WFP,4/ICM,18/LEN,18/FW
Figure

0171829FWLEN3035363940525355565859LENICMWFPWIDS

00081  M01S00079.acpd    +++|*
00082  M01S00080.acpd    +++|*         WHERE
00083  M01S00081.acpd    +++|*
00084  M01S00082.acpd    +++|*         *S*    IS *SDL*.
00085  M01S00083.acpd    +++|*         *D*    IS *DTY*.
00086  M01S00084.acpd    +++|*         *WI*   IS *WFA*.
00087  M01S00085.acpd    +++|*         *ICM*  SINGLE/MULTIPLE ELEMENT ENTRY INDICATOR.
00088  M01S00086.acpd    +++|*         *LEN*  LENGTH OF THE DATA ELEMENT.
00089  M01S00087.acpd    +++|*         *FW*   POINT TO THE DECODED DATA BUFFER WHERE
00090  M01S00088.acpd    +++|*                THE VALUE OF THE DATA ELEMENT IS STORED.
00091  M01S00089.acpd    +++|*
00092  M01S00090.acpd    +++|*         WARNING - THE *MPAR* TABLE HAS TO BE DEFINED BEFORE
00093  M01S00091.acpd    +++|*         *DDSC* TABLE CAN BE DEFINED. THE RELATIVE POSITION
00094  M01S00092.acpd    +++|*         OF THE DATA ITEMS IN *DDSC* TABLE MUST BE THE SAME
00095  M01S00093.acpd    +++|*         AS IN *MPAR* TABLE.
00096  M01S00094.acpd    +++|
00097  M01S00095.acpd    +++|          PURGMAC DDSC
00098  M01S00096.acpd    +++|
00099  M01S00097.acpd    +++|          MACRO  DDSC,NAME,SDL,DTY,WFA,WFP
00100  M01S00098.acpd    +++|          NOREF  .L,.FW,L._NAME,P._NAME
00101  M01S00099.acpd    +++|          IFGT   P._NAME,5
00102  M01S00100.acpd    +++| .L       SET    P._NAME/5*L._NAME
00103  M01S00101.acpd    +++|          ELSE
00104  M01S00102.acpd    +++| .L       SET    L._NAME
00105  M01S00103.acpd    +++|          ENDIF
Line S00104 Modification History
M01 (Added by) acpd
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00104.252l678 ---|          VFD    1/SDL,2/DTY,3/WFA,14/WFP,4/0,18/.L,18/.FW
00107  M01S00002.252l678 +++|          VFD    1/SDL,3/DTY,3/WFA,13/WFP,4/0,18/.L,18/.FW
00108  M01S00105.acpd    +++| .FW      SET    .FW+.L
00109  M01S00106.acpd    +++|          ENDM
00110  M01S00107.acpd    +++|          SPACE  4,10
00111  M01S00108.acpd    +++|**        DSPT - DISPLAY TEXT DEFINITION.
00112  M01S00109.acpd    +++|*
00113  M01S00110.acpd    +++|* NAME    DSPT   MSGE,SBTL,WORD,BITA,BITL
00114  M01S00111.acpd    +++|*
00115  M01S00112.acpd    +++|*         ENTRY  *NAME* = ORDINAL OF ITEM IN THE CORRRESPONDING
00116  M01S00113.acpd    +++|*                         *DDSC* TABLE.
00117  M01S00114.acpd    +++|*                *MSGE* = DISPLAY TEXT.
00118  M01S00115.acpd    +++|*                *SBTL* = POINTER TO SUBBLOCK TITLES.
00119  M01S00116.acpd    +++|*                *WORD* = WORD COUNT IN MULTITPLE-WORD ENTRY.
00120  M01S00117.acpd    +++|*                *BITA* = BEGIN BIT POSITION FOR NON-WORD-BOUNDARY
00121  M01S00118.acpd    +++|*                         ITEMS.
00122  M01S00119.acpd    +++|*                *BITL* = BIT LENGTH.
00123  M01S00120.acpd    +++|*
00124  M01S00121.acpd    +++|*         EXIT   *DSPT* BUILDS *DSPTENT* TABLE AND *DSPTTXT* TABLE.
00125  M01S00122.acpd    +++|*                THE *DSPTTXT* TABLE CONTAINS TEXTS USED IN THE REPORT.
00126  M01S00123.acpd    +++|*                THE *DSPTENT* ENTRY FORMAT IS
00127  M01S00124.acpd    +++|*
00128  M01S00125.acpd    +++|*T               9/NAME,6/WORD,6/BITA,6/BITL,9/SBTL,6/LN,18/BC
Figure

01718232429BCLNSBTL30323338394445505159SBTLBITLBITAWORDNAME

00129  M01S00126.acpd    +++|*
00130  M01S00127.acpd    +++|*                WHERE *LN* IS THE LENGTH IN CHARACTER OF THE TEXT,
00131  M01S00128.acpd    +++|*                AND *BC* IS THE BEGIN CHARACTER POSITION OF THE
00132  M01S00129.acpd    +++|*                TEXT IN *DSPTTXT* TABLE.
00133  M01S00130.acpd    +++|
00134  M01S00131.acpd    +++| M2       MICRO  1,,**
00135  M01S00132.acpd    +++| .BC      SET    0
00136  M01S00133.acpd    +++|
00137  M01S00134.acpd    +++|          PURGMAC DSPT
00138  M01S00135.acpd    +++|
00139  M01S00136.acpd    +++|          MACRO  DSPT,NAME,MSGE,SBTL,WORD,BITA,BITL
00140  M01S00137.acpd    +++|          NOREF  .EC,.LN,.L,.BC,SBT
00141  M01S00138.acpd    +++|          NOREF  .WC,.CC,.RC,.I
00142  M01S00139.acpd    +++|          IFC    EQ,$SBTL$$
00143  M01S00140.acpd    +++| SBT      SET   777B
00144  M01S00141.acpd    +++|          ELSE
00145  M01S00142.acpd    +++| SBT      SET   SBTL
00146  M01S00143.acpd    +++|          ENDIF
00147  M01S00144.acpd    +++| M1       MICRO  1,,MSGE
00148  M01S00145.acpd    +++| .EC      SET    .EC+1
00149  M01S00146.acpd    +++| .LN      MICCNT M1
00150  M01S00147.acpd    +++| M        MICRO  1,,*"M2""M1"*
00151  M01S00148.acpd    +++| .L       MICCNT M
00152  M01S00149.acpd    +++|          USE    /DSPTENT/
00153  M01S00150.acpd    +++|          VFD    9/NAME,6/WORD,6/BITA,6/BITL,9/SBT,6/.LN,18/.BC
00154  M01S00151.acpd    +++| .BC      SET    .BC+.LN
00155  M01S00152.acpd    +++|          USE
00156  M01S00153.acpd    +++|          USE    /DSPTTXT/
00157  M01S00154.acpd    +++|          IFNE   .LN,0
00158  M01S00155.acpd    +++| .WC      SET    .L/10
00159  M01S00156.acpd    +++| .CC      SET    .WC*10
00160  M01S00157.acpd    +++| .RC      SET    .L-.CC
00161  M01S00158.acpd    +++| M2       MICRO  .CC+1,.RC,*"M"*
00162  M01S00159.acpd    +++| .I       SET    1
00163  M01S00160.acpd    +++|          DUP    .WC
00164  M01S00161.acpd    +++| MSG      MICRO  .I,10,*"M"*
00165  M01S00162.acpd    +++|          DATA   10H"MSG"
00166  M01S00163.acpd    +++| .I       SET    .I+10
00167  M01S00164.acpd    +++|          ENDD
00168  M01S00165.acpd    +++|          ELSE
00169  M01S00166.acpd    +++|          DATA   10H"M2"
00170  M01S00167.acpd    +++|          ENDIF
00171  M01S00168.acpd    +++|          USE
00172  M01S00169.acpd    +++|          ENDM
00173  M01S00170.acpd    +++|          SPACE  4,10
00174  M01S00171.acpd    +++|**        SMGT - SUBBLOCK REPORT TITLE DEFINITION.
00175  M01S00172.acpd    +++|*
00176  M01S00173.acpd    +++|*         SMGT   MSGE,CNT,STC
00177  M01S00174.acpd    +++|*
00178  M01S00175.acpd    +++|*         ENTRY  *MSGE* = SUBBLOCK REPORT TITLE.
00179  M01S00176.acpd    +++|*                *CNT*  = NUMBER OF ENTRIES IN THE SUBBLOCK.
00180  M01S00177.acpd    +++|*                *STC*  = STARTING NUMBER. IGNORED IF *CNT* IS OMITTED.
00181  M01S00178.acpd    +++|*
00182  M01S00179.acpd    +++|*         EXIT   *SMGT* BUILDS A TABLE OF DISPLAY TEXT,
00183  M01S00180.acpd    +++|*                TEN CHARACTERS, LEFT JUSTIFIED, BLANK FILLED
00184  M01S00181.acpd    +++|*                FOR EACH ENTRY.
00185  M01S00182.acpd    +++|
00186  M01S00183.acpd    +++|          PURGMAC SMGT
00187  M01S00184.acpd    +++|
00188  M01S00185.acpd    +++| SMGT     MACRO  MSGE,CNT,STC
00189  M01S00186.acpd    +++|          NOREF  .ST,.SM
00190  M01S00187.acpd    +++| MM       MICRO  1,,MSGE
00191  M01S00188.acpd    +++| .IF      IFC    NE,$CNT$$
00192  M01S00189.acpd    +++| .ST      SET    STC
00193  M01S00190.acpd    +++|          DUP    CNT
00194  M01S00191.acpd    +++| .IF1     IFLT   .ST,10B
00195  M01S00192.acpd    +++| MC       OCTMIC .ST,1
00196  M01S00193.acpd    +++| .IF1     ELSE
00197  M01S00194.acpd    +++| MC       OCTMIC .ST,2
00198  M01S00195.acpd    +++| .IF1     ENDIF
00199  M01S00196.acpd    +++| MG       MICRO  1,,$"MM""MC"$
00200  M01S00197.acpd    +++| .ST      SET    .ST+1
00201  M01S00198.acpd    +++|          DATA   10H"MG"
00202  M01S00199.acpd    +++| .SM      SET    .SM+1
00203  M01S00200.acpd    +++|          ENDD
00204  M01S00201.acpd    +++| .IF      ELSE
00205  M01S00202.acpd    +++|          DATA   10H"MM"
00206  M01S00203.acpd    +++| .SM      SET    .SM+1
00207  M01S00204.acpd    +++| .IF      ENDIF
00208  M01S00205.acpd    +++|          ENDM
00209  M01S00206.acpd    +++|          SPACE  4,10
00210  M01S00207.acpd    +++|**        DEF - DEFINE CONSTANT.
00211  M01S00208.acpd    +++|*
00212  M01S00209.acpd    +++|*         DEF   NAM#VAL#;
00213  M01S00210.acpd    +++|*
00214  M01S00211.acpd    +++|*         ENTRY  *NAM* = CONSTANT NAME.
00215  M01S00212.acpd    +++|*                *VAL* = CONSTANT VALUE.
00216  M01S00213.acpd    +++|*
00217  M01S00214.acpd    +++|*         EXIT   *DEF* DEFINES SYMBOLIC CONSTANTS USED BY BOTH
00218  M01S00215.acpd    +++|*                SYMPL AND COMPASS PROGRAMS.
00219  M01S00216.acpd    +++|*
00220  M01S00217.acpd    +++|*         WARNING - *DEF* CAN ONLY BE USED TO DEFINE INTEGER CONSTANTS.
00221  M01S00218.acpd    +++|*         NON-INTEGER CONSTANTS HAVE TO BE CONVERTED TO INTEGER BEFORE
00222  M01S00219.acpd    +++|*         *DEF* CAN BE USED.
00223  M01S00220.acpd    +++|
00224  M01S00221.acpd    +++|          PURGMAC DEF
00225  M01S00222.acpd    +++|
00226  M01S00223.acpd    +++| DEF     MACRO  VALUE
00227  M01S00224.acpd    +++|          NOREF  .BB
00228  M01S00225.acpd    +++| .NAM     MICRO  1,,#_VALUE
00229  M01S00226.acpd    +++| .BB      MICCNT .NAM
00230  M01S00227.acpd    +++| .BB      SET    .BB+2
00231  M01S00228.acpd    +++| .VAL     MICRO  .BB,,;_VALUE
00232  M01S00229.acpd    +++| .VAL     MICRO  1,,#".VAL"
00233  M01S00230.acpd    +++| ".NAM" EQU ".VAL"
00234  M01S00231.acpd    +++| DEF      ENDM
00235  M01S00232.acpd    +++|          SPACE  4,10
00236  M01S00233.acpd    +++|**        COMMON DECKS.
00237  M01S00234.acpd    +++|
00238  M01S00235.acpd    +++|*CALL     COMCMAC
00239  M01S00236.acpd    +++|*CALL     COMSPRD
00240  M01S00237.acpd    +++|*CALL     COMSCPS
00241  M01S00238.acpd    +++|*CALL     COMSEJT
00242  M01S00239.acpd    +++|*CALL     COMSSSD
00243  M01S00240.acpd    +++|*CALL     COMSSCD
00244  M01S00241.acpd    +++|          LIST   X
00245  M01S00242.acpd    +++|*CALL     COMSCPD
00246  M01S00243.acpd    +++|*CALL     COMUCPD
00247  M01S00244.acpd    +++|          LIST   *
00248  M01S00245.acpd    +++|          TITLE
00249  M01S00246.acpd    +++|ACPD      SPACE  4,10
00250  M01S00247.acpd    +++|***       ACPD - ANALYZE PERFORMANCE DATA.
00251  M01S00248.acpd    +++|*
00252  M01S00249.acpd    +++|*         THIS ENTRY POINT IS NEEDED IN ORDER FOR THE
00253  M01S00250.acpd    +++|*         ABSOLUTE BINARY RECORD NAME TO MATCH WITH THE
00254  M01S00251.acpd    +++|*         DECK NAME *ACPD*. IT CONTAINS ONLY A JUMP
00255  M01S00252.acpd    +++|*         INSTRUCTION TO TRANSFER TO THE MAIN SYMPL
00256  M01S00253.acpd    +++|*         PROGRAM *ACPDM*.
00257  M01S00254.acpd    +++|
00258  M01S00255.acpd    +++|
00259  M01S00256.acpd    +++| ACPD     BSS    0           TRANSFER ADDRESS FROM THE LOADER
00260  M01S00257.acpd    +++|          EQ     =XACPDM     TO SYMPL MAIN PROGRAM
00261  M01S00258.acpd    +++|          TITLE  PAP - PROCESS ACPD PARAMETERS.
00262  M01S00259.acpd    +++|*         *PAP* DATA DEFINITIONS.
00263  M01S00260.acpd    +++|          SPACE  4,10
00264  M01S00261.acpd    +++| DS       DATA   0LSUMMARY   SECONDARY DEFAULT VALUE OF S
Line S00262 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00262.v23l617 ---| DN       DATA   777777B     SECONDARY DEFAULT VALUE OF N
00266  M01S00001.v23l617 +++| DN       DATA   0L9999999   SECONDARY DEFAULT VALUE OF N
00267  M01S00263.acpd    +++|
00268  M01S00264.acpd    +++|
00269  M01S00265.acpd    +++| TARG     BSS    0
00270  M01S00266.acpd    +++| FN       ARG    FN,FN       INPUT FILE
00271  M01S00267.acpd    +++| L        ARG    L,L         REPORT FILE
Line S00268 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00268.v23l617 ---| S        ARG    S,S,400B    SUMMARY FILE
00273  M01S00002.v23l617 +++| S        ARG    DS,S,400B   SUMMARY FILE
00274  M01S00269.acpd    +++| LO       ARG    LO,LO       LIST OPTION
Line S00270 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00270.v23l617 ---| IN       ARG    IN,IN       INTERVAL LENGTH IN MINUTES
00276  M01S00003.v23l617 +++| IN       ARG    IN,IN,400B  INTERVAL LENGTH IN MINUTES
00277  M01S00004.v23l617 +++| IC       ARG    IC,IC,400B  INTERVAL RECORD COUNT
Line S00271 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00271.v23l617 ---| N        ARG    N,N,400B    NUMBER OF FILES
00279  M01S00005.v23l617 +++| N        ARG    DN,N,400B   NUMBER OF FILES
00280  M01S00272.acpd    +++| BT       ARG    BT,BT       BEGINNING TIME
00281  M01S00273.acpd    +++| ET       ARG    ET,ET       ENDING TIME
00282  M01S00274.acpd    +++| BD       ARG    BD,BD       BEGINNING DATE
00283  M01S00275.acpd    +++| ED       ARG    ED,ED       ENDING DATE
00284  M01S00276.acpd    +++|          ARG
00285  M01S00277.acpd    +++|
Line S00278 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00278.v23l617 ---| ERC      CON    ERM1        ERROR CODE
00287  M01S00006.v23l617 +++| ERC      CON    0           ERROR CODE
00288  M01S00279.acpd    +++| ERF      CON    FATAL       FATAL ERROR
00289  M01S00280.acpd    +++| EFL      CON    0           ERROR NAME
00290  M01S00281.acpd    +++|
00291  M01S00282.acpd    +++| PAR      BSS    0           PERROR PARAMETER LIST
00292  M01S00283.acpd    +++|          VFD    60/ERC
00293  M01S00284.acpd    +++|          VFD    60/ERF
00294  M01S00285.acpd    +++|          VFD    60/EFL
00295  M01S00286.acpd    +++|
00296  M01S00287.acpd    +++| VARG     BSS    0
00297  M01S00288.acpd    +++|          DATA   0LFN
00298  M01S00289.acpd    +++|          DATA   0LL
00299  M01S00290.acpd    +++|          DATA   0LS
00300  M01S00291.acpd    +++|          DATA   0LLO
00301  M01S00292.acpd    +++|          DATA   0LIN
00302  M01S00007.v23l617 +++|          DATA   0LIC
00303  M01S00293.acpd    +++|          DATA   0LN
00304  M01S00294.acpd    +++|          DATA   0LBT
00305  M01S00295.acpd    +++|          DATA   0LET
00306  M01S00296.acpd    +++|          DATA   0LBD
00307  M01S00297.acpd    +++|          DATA   0LED
00308  M01S00298.acpd    +++|PAP       EJECT
00309  M01S00299.acpd    +++|**        PAP - PROCESS *ACPD* PARAMETERS.
00310  M01S00300.acpd    +++|*
00311  M01S00301.acpd    +++|*         *PAP* VALIDATES *ACPD* PARAMETERS, AND CONVERTS
00312  M01S00302.acpd    +++|*         PARAMETERS IN DISPLAY CODE NUMBER TO BINARY.
00313  M01S00303.acpd    +++|
00314  M01S00304.acpd    +++| PAP      SUBR               ENTRY/EXIT
00315  M01S00305.acpd    +++|          SB1    1
00316  M01S00306.acpd    +++|          SA1    ACTR
00317  M01S00307.acpd    +++|          SA4    ARGR
00318  M01S00308.acpd    +++|          SB4    X1          NUMBER OF ARGUMENTS
00319  M01S00309.acpd    +++|          SB5    TARG
00320  M01S00310.acpd    +++|          RJ     ARG
00321  M01S00311.acpd    +++|          NZ     X1,PAP12    IF ERROR
00322  M01S00312.acpd    +++|          SA5    FN
00323  M01S00313.acpd    +++|          ZR     X5,PAP11    IF NO DATA FILE
00324  M01S00314.acpd    +++|          SA5    LO
00325  M01S00315.acpd    +++|          LX5    6
00326  M01S00316.acpd    +++|          SX4    X5-1RZ
00327  M01S00317.acpd    +++|          ZR     X4,PAP1     IF *Z* OPTION
00328  M01S00318.acpd    +++|          NZ     X5,PAP11    IF INCORRECT OPTION
Line S00319 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00319.v23l617 ---|
Line S00320 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00320.v23l617 ---|*         CHECK FOR *S* AND *N* PARAMETERS.
Line S00321 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00321.v23l617 ---|
Line S00322 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00322.v23l617 ---| PAP1     MX0    2*6
Line S00323 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00323.v23l617 ---|          SA2    TARG+2      CHECK *S* PARAMETER
Line S00324 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00324.v23l617 ---|          BX2    X0*X2
Line S00325 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00335  M02S00325.v23l617 ---|          BX3    X0-X2
Line S00326 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00336  M02S00326.v23l617 ---|          NZ     X3,PAP3     IF *S* NOT SPECIFIED
Line S00327 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00327.v23l617 ---|          SA2    S
Line S00328 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00328.v23l617 ---|          BX3    X0*X2
Line S00329 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00329.v23l617 ---|          NZ     X3,PAP2     IF *S* SPECIFIED WITH VALUE
Line S00330 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00330.v23l617 ---|          SA4    DS          SET SECOND DEFAULT VALUE
Line S00331 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00341  M02S00331.v23l617 ---|          BX6    X4
Line S00332 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00332.v23l617 ---|          SA6    A2
Line S00333 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00333.v23l617 ---|          EQ     PAP3        GO CHECK *N* PARAMETER
Line S00334 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00334.v23l617 ---|
Line S00335 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00345  M02S00335.v23l617 ---| PAP2     SX6    1R0         CHECK IF S=0
Line S00336 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00346  M02S00336.v23l617 ---|          LX3    6
Line S00337 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00347  M02S00337.v23l617 ---|          BX6    X6-X3
Line S00338 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00348  M02S00338.v23l617 ---|          NZ     X6,PAP3     IF *S* SPECIFIED WITH FILE NAME
Line S00339 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00339.v23l617 ---|          SA6    A2+
Line S00340 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00340.v23l617 ---|
Line S00341 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00351  M02S00341.v23l617 ---| PAP3     SA2    TARG+5      CHECK *N* PARAMETER
Line S00342 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00342.v23l617 ---|          BX2    X0*X2
Line S00343 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00343.v23l617 ---|          BX3    X0-X2
Line S00344 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00344.v23l617 ---|          ZR     X3,PAP4     IF *N* SPECIFIED
Line S00345 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00345.v23l617 ---|          SX6    B1          SET FIRST DEFAULT VALUE
Line S00346 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00356  M02S00346.v23l617 ---|          SA6    N
Line S00347 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00357  M02S00347.v23l617 ---|          EQ     PAP6        GO CHECK NEXT PARAMETER
Line S00348 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00358  M02S00348.v23l617 ---|
Line S00349 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00349.v23l617 ---| PAP4     SB7    B1          CONVERT TO DECIMAL
Line S00350 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00350.v23l617 ---|          SA5    N
Line S00351 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00361  M02S00351.v23l617 ---|          NZ     X5,PAP5     IF *N* SPECIFIED WITH VALUE
Line S00352 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00352.v23l617 ---|          SA3    DN          SET SECOND DEFAULT VALUE
Line S00353 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00353.v23l617 ---|          BX6    X3
Line S00354 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00354.v23l617 ---|          SA6    A5
Line S00355 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00355.v23l617 ---|          EQ     PAP6        GO CHECK NEXT PARAMETER
Line S00356 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00356.v23l617 ---|
Line S00357 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00357.v23l617 ---| PAP5     RJ     DXB         CONVERT DISPLAY TO NUMBER
00368  M01S00008.v23l617 +++| PAP1     SA5    N           CONVERT *N* PARAMETER
00369  M01S00009.v23l617 +++|          SB7    B1+         ASSUME DECIMAL CONVERSION
00370  M01S00010.v23l617 +++|          RJ     DXB
00371  M01S00358.acpd    +++|          NZ     X4,PAP11    IF ERROR
Line S00359 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00359.v23l617 ---|          SA6    A5
Line S00360 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00360.v23l617 ---|
Line S00361 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00374  M02S00361.v23l617 ---| PAP6     SA5    IN
Line S00362 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00362.v23l617 ---|          RJ     DXB
Line S00363 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00363.v23l617 ---|          NZ     X4,PAP11    IF ERROR
Line S00364 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00364.v23l617 ---|          SA6    A5
00378  M01S00011.v23l617 +++|          ZR     X6,PAP11    IF ZERO VALUE ENTERED
00379  M01S00012.v23l617 +++|          SA6    A5+         SET *N* VALUE
00380  M01S00013.v23l617 +++|          SA1    IN
00381  M01S00014.v23l617 +++|          SA5    IC
00382  M01S00015.v23l617 +++|          ZR     X5,PAP2     IF *IC* NOT SPECIFIED
00383  M01S00016.v23l617 +++|          ZR     X1,PAP2     IF *IN* NOT SPECIFIED
00384  M01S00017.v23l617 +++|          SX6    ERM14       * IN AND IC PARAMETER CONFLICT.*
00385  M01S00018.v23l617 +++|          EQ     PAP13       PROCESS ERROR
00386  M01S00019.v23l617 +++|
00387  M01S00020.v23l617 +++| PAP2     NZ     X5,PAP3     IF *IC* SPECIFIED
00388  M01S00021.v23l617 +++|          SA5    IN
00389  M01S00022.v23l617 +++|          SX6    6
00390  M01S00023.v23l617 +++|          ZR     X5,PAP4     IF *IN* NOT SPECIFIED
00391  M01S00024.v23l617 +++| PAP3     RJ     DXB
00392  M01S00025.v23l617 +++|          NZ     X4,PAP11    IF ARGUMENT ERROR
00393  M01S00026.v23l617 +++|          ZR     X6,PAP11    IF ARGUMENT ERROR
00394  M01S00027.v23l617 +++| PAP4     SA6    A5          SET *IN* OR *IC* VALUE
00395  M01S00365.acpd    +++|
00396  M01S00366.acpd    +++|*         CHECK FOR *BT* AND *ET* PARAMETERS.
00397  M01S00367.acpd    +++|
00398  M01S00368.acpd    +++|          SB2    B1+B1
00399  M01S00369.acpd    +++|          MX0    8*6
00400  M01S00370.acpd    +++|          SA5    BT-1
00401  M01S00371.acpd    +++|
00402  M01S00372.acpd    +++| PAP7     SA5    A5+B1
00403  M01S00373.acpd    +++|          ZR     X5,PAP8     IF PARAMETER NOT SPECIFIED OR ZERO
00404  M01S00374.acpd    +++|          LX5    2*6
00405  M01S00375.acpd    +++|          BX2    -X0*X5
00406  M01S00376.acpd    +++|          SB3    X2-2R24
00407  M01S00377.acpd    +++|          GE     B3,PAP11    IF HOUR .GE. 24
00408  M01S00378.acpd    +++|          SB3    X2-2R00
00409  M01S00379.acpd    +++|          NG     B3,PAP11    IF HOUR .LT. 00
00410  M01S00380.acpd    +++|          LX5    2*6
00411  M01S00381.acpd    +++|          BX2    -X0*X5
00412  M01S00382.acpd    +++|          SB3    X2-2R60
00413  M01S00383.acpd    +++|          GE     B3,PAP11    IF MINUTE .GE. 60
00414  M01S00384.acpd    +++|          SB3    X2-2R00
00415  M01S00385.acpd    +++|          NG     B3,PAP11    IF MINUTE .LT. 00
00416  M01S00386.acpd    +++|          MX4    -6
00417  M01S00387.acpd    +++|          LX5    6
00418  M01S00388.acpd    +++|          BX2    -X4*X5
00419  M01S00389.acpd    +++|          SB3    X2-1R6
00420  M01S00390.acpd    +++|          GE     B3,PAP11    IF SECOND .GE. 6X
00421  M01S00391.acpd    +++|          SB3    X2-1R0
00422  M01S00392.acpd    +++|          NG     B3,PAP11    IF SECOND .LT. 0X
00423  M01S00393.acpd    +++|          LX5    6
00424  M01S00394.acpd    +++|          BX2    -X4*X5
00425  M01S00395.acpd    +++|          SB3    X2-1R9
00426  M01S00396.acpd    +++|          LX5    2*6
00427  M01S00397.acpd    +++|          GT     B3,PAP11    IF SECOND .GT. X9
00428  M01S00398.acpd    +++|          SB3    X2-1R0
00429  M01S00399.acpd    +++|          NG     B3,PAP11    IF SECOND .LT. X0
00430  M01S00400.acpd    +++|          LX5    2*6
00431  M01S00401.acpd    +++|          BX2    -X0*X5
00432  M01S00402.acpd    +++|          NZ     X2,PAP11    IF TIME TOO LONG
00433  M01S00403.acpd    +++| PAP8     SB2    B2-B1
00434  M01S00404.acpd    +++|          GT     B2,PAP7     IF NOT DONE
00435  M01S00405.acpd    +++|
00436  M01S00406.acpd    +++|*         CHECK FOR *BD* AND *ED* PARAMETERS.
00437  M01S00407.acpd    +++|
00438  M01S00408.acpd    +++|          SB2    2
00439  M01S00409.acpd    +++|          SA5    BD-1
00440  M01S00410.acpd    +++|
00441  M01S00411.acpd    +++| PAP9     SA5    A5+B1
00442  M01S00412.acpd    +++|          ZR     X5,PAP10    IF PARAMETER NOT SPECIFIED OR ZERO
00443  M01S00413.acpd    +++|          LX5    2*6
00444  M01S00414.acpd    +++|          BX2    -X0*X5
00445  M01S00415.acpd    +++|          SB3    X2-2R99
00446  M01S00416.acpd    +++|          GT     B3,PAP11    IF YEAR .GT. 99
00447  M01S00417.acpd    +++|          SB3    X2-2R70
Line S00418 Modification History
M01 (Added by) acpd
M02 (Updated by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
00448  M02S00418.ns2786  ---|          NG     B3,PAP11    IF YEAR .LT. 70
Line S00419 Modification History
M01 (Added by) acpd
M02 (Updated by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
00449  M02S00419.ns2786  ---|          LX5    2*6
00450  M01S00001.ns2786  +++|          PL     B3,PAP9.1   IF YEAR .GE. 70
00451  M01S00002.ns2786  +++|          SB3    X2-2R33
00452  M01S00003.ns2786  +++|          GT     B3,PAP11    IF YEAR .GT. 33
00453  M01S00004.ns2786  +++|          SB3    X2-2R00
00454  M01S00005.ns2786  +++|          NG     B3,PAP11    IF YEAR .LT. 00
00455  M01S00006.ns2786  +++| PAP9.1   LX5    2*6
00456  M01S00420.acpd    +++|          BX2    -X0*X5
00457  M01S00421.acpd    +++|          SB3    X2-2R12
00458  M01S00422.acpd    +++|          GT     B3,PAP11    IF MONTH .GT. 12
00459  M01S00423.acpd    +++|          SB3    X2-2R01
00460  M01S00424.acpd    +++|          NG     B3,PAP11    IF MONTH .LT. 01
00461  M01S00425.acpd    +++|          LX5    2*6
00462  M01S00426.acpd    +++|          BX2    -X0*X5
00463  M01S00427.acpd    +++|          SB3    X2-2R31
00464  M01S00428.acpd    +++|          GT     B3,PAP11    IF DAY .GT. 31
00465  M01S00429.acpd    +++|          SB3    X2-2R01
00466  M01S00430.acpd    +++|          NG     B3,PAP11    IF DAY .LT. 01
00467  M01S00431.acpd    +++|          MX3    -6
00468  M01S00432.acpd    +++|          BX4    -X3*X2
00469  M01S00433.acpd    +++|          SB3    X4-1R9
00470  M01S00434.acpd    +++|          GT     B3,PAP11    IF DATE .GT. X9
00471  M01S00435.acpd    +++|          SB3    X4-1R0
00472  M01S00436.acpd    +++|          NG     B3,PAP11    IF DATE .LT. X0
00473  M01S00437.acpd    +++|          LX5    2*6
00474  M01S00438.acpd    +++|          BX2    -X0*X5
00475  M01S00439.acpd    +++|          NZ     X2,PAP11    IF DATE TOO LONG
00476  M01S00440.acpd    +++| PAP10    SB2    B2-B1
00477  M01S00441.acpd    +++|          GT     B2,PAP9     IF NOT DONE
00478  M01S00442.acpd    +++|          EQ     PAPX        RETURN
00479  M01S00443.acpd    +++|
Line S00444 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00444.v23l617 ---|*         ERROR.
00481  M01S00028.v23l617 +++|*         PROCESS ARGUMENT ERROR.
00482  M01S00445.acpd    +++|
00483  M01S00446.acpd    +++| PAP11    SB2    FN          GET ARGUMENT NAME
00484  M01S00447.acpd    +++|          SB2    A5-B2
00485  M01S00448.acpd    +++|          SA4    B2+VARG
00486  M01S00449.acpd    +++|
00487  M01S00450.acpd    +++| PAP12    MX0    2*6
00488  M01S00451.acpd    +++|          BX6    X0*X4
00489  M01S00452.acpd    +++|          SA6    EFL
Line S00453 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00453.v23l617 ---|          SA1    PAR         ISSUE *ACPD ARGUMENT ERROR - XX* MESSAGE
00491  M01S00029.v23l617 +++|          SX6    ERM1        * ACPD ARGUMENT ERROR - XX.*
00492  M01S00030.v23l617 +++|
00493  M01S00031.v23l617 +++|*         PROCESS ERROR.
00494  M01S00032.v23l617 +++|
00495  M01S00033.v23l617 +++| PAP13    SA6    ERC         SET ERROR CODE
00496  M01S00034.v23l617 +++|          SA1    PAR         SET PARAMETER ADDRESS
00497  M01S00454.acpd    +++|          RJ     =XPERROR    NO RETURN
00498  M01S00455.acpd    +++|          SPACE  4,10
00499  M01S00456.acpd    +++|*         COMMON DECKS
00500  M01S00457.acpd    +++|
00501  M01S00458.acpd    +++|*CALL     COMCARG
00502  M01S00459.acpd    +++|*CALL     COMCDXB
00503  M01S00460.acpd    +++|
00504  M01S00461.acpd    +++|          END    ACPD
00505  M01S00462.acpd    +++|*WEOR
00506  M01S00463.acpd    +++|PRGM ACPDM;
00507  M01S00464.acpd    +++|# TITLE ACPDM - ANALYZE PERFORMANCE DATA.  #
00508  M01S00465.acpd    +++|
00509  M01S00466.acpd    +++|      BEGIN  # ACPDM #
00510  M01S00467.acpd    +++|
00511  M01S00468.acpd    +++|#
00512  M01S00469.acpd    +++|***   ACPDM - ANALYZE PERFORMANCE DATA.
00513  M01S00470.acpd    +++|*
00514  M01S00471.acpd    +++|*     ANALYZE PERFORMANCE DATA COLLECTED BY *CPD*.
00515  M01S00472.acpd    +++|*
Line S00473 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00516  M02S00473.v23l617 ---|*     CONTROL STATEMENT FORMAT.
00517  M01S00035.v23l617 +++|*     COMMAND FORMAT.
00518  M01S00474.acpd    +++|*
00519  M01S00475.acpd    +++|*     ACPD(P1,P2,...,PN)
00520  M01S00476.acpd    +++|*
00521  M01S00477.acpd    +++|*     WHERE PI IS ANY OF THE FOLLOWING.
00522  M01S00478.acpd    +++|*
00523  M01S00479.acpd    +++|*     OPTION       DEFAULT       DESCRIPTION
00524  M01S00480.acpd    +++|*
00525  M01S00481.acpd    +++|*     FN=LFN1      SAMPLE        DATA FILE NAME.
00526  M01S00482.acpd    +++|*     L=LFN2       OUTPUT        REPORT FILE NAME.
00527  M01S00483.acpd    +++|*     S=LFN3       0             SUMMARY FILE NAME.
00528  M01S00484.acpd    +++|*                                IF NO EQUIVALENCE, *S* IS ASSUMED
00529  M01S00485.acpd    +++|*                                TO BE *SUMMARY*.
00530  M01S00486.acpd    +++|*     IN=NNN       6 MINS        INTERVAL LENGTH IN MINUTES.
00531  M01S00036.v23l617 +++|*                                IF THE IC PARAMETER IS SPECIFIED AND
00532  M01S00037.v23l617 +++|*                                IN IS NOT, THE IC VALUE IS USED
00533  M01S00038.v23l617 +++|*                                INSTEAD OF THE IN PARAMETER DEFAULT
00534  M01S00039.v23l617 +++|*                                TO SPECIFY THE REPORT INTERVAL.  USE
00535  M01S00040.v23l617 +++|*                                OF BOTH THE IN AND IC PARAMETERS
00536  M01S00041.v23l617 +++|*                                RESULTS IN AN ERROR.
00537  M01S00042.v23l617 +++|*     IC=NNN       0 RECORDS     INTERVAL RECORD COUNT.  SPECIFIES THE
00538  M01S00043.v23l617 +++|*                                NUMBER OF SAMPLE FILE RECORDS PER
00539  M01S00044.v23l617 +++|*                                REPORT INTERVAL.  USE OF BOTH THE IN
00540  M01S00045.v23l617 +++|*                                AND IC PARAMETERS RESULTS IN AN ERROR.
00541  M01S00487.acpd    +++|*     N=NNN        1 FILE        NUMBER OF FILES TO PROCESS.
00542  M01S00488.acpd    +++|*                                IF NO EQUIVALENCE, *ACPD* WILL PROCESS
00543  M01S00489.acpd    +++|*                                UNTIL EOI OF *LFN1* IS REACHED.
00544  M01S00490.acpd    +++|*     LO=Z         0             LIST OPTION. IF LO=Z, ELEMENTS
00545  M01S00491.acpd    +++|*                                WITH ZERO VALUES WILL BE PRINTED.
00546  M01S00492.acpd    +++|*                                IF LO=0 (DEFAULT), THESE ELEMENTS
00547  M01S00493.acpd    +++|*                                WILL NOT BE PRINTED. *Z* IS THE
00548  M01S00494.acpd    +++|*                                ONLY VALID OPTION.
00549  M01S00495.acpd    +++|*     BT=HHMMSS    0             BEGINNING TIME. IF *BT* IS OMITTED,
00550  M01S00496.acpd    +++|*                                PROCESSING WILL BEGIN AT THE
00551  M01S00497.acpd    +++|*                                CURRENT DATA FILE POSITION. IF *BT*
00552  M01S00498.acpd    +++|*                                IS SPECIFIED, PROCESSING WILL
00553  M01S00499.acpd    +++|*                                BEGIN AT THE FILE CONTAINING THE
00554  M01S00500.acpd    +++|*                                RECORD WHOSE TIME EQUALS TO *BT*.
00555  M01S00501.acpd    +++|*     BD=YYMMDD    0             BEGINNING DATE. IF *BD* IS OMITTED,
00556  M01S00502.acpd    +++|*                                *BD* WILL BE ASSUMED THE DATE OF THE
00557  M01S00503.acpd    +++|*                                FILE WHERE THE DATA FILE IS
00558  M01S00504.acpd    +++|*                                CURRENTLY POSITIONED.
00559  M01S00505.acpd    +++|*     ET=HHMMSS    0             ENDING TIME. *ACPD* WILL TERMINATE
00560  M01S00506.acpd    +++|*                                WHEN THE RECORD WHOSE TIME EQUALS
00561  M01S00507.acpd    +++|*                                TO *ET* IS REACHED.
00562  M01S00508.acpd    +++|*     ED=YYMMDD    0             ENDING DATE. *ED* AND *ET* FORM THE
00563  M01S00509.acpd    +++|*                                ENDING TIME. IF *ED* IS SPECIFIED BUT
00564  M01S00510.acpd    +++|*                                *ET* IS OMITTED, THE ENDING TIME IS
00565  M01S00511.acpd    +++|*                                ZERO HOUR OF DAY *ED*. IF *ED* IS
00566  M01S00512.acpd    +++|*                                OMITTED BUT *ET* IS SPECIFIED, *ED*
00567  M01S00513.acpd    +++|*                                IS SET TO THE VALUE OF *BD*. IF BOTH
00568  M01S00514.acpd    +++|*                                *ED* AND *ET* ARE OMITTED, *ACPD* WILL
00569  M01S00515.acpd    +++|*                                TERMINATE IF THE FOLLOWING OCCURS :
00570  M01S00516.acpd    +++|*                                -NUMBER OF FILES SPECIFIED IN THE
00571  M01S00517.acpd    +++|*                                 *N* PARAMETER ARE PROCESSED.
00572  M01S00518.acpd    +++|*                                -AT EOI OF THE DATA FILE.
00573  M01S00519.acpd    +++|*
00574  M01S00520.acpd    +++|*     SUMMARY FILE FORMAT.
00575  M01S00521.acpd    +++|*
00576  M01S00522.acpd    +++|*     THE SUMMARY FILE HAS TWO TYPES OF RECORD, THE HEADER BLOCK
00577  M01S00523.acpd    +++|*     RECORD AND THE DATA BLOCK RECORD.
00578  M01S00524.acpd    +++|*     THE HEADER BLOCK RECORD IS THE HEADER RECORD OF THE DATA
00579  M01S00525.acpd    +++|*     FILE IN THE UNPACKED FORMAT.
00580  M01S00526.acpd    +++|*     EACH DATA BLOCK RECORD CONTAINS VALUES OF THE DATA BLOCK
00581  M01S00527.acpd    +++|*     ELEMENTS IN ONE REPORT INTERVAL.
00582  M01S00528.acpd    +++|*     THE DATA BLOCK RECORD HAS TWO EQUAL LENGTH PARTS. THE
00583  M01S00529.acpd    +++|*     FIRST PART CONTAINS THE AVERAGE VALUES OF THE DATA BLOCK
00584  M01S00530.acpd    +++|*     ELEMENTS. THE SECOND PART CONTAINS THE STANDARD DEVIATIONS
00585  M01S00531.acpd    +++|*     OF EACH DATA BLOCK ELEMENTS.
00586  M01S00532.acpd    +++|*     THE LOOP SAMPLE TIMES AND THE SNAPSHOT ELEMENTS DO NOT
00587  M01S00533.acpd    +++|*     HAVE STANDARD DEVIATIONS (0).
00588  M01S00534.acpd    +++|*     THERE IS AN EOR BETWEEN TWO CONSECUTIVE RECORDS.
00589  M01S00535.acpd    +++|*
00590  M01S00536.acpd    +++|*     MESSAGES.
00591  M01S00537.acpd    +++|*
00592  M01S00538.acpd    +++|*        -ACPD ARGUMENT ERROR - XX.
Line S00539 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00593  M02S00539.v23l617 ---|*           ERROR DETECTED IN CONTROL STATEMENT SYNTAX.
00594  M01S00046.v23l617 +++|*           ERROR DETECTED IN COMMAND SYNTAX.
00595  M01S00540.acpd    +++|*
00596  M01S00541.acpd    +++|*        -BT/BD NOT FOUND.
00597  M01S00542.acpd    +++|*           *BT*/*BD* GREATER THAN THE TIME OF THE LAST DATA RECORD.
00598  M01S00543.acpd    +++|*
00599  M01S00544.acpd    +++|*        -CPD/ACPD VERSIONS MISMATCH.
00600  M01S00545.acpd    +++|*           *CPD* AND *ACPD* VERSIONS ARE NOT COMPATIBLE.
00601  M01S00546.acpd    +++|*
00602  M01S00547.acpd    +++|*        -DATA BLOCKS MISSING.
00603  M01S00548.acpd    +++|*           EXPECTED DATA BLOCKS FOLLOWING HEADER BLOCK NOT FOUND.
00604  M01S00549.acpd    +++|*
00605  M01S00550.acpd    +++|*        -DATA ELEMENT NAME UNDEFINED - XXXX.
00606  M01S00551.acpd    +++|*           DATA ELEMENT XXXX IS NOT DEFINED IN COMMON DECK COMSCPD.
00607  M01S00552.acpd    +++|*
00608  M01S00553.acpd    +++|*        -DATA FILE POSITIONED AT *EOI*.
00609  M01S00554.acpd    +++|*           DATA FILE IS INITIALLY POSITIONED AT EOI.
00610  M01S00555.acpd    +++|*
00611  M01S00556.acpd    +++|*        -DATA FILE EMPTY.
00612  M01S00557.acpd    +++|*           DATA FILE IS EMPTY.
00613  M01S00558.acpd    +++|*
00614  M01S00559.acpd    +++|*        -DATA FILE CONTENT ERROR.
00615  M01S00560.acpd    +++|*           DATA FILE GENERATED BY *CPD* IS NOT IN THE EXPECTED
00616  M01S00561.acpd    +++|*           FORMAT.
00617  M01S00562.acpd    +++|*
00618  M01S00563.acpd    +++|*        -DATA FILE NOT AT BEGINNING OF A FILE.
00619  M01S00564.acpd    +++|*           AT THE BEGINNING OF PROCESSING, THE DATA FILE IS
00620  M01S00565.acpd    +++|*           POSITIONED EITHER AT THE MIDDLE OF A RECORD, OR
00621  M01S00566.acpd    +++|*           AT THE BEGINNING OF A DATA BLOCK RECORD.
00622  M01S00567.acpd    +++|*
00623  M01S00568.acpd    +++|*        -DATA FILE NOT FOUND - XXX.
00624  M01S00569.acpd    +++|*           DATA FILE XXX IS NOT LOCAL TO THE JOB AT THE TIME *ACPD*
00625  M01S00570.acpd    +++|*           IS RUNNING.
00626  M01S00571.acpd    +++|*
00627  M01S00572.acpd    +++|*        -DATA FILE NOT IN CHRONOLOGICAL ORDER.
00628  M01S00573.acpd    +++|*           DATA FILE IS NOT IN THE INCREASING ORDER OF TIME OF THE
00629  M01S00574.acpd    +++|*           RECORDS.
00630  M01S00575.acpd    +++|*
00631  M01S00576.acpd    +++|*        -IN LESS THAN FILE WRITE TIME.
00632  M01S00577.acpd    +++|*           REPORT TIME INTERVAL LESS THAN FILE WRITE TIME
00633  M01S00578.acpd    +++|*           (*FW*) OF *CPD*.
00634  M01S00579.acpd    +++|*
00635  M01S00047.v23l617 +++|*        -IN AND IC PARAMETER CONFLICT.
00636  M01S00048.v23l617 +++|*           THE IN AND IC PARAMETERS WERE BOTH SPECIFIED ON THE *ACPD*
00637  M01S00049.v23l617 +++|*           COMMAND.
00638  M01S00050.v23l617 +++|*
00639  M01S00580.acpd    +++|*        -N EXCEEDS NUMBER OF FILES.
00640  M01S00581.acpd    +++|*           NUMBER OF FILES REQUESTED GREATER THAN NUMBER OF FILES
00641  M01S00582.acpd    +++|*           ON THE DATA FILE.
00642  M01S00583.acpd    +++|*
00643  M01S00584.acpd    +++|*
00644  M01S00585.acpd    +++|*     NOTE.
00645  M01S00586.acpd    +++|*
00646  M01S00587.acpd    +++|*     TO BUILD *ACPD*, DO THE FOLLOWING :
00647  M01S00588.acpd    +++|*
00648  M01S00589.acpd    +++|*         - MODIFY(Z)/*EDIT,ACPD
00649  M01S00590.acpd    +++|*         - COMPASS(I,S=NOSTEXT)
00650  M01S00591.acpd    +++|*         - SYMPL(I)
00651  M01S00592.acpd    +++|*         - LDSET(LIB=SRVLIB,PRESET=ZERO)
00652  M01S00593.acpd    +++|*         - LOAD(LGO)
00653  M01S00594.acpd    +++|*         - NOGO(ACPD,ACPD,$RFL=$)
00654  M01S00595.acpd    +++|*
00655  M01S00596.acpd    +++|#
00656  M01S00597.acpd    +++|
00657  M01S00598.acpd    +++|#
00658  M01S00599.acpd    +++|****  PRGM ACPDM - XREF LIST BEGIN.
00659  M01S00600.acpd    +++|#
00660  M01S00601.acpd    +++|
00661  M01S00602.acpd    +++|      XREF
00662  M01S00603.acpd    +++|        BEGIN
00663  M01S00604.acpd    +++|        PROC DATBLK;                 # PROCESS DATA BLOCK #
00664  M01S00605.acpd    +++|        PROC HEADER;                 # PROCESS HEADER BLOCK #
00665  M01S00606.acpd    +++|        PROC INITLZ;                 # INITIALIZE *ACPD* #
00666  M01S00607.acpd    +++|        PROC MESSAGE;                # ISSUE DAYFILE MESSAGE #
00667  M01S00608.acpd    +++|        PROC RPCLOSE;                # CLOSE FILES #
00668  M01S00609.acpd    +++|        END
00669  M01S00610.acpd    +++|
00670  M01S00611.acpd    +++|#
00671  M01S00612.acpd    +++|****  PRGM ACPDM - XREF LIST END.
00672  M01S00613.acpd    +++|#
00673  M01S00614.acpd    +++|
00674  M01S00615.acpd    +++|      DEF LISTCON    #0#;            #TURN OFF COMMON DECK LISTING #
00675  M01S00616.acpd    +++|
00676  M01S00617.acpd    +++|*CALL     COMUCPD
00677  M01S00618.acpd    +++|
00678  M01S00619.acpd    +++|#
00679  M01S00620.acpd    +++|*     LOCAL VARIABLES.
00680  M01S00621.acpd    +++|#
00681  M01S00622.acpd    +++|
00682  M01S00623.acpd    +++|      ITEM DTDC       B;             # DATA BLOCK DECODED FLAG #
00683  M01S00624.acpd    +++|      ITEM HDDC       B;             # HEADER BLOCK DECODED FLAG #
00684  M01S00625.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
00685  M01S00626.acpd    +++|      ITEM LSTM       U;             # TIME OF LAST RECORD #
00686  M01S00627.acpd    +++|      ITEM EDTM       B;             # ENDING TIME EXPIRED FLAG #
00687  M01S00628.acpd    +++|
00688  M01S00629.acpd    +++|
00689  M01S00630.acpd    +++|
00690  M01S00631.acpd    +++|
00691  M01S00632.acpd    +++|
00692  M01S00633.acpd    +++|#
00693  M01S00634.acpd    +++|*     BEGIN *ACPDM* PROGRAM.
00694  M01S00635.acpd    +++|#
00695  M01S00636.acpd    +++|
00696  M01S00637.acpd    +++|      INITLZ(HDDC,DTDC,EDTM);        # INITIALIZE *ACPD* #
00697  M01S00638.acpd    +++|
00698  M01S00639.acpd    +++|      SLOWFOR I=1 STEP 1 WHILE (I LQ P$N) AND (NOT EDTM)
00699  M01S00640.acpd    +++|      DO
00700  M01S00641.acpd    +++|        BEGIN  # PROCESS ONE FILE #
00701  M01S00642.acpd    +++|        HEADER(EDTM,HDDC,LSTM);      # PROCESS HEADER BLOCK #
00702  M01S00643.acpd    +++|        IF (NOT EDTM)                # NOT EOI #
00703  M01S00644.acpd    +++|        THEN
00704  M01S00645.acpd    +++|          BEGIN
00705  M01S00646.acpd    +++|          DATBLK(EDTM,DTDC,LSTM);    # PROCESS DATA BLOCK #
00706  M01S00647.acpd    +++|          END
00707  M01S00648.acpd    +++|
00708  M01S00649.acpd    +++|        END  # PROCESS ONE FILE #
00709  M01S00650.acpd    +++|
00710  M01S00651.acpd    +++|      IF (P$L NQ NULL)               # REPORT FILE SPECIFIED #
00711  M01S00652.acpd    +++|      THEN
00712  M01S00653.acpd    +++|        BEGIN  # CLOSE REPORT FILE #
00713  M01S00654.acpd    +++|        RPCLOSE(OFFA);
00714  M01S00655.acpd    +++|        END
00715  M01S00656.acpd    +++|
Line S00657 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00716  M02S00657.v23l617 ---|      MESSAGE(" ACPD COMPLETED.",3);
00717  M01S00051.v23l617 +++|      MESSAGE(" ACPD COMPLETE.",3);
00718  M01S00658.acpd    +++|      END  # ACPDM #
00719  M01S00659.acpd    +++|      TERM
00720  M01S00660.acpd    +++|PROC ACMSTA((STA),(FWA),(DTY),(BCL),(WFP));
00721  M01S00661.acpd    +++|# TITLE ACMSTA - PRINT TOTAL STATISTICAL VALUES.  #
00722  M01S00662.acpd    +++|
00723  M01S00663.acpd    +++|      BEGIN  # ACMSTA #
00724  M01S00664.acpd    +++|
00725  M01S00665.acpd    +++|#
00726  M01S00666.acpd    +++|**    ACMSTA - PRINT TOTAL STATISTICAL VALUES.
00727  M01S00667.acpd    +++|*
00728  M01S00668.acpd    +++|*     PRINT PERCENTAGE, STANDARD DEVIATION, AND AVERAGE
00729  M01S00669.acpd    +++|*     OF ONE DATA ELEMENT FOR THE ENTIRE *ACPD* RUN.
00730  M01S00670.acpd    +++|*
00731  M01S00671.acpd    +++|*     PROC ACMSTA((STA),(FWA),(DTY),(BCL),(WFP))
00732  M01S00672.acpd    +++|*
00733  M01S00673.acpd    +++|*     ENTRY      STA = STATISTICAL VALUE TO BE COMPUTED.
00734  M01S00674.acpd    +++|*                FWA = ADDRESS OF THE DATA ELEMENT IN TABLE *DDSM*.
00735  M01S00675.acpd    +++|*                DTY = DATA TYPE.
00736  M01S00676.acpd    +++|*                BCL = BEGINNING COLUMN TO PRINT THE VALUE.
00737  M01S00677.acpd    +++|*                WFP = WEIGHT FACTOR.
00738  M01S00678.acpd    +++|*
00739  M01S00679.acpd    +++|*     EXIT       THE AVERAGE, STANDARD DEVIATION, AND PERCENTAGE
00740  M01S00680.acpd    +++|*                OF THE DATA ELEMENT FOR THE ENTIRE RUN ARE PRINTED.
00741  M01S00681.acpd    +++|#
00742  M01S00682.acpd    +++|
00743  M01S00683.acpd    +++|#
00744  M01S00684.acpd    +++|*     PARAMETER LIST.
00745  M01S00685.acpd    +++|#
00746  M01S00686.acpd    +++|
00747  M01S00687.acpd    +++|      ITEM STA        U;             # STATISTIC TO BE COMPUTED #
00748  M01S00688.acpd    +++|      ITEM FWA        U;             # DATA ELEMENT ORDINAL #
00749  M01S00689.acpd    +++|      ITEM DTY        U;             # DATA TYPE #
00750  M01S00690.acpd    +++|      ITEM BCL        U;             # BEGINNING COLUMN #
00751  M01S00691.acpd    +++|      ITEM WFP        R;             # WEIGHT FACTOR #
00752  M01S00692.acpd    +++|
00753  M01S00693.acpd    +++|#
00754  M01S00694.acpd    +++|****  PROC ACMSTA - XREF LIST BEGIN.
00755  M01S00695.acpd    +++|#
00756  M01S00696.acpd    +++|
00757  M01S00697.acpd    +++|      XREF
00758  M01S00698.acpd    +++|        BEGIN
00759  M01S00699.acpd    +++|        FUNC SQRT R;                 # SQUARE ROOT FUNCTION #
00760  M01S00700.acpd    +++|        PROC WRITEV;                 # WRITE DATA ELEMENT #
00761  M01S00701.acpd    +++|        END
00762  M01S00702.acpd    +++|
00763  M01S00703.acpd    +++|#
00764  M01S00704.acpd    +++|****  PROC ACMSTA - XREF LIST END.
00765  M01S00705.acpd    +++|#
00766  M01S00706.acpd    +++|
00767  M01S00707.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
00768  M01S00708.acpd    +++|
00769  M01S00709.acpd    +++|*CALL     COMUCPD
00770  M01S00710.acpd    +++|
00771  M01S00711.acpd    +++|#
00772  M01S00712.acpd    +++|*     LOCAL VARIABLES.
00773  M01S00713.acpd    +++|#
00774  M01S00714.acpd    +++|
00775  M01S00715.acpd    +++|      ITEM VL         R;             # TEMPORARY STORAGE #
00776  M01S00716.acpd    +++|
00777  M01S00717.acpd    +++|      ARRAY MAXVAL [0:0] P(1);       # MAXIMUM VALUE #
00778  M01S00718.acpd    +++|        BEGIN  # ARRAY MAXVAL #
00779  M01S00719.acpd    +++|        ITEM MAXR       R(00,00,60);  # REAL VALUE #
00780  M01S00720.acpd    +++|        ITEM MAXI       I(00,00,60);  # INTEGER VALUE #
00781  M01S00721.acpd    +++|        END  # ARRAY MAXVAL #
00782  M01S00722.acpd    +++|
00783  M01S00723.acpd    +++|      ARRAY MINVAL [0:0] P(1);       # MINIMUM VALUE #
00784  M01S00724.acpd    +++|        BEGIN  # ARRAY MINVAL #
00785  M01S00725.acpd    +++|        ITEM MINR       R(00,00,60);  # REAL VALUE #
00786  M01S00726.acpd    +++|        ITEM MINI       I(00,00,60);  # INTEGER VALUE #
00787  M01S00727.acpd    +++|        END  # ARRAY MINVAL #
00788  M01S00728.acpd    +++|
00789  M01S00729.acpd    +++|      ARRAY TOTVAL [0:0] P(1);       # TOTAL REPORT VALUE #
00790  M01S00730.acpd    +++|        BEGIN  # ARRAY TOTVAL #
00791  M01S00731.acpd    +++|        ITEM TOTR       R(00,00,60);  # REAL VALUE #
00792  M01S00732.acpd    +++|        ITEM TOTI       I(00,00,60);  # INTEGER VALUE #
00793  M01S00733.acpd    +++|        END  # ARRAY TOTVAL #
00794  M01S00734.acpd    +++|
00795  M01S00735.acpd    +++|      SWITCH STAT:STVAL              # STATISTIC #
00796  M01S00736.acpd    +++|             PCSS:PCST,              # PERCENTAGE #
00797  M01S00737.acpd    +++|             SDSS:SDST,              # STANDARD DEVIATION #
00798  M01S00738.acpd    +++|             AVSS:AVST;              # AVERAGE #
00799  M01S00739.acpd    +++|
00800  M01S00740.acpd    +++|      LABEL PRSTAT;                  # PRINT TOTAL STATISTICS #
00801  M01S00741.acpd    +++|
00802  M01S00742.acpd    +++|
00803  M01S00743.acpd    +++|
00804  M01S00744.acpd    +++|
00805  M01S00745.acpd    +++|#
00806  M01S00746.acpd    +++|*     BEGIN ACMSTA PROC.
00807  M01S00747.acpd    +++|#
00808  M01S00748.acpd    +++|
00809  M01S00749.acpd    +++|      P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
00810  M01S00750.acpd    +++|      GOTO STAT[STA];
00811  M01S00751.acpd    +++|
00812  M01S00752.acpd    +++|#
00813  M01S00753.acpd    +++|*     COMPUTE AND PRINT TOTAL PERCENTAGE.
00814  M01S00754.acpd    +++|#
00815  M01S00755.acpd    +++|
00816  M01S00756.acpd    +++|PCSS:                                # PERCENTAGE #
00817  M01S00757.acpd    +++|      IF (WFP EQ 0)
00818  M01S00758.acpd    +++|      THEN
00819  M01S00759.acpd    +++|        BEGIN
00820  M01S00760.acpd    +++|        TOTR[0]=0.0;
00821  M01S00761.acpd    +++|        END
00822  M01S00762.acpd    +++|
00823  M01S00763.acpd    +++|      ELSE
00824  M01S00764.acpd    +++|        BEGIN
00825  M01S00765.acpd    +++|        TOTR[0]=(DDSM$SM[FWA]/(ACNS*WFP))*100.0;
00826  M01S00766.acpd    +++|        END
00827  M01S00767.acpd    +++|
00828  M01S00768.acpd    +++|      MAXR[0]=DDSM$PX[FWA];          # MAXIMUM PERCENTAGE #
00829  M01S00769.acpd    +++|      MINR[0]=DDSM$PN[FWA];          # MINIMUM PERCENTAGE #
00830  M01S00770.acpd    +++|      GOTO PRSTAT;
00831  M01S00771.acpd    +++|
00832  M01S00772.acpd    +++|#
00833  M01S00773.acpd    +++|*     COMPUTE AND PRINT TOTAL STANDARD DEVIATION.
00834  M01S00774.acpd    +++|#
00835  M01S00775.acpd    +++|
00836  M01S00776.acpd    +++|SDSS:                                # STANDARD DEVIATION #
00837  M01S00777.acpd    +++|      VL=DDSM$SM[FWA]/ACNS;
00838  M01S00778.acpd    +++|      TOTR[0]=SQRT(DDSM$SQ[FWA]/ACNS - VL*VL);
00839  M01S00779.acpd    +++|      MAXR[0]=DDSM$SX[FWA];          # MAXIMUM STANDARD DEVIATION #
00840  M01S00780.acpd    +++|      MINR[0]=DDSM$SN[FWA];          # MINIMUM STANDARD DEVIATION #
00841  M01S00781.acpd    +++|      GOTO PRSTAT;
00842  M01S00782.acpd    +++|
00843  M01S00783.acpd    +++|#
00844  M01S00784.acpd    +++|*     COMPUTE AND PRINT TOTAL AVERAGE.
00845  M01S00785.acpd    +++|#
00846  M01S00786.acpd    +++|
00847  M01S00787.acpd    +++|AVSS:                                # AVERAGE #
00848  M01S00788.acpd    +++|      VL=DDSM$SM[FWA];
00849  M01S00789.acpd    +++|      IF (DTY EQ FLPC)               # REAL FORMAT #
00850  M01S00790.acpd    +++|      THEN
00851  M01S00791.acpd    +++|        BEGIN
00852  M01S00792.acpd    +++|        TOTR[0]=VL/ACNS;
00853  M01S00793.acpd    +++|        MAXR[0]=DDSM$AX[FWA];        # MAXIMUM AVERAGE #
00854  M01S00794.acpd    +++|        MINR[0]=DDSM$AN[FWA];        # MINIMUM AVERAGE #
00855  M01S00795.acpd    +++|        END
00856  M01S00796.acpd    +++|
00857  M01S00797.acpd    +++|      ELSE                           # NOT REAL FORMAT #
00858  M01S00798.acpd    +++|        BEGIN
00859  M01S00799.acpd    +++|        TOTI[0]=VL/ACNS;
00860  M01S00800.acpd    +++|        MAXI[0]=DDSM$AX[FWA];        # MAXIMUM AVERAGE #
00861  M01S00801.acpd    +++|        MINI[0]=DDSM$AN[FWA];        # MINIMUM AVERAGE #
00862  M01S00802.acpd    +++|        END
00863  M01S00803.acpd    +++|
00864  M01S00804.acpd    +++|#
00865  M01S00805.acpd    +++|*     PRINT TOTAL STATISTICS.
00866  M01S00806.acpd    +++|#
00867  M01S00807.acpd    +++|
00868  M01S00808.acpd    +++|PRSTAT:                              # PRINT STATISTIC VALUES #
00869  M01S00809.acpd    +++|      WRITEV(TOTVAL[0],DTY,BCL+1,9,NLFC);
00870  M01S00810.acpd    +++|      WRITEV(MAXVAL[0],DTY,BCL+10,10,NLFC);
00871  M01S00811.acpd    +++|      WRITEV(MINVAL[0],DTY,BCL+20,10,LFDC);
00872  M01S00812.acpd    +++|      RETURN;
00873  M01S00813.acpd    +++|      END  # ACMSTA #
00874  M01S00814.acpd    +++|
00875  M01S00815.acpd    +++|      TERM
00876  M01S00816.acpd    +++|PROC ADJUST;
00877  M01S00817.acpd    +++|# TITLE ADJUST - ADJUST TABLES AND FIELD LENGTH.  #
00878  M01S00818.acpd    +++|
00879  M01S00819.acpd    +++|      BEGIN  # ADJUST #
00880  M01S00820.acpd    +++|
00881  M01S00821.acpd    +++|#
00882  M01S00822.acpd    +++|**    ADJUST - ADJUST TABLES AND FIELD LENGTH.
00883  M01S00823.acpd    +++|*
00884  M01S00824.acpd    +++|*     THIS PROC RECOMPUTES THE FIELD LENGTH AND BUFFER ADDRESSES.
00885  M01S00825.acpd    +++|*     IT ALSO COMPUTES THE DECODED BUFFER ADDRESSES OF TABLES
00886  M01S00826.acpd    +++|*     *DDHD* AND *DDDT*.
00887  M01S00827.acpd    +++|*     THE MASS STORAGE DEVICE SUBBLOCK TITLE TABLE IS CONSTRUCTED
00888  M01S00828.acpd    +++|*     BASED ON THE EST.
00889  M01S00829.acpd    +++|*
00890  M01S00830.acpd    +++|*     PROC ADJUST
00891  M01S00831.acpd    +++|*
00892  M01S00832.acpd    +++|*     ENTRY      NONE.
00893  M01S00833.acpd    +++|*
00894  M01S00834.acpd    +++|*     EXIT       THE NEW DECODED BUFFER LENGTHS OF THE HEADER
00895  M01S00835.acpd    +++|*                BLOCK *DCHL* AND DATA BLOCK *DCDL* ARE COMPUTED.
00896  M01S00836.acpd    +++|*                THE DECODED BUFFER POINTERS OF TABLES *DDHD* AND
00897  M01S00837.acpd    +++|*                *DDDT* ARE COMPUTED.
00898  M01S00838.acpd    +++|*                NEW FIELD LENGTH IS COMPUTED.
00899  M01S00839.acpd    +++|*                MASS STORAGE DEVICE SUBBLOCK TITLE TABLE IS
00900  M01S00840.acpd    +++|*                CONSTRUCTED.
00901  M01S00841.acpd    +++|#
00902  M01S00842.acpd    +++|
00903  M01S00843.acpd    +++|#
00904  M01S00844.acpd    +++|****  PROC ADJUST - XREF LIST BEGIN.
00905  M01S00845.acpd    +++|#
00906  M01S00846.acpd    +++|
00907  M01S00847.acpd    +++|      XREF
00908  M01S00848.acpd    +++|        BEGIN
00909  M01S00849.acpd    +++|        PROC MEMORY;                 # REQUEST MEMORY #
00910  M01S00850.acpd    +++|        FUNC XCOD C(10);             # NUMBER TO DISPLAY OCTAL #
00911  M01S00851.acpd    +++|        END
00912  M01S00852.acpd    +++|
00913  M01S00853.acpd    +++|#
00914  M01S00854.acpd    +++|****  PROC ADJUST - XREF LIST END.
00915  M01S00855.acpd    +++|#
00916  M01S00856.acpd    +++|
00917  M01S00857.acpd    +++|      DEF BLKC       #" "#;          # BLANK #
00918  M01S00858.acpd    +++|      DEF CPWC       #5#;            # NUMBER OF CHARACTER PER WORD #
00919  M01S00859.acpd    +++|      DEF MXVC       #1.0E20#;       # MAXIMUM VALUE #
00920  M01S00860.acpd    +++|      DEF NA         #"NA"#;         # NO ABORT FLAG #
00921  M01S00861.acpd    +++|      DEF RECALL     #1#;            # RECALL FLAG #
00922  M01S00862.acpd    +++|
00923  M01S00863.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
00924  M01S00864.acpd    +++|
00925  M01S00865.acpd    +++|*CALL     COMUCPD
00926  M01S00866.acpd    +++|*CALL     COMUEST
00927  M01S00867.acpd    +++|
00928  M01S00868.acpd    +++|#
00929  M01S00869.acpd    +++|*     LOCAL VARIABLES.
00930  M01S00870.acpd    +++|#
00931  M01S00871.acpd    +++|
00932  M01S00872.acpd    +++|      ITEM BL         I;             # BUFFER LENGTH #
00933  M01S00873.acpd    +++|      ITEM BLC        I;             # BUFFER LENGTH #
00934  M01S00874.acpd    +++|      ITEM CBL        I;             # CURRENT BUFFER LENGTH #
00935  M01S00875.acpd    +++|      ITEM CM         C(10)="CM";    # MEMORY ARGUMENT #
00936  M01S00876.acpd    +++|      ITEM I          I;             # FOR LOOP CONTROL #
00937  M01S00877.acpd    +++|      ITEM IC         I;             # INCREMENTOR #
00938  M01S00878.acpd    +++|      ITEM J          I;             # FOR LOOP CONTROL #
00939  M01S00879.acpd    +++|      ITEM L          I;             # TEMPORARY STORAGE #
00940  M01S00880.acpd    +++|      ITEM LN         I;             # LENGTH #
00941  M01S00881.acpd    +++|      ITEM M          I;             # TEMPORARY STORAGE #
00942  M01S00882.acpd    +++|      ITEM MSI        I;             # *MST* ORDINAL #
00943  M01S00883.acpd    +++|      ITEM N          I;             # TEMPORARY STORAGE #
00944  M01S00884.acpd    +++|      ITEM ORD        C(10);         # *MST* ORDINAL DISPLAY #
00945  M01S00885.acpd    +++|      ITEM PR         I;             # PRECISION #
00946  M01S00886.acpd    +++|      ITEM RBL        I;             # REQUESTED BUFFER LENGTH #
00947  M01S00887.acpd    +++|      ITEM RDCDL      I;             # REQUESTED BUFFER LENGTH #
00948  M01S00888.acpd    +++|      ITEM RDCHL      I;             # REQUESTED BUFFER LENGTH #
00949  M01S00889.acpd    +++|
00950  M01S00890.acpd    +++|      BASED
00951  M01S00891.acpd    +++|      ARRAY MSD [0:0] P(1);          # MASS STORAGE DEVICE #
00952  M01S00892.acpd    +++|        BEGIN  # ARRAY MSD #
00953  M01S00893.acpd    +++|        ITEM MSD$WD     I(00,00,60);  # MSD ENTRY #
00954  M01S00894.acpd    +++|        ITEM MSD$EQ     C(00,00,03);  # EQUIPMENT NAME #
00955  M01S00895.acpd    +++|        ITEM MSD$OR     C(00,18,07);  # EQUIPMENT ORDINAL #
00956  M01S00896.acpd    +++|        END  # ARRAY MSD #
00957  M01S00897.acpd    +++|
00958  M01S00898.acpd    +++|      ARRAY STT [0:0] P(1);          # MEMORY ARGUMENT #
00959  M01S00899.acpd    +++|        BEGIN  # ARRAY STT #
00960  M01S00900.acpd    +++|        ITEM STT$RFL    U(00,00,30);  # REQUESTED FIELD LENGTH #
00961  M01S00901.acpd    +++|        ITEM STT$CMB    U(00,59,01);  # COMPLETION BIT #
00962  M01S00902.acpd    +++|        END  # ARRAY STT #
00963  M01S00903.acpd    +++|
00964  M01S00904.acpd    +++|
00965  M01S00905.acpd    +++|
00966  M01S00906.acpd    +++|
00967  M01S00907.acpd    +++|
00968  M01S00908.acpd    +++|
00969  M01S00909.acpd    +++|#
00970  M01S00910.acpd    +++|*     BEGIN ADJUST PROC.
00971  M01S00911.acpd    +++|#
00972  M01S00912.acpd    +++|
00973  M01S00913.acpd    +++|      P<DCHD>=LOC(DBUF);
00974  M01S00914.acpd    +++|
00975  M01S00915.acpd    +++|#
00976  M01S00916.acpd    +++|*     COMPUTE LENGTH OF THE HEADER BLOCK DECODED BUFFER.
00977  M01S00917.acpd    +++|#
00978  M01S00918.acpd    +++|
00979  M01S00919.acpd    +++|      BL=0;
00980  M01S00920.acpd    +++|      P<MPAR>=LOC(HDTR);
00981  M01S00921.acpd    +++|      P<DDSC>=LOC(DDHD);
00982  M01S00922.acpd    +++|
00983  M01S00923.acpd    +++|      J=0;
00984  M01S00924.acpd    +++|      SLOWFOR M=0 WHILE (MPAR$WD[J] NQ 0)
00985  M01S00925.acpd    +++|      DO
00986  M01S00926.acpd    +++|        BEGIN  # COMPUTE HEADER BLOCK LENGTH AND BUFFER ADDRESS #
00987  M01S00927.acpd    +++|        LN=MPAR$LN[J];
00988  M01S00928.acpd    +++|        IF (MPAR$LMP[J] NQ 0)
00989  M01S00929.acpd    +++|        THEN
00990  M01S00930.acpd    +++|          BEGIN
00991  M01S00931.acpd    +++|          LN=LN*DCHD$WD[DDSC$FW[MPAR$LMP[J]]];
00992  M01S00932.acpd    +++|          END
00993  M01S00933.acpd    +++|
00994  M01S00934.acpd    +++|        PR=MPAR$PR[J];
00995  M01S00935.acpd    +++|        IF (PR GR CPWC)
00996  M01S00936.acpd    +++|        THEN
00997  M01S00937.acpd    +++|          BEGIN
00998  M01S00938.acpd    +++|          LN=(PR/CPWC)*LN;
00999  M01S00939.acpd    +++|          END
01000  M01S00940.acpd    +++|
01001  M01S00941.acpd    +++|        BLC=BL;
01002  M01S00942.acpd    +++|        IC=MPAR$IC[J];
01003  M01S00943.acpd    +++|        FASTFOR I=1 STEP 1 UNTIL IC
01004  M01S00944.acpd    +++|        DO
01005  M01S00945.acpd    +++|          BEGIN
01006  M01S00946.acpd    +++|          DDSC$FW[J]=BLC;
01007  M01S00947.acpd    +++|          DDSC$LN[J]=LN;
01008  M01S00948.acpd    +++|          DDSC$IC[J]=IC;
01009  M01S00949.acpd    +++|          BL=BL+LN;
01010  M01S00950.acpd    +++|          BLC=BLC+1;
01011  M01S00951.acpd    +++|          J=J+1;
01012  M01S00952.acpd    +++|          END
01013  M01S00953.acpd    +++|
01014  M01S00954.acpd    +++|        END  # COMPUTE HEADER BLOCK LENGTH AND BUFFER ADDRESS #
01015  M01S00955.acpd    +++|
01016  M01S00956.acpd    +++|      RDCHL=BL+1;                    # NEW HEADER BLOCK BUFFER LENGTH #
01017  M01S00957.acpd    +++|
01018  M01S00958.acpd    +++|#
01019  M01S00959.acpd    +++|*     COMPUTE THE DATA BLOCK DECODED BUFFER LENGTH.
01020  M01S00960.acpd    +++|#
01021  M01S00961.acpd    +++|
01022  M01S00962.acpd    +++|      BL=0;
01023  M01S00963.acpd    +++|      J=0;
01024  M01S00964.acpd    +++|      P<MPAR>=LOC(DATT);
01025  M01S00965.acpd    +++|
01026  M01S00966.acpd    +++|      SLOWFOR M=0 WHILE (MPAR$WD[J] NQ 0)
01027  M01S00967.acpd    +++|      DO
01028  M01S00968.acpd    +++|        BEGIN  # COMPUTE DATA BLOCK LENGTH AND BUFFER ADDRESS #
01029  M01S00969.acpd    +++|        P<DDSC>=LOC(DDHD);
01030  M01S00970.acpd    +++|        LN=MPAR$LN[J];
01031  M01S00971.acpd    +++|        IF (MPAR$LMP[J] NQ 0)
01032  M01S00972.acpd    +++|        THEN
01033  M01S00973.acpd    +++|          BEGIN
01034  M01S00974.acpd    +++|          LN=LN*DCHD$WD[DDSC$FW[MPAR$LMP[J]]];
01035  M01S00975.acpd    +++|          END
01036  M01S00976.acpd    +++|
01037  M01S00977.acpd    +++|        PR=MPAR$PR[J];
01038  M01S00978.acpd    +++|        IF (PR GR CPWC)
01039  M01S00979.acpd    +++|        THEN
01040  M01S00980.acpd    +++|          BEGIN
01041  M01S00981.acpd    +++|          LN=(PR/CPWC)*LN;
01042  M01S00982.acpd    +++|          END
01043  M01S00983.acpd    +++|
01044  M01S00984.acpd    +++|        P<DDSC>=LOC(DDDT);
01045  M01S00985.acpd    +++|        BLC=BL;
01046  M01S00986.acpd    +++|        IC=MPAR$IC[J];
01047  M01S00987.acpd    +++|        FASTFOR I=1 STEP 1 UNTIL IC
01048  M01S00988.acpd    +++|        DO
01049  M01S00989.acpd    +++|          BEGIN
01050  M01S00990.acpd    +++|          DDSC$FW[J]=BLC;
01051  M01S00991.acpd    +++|          DDSC$LN[J]=LN;
01052  M01S00992.acpd    +++|          DDSC$IC[J]=IC;
01053  M01S00993.acpd    +++|          BL=BL+LN;
01054  M01S00994.acpd    +++|          BLC=BLC+1;
01055  M01S00995.acpd    +++|          J=J+1;
01056  M01S00996.acpd    +++|          END
01057  M01S00997.acpd    +++|
01058  M01S00998.acpd    +++|        END  # COMPUTE DATA BLOCK LENGTH AND BUFFER ADDRESS #
01059  M01S00999.acpd    +++|
01060  M01S01000.acpd    +++|      RDCDL=BL+1;                    # NEW DATA BLOCK LENGTH #
01061  M01S01001.acpd    +++|
01062  M01S01002.acpd    +++|#
01063  M01S01003.acpd    +++|*     COMPUTE NEW FIELD LENGTH.
01064  M01S01004.acpd    +++|#
01065  M01S01005.acpd    +++|
01066  M01S01006.acpd    +++|      RBL=RDCHL+(RDCDL*DCDC*2)+(RDCDL*8);  # NEW LENGTH #
01067  M01S01007.acpd    +++|      CBL=DCHL+(DCDL*DCDC*2)+(DCDL*8);  # OLD LENGTH #
01068  M01S01008.acpd    +++|      HGAD=HGAD + (RBL-CBL);         # UPDATE HIGHEST ADDRESS #
01069  M01S01009.acpd    +++|      DCHL=RDCHL;
01070  M01S01010.acpd    +++|      DCDL=RDCDL;
01071  M01S01011.acpd    +++|      IF (HGAD GR CRFL)              # EXCEED FIELD LENGTH #
01072  M01S01012.acpd    +++|      THEN
01073  M01S01013.acpd    +++|        BEGIN
01074  M01S01014.acpd    +++|        STT$RFL[0]=HGAD;
01075  M01S01015.acpd    +++|        MEMORY(CM,STT,RECALL,NA);    # REQUEST MEMORY #
01076  M01S01016.acpd    +++|        CRFL=STT$RFL[0];             # UPDATE CURRENT FIELD LENGTH #
01077  M01S01017.acpd    +++|        END
01078  M01S01018.acpd    +++|
01079  M01S01019.acpd    +++|#
Line S01020 Modification History
M01 (Added by) acpd
M02 (Updated by) ns2146
Seq #  *Modification Id* Act 
----------------------------+
01080  M02S01020.ns2146  ---|*     INITIALIZE DECODED BUFFER.
Line S00001 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01081  M02S00001.v23l617 ---|*     INITIALIZE DECODED BUFFER, TOTAL BUFFER, AND *PMF* BUFFER.
01082  M01S00052.v23l617 +++|*     INITIALIZE DECODED BUFFER AND TOTAL BUFFER.
01083  M01S01021.acpd    +++|#
01084  M01S01022.acpd    +++|
01085  M01S01023.acpd    +++|      P<DCDT>=LOC(DBUF[DCHL]);
01086  M01S01024.acpd    +++|      P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
01087  M01S01025.acpd    +++|      FASTFOR I=0 STEP 1 UNTIL DCDC*DCDL*2 - 1
01088  M01S01026.acpd    +++|      DO
01089  M01S01027.acpd    +++|        BEGIN
01090  M01S01028.acpd    +++|        DCDT$WD[I]=0;
01091  M01S01029.acpd    +++|        END
01092  M01S01030.acpd    +++|
01093  M01S01031.acpd    +++|      FASTFOR I=0 STEP 1 UNTIL DCDL-1
01094  M01S01032.acpd    +++|      DO
01095  M01S01033.acpd    +++|        BEGIN
01096  M01S01034.acpd    +++|        DDSM$IM[I]=0;
01097  M01S01035.acpd    +++|        DDSM$IQ[I]=0;
01098  M01S01036.acpd    +++|        DDSM$AX[I]=0;
01099  M01S01037.acpd    +++|        DDSM$AN[I]=MXVC;
01100  M01S01038.acpd    +++|        DDSM$SX[I]=0;
01101  M01S01039.acpd    +++|        DDSM$SN[I]=MXVC;
01102  M01S01040.acpd    +++|        DDSM$PX[I]=0;
01103  M01S01041.acpd    +++|        DDSM$PN[I]=MXVC;
01104  M01S01042.acpd    +++|        END
Line S00002 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00002.v23l617 ---|
Line S00003 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00003.v23l617 ---|      FASTFOR I=0 STEP 1 UNTIL 3
Line S00004 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01107  M02S00004.v23l617 ---|      DO
Line S00005 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00005.v23l617 ---|        BEGIN  # INITIALIZE *PMF* BUFFER #
Line S00006 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00006.v23l617 ---|        APMD$MX[I]=0;
Line S00007 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00007.v23l617 ---|        APMD$MN[I]=101.0;
Line S00008 Modification History
M01 (Added by) ns2146
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00008.v23l617 ---|        END  # INITIALIZE *PMF* BUFFER #
01112  M01S01043.acpd    +++|
01113  M01S01044.acpd    +++|#
01114  M01S01045.acpd    +++|*     CONSTRUCT THE MASS STORAGE DEVICE SUBBLOCK TITLE TABLE.
01115  M01S01046.acpd    +++|#
01116  M01S01047.acpd    +++|
01117  M01S01048.acpd    +++|      P<DDSC>=LOC(DDHD);
01118  M01S01049.acpd    +++|      P<EST>=LOC(DCHD$WD[DDSC$FW[ESTB]]);
01119  M01S01050.acpd    +++|      P<MSD>=LOC(SMGT[EQTN]);
01120  M01S01051.acpd    +++|      MSI=0;
01121  M01S01052.acpd    +++|
01122  M01S01053.acpd    +++|      SLOWFOR J=0 STEP 1 UNTIL DCHD$WD[DDSC$FW[ESTL]] - 1
01123  M01S01054.acpd    +++|      DO
01124  M01S01055.acpd    +++|        BEGIN  # SEARCH FOR MASS STORAGE DEVICE IN EST #
01125  M01S01056.acpd    +++|        IF (EST$MS[J])               # MASS STORAGE DEVICE #
01126  M01S01057.acpd    +++|        THEN
01127  M01S01058.acpd    +++|          BEGIN  # BUILD SUBBLOCK TITLE #
01128  M01S01059.acpd    +++|          MSD$EQ[MSI]="EQ ";
01129  M01S01060.acpd    +++|          MSD$OR[MSI]=BLKC;
01130  M01S01061.acpd    +++|          ORD=XCOD(J);               # CONVERT TO DISPLAY #
01131  M01S01062.acpd    +++|          N=0;
01132  M01S01063.acpd    +++|
01133  M01S01064.acpd    +++|          SLOWFOR I=9 STEP -1 WHILE (C<I,1>ORD NQ BLKC)
01134  M01S01065.acpd    +++|          DO                         # COUNT NUMBER OF DIGITS #
01135  M01S01066.acpd    +++|            BEGIN
01136  M01S01067.acpd    +++|            N=N+1;
01137  M01S01068.acpd    +++|            END
01138  M01S01069.acpd    +++|
01139  M01S01070.acpd    +++|          M=I+1;
01140  M01S01071.acpd    +++|          L=0;
01141  M01S01072.acpd    +++|
01142  M01S01073.acpd    +++|          SLOWFOR I=1 STEP 1 WHILE (I LQ N)
01143  M01S01074.acpd    +++|          DO                         # BUILD MST ORDINAL #
01144  M01S01075.acpd    +++|            BEGIN
01145  M01S01076.acpd    +++|            C<L,1>MSD$OR[MSI]=C<M,1>ORD;
01146  M01S01077.acpd    +++|            L=L+1;
01147  M01S01078.acpd    +++|            M=M+1;
01148  M01S01079.acpd    +++|            END
01149  M01S01080.acpd    +++|
01150  M01S01081.acpd    +++|          MSI=MSI+1;
01151  M01S01082.acpd    +++|          END  # BUILD SUBBLOCK TITLE #
01152  M01S01083.acpd    +++|
01153  M01S01084.acpd    +++|        END  # SEARCH FOR MASS STORAGE DEVICE IN EST #
01154  M01S01085.acpd    +++|
01155  M01S01086.acpd    +++|      MSD$WD[MSI]=0;                 # END OF TABLE #
01156  M01S01087.acpd    +++|
01157  M01S01088.acpd    +++|      RETURN;
01158  M01S01089.acpd    +++|      END  # ADJUST #
01159  M01S01090.acpd    +++|
01160  M01S01091.acpd    +++|      TERM
01161  M01S01092.acpd    +++|PROC CHKSPA((SPC),WFT,PRFLG);
01162  M01S01093.acpd    +++|# TITLE CHKSPA - CHECK SPECIAL ACTION.  #
01163  M01S01094.acpd    +++|
01164  M01S01095.acpd    +++|      BEGIN  # CHKSPA #
01165  M01S01096.acpd    +++|
01166  M01S01097.acpd    +++|#
01167  M01S01098.acpd    +++|**    CHKSPA - CHECK SPECIAL ACTION.
01168  M01S01099.acpd    +++|*
01169  M01S01100.acpd    +++|*     *CHKSPA* PERFORMS TASKS THAT CANNOT BE TABLE DRIVEN.
01170  M01S01101.acpd    +++|*     CURRENTLY THESE ACTIONS INCLUDE COMPUTING AVAILABLE
Line S01102 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01171  M02S01102.v23l617 ---|*     MEMORY, THE ADVANCED PROCESSOR MODELS CHECKING,
Line S01103 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01172  M02S01103.v23l617 ---|*     AND BUFFERED I/O CHECKING.
01173  M01S00053.v23l617 +++|*     MEMORY AND BUFFERED I/O CHECKING.
01174  M01S01104.acpd    +++|*
01175  M01S01105.acpd    +++|*     PROC CHKSPA((SPC),WFT,PRFLG)
01176  M01S01106.acpd    +++|*
01177  M01S01107.acpd    +++|*     ENTRY      SPC   = SPECIAL ACTION CODE.
01178  M01S01108.acpd    +++|*
01179  M01S01109.acpd    +++|*     EXIT       WFT   = WEIGHT FACTOR.
01180  M01S01110.acpd    +++|*                PRFLG = FLAG INDICATES IF ELEMENT IS TO BE PROCESSED.
01181  M01S01111.acpd    +++|#
01182  M01S01112.acpd    +++|
01183  M01S01113.acpd    +++|#
01184  M01S01114.acpd    +++|*     PARAMETER LIST.
01185  M01S01115.acpd    +++|#
01186  M01S01116.acpd    +++|      ITEM SPC        I;             # SPECIAL ACTION CODE #
01187  M01S01117.acpd    +++|      ITEM WFT        R;             # WEIGHT FACTOR #
01188  M01S01118.acpd    +++|      ITEM PRFLG      B;             # PROCESS FLAG #
01189  M01S01119.acpd    +++|
01190  M01S01120.acpd    +++|#
01191  M01S01121.acpd    +++|****  PROC CHKSPA - XREF LIST BEGIN.
01192  M01S01122.acpd    +++|#
01193  M01S01123.acpd    +++|
01194  M01S01124.acpd    +++|      XREF
01195  M01S01125.acpd    +++|        BEGIN
01196  M01S01126.acpd    +++|        PROC WRITEV;                 # WRITE DATA VALUE #
01197  M01S01127.acpd    +++|        END
01198  M01S01128.acpd    +++|
01199  M01S01129.acpd    +++|#
01200  M01S01130.acpd    +++|****  PROC CHKSPA - XREF LIST END.
01201  M01S01131.acpd    +++|#
01202  M01S01132.acpd    +++|
01203  M01S01133.acpd    +++|      DEF NPCC       #-1.0#;         # NO PERCENTAGE FLAG #
01204  M01S01134.acpd    +++|
01205  M01S01135.acpd    +++|      DEF LISTCON    #0#;            # TURN OFF COMMON LISTING #
01206  M01S01136.acpd    +++|
01207  M01S01137.acpd    +++|*CALL     COMUCPD
01208  M01S01138.acpd    +++|
01209  M01S01139.acpd    +++|#
01210  M01S01140.acpd    +++|*     LOCAL VARIABLES.
01211  M01S01141.acpd    +++|#
01212  M01S01142.acpd    +++|
01213  M01S01143.acpd    +++|      ITEM TEM        I;             # TEMPORARY STORAGE #
01214  M01S01144.acpd    +++|
01215  M01S01145.acpd    +++|      SWITCH SPAT
01216  M01S01146.acpd    +++|             AVMS,                   # AVAILABLE MEMORY #
Line S01147 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01217  M02S01147.v23l617 ---|             AP1S,                   # ADVANCED PROCESSOR #
Line S01148 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S01148.v23l617 ---|             AP2S,                   # ADVANCED PROCESSOR #
01219  M01S01149.acpd    +++|             BIOS,                   # BUFFERED I/O #
01220  M01S01150.acpd    +++|             ;                       # END OF SPAT #
01221  M01S01151.acpd    +++|
01222  M01S01152.acpd    +++|
01223  M01S01153.acpd    +++|
01224  M01S01154.acpd    +++|
01225  M01S01155.acpd    +++|
01226  M01S01156.acpd    +++|
01227  M01S01157.acpd    +++|#
01228  M01S01158.acpd    +++|*     BEGIN CHKSPA PROC.
01229  M01S01159.acpd    +++|#
01230  M01S01160.acpd    +++|
01231  M01S01161.acpd    +++|      P<DCHD>=LOC(DBUF);
01232  M01S01162.acpd    +++|      P<DDSC>=LOC(DDHD);
01233  M01S01163.acpd    +++|      PRFLG=FALSE;
01234  M01S01164.acpd    +++|
01235  M01S01165.acpd    +++|      GOTO SPAT[SPC];
01236  M01S01166.acpd    +++|
01237  M01S01167.acpd    +++|AVMS:                                # AVAILABLE MEMORY #
01238  M01S01168.acpd    +++|
01239  M01S01169.acpd    +++|      WFT=DCHD$WD[DDSC$FW[MEMS]]-DCHD$WD[DDSC$FW[CMRS]];
01240  M01S01170.acpd    +++|      PRFLG=TRUE;
01241  M01S01171.acpd    +++|      RETURN;
01242  M01S01172.acpd    +++|
Line S01173 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01243  M02S01173.v23l617 ---|AP1S:                                # ADVANCE PROCESSOR 1 #
Line S01174 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01174.v23l617 ---|
Line S01175 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01175.v23l617 ---|      TEM=DCHD$WD[DDSC$FW[APMF]]/2;
Line S01176 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01176.v23l617 ---|      IF (TEM EQ 2) OR (TEM EQ 3)
Line S01177 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01177.v23l617 ---|      THEN
Line S01178 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01178.v23l617 ---|        BEGIN
Line S01179 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S01179.v23l617 ---|        WFT=NPCC;                    # NO PERCENTAGE #
Line S01180 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01180.v23l617 ---|        PRFLG=TRUE;
Line S01181 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S01181.v23l617 ---|        END
Line S01182 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01182.v23l617 ---|
Line S01183 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01183.v23l617 ---|      RETURN;
Line S01184 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01254  M02S01184.v23l617 ---|
Line S01185 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01185.v23l617 ---|AP2S:                                # ADVANCE PROCESSOR 2 #
Line S01186 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S01186.v23l617 ---|
Line S01187 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01257  M02S01187.v23l617 ---|      TEM=DCHD$WD[DDSC$FW[APMF]]/2;
Line S01188 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S01188.v23l617 ---|      IF (TEM NQ 0)
Line S01189 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01259  M02S01189.v23l617 ---|      THEN
Line S01190 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01260  M02S01190.v23l617 ---|        BEGIN
Line S01191 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S01191.v23l617 ---|        WFT=NPCC;                    # NO PERCENTAGE #
Line S01192 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S01192.v23l617 ---|        PRFLG=TRUE;
Line S01193 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01263  M02S01193.v23l617 ---|        END
Line S01194 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01264  M02S01194.v23l617 ---|
Line S01195 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01265  M02S01195.v23l617 ---|      RETURN;
01266  M01S01196.acpd    +++|BIOS:                                # BUFFERED I/O PARAMETERS #
01267  M01S01197.acpd    +++|      WFT=DCHD$WD[DDSC$FW[TIOB]];
01268  M01S01198.acpd    +++|      IF (WFT NQ 0)                  # SYSTEM HAS BUFFERED I/O #
01269  M01S01199.acpd    +++|      THEN
01270  M01S01200.acpd    +++|        BEGIN
01271  M01S01201.acpd    +++|        PRFLG=TRUE;
01272  M01S01202.acpd    +++|        END
01273  M01S01203.acpd    +++|
01274  M01S01204.acpd    +++|      RETURN;
01275  M01S01205.acpd    +++|
01276  M01S01206.acpd    +++|#
01277  M01S01207.acpd    +++|*     END CASE.
01278  M01S01208.acpd    +++|#
01279  M01S01209.acpd    +++|
01280  M01S01210.acpd    +++|      END  # CHKSPA #
Line S01211 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01211.v23l617 ---|
Line S01212 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S01212.v23l617 ---|      TERM
Line S01213 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S01213.v23l617 ---|PROC COMMTE((TPT),(POS));
Line S01214 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S01214.v23l617 ---|# TITLE COMMTE - COMPUTE *PMF* MEAN TIME IN EXECUTIVE STATE.  #
Line S01215 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01215.v23l617 ---|
Line S01216 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S01216.v23l617 ---|      BEGIN  # COMMTE #
Line S01217 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01287  M02S01217.v23l617 ---|
Line S01218 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01288  M02S01218.v23l617 ---|#
Line S01219 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01219.v23l617 ---|**    COMMTE - COMPUTE *PMF* MEAN TIME IN EXECUTIVE STATE.
Line S01220 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01290  M02S01220.v23l617 ---|*
Line S01221 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01221.v23l617 ---|*     COMMTE CALCULATES MEAN TIME IN EXECUTIVE STATE FOR *PMF*
Line S01222 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01222.v23l617 ---|*     HARDWARE.
Line S01223 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S01223.v23l617 ---|*
Line S01224 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S01224.v23l617 ---|*     PROC COMMTE((TPT),(POS))
Line S01225 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S01225.v23l617 ---|*
Line S01226 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01296  M02S01226.v23l617 ---|*     ENTRY      TPT = TITLE POINTER.
Line S01227 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01297  M02S01227.v23l617 ---|*                POS = POSITION IN *APMD* ARRAY.
Line S01228 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01298  M02S01228.v23l617 ---|*
Line S01229 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01229.v23l617 ---|*     EXIT       INTERVAL, SUBTOTAL, AND TOTAL MEAN TIME IN
Line S01230 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01300  M02S01230.v23l617 ---|*                EXECUTIVE STATE ARE COMPUTED.
Line S01231 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01301  M02S01231.v23l617 ---|#
Line S01232 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01302  M02S01232.v23l617 ---|
Line S01233 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S01233.v23l617 ---|#
Line S01234 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01304  M02S01234.v23l617 ---|*     PARAMETER LIST.
Line S01235 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S01235.v23l617 ---|#
Line S01236 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01306  M02S01236.v23l617 ---|
Line S01237 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01237.v23l617 ---|      ITEM TPT        I;             # REPORT TITLE POINTER #
Line S01238 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01308  M02S01238.v23l617 ---|      ITEM POS        I;             # POSITION IN *APMD* ARRAY #
Line S01239 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01239.v23l617 ---|
Line S01240 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01240.v23l617 ---|#
Line S01241 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01311  M02S01241.v23l617 ---|****  PROC COMMTE - XREF LIST BEGIN.
Line S01242 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01312  M02S01242.v23l617 ---|#
Line S01243 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01243.v23l617 ---|
Line S01244 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01314  M02S01244.v23l617 ---|      XREF
Line S01245 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01315  M02S01245.v23l617 ---|        BEGIN
Line S01246 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01316  M02S01246.v23l617 ---|        PROC GETMSG;                 # GET MESSAGE IN TABLE *DSTX* #
Line S01247 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01317  M02S01247.v23l617 ---|        PROC PRDTEL;                 # PRINT ONE ROW OF DATA ELEMENTS #
Line S01248 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S01248.v23l617 ---|        PROC WRITEV;                 # WRITE VALUE #
Line S01249 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S01249.v23l617 ---|        END
Line S01250 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01320  M02S01250.v23l617 ---|
Line S01251 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01321  M02S01251.v23l617 ---|#
Line S01252 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01322  M02S01252.v23l617 ---|****  PROC COMMTE - XREF LIST END.
Line S01253 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01323  M02S01253.v23l617 ---|#
Line S01254 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01324  M02S01254.v23l617 ---|
Line S01255 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01255.v23l617 ---|
Line S01256 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01326  M02S01256.v23l617 ---|      DEF LISTCON    #0#;            # TURN OFF COMMON DECK LISTING #
Line S01257 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01327  M02S01257.v23l617 ---|
Line S01258 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01328  M02S01258.v23l617 ---|*CALL     COMUCPD
Line S01259 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01329  M02S01259.v23l617 ---|
Line S01260 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01330  M02S01260.v23l617 ---|#
Line S01261 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S01261.v23l617 ---|*     LOCAL VARIABLES.
Line S01262 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01332  M02S01262.v23l617 ---|#
Line S01263 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01333  M02S01263.v23l617 ---|
Line S01264 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01334  M02S01264.v23l617 ---|      ITEM CL         I;             # PRINT COLUMN #
Line S01265 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01335  M02S01265.v23l617 ---|      ITEM I          I;             # FOR LOOP CONTROL #
Line S01266 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01336  M02S01266.v23l617 ---|      ITEM MSG        C(50);         # REPORT TITLE #
Line S01267 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01337  M02S01267.v23l617 ---|      ITEM SAM        R;             # SUBTOTAL OF *PMA1* #
Line S01268 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01338  M02S01268.v23l617 ---|      ITEM SBM        R;             # SUBTOTAL OF *PMB1* #
Line S01269 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01339  M02S01269.v23l617 ---|      ITEM SUM        R;             # TEMPORARY VALUE #
Line S01270 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01340  M02S01270.v23l617 ---|      ITEM VAL        R;             # TEMPORARY VALUE #
Line S01271 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01341  M02S01271.v23l617 ---|
Line S01272 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S01272.v23l617 ---|      ARRAY TEM [1:11] P(1);         # TEMPORARY STORAGE #
Line S01273 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01343  M02S01273.v23l617 ---|        BEGIN  # ARRAY TEM #
Line S01274 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01344  M02S01274.v23l617 ---|        ITEM TEM$VL     R(00,00,60);  # INTERVAL MEAN TIME #
Line S01275 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01345  M02S01275.v23l617 ---|        END  # ARRAY TEM #
Line S01276 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01346  M02S01276.v23l617 ---|
Line S01277 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01347  M02S01277.v23l617 ---|
Line S01278 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01348  M02S01278.v23l617 ---|
Line S01279 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01349  M02S01279.v23l617 ---|
Line S01280 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01350  M02S01280.v23l617 ---|
Line S01281 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01351  M02S01281.v23l617 ---|#
Line S01282 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01352  M02S01282.v23l617 ---|*     BEGIN COMMTE PROC.
Line S01283 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01353  M02S01283.v23l617 ---|#
Line S01284 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01354  M02S01284.v23l617 ---|
Line S01285 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01355  M02S01285.v23l617 ---|      P<DCDT>=LOC(DBUF[DCHL]);
Line S01286 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01356  M02S01286.v23l617 ---|      P<DDSC>=LOC(DDDT);
Line S01287 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01357  M02S01287.v23l617 ---|      P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
Line S01288 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01358  M02S01288.v23l617 ---|
Line S01289 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01359  M02S01289.v23l617 ---|#
Line S01290 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01360  M02S01290.v23l617 ---|*     COMPUTE INTERVAL MEAN TIME IN EXECUTIVE STATE.
Line S01291 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01361  M02S01291.v23l617 ---|#
Line S01292 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01362  M02S01292.v23l617 ---|
Line S01293 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01363  M02S01293.v23l617 ---|      SAM=0.0;
Line S01294 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01364  M02S01294.v23l617 ---|      SBM=0.0;
Line S01295 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01365  M02S01295.v23l617 ---|      SUM=0.0;
Line S01296 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01366  M02S01296.v23l617 ---|
Line S01297 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01367  M02S01297.v23l617 ---|      SLOWFOR I=1 STEP 1 UNTIL NIPP
Line S01298 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01368  M02S01298.v23l617 ---|      DO
Line S01299 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01369  M02S01299.v23l617 ---|        BEGIN
Line S01300 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01370  M02S01300.v23l617 ---|        TEM$VL[I]=DCDT$SM[DDSC$FW[PMB1]]/DCDT$SM[DDSC$FW[PMA1]];
Line S01301 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01371  M02S01301.v23l617 ---|        SAM=SAM + DCDT$SM[DDSC$FW[PMA1]];
Line S01302 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01372  M02S01302.v23l617 ---|        SBM=SBM + DCDT$SM[DDSC$FW[PMB1]];
Line S01303 Modification History
M01 (Added by) acpd
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01373  M02S01303.v23l617 ---|        SUM=SUM + TEM$VL[I];
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/acpd.txt ยท Last modified: by 127.0.0.1