cdc:nos2.source:opl.opl871:deck:acpd.002
Deck ACPD Part 002
9 Modifications
Listing Sections
- Deck ACPD Start
- Deck ACPD Part 1 (Line 2081)
- Deck ACPD Part 2 (Line 4188)
Source
Seq # *Modification Id* Act ----------------------------+ 04188 M00S04056.acpd +++|# 04189 M00S04057.acpd +++| 04190 M00S04058.acpd +++| XREF 04191 M00S04059.acpd +++| BEGIN 04192 M00S04060.acpd +++| PROC DATELM; # PROCESS ONE DATA BLOCK ELEMENT # 04193 M00S04061.acpd +++| PROC GETMSG; # GET MESSAGE FROM *DSPTTXT* # 04194 M00S04062.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT # 04195 M00S04063.acpd +++| END 04196 M00S04064.acpd +++| 04197 M00S04065.acpd +++|# 04198 M00S04066.acpd +++|**** PROC PUTBLK - XREF LIST END. 04199 M00S04067.acpd +++|# 04200 M00S04068.acpd +++| 04201 M00S04069.acpd +++| DEF BLKC #" "#; # BLANK # 04202 M00S04070.acpd +++| DEF NSBC #O"777"#; # NO SUBBLOCK FLAG # 04203 M00S04071.acpd +++| 04204 M00S04072.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 04205 M00S04073.acpd +++| 04206 M00S04074.acpd +++|*CALL COMUCPD 04207 M00S04075.acpd +++| 04208 M00S04076.acpd +++|# 04209 M00S04077.acpd +++|* LOCAL VARIABLES. 04210 M00S04078.acpd +++|# 04211 M00S04079.acpd +++| 04212 M00S04080.acpd +++| ITEM CT I; # INDEX OF *DSPT* TABLE # 04213 M00S04081.acpd +++| ITEM FG B; # FLAG TO PRINT SUBBLOCK TITLE # 04214 M00S04082.acpd +++| ITEM FW I; # INDEX OF *DCDT* TABLE # 04215 M00S04083.acpd +++| ITEM I I; # FOR LOOP CONTROL # 04216 M00S04084.acpd +++| ITEM IC I; # INCREMENTOR # 04217 M00S04085.acpd +++| ITEM J I; # INDEX # 04218 M00S04086.acpd +++| ITEM LN I; # LENGTH OF DATA ITEM # 04219 M00S04087.acpd +++| ITEM MS1 C(50); # TEMPORARY BUFFER # 04220 M00S04088.acpd +++| ITEM POS I; # RELATIVE POSITION OF *WFP* # 04221 M00S04089.acpd +++| ITEM PT I; # INDEX OF *DDDT* TABLE # 04222 M00S04090.acpd +++| ITEM SM I; # SAMPLE TIMES # 04223 M00S04091.acpd +++| ITEM ST I; # POINTER TO SUBTABLE # 04224 M00S04092.acpd +++| ITEM SUM I; # SAMPLE TIMES SUBTOTAL # 04225 M00S04093.acpd +++| ITEM T I; # TEMPORARY STORAGE # 04226 M00S04094.acpd +++| ITEM TY I; # DATA TYPE # 04227 M00S04095.acpd +++| ITEM WA I; # WEIGHT FACTOR INFORMATION # 04228 M00S04096.acpd +++| ITEM WIC I; # INCREMENTOR OF WEIGHT FACTOR # 04229 M00S04097.acpd +++| ITEM WP I; # WEIGHT FACTOR # 04230 M00S04098.acpd +++| 04231 M00S04099.acpd +++| ARRAY MS2 [0:2] P(1); # SUBBLOCK MESSAGE BUFFER # 04232 M00S04100.acpd +++| BEGIN # ARRAY MS2 # 04233 M00S04101.acpd +++| ITEM MS2$MS C(00,00,10)=[" "," "," "]; # MESSAGE BUFFER # 04234 M00S04102.acpd +++| END # ARRAY MS2 # 04235 M00S04103.acpd +++| 04236 M00S04104.acpd +++| 04237 M00S04105.acpd +++| 04238 M00S04106.acpd +++| 04239 M00S04107.acpd +++| 04240 M00S04108.acpd +++|# 04241 M00S04109.acpd +++|* BEGIN PUTBLK PROC. 04242 M00S04110.acpd +++|# 04243 M00S04111.acpd +++| 04244 M00S04112.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 04245 M00S04113.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]); 04246 M00S04114.acpd +++| PT=DSPT$PT[FWA]; # POINTER TO *DDDT* # 04247 M00S04115.acpd +++| GETMSG(FWA,MS1); 04248 M00S04116.acpd +++| WRITEV(MS1,CHRC,1,22,NLFC); 04249 M00S04117.acpd +++| 04250 M00S04118.acpd +++|# 04251 M00S04119.acpd +++|* PRINT SAMPLE TIMES. *NIPP* IS THE NUMBER OF COLUMNS PER PAGE. 04252 M00S04120.acpd +++|# 04253 M00S04121.acpd +++| 04254 M00S04122.acpd +++| J=BCLC; # STARTING POSITION TO PRINT # 04255 M00S04123.acpd +++| SUM=0; 04256 M00S04124.acpd +++| P<DDSC>=LOC(DDDT); 04257 M00S04125.acpd +++| 04258 M00S04126.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP 04259 M00S04127.acpd +++| DO 04260 M00S04128.acpd +++| BEGIN 04261 M00S04129.acpd +++| SM=DCDT$WD[(I-1)*DCDL + DDSC$FW[PT]]; 04262 M00S04130.acpd +++| WRITEV(SM,INTC,J,10,NLFC); 04263 M00S04131.acpd +++| SUM=SUM+SM; 04264 M00S04132.acpd +++| J=J+10; 04265 M00S04133.acpd +++| END 04266 M00S04134.acpd +++| 04267 M00S04135.acpd +++| IF (NIPP GR (DCDC-3)) # MORE THAN 7 COLUMNS # 04268 M00S04136.acpd +++| THEN # NO TOTAL ON THIS PAGE # 04269 M00S04137.acpd +++| BEGIN 04270 M00S04138.acpd +++| WRITEV(SUM,INTC,J,10,LFDC); # PRINT SUBTOTAL # 04271 M00S04139.acpd +++| END 04272 M00S04140.acpd +++| 04273 M00S04141.acpd +++| ELSE # PRINT TOTAL ON SAME PAGE # 04274 M00S04142.acpd +++| BEGIN 04275 M00S04143.acpd +++| IF (NIPP GR 0) # MORE THAN 1 COLUMN COLLECTED # 04276 M00S04144.acpd +++| AND (TCOL GR (DCDC-3)) 04277 M00S04145.acpd +++| THEN # PRINT SUBTOTAL # 04278 M00S04146.acpd +++| BEGIN 04279 M00S04147.acpd +++| WRITEV(SUM,INTC,J,10,NLFC); 04280 M00S04148.acpd +++| J=J+10; 04281 M00S04149.acpd +++| END 04282 M00S04150.acpd +++| 04283 M00S04151.acpd +++| SUM=DDSM$IM[DDSC$FW[PT]]; # TOTAL SAMPLES # 04284 M00S04152.acpd +++| WRITEV(SUM,INTC,J,10,LFDC); 04285 M00S04153.acpd +++| END 04286 M00S04154.acpd +++| 04287 M00S04155.acpd +++|# 04288 M00S04156.acpd +++|* COMPUTE AND PRINT LOOP ELEMENTS. 04289 M00S04157.acpd +++|* THE PROCESSING OF THE LOOP ELEMENTS WILL FOLLOW THE 04290 M00S04158.acpd +++|* INSTRUCTIONS CONTAINED IN THE *DSPT* TABLE FROM 04291 M00S04159.acpd +++|* *FWA* TO *LWA*. 04292 M00S04160.acpd +++|# 04293 M00S04161.acpd +++| 04294 M00S04162.acpd +++| CT=FWA+1; 04295 M00S04163.acpd +++| FASTFOR I=0 WHILE (CT LQ LWA) 04296 M00S04164.acpd +++| DO 04297 M00S04165.acpd +++| BEGIN # FOLLOW TABLE *DSPT* # 04298 M00S04166.acpd +++| PT=DSPT$PT[CT]; # POINTER TO *DDSC* TABLE # 04299 M00S04167.acpd +++| IF NOT (DDSC$SD[PT]) # ELEMENT IS NOT SELECTED # 04300 M00S04168.acpd +++| THEN 04301 M00S04169.acpd +++| BEGIN 04302 M00S04170.acpd +++| CT=CT+1; 04303 M00S04171.acpd +++| TEST I; # SKIP IT # 04304 M00S04172.acpd +++| END 04305 M00S04173.acpd +++| 04306 M00S04174.acpd +++| ST=DSPT$ST[CT]; # POINTER TO SUBTITLE TABLE # 04307 M00S04175.acpd +++| GETMSG(CT,MS1); 04308 M00S04176.acpd +++| WA=DDSC$WA[PT]; # WEIGHT FACTOR INFORMATION # 04309 M00S04177.acpd +++| WP=DDSC$WP[PT]; # WEIGHT FACTOR # 04310 M00S04178.acpd +++| IF (WA EQ WGFC) # WEIGHT FACTOR SPECIFIED # 04311 M00S04179.acpd +++| THEN 04312 M00S04180.acpd +++| BEGIN # CHECK IF MULTIPLE WEIGHT FACTORS # 04313 M00S04181.acpd +++| P<DDSC>=LOC(DDHD); 04314 M00S04182.acpd +++| IF (DDSC$LN[WP] GR 1) # MORE THAN 1 WEIGHT FACTOR # 04315 M00S04183.acpd +++| THEN 04316 M00S04184.acpd +++| BEGIN 04317 M00S04185.acpd +++| WIC=DDSC$IC[WP]; # WEIGHT FACTOR INCREMENTOR # 04318 M00S04186.acpd +++| END 04319 M00S04187.acpd +++| 04320 M00S04188.acpd +++| ELSE 04321 M00S04189.acpd +++| BEGIN 04322 M00S04190.acpd +++| WIC=0; 04323 M00S04191.acpd +++| END 04324 M00S04192.acpd +++| 04325 M00S04193.acpd +++| P<DDSC>=LOC(DDDT); 04326 M00S04194.acpd +++| END # CHECK IF MULTIPLE WEIGHT FACTORS # 04327 M00S04195.acpd +++| 04328 M00S04196.acpd +++| TY=DDSC$TY[PT]; # DATA TYPE # 04329 M00S04197.acpd +++| FW=DDSC$FW[PT]; # POINTER TO *DCDT* TABLE # 04330 M00S04198.acpd +++| LN=DDSC$LN[PT]; # NUMBER OF ENTRIES # 04331 M00S04199.acpd +++| IC=DDSC$IC[PT]; # INCREMENTOR # 04332 M00S04200.acpd +++| 04333 M00S04201.acpd +++|# 04334 M00S04202.acpd +++|* IF THE POINTER TO SUBBLOCK TITLE TABLE *ST* IS NIL (*NSBC*), 04335 M00S04203.acpd +++|* THE ELEMENT IS A SINGLE ENTRY ELEMENT OR HAS NO SUBTITLES. 04336 M00S04204.acpd +++|# 04337 M00S04205.acpd +++| 04338 M00S04206.acpd +++| 04339 M00S04207.acpd +++| IF (ST EQ NSBC) # SINGLE ENTRY OR NO SUBTITLE # 04340 M00S04208.acpd +++| THEN 04341 M00S04209.acpd +++| BEGIN # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT # 04342 M00S04210.acpd +++| FG=FALSE; # DO NOT PRINT SUBBLOCK TITLE # 04343 M00S04211.acpd +++| POS=0; # FIRST WEIGHT FACTOR POSITION # 04344 M00S04212.acpd +++| SLOWFOR J=1 STEP 1 WHILE (J LS LN) 04345 M00S04213.acpd +++| DO 04346 M00S04214.acpd +++| BEGIN 04347 M00S04215.acpd +++| DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF); 04348 M00S04216.acpd +++| CT=CT+1; 04349 M00S04217.acpd +++| GETMSG(CT,MS1); 04350 M00S04218.acpd +++| FW=FW+IC; 04351 M00S04219.acpd +++| POS=POS+WIC; 04352 M00S04220.acpd +++| END 04353 M00S04221.acpd +++| 04354 M00S04222.acpd +++| DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF); 04355 M00S04223.acpd +++| END # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT # 04356 M00S04224.acpd +++| 04357 M00S04225.acpd +++|# 04358 M00S04226.acpd +++|* THE ELEMENT HAS SUBTITLES TO BE PROCESS. EACH ENTRY OF THE 04359 M00S04227.acpd +++|* MULTIPLE-ENTRY ELEMENT HAS A SUBTITLE DEFINED IN TABLE *SMGT*. 04360 M00S04228.acpd +++|# 04361 M00S04229.acpd +++| 04362 M00S04230.acpd +++| ELSE 04363 M00S04231.acpd +++| BEGIN # MULTIPLE ENTRIES # 04364 M00S04232.acpd +++| T=ST; 04365 M00S04233.acpd +++| FG=TRUE; # PRINT SUBBLOCK # 04366 M00S04234.acpd +++| POS=0; 04367 M00S04235.acpd +++| FASTFOR J=1 STEP 1 UNTIL LN 04368 M00S04236.acpd +++| DO 04369 M00S04237.acpd +++| BEGIN # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT # 04370 M00S04238.acpd +++| MS2$MS[1]=SMGT$TX[T]; 04371 M00S04239.acpd +++| IF (MS2$MS[1] EQ BLKC) # END OF SUBBLOCK TABLE # 04372 M00S04240.acpd +++| THEN 04373 M00S04241.acpd +++| BEGIN 04374 M00S04242.acpd +++| T=ST; # RESET *SMGT* POINTER # 04375 M00S04243.acpd +++| CT=CT+1; # NEXT *DSPT* ELEMENT # 04376 M00S04244.acpd +++| GETMSG(CT,MS1); 04377 M00S04245.acpd +++| MS2$MS[1]=SMGT$TX[T]; 04378 M00S04246.acpd +++| FG=TRUE; # PRINT SUBBLOCK # 04379 M00S04247.acpd +++| END 04380 M00S04248.acpd +++| 04381 M00S04249.acpd +++| DATELM(FG,MS1,MS2,WA,WP,POS,TY,FW,NSF); 04382 M00S04250.acpd +++| 04383 M00S04251.acpd +++| T=T+1; 04384 M00S04252.acpd +++| FW=FW+IC; 04385 M00S04253.acpd +++| POS=POS+WIC; 04386 M00S04254.acpd +++| END # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT # 04387 M00S04255.acpd +++| 04388 M00S04256.acpd +++| END # MULTIPLE ENTRIES # 04389 M00S04257.acpd +++| 04390 M00S04258.acpd +++| CT=CT+1; 04391 M00S04259.acpd +++| END # FOLLOW TABLE *DSPT* # 04392 M00S04260.acpd +++| 04393 M00S04261.acpd +++| END # PUTBLK # 04394 M00S04262.acpd +++| 04395 M00S04263.acpd +++| TERM 04396 M00S04264.acpd +++|PROC PUTDAT((NSF),(NIN)); 04397 M00S04265.acpd +++|# TITLE PUTDAT - PRINT DATA BLOCK ELEMENTS. # 04398 M00S04266.acpd +++| 04399 M00S04267.acpd +++| BEGIN # PUTDAT # 04400 M00S04268.acpd +++| 04401 M00S04269.acpd +++|# 04402 M00S04270.acpd +++|** PUTDAT - PRINT DATA BLOCK ELEMENTS. 04403 M00S04271.acpd +++|* 04404 M00S04272.acpd +++|* PRINT FAST, MEDIUM, SLOW, AND SNAPSHOT LOOPS. 04405 M00S04273.acpd +++|* 04406 M00S04274.acpd +++|* PROC PUTDAT((NSF),(NIN)) 04407 M00S04275.acpd +++|* 04408 M00S04276.acpd +++|* ENTRY NSF = NUMBER OF RECORDS PER INTERVAL. 04409 M00S04277.acpd +++|* NIN = NUMBER OF INTERVALS PER PAGE. 04410 M00S04278.acpd +++|* TABLE *DCDT* CONTAINS DATA BLOCK ELEMENT VALUES. 04411 M00S04279.acpd +++|* 04412 M00S04280.acpd +++|* EXIT DATA BLOCK ELEMENTS ARE PRINTED TO THE REPORT 04413 M00S04281.acpd +++|* FILE. 04414 M00S04282.acpd +++|# 04415 M00S04283.acpd +++| 04416 M00S04284.acpd +++|# 04417 M00S04285.acpd +++|* PARAMETER LIST. 04418 M00S04286.acpd +++|# 04419 M00S04287.acpd +++| 04420 M00S04288.acpd +++| ITEM NSF I; # NUMBER OF RECORDS PER INTERVAL # 04421 M00S04289.acpd +++| ITEM NIN I; # NUMBER OF INTERVALS PER PAGE # 04422 M00S04290.acpd +++| 04423 M00S04291.acpd +++|# 04424 M00S04292.acpd +++|**** PROC PUTDAT - XREF LIST BEGIN. 04425 M00S04293.acpd +++|# 04426 M00S04294.acpd +++| 04427 M00S04295.acpd +++| XREF 04428 M00S04296.acpd +++| BEGIN 04429 M00S04297.acpd +++| PROC PUTBLK; # PRINT ONE LOOP DATA ELEMENTS #
| Line S04298 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04430 M01S04298.v23l617 ---| PROC PUTPMF; # PRINT *PMF* HARDWARE RATIOS # 04431 M00S04299.acpd +++| PROC PUTSNS; # PRINT SNAPSHOT LOOP ELEMENTS # 04432 M00S04300.acpd +++| PROC RPEJECT; # PAGE EJECT # 04433 M00S04301.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT # 04434 M00S04302.acpd +++| END 04435 M00S04303.acpd +++| 04436 M00S04304.acpd +++|# 04437 M00S04305.acpd +++|**** PROC PUTDAT - XREF LIST END. 04438 M00S04306.acpd +++|# 04439 M00S04307.acpd +++| 04440 M00S04308.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 04441 M00S04309.acpd +++| 04442 M00S04310.acpd +++|*CALL COMUCPD 04443 M00S04311.acpd +++| 04444 M00S04312.acpd +++|# 04445 M00S04313.acpd +++|* LOCAL VARIABLES. 04446 M00S04314.acpd +++|# 04447 M00S04315.acpd +++| 04448 M00S04316.acpd +++| ITEM FW I; # LOOP BEGINNING INDEX # 04449 M00S04317.acpd +++| ITEM LW I; # LOOP ENDING INDEX # 04450 M00S04318.acpd +++| ITEM MSG C(30)="**********************"; 04451 M00S04319.acpd +++| # LOOP REPORT SEPARATOR # 04452 M00S04320.acpd +++| 04453 M00S04321.acpd +++| 04454 M00S04322.acpd +++| 04455 M00S04323.acpd +++| 04456 M00S04324.acpd +++| 04457 M00S04325.acpd +++|# 04458 M00S04326.acpd +++|* BEGIN PUTDAT PROC. 04459 M00S04327.acpd +++|# 04460 M00S04328.acpd +++| 04461 M00S04329.acpd +++| NIPP=NIN; 04462 M00S04330.acpd +++| IF (P$L NQ NULL) # REPORT FILE SPECIFIED # 04463 M00S04331.acpd +++| THEN 04464 M00S04332.acpd +++| BEGIN 04465 M00S04333.acpd +++| RPEJECT(OFFA); # PAGE EJECT # 04466 M00S04334.acpd +++| END 04467 M00S04335.acpd +++| 04468 M00S04336.acpd +++| P<DCHD>=LOC(DBUF); 04469 M00S04337.acpd +++| P<DDSC>=LOC(DDHD); 04470 M00S04338.acpd +++| 04471 M00S04339.acpd +++| IF (DCHD$WD[DDSC$FW[DLIL]] NQ 0) # FAST LOOP WAS COLLECTED # 04472 M00S04340.acpd +++| THEN 04473 M00S04341.acpd +++| BEGIN 04474 M00S04342.acpd +++| FW=HDML; 04475 M00S04343.acpd +++| LW=FW+FSML-1; 04476 M00S04344.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS FAST LOOP # 04477 M00S04345.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC); 04478 M00S04346.acpd +++| END 04479 M00S04347.acpd +++| 04480 M00S04348.acpd +++| IF (DCHD$WD[DDSC$FW[DLML]] NQ 0) # MEDIUM LOOP WAS COLLECTED # 04481 M00S04349.acpd +++| THEN 04482 M00S04350.acpd +++| BEGIN 04483 M00S04351.acpd +++| FW=HDML+FSML; 04484 M00S04352.acpd +++| LW=FW+MDML-1; 04485 M00S04353.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS MEDIUM LOOP # 04486 M00S04354.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC); 04487 M00S04355.acpd +++| END 04488 M00S04356.acpd +++| 04489 M00S04357.acpd +++| IF (DCHD$WD[DDSC$FW[DLOL]] NQ 0) # SLOW LOOP WAS COLLECTED # 04490 M00S04358.acpd +++| THEN 04491 M00S04359.acpd +++| BEGIN 04492 M00S04360.acpd +++| FW=HDML+FSML+MDML; 04493 M00S04361.acpd +++| LW=FW+SLML-1; 04494 M00S04362.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS SLOW LOOP #
| Line S04363 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04495 M01S04363.v23l617 ---| FW=LW+1; 04496 M01S04364.v23l617 ---| PUTPMF(FW); # PROCESS *PMF* HARDWARE RATIO # 04497 M01S04365.v23l617 ---| LW=FW+DRVL-1; 04498 M00S04366.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC); 04499 M00S04367.acpd +++| END 04500 M00S04368.acpd +++| 04501 M00S04369.acpd +++| IF (NIN GR 0) # NUMBER OF COLUMNS .GT. 0 # 04502 M00S04370.acpd +++| AND (DCHD$WD[DDSC$FW[DLFW]] NQ 0) # SNAPSHOT WAS COLLECTED # 04503 M00S04371.acpd +++| THEN 04504 M00S04372.acpd +++| BEGIN
| Line S04373 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04505 M01S04373.v23l617 ---| FW=HDML+FSML+MDML+SLML+DRVL;
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 04506 M01S00078.v23l617 +++| FW=HDML+FSML+MDML+SLML; 04507 M00S04374.acpd +++| LW=FW+SNML-1; 04508 M00S04375.acpd +++| TLFG=2; 04509 M00S04376.acpd +++| PUTSNS(FW,LW); # PROCESS SNAPSHOT LOOP ELEMENTS # 04510 M00S04377.acpd +++| TLFG=1; 04511 M00S04378.acpd +++| END 04512 M00S04379.acpd +++| 04513 M00S04380.acpd +++| RETURN; 04514 M00S04381.acpd +++| END # PUTDAT # 04515 M00S04382.acpd +++| 04516 M00S04383.acpd +++| TERM 04517 M00S04384.acpd +++|PROC PUTEST; 04518 M00S04385.acpd +++|# TITLE PUTEST - PRINT *EST*. # 04519 M00S04386.acpd +++| 04520 M00S04387.acpd +++| BEGIN # PUTEST # 04521 M00S04388.acpd +++| 04522 M00S04389.acpd +++|# 04523 M00S04390.acpd +++|** PUTEST - PRINT *EST*. 04524 M00S04391.acpd +++|* 04525 M00S04392.acpd +++|* PRINT *EST* TABLE. 04526 M00S04393.acpd +++|* 04527 M00S04394.acpd +++|* PROC PUTEST 04528 M00S04395.acpd +++|* 04529 M00S04396.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES. 04530 M00S04397.acpd +++|* 04531 M00S04398.acpd +++|* EXIT EST IS WRITTEN TO THE REPORT FILE. 04532 M00S04399.acpd +++|* 04533 M00S04400.acpd +++|* NOTE. 04534 M00S04401.acpd +++|* 04535 M00S04402.acpd +++|* THE SYMBOL *SROS* DEFINED IN THIS ROUTINE HAS TO HAVE 04536 M00S04403.acpd +++|* THE SAME VALUE AS THE SYMBOL *SROS* DEFINED IN COMMON 04537 M00S04404.acpd +++|* DECK *COMSCPS*. 04538 M00S04405.acpd +++|* THE ITEMS *FATT* AND *FATL* HAVE TO BE CHANGED ACCORDINGLY 04539 M00S04406.acpd +++|* IF CHANGE IS MADE TO THE FILE TYPES. 04540 M00S04407.acpd +++|# 04541 M00S04408.acpd +++| 04542 M00S04409.acpd +++|# 04543 M00S04410.acpd +++|**** PROC PUTEST - XREF LIST BEGIN. 04544 M00S04411.acpd +++|# 04545 M00S04412.acpd +++| 04546 M00S04413.acpd +++| XREF 04547 M00S04414.acpd +++| BEGIN 04548 M00S04415.acpd +++| PROC RPEJECT; # PAGE EJECT # 04549 M00S04416.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT # 04550 M00S04417.acpd +++| FUNC XCOD C(10); # BINARY TO DISPLAY OCTAL # 04551 M00S04418.acpd +++| END 04552 M00S04419.acpd +++| 04553 M00S04420.acpd +++|# 04554 M00S04421.acpd +++|**** PROC PUTEST - XREF LIST END. 04555 M00S04422.acpd +++|# 04556 M00S04423.acpd +++| 04557 M00S04424.acpd +++| DEF BLKC #" "#; # BLANK # 04558 M00S04425.acpd +++| DEF CHSC #"S"#; # CHARACTER S # 04559 M00S04426.acpd +++| DEF CHXC #"X"#; # CHARACTER X # 04560 M00S04427.acpd +++| DEF MGMC #"MT"#; # *MT* TAPE # 04561 M00S04428.acpd +++| DEF MGNC #"NT"#; # *NT* TAPE # 04562 M00S04429.acpd +++| DEF MNSC #"-"#; # MINUS SIGN # 04563 M00S04430.acpd +++| DEF MXMSA #47#; # MAXIMUM MS ALLOCATABLE DEVICE # 04564 M00S04431.acpd +++| DEF SROS #8#; # SECONDARY ROLLOUT DEVICE # 04565 M00S04432.acpd +++| 04566 M00S04433.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 04567 M00S04434.acpd +++| 04568 M00S04435.acpd +++|*CALL COMUCPD 04569 M00S04436.acpd +++|*CALL COMUEST 04570 M00S04437.acpd +++| 04571 M00S04438.acpd +++|# 04572 M00S04439.acpd +++|* LOCAL VARIABLES. 04573 M00S04440.acpd +++|# 04574 M00S04441.acpd +++| 04575 M00S04442.acpd +++| ITEM FATL C(12) 04576 M00S04443.acpd +++| = "TIORDPLBSRRN"; # FILES TYPE # 04577 M00S04444.acpd +++| ITEM FATT C(12); # TEMPORARY BUFFER # 04578 M00S04445.acpd +++| ITEM I I; # FOR LOOP CONTROL # 04579 M00S04446.acpd +++| ITEM J I; # FOR LOOP CONTROL # 04580 M00S04447.acpd +++| ITEM L I; # FOR LOOP CONTROL # 04581 M00S04448.acpd +++| ITEM M I; # TEMPORARY STORAGE # 04582 M00S04449.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER # 04583 M00S04450.acpd +++| ITEM MXRS I; # NUMBER OF *MSAL* CATEGORIES # 04584 M00S04451.acpd +++| ITEM MSI I; # MST ORDINAL # 04585 M00S04452.acpd +++| ITEM MSIC I; # MST INCREMENTOR # 04586 M00S04453.acpd +++| ITEM MUI I; # MST ORDINAL # 04587 M00S04454.acpd +++| ITEM MUIC I; # MST INCREMENTOR # 04588 M00S04455.acpd +++| ITEM N I; # TEMPORARY STORAGE # 04589 M00S04456.acpd +++|
| Line S04457 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04590 M01S04457.252l678 ---| ARRAY CHNN [0:3] P(1); # CHANNELS #
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04591 M01S00003.252l678 +++| ARRAY CHNN [0:1] P(1); # CHANNELS # 04592 M00S04458.acpd +++| BEGIN # ARRAY CHNN # 04593 M00S04459.acpd +++| ITEM CH U(00,00,60); # CHANNEL WORD #
| Line S04460 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04594 M01S04460.252l678 ---| ITEM CHDWN B(00,54,01); # CHANNEL DOWN FLAG #
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04595 M01S00004.252l678 +++| ITEM CHAPFLAG B(00,48,01); # CHANNEL ACCESS PATH FLAG # 04596 M01S00005.252l678 +++| ITEM CHSTATUS U(00,49,02); # CHANNEL STATUS # 04597 M01S00006.252l678 +++| ITEM CHNUMBER U(00,55,05); # CHANNEL NUMBER # 04598 M00S04461.acpd +++| END # ARRAY CHNN # 04599 M00S04462.acpd +++| 04600 M00S04463.acpd +++| ARRAY TEM [0:0] P(1); # TEMPORARY BUFFER # 04601 M00S04464.acpd +++| BEGIN # ARRAY TEM # 04602 M00S04465.acpd +++| ITEM TEM$TYPE U(00,01,11); # EQUIPMENT TYPE # 04603 M00S04466.acpd +++| END # ARRAY TEM # 04604 M00S04467.acpd +++| 04605 M00S04468.acpd +++| 04606 M00S04469.acpd +++| 04607 M00S04470.acpd +++| 04608 M00S04471.acpd +++| 04609 M00S04472.acpd +++|# 04610 M00S04473.acpd +++|* BEGIN PUTEST PROC. 04611 M00S04474.acpd +++|# 04612 M00S04475.acpd +++| 04613 M00S04476.acpd +++| P<DCHD>=LOC(DBUF); 04614 M00S04477.acpd +++| P<DDSC>=LOC(DDHD); 04615 M00S04478.acpd +++| 04616 M00S04479.acpd +++| TLFG=3; # INDICATES PRINTING EST # 04617 M00S04480.acpd +++| RPEJECT(OFFA); 04618 M00S04481.acpd +++| 04619 M00S04482.acpd +++|# 04620 M00S04483.acpd +++|* PRINT EST ENTRY. 04621 M00S04484.acpd +++|# 04622 M00S04485.acpd +++| 04623 M00S04486.acpd +++| P<EST>=LOC(DCHD$WD[DDSC$FW[ESTB]]); 04624 M00S04487.acpd +++| MSI=0; 04625 M00S04488.acpd +++| MSIC=DDSC$IC[TRKC]; 04626 M00S04489.acpd +++| MUI=0; 04627 M00S04490.acpd +++| MUIC=DDSC$IC[MSUN]; 04628 M00S04491.acpd +++| 04629 M00S04492.acpd +++| SLOWFOR I=0 STEP 1 UNTIL DCHD$WD[DDSC$FW[ESTL]] - 1 04630 M00S04493.acpd +++| DO 04631 M00S04494.acpd +++| BEGIN # PROCESS ONE EST ENTRY # 04632 M00S04495.acpd +++| IF (EST$EQDE[I] EQ NULL) # ENTRY NOT DEFINED # 04633 M00S04496.acpd +++| THEN 04634 M00S04497.acpd +++| BEGIN 04635 M00S04498.acpd +++| TEST I; 04636 M00S04499.acpd +++| END 04637 M00S04500.acpd +++| 04638 M00S04501.acpd +++| WRITEV(I,OC2C,4,3,NLFC); # EST ORDINAL # 04639 M00S04502.acpd +++| TEM$TYPE[0]=EST$TYPE[I]; 04640 M00S04503.acpd +++| WRITEV(TEM,CHRC,11,2,NLFC); # DEVICE TYPE # 04641 M00S04504.acpd +++|
| Line S04505 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04642 M01S04505.252l678 ---| IF (NOT EST$OFF[I]) # NOT DEVICE OFF # 04643 M01S04506.252l678 ---| THEN 04644 M01S04507.252l678 ---| BEGIN 04645 M01S04508.252l678 ---| MSG="ON"; 04646 M01S04509.252l678 ---| END 04647 M01S04510.252l678 ---| 04648 M01S04511.252l678 ---| ELSE 04649 M01S04512.252l678 ---| BEGIN 04650 M01S04513.252l678 ---| MSG="OFF"; 04651 M01S04514.252l678 ---| END
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04652 M01S00007.252l678 +++| IF EST$STATUS[I] EQ 0 # ON DEVICE # 04653 M01S00008.252l678 +++| THEN 04654 M01S00009.252l678 +++| MSG="ON"; 04655 M01S00010.252l678 +++| ELSE 04656 M01S00011.252l678 +++| BEGIN 04657 M01S00012.252l678 +++| IF EST$STATUS[I] EQ 1 # IDLE DEVICE # 04658 M01S00013.252l678 +++| THEN 04659 M01S00014.252l678 +++| MSG="IDLE"; 04660 M01S00015.252l678 +++| ELSE 04661 M01S00016.252l678 +++| BEGIN 04662 M01S00017.252l678 +++| IF EST$STATUS[I] EQ 2 # OFF DEVICE # 04663 M01S00018.252l678 +++| THEN 04664 M01S00019.252l678 +++| MSG="OFF"; 04665 M01S00020.252l678 +++| ELSE # DOWN DEVICE # 04666 M01S00021.252l678 +++| MSG="DOWN"; 04667 M01S00022.252l678 +++| END 04668 M01S00023.252l678 +++| 04669 M01S00024.252l678 +++| END 04670 M00S04515.acpd +++| 04671 M00S04516.acpd +++| WRITEV(MSG,CHRC,16,3,NLFC); # DEVICE STATUS # 04672 M00S04517.acpd +++| 04673 M00S04518.acpd +++| IF (NOT EST$MS[I]) # NOT MASS STORAGE DEVICE # 04674 M00S04519.acpd +++| THEN 04675 M00S04520.acpd +++| BEGIN 04676 M00S04521.acpd +++| N=EST$EQU[I]; 04677 M00S04522.acpd +++| WRITEV(N,OC2C,22,2,NLFC); # EQUIPMENT NUMBER # 04678 M00S04523.acpd +++| N=EST$UN[I]; 04679 M00S04524.acpd +++| WRITEV(N,OC2C,26,2,NLFC); # UNIT NUMBER # 04680 M00S04525.acpd +++| END 04681 M00S04526.acpd +++| 04682 M00S04527.acpd +++| ELSE # MASS STORAGE DEVICE # 04683 M00S04528.acpd +++| BEGIN 04684 M00S04529.acpd +++| IF (EST$RMVE[I]) # REMOVABLE MASS STORAGE DEVICE # 04685 M00S04530.acpd +++| THEN 04686 M00S04531.acpd +++| BEGIN 04687 M00S04532.acpd +++| N=DCHD$WD[DDSC$FW[MSUN]+MUI]; 04688 M00S04533.acpd +++| WRITEV(N,OC2C,26,2,NLFC); 04689 M00S04534.acpd +++| END 04690 M00S04535.acpd +++| 04691 M00S04536.acpd +++| MUI=MUI + MUIC; 04692 M00S04537.acpd +++| END 04693 M00S04538.acpd +++| 04694 M00S04539.acpd +++|# 04695 M00S04540.acpd +++|* PRINT CHANNELS. 04696 M00S04541.acpd +++|# 04697 M00S04542.acpd +++| 04698 M00S04543.acpd +++| CH[0]=EST$CHANA[I]; # CHANNEL A #
| Line S04544 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04699 M01S04544.252l678 ---| CHDWN[0]=EST$DCHA[I]; # CHANNEL A DOWN FLAG #
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04700 M01S00025.252l678 +++| CHAPFLAG[0]=EST$CHAAE[I]; # CHANNEL A ACCESS ENABLED FLAG # 04701 M01S00026.252l678 +++| CHSTATUS[0]=EST$CHAST[I]; # CHANNEL A STATUS # 04702 M00S04545.acpd +++| CH[1]=EST$CHANB[I]; # CHANNEL B #
| Line S04546 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04703 M01S04546.252l678 ---| CHDWN[1]=EST$DCHB[I]; # CHANNEL B DOWN FLAG # 04704 M01S04547.252l678 ---| IF (EST$TYPE[I] NQ MGMC) AND (EST$TYPE[I] NQ MGNC) 04705 M01S04548.252l678 ---| THEN 04706 M01S04549.252l678 ---| BEGIN 04707 M01S04550.252l678 ---| CH[2]=0; 04708 M01S04551.252l678 ---| CH[3]=0; 04709 M01S04552.252l678 ---| END 04710 M01S04553.252l678 ---| 04711 M01S04554.252l678 ---| ELSE 04712 M01S04555.252l678 ---| BEGIN 04713 M01S04556.252l678 ---| CH[2]=EST$CHANC[I]; # CHANNEL C # 04714 M01S04557.252l678 ---| CHDWN[2]=EST$DCHC[I]; # CHANNEL C DOWN FLAG # 04715 M01S04558.252l678 ---| CH[3]=EST$CHAND[I]; # CHANNEL D # 04716 M01S04559.252l678 ---| CHDWN[3]=EST$DCHD[I]; # CHANNEL D DOWN FLAG # 04717 M01S04560.252l678 ---| END
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04718 M01S00027.252l678 +++| CHAPFLAG[1]=EST$CHBAE[I]; # CHANNEL B ACCESS ENABLED FLAG # 04719 M01S00028.252l678 +++| CHSTATUS[1]=EST$CHBST[I]; # CHANNEL B STATUS # 04720 M00S04561.acpd +++|
| Line S04562 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04721 M01S04562.252l678 ---| FASTFOR L=0 STEP 1 UNTIL 3
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04722 M01S00029.252l678 +++| FASTFOR L=0 STEP 1 UNTIL 1 04723 M00S04563.acpd +++| DO 04724 M00S04564.acpd +++| BEGIN # PRINT CHANNEL NUMBER #
| Line S04565 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04725 M01S04565.252l678 ---| IF (NOT CHDWN[L]) # CHANNEL NOT DOWN #
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04726 M01S00030.252l678 +++| IF (CHAPFLAG[L]) # CHANNEL ACCESS PATH ENABLED # 04727 M00S04566.acpd +++| THEN 04728 M00S04567.acpd +++| BEGIN
| Line S04568 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04729 M01S04568.252l678 ---| IF (L EQ 0) OR (CH[L] NQ 0)
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04730 M01S00031.252l678 +++| IF (CHSTATUS[L] EQ 0) # CHANNEL IS UP # 04731 M00S04569.acpd +++| THEN 04732 M00S04570.acpd +++| BEGIN
| Line S04571 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04733 M01S04571.252l678 ---| WRITEV(CH[L],OC2C,30+3*L,2,NLFC);
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 04734 M01S00032.252l678 +++| WRITEV(CHNUMBER[L],OC2C,30+3*L,2,NLFC); 04735 M00S04572.acpd +++| END 04736 M00S04573.acpd +++|
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04737 M01S00033.252l678 +++| ELSE
04738 M01S00034.252l678 +++| BEGIN
04739 M01S00035.252l678 +++| WRITEV("**",CHRC,30+3*L,2,NLFC);
04740 M01S00036.252l678 +++| END
04741 M01S00037.252l678 +++|
04742 M00S04574.acpd +++| END
04743 M00S04575.acpd +++|
| Line S04576 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04744 M01S04576.252l678 ---| ELSE
04745 M01S04577.252l678 ---| BEGIN
04746 M01S04578.252l678 ---| WRITEV("**",CHRC,30+3*L,2,NLFC);
04747 M01S04579.252l678 ---| END
04748 M00S04580.acpd +++|
04749 M00S04581.acpd +++| END # PRINT CHANNEL NUMBER #
04750 M00S04582.acpd +++|
04751 M00S04583.acpd +++|#
04752 M00S04584.acpd +++|* PRINT EST ENTRY IN FULL WORD, AND DEVICE TRACK CAPACITY.
04753 M00S04585.acpd +++|#
04754 M00S04586.acpd +++|
04755 M00S04587.acpd +++| N=EST$LHDE[I];
04756 M00S04588.acpd +++| WRITEV(N,OC3C,42,10,NLFC);
04757 M00S04589.acpd +++| N=EST$RHDE[I];
04758 M00S04590.acpd +++| WRITEV(N,OC3C,52,10,NLFC);
04759 M00S04591.acpd +++| N=EST$LHAE[I];
04760 M00S04592.acpd +++| WRITEV(N,OC3C,63,10,NLFC);
04761 M00S04593.acpd +++| N=EST$RHAE[I];
04762 M00S04594.acpd +++| IF (NOT EST$MS[I]) # NOT MASS STORAGE DEVICE #
04763 M00S04595.acpd +++| THEN
04764 M00S04596.acpd +++| BEGIN
04765 M00S04597.acpd +++| WRITEV(N,OC3C,73,10,LFDC);
04766 M00S04598.acpd +++| TEST I;
04767 M00S04599.acpd +++| END
04768 M00S04600.acpd +++|
04769 M00S04601.acpd +++| ELSE
04770 M00S04602.acpd +++| BEGIN # MASS STORAGE DEVICE #
04771 M00S04603.acpd +++| WRITEV(N,OC3C,73,10,NLFC);
04772 M00S04604.acpd +++| N=DCHD$WD[DDSC$FW[TRKC] + MSI];
04773 M00S04605.acpd +++| WRITEV(N,OC2C,87,4,NLFC); # TRACK CAPACITY #
04774 M00S04606.acpd +++| MSI=MSI+MSIC;
04775 M00S04607.acpd +++|
04776 M00S04608.acpd +++|#
04777 M00S04609.acpd +++|* PRINT THE MASS STORAGE ALLOCATION TABLE.
04778 M00S04610.acpd +++|#
04779 M00S04611.acpd +++|
04780 M00S04612.acpd +++| IF (I GR MXMSA) # EST ORDINAL .GT. *MXMSA* #
04781 M00S04613.acpd +++| THEN
04782 M00S04614.acpd +++| BEGIN
04783 M00S04615.acpd +++| WRITEV(BLKC,CHRC,95,1,LFDC); # LINE FEED #
04784 M00S04616.acpd +++| END
04785 M00S04617.acpd +++|
04786 M00S04618.acpd +++| ELSE # EST ORDINAL .LE. *MXMSA* #
04787 M00S04619.acpd +++| BEGIN # CHECK FILE TYPE ON THE DEVICE #
04788 M00S04620.acpd +++| FATT="------------";
04789 M00S04621.acpd +++| MXRS=DCHD$WD[DDSC$FW[CON8]];
04790 M00S04622.acpd +++| SLOWFOR J=0 STEP 1 UNTIL MXRS-1
04791 M00S04623.acpd +++| DO
04792 M00S04624.acpd +++| BEGIN
04793 M00S04625.acpd +++| L=DDSC$FW[MSAA] + J;
04794 M00S04626.acpd +++| IF (B<12+I,1>DCHD$WD[L] EQ 1)
04795 M00S04627.acpd +++| THEN
04796 M00S04628.acpd +++| BEGIN
04797 M00S04629.acpd +++| C<J,1>FATT=C<J,1>FATL;
04798 M00S04630.acpd +++| END
04799 M00S04631.acpd +++|
04800 M00S04632.acpd +++| END
04801 M00S04633.acpd +++|
04802 M00S04634.acpd +++| IF (EST$SYS[I]) # SYSTEM FILE ON DEVICE #
04803 M00S04635.acpd +++| THEN
04804 M00S04636.acpd +++| BEGIN
04805 M00S04637.acpd +++| MSG=CHXC;
04806 M00S04638.acpd +++| END
04807 M00S04639.acpd +++|
04808 M00S04640.acpd +++| ELSE
04809 M00S04641.acpd +++| BEGIN
04810 M00S04642.acpd +++| MSG=MNSC;
04811 M00S04643.acpd +++| END
04812 M00S04644.acpd +++|
04813 M00S04645.acpd +++| WRITEV(MSG,CHRC,94,1,NLFC);
04814 M00S04646.acpd +++|
04815 M00S04647.acpd +++|#
04816 M00S04648.acpd +++|* PRINT THE THRESHOLD OF THE NUMBER OF SECTORS ROLLED IF
04817 M00S04649.acpd +++|* THE DEVICE IS SECONDARY ROLLOUT.
04818 M00S04650.acpd +++|#
04819 M00S04651.acpd +++|
04820 M00S04652.acpd +++| IF (C<SROS,1>FATT NQ CHSC) # NOT SECONDARY ROLLOUT #
04821 M00S04653.acpd +++| THEN
04822 M00S04654.acpd +++| BEGIN
04823 M00S04655.acpd +++| WRITEV(FATT,CHRC,95,MXRS,LFDC);
04824 M00S04656.acpd +++| END
04825 M00S04657.acpd +++|
04826 M00S04658.acpd +++| ELSE # SECONDARY ROLLOUT #
04827 M00S04659.acpd +++| BEGIN
04828 M00S04660.acpd +++| WRITEV(FATT,CHRC,95,MXRS,NLFC);
04829 M00S04661.acpd +++| WRITEV("THRESHOLD = ",CHRC,109,12,NLFC);
04830 M00S04662.acpd +++| WRITEV(DCHD$WD[DDSC$FW[SROT]],OC1C,121,5,NLFC);
04831 M00S04663.acpd +++| WRITEV("SECTORS",CHRC,127,7,LFDC);
04832 M00S04664.acpd +++| END
04833 M00S04665.acpd +++|
04834 M00S04666.acpd +++| END # CHECK FILE TYPE ON THE DEVICE #
04835 M00S04667.acpd +++|
04836 M00S04668.acpd +++| END # MASS STORAGE DEVICE #
04837 M00S04669.acpd +++|
04838 M00S04670.acpd +++| END # PROCESS ONE EST ENTRY #
04839 M00S04671.acpd +++|
04840 M00S04672.acpd +++| RETURN;
04841 M00S04673.acpd +++| END # PUTEST #
04842 M00S04674.acpd +++|
04843 M00S04675.acpd +++| TERM
04844 M00S04676.acpd +++|PROC PUTHDR;
04845 M00S04677.acpd +++|# TITLE PUTHDR - PROCESS HEADER BLOCK. #
04846 M00S04678.acpd +++|
04847 M00S04679.acpd +++| BEGIN # PUTHDR #
04848 M00S04680.acpd +++|
04849 M00S04681.acpd +++|#
04850 M00S04682.acpd +++|** PUTHDR - PROCESS HEADER BLOCK.
04851 M00S04683.acpd +++|*
04852 M00S04684.acpd +++|* PRINT FIRST PAGE OF HEADER BLOCK ELEMENTS.
04853 M00S04685.acpd +++|*
04854 M00S04686.acpd +++|* PROC HEADER
04855 M00S04687.acpd +++|*
04856 M00S04688.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
04857 M00S04689.acpd +++|*
04858 M00S04690.acpd +++|* EXIT HEADER BLOCK ELEMENTS ARE PRINTED TO THE REPORT
04859 M00S04691.acpd +++|* FILE.
04860 M00S04692.acpd +++|#
04861 M00S04693.acpd +++|
04862 M00S04694.acpd +++|#
04863 M00S04695.acpd +++|**** PROC PUTHDR - XREF LIST BEGIN.
04864 M00S04696.acpd +++|#
04865 M00S04697.acpd +++|
04866 M00S04698.acpd +++| XREF
04867 M00S04699.acpd +++| BEGIN
04868 M00S04700.acpd +++| PROC HDRELM; # PROCESS HEADER BLOCK ELEMENT #
04869 M00S04701.acpd +++| PROC RPEJECT; # PAGE EJECT #
04870 M00S04702.acpd +++| PROC RPSPACE; # LINE FEED #
04871 M00S04703.acpd +++| PROC WRITEV; # WRITE ONE ELEMENT #
04872 M00S04704.acpd +++| END
04873 M00S04705.acpd +++|
04874 M00S04706.acpd +++|#
04875 M00S04707.acpd +++|**** PROC PUTHDR - XREF LIST END.
04876 M00S04708.acpd +++|#
04877 M00S04709.acpd +++|
04878 M00S04710.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
04879 M00S04711.acpd +++|
04880 M00S04712.acpd +++|*CALL COMUCPD
04881 M00S04713.acpd +++|
04882 M00S04714.acpd +++|#
04883 M00S04715.acpd +++|* LOCAL VARIABLES.
04884 M00S04716.acpd +++|#
04885 M00S04717.acpd +++|
04886 M00S04718.acpd +++| ITEM I I; # FOR LOOP CONTROL #
04887 M00S04719.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER #
04888 M00S04720.acpd +++|
04889 M00S04721.acpd +++|
04890 M00S04722.acpd +++|
04891 M00S04723.acpd +++|
04892 M00S04724.acpd +++|
04893 M00S04725.acpd +++|#
04894 M00S04726.acpd +++|* BEGIN PUTHDR PROC.
04895 M00S04727.acpd +++|#
04896 M00S04728.acpd +++|
04897 M00S04729.acpd +++| TLFG=0; # INDICATES NO SUBTITLE #
04898 M00S04730.acpd +++| RPEJECT(OFFA);
04899 M00S04731.acpd +++| RPSPACE(OFFA,2,1);
04900 M00S04732.acpd +++|
04901 M00S04733.acpd +++|#
04902 M00S04734.acpd +++|* PRINT START DATE AND START TIME OF THE DATA FILE.
04903 M00S04735.acpd +++|#
04904 M00S04736.acpd +++|
04905 M00S04737.acpd +++| HDRELM(0,11,34); # START DATE #
04906 M00S04738.acpd +++| HDRELM(1,11,34); # START TIME #
04907 M00S04739.acpd +++|
04908 M00S04740.acpd +++|#
04909 M00S04741.acpd +++|* PRINT *ACPD* PARAMETERS.
04910 M00S04742.acpd +++|#
04911 M00S04743.acpd +++|
04912 M00S04744.acpd +++| RPSPACE(OFFA,2,1);
04913 M00S04745.acpd +++| WRITEV("DATA FILE NAME",CHRC,11,14,NLFC);
| Line S04746 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04914 M01S04746.v23l617 ---| WRITEV(P$FN,CHRC,37,7,LFDC);
04915 M01S04747.v23l617 ---| WRITEV("REPORT INTERVAL (MINS)",CHRC,11,22,NLFC);
04916 M01S04748.v23l617 ---| WRITEV(P$IN,INTC,34,10,LFDC);
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04917 M01S00079.v23l617 +++| WRITEV(P$FN,CHRC,40,7,LFDC);
04918 M01S00080.v23l617 +++| IF (P$IN NQ 0)
04919 M01S00081.v23l617 +++| THEN
04920 M01S00082.v23l617 +++| BEGIN
04921 M01S00083.v23l617 +++| WRITEV("REPORT INTERVAL (MINUTES)",CHRC,11,25,NLFC);
04922 M01S00084.v23l617 +++| WRITEV(P$IN,INTC,37,10,LFDC);
04923 M01S00085.v23l617 +++| END
04924 M01S00086.v23l617 +++|
04925 M01S00087.v23l617 +++| ELSE
04926 M01S00088.v23l617 +++| BEGIN
04927 M01S00089.v23l617 +++| WRITEV("REPORT INTERVAL (RECORDS)",CHRC,11,25,NLFC);
04928 M01S00090.v23l617 +++| WRITEV(P$IC,INTC,37,10,LFDC);
04929 M01S00091.v23l617 +++| END
04930 M00S04749.acpd +++|
04931 M00S04750.acpd +++| RPSPACE(OFFA,2,1);
04932 M00S04751.acpd +++| FASTFOR I=APPM STEP 1 UNTIL HWCF-1
04933 M00S04752.acpd +++| DO
04934 M00S04753.acpd +++| BEGIN
04935 M00S04754.acpd +++| HDRELM(I,11,40);
04936 M00S04755.acpd +++| END
04937 M00S04756.acpd +++|
04938 M00S04757.acpd +++|#
04939 M00S04758.acpd +++|* PRINT THE HARDWARE CONFIGURATION.
04940 M00S04759.acpd +++|#
04941 M00S04760.acpd +++|
04942 M00S04761.acpd +++| RPSPACE(OFFA,2,1);
04943 M00S04762.acpd +++| FASTFOR I=HWCF STEP 1 UNTIL CMCF-1
04944 M00S04763.acpd +++| DO
04945 M00S04764.acpd +++| BEGIN
04946 M00S04765.acpd +++| HDRELM(I,11,40);
04947 M00S04766.acpd +++| END
04948 M00S04767.acpd +++|
04949 M00S04768.acpd +++|#
04950 M00S04769.acpd +++|* PRINT THE CMR CONFIGURATION.
04951 M00S04770.acpd +++|#
04952 M00S04771.acpd +++|
04953 M00S04772.acpd +++| RPSPACE(OFFA,2,1);
04954 M00S04773.acpd +++| FASTFOR I=CMCF STEP 1 UNTIL SASC-1
04955 M00S04774.acpd +++| DO
04956 M00S04775.acpd +++| BEGIN
04957 M00S04776.acpd +++| HDRELM(I,11,40);
04958 M00S04777.acpd +++| END
04959 M00S04778.acpd +++|
04960 M00S04779.acpd +++|#
04961 M00S04780.acpd +++|* PRINT THE SYSTEM ASSEMBLY CONSTANTS.
04962 M00S04781.acpd +++|#
04963 M00S04782.acpd +++|
04964 M00S04783.acpd +++| RPSPACE(OFFA,2,1);
04965 M00S04784.acpd +++| FASTFOR I=SASC STEP 1 UNTIL SDLP-1
04966 M00S04785.acpd +++| DO
04967 M00S04786.acpd +++| BEGIN
04968 M00S04787.acpd +++| HDRELM(I,11,47);
04969 M00S04788.acpd +++| END
04970 M00S04789.acpd +++|
04971 M00S04790.acpd +++|#
04972 M00S04791.acpd +++|* PRINT THE SYSTEM DELAY PARAMETERS.
04973 M00S04792.acpd +++|#
04974 M00S04793.acpd +++|
04975 M00S04794.acpd +++| RPSPACE(OFFA,2,1);
04976 M00S04795.acpd +++| FASTFOR I=SDLP STEP 1 UNTIL BFIO-1
04977 M00S04796.acpd +++| DO
04978 M00S04797.acpd +++| BEGIN
04979 M00S04798.acpd +++| HDRELM(I,11,47);
04980 M00S04799.acpd +++| END
04981 M00S04800.acpd +++|
04982 M00S04801.acpd +++|#
04983 M00S04802.acpd +++|* PRINT THE TOTAL NUMBER OF HIGH SPEED DISK BUFFERS
04984 M00S04803.acpd +++|* AND EXTENDED MEMORY/PP BUFFERS.
04985 M00S04804.acpd +++|#
04986 M00S04805.acpd +++|
04987 M00S04806.acpd +++| RPSPACE(OFFA,2,1);
04988 M00S04807.acpd +++| FASTFOR I=BFIO STEP 1 UNTIL HDML-1
04989 M00S04808.acpd +++| DO
04990 M00S04809.acpd +++| BEGIN
04991 M00S04810.acpd +++| HDRELM(I,11,47);
04992 M00S04811.acpd +++| END
04993 M00S04812.acpd +++|
04994 M00S04813.acpd +++| RETURN;
04995 M00S04814.acpd +++| END # PUTHDR #
04996 M00S04815.acpd +++|
04997 M00S04816.acpd +++| TERM
| Line S04817 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04998 M01S04817.v23l617 ---|PROC PUTPMF((FWA));
04999 M01S04818.v23l617 ---|# TITLE PUTPMF - PROCESS *PMF* HARDWARE HIT RATE. #
05000 M01S04819.v23l617 ---|
05001 M01S04820.v23l617 ---| BEGIN # PUTPMF #
05002 M01S04821.v23l617 ---|
05003 M01S04822.v23l617 ---|#
05004 M01S04823.v23l617 ---|** PUTPMF - PROCESS *PMF* HARDWARE HIT RATES.
05005 M01S04824.v23l617 ---|*
05006 M01S04825.v23l617 ---|* THIS PROC IS A SPECIAL ROUTINE TO PROCESS *PMF* HARDWARE.
05007 M01S04826.v23l617 ---|*
05008 M01S04827.v23l617 ---|* PROC PUTPMF((FWA))
05009 M01S04828.v23l617 ---|*
05010 M01S04829.v23l617 ---|* ENTRY FWA = ADDRESS OF THE FIRST REPORT TITLE.
05011 M01S04830.v23l617 ---|*
05012 M01S04831.v23l617 ---|* EXIT THE HIT RATES OF THE *PMF* HARDWARE FOR THE
05013 M01S04832.v23l617 ---|* INTERVALS, SUBTOTAL, AND TOTAL ARE COMPUTED
05014 M01S04833.v23l617 ---|* AND REPORTED.
05015 M01S04834.v23l617 ---|#
05016 M01S04835.v23l617 ---|
05017 M01S04836.v23l617 ---|#
05018 M01S04837.v23l617 ---|* PARAMETER LIST.
05019 M01S04838.v23l617 ---|#
05020 M01S04839.v23l617 ---|
05021 M01S04840.v23l617 ---| ITEM FWA I; # ADDRESS OF FIRST REPORT TITLE #
05022 M01S04841.v23l617 ---|
05023 M01S04842.v23l617 ---|#
05024 M01S04843.v23l617 ---|**** PROC PUTPMF - XREF LIST BEGIN.
05025 M01S04844.v23l617 ---|#
05026 M01S04845.v23l617 ---|
05027 M01S04846.v23l617 ---| XREF
05028 M01S04847.v23l617 ---| BEGIN
05029 M01S04848.v23l617 ---| PROC COMMTE; # COMPUTE EXEC STATE MEAN TIME #
05030 M01S04849.v23l617 ---| PROC COMRAT; # COMPUTE *PMF* RATIOS #
05031 M01S04850.v23l617 ---| PROC WRITEV; # WRITE ONE VALUE #
05032 M01S04851.v23l617 ---| END
05033 M01S04852.v23l617 ---|
05034 M01S04853.v23l617 ---|#
05035 M01S04854.v23l617 ---|**** PROC COMRAT - XREF LIST END.
05036 M01S04855.v23l617 ---|#
05037 M01S04856.v23l617 ---|
05038 M01S04857.v23l617 ---| DEF BLKC #" "#; # BLANK #
05039 M01S04858.v23l617 ---|
05040 M01S04859.v23l617 ---| DEF LISTCON #0#; # TURN OFF COMMON LISTING #
05041 M01S04860.v23l617 ---|
05042 M01S04861.v23l617 ---|*CALL COMUCPD
05043 M01S04862.v23l617 ---|
05044 M01S04863.v23l617 ---|#
05045 M01S04864.v23l617 ---|* LOCAL VARIABLES.
05046 M01S04865.v23l617 ---|#
05047 M01S04866.v23l617 ---|
05048 M01S04867.v23l617 ---| ITEM APM I; # ADVANCED PROCESSOR MODULE #
05049 M01S04868.v23l617 ---| ITEM TPT I; # REPORT TITLE POINTER #
05050 M01S04869.v23l617 ---|
05051 M01S04870.v23l617 ---|
05052 M01S04871.v23l617 ---|
05053 M01S04872.v23l617 ---|
05054 M01S04873.v23l617 ---|
05055 M01S04874.v23l617 ---|
05056 M01S04875.v23l617 ---|#
05057 M01S04876.v23l617 ---|* BEGIN PUTPMF PROC.
05058 M01S04877.v23l617 ---|#
05059 M01S04878.v23l617 ---|
05060 M01S04879.v23l617 ---| P<DDSC>=LOC(DDHD);
05061 M01S04880.v23l617 ---| P<DCHD>=LOC(DBUF);
05062 M01S04881.v23l617 ---| WRITEV(BLKC,CHRC,1,1,LFDC); # LINE FEED #
05063 M01S04882.v23l617 ---|
05064 M01S04883.v23l617 ---| TPT=FWA;
05065 M01S04884.v23l617 ---| APM=DCHD$WD[DDSC$FW[APMF]]/2;
05066 M01S04885.v23l617 ---| IF (APM EQ 2) OR (APM EQ 3)
05067 M01S04886.v23l617 ---| THEN
05068 M01S04887.v23l617 ---| BEGIN
05069 M01S04888.v23l617 ---| COMRAT(APM,CACHE,TPT,0); # CACHE HIT RATE #
05070 M01S04889.v23l617 ---| END
05071 M01S04890.v23l617 ---|
05072 M01S04891.v23l617 ---| TPT=TPT+1;
05073 M01S04892.v23l617 ---| IF (APM NQ 0)
05074 M01S04893.v23l617 ---| THEN
05075 M01S04894.v23l617 ---| BEGIN
05076 M01S04895.v23l617 ---| COMMTE(TPT,1); # MEAN TIME IN EXEC STATE #
05077 M01S04896.v23l617 ---| TPT=TPT+1;
05078 M01S04897.v23l617 ---| COMRAT(APM,PAGE,TPT,2); # PAGE MAP HIT RATE #
05079 M01S04898.v23l617 ---| TPT=TPT+1;
05080 M01S04899.v23l617 ---| COMRAT(APM,SEGMENT,TPT,3); # SEGMENT MAP HIT RATE #
05081 M01S04900.v23l617 ---| END
05082 M01S04901.v23l617 ---|
05083 M01S04902.v23l617 ---| RETURN;
05084 M01S04903.v23l617 ---| END # PUTPMF #
05085 M01S04904.v23l617 ---|
05086 M01S04905.v23l617 ---| TERM
05087 M00S04906.acpd +++|PROC PUTSCI;
05088 M00S04907.acpd +++|# TITLE PUTSCI - PRINT SYSTEM CONTROL INFORMATION. #
05089 M00S04908.acpd +++|
05090 M00S04909.acpd +++| BEGIN # PUTSCI #
05091 M00S04910.acpd +++|
05092 M00S04911.acpd +++|#
05093 M00S04912.acpd +++|** PUTSCI - PRINT SYSTEM CONTROL INFORMATION.
05094 M00S04913.acpd +++|*
05095 M00S04914.acpd +++|* PRINT SYSTEM CONTROL INFORMATION.
05096 M00S04915.acpd +++|*
05097 M00S04916.acpd +++|* PROC PUTSCI
05098 M00S04917.acpd +++|*
05099 M00S04918.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
05100 M00S04919.acpd +++|*
05101 M00S04920.acpd +++|* EXIT SYSTEM CONTROL INFORMATION (SERVICE CLASSES,
05102 M00S04921.acpd +++|* PRIORITY, ETC.) ARE PRINTED TO THE REPORT FILE.
05103 M00S04922.acpd +++|#
05104 M00S04923.acpd +++|
05105 M00S04924.acpd +++|#
05106 M00S04925.acpd +++|**** PROC PUTSCI - XREF LIST BEGIN.
05107 M00S04926.acpd +++|#
05108 M00S04927.acpd +++|
05109 M00S04928.acpd +++| XREF
05110 M00S04929.acpd +++| BEGIN
05111 M00S04930.acpd +++| PROC RPEJECT; # PAGE EJECT #
05112 M00S04931.acpd +++| PROC RPSPACE; # LINE FEED #
05113 M00S04932.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
05114 M00S04933.acpd +++| END
05115 M00S04934.acpd +++|
05116 M00S04935.acpd +++|#
05117 M00S04936.acpd +++|**** PROC PUTSCI - XREF LIST END.
05118 M00S04937.acpd +++|#
05119 M00S04938.acpd +++|
05120 M00S04939.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
05121 M00S04940.acpd +++|
05122 M00S04941.acpd +++|*CALL COMUCPD
05123 M00S04942.acpd +++|*CALL COMUJCA
05124 M00S04943.acpd +++|
05125 M00S04944.acpd +++|#
05126 M00S04945.acpd +++|* LOCAL VARIABLES.
05127 M00S04946.acpd +++|#
05128 M00S04947.acpd +++|
05129 M00S04948.acpd +++| ITEM I I; # FOR LOOP CONTROL #
05130 M00S04949.acpd +++| ITEM VALUE I; # TEMPORARY STORAGE #
05131 M00S04950.acpd +++|
05132 M00S04951.acpd +++|
05133 M00S04952.acpd +++|
05134 M00S04953.acpd +++|
05135 M00S04954.acpd +++|
05136 M00S04955.acpd +++|#
05137 M00S04956.acpd +++|* BEGIN PUTSCI PROC.
05138 M00S04957.acpd +++|#
05139 M00S04958.acpd +++|
05140 M00S04959.acpd +++| TLFG=0; # INDICATES NO SUBTITLE #
05141 M00S04960.acpd +++| P<DCHD>=LOC(DBUF);
05142 M00S04961.acpd +++| P<DDSC>=LOC(DDHD);
05143 M00S04962.acpd +++|
05144 M00S04963.acpd +++| RPEJECT(OFFA);
05145 M00S04964.acpd +++| RPSPACE(OFFA,2,1);
05146 M00S04965.acpd +++| WRITEV("SYSTEM CONTROL INFORMATION",CHRC,11,26,LFDC);
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05147 M01S00001.271l750 +++|
05148 M00S04966.acpd +++| RPSPACE(OFFA,2,1);
05149 M00S04967.acpd +++| WRITEV("SERVICE QUEUE",CHRC,11,15,NLFC);
05150 M00S04968.acpd +++| WRITEV(" PRIORITIES",CHRC,26,25,NLFC);
05151 M00S04969.acpd +++| WRITEV("SERVICE LIMITS",CHRC,77,14,LFDC);
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05152 M01S00002.271l750 +++|
05153 M00S04970.acpd +++| WRITEV("CLASS",CHRC,11,5,NLFC);
| Line S04971 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05154 M01S04971.271l716 ---| WRITEV("PR CP CM NJ TD",CHRC,68,31,LFDC);
05155 M01S04972.271l716 ---| WRITEV("FL AM TP",CHRC,68,25,LFDC);
05156 M01S04973.271l716 ---| WRITEV("IL LP UP WF IP",CHRC,31,29,NLFC);
05157 M01S04974.271l716 ---| WRITEV("EC EM DS FC CS FS",CHRC,68,31,LFDC);
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05158 M02S00001.271l750 ---| WRITEV("CB/L CP CT CM NJ TD",CHRC,60,38,LFDC);
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05159 M01S00003.271l750 +++| WRITEV("CP CT CM NJ TD",CHRC,69,29,LFDC);
05160 M01S00004.271l750 +++|
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05161 M02S00002.271l750 ---| WRITEV("CB/U FL AM TP ",CHRC,60,33,LFDC);
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05162 M01S00005.271l750 +++| WRITEV("FL AM TP AJ DT",CHRC,69,29,LFDC);
05163 M01S00006.271l750 +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05164 M02S00003.271l750 ---| WRITEV("IL LP UP WF IP",CHRC,31,27,NLFC);
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05165 M01S00007.271l750 +++| WRITEV("IL LP UP WF IP",CHRC,31,28,NLFC);
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05166 M01S00004.271l716 +++| WRITEV("EC EM DS FC CS FS",CHRC,69,29,LFDC);
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05167 M02S00005.271l750 ---| WRITEV("SD",CHRC,69,2,LFDC);
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05168 M01S00008.271l750 +++|
05169 M01S00009.271l750 +++| WRITEV("PR SE RS US",CHRC,69,23,LFDC);
05170 M00S04975.acpd +++|
05171 M00S04976.acpd +++| P<JBCA>=LOC(DCHD$WD[DDSC$FW[JCBA]]);
05172 M00S04977.acpd +++|
05173 M00S04978.acpd +++|#
05174 M00S04979.acpd +++|* PRINT SERVICE CLASS INFORMATION.
05175 M00S04980.acpd +++|#
05176 M00S04981.acpd +++|
05177 M00S04982.acpd +++| SLOWFOR I=1 STEP 1 UNTIL DCHD$WD[DDSC$FW[MXNS]]-2
05178 M00S04983.acpd +++| DO
05179 M00S04984.acpd +++| BEGIN # PROCESS ONE SERVICE CLASS #
05180 M00S04985.acpd +++| RPSPACE(OFFA,2,1);
05181 M00S04986.acpd +++| WRITEV(JCST$SC[I],CHRC,13,2,NLFC); # SERVICE CLASS NAME #
| Line S04987 Modification History | |
|---|---|
M01 (Removed by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05182 M01S04987.271l750 ---|
05183 M00S04988.acpd +++| WRITEV("IN",CHRC,22,2,NLFC);
05184 M00S04989.acpd +++| WRITEV(JCA$INLP[I],OC2C,36,4,NLFC);
05185 M00S04990.acpd +++| WRITEV(JCA$INUP[I],OC2C,43,4,NLFC);
05186 M00S04991.acpd +++| VALUE=2**JCA$INWF[I];
| Line S04992 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05187 M01S04992.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC); 05188 M01S04993.271l716 ---| WRITEV(JCA$PR[I],OC2C,66,4,NLFC); 05189 M01S04994.271l716 ---| WRITEV(JCA$CP[I],OC2C,75,4,NLFC); 05190 M01S04995.271l716 ---| WRITEV(JCA$CM[I],OC2C,82,4,NLFC); 05191 M01S04996.271l716 ---| WRITEV(JCA$NJ[I],OC2C,89,4,NLFC); 05192 M01S04997.271l716 ---| WRITEV(JCA$TD[I],OC2C,95,4,LFDC);
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05193 M02S00006.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC); 05194 M02S00007.271l750 ---| WRITEV(JCA$CL[I],OC2C,60,4,NLFC);
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05195 M01S00010.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC);
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05196 M01S00008.271l716 +++| WRITEV(JCA$CP[I],OC2C,67,4,NLFC);
05197 M01S00009.271l716 +++| WRITEV(JCA$CT[I],OC2C,75,4,NLFC);
05198 M01S00010.271l716 +++| WRITEV(JCA$CM[I],OC2C,81,4,NLFC);
05199 M01S00011.271l716 +++| WRITEV(JCA$NJ[I],OC2C,88,4,NLFC);
05200 M01S00012.271l716 +++| WRITEV(JCA$TD[I],OC2C,94,4,LFDC);
05201 M00S04998.acpd +++|
05202 M00S04999.acpd +++| WRITEV("EX",CHRC,22,2,NLFC);
05203 M00S05000.acpd +++| WRITEV(JCA$EXIL[I],OC2C,29,4,NLFC);
05204 M00S05001.acpd +++| WRITEV(JCA$EXLP[I],OC2C,36,4,NLFC);
05205 M00S05002.acpd +++| WRITEV(JCA$EXUP[I],OC2C,43,4,NLFC);
05206 M00S05003.acpd +++| VALUE=2**JCA$EXWF[I];
| Line S05004 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05207 M01S05004.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC); 05208 M01S05005.271l716 ---| WRITEV(JCA$EXIP[I],OC2C,56,4,NLFC); 05209 M01S05006.271l716 ---| WRITEV(JCA$FL[I],OC2C,66,4,NLFC); 05210 M01S05007.271l716 ---| WRITEV(JCA$AM[I],OC2C,71,8,NLFC); 05211 M01S05008.271l716 ---| WRITEV(JCA$TP[I],OC2C,89,4,LFDC);
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05212 M02S00013.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC); 05213 M02S00014.271l750 ---| WRITEV(JCA$EXIP[I],OC2C,54,4,NLFC); 05214 M02S00015.271l750 ---| WRITEV(JCA$CU[I],OC2C,60,4,NLFC);
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05215 M01S00011.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC); 05216 M01S00012.271l750 +++| WRITEV(JCA$EXIP[I],OC2C,55,4,NLFC);
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05217 M01S00016.271l716 +++| WRITEV(JCA$FL[I],OC2C,67,4,NLFC); 05218 M01S00017.271l716 +++| WRITEV(JCA$AM[I],OC2C,71,8,NLFC);
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05219 M02S00018.271l750 ---| WRITEV(JCA$TP[I],OC2C,88,4,LFDC);
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05220 M01S00013.271l750 +++| WRITEV(JCA$TP[I],OC2C,81,4,NLFC);
05221 M01S00014.271l750 +++| WRITEV(JCA$AJ[I],OC2C,88,4,NLFC);
05222 M01S00015.271l750 +++| WRITEV(JCST$SC[JCA$DT[I]],CHRC,96,2,LFDC);
05223 M00S05009.acpd +++|
05224 M00S05010.acpd +++| WRITEV("OT",CHRC,22,2,NLFC);
05225 M00S05011.acpd +++| WRITEV(JCA$OTLP[I],OC2C,36,4,NLFC);
05226 M00S05012.acpd +++| WRITEV(JCA$OTUP[I],OC2C,43,4,NLFC);
05227 M00S05013.acpd +++| VALUE=2**JCA$OTWF[I];
| Line S05014 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05228 M01S05014.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC); 05229 M01S05015.271l716 ---| WRITEV(JCA$EC[I],OC2C,66,4,NLFC); 05230 M01S05016.271l716 ---| WRITEV(JCA$EM[I],OC2C,75,4,NLFC); 05231 M01S05017.271l716 ---| WRITEV(JCA$DS[I],OC2C,85,1,NLFC); 05232 M01S05018.271l716 ---| WRITEV(JCA$FC[I],OC2C,90,1,NLFC); 05233 M01S05019.271l716 ---| WRITEV(JCA$CS[I],OC2C,94,1,NLFC); 05234 M01S05020.271l716 ---| WRITEV(JCA$FS[I],OC2C,98,1,LFDC);
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05235 M02S00019.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC);
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05236 M01S00016.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC);
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 05237 M01S00020.271l716 +++| WRITEV(JCA$EC[I],OC2C,67,4,NLFC); 05238 M01S00021.271l716 +++| WRITEV(JCA$EM[I],OC2C,75,4,NLFC); 05239 M01S00022.271l716 +++| WRITEV(JCA$DS[I],OC2C,84,1,NLFC); 05240 M01S00023.271l716 +++| WRITEV(JCA$FC[I],OC2C,89,1,NLFC); 05241 M01S00024.271l716 +++| WRITEV(JCA$CS[I],OC2C,93,1,NLFC); 05242 M01S00025.271l716 +++| WRITEV(JCA$FS[I],OC2C,97,1,LFDC);
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05243 M02S00026.271l750 ---| WRITEV(JCA$SD[I],OC2C,67,4,LFDC);
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 271l750 |
Seq # *Modification Id* Act ----------------------------+ 05244 M01S00017.271l750 +++| 05245 M01S00018.271l750 +++| WRITEV(JCA$PR[I],OC2C,67,4,NLFC); 05246 M01S00019.271l750 +++| WRITEV(JCA$SE[I],OC2C,75,4,NLFC); 05247 M01S00020.271l750 +++| WRITEV(JCA$RS[I],OC2C,81,4,NLFC); 05248 M01S00021.271l750 +++| WRITEV(JCA$US[I],OC2C,88,4,LFDC); 05249 M01S00022.271l750 +++| 05250 M00S05021.acpd +++| END # PROCESS ONE SERVICE CLASS # 05251 M00S05022.acpd +++| 05252 M00S05023.acpd +++| RETURN; 05253 M00S05024.acpd +++| END # PUTSCI # 05254 M00S05025.acpd +++| 05255 M00S05026.acpd +++| TERM 05256 M00S05027.acpd +++|PROC PUTSNS((FWA),(LWA)); 05257 M00S05028.acpd +++|# TITLE PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS. # 05258 M00S05029.acpd +++| 05259 M00S05030.acpd +++| BEGIN # PUTSNS # 05260 M00S05031.acpd +++| 05261 M00S05032.acpd +++|# 05262 M00S05033.acpd +++|** PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS. 05263 M00S05034.acpd +++|* 05264 M00S05035.acpd +++|* PUTSNS IS THE DRIVER OF THE SNAPSHOT LOOP ELEMENTS. 05265 M00S05036.acpd +++|* 05266 M00S05037.acpd +++|* PROC PUTSNS((FWA),(LWA)) 05267 M00S05038.acpd +++|* 05268 M00S05039.acpd +++|* ENTRY FWA = FIRST WORD ADDRESS OF SNAPSHOT LOOP 05269 M00S05040.acpd +++|* ELEMENTS IN TABLE *DSPT*. 05270 M00S05041.acpd +++|* LWA = LAST WORD ADDRESS OF SNAPSHOT LOOP 05271 M00S05042.acpd +++|* ELEMENTS IN TABLE *DSPT*. 05272 M00S05043.acpd +++|* 05273 M00S05044.acpd +++|* EXIT SNAPSHOT LOOP ELEMENTS ARE PRINTED TO THE REPORT 05274 M00S05045.acpd +++|* FILE. 05275 M00S05046.acpd +++|# 05276 M00S05047.acpd +++| 05277 M00S05048.acpd +++|# 05278 M00S05049.acpd +++|* PARAMETER LIST. 05279 M00S05050.acpd +++|# 05280 M00S05051.acpd +++| 05281 M00S05052.acpd +++| ITEM FWA I; # *FWA* IN *DSPT* TABLE # 05282 M00S05053.acpd +++| ITEM LWA I; # *LWA* IN *DSPT* TABLE # 05283 M00S05054.acpd +++| 05284 M00S05055.acpd +++|# 05285 M00S05056.acpd +++|**** PROC PUTSNS - XREF LIST BEGIN. 05286 M00S05057.acpd +++|# 05287 M00S05058.acpd +++| 05288 M00S05059.acpd +++| XREF 05289 M00S05060.acpd +++| BEGIN 05290 M00S05061.acpd +++| PROC GETMSG; # GET TITLE FROM TABLE *DSPTTXT* # 05291 M00S05062.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT # 05292 M00S05063.acpd +++| END 05293 M00S05064.acpd +++| 05294 M00S05065.acpd +++|# 05295 M00S05066.acpd +++|**** PROC PUTSNS - XREF LIST END. 05296 M00S05067.acpd +++|# 05297 M00S05068.acpd +++| 05298 M00S05069.acpd +++| DEF BLKC #" "#; # BLANK # 05299 M00S05070.acpd +++| DEF BPCC #6#; # NUMBER OF BITS PER CHAR # 05300 M00S05071.acpd +++| DEF NSBC #O"777"#; # NO SUBBLOCK FLAG # 05301 M00S05072.acpd +++| 05302 M00S05073.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 05303 M00S05074.acpd +++| 05304 M00S05075.acpd +++|*CALL COMUCPD 05305 M00S05076.acpd +++| 05306 M00S05077.acpd +++|# 05307 M00S05078.acpd +++|* LOCAL VARIABLES. 05308 M00S05079.acpd +++|# 05309 M00S05080.acpd +++| 05310 M00S05081.acpd +++| ITEM BL U; # BIT LENGTH # 05311 M00S05082.acpd +++| ITEM BT I; # BIT POSITION # 05312 M00S05083.acpd +++| ITEM FW I; # POINTER TO *DCDT* TABLE # 05313 M00S05084.acpd +++| ITEM I I; # FOR LOOP CONTROL # 05314 M00S05085.acpd +++| ITEM IC I; # INCREMENTOR # 05315 M00S05086.acpd +++| ITEM J I; # FOR LOOP CONTROL # 05316 M00S05087.acpd +++| ITEM K I; # FOR LOOP CONTROL # 05317 M00S05088.acpd +++| ITEM L I; # FOR LOOP CONTROL # 05318 M00S05089.acpd +++| ITEM LN U; # TITLE LENGTH IN CHARACTERS # 05319 M00S05090.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER # 05320 M00S05091.acpd +++| ITEM N I; # TEMPORARY STORAGE # 05321 M00S05092.acpd +++| ITEM PT I; # POINTER TO *DDDT* TABLE # 05322 M00S05093.acpd +++| ITEM ST U; # POINTER TO SUBTITLE TABLE # 05323 M00S05094.acpd +++| ITEM VL I; # TEMPORARY VALUE # 05324 M00S05095.acpd +++| ITEM WC I; # WORD COUNT # 05325 M00S05096.acpd +++| 05326 M00S05097.acpd +++| 05327 M00S05098.acpd +++| 05328 M00S05099.acpd +++| 05329 M00S05100.acpd +++| 05330 M00S05101.acpd +++| 05331 M00S05102.acpd +++|# 05332 M00S05103.acpd +++|* BEGIN PUTSNS PROC. 05333 M00S05104.acpd +++|# 05334 M00S05105.acpd +++| 05335 M00S05106.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 05336 M00S05107.acpd +++| P<DDSC>=LOC(DDDT); 05337 M00S05108.acpd +++| 05338 M00S05109.acpd +++| FASTFOR I=FWA STEP 1 UNTIL LWA 05339 M00S05110.acpd +++| DO 05340 M00S05111.acpd +++| BEGIN # FOLLOW TABLE *DSPT* # 05341 M00S05112.acpd +++| PT=DSPT$PT[I]; # POINTER TO *DDSC* # 05342 M00S05113.acpd +++| ST=DSPT$ST[I]; # POINTER TO *SMGT* # 05343 M00S05114.acpd +++| BL=DSPT$BL[I]; # BIT LENGTH # 05344 M00S05115.acpd +++| LN=DSPT$LN[I]; 05345 M00S05116.acpd +++| GETMSG(I,MSG); 05346 M00S05117.acpd +++| FW=DDSC$FW[PT]; 05347 M00S05118.acpd +++| IC=DDSC$IC[PT]; # INCREMENTOR # 05348 M00S05119.acpd +++| 05349 M00S05120.acpd +++|# 05350 M00S05121.acpd +++|* IF BIT LENGTH *BL* IS ZERO, THE VALUE IS A FULL WORD VALUE. 05351 M00S05122.acpd +++|* THE VALUE IS PRINTED IN FIVE 12-BIT BYTES, IN SUCCESSIVE ROWS. 05352 M00S05123.acpd +++|# 05353 M00S05124.acpd +++| 05354 M00S05125.acpd +++| IF (BL EQ 0) # NO BIT LENGTH # 05355 M00S05126.acpd +++| THEN 05356 M00S05127.acpd +++| BEGIN # ACCESS FULL WORD # 05357 M00S05128.acpd +++| WRITEV(MSG,CHRC,1,LN,LFDC); 05358 M00S05129.acpd +++| FASTFOR J=1 STEP 1 UNTIL DDSC$LN[PT] 05359 M00S05130.acpd +++| DO 05360 M00S05131.acpd +++| BEGIN # PROCESS ONE ENTRY # 05361 M00S05132.acpd +++| IF (ST NQ NSBC) # SUBTITLE PRESENT # 05362 M00S05133.acpd +++| THEN # PRINT SUBTITLE # 05363 M00S05134.acpd +++| BEGIN 05364 M00S05135.acpd +++| MSG=SMGT$TX[ST+J-1]; 05365 M00S05136.acpd +++| WRITEV(MSG,CHRC,10,10,NLFC); 05366 M00S05137.acpd +++| END 05367 M00S05138.acpd +++| 05368 M00S05139.acpd +++| FASTFOR L=0 STEP 1 UNTIL 4 05369 M00S05140.acpd +++| DO 05370 M00S05141.acpd +++| BEGIN # BREAK A WORD INTO FIVE BYTES # 05371 M00S05142.acpd +++| N=31; 05372 M00S05143.acpd +++| SLOWFOR K=1 STEP 1 UNTIL NIPP 05373 M00S05144.acpd +++| DO # PRINT BYTE L OF COLUMN K # 05374 M00S05145.acpd +++| BEGIN 05375 M00S05146.acpd +++| VL=C<L*2,2>DCDT$CW[(K-1)*DCDL + FW]; 05376 M00S05147.acpd +++| WRITEV(VL,OC3C,N,4,NLFC); 05377 M00S05148.acpd +++| N=N+10; 05378 M00S05149.acpd +++| END 05379 M00S05150.acpd +++| 05380 M00S05151.acpd +++| WRITEV(BLKC,CHRC,N+2,1,LFDC); # LINE FEED # 05381 M00S05152.acpd +++| END # BREAK A WORD INTO FIVE BYTES # 05382 M00S05153.acpd +++| 05383 M00S05154.acpd +++| FW=FW+IC; 05384 M00S05155.acpd +++| END # PROCESS ONE ENTRY # 05385 M00S05156.acpd +++| 05386 M00S05157.acpd +++| END # ACCESS FULL WORD # 05387 M00S05158.acpd +++| 05388 M00S05159.acpd +++|# 05389 M00S05160.acpd +++|* IF BIT LENGTH *BL* IS NON ZERO, THE VALUE IS A PARTIAL WORD 05390 M00S05161.acpd +++|* VALUE. *WC* IS THE WORD COUNT INDICATING WHAT WORD IN A 05391 M00S05162.acpd +++|* MULTIPLE-ENTRY ELEMENT THAT CONTAINS THE VALUE. IF THE ELEMENT 05392 M00S05163.acpd +++|* IS A SINGLE-ENTRY ELEMENT, *WC* IS ZERO. *BL* AND *BT* ARE 05393 M00S05164.acpd +++|* THE NUMBER OF BITS AND THE STARTING BIT POSITION, RESPECTIVELY. 05394 M00S05165.acpd +++|# 05395 M00S05166.acpd +++| 05396 M00S05167.acpd +++| ELSE 05397 M00S05168.acpd +++| BEGIN # ACCESS PARTIAL WORD # 05398 M00S05169.acpd +++| WRITEV(MSG,CHRC,1,LN,NLFC); 05399 M00S05170.acpd +++| BT=DSPT$BT[I]/BPCC; # CHARACTER POSITION # 05400 M00S05171.acpd +++| WC=DSPT$WC[I]; # WORD POSITION # 05401 M00S05172.acpd +++| BL=BL/BPCC; # NUMBER OF CHARACTERS # 05402 M00S05173.acpd +++| N=BCLC + 2; 05403 M00S05174.acpd +++| 05404 M00S05175.acpd +++| SLOWFOR J=1 STEP 1 UNTIL NIPP 05405 M00S05176.acpd +++| DO 05406 M00S05177.acpd +++| BEGIN 05407 M00S05178.acpd +++| VL=C<BT,BL>DCDT$CW[(J-1)*DCDL + FW + WC]; 05408 M00S05179.acpd +++| WRITEV(VL,INTC,N,8,NLFC); 05409 M00S05180.acpd +++| N=N+10; 05410 M00S05181.acpd +++| END 05411 M00S05182.acpd +++| 05412 M00S05183.acpd +++| WRITEV(BLKC,CHRC,N+2,1,LFDC); # LINE FEED # 05413 M00S05184.acpd +++| END # ACCESS PARTIAL WORD # 05414 M00S05185.acpd +++| 05415 M00S05186.acpd +++| END # FOLLOW TABLE *DSPT* # 05416 M00S05187.acpd +++| 05417 M00S05188.acpd +++| RETURN; 05418 M00S05189.acpd +++| END # PUTSNS # 05419 M00S05190.acpd +++| 05420 M00S05191.acpd +++| TERM 05421 M00S05192.acpd +++|PROC READRC(STAT); 05422 M00S05193.acpd +++|# TITLE READRC - READ DATA FILE. # 05423 M00S05194.acpd +++| 05424 M00S05195.acpd +++| BEGIN # READRC # 05425 M00S05196.acpd +++| 05426 M00S05197.acpd +++|# 05427 M00S05198.acpd +++|** READRC - READ DATA FILE. 05428 M00S05199.acpd +++|* 05429 M00S05200.acpd +++|* READ ONE RECORD FROM THE DATA FILE. 05430 M00S05201.acpd +++|* 05431 M00S05202.acpd +++|* PROC READRC(STAT) 05432 M00S05203.acpd +++|* 05433 M00S05204.acpd +++|* ENTRY THE DATA FILE. 05434 M00S05205.acpd +++|* 05435 M00S05206.acpd +++|* EXIT STAT = STATUS CODE. 05436 M00S05207.acpd +++|* ONE RECORD OF THE DATA FILE IS READ TO 05437 M00S05208.acpd +++|* WORKING STORAGE AREA *WSAI*. 05438 M00S05209.acpd +++|* THE NUMBER OF WORDS READ *IBNW* IS UPDATED. 05439 M00S05210.acpd +++|# 05440 M00S05211.acpd +++| 05441 M00S05212.acpd +++|# 05442 M00S05213.acpd +++|* PARAMETER LIST. 05443 M00S05214.acpd +++|# 05444 M00S05215.acpd +++| 05445 M00S05216.acpd +++| ITEM STAT I; # STATUS CODE # 05446 M00S05217.acpd +++| 05447 M00S05218.acpd +++|# 05448 M00S05219.acpd +++|**** PROC READRC - XREF LIST BEGIN. 05449 M00S05220.acpd +++|# 05450 M00S05221.acpd +++| 05451 M00S05222.acpd +++| XREF 05452 M00S05223.acpd +++| BEGIN 05453 M00S05224.acpd +++| PROC READSKP; # READ AND SKIP # 05454 M00S05225.acpd +++| END 05455 M00S05226.acpd +++| 05456 M00S05227.acpd +++|# 05457 M00S05228.acpd +++|**** PROC READRC - XREF LIST END. 05458 M00S05229.acpd +++|# 05459 M00S05230.acpd +++| 05460 M00S05231.acpd +++| DEF RFETL #8#; # FET LENGTH # 05461 M00S05232.acpd +++| 05462 M00S05233.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 05463 M00S05234.acpd +++| 05464 M00S05235.acpd +++|*CALL COMAFET 05465 M00S05236.acpd +++|*CALL COMUCPD 05466 M00S05237.acpd +++| 05467 M00S05238.acpd +++|# 05468 M00S05239.acpd +++|* LOCAL VARIABLES. 05469 M00S05240.acpd +++|# 05470 M00S05241.acpd +++| 05471 M00S05242.acpd +++| ARRAY STT [0:0] P(1); # STATUS CODE # 05472 M00S05243.acpd +++| BEGIN # ARRAY STT # 05473 M00S05244.acpd +++| ITEM STT$STAT U(00,42,18); # STATUS # 05474 M00S05245.acpd +++| ITEM STT$LN U(00,42,04); # LEVEL NUMBER # 05475 M00S05246.acpd +++| ITEM STT$AT U(00,46,04); # ABNORMAL TERMINATION CODE # 05476 M00S05247.acpd +++| ITEM STT$CODE U(00,50,10); # REQUEST/RETURN CODE # 05477 M00S05248.acpd +++| END # ARRAY STT # 05478 M00S05249.acpd +++| 05479 M00S05250.acpd +++| 05480 M00S05251.acpd +++| 05481 M00S05252.acpd +++| 05482 M00S05253.acpd +++|# 05483 M00S05254.acpd +++|* BEGIN READRC PROC. 05484 M00S05255.acpd +++|# 05485 M00S05256.acpd +++| 05486 M00S05257.acpd +++| P<FETSET>=LOC(FETI); 05487 M00S05258.acpd +++| FET$IN[0]=FET$FRST[0]; # SET *IN* = *FIRST* # 05488 M00S05259.acpd +++| FET$OUT[0]=FET$FRST[0]; # SET *OUT* = *FIRST* # 05489 M00S05260.acpd +++| READSKP(FETSET,0,1); 05490 M00S05261.acpd +++| IBNW = FET$IN[0] - FET$OUT[0]; # NUMBER OF WORDS READ # 05491 M00S05262.acpd +++| STT$LN[0]=FET$LN[0]; 05492 M00S05263.acpd +++| STT$AT[0]=FET$AT[0]; 05493 M00S05264.acpd +++| STT$CODE[0]=FET$CODE[0]; 05494 M00S05265.acpd +++| 05495 M00S05266.acpd +++| STAT=STT$STAT[0]; 05496 M00S05267.acpd +++| RETURN; 05497 M00S05268.acpd +++| END # READRC # 05498 M00S05269.acpd +++| 05499 M00S05270.acpd +++| TERM 05500 M00S05271.acpd +++|PROC REPTLE; 05501 M00S05272.acpd +++|# TITLE REPTLE - PRINT REPORT SUBTITLE. # 05502 M00S05273.acpd +++| 05503 M00S05274.acpd +++| BEGIN # REPTLE # 05504 M00S05275.acpd +++| 05505 M00S05276.acpd +++|# 05506 M00S05277.acpd +++|** REPTLE - PRINT REPORT SUBTITLE. 05507 M00S05278.acpd +++|* 05508 M00S05279.acpd +++|* *REPTLE* PRINTS THE SUBTITLE AT EACH PAGE EJECT. 05509 M00S05280.acpd +++|* THE SUBTITLE TO BE PRINTED DEPENDS ON THE VALUE 05510 M00S05281.acpd +++|* OF *TLFG* (COMMON BLOCK *CIOCOMM*). 05511 M00S05282.acpd +++|* 05512 M00S05283.acpd +++|* PROC REPTLE 05513 M00S05284.acpd +++|* 05514 M00S05285.acpd +++|* ENTRY NIPP = NUMBER OF INTERVALS PER PAGE 05515 M00S05286.acpd +++|* (COMMON BLOCK *CIOCOMM*). 05516 M00S05287.acpd +++|* TLFG = SUBTITLE FLAG (COMMON BLOCK *CIOCOMM*). 05517 M00S05288.acpd +++|* IF *TLFG* IS : 05518 M00S05289.acpd +++|* 0 NO SUBTITLE. 05519 M00S05290.acpd +++|* 1 PRINT SUBTITLE FOR DATA BLOCK. 05520 M00S05291.acpd +++|* 2 PRINT SUBTITLE FOR SNAPSHOT. 05521 M00S05292.acpd +++|* 3 PRINT SUBTITLE FOR EST REPORT. 05522 M00S05293.acpd +++|* 05523 M00S05294.acpd +++|* EXIT SUBTITLE IS PRINTED ON TOP OF EACH PAGE. 05524 M00S05295.acpd +++|# 05525 M00S05296.acpd +++| 05526 M00S05297.acpd +++|# 05527 M00S05298.acpd +++|**** PROC REPTLE - XREF LIST BEGIN. 05528 M00S05299.acpd +++|# 05529 M00S05300.acpd +++| 05530 M00S05301.acpd +++| XREF 05531 M00S05302.acpd +++| BEGIN 05532 M00S05303.acpd +++| FUNC EDATE C(10); # CONVERT NUMBER TO DATE # 05533 M00S05304.acpd +++| FUNC ETIME C(10); # CONVERT NUMBER TO TIME # 05534 M00S05305.acpd +++| PROC RPLINEX; # PRINT ONE LINE # 05535 M00S05306.acpd +++| FUNC XCDD C(10); # CONVERT TO DISPLAY DECIMAL # 05536 M00S05307.acpd +++| END 05537 M00S05308.acpd +++| 05538 M00S05309.acpd +++|# 05539 M00S05310.acpd +++|**** PROC REPTLE - XREF LIST END. 05540 M00S05311.acpd +++|# 05541 M00S05312.acpd +++| 05542 M00S05313.acpd +++| DEF ASTC #"*"#; # ASTERISK # 05543 M00S05314.acpd +++| DEF BLKC #" "#; # BLANK # 05544 M00S05315.acpd +++| DEF PRDC #"."#; # PERIOD # 05545 M00S05316.acpd +++| DEF SLSC #"/"#; # SLASH # 05546 M00S05317.acpd +++| DEF ZERC #"0"#; # CHARACTER ZERO # 05547 M00S05318.acpd +++| 05548 M00S05319.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 05549 M00S05320.acpd +++| 05550 M00S05321.acpd +++|*CALL COMUCPD 05551 M00S05322.acpd +++| 05552 M00S05323.acpd +++|# 05553 M00S05324.acpd +++|* LOCAL VARIABLES. 05554 M00S05325.acpd +++|# 05555 M00S05326.acpd +++| 05556 M00S05327.acpd +++| ITEM ESTFS B=TRUE; # FIRST EST SUBTITLE FLAG # 05557 M00S05328.acpd +++| ITEM HRS I; # HOUR # 05558 M00S05329.acpd +++| ITEM I I; # FOR LOOP CONTROL # 05559 M00S05330.acpd +++| ITEM J I; # TEMPORARY VARIABLE # 05560 M00S05331.acpd +++| ITEM MNS I; # MINUTE # 05561 M00S05332.acpd +++| ITEM MSG C(40); # TEMPORARY STORAGE # 05562 M00S05333.acpd +++| ITEM N I; # TEMPORARY VARIABLE # 05563 M00S05334.acpd +++| ITEM N1 I; # TEMPORARY VARIABLE # 05564 M00S05335.acpd +++| ITEM N2 I; # TEMPORARY VARIABLE # 05565 M00S05336.acpd +++| ITEM OF I; # OFFSET # 05566 M00S05337.acpd +++| 05567 M00S05338.acpd +++| ARRAY T [0:0] P(1); # TEMPORARY STORAGE # 05568 M00S05339.acpd +++| BEGIN 05569 M00S05340.acpd +++| ITEM T$WD C(00,00,10); # TEN CHARACTER WORD # 05570 M00S05341.acpd +++| ITEM T$3C C(00,00,03); # THREE CHARACTER ITEM # 05571 M00S05342.acpd +++| ITEM T$2C C(00,00,02); # TWO CHARACTER ITEM # 05572 M00S05343.acpd +++| ITEM T$1C C(00,00,01); # ONE CHARACTER ITEM # 05573 M00S05344.acpd +++| ITEM T$ZC C(00,06,01); # ZERO FILL # 05574 M00S05345.acpd +++| END 05575 M00S05346.acpd +++| 05576 M00S05347.acpd +++| ARRAY TEM [0:0] P(1); # TEMPORARY STORAGE # 05577 M00S05348.acpd +++| BEGIN # ARRAY TEM # 05578 M00S05349.acpd +++| ITEM TEM$WD C(00,00,10); # TEN CHARACTER ITEM # 05579 M00S05350.acpd +++| ITEM TEM$3C C(00,42,03); # THREE CHARACTER ITEM # 05580 M00S05351.acpd +++| ITEM TEM$2C C(00,48,02); # TWO CHARACTER ITEM # 05581 M00S05352.acpd +++| END 05582 M00S05353.acpd +++| 05583 M00S05354.acpd +++| 05584 M00S05355.acpd +++| 05585 M00S05356.acpd +++| 05586 M00S05357.acpd +++| 05587 M00S05358.acpd +++| 05588 M00S05359.acpd +++|# 05589 M00S05360.acpd +++|* BEGIN REPTLE PROC. 05590 M00S05361.acpd +++|# 05591 M00S05362.acpd +++| 05592 M00S05363.acpd +++| IF (TLFG EQ 0) OR (P$L EQ NULL) # NO TITLE OR NO REPORT FILE # 05593 M00S05364.acpd +++| THEN 05594 M00S05365.acpd +++| BEGIN 05595 M00S05366.acpd +++| RETURN; # NO SUBTITLE # 05596 M00S05367.acpd +++| END 05597 M00S05368.acpd +++| 05598 M00S05369.acpd +++| IF (TLFG EQ 3) # PRINTING EST # 05599 M00S05370.acpd +++| THEN 05600 M00S05371.acpd +++| BEGIN # PRINT EST SUBTITLE # 05601 M00S05372.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); 05602 M00S05373.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); 05603 M00S05374.acpd +++| IF (ESTFS) # FIRST EST SUBTITLE # 05604 M00S05375.acpd +++| THEN 05605 M00S05376.acpd +++| BEGIN 05606 M00S05377.acpd +++| MSG="EQUIPMENT STATUS TABLE"; 05607 M00S05378.acpd +++| RPLINEX(OFFA,MSG,5,22,LFDC); 05608 M00S05379.acpd +++| ESTFS=FALSE; 05609 M00S05380.acpd +++| END 05610 M00S05381.acpd +++| 05611 M00S05382.acpd +++| ELSE # SECOND EST SUBTITLE # 05612 M00S05383.acpd +++| BEGIN 05613 M00S05384.acpd +++| MSG="EQUIPMENT STATUS TABLE (CONTINUED)"; 05614 M00S05385.acpd +++| RPLINEX(OFFA,MSG,5,35,LFDC); 05615 M00S05386.acpd +++| END 05616 M00S05387.acpd +++| 05617 M00S05388.acpd +++| MSG="NO. TYPE STAT EQ UN CHANNELS"; 05618 M00S05389.acpd +++| RPLINEX(OFFA,MSG,5,33,NLFC); 05619 M00S05390.acpd +++| MSG="EST ENTRY"; 05620 M00S05391.acpd +++| RPLINEX(OFFA,MSG,42,9,NLFC); 05621 M00S05392.acpd +++| MSG="TRACK FILES"; 05622 M00S05393.acpd +++| RPLINEX(OFFA,MSG,86,17,LFDC); 05623 M00S05394.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); 05624 M00S05395.acpd +++| RETURN; 05625 M00S05396.acpd +++| END # PRINT EST SUBTITLE # 05626 M00S05397.acpd +++| 05627 M00S05398.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 05628 M00S05399.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]); 05629 M00S05400.acpd +++| P<DDSC>=LOC(DDDT); 05630 M00S05401.acpd +++| 05631 M00S05402.acpd +++|# 05632 M00S05403.acpd +++|* PRINT INTERVAL TIMES. 05633 M00S05404.acpd +++|# 05634 M00S05405.acpd +++| 05635 M00S05406.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); # LINE FEED #
| Line S05407 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05636 M01S05407.v23l617 ---| TEM$WD[0]=XCDD(P$IN);
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05637 M01S00092.v23l617 +++| IF(P$IN NQ 0) 05638 M01S00093.v23l617 +++| THEN 05639 M01S00094.v23l617 +++| BEGIN 05640 M01S00095.v23l617 +++| TEM$WD=XCDD(P$IN); 05641 M01S00096.v23l617 +++| END 05642 M01S00097.v23l617 +++| 05643 M01S00098.v23l617 +++| ELSE 05644 M01S00099.v23l617 +++| BEGIN 05645 M01S00100.v23l617 +++| TEM$WD=XCDD(P$IC); 05646 M01S00101.v23l617 +++| END 05647 M01S00102.v23l617 +++| 05648 M00S05408.acpd +++| T$3C[0]=TEM$3C[0]; 05649 M00S05409.acpd +++| RPLINEX(OFFA,T,1,3,NLFC);
| Line S05410 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05650 M01S05410.v23l617 ---| RPLINEX(OFFA," MINS INTERVAL",5,14,NLFC);
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 05651 M01S00103.v23l617 +++| IF (P$IN NQ 0) # INTERVAL TIME SPECIFIED # 05652 M01S00104.v23l617 +++| THEN 05653 M01S00105.v23l617 +++| BEGIN 05654 M01S00106.v23l617 +++| RPLINEX(OFFA," MINS INTERVAL ",5,14,NLFC); 05655 M01S00107.v23l617 +++| END 05656 M01S00108.v23l617 +++| 05657 M01S00109.v23l617 +++| ELSE 05658 M01S00110.v23l617 +++| BEGIN 05659 M01S00111.v23l617 +++| RPLINEX(OFFA," RECS INTERVAL ",5,14,NLFC); 05660 M01S00112.v23l617 +++| END 05661 M00S05411.acpd +++| 05662 M00S05412.acpd +++| J = BCLC + 1; 05663 M00S05413.acpd +++| OF=DCDC*DCDL + DDSC$FW[PDTM]; 05664 M00S05414.acpd +++| 05665 M00S05415.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP 05666 M00S05416.acpd +++| DO 05667 M00S05417.acpd +++| BEGIN # PRINT INTERVAL TIME # 05668 M00S05418.acpd +++| N=DCDT$ET[(I-1)*DCDL + OF]; # INTERVAL END TIME # 05669 M00S05419.acpd +++| T$WD[0]=ETIME(N); # CONVERT TO DISPLAY TIME # 05670 M00S05420.acpd +++| RPLINEX(OFFA,T,J,9,NLFC); 05671 M00S05421.acpd +++| J=J+10; 05672 M00S05422.acpd +++| END # PRINT INTERVAL TIME # 05673 M00S05423.acpd +++| 05674 M00S05424.acpd +++|# 05675 M00S05425.acpd +++|* PRINT TITLES OF SUBTOTAL AND TOTAL. IF SNAPSHOT 05676 M00S05426.acpd +++|* LOOP IS BEING PRINTED, THESE TITLES WILL NOT BE 05677 M00S05427.acpd +++|* PRINTED. 05678 M00S05428.acpd +++|# 05679 M00S05429.acpd +++| 05680 M00S05430.acpd +++| IF (TLFG EQ 1) # NOT PRINTING SNAPSHOT ELEMENTS # 05681 M00S05431.acpd +++| THEN 05682 M00S05432.acpd +++| BEGIN # PRINT TIME # 05683 M00S05433.acpd +++| 05684 M00S05434.acpd +++|# 05685 M00S05435.acpd +++|* PRINT SUBTOTAL HEADER. SUBTOTAL IS NOT PRINTED IF THE SUBTOTAL 05686 M00S05436.acpd +++|* AND THE TOTAL COLUMNS ARE THE SAME, I.E. IF THE TOTAL COLUMNS 05687 M00S05437.acpd +++|* PRINTED *TCOL* IS LESS THAN 7 COLUMNS. THE SUBTOTAL HEADER IS 05688 M00S05438.acpd +++|* NOT PRINTED IF THE CURRENT PAGE IS USED TO PRINT THE TOTAL 05689 M00S05439.acpd +++|* STATISTICS ONLY (*NIPP* IS 0). 05690 M00S05440.acpd +++|# 05691 M00S05441.acpd +++| 05692 M00S05442.acpd +++| IF (NIPP GR 0) AND (TCOL GR (DCDC-3)) 05693 M00S05443.acpd +++| THEN 05694 M00S05444.acpd +++| BEGIN # COMPUTE AND PRINT LENGTH OF SUBTOTAL # 05695 M00S05445.acpd +++| N=P$IN*NIPP; # LENGTH OF SUBTOTAL # 05696 M00S05446.acpd +++| HRS=N/60; # NUMBER OF HOURS # 05697 M00S05447.acpd +++| MNS=N - (HRS*60); # NUMBER OF MINUTES # 05698 M00S05448.acpd +++| TEM$WD=XCDD(HRS); 05699 M00S05449.acpd +++| T$3C[0]=TEM$3C[0]; 05700 M00S05450.acpd +++| IF (T$2C[0] EQ BLKC) 05701 M00S05451.acpd +++| THEN 05702 M00S05452.acpd +++| BEGIN 05703 M00S05453.acpd +++| T$ZC[0]=ZERC; 05704 M00S05454.acpd +++| END 05705 M00S05455.acpd +++| 05706 M00S05456.acpd +++| RPLINEX(OFFA,T,J,3,NLFC); 05707 M00S05457.acpd +++| RPLINEX(OFFA,":",J+3,1,NLFC); 05708 M00S05458.acpd +++| TEM$WD=XCDD(MNS); 05709 M00S05459.acpd +++| T$2C[0]=TEM$2C[0]; 05710 M00S05460.acpd +++| IF (T$1C[0] EQ BLKC) 05711 M00S05461.acpd +++| THEN 05712 M00S05462.acpd +++| BEGIN 05713 M00S05463.acpd +++| T$1C[0]=ZERC; 05714 M00S05464.acpd +++| END 05715 M00S05465.acpd +++| 05716 M00S05466.acpd +++| RPLINEX(OFFA,T,J+4,2,NLFC); 05717 M00S05467.acpd +++| END # COMPUTE AND PRINT LENGTH OF SUBTOTAL # 05718 M00S05468.acpd +++| 05719 M00S05469.acpd +++|# 05720 M00S05470.acpd +++|* PRINT TOTAL HEADER. TOTAL HEADER IS NOT PRINTED IF MORE 05721 M00S05471.acpd +++|* THAN 7 COLUMNS ARE PRINTED ON THE CURRENT PAGE. 05722 M00S05472.acpd +++|# 05723 M00S05473.acpd +++| 05724 M00S05474.acpd +++| IF (NIPP GR (DCDC-3)) 05725 M00S05475.acpd +++| THEN 05726 M00S05476.acpd +++| BEGIN 05727 M00S05477.acpd +++| RPLINEX(OFFA," HR",J+6,3,LFDC); 05728 M00S05478.acpd +++| END 05729 M00S05479.acpd +++| 05730 M00S05480.acpd +++| ELSE 05731 M00S05481.acpd +++| BEGIN # COMPUTE AND PRINT LENGTH OF TOTAL # 05732 M00S05482.acpd +++| IF (NIPP GR 0) AND (TCOL GR (DCDC-3)) 05733 M00S05483.acpd +++| THEN 05734 M00S05484.acpd +++| BEGIN 05735 M00S05485.acpd +++| RPLINEX(OFFA," HR",J+6,3,NLFC); 05736 M00S05486.acpd +++| J=J+10; 05737 M00S05487.acpd +++| END 05738 M00S05488.acpd +++| 05739 M00S05489.acpd +++| P<DCHD>=LOC(DBUF); 05740 M00S05490.acpd +++| P<DDSC>=LOC(DDHD); 05741 M00S05491.acpd +++| N=(DCHD$WD[DDSC$FW[DLFW]]*ACNS)/60; # TOTAL MINUTES # 05742 M00S05492.acpd +++| HRS=N/60; # TOTAL HOURS # 05743 M00S05493.acpd +++| MNS=N - (HRS*60); 05744 M00S05494.acpd +++| TEM$WD[0]=XCDD(HRS); 05745 M00S05495.acpd +++| T$3C[0]=TEM$3C[0]; 05746 M00S05496.acpd +++| IF (T$2C[0] EQ BLKC) 05747 M00S05497.acpd +++| THEN 05748 M00S05498.acpd +++| BEGIN 05749 M00S05499.acpd +++| T$ZC[0]=ZERC; 05750 M00S05500.acpd +++| END 05751 M00S05501.acpd +++| 05752 M00S05502.acpd +++| RPLINEX(OFFA,T,J,3,NLFC); 05753 M00S05503.acpd +++| RPLINEX(OFFA,":",J+3,1,NLFC); 05754 M00S05504.acpd +++| TEM$WD[0]=XCDD(MNS); 05755 M00S05505.acpd +++| T$2C[0]=TEM$2C[0]; 05756 M00S05506.acpd +++| IF (T$1C[0] EQ BLKC) 05757 M00S05507.acpd +++| THEN 05758 M00S05508.acpd +++| BEGIN 05759 M00S05509.acpd +++| T$1C[0]=ZERC; 05760 M00S05510.acpd +++| END 05761 M00S05511.acpd +++| 05762 M00S05512.acpd +++| RPLINEX(OFFA,T,J+4,2,NLFC); 05763 M00S05513.acpd +++| RPLINEX(OFFA," HR",J+6,3,NLFC); 05764 M00S05514.acpd +++| 05765 M00S05515.acpd +++|# 05766 M00S05516.acpd +++|* PRINT HEADERS FOR THE MAXIMUM AND MINIMUM STATISTIC COLUMNS. 05767 M00S05517.acpd +++|# 05768 M00S05518.acpd +++| 05769 M00S05519.acpd +++| P<DDSC>=LOC(DDDT); 05770 M00S05520.acpd +++| N1=DDSM$BT[DDSC$FW[PDTM]]; # TOTAL BEGIN TIME # 05771 M00S05521.acpd +++| N2=DDSM$ET[DDSC$FW[PDTM]]; # TOTAL END TIME # 05772 M00S05522.acpd +++| T$WD[0]=EDATE(N1/SHFC); # CONVERT TO DATE # 05773 M00S05523.acpd +++| RPLINEX(OFFA,T,J+11,9,NLFC); 05774 M00S05524.acpd +++| RPLINEX(OFFA,"TO ",J+21,3,NLFC); 05775 M00S05525.acpd +++| T$WD[0]=EDATE(N2/SHFC); 05776 M00S05526.acpd +++| RPLINEX(OFFA,T,J+23,9,LFDC); 05777 M00S05527.acpd +++| END # COMPUTE AND PRINT LENGTH OF TOTAL # 05778 M00S05528.acpd +++| 05779 M00S05529.acpd +++| END # PRINT TIME # 05780 M00S05530.acpd +++| 05781 M00S05531.acpd +++| ELSE # PRINTING SNAPSHOT ELEMENTS # 05782 M00S05532.acpd +++| BEGIN 05783 M00S05533.acpd +++| RPLINEX(OFFA,BLKC,J,1,LFDC); 05784 M00S05534.acpd +++| END 05785 M00S05535.acpd +++| 05786 M00S05536.acpd +++|# 05787 M00S05537.acpd +++|* PRINT SECOND LINE OF THE SUBTITLE. 05788 M00S05538.acpd +++|# 05789 M00S05539.acpd +++| 05790 M00S05540.acpd +++| J=BCLC + 1; 05791 M00S05541.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP 05792 M00S05542.acpd +++| DO 05793 M00S05543.acpd +++| BEGIN 05794 M00S05544.acpd +++| RPLINEX(OFFA," INTERVAL",J,9,NLFC); 05795 M00S05545.acpd +++| J=J+10; 05796 M00S05546.acpd +++| END 05797 M00S05547.acpd +++| 05798 M00S05548.acpd +++| IF (TLFG EQ 1) # NOT PRINTING SNAPSHOT ELEMENTS # 05799 M00S05549.acpd +++| THEN 05800 M00S05550.acpd +++| BEGIN # PRINT SUBTOTAL AND TOTAL HEADERS # 05801 M00S05551.acpd +++| IF (NIPP GR (DCDC-3)) 05802 M00S05552.acpd +++| THEN # PRINT TOTAL ON NEXT PAGE # 05803 M00S05553.acpd +++| BEGIN 05804 M00S05554.acpd +++| RPLINEX(OFFA," SUBTOTAL",J,9,LFDC); 05805 M00S05555.acpd +++| END 05806 M00S05556.acpd +++| 05807 M00S05557.acpd +++| ELSE # PRINT TOTAL ON THE SAME PAGE # 05808 M00S05558.acpd +++| BEGIN # PRINT SUBTOTAL AND TOTAL HEADERS ON SAME PAGE # 05809 M00S05559.acpd +++| IF (NIPP GR 0) # TOTAL IS NOT FIRST COLUMN # 05810 M00S05560.acpd +++| AND (TCOL GR (DCDC-3)) 05811 M00S05561.acpd +++| THEN 05812 M00S05562.acpd +++| BEGIN 05813 M00S05563.acpd +++| RPLINEX(OFFA," SUBTOTAL",J,9,NLFC); 05814 M00S05564.acpd +++| J=J+10; 05815 M00S05565.acpd +++| END 05816 M00S05566.acpd +++| 05817 M00S05567.acpd +++| RPLINEX(OFFA," TOTAL",J,9,NLFC); 05818 M00S05568.acpd +++| RPLINEX(OFFA," *MAX* ",J+10,10,NLFC); 05819 M00S05569.acpd +++| RPLINEX(OFFA," *MIN* ",J+20,10,LFDC); 05820 M00S05570.acpd +++| END # PRINT SUBTOTAL AND TOTAL HEADERS ON SAME PAGE # 05821 M00S05571.acpd +++| 05822 M00S05572.acpd +++| END # PRINT SUBTOTAL AND TOTAL HEADERS # 05823 M00S05573.acpd +++| 05824 M00S05574.acpd +++| ELSE # PRINTING SNAPSHOT ELEMENTS # 05825 M00S05575.acpd +++| BEGIN 05826 M00S05576.acpd +++| RPLINEX(OFFA,BLKC,J,1,LFDC); 05827 M00S05577.acpd +++| END 05828 M00S05578.acpd +++| 05829 M00S05579.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); # LINE FEED # 05830 M00S05580.acpd +++| RETURN; 05831 M00S05581.acpd +++| END # REPTLE # 05832 M00S05582.acpd +++| 05833 M00S05583.acpd +++| TERM 05834 M00S05584.acpd +++|PROC WRITEV(PVL,(DTY),(BCL),(FWD),(CRC)); 05835 M00S05585.acpd +++|# TITLE WRITEV - WRITE TO REPORT FILE. # 05836 M00S05586.acpd +++| 05837 M00S05587.acpd +++| BEGIN # WRITEV # 05838 M00S05588.acpd +++| 05839 M00S05589.acpd +++|# 05840 M00S05590.acpd +++|** WRITEV - WRITE TO REPORT FILE. 05841 M00S05591.acpd +++|* 05842 M00S05592.acpd +++|* WRITE ONE VALUE TO THE REPORT FILE. 05843 M00S05593.acpd +++|* 05844 M00S05594.acpd +++|* PROC WRITEV(PVL,(DTY),(BCL),(FWD),(CRC)) 05845 M00S05595.acpd +++|* 05846 M00S05596.acpd +++|* ENTRY PVL = VALUE TO BE PRINTED. 05847 M00S05597.acpd +++|* DTY = DATA TYPE. 05848 M00S05598.acpd +++|* BCL = BEGINNING COLUMN TO WRITE. 05849 M00S05599.acpd +++|* FWD = FIELD WIDTH. 05850 M00S05600.acpd +++|* CRC = CARRIAGE CONTROL. 05851 M00S05601.acpd +++|* *LFD* IF LINE FEED AT THE END OF THE LINE 05852 M00S05602.acpd +++|* *NLF* IF NO LINE FEED 05853 M00S05603.acpd +++|* 05854 M00S05604.acpd +++|* EXIT THE VALUE IS PRINTED TO THE REPORT FILE ACCORDING 05855 M00S05605.acpd +++|* TO THE SPECIFIED FORMAT. 05856 M00S05606.acpd +++|# 05857 M00S05607.acpd +++| 05858 M00S05608.acpd +++|# 05859 M00S05609.acpd +++|* PARAMETER LIST. 05860 M00S05610.acpd +++|# 05861 M00S05611.acpd +++| 05862 M00S05612.acpd +++| ITEM PVL U; # ADDRESS OF VALUE # 05863 M00S05613.acpd +++| ITEM DTY I; # DATA TYPE # 05864 M00S05614.acpd +++| ITEM BCL I; # BEGINNING COLUMN # 05865 M00S05615.acpd +++| ITEM FWD I; # FIELD WIDTH # 05866 M00S05616.acpd +++| ITEM CRC I; # CARRIAGE CONTROL # 05867 M00S05617.acpd +++| 05868 M00S05618.acpd +++|# 05869 M00S05619.acpd +++|**** PROC WRITEV - XREF LIST BEGIN. 05870 M00S05620.acpd +++|# 05871 M00S05621.acpd +++| 05872 M00S05622.acpd +++| XREF 05873 M00S05623.acpd +++| BEGIN 05874 M00S05624.acpd +++| PROC BZFILL; # BLANK/ZERO FILL ITEM # 05875 M00S05625.acpd +++| PROC RPLINE; # PRINT ONE REPORT LINE # 05876 M00S05626.acpd +++| FUNC XCDD C(10); # BINARY TO DISPLAY DECIMAL # 05877 M00S05627.acpd +++| FUNC XCED C(10); # BINARY TO DISPLAY *E* FORMAT # 05878 M00S05628.acpd +++| FUNC XCFD C(10); # BINARY TO DISPLAY REAL # 05879 M00S05629.acpd +++| FUNC XCOD C(10); # BINARY TO DISPLAY OCTAL # 05880 M00S05630.acpd +++| END 05881 M00S05631.acpd +++| 05882 M00S05632.acpd +++|# 05883 M00S05633.acpd +++|**** PROC WRITEV - XREF LIST END. 05884 M00S05634.acpd +++|# 05885 M00S05635.acpd +++| 05886 M00S05636.acpd +++| DEF BLKC #" "#; # BLANK # 05887 M00S05637.acpd +++| DEF MAXF #1.0E4#; # MAXIMUM VALUE OF *F* FORMAT # 05888 M00S05638.acpd +++| DEF ZERC #"0"#; # CHARACTER 0 # 05889 M00S05639.acpd +++| 05890 M00S05640.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 05891 M00S05641.acpd +++| 05892 M00S05642.acpd +++|*CALL COMUCPD 05893 M00S05643.acpd +++|*CALL COMABZF 05894 M00S05644.acpd +++| 05895 M00S05645.acpd +++|# 05896 M00S05646.acpd +++|* LOCAL VARIABLES. 05897 M00S05647.acpd +++|# 05898 M00S05648.acpd +++| 05899 M00S05649.acpd +++| ITEM N I; # TEMPORARY VARIABLE # 05900 M00S05650.acpd +++| ITEM NF R; # TEMPORARY VARIABLE #
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 05901 M01S00038.252l678 +++| ITEM T1 I; # TEMPORARY VARIABLE # 05902 M01S00039.252l678 +++| ITEM T2 I; # TEMPORARY VARIABLE # 05903 M00S05651.acpd +++| 05904 M00S05652.acpd +++| ARRAY P [0:0] P(1); # TEMPORARY BUFFER # 05905 M00S05653.acpd +++| BEGIN # ARRAY P # 05906 M00S05654.acpd +++| ITEM P$WD C(00,00,10); # 10 CHAR VALUE # 05907 M00S05655.acpd +++| ITEM P$WF C(00,06,09); # 9 LEAST SIGNIFICANT DIGITS # 05908 M00S05656.acpd +++| END # ARRAY P # 05909 M00S05657.acpd +++| 05910 M00S05658.acpd +++| ARRAY TEM [0:0] P(1); # DISPLAY CODE VALUE # 05911 M00S05659.acpd +++| BEGIN # ARRAY TEM # 05912 M00S05660.acpd +++| ITEM T$WD C(00,00,10); # VALUE # 05913 M00S05661.acpd +++| ITEM T$W1 C(00,00,09); # VALUE WITH NO POSTFIX # 05914 M00S05662.acpd +++| ITEM T$W2 C(00,54,01); # *B* POSTFIX # 05915 M00S05663.acpd +++| END # ARRAY TEM # 05916 M00S05664.acpd +++| 05917 M00S05665.acpd +++| BASED 05918 M00S05666.acpd +++| ARRAY VAL [0:0] P(1); # VALUE TO BE PRINTED # 05919 M00S05667.acpd +++| BEGIN # ARRAY VAL # 05920 M00S05668.acpd +++| ITEM VAL$C C(00,00,50); # CHARACTER TYPE # 05921 M00S05669.acpd +++| ITEM VAL$N I(00,00,60); # INTEGER TYPE # 05922 M00S05670.acpd +++| ITEM VAL$F R(00,00,60); # REAL TYPE # 05923 M00S05671.acpd +++| END # ARRAY VAL # 05924 M00S05672.acpd +++| 05925 M00S05673.acpd +++| SWITCH TYPE 05926 M00S05674.acpd +++| CHRS, # CHARACTER # 05927 M00S05675.acpd +++| FLPS, # FLOATING POINT # 05928 M00S05676.acpd +++| INTS, # INTEGER # 05929 M00S05677.acpd +++| OC1S, # OCTAL WITH *B* POSTFIX # 05930 M00S05678.acpd +++| OC2S, # OCTAL WITH NO POSTFIX # 05931 M00S05679.acpd +++| OC3S, # *B* POSTFIX, ZERO FILLED #
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 05932 M01S00040.252l678 +++| OC4S, # OCTAL, ALLOWING FOR *UESC* # 05933 M00S05680.acpd +++| ; # END OF TYPE # 05934 M00S05681.acpd +++| 05935 M00S05682.acpd +++| LABEL EXIT; # END CASE # 05936 M00S05683.acpd +++| 05937 M00S05684.acpd +++| 05938 M00S05685.acpd +++| 05939 M00S05686.acpd +++| 05940 M00S05687.acpd +++| 05941 M00S05688.acpd +++|# 05942 M00S05689.acpd +++|* BEGIN WRITEV PROC. 05943 M00S05690.acpd +++|# 05944 M00S05691.acpd +++| 05945 M00S05692.acpd +++| IF (P$L EQ NULL) # NO REPORT FILE # 05946 M00S05693.acpd +++| THEN # SUPPRESS REPORT FILE # 05947 M00S05694.acpd +++| BEGIN 05948 M00S05695.acpd +++| RETURN; 05949 M00S05696.acpd +++| END 05950 M00S05697.acpd +++| 05951 M00S05698.acpd +++| P<VAL>=LOC(PVL); 05952 M00S05699.acpd +++| GOTO TYPE[DTY]; 05953 M00S05700.acpd +++| 05954 M00S05701.acpd +++|CHRS: # CHARACTER # 05955 M00S05702.acpd +++| BZFILL(VAL,TYPFILL"BFILL",FWD); 05956 M00S05703.acpd +++| RPLINE(OFFA,C<0,FWD>VAL$C[0],BCL,FWD,CRC); 05957 M00S05704.acpd +++| RETURN; 05958 M00S05705.acpd +++| 05959 M00S05706.acpd +++|FLPS: # FLOATING POINT # 05960 M00S05707.acpd +++| IF (VAL$F[0] GQ MAXF) # PRINT IN *E* FORMAT # 05961 M00S05708.acpd +++| THEN 05962 M00S05709.acpd +++| BEGIN 05963 M00S05710.acpd +++| NF=VAL$F[0]; 05964 M00S05711.acpd +++| T$WD[0]=XCED(NF); 05965 M00S05712.acpd +++| END 05966 M00S05713.acpd +++| 05967 M00S05714.acpd +++| ELSE # PRINT IN *F* FORMAT # 05968 M00S05715.acpd +++| BEGIN 05969 M00S05716.acpd +++| N=VAL$F[0]*1000.0 + 0.5; 05970 M00S05717.acpd +++| T$WD[0]=XCFD(N); 05971 M00S05718.acpd +++| END 05972 M00S05719.acpd +++| 05973 M00S05720.acpd +++| GOTO EXIT; 05974 M00S05721.acpd +++| 05975 M00S05722.acpd +++|INTS: # INTEGER # 05976 M00S05723.acpd +++| T$WD[0]=XCDD(VAL$N[0]); 05977 M00S05724.acpd +++| GOTO EXIT; 05978 M00S05725.acpd +++| 05979 M00S05726.acpd +++|OC1S: # OCTAL POSTFIXED WITH *B* # 05980 M00S05727.acpd +++| P$WD[0]=XCOD(VAL$N[0]); 05981 M00S05728.acpd +++| T$W1[0]=P$WF[0]; 05982 M00S05729.acpd +++| T$W2[0]="B"; 05983 M00S05730.acpd +++| GOTO EXIT; 05984 M00S05731.acpd +++| 05985 M00S05732.acpd +++|OC2S: # OCTAL WITHOUT *B* POSTFIX # 05986 M00S05733.acpd +++| T$WD[0]=XCOD(VAL$N[0]); 05987 M00S05734.acpd +++| GOTO EXIT; 05988 M00S05735.acpd +++| 05989 M00S05736.acpd +++|OC3S: # OCTAL NO POSTFIX, ZERO FILLED # 05990 M00S05737.acpd +++| T$WD[0]=XCOD(VAL$N[0]); 05991 M00S05738.acpd +++| SLOWFOR N=0 STEP 1 WHILE C<N,1>T$WD[0] EQ BLKC 05992 M00S05739.acpd +++| DO # CONVERT BLANK TO DISPLAY 0 # 05993 M00S05740.acpd +++| BEGIN 05994 M00S05741.acpd +++| C<N,1>T$WD[0]=ZERC; 05995 M00S05742.acpd +++| END
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 05996 M01S00041.252l678 +++| GOTO EXIT; 05997 M01S00042.252l678 +++| 05998 M01S00043.252l678 +++|OC4S: # OCTAL WITH *B*, SHIFTED *UESC* # 05999 M01S00044.252l678 +++| T1 = P<DCHD>; 06000 M01S00045.252l678 +++| T2 = P<DDSC>; 06001 M01S00046.252l678 +++| P<DCHD> = LOC(DBUF); 06002 M01S00047.252l678 +++| P<DDSC> = LOC(DDHD); 06003 M01S00048.252l678 +++| P$WD[0]=XCOD(VAL$N[0]*2**DCHD$WD[DDSC$FW[UESC]]); 06004 M01S00049.252l678 +++| P<DCHD> = T1; 06005 M01S00050.252l678 +++| P<DDSC> = T2; 06006 M01S00051.252l678 +++| T$W1[0]=P$WF[0]; 06007 M01S00052.252l678 +++| T$W2[0]="B"; 06008 M00S05743.acpd +++| 06009 M00S05744.acpd +++|EXIT: 06010 M00S05745.acpd +++| RPLINE(OFFA,C<10-FWD,FWD>T$WD[0],BCL,FWD,CRC); 06011 M00S05746.acpd +++| RETURN; 06012 M00S05747.acpd +++| END # WRITEV # 06013 M00S05748.acpd +++| 06014 M00S05749.acpd +++| TERM 06015 M00S05750.acpd +++|PROC WRTSUM((NIP)); 06016 M00S05751.acpd +++|# TITLE WRTSUM - WRITE SUMMARY FILE. # 06017 M00S05752.acpd +++| 06018 M00S05753.acpd +++| BEGIN # WRTSUM # 06019 M00S05754.acpd +++| 06020 M00S05755.acpd +++|# 06021 M00S05756.acpd +++|** WRTSUM - WRITE SUMMARY FILE. 06022 M00S05757.acpd +++|* 06023 M00S05758.acpd +++|* WRITE DATA BLOCK ELEMENTS TO SUMMARY FILE. 06024 M00S05759.acpd +++|* 06025 M00S05760.acpd +++|* PROC WRTSUM((NIP)) 06026 M00S05761.acpd +++|* 06027 M00S05762.acpd +++|* ENTRY TABLE *DCDT*. 06028 M00S05763.acpd +++|* NIP = NUMBER OF INTERVALS PER PAGE. 06029 M00S05764.acpd +++|* 06030 M00S05765.acpd +++|* EXIT THE AVERAGE AND STANDARD DEVIATION OF EACH 06031 M00S05766.acpd +++|* DATA BLOCK ELEMENT ARE WRITTEN TO THE SUMMARY 06032 M00S05767.acpd +++|* FILE. 06033 M00S05768.acpd +++|# 06034 M00S05769.acpd +++| 06035 M00S05770.acpd +++|# 06036 M00S05771.acpd +++|* PARAMETER LIST. 06037 M00S05772.acpd +++|# 06038 M00S05773.acpd +++| 06039 M00S05774.acpd +++| ITEM NIP I; # NUMBER OF INTERVALS PER PAGE # 06040 M00S05775.acpd +++| 06041 M00S05776.acpd +++|# 06042 M00S05777.acpd +++|**** PROC WRTSUM - XREF LIST BEGIN. 06043 M00S05778.acpd +++|# 06044 M00S05779.acpd +++| 06045 M00S05780.acpd +++| XREF 06046 M00S05781.acpd +++| BEGIN 06047 M00S05782.acpd +++| PROC WRITER; # WRITE EOR # 06048 M00S05783.acpd +++| PROC WRITEW; # *CIO* WRITEW # 06049 M00S05784.acpd +++| END 06050 M00S05785.acpd +++| 06051 M00S05786.acpd +++|# 06052 M00S05787.acpd +++|**** PROC WRTSUM - XREF LIST END. 06053 M00S05788.acpd +++|# 06054 M00S05789.acpd +++| 06055 M00S05790.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 06056 M00S05791.acpd +++| 06057 M00S05792.acpd +++|*CALL COMUCPD 06058 M00S05793.acpd +++| 06059 M00S05794.acpd +++|# 06060 M00S05795.acpd +++|* LOCAL VARIABLES. 06061 M00S05796.acpd +++|# 06062 M00S05797.acpd +++| 06063 M00S05798.acpd +++| ITEM I I; # FOR LOOP CONTROL # 06064 M00S05799.acpd +++| ITEM WA I; # ADDRESS OF DECODED BUFFER # 06065 M00S05800.acpd +++| 06066 M00S05801.acpd +++| BASED 06067 M00S05802.acpd +++| ARRAY SUM [0:0] P(1);; # DUMMY BUFFER # 06068 M00S05803.acpd +++| 06069 M00S05804.acpd +++| 06070 M00S05805.acpd +++| 06071 M00S05806.acpd +++| 06072 M00S05807.acpd +++| 06073 M00S05808.acpd +++|# 06074 M00S05809.acpd +++|* BEGIN WRTSUM PROC. 06075 M00S05810.acpd +++|# 06076 M00S05811.acpd +++| 06077 M00S05812.acpd +++| P<DCDT>=LOC(DBUF[DCHL]); 06078 M00S05813.acpd +++| WA=1; 06079 M00S05814.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIP 06080 M00S05815.acpd +++| DO 06081 M00S05816.acpd +++| BEGIN 06082 M00S05817.acpd +++| P<SUM>=LOC(DCDT$WD[WA]); 06083 M00S05818.acpd +++| WRITEW(FETS,SUM,DCDL,0); # WRITE AVERAGE # 06084 M00S05819.acpd +++| P<SUM>=LOC(DCDT$WD[DCDC*DCDL + WA]); 06085 M00S05820.acpd +++| WRITEW(FETS,SUM,DCDL,0); # WRITE STANDARD DEVIATION # 06086 M00S05821.acpd +++| WRITER(FETS,1); # WRITE EOR # 06087 M00S05822.acpd +++| WA=WA + DCDL; 06088 M00S05823.acpd +++| END 06089 M00S05824.acpd +++| 06090 M00S05825.acpd +++| RETURN; 06091 M00S05826.acpd +++| END # WRTSUM # 06092 M00S05827.acpd +++| 06093 M00S05828.acpd +++| TERM 06094 M00S05829.acpd +++|FUNC XCED((NUM)) C(10); 06095 M00S05830.acpd +++|# TITLE XCED - CONVERT NUMBER TO THE DISPLAY *E* FORMAT. # 06096 M00S05831.acpd +++| 06097 M00S05832.acpd +++| BEGIN # XCED # 06098 M00S05833.acpd +++| 06099 M00S05834.acpd +++|# 06100 M00S05835.acpd +++|** XCED - CONVERT NUMBER TO THE DISPLAY *E* FORMAT. 06101 M00S05836.acpd +++|* 06102 M00S05837.acpd +++|* *XCED* CONVERTS A REAL NUMBER TO THE FORTRAN *E* FORMAT. 06103 M00S05838.acpd +++|* THE NUMBER HAS TO BE GREATER THAN 1.0E4 AND LESS THAN 06104 M00S05839.acpd +++|* (2**32 - 1). 06105 M00S05840.acpd +++|* THE RESULT IS A NORMALIZED NUMBER IN DISPLAY CODE. 06106 M00S05841.acpd +++|* THE FORMAT OF THE CONVERTED NUMBER IS : 06107 M00S05842.acpd +++|* 06108 M00S05843.acpd +++|* BB.XXXXEYY 06109 M00S05844.acpd +++|* 06110 M00S05845.acpd +++|* THE VALUE IS RIGHT-JUSTIFIED, BLANK FILLED. 06111 M00S05846.acpd +++|* IF THE EXPONENT *YY* IS ONLY ONE DIGIT LONG, 06112 M00S05847.acpd +++|* THE MANTISSA *XXXX* IS INCREASED TO FIVE DIGITS. 06113 M00S05848.acpd +++|* 06114 M00S05849.acpd +++|* FUNC XCED((NUM)) C(10) 06115 M00S05850.acpd +++|* 06116 M00S05851.acpd +++|* ENTRY NUM = NUMBER TO BE CONVERTED. 06117 M00S05852.acpd +++|* 06118 M00S05853.acpd +++|* EXIT THE NUMBER IS NORMALIZED AND CONVERTED TO 06119 M00S05854.acpd +++|* DISPLAY CODE. 06120 M00S05855.acpd +++|# 06121 M00S05856.acpd +++| 06122 M00S05857.acpd +++|# 06123 M00S05858.acpd +++|* PARAMETER LIST. 06124 M00S05859.acpd +++|# 06125 M00S05860.acpd +++| 06126 M00S05861.acpd +++| ITEM NUM R; # NUMBER TO BE CONVERTED # 06127 M00S05862.acpd +++| 06128 M00S05863.acpd +++|# 06129 M00S05864.acpd +++|**** FUNC XCED - XREF LIST BEGIN. 06130 M00S05865.acpd +++|# 06131 M00S05866.acpd +++| 06132 M00S05867.acpd +++| XREF 06133 M00S05868.acpd +++| BEGIN 06134 M00S05869.acpd +++| FUNC XCDD C(10); # BINARY TO DISPLAY DECIMAL # 06135 M00S05870.acpd +++| END 06136 M00S05871.acpd +++| 06137 M00S05872.acpd +++|# 06138 M00S05873.acpd +++|**** FUNC XCED - XREF LIST END. 06139 M00S05874.acpd +++|# 06140 M00S05875.acpd +++| 06141 M00S05876.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING # 06142 M00S05877.acpd +++| 06143 M00S05878.acpd +++|*CALL COMUCPD 06144 M00S05879.acpd +++| 06145 M00S05880.acpd +++|# 06146 M00S05881.acpd +++|* LOCAL VARIABLES. 06147 M00S05882.acpd +++|# 06148 M00S05883.acpd +++| 06149 M00S05884.acpd +++| ITEM EXP I; # EXPONENT # 06150 M00S05885.acpd +++| ITEM I I; # FOR LOOP CONTROL # 06151 M00S05886.acpd +++| ITEM J I; # FOR LOOP CONTROL # 06152 M00S05887.acpd +++| ITEM NUMF R; # TEMPORARY VARIABLE # 06153 M00S05888.acpd +++| ITEM NUMI I; # TEMPORARY VARIABLE # 06154 M00S05889.acpd +++| ITEM P I; # POSITION OF *E* # 06155 M00S05890.acpd +++| ITEM TEM1 C(10); # TEMPORARY VARIABLE # 06156 M00S05891.acpd +++| 06157 M00S05892.acpd +++| ARRAY TEM [0:0] P(1); # TEMPORARY STORAGE # 06158 M00S05893.acpd +++| BEGIN # ARRAY TEM # 06159 M00S05894.acpd +++| ITEM T$WD C(00,00,10); # CONVERTED NUMBER # 06160 M00S05895.acpd +++| ITEM T$DP C(00,12,01); # DECIMAL POINT # 06161 M00S05896.acpd +++| END # ARRAY TEM # 06162 M00S05897.acpd +++| 06163 M00S05898.acpd +++| 06164 M00S05899.acpd +++| 06165 M00S05900.acpd +++| 06166 M00S05901.acpd +++| 06167 M00S05902.acpd +++|# 06168 M00S05903.acpd +++|* BEGIN XCED FUNC. 06169 M00S05904.acpd +++|# 06170 M00S05905.acpd +++| 06171 M00S05906.acpd +++| NUMF=NUM; 06172 M00S05907.acpd +++| EXP=0; 06173 M00S05908.acpd +++| 06174 M00S05909.acpd +++|# 06175 M00S05910.acpd +++|* NORMALIZE THE NUMBER. 06176 M00S05911.acpd +++|# 06177 M00S05912.acpd +++| 06178 M00S05913.acpd +++| SLOWFOR I=1 WHILE (NUMF GQ 1.0) 06179 M00S05914.acpd +++| DO 06180 M00S05915.acpd +++| BEGIN 06181 M00S05916.acpd +++| NUMF=NUMF/10.0; 06182 M00S05917.acpd +++| EXP=EXP + 1; 06183 M00S05918.acpd +++| END 06184 M00S05919.acpd +++| 06185 M00S05920.acpd +++| T$WD[0]=XCDD(EXP); 06186 M00S05921.acpd +++| T$DP[0]="."; # DECIMAL POINT # 06187 M00S05922.acpd +++| P=8; # POSITION OF *E* # 06188 M00S05923.acpd +++| IF (EXP GQ 10) 06189 M00S05924.acpd +++| THEN 06190 M00S05925.acpd +++| BEGIN 06191 M00S05926.acpd +++| P=7; 06192 M00S05927.acpd +++| END 06193 M00S05928.acpd +++| 06194 M00S05929.acpd +++| NUMI=NUM; 06195 M00S05930.acpd +++| TEM1=XCDD(NUMI); 06196 M00S05931.acpd +++| 06197 M00S05932.acpd +++|# 06198 M00S05933.acpd +++|* MOVE THE MOST SIGNIFICANT DIGITS TO *TEM*. 06199 M00S05934.acpd +++|# 06200 M00S05935.acpd +++| 06201 M00S05936.acpd +++| SLOWFOR I=0 STEP 1 WHILE (C<I,1>TEM1 EQ " ") 06202 M00S05937.acpd +++| DO; # FIND THE FIRST DIGIT # 06203 M00S05938.acpd +++| 06204 M00S05939.acpd +++| FASTFOR J=3 STEP 1 UNTIL P-1 06205 M00S05940.acpd +++| DO 06206 M00S05941.acpd +++| BEGIN # MOVE THE MOST SIGNIFICANT DIGITS # 06207 M00S05942.acpd +++| C<J,1>T$WD[0]=C<I,1>TEM1; 06208 M00S05943.acpd +++| I=I+1; 06209 M00S05944.acpd +++| END # MOVE THE MOST SIGNIFICANT DIGITS # 06210 M00S05945.acpd +++| 06211 M00S05946.acpd +++| C<P,1>T$WD[0]="E"; # PLACE THE *E* CHARACTER # 06212 M00S05947.acpd +++| XCED=T$WD[0]; 06213 M00S05948.acpd +++| RETURN; 06214 M00S05949.acpd +++| END # XCED # 06215 M00S05950.acpd +++| 06216 M00S05951.acpd +++| TERM
cdc/nos2.source/opl.opl871/deck/acpd.002.txt · Last modified: by 127.0.0.1