cdc:nos2.source:opl.opl871:deck:acpd.001
Deck ACPD Part 001
9 Modifications
Listing Sections
- Deck ACPD Start
- Deck ACPD Part 1 (Line 2081)
- Deck ACPD Part 2 (Line 4188)
Source
Seq # *Modification Id* Act ----------------------------+ 02081 M00S01992.acpd +++|# 02082 M00S01993.acpd +++|* THE CURRENT FILE IS DONE. CHECK IF THERE IS ANOTHER FILE 02083 M00S01994.acpd +++|* TO REPORT. 02084 M00S01995.acpd +++|# 02085 M00S01996.acpd +++| 02086 M00S01997.acpd +++| IF (P$ET LQ TM) # ENDING TIME REACHED #
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | acpd2 |
Seq # *Modification Id* Act ----------------------------+ 02087 M01S00002.acpd2 +++| OR (STAT EQ EOIC) # EOI ENCOUNTERED ON FILE # 02088 M00S01998.acpd +++| THEN 02089 M00S01999.acpd +++| BEGIN
| Line S02000 Modification History | |
|---|---|
M01 (Removed by) | acpd2 |
Seq # *Modification Id* Act ----------------------------+ 02090 M01S02000.acpd2 ---| EDTM=TRUE; # ENDING TIME REACHED #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | acpd2 |
Seq # *Modification Id* Act ----------------------------+ 02091 M01S00003.acpd2 +++| EDTM=TRUE; # ENDING TIME REACHED OR EOI # 02092 M00S02001.acpd +++| END 02093 M00S02002.acpd +++| 02094 M00S02003.acpd +++| ELSE # DONE WITH THE CURRENT FILE # 02095 M00S02004.acpd +++| BEGIN 02096 M00S02005.acpd +++| LSTM=TM; # TIME OF LAST RECORD # 02097 M00S02006.acpd +++| END 02098 M00S02007.acpd +++| 02099 M00S02008.acpd +++| RETURN; 02100 M00S02009.acpd +++| END # DATBLK # 02101 M00S02010.acpd +++| 02102 M00S02011.acpd +++| TERM 02103 M00S02012.acpd +++|PROC DATELM(FLG,MS1,MS2,(WFA),(WFP),(POS),(DTY),(FWA),(NSF)); 02104 M00S02013.acpd +++|# TITLE DATELM - PROCESS ONE DATA BLOCK ELEMENT. # 02105 M00S02014.acpd +++| 02106 M00S02015.acpd +++| BEGIN # DATELM # 02107 M00S02016.acpd +++| 02108 M00S02017.acpd +++|# 02109 M00S02018.acpd +++|** DATELM - PROCESS ONE DATA BLOCK ELEMENT. 02110 M00S02019.acpd +++|* 02111 M00S02020.acpd +++|* COMPUTE AND PRINT ONE DATA BLOCK ELEMENT-S STATISTICAL 02112 M00S02021.acpd +++|* VALUES (AVERAGE, STANDARD DEVIATION, AND PERCENTAGE). 02113 M00S02022.acpd +++|* 02114 M00S02023.acpd +++|* PROC DATELM(FLG,MS1,MS2,(WFA),(WFP),(POS),(DTY),(FWA),(NSF)) 02115 M00S02024.acpd +++|* 02116 M00S02025.acpd +++|* ENTRY FLG = TRUE IF SUB BLOCK TITLE IS TO BE PRINTED. 02117 M00S02026.acpd +++|* MS1 = SUB BLOCK TITLE. 02118 M00S02027.acpd +++|* MS2 = DATA ELEMENT NAME. 02119 M00S02028.acpd +++|* WFA = WEIGHT FACTOR INFORMATION. 02120 M00S02029.acpd +++|* WFP = WEIGHT FACTOR. 02121 M00S02030.acpd +++|* POS = RELATIVE POSITION OF WEIGHT FACTOR. 02122 M00S02031.acpd +++|* DTY = DATA TYPE. 02123 M00S02032.acpd +++|* FWA = ADDRESS OF THE ELEMENT IN TABLE *DCDT*. 02124 M00S02033.acpd +++|* NSF = NUMBER OF RECORDS PER INTERVAL. 02125 M00S02034.acpd +++|* NIPP = (COMMON BLOCK *CIOCOMM*) NUMBER OF INTERVALS 02126 M00S02035.acpd +++|* PER PAGE. 02127 M00S02036.acpd +++|* 02128 M00S02037.acpd +++|* EXIT THE AVERAGE, STANDARD DEVIATION, AND PERCENTAGE 02129 M00S02038.acpd +++|* OF THE DATA ELEMENT AT TEN INTERVALS ARE COMPUTED 02130 M00S02039.acpd +++|* AND PRINTED. 02131 M00S02040.acpd +++|* IF THE WEIGHT FACTOR IS THE CONSTANT 1, THE AVERAGE 02132 M00S02041.acpd +++|* WILL NOT BE PRINTED. 02133 M00S02042.acpd +++|* THE PERCENTAGE WILL NOT BE PRINTED IF THE ELEMENT 02134 M00S02043.acpd +++|* DOES NOT HAVE A WEIGHT FACTOR, OR THE WEIGHT FACTOR 02135 M00S02044.acpd +++|* IS THE CONSTANT 100. 02136 M00S02045.acpd +++|# 02137 M00S02046.acpd +++| 02138 M00S02047.acpd +++|# 02139 M00S02048.acpd +++|* PARAMETER LIST. 02140 M00S02049.acpd +++|# 02141 M00S02050.acpd +++| 02142 M00S02051.acpd +++| ITEM FLG B; # SUBBLOCK TITLE FLAG # 02143 M00S02052.acpd +++| ITEM MS1 C(40); # SUBBLOCK TITLE # 02144 M00S02053.acpd +++| ITEM MS2 C(30); # DATA ELEMENT NAME # 02145 M00S02054.acpd +++| ITEM WFA U; # WEIGHT FACTOR INFORMATION # 02146 M00S02055.acpd +++| ITEM WFP U; # WEIGHT FACTOR # 02147 M00S02056.acpd +++| ITEM POS I; # RELATIVE POSITIN OF *WFP* # 02148 M00S02057.acpd +++| ITEM DTY U; # DATA TYPE # 02149 M00S02058.acpd +++| ITEM FWA U; # ADDRESS OF ENTRY # 02150 M00S02059.acpd +++| ITEM NSF I; # NUMBER OF SAMPLES PER INTERVAL # 02151 M00S02060.acpd +++| 02152 M00S02061.acpd +++|# 02153 M00S02062.acpd +++|**** PROC DATELM - XREF LIST BEGIN. 02154 M00S02063.acpd +++|# 02155 M00S02064.acpd +++| 02156 M00S02065.acpd +++| XREF 02157 M00S02066.acpd +++| BEGIN 02158 M00S02067.acpd +++| PROC ACMSTA; # COMPUTE TOTAL STATISTICS # 02159 M00S02068.acpd +++| PROC COMPWF; # COMPUTE WEIGHT FACTOR # 02160 M00S02069.acpd +++| PROC PRDTEL; # PRINT ONE ROW OF DATA ELEMENT # 02161 M00S02070.acpd +++| FUNC SQRT R; # SQUARE ROOT # 02162 M00S02071.acpd +++| PROC WRITEV; # WRITE ONE VALUE # 02163 M00S02072.acpd +++| END 02164 M00S02073.acpd +++| 02165 M00S02074.acpd +++|# 02166 M00S02075.acpd +++|**** PROC DATELM - XREF LIST END. 02167 M00S02076.acpd +++|# 02168 M00S02077.acpd +++| 02169 M00S02078.acpd +++| DEF AVGC #"AV"#; # AVERAGE # 02170 M00S02079.acpd +++| DEF PCTC #"PC"#; # PERCENTAGE # 02171 M00S02080.acpd +++| DEF SDVC #"SD"#; # STANDARD DEVIATION # 02172 M00S02081.acpd +++| DEF ZOPC #"Z"#; # *Z* OPTION # 02173 M00S02082.acpd +++| 02174 M00S02083.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 02175 M00S02084.acpd +++| 02176 M00S02085.acpd +++|*CALL COMUCPD 02177 M00S02086.acpd +++| 02178 M00S02087.acpd +++|# 02179 M00S02088.acpd +++|* LOCAL VARIABLES. 02180 M00S02089.acpd +++|# 02181 M00S02090.acpd +++| 02182 M00S02091.acpd +++| ITEM AV R; # AVERAGE VALUE # 02183 M00S02092.acpd +++| ITEM BCL I; # BEGIN COLUMN TO PRINT # 02184 M00S02093.acpd +++| ITEM I I; # FOR LOOP CONTROL # 02185 M00S02094.acpd +++| ITEM NIP R; # NUMBER OF COLUMNS PER PAGE # 02186 M00S02095.acpd +++| ITEM NSR R; # NUMBER OF BLOCKS PER COLUMN # 02187 M00S02096.acpd +++| ITEM PRFLG B; # PROCESS FLAG # 02188 M00S02097.acpd +++| ITEM SM R; # INTERVAL SUM # 02189 M00S02098.acpd +++| ITEM SQ R; # INTERVAL SUM SQUARED # 02190 M00S02099.acpd +++| ITEM SSM R; # SUM OF SUBTOTAL # 02191 M00S02100.acpd +++| ITEM SSQ R; # SQUARED SUM OF SUBTOTAL # 02192 M00S02101.acpd +++| ITEM SWF R; # SUM OF WEIGHT FACTOR # 02193 M00S02102.acpd +++| ITEM WFT R; # WEIGHT FACTOR # 02194 M00S02103.acpd +++| 02195 M00S02104.acpd +++| ARRAY TEM [1:11] P(3); # COMPUTED STATISTIC VALUES # 02196 M00S02105.acpd +++| BEGIN 02197 M00S02106.acpd +++| ITEM TEM$AV R(00,00,60); # AVERAGE # 02198 M00S02107.acpd +++| ITEM TEM$SD R(01,00,60); # STANDARD DEVIATION # 02199 M00S02108.acpd +++| ITEM TEM$PC R(02,00,60); # PERCENTAGE # 02200 M00S02109.acpd +++| END 02201 M00S02110.acpd +++| 02202 M00S02111.acpd +++| 02203 M00S02112.acpd +++| 02204 M00S02113.acpd +++|# 02205 M00S02114.acpd +++|* BEGIN DATELM PROC. 02206 M00S02115.acpd +++|# 02207 M00S02116.acpd +++| 02208 M00S02117.acpd +++| COMPWF(WFA,WFP,POS,WFT,PRFLG); # COMPUTE WEIGHT FACTOR # 02209 M00S02118.acpd +++| IF (NOT PRFLG) # NOT TO PROCESS THIS ELEMENT # 02210 M00S02119.acpd +++| THEN 02211 M00S02120.acpd +++| BEGIN 02212 M00S02121.acpd +++| RETURN; 02213 M00S02122.acpd +++| END 02214 M00S02123.acpd +++| 02215 M00S02124.acpd +++| P<DCHD>=LOC(DBUF); 02216 M00S02125.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 02217 M00S02126.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]); 02218 M00S02127.acpd +++| P<DDSC>=LOC(DDDT); 02219 M00S02128.acpd +++| 02220 M00S02129.acpd +++|# 02221 M00S02130.acpd +++|* CHECK IF ENTIRE LINE IS ZERO. IF SO, DO NOT PRINT THIS LINE. 02222 M00S02131.acpd +++|# 02223 M00S02132.acpd +++| 02224 M00S02133.acpd +++| SM=0; 02225 M00S02134.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP 02226 M00S02135.acpd +++| DO 02227 M00S02136.acpd +++| BEGIN 02228 M00S02137.acpd +++| SM=SM + DCDT$SM[(I-1)*DCDL + FWA]; 02229 M00S02138.acpd +++| END 02230 M00S02139.acpd +++| 02231 M00S02140.acpd +++| IF (SM EQ 0.0) AND (P$LO NQ ZOPC) AND (NIPP GR (DCDC-3)) 02232 M00S02141.acpd +++| THEN 02233 M00S02142.acpd +++| BEGIN 02234 M00S02143.acpd +++| RETURN; 02235 M00S02144.acpd +++| END 02236 M00S02145.acpd +++| 02237 M00S02146.acpd +++| IF (NIPP LQ (DCDC-3)) # PRINT TOTAL ON THIS PAGE # 02238 M00S02147.acpd +++| THEN # CHECK IF TOTAL IS 0 # 02239 M00S02148.acpd +++| BEGIN 02240 M00S02149.acpd +++| IF (DDSM$IM[FWA] EQ 0) AND (P$LO NQ ZOPC) 02241 M00S02150.acpd +++| THEN 02242 M00S02151.acpd +++| BEGIN 02243 M00S02152.acpd +++| RETURN; 02244 M00S02153.acpd +++| END 02245 M00S02154.acpd +++| 02246 M00S02155.acpd +++| END 02247 M00S02156.acpd +++| 02248 M00S02157.acpd +++|# 02249 M00S02158.acpd +++|* CHECK IF SUBTITLE HAS BEEN PRINTED. 02250 M00S02159.acpd +++|# 02251 M00S02160.acpd +++| 02252 M00S02161.acpd +++| IF (FLG) # SUBTITLE NOT PRINTED # 02253 M00S02162.acpd +++| THEN # PRINT SUBTITLE # 02254 M00S02163.acpd +++| BEGIN 02255 M00S02164.acpd +++| WRITEV(MS1,CHRC,1,22,LFDC); 02256 M00S02165.acpd +++| FLG=FALSE; # INDICATE SUBTITLE WAS PRINTED # 02257 M00S02166.acpd +++| END 02258 M00S02167.acpd +++| 02259 M00S02168.acpd +++| WRITEV(MS2,CHRC,1,22,NLFC); # WRITE DATA ELEMENT NAME # 02260 M00S02169.acpd +++| 02261 M00S02170.acpd +++|# 02262 M00S02171.acpd +++|* COMPUTE AVERAGE, STANDARD DEVIATION, AND PERCENTAGE 02263 M00S02172.acpd +++|* FOR *NIPP* INTERVALS. THE COMPUTED VALUES ARE SAVED 02264 M00S02173.acpd +++|* IN ARRAY *TEM*. 02265 M00S02174.acpd +++|# 02266 M00S02175.acpd +++| 02267 M00S02176.acpd +++| BCL=BCLC; # BEGIN COLUMN TO PRINT # 02268 M00S02177.acpd +++| NSR=NSF; # CONVERT TO REAL # 02269 M00S02178.acpd +++| NIP=NIPP; # CONVERT TO REAL # 02270 M00S02179.acpd +++| SSM=0.0; 02271 M00S02180.acpd +++| SSQ=0.0; 02272 M00S02181.acpd +++| SWF=0.0; 02273 M00S02182.acpd +++| 02274 M00S02183.acpd +++| IF (NIPP GR 0) 02275 M00S02184.acpd +++| THEN 02276 M00S02185.acpd +++| BEGIN # COMPUTE INTERVAL STATISTICS # 02277 M00S02186.acpd +++| FASTFOR I=1 STEP 1 UNTIL NIPP 02278 M00S02187.acpd +++| DO 02279 M00S02188.acpd +++| BEGIN # COMPUTE *AV*, *SD*, *PC* # 02280 M00S02189.acpd +++| SM=DCDT$SM[(I-1)*DCDL + FWA]; 02281 M00S02190.acpd +++| SSM=SSM+SM; 02282 M00S02191.acpd +++| SQ=DCDT$SQ[(I-1)*DCDL+DCDC*DCDL+FWA]; 02283 M00S02192.acpd +++| SSQ=SSQ+SQ; 02284 M00S02193.acpd +++| AV=SM/NSR; # AVERAGE # 02285 M00S02194.acpd +++| TEM$AV[I]=AV; 02286 M00S02195.acpd +++| TEM$SD[I]=SQRT(SQ/NSR - AV*AV); # STANDARD DEVIATION # 02287 M00S02196.acpd +++| DCDT$SQ[(I-1)*DCDL+DCDC*DCDL+FWA]=TEM$SD[I]; # SAVE *SD* #
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | acpd1 |
Seq # *Modification Id* Act
----------------------------+
02288 M01S00001.acpd1 +++| DCDT$SM[(I-1)*DCDL+FWA]=TEM$AV[I]; # SAVE *AV* #
02289 M00S02197.acpd +++|
02290 M00S02198.acpd +++| IF (WFA EQ IWFC) # INDIRECT WEIGHT FACTOR #
02291 M00S02199.acpd +++| THEN # GET WEIGHT FACTOR #
02292 M00S02200.acpd +++| BEGIN
02293 M00S02201.acpd +++| WFT=DCDT$SM[(I-1)*DCDL + DDSC$FW[WFP]]/NSR;
02294 M00S02202.acpd +++| SWF=SWF+WFT;
02295 M00S02203.acpd +++| END
02296 M00S02204.acpd +++|
02297 M00S02205.acpd +++| IF (WFT LQ 0)
02298 M00S02206.acpd +++| THEN
02299 M00S02207.acpd +++| BEGIN
02300 M00S02208.acpd +++| TEM$PC[I]=0.0;
02301 M00S02209.acpd +++| END
02302 M00S02210.acpd +++|
02303 M00S02211.acpd +++| ELSE
02304 M00S02212.acpd +++| BEGIN
02305 M00S02213.acpd +++| TEM$PC[I]=(AV/WFT)*100.0; # PERCENTAGE #
02306 M00S02214.acpd +++| END
02307 M00S02215.acpd +++|
02308 M00S02216.acpd +++| END # COMPUTE *AV*, *SD*, *PC* #
02309 M00S02217.acpd +++|
02310 M00S02218.acpd +++|#
02311 M00S02219.acpd +++|* COMPUTE AVERAGE, STANDARD DEVIATION, AND PERCENTAGE
02312 M00S02220.acpd +++|* OF SUBTOTAL. THE PRECEDING INTERVALS ARE CONSIDERED
02313 M00S02221.acpd +++|* AS ONE INTERVAL.
02314 M00S02222.acpd +++|#
02315 M00S02223.acpd +++|
02316 M00S02224.acpd +++| IF (TCOL GR (DCDC-3)) # PRINT SUBTOTAL #
02317 M00S02225.acpd +++| THEN
02318 M00S02226.acpd +++| BEGIN # COMPUTE SUBTOTAL STATISTICS #
02319 M00S02227.acpd +++| I=NIPP+1;
02320 M00S02228.acpd +++| TEM$AV[I]=SSM/(NIP*NSR); # AVERAGE #
02321 M00S02229.acpd +++| TEM$SD[I]=SQRT(SSQ/(NIP*NSR)-(TEM$AV[I]*TEM$AV[I]));
02322 M00S02230.acpd +++| IF (WFA EQ IWFC) # INDIRECT WEIGHT FACTOR #
02323 M00S02231.acpd +++| THEN
02324 M00S02232.acpd +++| BEGIN
02325 M00S02233.acpd +++| WFT=SWF/NIP; # WEIGHT FACTOR #
02326 M00S02234.acpd +++| END
02327 M00S02235.acpd +++|
02328 M00S02236.acpd +++| IF (WFT LQ 0)
02329 M00S02237.acpd +++| THEN
02330 M00S02238.acpd +++| BEGIN
02331 M00S02239.acpd +++| TEM$PC[I]=0.0;
02332 M00S02240.acpd +++| END
02333 M00S02241.acpd +++|
02334 M00S02242.acpd +++| ELSE
02335 M00S02243.acpd +++| BEGIN
02336 M00S02244.acpd +++| TEM$PC[I]=(TEM$AV[I]/WFT)*100.0;
02337 M00S02245.acpd +++| END
02338 M00S02246.acpd +++|
02339 M00S02247.acpd +++| BCL=BCL + I*10;
02340 M00S02248.acpd +++| END # COMPUTE SUBTOTAL STATISTICS #
02341 M00S02249.acpd +++|
02342 M00S02250.acpd +++| ELSE # NO SUBTOTAL #
02343 M00S02251.acpd +++| BEGIN
02344 M00S02252.acpd +++| BCL=BCL + NIPP*10;
02345 M00S02253.acpd +++| END
02346 M00S02254.acpd +++|
02347 M00S02255.acpd +++| END # COMPUTE INTERVAL STATISTICS #
02348 M00S02256.acpd +++|
02349 M00S02257.acpd +++|#
02350 M00S02258.acpd +++|* PRINT VALUES SAVED IN ARRAY *TEM*.
02351 M00S02259.acpd +++|* AVERAGE VALUES ARE NOT PRINTED IF THE WEIGHT FACTOR
02352 M00S02260.acpd +++|* IS 1.
02353 M00S02261.acpd +++|* PERCENTAGE VALUES ARE NOT PRINTED IF *WFT* IS LESS THAN 0.
02354 M00S02262.acpd +++|* THE TOTAL STATISTIC VALUES ARE NOT PRINTED IF THERE ARE
02355 M00S02263.acpd +++|* MORE THAN 7 COLUMNS PRINTED ON A PAGE, I.E. IF THE NUMBER
02356 M00S02264.acpd +++|* OF INTERVALS PER PAGE *NIPP* IS GREATER THAN 7.
02357 M00S02265.acpd +++|#
02358 M00S02266.acpd +++|
02359 M00S02267.acpd +++| IF (WFA NQ CWFC) OR (WFP NQ 1)
02360 M00S02268.acpd +++| THEN
02361 M00S02269.acpd +++| BEGIN # PRINT *AV* #
02362 M00S02270.acpd +++| WRITEV(AVGC,CHRC,BCLC-2,2,NLFC);
02363 M00S02271.acpd +++| IF (NIPP GR 0) # MORE THAN 1 COLUMN #
02364 M00S02272.acpd +++| THEN
02365 M00S02273.acpd +++| BEGIN
02366 M00S02274.acpd +++| PRDTEL(LOC(TEM$AV[1]),DTY,LOC(DDSM$AX[FWA]));
02367 M00S02275.acpd +++| END
02368 M00S02276.acpd +++|
02369 M00S02277.acpd +++| IF (NIPP LQ (DCDC-3)) # PRINT TOTAL ON SAME PAGE #
02370 M00S02278.acpd +++| THEN
02371 M00S02279.acpd +++| BEGIN
02372 M00S02280.acpd +++| ACMSTA(STVAL"AVST",FWA,DTY,BCL,0); # TOTAL AVERAGE #
02373 M00S02281.acpd +++| END
02374 M00S02282.acpd +++|
02375 M00S02283.acpd +++| END # PRINT *AV* #
02376 M00S02284.acpd +++|
02377 M00S02285.acpd +++| WRITEV(SDVC,CHRC,BCLC-2,2,NLFC);
02378 M00S02286.acpd +++| IF (NIPP GR 0) # MORE THAN 1 COLUMN #
02379 M00S02287.acpd +++| THEN
02380 M00S02288.acpd +++| BEGIN # PRINT *SD* #
02381 M00S02289.acpd +++| PRDTEL(LOC(TEM$SD[1]),FLPC,LOC(DDSM$SX[FWA]));
02382 M00S02290.acpd +++| END # PRINT *SD* #
02383 M00S02291.acpd +++|
02384 M00S02292.acpd +++| IF (NIPP LQ (DCDC-3)) # PRINT TOTAL ON SAME PAGE #
02385 M00S02293.acpd +++| THEN
02386 M00S02294.acpd +++| BEGIN
02387 M00S02295.acpd +++| ACMSTA(STVAL"SDST",FWA,FLPC,BCL,0); # STANDARD DEVIATION #
02388 M00S02296.acpd +++| END
02389 M00S02297.acpd +++|
02390 M00S02298.acpd +++| IF (WFT GQ 0.0) # PERCENTAGE TO BE PRINTED #
02391 M00S02299.acpd +++| THEN
02392 M00S02300.acpd +++| BEGIN # PRINT *PC* #
02393 M00S02301.acpd +++| WRITEV(PCTC,CHRC,BCLC-2,2,NLFC);
02394 M00S02302.acpd +++| IF (NIPP GR 0) # MORE THAN 1 COLUMN #
02395 M00S02303.acpd +++| THEN
02396 M00S02304.acpd +++| BEGIN
02397 M00S02305.acpd +++| PRDTEL(LOC(TEM$PC[1]),FLPC,LOC(DDSM$PX[FWA]));
02398 M00S02306.acpd +++| END
02399 M00S02307.acpd +++|
02400 M00S02308.acpd +++| IF (WFA EQ IWFC) # INDIRECT WEIGHT FACTOR #
02401 M00S02309.acpd +++| THEN
02402 M00S02310.acpd +++| BEGIN
02403 M00S02311.acpd +++| WFT=DDSM$SM[DDSC$FW[WFP]]/ACNS; # TOTAL WEIGHT FACTOR #
02404 M00S02312.acpd +++| END
02405 M00S02313.acpd +++|
02406 M00S02314.acpd +++| IF (NIPP LQ (DCDC-3)) # TOTAL IS PRINTED ON SAME PAGE #
02407 M00S02315.acpd +++| THEN
02408 M00S02316.acpd +++| BEGIN
02409 M00S02317.acpd +++| ACMSTA(STVAL"PCST",FWA,FLPC,BCL,WFT); # TOTAL PERCENTAGE #
02410 M00S02318.acpd +++| END
02411 M00S02319.acpd +++|
02412 M00S02320.acpd +++| END # PRINT *PC* #
02413 M00S02321.acpd +++|
02414 M00S02322.acpd +++| RETURN;
02415 M00S02323.acpd +++| END # DATELM #
02416 M00S02324.acpd +++|
02417 M00S02325.acpd +++| TERM
02418 M00S02326.acpd +++|PROC DECODE((DTA),(BFA));
02419 M00S02327.acpd +++|# TITLE DECODE - DECODE DATA. #
02420 M00S02328.acpd +++|
02421 M00S02329.acpd +++| BEGIN # DECODE #
02422 M00S02330.acpd +++|
02423 M00S02331.acpd +++|#
02424 M00S02332.acpd +++|** DECODE - DECODE DATA.
02425 M00S02333.acpd +++|*
02426 M00S02334.acpd +++|* DECODE DATA IN *CIO* INPUT BUFFER, AND PUT THEM
02427 M00S02335.acpd +++|* IN CORRESPONDING DECODED BUFFER.
02428 M00S02336.acpd +++|*
02429 M00S02337.acpd +++|* PROC DECODE((DTA),(BFA))
02430 M00S02338.acpd +++|*
02431 M00S02339.acpd +++|* ENTRY DTA = ADDRESS OF DATA DESCRIPTION TABLE
02432 M00S02340.acpd +++|* (*DDHD* OR *DDDT*).
02433 M00S02341.acpd +++|* BFA = ADDRESS OF THE BUFFER WHERE THE DECODED DATA
02434 M00S02342.acpd +++|* ARE TO BE SAVED (*DCHD* OR *DCDT*).
02435 M00S02343.acpd +++|* IBWA = CURRENT *CIO* INPUT BUFFER ADDRESS.
02436 M00S02344.acpd +++|*
02437 M00S02345.acpd +++|* EXIT IBWA = ADDRESS OF NEXT *CIO* INPUT BUFFER WORD.
02438 M00S02346.acpd +++|* DECODED DATA ARE ACCUMULATED IN THE APPROPRIATE
02439 M00S02347.acpd +++|* BUFFER.
02440 M00S02348.acpd +++|#
02441 M00S02349.acpd +++|
02442 M00S02350.acpd +++|#
02443 M00S02351.acpd +++|* PARAMETER LIST.
02444 M00S02352.acpd +++|#
02445 M00S02353.acpd +++|
02446 M00S02354.acpd +++| ITEM BFA I; # BUFFER ADDRESS #
02447 M00S02355.acpd +++| ITEM DTA I; # DATA DESCRIPTOR TABLE ADDRESS #
02448 M00S02356.acpd +++|
02449 M00S02357.acpd +++|#
02450 M00S02358.acpd +++|**** PROC DECODE - XREF LIST BEGIN.
02451 M00S02359.acpd +++|#
02452 M00S02360.acpd +++|
02453 M00S02361.acpd +++| XREF
02454 M00S02362.acpd +++| BEGIN
02455 M00S02363.acpd +++| FUNC GETVAL I; # GET VALUE FROM *CIO* BUFFER #
02456 M00S02364.acpd +++| PROC PERROR; # PROCESS ERROR #
02457 M00S02365.acpd +++| END
02458 M00S02366.acpd +++|
02459 M00S02367.acpd +++|#
02460 M00S02368.acpd +++|**** PROC DECODE - XREF LIST END.
02461 M00S02369.acpd +++|#
02462 M00S02370.acpd +++|
02463 M00S02371.acpd +++| DEF CNIC #"CNIL"#; # FAST LOOP SAMPLE #
02464 M00S02372.acpd +++| DEF CPWC #5#; # NUMBER OF BYTES #
02465 M00S02373.acpd +++| DEF CTMC #"CTML"#; # MEDIUM LOOP SAMPLE #
02466 M00S02374.acpd +++| DEF CTOC #"CTOL"#; # SLOW LOOP SAMPLE #
02467 M00S02375.acpd +++| DEF HDLC #0#; # HEADER LOOP FLAG #
02468 M00S02376.acpd +++| DEF PDTC #"PDTM"#; # PACKED DATE AND TIME #
02469 M00S02377.acpd +++| DEF SNLC #4#; # SNAP SHOT LOOP FLAG #
02470 M00S02378.acpd +++|
02471 M00S02379.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
02472 M00S02380.acpd +++|
02473 M00S02381.acpd +++|*CALL COMUCPD
02474 M00S02382.acpd +++|
02475 M00S02383.acpd +++|#
02476 M00S02384.acpd +++|* LOCAL VARIABLES.
02477 M00S02385.acpd +++|#
02478 M00S02386.acpd +++|
02479 M00S02387.acpd +++| ITEM AV R; # AVERAGE VALUE #
02480 M00S02388.acpd +++| ITEM BA I; # BYTE ADDRESS OF *CIO* BUFFER #
02481 M00S02389.acpd +++| ITEM BASE I; # BEGIN ADDRESS OF REPEAT GROUP #
02482 M00S02390.acpd +++| ITEM C I; # DECODED DATA BUFFER ADDRESS #
02483 M00S02391.acpd +++| ITEM CQ I; # DECODED DATA BUFFER ADDRESS #
02484 M00S02392.acpd +++| ITEM I I; # FOR LOOP CONTROL #
02485 M00S02393.acpd +++| ITEM IC I; # INCREMENTOR #
02486 M00S02394.acpd +++| ITEM J I; # FOR LOOP CONTROL #
02487 M00S02395.acpd +++| ITEM K I; # FOR LOOP CONTROL #
02488 M00S02396.acpd +++| ITEM L I; # FOR LOOP CONTROL #
02489 M00S02397.acpd +++| ITEM LMP I; # LENGTH MULTIPLIER #
02490 M00S02398.acpd +++| ITEM LN I; # LENGTH OF ENTRY #
02491 M00S02399.acpd +++| ITEM M I; # FOR LOOP CONTROL #
02492 M00S02400.acpd +++| ITEM NM C(4); # DATA ELEMENT NAME #
02493 M00S02401.acpd +++| ITEM OF I; # OFFSET #
02494 M00S02402.acpd +++| ITEM PR I; # NUMBER OF PP WORDS OCCUPIED #
02495 M00S02403.acpd +++| ITEM TP U; # DATA TYPE OF ELEMENT #
02496 M00S02404.acpd +++| ITEM VL I; # DECODED VALUE #
02497 M00S02405.acpd +++| ITEM VLR R; # DECODED VALUE #
02498 M00S02406.acpd +++|
02499 M00S02407.acpd +++| BASED
02500 M00S02408.acpd +++| ARRAY BUF [0:0] P(1); # DECODED BUFFER #
02501 M00S02409.acpd +++| BEGIN # ARRAY BUF #
02502 M00S02410.acpd +++| ITEM BUF$WD U(00,00,60); # DECODED DATA #
02503 M00S02411.acpd +++| ITEM BUF$SQ R(00,00,60); # SUM SQUARE #
02504 M00S02412.acpd +++| ITEM BUF$SM R(00,00,60); # SUM #
02505 M00S02413.acpd +++| ITEM BUF$ET U(00,00,30); # INTERVAL START TIME #
02506 M00S02414.acpd +++| ITEM BUF$BT U(00,30,30); # INTERVAL END TIME #
02507 M00S02415.acpd +++| END # ARRAY BUF #
02508 M00S02416.acpd +++|
02509 M00S02417.acpd +++| ARRAY SPT [1:3] P(1); # LOOP SAMPLE TIMES #
02510 M00S02418.acpd +++| BEGIN # ARRAY SPT #
02511 M00S02419.acpd +++| ITEM SPT$WD I(00,00,60); # SAMPLE TIME #
02512 M00S02420.acpd +++| END # ARRAY SPT #
02513 M00S02421.acpd +++|
02514 M00S02422.acpd +++|
02515 M00S02423.acpd +++|
02516 M00S02424.acpd +++|
02517 M00S02425.acpd +++|
02518 M00S02426.acpd +++|
02519 M00S02427.acpd +++|#
02520 M00S02428.acpd +++|* BEGIN DECODE PROC.
02521 M00S02429.acpd +++|#
02522 M00S02430.acpd +++|
02523 M00S02431.acpd +++| P<DCHD>=LOC(DBUF);
02524 M00S02432.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
02525 M00S02433.acpd +++| P<MPAR>=DTA;
02526 M00S02434.acpd +++| P<DDSC>=LOC(DDHD);
02527 M00S02435.acpd +++| P<BUF>=BFA;
02528 M00S02436.acpd +++| BA=IBWA*CPWC;
02529 M00S02437.acpd +++|
02530 M00S02438.acpd +++| IF (MPAR$TP[0] NQ HDLC) # NOT HEADER BLOCK #
02531 M00S02439.acpd +++| THEN
02532 M00S02440.acpd +++| BEGIN # GET LOOP SAMPLE TIMES #
02533 M00S02441.acpd +++| FASTFOR I=1 STEP 1 UNTIL 3
02534 M00S02442.acpd +++| DO
02535 M00S02443.acpd +++| BEGIN
02536 M00S02444.acpd +++| SPT$WD[I]=GETVAL(BA+SPLA$WD[I],2);
02537 M00S02445.acpd +++| END
02538 M00S02446.acpd +++|
02539 M00S02447.acpd +++| END # GET LOOP SAMPLE TIMES #
02540 M00S02448.acpd +++|
02541 M00S02449.acpd +++|#
02542 M00S02450.acpd +++|* FOLLOW TABLE *MPAR* TO EXTRACT DATA FROM *CIO* BUFFER AND PUT
02543 M00S02451.acpd +++|* THEM IN THE DECODED DATA BUFFER.
02544 M00S02452.acpd +++|* THE VALUES STORED IN THE DECODED DATA BUFFER FOR THE DATA
02545 M00S02453.acpd +++|* BLOCK ELEMENTS ARE THE CUMULATIVE AVERAGES. THE AVERAGE OF
02546 M00S02454.acpd +++|* EACH DATA BLOCK ELEMENT IS COMPUTED BY TAKING THE EXTRACTED
02547 M00S02455.acpd +++|* VALUE AND DIVIDING IT BY THE RESPECTIVE LOOP-S SAMPLE TIME
02548 M00S02456.acpd +++|* (*SPT* ARRAY). THE SQUARED AVERAGES ARE ALSO COMPUTED FOR
02549 M00S02457.acpd +++|* THE DATA BLOCK ELEMENTS.
02550 M00S02458.acpd +++|#
02551 M00S02459.acpd +++|
02552 M00S02460.acpd +++| C=0; # BEGIN ADDRESS TO STORE AVERAGE #
02553 M00S02461.acpd +++| OF=DCDL*DCDC; # OFFSET #
02554 M00S02462.acpd +++| J=0;
02555 M00S02463.acpd +++|
02556 M00S02464.acpd +++| SLOWFOR M=0 WHILE (MPAR$WD[J] NQ 0)
02557 M00S02465.acpd +++| DO
02558 M00S02466.acpd +++| BEGIN # FOLLOW TABLE *MPAR* #
02559 M00S02467.acpd +++| BASE=J;
02560 M00S02468.acpd +++| LMP=1;
02561 M00S02469.acpd +++| IF (MPAR$LMP[J] NQ NULL)
02562 M00S02470.acpd +++| THEN
02563 M00S02471.acpd +++| BEGIN
02564 M00S02472.acpd +++| LMP=DCHD$WD[DDSC$FW[MPAR$LMP[J]]]; # REPEAT GROUP LENGTH #
02565 M00S02473.acpd +++| END
02566 M00S02474.acpd +++|
02567 M00S02475.acpd +++|#
02568 M00S02476.acpd +++|* *LMP* IS GREATER THAN 1 IF THE REPEAT GROUP HAS
02569 M00S02477.acpd +++|* MULTIPLE ENTRIES.
02570 M00S02478.acpd +++|#
02571 M00S02479.acpd +++|
02572 M00S02480.acpd +++| FASTFOR K=1 STEP 1 UNTIL LMP
02573 M00S02481.acpd +++| DO
02574 M00S02482.acpd +++| BEGIN # COLLECT REPEAT GROUP VALUES #
02575 M00S02483.acpd +++| J=BASE;
02576 M00S02484.acpd +++| IC=MPAR$IC[J];
02577 M00S02485.acpd +++|
02578 M00S02486.acpd +++|#
02579 M00S02487.acpd +++|* *IC* IS THE SIZE OF THE REPEAT GROUP.
02580 M00S02488.acpd +++|* SINGLE ELEMENTS HAVE *IC* EQUAL TO 1.
02581 M00S02489.acpd +++|#
02582 M00S02490.acpd +++|
02583 M00S02491.acpd +++| FASTFOR L=1 STEP 1 UNTIL IC
02584 M00S02492.acpd +++| DO
02585 M00S02493.acpd +++| BEGIN # COLLECT ONE ENTRY OF REPEAT GROUP #
02586 M00S02494.acpd +++| NM=MPAR$NM[J]; # NAME #
02587 M00S02495.acpd +++| TP=MPAR$TP[J]; # TYPE #
02588 M00S02496.acpd +++| LN=MPAR$LN[J]; # LENGTH #
02589 M00S02497.acpd +++| PR=MPAR$PR[J]; # PRECISION #
02590 M00S02498.acpd +++| IF (PR GR CPWC)
02591 M00S02499.acpd +++| THEN
02592 M00S02500.acpd +++| BEGIN
02593 M00S02501.acpd +++| LN=(PR/CPWC)*LN;
02594 M00S02502.acpd +++| PR=CPWC;
02595 M00S02503.acpd +++| END
02596 M00S02504.acpd +++|
02597 M00S02505.acpd +++|#
02598 M00S02506.acpd +++|* *LN* IS GREATER THAN 1 IF THE ELEMENT HAS MULTIPLE
02599 M00S02507.acpd +++|* ENTRIES.
02600 M00S02508.acpd +++|#
02601 M00S02509.acpd +++|
02602 M00S02510.acpd +++| FASTFOR I=1 STEP 1 UNTIL LN
02603 M00S02511.acpd +++| DO
02604 M00S02512.acpd +++| BEGIN # COLLECT VALUE OF ONE ENTRY #
02605 M00S02513.acpd +++| CQ=C + OF; # ADDRESS OF SQUARED AVERAGE #
02606 M00S02514.acpd +++| VL=GETVAL(BA,PR); # GET VALUE FROM *CIO* BUFFER #
02607 M00S02515.acpd +++|
02608 M00S02516.acpd +++| IF (TP EQ HDLC) # HEADER BLOCK #
02609 M00S02517.acpd +++| OR (TP EQ SNLC) # SNAPSHOT LOOP #
02610 M00S02518.acpd +++| THEN
02611 M00S02519.acpd +++| BEGIN # COLLECT VALUES #
02612 M00S02520.acpd +++|
02613 M00S02521.acpd +++|#
02614 M00S02522.acpd +++|* HEADER BLOCK AND SNAPSHOT LOOP DATA ELEMENTS ARE NOT CUMULATIVE
02615 M00S02523.acpd +++|* VALUES.
02616 M00S02524.acpd +++|#
02617 M00S02525.acpd +++|
02618 M00S02526.acpd +++| IF (NM EQ PDTC) # PACKED DATE AND TIME #
02619 M00S02527.acpd +++| THEN
02620 M00S02528.acpd +++| BEGIN # GET TIME #
02621 M00S02529.acpd +++| BUF$ET[CQ]=VL-(VL/SHFC)*SHFC; # INTERVAL END TIME #
02622 M00S02530.acpd +++| IF (DDSM$BT[C] EQ 0) # TOTAL *BT* NOT COLLECTED #
02623 M00S02531.acpd +++| THEN
02624 M00S02532.acpd +++| BEGIN
02625 M00S02533.acpd +++| DDSM$BT[C]=VL; # TOTAL BEGIN TIME #
02626 M00S02534.acpd +++| END
02627 M00S02535.acpd +++|
02628 M00S02536.acpd +++| IF (BUF$BT[CQ] EQ 0) # INTERVAL *BT* NOT COLLECTED #
02629 M00S02537.acpd +++| THEN
02630 M00S02538.acpd +++| BEGIN
02631 M00S02539.acpd +++| BUF$BT[CQ]=BUF$ET[CQ]; # INTERVAL BEGIN TIME #
02632 M00S02540.acpd +++| END
02633 M00S02541.acpd +++|
02634 M00S02542.acpd +++| END # GET TIME #
02635 M00S02543.acpd +++|
02636 M00S02544.acpd +++| BUF$WD[C]=VL;
02637 M00S02545.acpd +++| IF (TP EQ SNLC) # SNAPSHOT LOOP #
02638 M00S02546.acpd +++| THEN
02639 M00S02547.acpd +++| BEGIN
02640 M00S02548.acpd +++| DDSM$IM[C]=VL;
02641 M00S02549.acpd +++| END
02642 M00S02550.acpd +++|
02643 M00S02551.acpd +++| END # COLLECT VALUES #
02644 M00S02552.acpd +++|
02645 M00S02553.acpd +++| ELSE # FAST, MEDIUM, SLOW LOOP #
02646 M00S02554.acpd +++| BEGIN # DECODE DATA BLOCK VALUES #
02647 M00S02555.acpd +++|
02648 M00S02556.acpd +++|#
02649 M00S02557.acpd +++|* THE FAST, MEDIUM, AND SLOW LOOP DATA ELEMENTS ARE CUMULATIVE
02650 M00S02558.acpd +++|* VALUES. THE VALUES SAVED IN THE DECODED BUFFER ARE CUMULATIVE
02651 M00S02559.acpd +++|* AVERAGE VALUES. THE AVERAGE VALUE IS COMPUTED BY TAKING THE
02652 M00S02560.acpd +++|* VALUE DECODED FROM THE INPUT BUFFER (READ IN FROM THE DATA
02653 M00S02561.acpd +++|* FILE) AND DEVIDE IT BY THE RESPECTIVE LOOP SAMPLE TIME.
02654 M00S02562.acpd +++|* THE AVERAGE SQUARE IS ALSO COMPUTED AND SAVED IN THE DECODED
02655 M00S02563.acpd +++|* BUFFER FOR EACH DATA BLOCK ELEMENTS.
02656 M00S02564.acpd +++|#
02657 M00S02565.acpd +++|
02658 M00S02566.acpd +++| IF (NM EQ CNIC)
02659 M00S02567.acpd +++| OR (NM EQ CTMC)
02660 M00S02568.acpd +++| OR (NM EQ CTOC) # LOOP SAMPLE TIMES #
02661 M00S02569.acpd +++| THEN # ACCUMULATE SAMPLE TIMES #
02662 M00S02570.acpd +++| BEGIN
02663 M00S02571.acpd +++| BUF$WD[C]=BUF$WD[C] + VL;
02664 M00S02572.acpd +++| DDSM$IM[C]=DDSM$IM[C] + VL;
02665 M00S02573.acpd +++| END
02666 M00S02574.acpd +++|
02667 M00S02575.acpd +++| ELSE
02668 M00S02576.acpd +++| BEGIN # COMPUTE CUMULATIVE *AV* AND SQUARED *AV* #
02669 M00S02577.acpd +++| IF (SPT$WD[TP] NQ 0) # NUMBER OF SAMPLES .NE. 0 #
02670 M00S02578.acpd +++| THEN
02671 M00S02579.acpd +++| BEGIN
02672 M00S02580.acpd +++| VLR=VL;
02673 M00S02581.acpd +++| AV=VLR/SPT$WD[TP];
02674 M00S02582.acpd +++| BUF$SM[C]=BUF$SM[C] + AV;
02675 M00S02583.acpd +++| BUF$SQ[CQ]=BUF$SQ[CQ] + AV*AV;
02676 M00S02584.acpd +++| DDSM$SM[C]=DDSM$SM[C] + AV;
02677 M00S02585.acpd +++| DDSM$SQ[C]=DDSM$SQ[C] + AV*AV;
02678 M00S02586.acpd +++| END
02679 M00S02587.acpd +++|
02680 M00S02588.acpd +++| END # COMPUTE CUMULATIVE *AV* AND SQUARED *AV* #
02681 M00S02589.acpd +++|
02682 M00S02590.acpd +++| END # DECODE DATA BLOCK VALUES #
02683 M00S02591.acpd +++|
02684 M00S02592.acpd +++| C=C+1; # NEXT DECODED BUFFER ADDRESS #
02685 M00S02593.acpd +++| BA=BA+PR; # NEXT *CIO* BUFFER BYTE ADDRESS #
02686 M00S02594.acpd +++| END # COLLECT VALUE OF ONE ENTRY #
02687 M00S02595.acpd +++|
02688 M00S02596.acpd +++| J=J+1;
02689 M00S02597.acpd +++| END # COLLECT ONE ENTRY OF REPEAT GROUP #
02690 M00S02598.acpd +++|
02691 M00S02599.acpd +++| END # COLLECT REPEAT GROUP VALUES #
02692 M00S02600.acpd +++|
02693 M00S02601.acpd +++| END # FOLLOW TABLE *MPAR* #
02694 M00S02602.acpd +++|
02695 M00S02603.acpd +++|#
02696 M00S02604.acpd +++|* CHECK IF THERE IS ANY MISSING ELEMENTS. THE VALUE OF
02697 M00S02605.acpd +++|* *IBWA* HAS TO BE A MULTIPLE OF *IBNW*, FOR THE *CIO* BUFFER
02698 M00S02606.acpd +++|* HAS TO CONTAIN A MULTIPLE NUMBER OF DATA BLOCKS OR
02699 M00S02607.acpd +++|* HEADER BLOCK.
02700 M00S02608.acpd +++|#
02701 M00S02609.acpd +++|
02702 M00S02610.acpd +++| C=BA/CPWC;
02703 M00S02611.acpd +++| IBWA=C+1; # NEXT *CIO* BUFFER ADDRESS #
02704 M00S02612.acpd +++| J=BA - (C*CPWC);
02705 M00S02613.acpd +++| IF (J NQ 0)
02706 M00S02614.acpd +++| THEN
02707 M00S02615.acpd +++| BEGIN
02708 M00S02616.acpd +++| C=C+1;
02709 M00S02617.acpd +++| END
02710 M00S02618.acpd +++|
02711 M00S02619.acpd +++| I=IBNW - (IBNW/C)*C;
02712 M00S02620.acpd +++| IF (I NQ 0) # NOT A MULTIPLE OF *IBNW* #
02713 M00S02621.acpd +++| THEN
02714 M00S02622.acpd +++| BEGIN
02715 M00S02623.acpd +++| PERROR(ERM6,FATAL,NULL); # DATA FILE CONTENT ERROR #
02716 M00S02624.acpd +++| END
02717 M00S02625.acpd +++|
02718 M00S02626.acpd +++| RETURN;
02719 M00S02627.acpd +++| END # DECODE #
02720 M00S02628.acpd +++|
02721 M00S02629.acpd +++| TERM
02722 M00S02630.acpd +++|PROC DETMXM(MXP,MNP,(MXI),(MNI),(DTY));
02723 M00S02631.acpd +++|# TITLE DETMXM - DETERMINE MAXIMUM AND MINIMUM VALUES. #
02724 M00S02632.acpd +++|
02725 M00S02633.acpd +++| BEGIN # DETMXM #
02726 M00S02634.acpd +++|
02727 M00S02635.acpd +++|#
02728 M00S02636.acpd +++|** DETMXM - DETERMINE MAXIMUM AND MINIMUM VALUES.
02729 M00S02637.acpd +++|*
02730 M00S02638.acpd +++|* DETERMINE THE MINIMUM AND MAXIMUM VALUES OF ONE
02731 M00S02639.acpd +++|* REPORT LINE. THE MAXIMUM VALUE IS INDICATED BY BRACKETS,
02732 M00S02640.acpd +++|* THE MINIMUM VALUE IS INDICATED BY PARENTHESES.
02733 M00S02641.acpd +++|*
02734 M00S02642.acpd +++|* PROC DETMXM(MXP,MNP,(MXI),(MNI),(DTY))
02735 M00S02643.acpd +++|*
02736 M00S02644.acpd +++|* ENTRY MXP = MAXIMUM VALUE ADDRESS.
02737 M00S02645.acpd +++|* MNP = MINIMUM VALUE ADDRESS.
02738 M00S02646.acpd +++|* MXI = INTERVAL CONTAINING MAXIMUM VALUE.
02739 M00S02647.acpd +++|* MNI = INTERVAL CONTAINING MINIMUM VALUE.
02740 M00S02648.acpd +++|* DTY = DATA TYPE.
02741 M00S02649.acpd +++|*
02742 M00S02650.acpd +++|* EXIT MAXIMUM AND MINIMUM VALUES ARE INDICATED BY
02743 M00S02651.acpd +++|* BRACKETS AND PARENTHESES, RESPECTIVELY.
02744 M00S02652.acpd +++|#
02745 M00S02653.acpd +++|
02746 M00S02654.acpd +++|#
02747 M00S02655.acpd +++|* PARAMETER LIST.
02748 M00S02656.acpd +++|#
02749 M00S02657.acpd +++|
02750 M00S02658.acpd +++| ITEM MXP U; # ADDRESS OF MAXIMUM VALUE #
02751 M00S02659.acpd +++| ITEM MNP U; # ADDRESS OF MINIMUM VALUE #
02752 M00S02660.acpd +++| ITEM MXI I; # COLUMN OF MAXIMUM VALUE #
02753 M00S02661.acpd +++| ITEM MNI I; # COLUMN OF MINIMUM VALUE #
02754 M00S02662.acpd +++| ITEM DTY U; # DATA TYPE #
02755 M00S02663.acpd +++|
02756 M00S02664.acpd +++|#
02757 M00S02665.acpd +++|**** PROC DETMXM - XREF LIST BEGIN.
02758 M00S02666.acpd +++|#
02759 M00S02667.acpd +++|
02760 M00S02668.acpd +++| XREF
02761 M00S02669.acpd +++| BEGIN
02762 M00S02670.acpd +++| FUNC XCDD C(10); # BINARY TO DISPLAY DECIMAL #
02763 M00S02671.acpd +++| FUNC XCED C(10); # BINARY TO *E* FORMAT #
02764 M00S02672.acpd +++| FUNC XCOD C(10); # BINARY TO DISPLAY OCTAL #
02765 M00S02673.acpd +++| FUNC XCFD C(10); # BINARY TO DISPLAY REAL #
02766 M00S02674.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
02767 M00S02675.acpd +++| END
02768 M00S02676.acpd +++|
02769 M00S02677.acpd +++|#
02770 M00S02678.acpd +++|**** PROC DETMXM - XREF LIST END.
02771 M00S02679.acpd +++|#
02772 M00S02680.acpd +++|
02773 M00S02681.acpd +++| DEF BLKC #" "#; # BLANK #
02774 M00S02682.acpd +++| DEF LBKC #"["#; # LEFT BRACKET #
02775 M00S02683.acpd +++| DEF LPRC #"("#; # LEFT PARENTHESIS #
02776 M00S02684.acpd +++| DEF MAXF #1.0E4#; # MAXIMUM VALUE OF *F* FORMAT #
02777 M00S02685.acpd +++| DEF RBKC #"]"#; # RIGHT BRACKET #
02778 M00S02686.acpd +++| DEF RPRC #")"#; # RIGHT PARENTHESIS #
02779 M00S02687.acpd +++|
02780 M00S02688.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
02781 M00S02689.acpd +++|
02782 M00S02690.acpd +++|*CALL COMUCPD
02783 M00S02691.acpd +++|
02784 M00S02692.acpd +++|#
02785 M00S02693.acpd +++|* LOCAL VARIABLES.
02786 M00S02694.acpd +++|#
02787 M00S02695.acpd +++|
02788 M00S02696.acpd +++| ITEM I I; # FOR LOOP CONTROL #
02789 M00S02697.acpd +++| ITEM MN I; # TEMPORARY VALUE #
02790 M00S02698.acpd +++| ITEM MNF R; # TEMPORARY VALUE #
02791 M00S02699.acpd +++| ITEM MX I; # TEMPORARY VALUE #
02792 M00S02700.acpd +++| ITEM MXF R; # TEMPORARY VALUE #
02793 M00S02701.acpd +++|
02794 M00S02702.acpd +++| ARRAY OCV [0:0] P(1); # OCTAL VALUE #
02795 M00S02703.acpd +++| BEGIN # ARRAY OCV #
02796 M00S02704.acpd +++| ITEM OC$WD C(00,00,10); # VALUE #
02797 M00S02705.acpd +++| ITEM OC$NP C(00,06,09); # NO POSTFIX #
02798 M00S02706.acpd +++| END # ARRAY OCV #
02799 M00S02707.acpd +++|
02800 M00S02708.acpd +++| ARRAY TM [0:0] P(1); # TEMPORARY BUFFER #
02801 M00S02709.acpd +++| BEGIN # ARRAY TM #
02802 M00S02710.acpd +++| ITEM TM$WD C(00,00,10); # DISPLAY CODE MINIMUM VALUE #
02803 M00S02711.acpd +++| ITEM TM$W1 C(00,00,09); # VALUE WITH NO POSTFIX #
02804 M00S02712.acpd +++| END # ARRAY TM #
02805 M00S02713.acpd +++|
02806 M00S02714.acpd +++| ARRAY TX [0:0] P(1); # TEMPORARY BUFFER #
02807 M00S02715.acpd +++| BEGIN # ARRAY TX #
02808 M00S02716.acpd +++| ITEM TX$WD C(00,00,10); # DISPLAY CODE MAXIMUM VALUE #
02809 M00S02717.acpd +++| ITEM TX$W1 C(00,00,09); # VALUE WITH NO POSTFIX #
02810 M00S02718.acpd +++| END # ARRAY TX #
02811 M00S02719.acpd +++|
02812 M00S02720.acpd +++| BASED
02813 M00S02721.acpd +++| ARRAY VLMN [0:0] P(1); # MINIMUM VALUE #
02814 M00S02722.acpd +++| BEGIN # ARRAY VLMN #
02815 M00S02723.acpd +++| ITEM VLMN$F R(00,00,60); # REAL VALUE #
02816 M00S02724.acpd +++| ITEM VLMN$N I(00,00,60); # INTEGER VALUE #
02817 M00S02725.acpd +++| END # ARRAY VLMN #
02818 M00S02726.acpd +++|
02819 M00S02727.acpd +++| BASED
02820 M00S02728.acpd +++| ARRAY VLMX [0:0] P(1); # MAXIMUM VALUE #
02821 M00S02729.acpd +++| BEGIN # ARRAY VLMX #
02822 M00S02730.acpd +++| ITEM VLMX$F R(00,00,60); # REAL VALUE #
02823 M00S02731.acpd +++| ITEM VLMX$N I(00,00,60); # INTEGER VALUE #
02824 M00S02732.acpd +++| END # ARRAY VLMX #
02825 M00S02733.acpd +++|
02826 M00S02734.acpd +++|
02827 M00S02735.acpd +++|
02828 M00S02736.acpd +++|
02829 M00S02737.acpd +++|
02830 M00S02738.acpd +++|#
02831 M00S02739.acpd +++|* BEGIN DETMXM PROC.
02832 M00S02740.acpd +++|#
02833 M00S02741.acpd +++|
02834 M00S02742.acpd +++| IF (P$L EQ NULL) # NO REPORT FILE #
02835 M00S02743.acpd +++| THEN
02836 M00S02744.acpd +++| BEGIN
02837 M00S02745.acpd +++| RETURN;
02838 M00S02746.acpd +++| END
02839 M00S02747.acpd +++|
02840 M00S02748.acpd +++|#
02841 M00S02749.acpd +++|* CONVERT MAXIMUM AND MINIMUM VALUES TO DISPLAY CODE.
02842 M00S02750.acpd +++|#
02843 M00S02751.acpd +++|
02844 M00S02752.acpd +++| P<VLMX>=LOC(MXP);
02845 M00S02753.acpd +++| P<VLMN>=LOC(MNP);
02846 M00S02754.acpd +++| IF (DTY EQ FLPC) # REAL VALUE #
02847 M00S02755.acpd +++| THEN
02848 M00S02756.acpd +++| BEGIN
02849 M00S02757.acpd +++| IF (VLMX$F[0] GQ MAXF)
02850 M00S02758.acpd +++| THEN
02851 M00S02759.acpd +++| BEGIN # CONVERT TO *E* FORMAT #
02852 M00S02760.acpd +++| MXF=VLMX$F[0];
02853 M00S02761.acpd +++| TX$WD[0]=XCED(MXF);
02854 M00S02762.acpd +++| END # CONVERT TO *E* FORMAT #
02855 M00S02763.acpd +++|
02856 M00S02764.acpd +++| ELSE
02857 M00S02765.acpd +++| BEGIN # CONVERT TO *F* FORMAT #
02858 M00S02766.acpd +++| MX=VLMX$F[0]*1000.0 + 0.5;
02859 M00S02767.acpd +++| TX$WD[0]=XCFD(MX);
02860 M00S02768.acpd +++| END # CONVERT TO *F* FORMAT #
02861 M00S02769.acpd +++|
02862 M00S02770.acpd +++| IF (VLMN$F[0] GQ MAXF)
02863 M00S02771.acpd +++| THEN
02864 M00S02772.acpd +++| BEGIN # CONVERT TO *E* FORMAT #
02865 M00S02773.acpd +++| MNF=VLMN$F[0];
02866 M00S02774.acpd +++| TM$WD[0]=XCED(MNF);
02867 M00S02775.acpd +++| END # CONVERT TO *E* FORMAT #
02868 M00S02776.acpd +++|
02869 M00S02777.acpd +++| ELSE
02870 M00S02778.acpd +++| BEGIN # CONVERT TO *F* FORMAT #
02871 M00S02779.acpd +++| MN=VLMN$F[0]*1000.0 + 0.5;
02872 M00S02780.acpd +++| TM$WD[0]=XCFD(MN);
02873 M00S02781.acpd +++| END # CONVERT TO *F* FORMAT #
02874 M00S02782.acpd +++|
02875 M00S02783.acpd +++| END
02876 M00S02784.acpd +++|
02877 M00S02785.acpd +++| ELSE
02878 M00S02786.acpd +++| BEGIN
02879 M00S02787.acpd +++| IF (DTY EQ INTC) # INTEGER VALUE #
02880 M00S02788.acpd +++| THEN
02881 M00S02789.acpd +++| BEGIN
02882 M00S02790.acpd +++| TX$WD[0]=XCDD(VLMX$N[0]);
02883 M00S02791.acpd +++| TM$WD[0]=XCDD(VLMN$N[0]);
02884 M00S02792.acpd +++| END
02885 M00S02793.acpd +++|
02886 M00S02794.acpd +++| ELSE # OCTAL VALUE #
02887 M00S02795.acpd +++| BEGIN
02888 M00S02796.acpd +++| OC$WD[0]=XCOD(VLMX$N[0]);
02889 M00S02797.acpd +++| TX$W1[0]=OC$NP[0];
02890 M00S02798.acpd +++| OC$WD[0]=XCOD(VLMN$N[0]);
02891 M00S02799.acpd +++| TM$W1[0]=OC$NP[0];
02892 M00S02800.acpd +++| END
02893 M00S02801.acpd +++|
02894 M00S02802.acpd +++| END
02895 M00S02803.acpd +++|
02896 M00S02804.acpd +++|#
02897 M00S02805.acpd +++|* ENCLOSE THE MAXIMUM AND MINIMUM VALUES BY BRACKETS AND
02898 M00S02806.acpd +++|* PARENTHESES, RESPECTIVELY.
02899 M00S02807.acpd +++|#
02900 M00S02808.acpd +++|
02901 M00S02809.acpd +++| SLOWFOR I=0 STEP 1 WHILE (C<I,1>TX$WD[0] EQ BLKC) DO;
02902 M00S02810.acpd +++| MX=MXI*10 + I + 14;
02903 M00S02811.acpd +++| WRITEV(LBKC,CHRC,MX,1,NLFC);
02904 M00S02812.acpd +++| MX=BCLC + MXI*10;
02905 M00S02813.acpd +++| WRITEV(RBKC,CHRC,MX,1,NLFC);
02906 M00S02814.acpd +++|
02907 M00S02815.acpd +++| SLOWFOR I=0 STEP 1 WHILE (C<I,1>TM$WD[0] EQ BLKC) DO;
02908 M00S02816.acpd +++| MN=MNI*10 + I + 14;
02909 M00S02817.acpd +++| WRITEV(LPRC,CHRC,MN,1,NLFC);
02910 M00S02818.acpd +++| MN=BCLC + MNI*10;
02911 M00S02819.acpd +++| WRITEV(RPRC,CHRC,MN,1,NLFC);
02912 M00S02820.acpd +++| RETURN;
02913 M00S02821.acpd +++| END # DETMXM #
02914 M00S02822.acpd +++|
02915 M00S02823.acpd +++| TERM
| Line S02824 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02916 M01S02824.ns2786 ---|FUNC DTMNUM((VALUE),(FORM)) I;
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02917 M01S00009.ns2786 +++|FUNC DTMNUM((VALUE),(FORM),(PDOS)) I; 02918 M00S02825.acpd +++|# TITLE DTMNUM - CONVERT DATE/TIME TO NUMBER. # 02919 M00S02826.acpd +++| 02920 M00S02827.acpd +++| BEGIN # DTMNUM # 02921 M00S02828.acpd +++| 02922 M00S02829.acpd +++|# 02923 M00S02830.acpd +++|** DTMNUM - CONVERT DATE/TIME TO NUMBER. 02924 M00S02831.acpd +++|* 02925 M00S02832.acpd +++|* CONVERT DISPLAY DATE/TIME TO THE PACKED FORMAT. 02926 M00S02833.acpd +++|*
| Line S02834 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02927 M01S02834.ns2786 ---|* FUNC DTMNUM((VALUE),(FORM))
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02928 M01S00010.ns2786 +++|* FUNC DTMNUM((VALUE),(FORM),(PDOS)) 02929 M00S02835.acpd +++|* 02930 M00S02836.acpd +++|* ENTRY VALUE = VALUE TO BE CONVERTED. 02931 M00S02837.acpd +++|* FORM = IF TRUE, THE VALUE IS IN FORMAT 02932 M00S02838.acpd +++|* XX.YY.ZZ. 02933 M00S02839.acpd +++|* IF FALSE, THE VALUE IS IN FORMAT 02934 M00S02840.acpd +++|* XXYYZZ.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02935 M01S00011.ns2786 +++|* PDOS = IF TRUE, THE PACKED DATE 1970 OFFSET APPLIES. 02936 M01S00012.ns2786 +++|* IF FALSE, NO OFFSET IS APPLIED. 02937 M00S02841.acpd +++|* 02938 M00S02842.acpd +++|* EXIT VALUE IS CONVERTED TO PACKED FORMAT, AS IN 02939 M00S02843.acpd +++|* THE PACKED DATE AND TIME FORMAT. 02940 M00S02844.acpd +++|# 02941 M00S02845.acpd +++| 02942 M00S02846.acpd +++|# 02943 M00S02847.acpd +++|* PARAMETER LIST. 02944 M00S02848.acpd +++|# 02945 M00S02849.acpd +++| 02946 M00S02850.acpd +++| ITEM VALUE C(10); # VALUE TO BE CONVERTED #
| Line S02851 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02947 M01S02851.ns2786 ---| ITEM FORM B; # FORMAT, DATE OR TIME #
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 02948 M01S00013.ns2786 +++| ITEM FORM B; # FORMAT OF DATE OR TIME # 02949 M01S00014.ns2786 +++| ITEM PDOS B; # APPLY PACKED DATE OFFSET # 02950 M00S02852.acpd +++| 02951 M00S02853.acpd +++|# 02952 M00S02854.acpd +++|**** FUNC DTMNUM - XREF LIST BEGIN. 02953 M00S02855.acpd +++|# 02954 M00S02856.acpd +++| 02955 M00S02857.acpd +++| XREF 02956 M00S02858.acpd +++| BEGIN 02957 M00S02859.acpd +++| PROC PERROR; # PROCESS ERROR # 02958 M00S02860.acpd +++| END 02959 M00S02861.acpd +++| 02960 M00S02862.acpd +++|# 02961 M00S02863.acpd +++|**** FUNC DTMNUM - XREF LIST END. 02962 M00S02864.acpd +++|# 02963 M00S02865.acpd +++| 02964 M00S02866.acpd +++| DEF ZERC #"0"#; # CHARACTER 0 # 02965 M00S02867.acpd +++| 02966 M00S02868.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 02967 M00S02869.acpd +++| 02968 M00S02870.acpd +++|*CALL COMUCPD 02969 M00S02871.acpd +++| 02970 M00S02872.acpd +++|# 02971 M00S02873.acpd +++|* LOCAL VARIABLES. 02972 M00S02874.acpd +++|# 02973 M00S02875.acpd +++| 02974 M00S02876.acpd +++| ITEM E I; # EXPONENTIAL # 02975 M00S02877.acpd +++| ITEM I I; # FOR LOOP CONTROL # 02976 M00S02878.acpd +++| ITEM N I; # TEMPORARY VARIABLE # 02977 M00S02879.acpd +++| ITEM T U; # TIME # 02978 M00S02880.acpd +++| 02979 M00S02881.acpd +++| ARRAY TM [0:0] P(1); # VALUE TO BE CONVERTED # 02980 M00S02882.acpd +++| BEGIN # ARRAY TM # 02981 M00S02883.acpd +++| ITEM TM$WD C(00,00,10); # VALUE # 02982 M00S02884.acpd +++| ITEM TM$XX C(00,00,02); # XX OF XXYYZZ # 02983 M00S02885.acpd +++| ITEM TM$YY C(00,12,02); # YY OF XXYYZZ # 02984 M00S02886.acpd +++| ITEM TM$ZZ C(00,24,02); # ZZ OF XXYYZZ # 02985 M00S02887.acpd +++| 02986 M00S02888.acpd +++| ITEM TM$X1 C(00,06,02); # XX OF XX.YY.ZZ # 02987 M00S02889.acpd +++| ITEM TM$D1 C(00,18,01); # DELIMITER # 02988 M00S02890.acpd +++| ITEM TM$Y1 C(00,24,02); # YY OF XX.YY.ZZ # 02989 M00S02891.acpd +++| ITEM TM$D2 C(00,36,01); # DELIMITER # 02990 M00S02892.acpd +++| ITEM TM$Z1 C(00,42,02); # ZZ OF XX.YY.ZZ # 02991 M00S02893.acpd +++| END # ARRAY TM # 02992 M00S02894.acpd +++| 02993 M00S02895.acpd +++| 02994 M00S02896.acpd +++| 02995 M00S02897.acpd +++| 02996 M00S02898.acpd +++| 02997 M00S02899.acpd +++|# 02998 M00S02900.acpd +++|* BEGIN DTMNUM FUNC. 02999 M00S02901.acpd +++|# 03000 M00S02902.acpd +++| 03001 M00S02903.acpd +++| TM$WD[0]=VALUE; 03002 M00S02904.acpd +++| 03003 M00S02905.acpd +++| IF (FORM) # FORMAT XX.YY.ZZ # 03004 M00S02906.acpd +++| THEN # CONVERT TO FORMAT XXYYZZ # 03005 M00S02907.acpd +++| BEGIN 03006 M00S02908.acpd +++| TM$XX[0]=TM$X1[0]; 03007 M00S02909.acpd +++| TM$YY[0]=TM$Y1[0]; 03008 M00S02910.acpd +++| TM$ZZ[0]=TM$Z1[0]; 03009 M00S02911.acpd +++| END 03010 M00S02912.acpd +++| 03011 M00S02913.acpd +++| IF (TM$WD[0] EQ 0) 03012 M00S02914.acpd +++| THEN 03013 M00S02915.acpd +++| BEGIN 03014 M00S02916.acpd +++| DTMNUM=0; 03015 M00S02917.acpd +++| RETURN; 03016 M00S02918.acpd +++| END 03017 M00S02919.acpd +++| 03018 M00S02920.acpd +++|# 03019 M00S02921.acpd +++|* CONVERT TO THE PACKED FORMAT. 03020 M00S02922.acpd +++|# 03021 M00S02923.acpd +++| 03022 M00S02924.acpd +++| N=0; 03023 M00S02925.acpd +++| E=1; 03024 M00S02926.acpd +++| FASTFOR I=0 STEP 2 UNTIL 5 03025 M00S02927.acpd +++| DO 03026 M00S02928.acpd +++| BEGIN 03027 M00S02929.acpd +++| T=C<5-I,1>TM$WD[0] - ZERC; 03028 M00S02930.acpd +++| T=(C<4-I>TM$WD[0] - ZERC)*10 + T; 03029 M00S02931.acpd +++| N=N+T*E; 03030 M00S02932.acpd +++| E=E*64; 03031 M00S02933.acpd +++| END 03032 M00S02934.acpd +++|
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03033 M01S00015.ns2786 +++| IF (PDOS) # CONVERTING DATE # 03034 M01S00016.ns2786 +++| THEN # CHECK DATE RANGE # 03035 M01S00017.ns2786 +++| BEGIN 03036 M01S00018.ns2786 +++| IF (N LS Y70C) # DATE IN 21ST CENTURY # 03037 M01S00019.ns2786 +++| THEN 03038 M01S00020.ns2786 +++| BEGIN 03039 M01S00021.ns2786 +++| N=N+Y30C; # BIAS 21ST CENTURY DATES # 03040 M01S00022.ns2786 +++| END 03041 M01S00023.ns2786 +++| ELSE # DATE IN 20TH CENTURY # 03042 M01S00024.ns2786 +++| BEGIN 03043 M01S00025.ns2786 +++| N=N-Y70C; # BIAS 20TH CENTURY DATES # 03044 M01S00026.ns2786 +++| END 03045 M01S00027.ns2786 +++| END 03046 M01S00028.ns2786 +++| 03047 M00S02935.acpd +++| DTMNUM=N; 03048 M00S02936.acpd +++| RETURN; 03049 M00S02937.acpd +++| END # DTMNUM # 03050 M00S02938.acpd +++| 03051 M00S02939.acpd +++| TERM 03052 M00S02940.acpd +++|PROC GETMSG((ENT),MSG); 03053 M00S02941.acpd +++|# TITLE GETMSG - GET REPORT MESSAGE. # 03054 M00S02942.acpd +++| 03055 M00S02943.acpd +++| BEGIN # GETMSG # 03056 M00S02944.acpd +++| 03057 M00S02945.acpd +++|# 03058 M00S02946.acpd +++|** GETMSG - GET REPORT MESSAGE. 03059 M00S02947.acpd +++|* 03060 M00S02948.acpd +++|* GET MESSAGES FROM COMMON BLOCK *DSPTTXT*. 03061 M00S02949.acpd +++|* 03062 M00S02950.acpd +++|* PROC GETMSG((ENT),MSG) 03063 M00S02951.acpd +++|* 03064 M00S02952.acpd +++|* ENTRY ENT = INDEX OF TABLE *DSPT* ENTRY. 03065 M00S02953.acpd +++|* 03066 M00S02954.acpd +++|* EXIT MSG = MESSAGE EXTRACTED FROM COMMON BLOCK *DSPTTXT*. 03067 M00S02955.acpd +++|# 03068 M00S02956.acpd +++| 03069 M00S02957.acpd +++|# 03070 M00S02958.acpd +++|* PARAMETER LIST. 03071 M00S02959.acpd +++|# 03072 M00S02960.acpd +++| 03073 M00S02961.acpd +++| ITEM ENT I; # INDEX OF TABLE *DSPT* # 03074 M00S02962.acpd +++| ITEM MSG C(50); # REPORT TITLES # 03075 M00S02963.acpd +++| 03076 M00S02964.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03077 M00S02965.acpd +++| 03078 M00S02966.acpd +++|*CALL COMUCPD 03079 M00S02967.acpd +++| 03080 M00S02968.acpd +++|# 03081 M00S02969.acpd +++|* LOCAL VARIABLES. 03082 M00S02970.acpd +++|# 03083 M00S02971.acpd +++| 03084 M00S02972.acpd +++| ITEM BA I; # BYTE ADDRESS # 03085 M00S02973.acpd +++| ITEM BC I; # BEGINNING CHARACTER POSITION # 03086 M00S02974.acpd +++| ITEM LN I; # MESSAGE LENGTH IN CHARACTER # 03087 M00S02975.acpd +++| 03088 M00S02976.acpd +++| BASED 03089 M00S02977.acpd +++| ARRAY TXT [0:0] P(1); # MESSAGE BUFFER # 03090 M00S02978.acpd +++| BEGIN # ARRAY TXT # 03091 M00S02979.acpd +++| ITEM TXT$MS C(00,00,60); # MESSAGE # 03092 M00S02980.acpd +++| END # ARRAY TXT # 03093 M00S02981.acpd +++| 03094 M00S02982.acpd +++| 03095 M00S02983.acpd +++| 03096 M00S02984.acpd +++| 03097 M00S02985.acpd +++| 03098 M00S02986.acpd +++|# 03099 M00S02987.acpd +++|* BEGIN GETMSG PROC. 03100 M00S02988.acpd +++|# 03101 M00S02989.acpd +++| 03102 M00S02990.acpd +++| LN=DSPT$LN[ENT]; # NUMBER OF CHARACTERS # 03103 M00S02991.acpd +++| BC=DSPT$BC[ENT]; # BEGINNING CHARACTER POSITION # 03104 M00S02992.acpd +++| BA=BC - (BC/10)*10; 03105 M00S02993.acpd +++| P<TXT>=LOC(DSTX$TX[BC/10]); 03106 M00S02994.acpd +++| MSG=C<BA,LN>TXT$MS[0]; 03107 M00S02995.acpd +++| RETURN; 03108 M00S02996.acpd +++| END # GETMSG # 03109 M00S02997.acpd +++| 03110 M00S02998.acpd +++| TERM 03111 M00S02999.acpd +++|FUNC GETVAL((BA),(PR)) I; 03112 M00S03000.acpd +++|# TITLE GETVAL - GET VALUE FROM *CIO* BUFFER. # 03113 M00S03001.acpd +++| 03114 M00S03002.acpd +++| BEGIN # GETVAL # 03115 M00S03003.acpd +++| 03116 M00S03004.acpd +++|# 03117 M00S03005.acpd +++|** GETVAL - GET VALUE FROM *CIO* BUFFER. 03118 M00S03006.acpd +++|* 03119 M00S03007.acpd +++|* EXTRACT VALUES FROM THE *CIO* BUFFER OF THE DATA FILE. 03120 M00S03008.acpd +++|* 03121 M00S03009.acpd +++|* FUNC GETVAL((BA),(PR)) I 03122 M00S03010.acpd +++|* 03123 M00S03011.acpd +++|* ENTRY BA = BYTE ADDRESS OF THE VALUE TO BE EXTRACTED. 03124 M00S03012.acpd +++|* PR = NUMBER OF BYTES TO BE EXTRACTED. 03125 M00S03013.acpd +++|* 03126 M00S03014.acpd +++|* EXIT THE VALUE IS EXTRACTED FROM BUFFER *WSAI*. 03127 M00S03015.acpd +++|# 03128 M00S03016.acpd +++| 03129 M00S03017.acpd +++|# 03130 M00S03018.acpd +++|* PARAMETER LIST. 03131 M00S03019.acpd +++|# 03132 M00S03020.acpd +++| 03133 M00S03021.acpd +++| ITEM BA I; # BYTE ADDRESS # 03134 M00S03022.acpd +++| ITEM PR I; # PRECISION # 03135 M00S03023.acpd +++| 03136 M00S03024.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03137 M00S03025.acpd +++| 03138 M00S03026.acpd +++|*CALL COMUCPD 03139 M00S03027.acpd +++| 03140 M00S03028.acpd +++|# 03141 M00S03029.acpd +++|* LOCAL VARIABLES. 03142 M00S03030.acpd +++|# 03143 M00S03031.acpd +++| 03144 M00S03032.acpd +++| ITEM BC I; # BYTE ADDRESS # 03145 M00S03033.acpd +++| ITEM T I; # TEMPORARY VALUE # 03146 M00S03034.acpd +++| ITEM WA I; # *CIO* BUFFER WORD ADDRESS # 03147 M00S03035.acpd +++| 03148 M00S03036.acpd +++| BASED 03149 M00S03037.acpd +++| ARRAY WSA [0:0] P(1); # WORKING BUFFER # 03150 M00S03038.acpd +++| BEGIN # ARRAY WSA # 03151 M00S03039.acpd +++| ITEM WSA$C C(00,00,20); # BUFFER ENTRY # 03152 M00S03040.acpd +++| END # ARRAY WSA # 03153 M00S03041.acpd +++| 03154 M00S03042.acpd +++| 03155 M00S03043.acpd +++| 03156 M00S03044.acpd +++| 03157 M00S03045.acpd +++| 03158 M00S03046.acpd +++|# 03159 M00S03047.acpd +++|* BEGIN GETVAL FUNC. 03160 M00S03048.acpd +++|# 03161 M00S03049.acpd +++| 03162 M00S03050.acpd +++| WA=BA/5; # ADDRESS TO EXTRACT THE VALUE # 03163 M00S03051.acpd +++| P<WSA>=LOC(WSAI$WD[WA]); 03164 M00S03052.acpd +++| T=BA*2; # NUMBER OF CHARACTERS # 03165 M00S03053.acpd +++| BC=T - (T/10)*10; # BEGIN CHARACTER POSITION # 03166 M00S03054.acpd +++| GETVAL=C<BC,PR*2>WSA$C[0]; 03167 M00S03055.acpd +++| RETURN; 03168 M00S03056.acpd +++| END # GETVAL # 03169 M00S03057.acpd +++| 03170 M00S03058.acpd +++| TERM 03171 M00S03059.acpd +++|PROC HDRELM((ENP),(FCL),(LCL)); 03172 M00S03060.acpd +++|# TITLE HDRELM - PRINT HEADER BLOCK ELEMENT. # 03173 M00S03061.acpd +++| 03174 M00S03062.acpd +++| BEGIN # HDRELM # 03175 M00S03063.acpd +++| 03176 M00S03064.acpd +++|# 03177 M00S03065.acpd +++|** HDRELM - PRINT HEADER BLOCK ELEMENT. 03178 M00S03066.acpd +++|* 03179 M00S03067.acpd +++|* PRINT ONE ELEMENT OF HEADER BLOCK. 03180 M00S03068.acpd +++|* 03181 M00S03069.acpd +++|* PROC HDRELM((ENP),(FCL),(LCL)) 03182 M00S03070.acpd +++|* 03183 M00S03071.acpd +++|* ENTRY ENP = INDEX OF THE *DSPT* ENTRY POINTING TO 03184 M00S03072.acpd +++|* THE HEADER BLOCK ELEMENT BEING PROCESSED. 03185 M00S03073.acpd +++|* FCL = BEGINNING COLUMN TO PRINT THE HEADER BLOCK 03186 M00S03074.acpd +++|* ELEMENT NAME. 03187 M00S03075.acpd +++|* LCL = BEGINNING COLUMN TO PRINT THE HEADER BLOCK 03188 M00S03076.acpd +++|* ELEMENT VALUE. 03189 M00S03077.acpd +++|* 03190 M00S03078.acpd +++|* EXIT THE HEADER BLOCK ELEMENT IS PRINTED TO THE REPORT 03191 M00S03079.acpd +++|* FILE. 03192 M00S03080.acpd +++|# 03193 M00S03081.acpd +++| 03194 M00S03082.acpd +++|# 03195 M00S03083.acpd +++|* PARAMETER LIST. 03196 M00S03084.acpd +++|# 03197 M00S03085.acpd +++| 03198 M00S03086.acpd +++| ITEM ENP I; # INDEX OF DSPT ENTRY # 03199 M00S03087.acpd +++| ITEM FCL I; # BEGIN COLUMN TO PRINT NAME # 03200 M00S03088.acpd +++| ITEM LCL I; # BEGIN COLUMN TO PRINT VALUE # 03201 M00S03089.acpd +++| 03202 M00S03090.acpd +++|# 03203 M00S03091.acpd +++|**** PROC HDRELM - XREF LIST BEGIN. 03204 M00S03092.acpd +++|# 03205 M00S03093.acpd +++| 03206 M00S03094.acpd +++| XREF 03207 M00S03095.acpd +++| BEGIN 03208 M00S03096.acpd +++| PROC GETMSG; # GET TITLE FROM TABLE *DSPTTXT* # 03209 M00S03097.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT # 03210 M00S03098.acpd +++| END 03211 M00S03099.acpd +++| 03212 M00S03100.acpd +++|# 03213 M00S03101.acpd +++|**** PROC HDRELM - XREF LIST END. 03214 M00S03102.acpd +++|# 03215 M00S03103.acpd +++| 03216 M00S03104.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03217 M00S03105.acpd +++| 03218 M00S03106.acpd +++|*CALL COMUCPD 03219 M00S03107.acpd +++| 03220 M00S03108.acpd +++|# 03221 M00S03109.acpd +++|* LOCAL VARIABLES. 03222 M00S03110.acpd +++|# 03223 M00S03111.acpd +++| 03224 M00S03112.acpd +++| ITEM BL I; # BIT LENGTH # 03225 M00S03113.acpd +++| ITEM BT I; # BIT POSITION # 03226 M00S03114.acpd +++| ITEM D I; # DATA TYPE # 03227 M00S03115.acpd +++| ITEM J I; # POINTER TO *DDHD* TABLE # 03228 M00S03116.acpd +++| ITEM L I; # TITLE LENGTH IN CHARACTERS # 03229 M00S03117.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER # 03230 M00S03118.acpd +++| ITEM T I; # POINTER TO *DCHD* TABLE # 03231 M00S03119.acpd +++| ITEM VALUE I; # TEMPORARY VALUE # 03232 M00S03120.acpd +++| ITEM WC I; # WORD COUNT # 03233 M00S03121.acpd +++| 03234 M00S03122.acpd +++| 03235 M00S03123.acpd +++| 03236 M00S03124.acpd +++| 03237 M00S03125.acpd +++| 03238 M00S03126.acpd +++|# 03239 M00S03127.acpd +++|* BEGIN HDRELM PROC. 03240 M00S03128.acpd +++|# 03241 M00S03129.acpd +++| 03242 M00S03130.acpd +++| P<DCHD>=LOC(DBUF); 03243 M00S03131.acpd +++| P<DDSC>=LOC(DDHD); 03244 M00S03132.acpd +++| J=DSPT$PT[ENP]; # INDEX OF TABLE *DDSC* # 03245 M00S03133.acpd +++| L=DSPT$LN[ENP]; 03246 M00S03134.acpd +++| T=DDSC$FW[J]; # INDEX OF TABLE *DCHD* # 03247 M00S03135.acpd +++| D=DDSC$TY[J]; # DATA TYPE # 03248 M00S03136.acpd +++| GETMSG(ENP,MSG); 03249 M00S03137.acpd +++| WRITEV(MSG,CHRC,FCL,L,NLFC); 03250 M00S03138.acpd +++| BL=DSPT$BL[ENP]; # GET BIT LENGTH # 03251 M00S03139.acpd +++| WC=DSPT$WC[ENP]; # WORD COUNT # 03252 M00S03140.acpd +++| IF (BL EQ 0) # ACCESS FULL WORD # 03253 M00S03141.acpd +++| THEN 03254 M00S03142.acpd +++| BEGIN 03255 M00S03143.acpd +++| VALUE=DCHD$WD[T+WC]; 03256 M00S03144.acpd +++| END 03257 M00S03145.acpd +++| 03258 M00S03146.acpd +++| ELSE # ACCESS PARTIAL WORD # 03259 M00S03147.acpd +++| BEGIN 03260 M00S03148.acpd +++| BT=DSPT$BT[ENP]; 03261 M00S03149.acpd +++| VALUE=B<BT,BL>DCHD$WD[T+WC]; 03262 M00S03150.acpd +++| END 03263 M00S03151.acpd +++| 03264 M00S03152.acpd +++| WRITEV(VALUE,D,LCL,10,LFDC); 03265 M00S03153.acpd +++| RETURN; 03266 M00S03154.acpd +++| END # HDRELM # 03267 M00S03155.acpd +++| TERM 03268 M00S03156.acpd +++|PROC HEADER(TMED,HDDC,(LSTM)); 03269 M00S03157.acpd +++|# TITLE HEADER - PROCESS HEADER BLOCK. # 03270 M00S03158.acpd +++| 03271 M00S03159.acpd +++| BEGIN # HEADER # 03272 M00S03160.acpd +++| 03273 M00S03161.acpd +++|# 03274 M00S03162.acpd +++|** HEADER - PROCESS HEADER BLOCK. 03275 M00S03163.acpd +++|* 03276 M00S03164.acpd +++|* *HEADER* BUILDS THE REPORT TITLE AND PROCESSES THE HEADER BLOCK 03277 M00S03165.acpd +++|* OF EACH FILE IN THE DATA FILE. 03278 M00S03166.acpd +++|* 03279 M00S03167.acpd +++|* PROC HEADER(TMED,HDDC,(LSTM)) 03280 M00S03168.acpd +++|* 03281 M00S03169.acpd +++|* ENTRY HDDC = TRUE IF HEADER BLOCK HAS BEEN DECODED. 03282 M00S03170.acpd +++|* LSTM = TIME OF LAST RECORD. 03283 M00S03171.acpd +++|* 03284 M00S03172.acpd +++|* EXIT TMED = TRUE IF *N* PARAMETER EXCEEDS NUMBER OF FILES. 03285 M00S03173.acpd +++|* HDDC = FALSE 03286 M00S03174.acpd +++|* ELEMENTS IN HEADER BLOCK ARE PRINTED TO THE 03287 M00S03175.acpd +++|* REPORT FILE. 03288 M00S03176.acpd +++|# 03289 M00S03177.acpd +++| 03290 M00S03178.acpd +++|# 03291 M00S03179.acpd +++|* PARAMETER LIST. 03292 M00S03180.acpd +++|# 03293 M00S03181.acpd +++| 03294 M00S03182.acpd +++| ITEM TMED B; # EOI FLAG # 03295 M00S03183.acpd +++| ITEM HDDC B; # DECODE HEADER BLOCK FLAG # 03296 M00S03184.acpd +++| ITEM LSTM U; # ENDING TIME OF PREVIOUS FILE # 03297 M00S03185.acpd +++| 03298 M00S03186.acpd +++|# 03299 M00S03187.acpd +++|**** PROC HEADER - XREF LIST BEGIN. 03300 M00S03188.acpd +++|# 03301 M00S03189.acpd +++| 03302 M00S03190.acpd +++| XREF 03303 M00S03191.acpd +++| BEGIN 03304 M00S03192.acpd +++| PROC ADJUST; # ADJUST TABLES AND FIELD LENGTH # 03305 M00S03193.acpd +++| PROC BZFILL; # BLANK/ZERO FILL ITEM # 03306 M00S03194.acpd +++| PROC DECODE; # DECODE *CIO* INPUT BUFFER DATA # 03307 M00S03195.acpd +++| FUNC DTMNUM U; # CONVERT DATE/TIME TO BINARY # 03308 M00S03196.acpd +++| PROC PERROR; # PROCESS ERROR # 03309 M00S03197.acpd +++| PROC PUTEST; # PRINT EST # 03310 M00S03198.acpd +++| PROC PUTHDR; # PRINT HEADER ELEMENTS # 03311 M00S03199.acpd +++| PROC PUTSCI; # PRINT JOB CONTROL BLOCK # 03312 M00S03200.acpd +++| PROC READRC; # READ AND SKIP # 03313 M00S03201.acpd +++| PROC RPHEAD; # PRINT *ACPD* TITLE # 03314 M00S03202.acpd +++| PROC WRITER; # *CIO* WRITER # 03315 M00S03203.acpd +++| PROC WRITEW; # *CIO* WRITEW # 03316 M00S03204.acpd +++| END 03317 M00S03205.acpd +++| 03318 M00S03206.acpd +++|# 03319 M00S03207.acpd +++|**** PROC HEADER - XREF LIST END. 03320 M00S03208.acpd +++|# 03321 M00S03209.acpd +++| 03322 M00S03210.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03323 M00S03211.acpd +++| 03324 M00S03212.acpd +++|*CALL COMUCPD 03325 M00S03213.acpd +++|*CALL COMABZF 03326 M00S03214.acpd +++| 03327 M00S03215.acpd +++|# 03328 M00S03216.acpd +++|* LOCAL VARIABLES. 03329 M00S03217.acpd +++|# 03330 M00S03218.acpd +++| 03331 M00S03219.acpd +++| ITEM D I; # TEMPORARY VARIABLE # 03332 M00S03220.acpd +++| ITEM L I; # TEMPORARY VARIABLE # 03333 M00S03221.acpd +++| ITEM STAT I; # I/O STATUS # 03334 M00S03222.acpd +++| ITEM T I; # TEMPORARY VARIABLE # 03335 M00S03223.acpd +++| 03336 M00S03224.acpd +++| BASED 03337 M00S03225.acpd +++| ARRAY HEAD [0:0] P(1); # HEADER SYSTEM DESIGNATOR # 03338 M00S03226.acpd +++| BEGIN # ARRAY HEAD # 03339 M00S03227.acpd +++| ITEM HEAD$SD C(00,00,70); # SYSTEM DESIGNATOR # 03340 M00S03228.acpd +++| END # ARRAY HEAD # 03341 M00S03229.acpd +++| 03342 M00S03230.acpd +++| ARRAY TEXT [0:0] S(10); # HEADER TEXT # 03343 M00S03231.acpd +++| BEGIN # ARRAY TEXT # 03344 M00S03232.acpd +++| ITEM TXT$H1 C(00,00,16); # *ACPD* VERSION # 03345 M00S03233.acpd +++| ITEM TXT$VR C(01,00,10); # VERSION NUMBER # 03346 M00S03234.acpd +++| ITEM TXT$H2 C(02,00,10)=[" "]; # BLANK FILL # 03347 M00S03235.acpd +++| ITEM TXT$SD C(03,00,70); # SYSTEM DESIGNATOR # 03348 M00S03236.acpd +++| END # ARRAY TEXT # 03349 M00S03237.acpd +++| 03350 M00S03238.acpd +++| 03351 M00S03239.acpd +++| 03352 M00S03240.acpd +++| 03353 M00S03241.acpd +++| 03354 M00S03242.acpd +++|# 03355 M00S03243.acpd +++|* BEGIN HEADER PROC. 03356 M00S03244.acpd +++|# 03357 M00S03245.acpd +++| 03358 M00S03246.acpd +++| P<MPAR>=LOC(HDTR); 03359 M00S03247.acpd +++| P<DDSC>=LOC(DDHD); 03360 M00S03248.acpd +++| P<DCHD>=LOC(DBUF); 03361 M00S03249.acpd +++| 03362 M00S03250.acpd +++|# 03363 M00S03251.acpd +++|* *HDDC* IS NOT TRUE IF *HEADER* IS CALLED TO PROCESS THE NEXT 03364 M00S03252.acpd +++|* DATA FILE. *HDDC* IS TRUE IF THE FIRST FILE IS BEING PROCESSED. 03365 M00S03253.acpd +++|* IF THE LATER IS TRUE, ALL THE ERROR CHECKING HAS BEEN DONE BY 03366 M00S03254.acpd +++|* *INITLZ*. 03367 M00S03255.acpd +++|# 03368 M00S03256.acpd +++| 03369 M00S03257.acpd +++| IF (NOT HDDC) # HEADER BLOCK NOT DECODED # 03370 M00S03258.acpd +++| THEN 03371 M00S03259.acpd +++| BEGIN # READ HEADER BLOCK OF NEXT FILE # 03372 M00S03260.acpd +++| READRC(STAT); # READ HEADER BLOCK # 03373 M00S03261.acpd +++| IF (STAT NQ EORC) # EOF OR EOI ENCOUNTERED # 03374 M00S03262.acpd +++| THEN 03375 M00S03263.acpd +++| BEGIN 03376 M00S03264.acpd +++| IF (IBNW GR 0) # INPUT BUFFER NOT EMPTY # 03377 M00S03265.acpd +++| THEN 03378 M00S03266.acpd +++| BEGIN 03379 M00S03267.acpd +++| PERROR(ERM4,FATAL,NULL); # DATA BLOCKS MISSING # 03380 M00S03268.acpd +++| END 03381 M00S03269.acpd +++|
| Line S03270 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03382 M01S03270.v23l617 ---| IF (P$N LS MXFC) # NOT *N* WITH NO EQUIVALENCE #
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03383 M01S00070.v23l617 +++| IF (P$N LS 9999999) # EQUIVALENCED *N* PARAMETER # 03384 M00S03271.acpd +++| THEN 03385 M00S03272.acpd +++| BEGIN 03386 M00S03273.acpd +++| PERROR(ERM9,INFOM,NULL); # *N* EXCEEDS NUMBER OF FILES # 03387 M00S03274.acpd +++| END 03388 M00S03275.acpd +++| 03389 M00S03276.acpd +++| TMED=TRUE; 03390 M00S03277.acpd +++| RETURN; 03391 M00S03278.acpd +++| END 03392 M00S03279.acpd +++| 03393 M00S03280.acpd +++| IF (P$VERS NQ WSAI$VS[0]) # *CPD* AND *ACPD* INCOMPATBLE # 03394 M00S03281.acpd +++| THEN 03395 M00S03282.acpd +++| BEGIN 03396 M00S03283.acpd +++| PERROR(ERM13,FATAL,NULL); # CPD/ACPD VERSIONS MISMATCH # 03397 M00S03284.acpd +++| END 03398 M00S03285.acpd +++| 03399 M00S03286.acpd +++| IBWA=0; 03400 M00S03287.acpd +++| DECODE(LOC(HDTR),LOC(DCHD)); # DECODE HEADER BLOCK # 03401 M00S03288.acpd +++| ADJUST; # ADJUST TABLES AND FIELD LENGTH # 03402 M00S03289.acpd +++| 03403 M00S03290.acpd +++|# 03404 M00S03291.acpd +++|* CHECK IF FILES IN CHRONOLOGICAL ORDER. 03405 M00S03292.acpd +++|# 03406 M00S03293.acpd +++|
| Line S03294 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03407 M01S03294.ns2786 ---| T=DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE); 03408 M01S03295.ns2786 ---| D=(DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE) - Y70C)*SHFC;
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03409 M01S00029.ns2786 +++| T=DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE,FALSE); 03410 M01S00030.ns2786 +++| D=DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE,TRUE)*SHFC; 03411 M00S03296.acpd +++| IF (LSTM GR (D+T)) # DATA FILE NOT IN ORDER # 03412 M00S03297.acpd +++| THEN 03413 M00S03298.acpd +++| BEGIN 03414 M00S03299.acpd +++| PERROR(ERM8,FATAL,NULL); 03415 M00S03300.acpd +++| END 03416 M00S03301.acpd +++| 03417 M00S03302.acpd +++| END # READ HEADER BLOCK OF NEXT FILE # 03418 M00S03303.acpd +++| 03419 M00S03304.acpd +++| ELSE # HEADER BLOCK HAS BEEN DECODED # 03420 M00S03305.acpd +++| BEGIN 03421 M00S03306.acpd +++| HDDC=FALSE; 03422 M00S03307.acpd +++| END 03423 M00S03308.acpd +++| 03424 M00S03309.acpd +++|# 03425 M00S03310.acpd +++|* BUILD THE REPORT TITLE. 03426 M00S03311.acpd +++|# 03427 M00S03312.acpd +++| 03428 M00S03313.acpd +++| T=DDSC$FW[CPDV]; # *ACPD* VERSION POINTER # 03429 M00S03314.acpd +++| TXT$VR[0]=DCHD$CW[T]; 03430 M00S03315.acpd +++| TXT$H1[0]=" A C P D - VER "; 03431 M00S03316.acpd +++| 03432 M00S03317.acpd +++| T=DDSC$FW[SYSV]; # SYSTEM DESIGNATOR POINTER # 03433 M00S03318.acpd +++| P<HEAD>=LOC(DCHD$CW[T]); 03434 M00S03319.acpd +++| T=MPAR$PR[SYSV]*2; 03435 M00S03320.acpd +++| BZFILL(HEAD,TYPFILL"BFILL",T); 03436 M00S03321.acpd +++| TXT$SD[0]=HEAD$SD[0]; 03437 M00S03322.acpd +++| 03438 M00S03323.acpd +++| IF (P$L NQ NULL) # REPORT FILE SPECIFIED # 03439 M00S03324.acpd +++| THEN 03440 M00S03325.acpd +++| BEGIN 03441 M00S03326.acpd +++| L=30 + T; # LENGTH OF HEADER TEXT # 03442 M00S03327.acpd +++| RPHEAD(OFFA,TEXT,2,L); # SET UP *ACPD* TITLE # 03443 M00S03328.acpd +++| PUTHDR; # PRINT HEADER BLOCK ELEMENTS # 03444 M00S03329.acpd +++| PUTEST; # PRINT EST # 03445 M00S03330.acpd +++| PUTSCI; # PRINT JOB CONTROL BLOCK # 03446 M00S03331.acpd +++| END 03447 M00S03332.acpd +++| 03448 M00S03333.acpd +++| IF (P$S NQ NULL) # SUMMARY FILE SPECIFIED # 03449 M00S03334.acpd +++| THEN # WRITE SUMMARY FILE # 03450 M00S03335.acpd +++| BEGIN 03451 M00S03336.acpd +++| WRITEW(FETS,DCHD,DCHL,0); 03452 M00S03337.acpd +++| WRITER(FETS,1); 03453 M00S03338.acpd +++| END 03454 M00S03339.acpd +++| 03455 M00S03340.acpd +++| RETURN; 03456 M00S03341.acpd +++| END # HEADER # 03457 M00S03342.acpd +++| 03458 M00S03343.acpd +++| TERM 03459 M00S03344.acpd +++|PROC INITLZ(HDDC,DTDC,EDTM); 03460 M00S03345.acpd +++|# TITLE INITLZ - INITIALIZE PARAMETERS AND OPEN FILES. # 03461 M00S03346.acpd +++| 03462 M00S03347.acpd +++| BEGIN # INITLZ # 03463 M00S03348.acpd +++| 03464 M00S03349.acpd +++|# 03465 M00S03350.acpd +++|** INITLZ - INITIALIZE PARAMETERS AND OPEN FILES. 03466 M00S03351.acpd +++|*
| Line S03352 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03467 M01S03352.v23l617 ---|* PROCESS *ACPD* CONTROL STATEMENT PARAMETERS, INITIALIZE *ACPD*,
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03468 M01S00071.v23l617 +++|* PROCESS *ACPD* COMMAND PARAMETERS, INITIALIZE *ACPD*, 03469 M00S03353.acpd +++|* AND OPEN FILES. 03470 M00S03354.acpd +++|* 03471 M00S03355.acpd +++|* PROC INITLZ(HDDC,DTDC,EDTM) 03472 M00S03356.acpd +++|* 03473 M00S03357.acpd +++|* ENTRY NONE. 03474 M00S03358.acpd +++|* 03475 M00S03359.acpd +++|* EXIT HDDC = INDICATE IF HEADER BLOCK HAS BEEN DECODED. 03476 M00S03360.acpd +++|* DTDC = INDICATE IF DATA BLOCK HAS BEEN DECODED. 03477 M00S03361.acpd +++|* TIME = TRUE IF BEGINNING TIME GREATER THAN 03478 M00S03362.acpd +++|* ENDING TIME. 03479 M00S03363.acpd +++|# 03480 M00S03364.acpd +++| 03481 M00S03365.acpd +++|# 03482 M00S03366.acpd +++|* PARAMETER LIST. 03483 M00S03367.acpd +++|# 03484 M00S03368.acpd +++| 03485 M00S03369.acpd +++| ITEM HDDC B; # DECODED HEADER BLOCK FLAG # 03486 M00S03370.acpd +++| ITEM DTDC B; # DECODED DATA BLOCK FLAG # 03487 M00S03371.acpd +++| ITEM EDTM B; # ENDING TIME FLAG # 03488 M00S03372.acpd +++| 03489 M00S03373.acpd +++|# 03490 M00S03374.acpd +++|**** PROC INITLZ - XREF LIST BEGIN. 03491 M00S03375.acpd +++|# 03492 M00S03376.acpd +++| 03493 M00S03377.acpd +++| XREF 03494 M00S03378.acpd +++| BEGIN 03495 M00S03379.acpd +++| PROC ADJUST; # ADJUST TABLES AND FIELD LENGTH # 03496 M00S03380.acpd +++| PROC DECODE; # DECODE *CIO* INPUT BUFFER DATA # 03497 M00S03381.acpd +++| FUNC DTMNUM I; # CONVERT TIME/DATE TO BINARY # 03498 M00S03382.acpd +++| PROC FILINFO; # GET FILE INFORMATION # 03499 M00S03383.acpd +++| PROC MEMORY; # REQUEST MEMORY # 03500 M00S03384.acpd +++| PROC PAP; # PROCESS *ACPD* PARAMETER # 03501 M00S03385.acpd +++| PROC PERROR; # PROCESS ERROR # 03502 M00S03386.acpd +++| PROC READRC; # READ ONE RECORD FROM DATA FILE # 03503 M00S03387.acpd +++| PROC REPTLE; # PRINT REPORT SUBTITLE # 03504 M00S03388.acpd +++| PROC RPOPEN; # OPEN FILES # 03505 M00S03389.acpd +++| PROC ZSETFET; # INITIALIZE *CIO* FET # 03506 M00S03390.acpd +++| END 03507 M00S03391.acpd +++| 03508 M00S03392.acpd +++|# 03509 M00S03393.acpd +++|**** PROC INITLZ - XREF LIST END. 03510 M00S03394.acpd +++|# 03511 M00S03395.acpd +++| 03512 M00S03396.acpd +++| DEF CNIC #"CNIL"#; # FAST LOOP SAMPLE # 03513 M00S03397.acpd +++| DEF CTMC #"CTML"#; # MEDIUM LOOP SAMPLE # 03514 M00S03398.acpd +++| DEF CTOC #"CTOL"#; # SLOW LOOP SAMPLE # 03515 M00S03399.acpd +++| DEF MXVC #1.0E20#; # MAXIMUM VALUE # 03516 M00S03400.acpd +++| DEF NA #"NA"#; # NO ABORT FLAG # 03517 M00S03401.acpd +++| DEF RECALL #1#; # RECALL FLAG # 03518 M00S03402.acpd +++| 03519 M00S03403.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03520 M00S03404.acpd +++| 03521 M00S03405.acpd +++|*CALL COMUCPD 03522 M00S03406.acpd +++| 03523 M00S03407.acpd +++|# 03524 M00S03408.acpd +++|* LOCAL VARIABLES. 03525 M00S03409.acpd +++|# 03526 M00S03410.acpd +++| 03527 M00S03411.acpd +++| ITEM BA I; # BYTE ADDRESS # 03528 M00S03412.acpd +++| ITEM CM C(10)="CM"; # REQUEST CM FLAG # 03529 M00S03413.acpd +++| ITEM D I; # TEMPORARY VARIABLE # 03530 M00S03414.acpd +++| ITEM DM I; # TEMPORARY VARIABLE # 03531 M00S03415.acpd +++| ITEM I I; # FOR LOOP CONTROL # 03532 M00S03416.acpd +++| ITEM J I; # FOR LOOP CONTROL # 03533 M00S03417.acpd +++| ITEM STAT I; # I/O STATUS # 03534 M00S03418.acpd +++| ITEM T I; # TEMPORARY VARIABLE # 03535 M00S03419.acpd +++| ITEM TM I; # TIME # 03536 M00S03420.acpd +++| 03537 M00S03421.acpd +++| ARRAY FINFO [0:0] P(5); # *FILINFO* PARAMETER BLOCK # 03538 M00S03422.acpd +++| BEGIN # ARRAY FINFO # 03539 M00S03423.acpd +++| ITEM FIN$FN C(00,00,07); # FILE NAME # 03540 M00S03424.acpd +++| ITEM FIN$LN U(00,42,06)=[5]; # PARAMETER BLOCK LENGTH # 03541 M00S03425.acpd +++| ITEM FIN$US U(00,48,12)=[1]; # COMPLETION STATUS # 03542 M00S03426.acpd +++| ITEM FIN$WD U(01,00,60); # PARAMETER BLOCK WORD # 03543 M00S03427.acpd +++| ITEM FIN$EI B(01,36,01); # EOI STATUS # 03544 M00S03428.acpd +++| ITEM FIN$EF B(01,37,01); # EOF STATUS # 03545 M00S03429.acpd +++| ITEM FIN$BI B(01,38,01); # BOI STATUS # 03546 M00S03430.acpd +++| END # ARRAY FINFO # 03547 M00S03431.acpd +++| 03548 M00S03432.acpd +++| ARRAY STT [0:0] P(1); # MEMORY ARGUMENT # 03549 M00S03433.acpd +++| BEGIN # ARRAY STT # 03550 M00S03434.acpd +++| ITEM STT$RFL U(00,00,30); # REQUEST FIELD LENGTH # 03551 M00S03435.acpd +++| END # ARRARY STT # 03552 M00S03436.acpd +++| 03553 M00S03437.acpd +++| 03554 M00S03438.acpd +++| 03555 M00S03439.acpd +++| 03556 M00S03440.acpd +++| 03557 M00S03441.acpd +++| 03558 M00S03442.acpd +++| 03559 M00S03443.acpd +++|# 03560 M00S03444.acpd +++|* BEGIN INITLZ PROC. 03561 M00S03445.acpd +++|# 03562 M00S03446.acpd +++| 03563 M00S03447.acpd +++| PAP; # PROCESS *ACPD* PARAMETERS # 03564 M00S03448.acpd +++| 03565 M00S03449.acpd +++|# 03566 M00S03450.acpd +++|* OPEN FILES. 03567 M00S03451.acpd +++|# 03568 M00S03452.acpd +++| 03569 M00S03453.acpd +++| ZSETFET(LOC(FETI),P$FN,LOC(WSAI),WSAL+1,FENL+1); 03570 M00S03454.acpd +++| FIN$FN[0]=P$FN; 03571 M00S03455.acpd +++| FILINFO(FINFO); # CHECK STATUS OF INPUT FILE # 03572 M00S03456.acpd +++| IF (FIN$WD[0] EQ NULL) # NO STATUS # 03573 M00S03457.acpd +++| THEN 03574 M00S03458.acpd +++| BEGIN 03575 M00S03459.acpd +++| PERROR(ERM11,FATAL,P$FN); # DATA FILE NOT FOUND # 03576 M00S03460.acpd +++| END 03577 M00S03461.acpd +++| 03578 M00S03462.acpd +++| IF (FIN$EI[0]) # EOI # 03579 M00S03463.acpd +++| THEN 03580 M00S03464.acpd +++| BEGIN 03581 M00S03465.acpd +++| PERROR(ERM12,FATAL,NULL); # DATA FILE POSITIONED AT EOI # 03582 M00S03466.acpd +++| END 03583 M00S03467.acpd +++| 03584 M00S03468.acpd +++| IF (NOT (FIN$EF[0] OR FIN$BI[0])) # NOT AT EOF NOR BOI # 03585 M00S03469.acpd +++| THEN 03586 M00S03470.acpd +++| BEGIN 03587 M00S03471.acpd +++| PERROR(ERM7,FATAL,NULL); 03588 M00S03472.acpd +++| END 03589 M00S03473.acpd +++| 03590 M00S03474.acpd +++| OFFA=LOC(FETO); 03591 M00S03475.acpd +++| IF (P$L NQ NULL) # REPORT FILE SPECIFIED # 03592 M00S03476.acpd +++| THEN # OPEN REPORT FILE # 03593 M00S03477.acpd +++| BEGIN 03594 M00S03478.acpd +++| RPOPEN(P$L,OFFA,REPTLE); 03595 M00S03479.acpd +++| END 03596 M00S03480.acpd +++| 03597 M00S03481.acpd +++| IF (P$S NQ NULL) # SUMMARY FILE SPECIFIED # 03598 M00S03482.acpd +++| THEN # OPEN SUMMARY FILE # 03599 M00S03483.acpd +++| BEGIN 03600 M00S03484.acpd +++| ZSETFET(LOC(FETS),P$S,LOC(WSAS),WSAL+1,FENL+1); 03601 M00S03485.acpd +++| END 03602 M00S03486.acpd +++| 03603 M00S03487.acpd +++|# 03604 M00S03488.acpd +++|* REQUEST CURRENT FIELD LENGTH. 03605 M00S03489.acpd +++|# 03606 M00S03490.acpd +++| 03607 M00S03491.acpd +++| MEMORY(CM,STT,RECALL,NA); 03608 M00S03492.acpd +++| CRFL=STT$RFL[0]; # CURRENT FIELD LENGTH # 03609 M00S03493.acpd +++| HGAD=CRFL; # HIGHEST ADDRESS # 03610 M00S03494.acpd +++| 03611 M00S03495.acpd +++|# 03612 M00S03496.acpd +++|* CHECK IF *CPD* AND *ACPD* VERSIONS ARE THE SAME. 03613 M00S03497.acpd +++|# 03614 M00S03498.acpd +++| 03615 M00S03499.acpd +++| READRC(STAT); # READ HEADER BLOCK # 03616 M00S03500.acpd +++| IF (STAT NQ EORC) # EOF OR EOI ENCOUNTERED # 03617 M00S03501.acpd +++| THEN 03618 M00S03502.acpd +++| BEGIN 03619 M00S03503.acpd +++| PERROR(ERM5,FATAL,NULL); # DATA FILE EMPTY # 03620 M00S03504.acpd +++| END 03621 M00S03505.acpd +++| 03622 M00S03506.acpd +++| IF (P$VERS NQ WSAI$VS[0]) # *CPD* AND *ACPD* INCOMPATBLE # 03623 M00S03507.acpd +++| THEN 03624 M00S03508.acpd +++| BEGIN 03625 M00S03509.acpd +++| PERROR(ERM13,FATAL,NULL); # CPD/ACPD VERSIONS MISMATCH # 03626 M00S03510.acpd +++| END 03627 M00S03511.acpd +++| 03628 M00S03512.acpd +++|# 03629 M00S03513.acpd +++|* VALIDATE BEGIN AND END TIMES. 03630 M00S03514.acpd +++|* IF NO *BD* SPECIFIED, BEGIN DATE IS THE DATE OF THE 03631 M00S03515.acpd +++|* HEADER RECORD OF THE CURRENT FILE. 03632 M00S03516.acpd +++|* IF NO *ED* SPECIFIED, END DATE IS THE SAME AS BEGIN DATE. 03633 M00S03517.acpd +++|* IF NO *ET*/*ED* SPECIFIED, END DATE IS SET TO MAXIMUM. 03634 M00S03518.acpd +++|# 03635 M00S03519.acpd +++| 03636 M00S03520.acpd +++| P<DCHD>=LOC(DBUF); 03637 M00S03521.acpd +++| P<DDSC>=LOC(DDHD); 03638 M00S03522.acpd +++| 03639 M00S03523.acpd +++| IBWA=0; 03640 M00S03524.acpd +++| DECODE(LOC(HDTR),LOC(DCHD)); # DECODE HEADER BLOCK # 03641 M00S03525.acpd +++| ADJUST; # ADJUST TABLES AND FIELD LENGTH # 03642 M00S03526.acpd +++| HDDC=TRUE; # HEADER BLOCK HAS BEEN DECODED # 03643 M00S03527.acpd +++| 03644 M00S03528.acpd +++| IF (P$BD EQ NULL) # NO BEGINNING DATE # 03645 M00S03529.acpd +++| THEN 03646 M00S03530.acpd +++| BEGIN
| Line S03531 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03647 M01S03531.ns2786 ---| DM=(DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE) - Y70C)*SHFC;
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03648 M01S00031.ns2786 +++| DM=DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE,TRUE)*SHFC; 03649 M00S03532.acpd +++| END 03650 M00S03533.acpd +++| 03651 M00S03534.acpd +++| ELSE # *BD* SPECIFIED # 03652 M00S03535.acpd +++| BEGIN
| Line S03536 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03653 M01S03536.ns2786 ---| DM=(DTMNUM(P$BD,FALSE) - Y70C)*SHFC;
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03654 M01S00032.ns2786 +++| DM=DTMNUM(P$BD,FALSE,TRUE)*SHFC; 03655 M00S03537.acpd +++| END 03656 M00S03538.acpd +++|
| Line S03539 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03657 M01S03539.ns2786 ---| P$BT=DM + DTMNUM(P$BT,FALSE);
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03658 M01S00033.ns2786 +++| P$BT=DM + DTMNUM(P$BT,FALSE,FALSE); 03659 M00S03540.acpd +++| 03660 M00S03541.acpd +++| IF (P$ED NQ NULL) # END DATE SPECIFIED # 03661 M00S03542.acpd +++| THEN 03662 M00S03543.acpd +++| BEGIN
| Line S03544 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03663 M01S03544.ns2786 ---| P$ET=((DTMNUM(P$ED,FALSE) - Y70C)*SHFC) + DTMNUM(P$ET,FALSE);
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03664 M01S00034.ns2786 +++| P$ET=(DTMNUM(P$ED,FALSE,TRUE)*SHFC) + DTMNUM(P$ET,FALSE,FALSE); 03665 M00S03545.acpd +++| END 03666 M00S03546.acpd +++| 03667 M00S03547.acpd +++| ELSE # NO END DATE # 03668 M00S03548.acpd +++| BEGIN 03669 M00S03549.acpd +++| IF (P$ET NQ NULL) # END TIME SPECIFIED # 03670 M00S03550.acpd +++| THEN 03671 M00S03551.acpd +++| BEGIN
| Line S03552 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03672 M01S03552.ns2786 ---| P$ET=DM + DTMNUM(P$ET,FALSE);
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03673 M01S00035.ns2786 +++| P$ET=DM + DTMNUM(P$ET,FALSE,FALSE); 03674 M00S03553.acpd +++| END 03675 M00S03554.acpd +++| 03676 M00S03555.acpd +++| ELSE # *ET*/*ED* ARE NOT SPECIFIED # 03677 M00S03556.acpd +++| BEGIN
| Line S03557 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03678 M01S03557.ns2786 ---| P$ET=MXDC*SHFC + MXTC; # 99/12/31 23.59.59 #
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03679 M01S00036.ns2786 +++| P$ET=MXDC*SHFC + MXTC; # 33/12/31 23.59.59 # 03680 M00S03558.acpd +++| END 03681 M00S03559.acpd +++| 03682 M00S03560.acpd +++| END 03683 M00S03561.acpd +++| 03684 M00S03562.acpd +++| IF (P$BT GQ P$ET) # BEGIN TIME .GE. END TIME # 03685 M00S03563.acpd +++| THEN 03686 M00S03564.acpd +++| BEGIN 03687 M00S03565.acpd +++| EDTM=TRUE; # ENDING TIME REACHED # 03688 M00S03566.acpd +++| RETURN; 03689 M00S03567.acpd +++| END 03690 M00S03568.acpd +++|
| Line S03569 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03691 M01S03569.ns2786 ---| TM=(DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE) - Y70C)*SHFC; 03692 M01S03570.ns2786 ---| TM=TM + DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE);
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03693 M01S00037.ns2786 +++| TM=DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE,TRUE)*SHFC; 03694 M01S00038.ns2786 +++| TM=TM + DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE,FALSE); 03695 M00S03571.acpd +++| IF (P$BT GR TM) # *BT* .GT. TIME OF FIRST 03696 M00S03572.acpd +++| DATA RECORD # 03697 M00S03573.acpd +++| THEN 03698 M00S03574.acpd +++| BEGIN 03699 M00S03575.acpd +++| DTDC=TRUE; # DECODE DATA BLOCK # 03700 M00S03576.acpd +++| END 03701 M00S03577.acpd +++| 03702 M00S03578.acpd +++| ELSE 03703 M00S03579.acpd +++| BEGIN 03704 M00S03580.acpd +++| DTDC=FALSE; # NOT DECODE DATA BLOCK # 03705 M00S03581.acpd +++| END 03706 M00S03582.acpd +++| 03707 M00S03583.acpd +++|# 03708 M00S03584.acpd +++|* COMPUTE BYTE ADDRESSES OF SAMPLE TIMES IN 03709 M00S03585.acpd +++|* INPUT FILE-S WORKING STORAGE AREA. 03710 M00S03586.acpd +++|# 03711 M00S03587.acpd +++| 03712 M00S03588.acpd +++| BA=0; 03713 M00S03589.acpd +++| P<MPAR>=LOC(DATT); 03714 M00S03590.acpd +++| SLOWFOR I=0 STEP 1 WHILE (MPAR$NM[I] NQ CTOC) 03715 M00S03591.acpd +++| DO 03716 M00S03592.acpd +++| BEGIN # COMPUTE SAMPLE TIME BYTE ADDRESS # 03717 M00S03593.acpd +++| IF (MPAR$NM[I] EQ CNIC) # FAST LOOP SAMPLE # 03718 M00S03594.acpd +++| THEN 03719 M00S03595.acpd +++| BEGIN 03720 M00S03596.acpd +++| SPLA$WD[MPAR$TP[I]]=BA; 03721 M00S03597.acpd +++| END 03722 M00S03598.acpd +++| 03723 M00S03599.acpd +++| ELSE 03724 M00S03600.acpd +++| BEGIN 03725 M00S03601.acpd +++| IF (MPAR$NM[I] EQ CTMC) # MEDIUM LOOP SAMPLE # 03726 M00S03602.acpd +++| THEN 03727 M00S03603.acpd +++| BEGIN 03728 M00S03604.acpd +++| SPLA$WD[MPAR$TP[I]]=BA; 03729 M00S03605.acpd +++| END 03730 M00S03606.acpd +++| 03731 M00S03607.acpd +++| END 03732 M00S03608.acpd +++| 03733 M00S03609.acpd +++| BA=MPAR$LN[I]*MPAR$PR[I] + BA; 03734 M00S03610.acpd +++| END # COMPUTE SAMPLE TIME BYTE ADDRESS # 03735 M00S03611.acpd +++| 03736 M00S03612.acpd +++| SPLA$WD[MPAR$TP[I]]=BA; # SLOW LOOP SAMPLE # 03737 M00S03613.acpd +++| 03738 M00S03614.acpd +++| READRC(STAT); # READ FIRST DATA BLOCK # 03739 M00S03615.acpd +++| IF (STAT NQ EORC) # NO DATA BLOCKS # 03740 M00S03616.acpd +++| THEN 03741 M00S03617.acpd +++| BEGIN 03742 M00S03618.acpd +++| PERROR(ERM4,FATAL,NULL); # DATA BLOCKS MISSING # 03743 M00S03619.acpd +++| END 03744 M00S03620.acpd +++| 03745 M00S03621.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 03746 M00S03622.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]); 03747 M00S03623.acpd +++| 03748 M00S03624.acpd +++|# 03749 M00S03625.acpd +++|* POSITION FILE AT CORRECT RECORD. 03750 M00S03626.acpd +++|# 03751 M00S03627.acpd +++| 03752 M00S03628.acpd +++| STAT=0; 03753 M00S03629.acpd +++| IBWA=0; 03754 M00S03630.acpd +++| 03755 M00S03631.acpd +++| SLOWFOR J=0 WHILE (P$BT GR TM) AND (STAT NQ EOIC) 03756 M00S03632.acpd +++| DO 03757 M00S03633.acpd +++| BEGIN # READ FILE # 03758 M00S03634.acpd +++| IF (IBWA GQ IBNW) # INPUT BUFFER EXHAUSTED # 03759 M00S03635.acpd +++| THEN 03760 M00S03636.acpd +++| BEGIN # GET NEXT BUFFER # 03761 M00S03637.acpd +++| READRC(STAT); # READ NEXT RECORD # 03762 M00S03638.acpd +++| IBWA=0; 03763 M00S03639.acpd +++| IF (STAT NQ EORC) # END OF CURRENT FILE # 03764 M00S03640.acpd +++| THEN 03765 M00S03641.acpd +++| BEGIN # CHECK IF EOF OR EOI # 03766 M00S03642.acpd +++| IF (STAT EQ EOFC) # PREVIOUS READ ENCOUNTERED EOF # 03767 M00S03643.acpd +++| THEN 03768 M00S03644.acpd +++| BEGIN # GET NEXT FILE # 03769 M00S03645.acpd +++| READRC(STAT); # READ HEADER BLOCK OF NEXT FILE # 03770 M00S03646.acpd +++| IF (STAT NQ EORC) # NO DATA BLOCKS FOLLOW # 03771 M00S03647.acpd +++| THEN 03772 M00S03648.acpd +++| BEGIN 03773 M00S03649.acpd +++| PERROR(ERM4,FATAL,NULL); # DATA BLOCKS MISSING # 03774 M00S03650.acpd +++| END 03775 M00S03651.acpd +++| 03776 M00S03652.acpd +++| DECODE(LOC(HDTR),LOC(DCHD)); # DECODE HEADER BLOCK # 03777 M00S03653.acpd +++| ADJUST; # ADJUST TABLES AND FIELD LENGTH # 03778 M00S03654.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 03779 M00S03655.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]); 03780 M00S03656.acpd +++| P<DDSC>=LOC(DDHD); 03781 M00S03657.acpd +++|
| Line S03658 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03782 M01S03658.ns2786 ---| D=(DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE) - Y70C)*SHFC;
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03783 M01S00039.ns2786 +++| D=DTMNUM(DCHD$WD[DDSC$FW[DATE]],TRUE,TRUE)*SHFC; 03784 M00S03659.acpd +++| # GET DATE ON RECORD #
| Line S03660 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03785 M01S03660.ns2786 ---| T=DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE);
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 03786 M01S00040.ns2786 +++| T=DTMNUM(DCHD$WD[DDSC$FW[TIME]],TRUE,FALSE); 03787 M00S03661.acpd +++| # GET TIME ON RECORD # 03788 M00S03662.acpd +++| IF (TM GR (D+T)) # PREVIOUS TIME .GT. 03789 M00S03663.acpd +++| CURRENT TIME # 03790 M00S03664.acpd +++| THEN 03791 M00S03665.acpd +++| BEGIN 03792 M00S03666.acpd +++| PERROR(ERM8,FATAL,NULL); 03793 M00S03667.acpd +++| END 03794 M00S03668.acpd +++| 03795 M00S03669.acpd +++| TM=D + T; # SET TO CURRENT TIME # 03796 M00S03670.acpd +++| TEST J; # GO PROCESS DATA BLOCKS # 03797 M00S03671.acpd +++| END # GET NEXT FILE # 03798 M00S03672.acpd +++| 03799 M00S03673.acpd +++| ELSE # PREVIOUS READ ENCOUNTERD *EOI* # 03800 M00S03674.acpd +++| BEGIN 03801 M00S03675.acpd +++| PERROR(ERM3,FATAL,NULL); # BT/BD NOT FOUND # 03802 M00S03676.acpd +++| END 03803 M00S03677.acpd +++| 03804 M00S03678.acpd +++| END # CHECK IF EOF OR EOI # 03805 M00S03679.acpd +++| 03806 M00S03680.acpd +++| END # GET NEXT BUFFER # 03807 M00S03681.acpd +++| 03808 M00S03682.acpd +++| DECODE(LOC(DATT),LOC(DCDT)); 03809 M00S03683.acpd +++| P<DDSC>=LOC(DDDT); 03810 M00S03684.acpd +++| TM=DCDT$WD[DDSC$FW[PDTM]]; # GET TIME # 03811 M00S03685.acpd +++| 03812 M00S03686.acpd +++|# 03813 M00S03687.acpd +++|* REINITIALIZE BUFFER OF FIRST COLUMN. 03814 M00S03688.acpd +++|# 03815 M00S03689.acpd +++| 03816 M00S03690.acpd +++| FASTFOR I=0 STEP 1 UNTIL DCDL - 1 03817 M00S03691.acpd +++| DO 03818 M00S03692.acpd +++| BEGIN 03819 M00S03693.acpd +++| DCDT$WD[I]=0; 03820 M00S03694.acpd +++| DCDT$WD[I + DCDL*DCDC]=0; 03821 M00S03695.acpd +++| DDSM$IM[I]=0; 03822 M00S03696.acpd +++| DDSM$IQ[I]=0; 03823 M00S03697.acpd +++| END 03824 M00S03698.acpd +++| 03825 M00S03699.acpd +++| END # READ FILE # 03826 M00S03700.acpd +++| 03827 M00S03701.acpd +++| IF (P$ET LQ TM) # READ PAST ENDING TIME # 03828 M00S03702.acpd +++| THEN 03829 M00S03703.acpd +++| BEGIN 03830 M00S03704.acpd +++| EDTM=TRUE; 03831 M00S03705.acpd +++| END 03832 M00S03706.acpd +++| 03833 M00S03707.acpd +++| RETURN; 03834 M00S03708.acpd +++| END # INITLZ # 03835 M00S03709.acpd +++| 03836 M00S03710.acpd +++| TERM 03837 M00S03711.acpd +++|PROC PERROR((ERCD),(EROR),(ERNM)); 03838 M00S03712.acpd +++|# TITLE PERROR - ISSUE ERROR MESSAGE. # 03839 M00S03713.acpd +++| 03840 M00S03714.acpd +++| BEGIN # PERROR # 03841 M00S03715.acpd +++| 03842 M00S03716.acpd +++|# 03843 M00S03717.acpd +++|** PERROR - ISSUE ERROR MESSAGE. 03844 M00S03718.acpd +++|* 03845 M00S03719.acpd +++|* ISSUE ERROR MESSAGE TO THE USER DAYFILE AND ABORT 03846 M00S03720.acpd +++|* THE JOB IF THE ERROR IS FATAL. 03847 M00S03721.acpd +++|* 03848 M00S03722.acpd +++|* PROC PERROR(ERCD,EROR,ERNM) 03849 M00S03723.acpd +++|* 03850 M00S03724.acpd +++|* ENTRY ERCD = ERROR CODE. 03851 M00S03725.acpd +++|* EROR = ERROR LEVEL. 03852 M00S03726.acpd +++|* ERNM = ERROR NAME. 03853 M00S03727.acpd +++|* 03854 M00S03728.acpd +++|* EXIT JOB ABORTED IF *EROR*=FATAL. 03855 M00S03729.acpd +++|* OTHERWISE, RETURN TO CALLING PROGRAM. 03856 M00S03730.acpd +++|* 03857 M00S03731.acpd +++|* MESSAGES 03858 M00S03732.acpd +++|* 03859 M00S03733.acpd +++|* 1. ACPD ARGUMENT ERROR - XX. 03860 M00S03734.acpd +++|* 2. ACPD/CPD VERSIONS MISMATCH. 03861 M00S03735.acpd +++|* 3. BT/BD NOT FOUND. 03862 M00S03736.acpd +++|* 4. DATA BLOCKS MISSING. 03863 M00S03737.acpd +++|* 5. DATA ELEMENT NAME UNDEFINED - XXXX. 03864 M00S03738.acpd +++|* 6. DATA FILE CONTENT ERROR. 03865 M00S03739.acpd +++|* 7. DATA FILE EMPTY. 03866 M00S03740.acpd +++|* 8. DATA FILE NOT AT BEGINNING OF FILE. 03867 M00S03741.acpd +++|* 9. DATA FILE NOT FOUND - XXXXXXX. 03868 M00S03742.acpd +++|* 10. DATA FILE NOT IN CHRONOLOGICAL ORDER. 03869 M00S03743.acpd +++|* 11. DATA FILE POSITIONED AT EOI.
| Line S03744 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03870 M01S03744.v23l617 ---|* 12. IN LESS THAN FILE WRITE TIME. 03871 M01S03745.v23l617 ---|* 13. N EXCEEDS NUMBER OF FILES.
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03872 M01S00072.v23l617 +++|* 12. IN AND IC PARAMETER CONFLICT. 03873 M01S00073.v23l617 +++|* 13. IN LESS THAN FILE WRITE TIME. 03874 M01S00074.v23l617 +++|* 14. N EXCEEDS NUMBER OF FILES. 03875 M00S03746.acpd +++|# 03876 M00S03747.acpd +++| 03877 M00S03748.acpd +++|# 03878 M00S03749.acpd +++|* PARAMETER LIST. 03879 M00S03750.acpd +++|# 03880 M00S03751.acpd +++| 03881 M00S03752.acpd +++| ITEM ERCD I; # ERROR CODE # 03882 M00S03753.acpd +++| ITEM EROR I; # ERROR LEVEL # 03883 M00S03754.acpd +++| ITEM ERNM C(10); # ERROR NAME # 03884 M00S03755.acpd +++| 03885 M00S03756.acpd +++|# 03886 M00S03757.acpd +++|**** PROC PERROR - XREF LIST BEGIN. 03887 M00S03758.acpd +++|# 03888 M00S03759.acpd +++| 03889 M00S03760.acpd +++| XREF 03890 M00S03761.acpd +++| BEGIN 03891 M00S03762.acpd +++| PROC ABORT; # ABORT JOB # 03892 M00S03763.acpd +++| PROC MESSAGE; # ISSUE DAYFILE MESSAGES # 03893 M00S03764.acpd +++| END 03894 M00S03765.acpd +++| 03895 M00S03766.acpd +++|# 03896 M00S03767.acpd +++|**** PROC PERROR - XREF LIST END. 03897 M00S03768.acpd +++|# 03898 M00S03769.acpd +++| 03899 M00S03770.acpd +++| DEF BLKC #" "#; # BLANK # 03900 M00S03771.acpd +++| DEF DOLC #"$"#; # DOLLAR SIGN # 03901 M00S03772.acpd +++| DEF PRDC #"."#; # PERIOD # 03902 M00S03773.acpd +++| 03903 M00S03774.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 03904 M00S03775.acpd +++| 03905 M00S03776.acpd +++|*CALL COMUCPD 03906 M00S03777.acpd +++| 03907 M00S03778.acpd +++|# 03908 M00S03779.acpd +++|* LOCAL VARIABLES. 03909 M00S03780.acpd +++|# 03910 M00S03781.acpd +++| 03911 M00S03782.acpd +++| ITEM J I; # FOR LOOP CONTROL # 03912 M00S03783.acpd +++| ITEM L I; # FOR LOOP CONTROL # 03913 M00S03784.acpd +++| 03914 M00S03785.acpd +++| ARRAY ERMS [1:ERMSC] S(4); # ERROR MESSSAGES # 03915 M00S03786.acpd +++| BEGIN # ARRAY ERMS # 03916 M00S03787.acpd +++| ITEM ER$MS C(00,00,38) = # ERROR MESSAGES # 03917 M00S03788.acpd +++| 03918 M00S03789.acpd +++| [" ACPD ARGUMENT ERROR - $.", 03919 M00S03790.acpd +++| " DATA ELEMENT NAME UNDEFINED - $.", 03920 M00S03791.acpd +++| " BT/BD NOT FOUND.", 03921 M00S03792.acpd +++| " DATA BLOCKS MISSING.", 03922 M00S03793.acpd +++| " DATA FILE EMPTY.", 03923 M00S03794.acpd +++| " DATA FILE CONTENT ERROR.", 03924 M00S03795.acpd +++| " DATA FILE NOT AT BEGINNING OF FILE.", 03925 M00S03796.acpd +++| " DATA FILE NOT IN CHRONOLOGICAL ORDER.", 03926 M00S03797.acpd +++| " N EXCEEDS NUMBER OF FILES.", 03927 M00S03798.acpd +++| " IN LESS THAN FILE WRITE TIME.", 03928 M00S03799.acpd +++| " DATA FILE NOT FOUND - $.", 03929 M00S03800.acpd +++| " DATA FILE POSITIONED AT EOI.",
| Line S03801 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03930 M01S03801.v23l617 ---| " ACPD/CPD VERSIONS MISMATCH."];
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03931 M01S00075.v23l617 +++| " ACPD/CPD VERSIONS MISMATCH.", 03932 M01S00076.v23l617 +++| " IN AND IC PARAMETER CONFLICT."]; 03933 M00S03802.acpd +++|
| Line S03803 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03934 M01S03803.v23l617 ---| ITEM ER$ZR C(03,48,02) = [0,0,0,0,0,0,0,0,0,0,0,0,0];
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03935 M01S00077.v23l617 +++| ITEM ER$ZR C(03,48,02) = [0,0,0,0,0,0,0,0,0,0,0,0,0,0]; 03936 M00S03804.acpd +++| # ZERO FILLED LAST BYTE # 03937 M00S03805.acpd +++| END # ARRAY ERMS # 03938 M00S03806.acpd +++| 03939 M00S03807.acpd +++| 03940 M00S03808.acpd +++| 03941 M00S03809.acpd +++| 03942 M00S03810.acpd +++| 03943 M00S03811.acpd +++|# 03944 M00S03812.acpd +++|* BEGIN PERROR PROC. 03945 M00S03813.acpd +++|# 03946 M00S03814.acpd +++| 03947 M00S03815.acpd +++| IF (ERNM NQ 0) # NAME SPECIFIED # 03948 M00S03816.acpd +++| THEN 03949 M00S03817.acpd +++| BEGIN # FILL IN ERROR NAME # 03950 M00S03818.acpd +++| SLOWFOR J=2 STEP 1 WHILE (C<J,1>ER$MS[ERCD] NQ DOLC) 03951 M00S03819.acpd +++| DO; # LOOK FOR DOLLAR SIGN # 03952 M00S03820.acpd +++| 03953 M00S03821.acpd +++| SLOWFOR L=0 STEP 1 WHILE (C<L,1>ERNM NQ 0) 03954 M00S03822.acpd +++| AND (C<L,1>ERNM NQ BLKC) 03955 M00S03823.acpd +++| DO 03956 M00S03824.acpd +++| BEGIN 03957 M00S03825.acpd +++| C<J,1>ER$MS[ERCD]=C<L,1>ERNM; 03958 M00S03826.acpd +++| J=J+1; 03959 M00S03827.acpd +++| END 03960 M00S03828.acpd +++| 03961 M00S03829.acpd +++| C<J,1>ER$MS[ERCD]=PRDC; 03962 M00S03830.acpd +++| END # FILL IN ERROR NAME # 03963 M00S03831.acpd +++| 03964 M00S03832.acpd +++| MESSAGE(ER$MS[ERCD],3); # ISSUE ERROR MESSAGE # 03965 M00S03833.acpd +++| IF (EROR NQ FATAL) 03966 M00S03834.acpd +++| THEN 03967 M00S03835.acpd +++| BEGIN 03968 M00S03836.acpd +++| RETURN; # TO CALLING PROGRAM # 03969 M00S03837.acpd +++| END 03970 M00S03838.acpd +++| 03971 M00S03839.acpd +++| ABORT; 03972 M00S03840.acpd +++| END # PERROR # 03973 M00S03841.acpd +++| 03974 M00S03842.acpd +++| TERM 03975 M00S03843.acpd +++|PROC PRDTEL((PVL),(DTY),(TMX)); 03976 M00S03844.acpd +++|# TITLE PRDTEL - PRINT ONE LINE OF DATA ELEMENT. # 03977 M00S03845.acpd +++| 03978 M00S03846.acpd +++| BEGIN # PRDTEL # 03979 M00S03847.acpd +++| 03980 M00S03848.acpd +++|# 03981 M00S03849.acpd +++|** PRDTEL - PRINT ONE LINE OF DATA ELEMENT. 03982 M00S03850.acpd +++|* 03983 M00S03851.acpd +++|* PRINT VALUES IN ONE LINE OF ONE DATA ELEMENT. 03984 M00S03852.acpd +++|* 03985 M00S03853.acpd +++|* PROC PRDTEL((PVL),(DTY),(TMX)) 03986 M00S03854.acpd +++|* 03987 M00S03855.acpd +++|* ENTRY PVL = POINTER TO VALUES. 03988 M00S03856.acpd +++|* DTY = DATA TYPE. 03989 M00S03857.acpd +++|* TMX = POINTER TO CURRENT TOTAL MAXIMUM AND 03990 M00S03858.acpd +++|* MINIMUM VALUES. 03991 M00S03859.acpd +++|* 03992 M00S03860.acpd +++|* EXIT ONE ROW OF THE DATA ELEMENT-S VALUES ARE PRINTED. 03993 M00S03861.acpd +++|* THE SUBTOTAL IS ALSO PRINTED, ALONG WITH THE 03994 M00S03862.acpd +++|* MAXIMUM AND MIN VALUES OF THAT ROW. 03995 M00S03863.acpd +++|# 03996 M00S03864.acpd +++| 03997 M00S03865.acpd +++|# 03998 M00S03866.acpd +++|* PARAMETER LIST. 03999 M00S03867.acpd +++|# 04000 M00S03868.acpd +++| 04001 M00S03869.acpd +++| ITEM PVL U; # POINTER TO VALUES # 04002 M00S03870.acpd +++| ITEM DTY I; # DATA TYPE # 04003 M00S03871.acpd +++| ITEM TMX U; # POINTER TO TOTAL MAXIMUM VALUE # 04004 M00S03872.acpd +++| 04005 M00S03873.acpd +++|# 04006 M00S03874.acpd +++|**** PROC PRDTEL - XREF LIST BEGIN. 04007 M00S03875.acpd +++|# 04008 M00S03876.acpd +++| 04009 M00S03877.acpd +++| XREF 04010 M00S03878.acpd +++| BEGIN 04011 M00S03879.acpd +++| PROC DETMXM; # DETERMINE MAXIMUM AND MINIMUM # 04012 M00S03880.acpd +++| PROC WRITEV; # WRITE VALUE # 04013 M00S03881.acpd +++| END 04014 M00S03882.acpd +++| 04015 M00S03883.acpd +++|# 04016 M00S03884.acpd +++|**** PROC PRDTEL - XREF LIST END. 04017 M00S03885.acpd +++|# 04018 M00S03886.acpd +++| 04019 M00S03887.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 04020 M00S03888.acpd +++| 04021 M00S03889.acpd +++|*CALL COMUCPD 04022 M00S03890.acpd +++| 04023 M00S03891.acpd +++|# 04024 M00S03892.acpd +++|* LOCAL VARIABLES. 04025 M00S03893.acpd +++|# 04026 M00S03894.acpd +++| 04027 M00S03895.acpd +++| ITEM CL I; # COLUMN # 04028 M00S03896.acpd +++| ITEM CR I; # CARRIAGE CONTROL # 04029 M00S03897.acpd +++| ITEM I I; # FOR LOOP CONTROL # 04030 M00S03898.acpd +++| ITEM IC I; # INCREMENTOR # 04031 M00S03899.acpd +++| ITEM MN I; # MINIMUM INTERVAL # 04032 M00S03900.acpd +++| ITEM MX I; # MAXIMUM INTERVAL # 04033 M00S03901.acpd +++| ITEM X R; # TEMPORARY VARIABLE # 04034 M00S03902.acpd +++| 04035 M00S03903.acpd +++| BASED 04036 M00S03904.acpd +++| ARRAY MXN [0:0] S(2); # TOTAL MAXIMUM/MINIMUM VALUES # 04037 M00S03905.acpd +++| BEGIN # ARRAY MXN # 04038 M00S03906.acpd +++| ITEM MXN$MX R(00,00,60); # TOTAL MAXIMUM VALUE # 04039 M00S03907.acpd +++| ITEM MXN$MN R(01,00,60); # TOTAL MINIMUM VALUE # 04040 M00S03908.acpd +++| END # ARRAY MXN # 04041 M00S03909.acpd +++| 04042 M00S03910.acpd +++| BASED 04043 M00S03911.acpd +++| ARRAY VAL [1:11] P(1); # VALUES TO BE PRINTED # 04044 M00S03912.acpd +++| BEGIN # ARRAY VAL # 04045 M00S03913.acpd +++| ITEM VL$F R(00,00,60); # REAL VALUE # 04046 M00S03914.acpd +++| ITEM VL$N I(00,00,60); # INTEGER VALUE # 04047 M00S03915.acpd +++| END # ARRAY VAL # 04048 M00S03916.acpd +++| 04049 M00S03917.acpd +++| 04050 M00S03918.acpd +++| 04051 M00S03919.acpd +++| 04052 M00S03920.acpd +++| 04053 M00S03921.acpd +++|# 04054 M00S03922.acpd +++|* BEGIN PRDTEL PROC. 04055 M00S03923.acpd +++|# 04056 M00S03924.acpd +++| 04057 M00S03925.acpd +++| IF (NIPP LQ (DCDC-3)) # PRINT TOTAL ON SAME LINE # 04058 M00S03926.acpd +++| THEN # DO NOT LINE FEED # 04059 M00S03927.acpd +++| BEGIN 04060 M00S03928.acpd +++| CR=NLFC; 04061 M00S03929.acpd +++| END 04062 M00S03930.acpd +++| 04063 M00S03931.acpd +++| ELSE 04064 M00S03932.acpd +++| BEGIN 04065 M00S03933.acpd +++| CR=LFDC; # LINE FEED # 04066 M00S03934.acpd +++| END 04067 M00S03935.acpd +++| 04068 M00S03936.acpd +++|# 04069 M00S03937.acpd +++|* DETERMINE MINIMUM AND MAXIMUM INTERVALS. 04070 M00S03938.acpd +++|# 04071 M00S03939.acpd +++| 04072 M00S03940.acpd +++| P<VAL>=PVL; 04073 M00S03941.acpd +++| P<MXN>=TMX; 04074 M00S03942.acpd +++| MX=1; 04075 M00S03943.acpd +++| MN=1; 04076 M00S03944.acpd +++| FASTFOR I=1 STEP 1 UNTIL NIPP 04077 M00S03945.acpd +++| DO 04078 M00S03946.acpd +++| BEGIN # FIND MAXIMUM AND MINIMUM COLUMNS # 04079 M00S03947.acpd +++| IF (VL$F[I] GR VL$F[MX]) 04080 M00S03948.acpd +++| THEN 04081 M00S03949.acpd +++| BEGIN 04082 M00S03950.acpd +++| MX=I; # CURRENT MAXIMUM POSITION # 04083 M00S03951.acpd +++| END 04084 M00S03952.acpd +++| 04085 M00S03953.acpd +++| IF (VL$F[I] LS VL$F[MN]) 04086 M00S03954.acpd +++| THEN 04087 M00S03955.acpd +++| BEGIN 04088 M00S03956.acpd +++| MN=I; # CURRENT MINIMUM POSITION # 04089 M00S03957.acpd +++| END 04090 M00S03958.acpd +++| 04091 M00S03959.acpd +++| END # FIND MAXIMUM AND MINIMUM COLUMNS # 04092 M00S03960.acpd +++| 04093 M00S03961.acpd +++|# 04094 M00S03962.acpd +++|* UPDATE CURRENT VALUES OF TOTAL MAXIMUM AND MINIMUM. 04095 M00S03963.acpd +++|# 04096 M00S03964.acpd +++| 04097 M00S03965.acpd +++| IF (VL$F[MX] GR MXN$MX[0]) # INTERVAL MAXIMUM .GT. 04098 M00S03966.acpd +++| TOTAL MAXIMUM # 04099 M00S03967.acpd +++| THEN 04100 M00S03968.acpd +++| BEGIN 04101 M00S03969.acpd +++| MXN$MX[0]=VL$F[MX]; # UPDATE TOTAL MAXIMUM # 04102 M00S03970.acpd +++| END 04103 M00S03971.acpd +++| 04104 M00S03972.acpd +++| IF (VL$F[MN] LS MXN$MN[0]) # INTERVAL MINIMUM .LT. 04105 M00S03973.acpd +++| TOTAL MINIMUM # 04106 M00S03974.acpd +++| THEN 04107 M00S03975.acpd +++| BEGIN 04108 M00S03976.acpd +++| MXN$MN[0]=VL$F[MN]; # UPDATE TOTAL MINIMUM # 04109 M00S03977.acpd +++| END 04110 M00S03978.acpd +++| 04111 M00S03979.acpd +++| IF (DTY NQ FLPC) # NOT FLOATING POINT # 04112 M00S03980.acpd +++| THEN # CONVERT VALUES TO INTEGER # 04113 M00S03981.acpd +++| BEGIN 04114 M00S03982.acpd +++| FASTFOR I=1 STEP 1 UNTIL NIPP+1 04115 M00S03983.acpd +++| DO 04116 M00S03984.acpd +++| BEGIN 04117 M00S03985.acpd +++| X=VL$F[I]; 04118 M00S03986.acpd +++| VL$N[I]=X; 04119 M00S03987.acpd +++| END 04120 M00S03988.acpd +++| 04121 M00S03989.acpd +++| END 04122 M00S03990.acpd +++| 04123 M00S03991.acpd +++|# 04124 M00S03992.acpd +++|* NOW PRINT THE VALUES IN ONE LINE STARTING FROM 04125 M00S03993.acpd +++|* COLUMN *BCLC*. 04126 M00S03994.acpd +++|# 04127 M00S03995.acpd +++| 04128 M00S03996.acpd +++| CL=BCLC; 04129 M00S03997.acpd +++| FASTFOR I=1 STEP 1 UNTIL NIPP 04130 M00S03998.acpd +++| DO 04131 M00S03999.acpd +++| BEGIN 04132 M00S04000.acpd +++| WRITEV(VL$F[I],DTY,CL,10,NLFC); 04133 M00S04001.acpd +++| CL=CL+10; 04134 M00S04002.acpd +++| END 04135 M00S04003.acpd +++| 04136 M00S04004.acpd +++|# 04137 M00S04005.acpd +++|* INDICATE MINIMUM AND MAXIMUM INTERVAL VALUES BY ENCLOSING 04138 M00S04006.acpd +++|* THEM IN PARENTHESES AND BRACKETS, RESPECTIVELY. 04139 M00S04007.acpd +++|# 04140 M00S04008.acpd +++| 04141 M00S04009.acpd +++| IF (MX NQ MN) 04142 M00S04010.acpd +++| THEN 04143 M00S04011.acpd +++| BEGIN 04144 M00S04012.acpd +++| DETMXM(VL$F[MX],VL$F[MN],MX,MN,DTY); 04145 M00S04013.acpd +++| END 04146 M00S04014.acpd +++| 04147 M00S04015.acpd +++| IF (TCOL GR (DCDC-3)) 04148 M00S04016.acpd +++| THEN 04149 M00S04017.acpd +++| BEGIN 04150 M00S04018.acpd +++| WRITEV(VL$F[NIPP+1],DTY,CL+1,9,CR); # WRITE SUBTOTAL # 04151 M00S04019.acpd +++| END 04152 M00S04020.acpd +++| 04153 M00S04021.acpd +++| RETURN; 04154 M00S04022.acpd +++| END # PRDTEL # 04155 M00S04023.acpd +++| 04156 M00S04024.acpd +++| TERM 04157 M00S04025.acpd +++|PROC PUTBLK((NSF),(FWA),(LWA)); 04158 M00S04026.acpd +++|# TITLE PUTBLK - PRINT ELEMENTS OF ONE LOOP OF DATA BLOCK. # 04159 M00S04027.acpd +++| 04160 M00S04028.acpd +++| BEGIN # PUTBLK # 04161 M00S04029.acpd +++| 04162 M00S04030.acpd +++|# 04163 M00S04031.acpd +++|** PUTBLK - PRINT ELEMENTS OF ONE LOOP OF DATA BLOCK. 04164 M00S04032.acpd +++|* 04165 M00S04033.acpd +++|* PUTBLK IS THE DRIVER IN PRINTING THE DATA BLOCK ELMENTS 04166 M00S04034.acpd +++|* (FAST LOOP, MEDIUM LOOP, SLOW LOOP). 04167 M00S04035.acpd +++|* 04168 M00S04036.acpd +++|* PROC PUTBLK((NSF),(FWA),(LWA)) 04169 M00S04037.acpd +++|* 04170 M00S04038.acpd +++|* ENTRY NSF = NUMBER OF RECORDS PER INTERVAL. 04171 M00S04039.acpd +++|* FWA = FIRST WORD ADDRESS OF LOOP IN TABLE *DSPT*. 04172 M00S04040.acpd +++|* LWA = LAST WORD ADDRESS OF LOOP IN TABLE *DSPT*. 04173 M00S04041.acpd +++|* 04174 M00S04042.acpd +++|* EXIT DATA ELEMENTS OF ONE LOOP ARE PRINTED BY THE 04175 M00S04043.acpd +++|* ORDER SPECIFIED IN TABLE *DSPT*. 04176 M00S04044.acpd +++|# 04177 M00S04045.acpd +++| 04178 M00S04046.acpd +++|# 04179 M00S04047.acpd +++|* PARAMETER LIST. 04180 M00S04048.acpd +++|# 04181 M00S04049.acpd +++| 04182 M00S04050.acpd +++| ITEM NSF I; # NUMBER OF RECORDS PER INTERVAL # 04183 M00S04051.acpd +++| ITEM FWA I; # *FWA* OF BLOCK IN *DSPT* TABLE # 04184 M00S04052.acpd +++| ITEM LWA I; # *LWA* OF BLOCK IN *DSPT* TABLE # 04185 M00S04053.acpd +++| 04186 M00S04054.acpd +++|# 04187 M00S04055.acpd +++|**** PROC PUTBLK - XREF LIST BEGIN.
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/acpd.001.txt · Last modified: (external edit)