cdc:nos2.source:opl.opl871:deck:acpd
Deck ACPD
9 Modifications
Listing Sections
- Deck ACPD Start
- Deck ACPD Part 1 (Line 1374)
- Deck ACPD Part 2 (Line 2100)
- Deck ACPD Part 3 (Line 4251)
- Deck ACPD Part 4 (Line 5771)
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
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
00080 M01S00001.252l678 +++|*T 1/S,3/D,3/WI,13/WFP,4/ICM,18/LEN,18/FW
Figure
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
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