Seq # *Modification Id* Act
----------------------------+
04251 M01S04119.acpd +++|* PRINT SAMPLE TIMES. *NIPP* IS THE NUMBER OF COLUMNS PER PAGE.
04252 M01S04120.acpd +++|#
04253 M01S04121.acpd +++|
04254 M01S04122.acpd +++| J=BCLC; # STARTING POSITION TO PRINT #
04255 M01S04123.acpd +++| SUM=0;
04256 M01S04124.acpd +++| P<DDSC>=LOC(DDDT);
04257 M01S04125.acpd +++|
04258 M01S04126.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP
04259 M01S04127.acpd +++| DO
04260 M01S04128.acpd +++| BEGIN
04261 M01S04129.acpd +++| SM=DCDT$WD[(I-1)*DCDL + DDSC$FW[PT]];
04262 M01S04130.acpd +++| WRITEV(SM,INTC,J,10,NLFC);
04263 M01S04131.acpd +++| SUM=SUM+SM;
04264 M01S04132.acpd +++| J=J+10;
04265 M01S04133.acpd +++| END
04266 M01S04134.acpd +++|
04267 M01S04135.acpd +++| IF (NIPP GR (DCDC-3)) # MORE THAN 7 COLUMNS #
04268 M01S04136.acpd +++| THEN # NO TOTAL ON THIS PAGE #
04269 M01S04137.acpd +++| BEGIN
04270 M01S04138.acpd +++| WRITEV(SUM,INTC,J,10,LFDC); # PRINT SUBTOTAL #
04271 M01S04139.acpd +++| END
04272 M01S04140.acpd +++|
04273 M01S04141.acpd +++| ELSE # PRINT TOTAL ON SAME PAGE #
04274 M01S04142.acpd +++| BEGIN
04275 M01S04143.acpd +++| IF (NIPP GR 0) # MORE THAN 1 COLUMN COLLECTED #
04276 M01S04144.acpd +++| AND (TCOL GR (DCDC-3))
04277 M01S04145.acpd +++| THEN # PRINT SUBTOTAL #
04278 M01S04146.acpd +++| BEGIN
04279 M01S04147.acpd +++| WRITEV(SUM,INTC,J,10,NLFC);
04280 M01S04148.acpd +++| J=J+10;
04281 M01S04149.acpd +++| END
04282 M01S04150.acpd +++|
04283 M01S04151.acpd +++| SUM=DDSM$IM[DDSC$FW[PT]]; # TOTAL SAMPLES #
04284 M01S04152.acpd +++| WRITEV(SUM,INTC,J,10,LFDC);
04285 M01S04153.acpd +++| END
04286 M01S04154.acpd +++|
04287 M01S04155.acpd +++|#
04288 M01S04156.acpd +++|* COMPUTE AND PRINT LOOP ELEMENTS.
04289 M01S04157.acpd +++|* THE PROCESSING OF THE LOOP ELEMENTS WILL FOLLOW THE
04290 M01S04158.acpd +++|* INSTRUCTIONS CONTAINED IN THE *DSPT* TABLE FROM
04291 M01S04159.acpd +++|* *FWA* TO *LWA*.
04292 M01S04160.acpd +++|#
04293 M01S04161.acpd +++|
04294 M01S04162.acpd +++| CT=FWA+1;
04295 M01S04163.acpd +++| FASTFOR I=0 WHILE (CT LQ LWA)
04296 M01S04164.acpd +++| DO
04297 M01S04165.acpd +++| BEGIN # FOLLOW TABLE *DSPT* #
04298 M01S04166.acpd +++| PT=DSPT$PT[CT]; # POINTER TO *DDSC* TABLE #
04299 M01S04167.acpd +++| IF NOT (DDSC$SD[PT]) # ELEMENT IS NOT SELECTED #
04300 M01S04168.acpd +++| THEN
04301 M01S04169.acpd +++| BEGIN
04302 M01S04170.acpd +++| CT=CT+1;
04303 M01S04171.acpd +++| TEST I; # SKIP IT #
04304 M01S04172.acpd +++| END
04305 M01S04173.acpd +++|
04306 M01S04174.acpd +++| ST=DSPT$ST[CT]; # POINTER TO SUBTITLE TABLE #
04307 M01S04175.acpd +++| GETMSG(CT,MS1);
04308 M01S04176.acpd +++| WA=DDSC$WA[PT]; # WEIGHT FACTOR INFORMATION #
04309 M01S04177.acpd +++| WP=DDSC$WP[PT]; # WEIGHT FACTOR #
04310 M01S04178.acpd +++| IF (WA EQ WGFC) # WEIGHT FACTOR SPECIFIED #
04311 M01S04179.acpd +++| THEN
04312 M01S04180.acpd +++| BEGIN # CHECK IF MULTIPLE WEIGHT FACTORS #
04313 M01S04181.acpd +++| P<DDSC>=LOC(DDHD);
04314 M01S04182.acpd +++| IF (DDSC$LN[WP] GR 1) # MORE THAN 1 WEIGHT FACTOR #
04315 M01S04183.acpd +++| THEN
04316 M01S04184.acpd +++| BEGIN
04317 M01S04185.acpd +++| WIC=DDSC$IC[WP]; # WEIGHT FACTOR INCREMENTOR #
04318 M01S04186.acpd +++| END
04319 M01S04187.acpd +++|
04320 M01S04188.acpd +++| ELSE
04321 M01S04189.acpd +++| BEGIN
04322 M01S04190.acpd +++| WIC=0;
04323 M01S04191.acpd +++| END
04324 M01S04192.acpd +++|
04325 M01S04193.acpd +++| P<DDSC>=LOC(DDDT);
04326 M01S04194.acpd +++| END # CHECK IF MULTIPLE WEIGHT FACTORS #
04327 M01S04195.acpd +++|
04328 M01S04196.acpd +++| TY=DDSC$TY[PT]; # DATA TYPE #
04329 M01S04197.acpd +++| FW=DDSC$FW[PT]; # POINTER TO *DCDT* TABLE #
04330 M01S04198.acpd +++| LN=DDSC$LN[PT]; # NUMBER OF ENTRIES #
04331 M01S04199.acpd +++| IC=DDSC$IC[PT]; # INCREMENTOR #
04332 M01S04200.acpd +++|
04333 M01S04201.acpd +++|#
04334 M01S04202.acpd +++|* IF THE POINTER TO SUBBLOCK TITLE TABLE *ST* IS NIL (*NSBC*),
04335 M01S04203.acpd +++|* THE ELEMENT IS A SINGLE ENTRY ELEMENT OR HAS NO SUBTITLES.
04336 M01S04204.acpd +++|#
04337 M01S04205.acpd +++|
04338 M01S04206.acpd +++|
04339 M01S04207.acpd +++| IF (ST EQ NSBC) # SINGLE ENTRY OR NO SUBTITLE #
04340 M01S04208.acpd +++| THEN
04341 M01S04209.acpd +++| BEGIN # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT #
04342 M01S04210.acpd +++| FG=FALSE; # DO NOT PRINT SUBBLOCK TITLE #
04343 M01S04211.acpd +++| POS=0; # FIRST WEIGHT FACTOR POSITION #
04344 M01S04212.acpd +++| SLOWFOR J=1 STEP 1 WHILE (J LS LN)
04345 M01S04213.acpd +++| DO
04346 M01S04214.acpd +++| BEGIN
04347 M01S04215.acpd +++| DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF);
04348 M01S04216.acpd +++| CT=CT+1;
04349 M01S04217.acpd +++| GETMSG(CT,MS1);
04350 M01S04218.acpd +++| FW=FW+IC;
04351 M01S04219.acpd +++| POS=POS+WIC;
04352 M01S04220.acpd +++| END
04353 M01S04221.acpd +++|
04354 M01S04222.acpd +++| DATELM(FG,BLKC,MS1,WA,WP,POS,TY,FW,NSF);
04355 M01S04223.acpd +++| END # PROCESS SINGLE ENTRY OR NO SUBTITLE ELEMENT #
04356 M01S04224.acpd +++|
04357 M01S04225.acpd +++|#
04358 M01S04226.acpd +++|* THE ELEMENT HAS SUBTITLES TO BE PROCESS. EACH ENTRY OF THE
04359 M01S04227.acpd +++|* MULTIPLE-ENTRY ELEMENT HAS A SUBTITLE DEFINED IN TABLE *SMGT*.
04360 M01S04228.acpd +++|#
04361 M01S04229.acpd +++|
04362 M01S04230.acpd +++| ELSE
04363 M01S04231.acpd +++| BEGIN # MULTIPLE ENTRIES #
04364 M01S04232.acpd +++| T=ST;
04365 M01S04233.acpd +++| FG=TRUE; # PRINT SUBBLOCK #
04366 M01S04234.acpd +++| POS=0;
04367 M01S04235.acpd +++| FASTFOR J=1 STEP 1 UNTIL LN
04368 M01S04236.acpd +++| DO
04369 M01S04237.acpd +++| BEGIN # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT #
04370 M01S04238.acpd +++| MS2$MS[1]=SMGT$TX[T];
04371 M01S04239.acpd +++| IF (MS2$MS[1] EQ BLKC) # END OF SUBBLOCK TABLE #
04372 M01S04240.acpd +++| THEN
04373 M01S04241.acpd +++| BEGIN
04374 M01S04242.acpd +++| T=ST; # RESET *SMGT* POINTER #
04375 M01S04243.acpd +++| CT=CT+1; # NEXT *DSPT* ELEMENT #
04376 M01S04244.acpd +++| GETMSG(CT,MS1);
04377 M01S04245.acpd +++| MS2$MS[1]=SMGT$TX[T];
04378 M01S04246.acpd +++| FG=TRUE; # PRINT SUBBLOCK #
04379 M01S04247.acpd +++| END
04380 M01S04248.acpd +++|
04381 M01S04249.acpd +++| DATELM(FG,MS1,MS2,WA,WP,POS,TY,FW,NSF);
04382 M01S04250.acpd +++|
04383 M01S04251.acpd +++| T=T+1;
04384 M01S04252.acpd +++| FW=FW+IC;
04385 M01S04253.acpd +++| POS=POS+WIC;
04386 M01S04254.acpd +++| END # PROCESS ONE ENTRY OF MULTIPLE-ENTRY ELEMENT #
04387 M01S04255.acpd +++|
04388 M01S04256.acpd +++| END # MULTIPLE ENTRIES #
04389 M01S04257.acpd +++|
04390 M01S04258.acpd +++| CT=CT+1;
04391 M01S04259.acpd +++| END # FOLLOW TABLE *DSPT* #
04392 M01S04260.acpd +++|
04393 M01S04261.acpd +++| END # PUTBLK #
04394 M01S04262.acpd +++|
04395 M01S04263.acpd +++| TERM
04396 M01S04264.acpd +++|PROC PUTDAT((NSF),(NIN));
04397 M01S04265.acpd +++|# TITLE PUTDAT - PRINT DATA BLOCK ELEMENTS. #
04398 M01S04266.acpd +++|
04399 M01S04267.acpd +++| BEGIN # PUTDAT #
04400 M01S04268.acpd +++|
04401 M01S04269.acpd +++|#
04402 M01S04270.acpd +++|** PUTDAT - PRINT DATA BLOCK ELEMENTS.
04403 M01S04271.acpd +++|*
04404 M01S04272.acpd +++|* PRINT FAST, MEDIUM, SLOW, AND SNAPSHOT LOOPS.
04405 M01S04273.acpd +++|*
04406 M01S04274.acpd +++|* PROC PUTDAT((NSF),(NIN))
04407 M01S04275.acpd +++|*
04408 M01S04276.acpd +++|* ENTRY NSF = NUMBER OF RECORDS PER INTERVAL.
04409 M01S04277.acpd +++|* NIN = NUMBER OF INTERVALS PER PAGE.
04410 M01S04278.acpd +++|* TABLE *DCDT* CONTAINS DATA BLOCK ELEMENT VALUES.
04411 M01S04279.acpd +++|*
04412 M01S04280.acpd +++|* EXIT DATA BLOCK ELEMENTS ARE PRINTED TO THE REPORT
04413 M01S04281.acpd +++|* FILE.
04414 M01S04282.acpd +++|#
04415 M01S04283.acpd +++|
04416 M01S04284.acpd +++|#
04417 M01S04285.acpd +++|* PARAMETER LIST.
04418 M01S04286.acpd +++|#
04419 M01S04287.acpd +++|
04420 M01S04288.acpd +++| ITEM NSF I; # NUMBER OF RECORDS PER INTERVAL #
04421 M01S04289.acpd +++| ITEM NIN I; # NUMBER OF INTERVALS PER PAGE #
04422 M01S04290.acpd +++|
04423 M01S04291.acpd +++|#
04424 M01S04292.acpd +++|**** PROC PUTDAT - XREF LIST BEGIN.
04425 M01S04293.acpd +++|#
04426 M01S04294.acpd +++|
04427 M01S04295.acpd +++| XREF
04428 M01S04296.acpd +++| BEGIN
04429 M01S04297.acpd +++| PROC PUTBLK; # PRINT ONE LOOP DATA ELEMENTS #
| Line S04298 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04430 M02S04298.v23l617 ---| PROC PUTPMF; # PRINT *PMF* HARDWARE RATIOS #
04431 M01S04299.acpd +++| PROC PUTSNS; # PRINT SNAPSHOT LOOP ELEMENTS #
04432 M01S04300.acpd +++| PROC RPEJECT; # PAGE EJECT #
04433 M01S04301.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
04434 M01S04302.acpd +++| END
04435 M01S04303.acpd +++|
04436 M01S04304.acpd +++|#
04437 M01S04305.acpd +++|**** PROC PUTDAT - XREF LIST END.
04438 M01S04306.acpd +++|#
04439 M01S04307.acpd +++|
04440 M01S04308.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
04441 M01S04309.acpd +++|
04442 M01S04310.acpd +++|*CALL COMUCPD
04443 M01S04311.acpd +++|
04444 M01S04312.acpd +++|#
04445 M01S04313.acpd +++|* LOCAL VARIABLES.
04446 M01S04314.acpd +++|#
04447 M01S04315.acpd +++|
04448 M01S04316.acpd +++| ITEM FW I; # LOOP BEGINNING INDEX #
04449 M01S04317.acpd +++| ITEM LW I; # LOOP ENDING INDEX #
04450 M01S04318.acpd +++| ITEM MSG C(30)="**********************";
04451 M01S04319.acpd +++| # LOOP REPORT SEPARATOR #
04452 M01S04320.acpd +++|
04453 M01S04321.acpd +++|
04454 M01S04322.acpd +++|
04455 M01S04323.acpd +++|
04456 M01S04324.acpd +++|
04457 M01S04325.acpd +++|#
04458 M01S04326.acpd +++|* BEGIN PUTDAT PROC.
04459 M01S04327.acpd +++|#
04460 M01S04328.acpd +++|
04461 M01S04329.acpd +++| NIPP=NIN;
04462 M01S04330.acpd +++| IF (P$L NQ NULL) # REPORT FILE SPECIFIED #
04463 M01S04331.acpd +++| THEN
04464 M01S04332.acpd +++| BEGIN
04465 M01S04333.acpd +++| RPEJECT(OFFA); # PAGE EJECT #
04466 M01S04334.acpd +++| END
04467 M01S04335.acpd +++|
04468 M01S04336.acpd +++| P<DCHD>=LOC(DBUF);
04469 M01S04337.acpd +++| P<DDSC>=LOC(DDHD);
04470 M01S04338.acpd +++|
04471 M01S04339.acpd +++| IF (DCHD$WD[DDSC$FW[DLIL]] NQ 0) # FAST LOOP WAS COLLECTED #
04472 M01S04340.acpd +++| THEN
04473 M01S04341.acpd +++| BEGIN
04474 M01S04342.acpd +++| FW=HDML;
04475 M01S04343.acpd +++| LW=FW+FSML-1;
04476 M01S04344.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS FAST LOOP #
04477 M01S04345.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC);
04478 M01S04346.acpd +++| END
04479 M01S04347.acpd +++|
04480 M01S04348.acpd +++| IF (DCHD$WD[DDSC$FW[DLML]] NQ 0) # MEDIUM LOOP WAS COLLECTED #
04481 M01S04349.acpd +++| THEN
04482 M01S04350.acpd +++| BEGIN
04483 M01S04351.acpd +++| FW=HDML+FSML;
04484 M01S04352.acpd +++| LW=FW+MDML-1;
04485 M01S04353.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS MEDIUM LOOP #
04486 M01S04354.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC);
04487 M01S04355.acpd +++| END
04488 M01S04356.acpd +++|
04489 M01S04357.acpd +++| IF (DCHD$WD[DDSC$FW[DLOL]] NQ 0) # SLOW LOOP WAS COLLECTED #
04490 M01S04358.acpd +++| THEN
04491 M01S04359.acpd +++| BEGIN
04492 M01S04360.acpd +++| FW=HDML+FSML+MDML;
04493 M01S04361.acpd +++| LW=FW+SLML-1;
04494 M01S04362.acpd +++| PUTBLK(NSF,FW,LW); # PROCESS SLOW LOOP #
| Line S04363 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04495 M02S04363.v23l617 ---| FW=LW+1;
| Line S04364 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04496 M02S04364.v23l617 ---| PUTPMF(FW); # PROCESS *PMF* HARDWARE RATIO #
| Line S04365 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04497 M02S04365.v23l617 ---| LW=FW+DRVL-1;
04498 M01S04366.acpd +++| WRITEV(MSG,CHRC,1,22,LFDC);
04499 M01S04367.acpd +++| END
04500 M01S04368.acpd +++|
04501 M01S04369.acpd +++| IF (NIN GR 0) # NUMBER OF COLUMNS .GT. 0 #
04502 M01S04370.acpd +++| AND (DCHD$WD[DDSC$FW[DLFW]] NQ 0) # SNAPSHOT WAS COLLECTED #
04503 M01S04371.acpd +++| THEN
04504 M01S04372.acpd +++| BEGIN
| Line S04373 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04505 M02S04373.v23l617 ---| FW=HDML+FSML+MDML+SLML+DRVL;
04506 M01S00078.v23l617 +++| FW=HDML+FSML+MDML+SLML;
04507 M01S04374.acpd +++| LW=FW+SNML-1;
04508 M01S04375.acpd +++| TLFG=2;
04509 M01S04376.acpd +++| PUTSNS(FW,LW); # PROCESS SNAPSHOT LOOP ELEMENTS #
04510 M01S04377.acpd +++| TLFG=1;
04511 M01S04378.acpd +++| END
04512 M01S04379.acpd +++|
04513 M01S04380.acpd +++| RETURN;
04514 M01S04381.acpd +++| END # PUTDAT #
04515 M01S04382.acpd +++|
04516 M01S04383.acpd +++| TERM
04517 M01S04384.acpd +++|PROC PUTEST;
04518 M01S04385.acpd +++|# TITLE PUTEST - PRINT *EST*. #
04519 M01S04386.acpd +++|
04520 M01S04387.acpd +++| BEGIN # PUTEST #
04521 M01S04388.acpd +++|
04522 M01S04389.acpd +++|#
04523 M01S04390.acpd +++|** PUTEST - PRINT *EST*.
04524 M01S04391.acpd +++|*
04525 M01S04392.acpd +++|* PRINT *EST* TABLE.
04526 M01S04393.acpd +++|*
04527 M01S04394.acpd +++|* PROC PUTEST
04528 M01S04395.acpd +++|*
04529 M01S04396.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
04530 M01S04397.acpd +++|*
04531 M01S04398.acpd +++|* EXIT EST IS WRITTEN TO THE REPORT FILE.
04532 M01S04399.acpd +++|*
04533 M01S04400.acpd +++|* NOTE.
04534 M01S04401.acpd +++|*
04535 M01S04402.acpd +++|* THE SYMBOL *SROS* DEFINED IN THIS ROUTINE HAS TO HAVE
04536 M01S04403.acpd +++|* THE SAME VALUE AS THE SYMBOL *SROS* DEFINED IN COMMON
04537 M01S04404.acpd +++|* DECK *COMSCPS*.
04538 M01S04405.acpd +++|* THE ITEMS *FATT* AND *FATL* HAVE TO BE CHANGED ACCORDINGLY
04539 M01S04406.acpd +++|* IF CHANGE IS MADE TO THE FILE TYPES.
04540 M01S04407.acpd +++|#
04541 M01S04408.acpd +++|
04542 M01S04409.acpd +++|#
04543 M01S04410.acpd +++|**** PROC PUTEST - XREF LIST BEGIN.
04544 M01S04411.acpd +++|#
04545 M01S04412.acpd +++|
04546 M01S04413.acpd +++| XREF
04547 M01S04414.acpd +++| BEGIN
04548 M01S04415.acpd +++| PROC RPEJECT; # PAGE EJECT #
04549 M01S04416.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
04550 M01S04417.acpd +++| FUNC XCOD C(10); # BINARY TO DISPLAY OCTAL #
04551 M01S04418.acpd +++| END
04552 M01S04419.acpd +++|
04553 M01S04420.acpd +++|#
04554 M01S04421.acpd +++|**** PROC PUTEST - XREF LIST END.
04555 M01S04422.acpd +++|#
04556 M01S04423.acpd +++|
04557 M01S04424.acpd +++| DEF BLKC #" "#; # BLANK #
04558 M01S04425.acpd +++| DEF CHSC #"S"#; # CHARACTER S #
04559 M01S04426.acpd +++| DEF CHXC #"X"#; # CHARACTER X #
04560 M01S04427.acpd +++| DEF MGMC #"MT"#; # *MT* TAPE #
04561 M01S04428.acpd +++| DEF MGNC #"NT"#; # *NT* TAPE #
04562 M01S04429.acpd +++| DEF MNSC #"-"#; # MINUS SIGN #
04563 M01S04430.acpd +++| DEF MXMSA #47#; # MAXIMUM MS ALLOCATABLE DEVICE #
04564 M01S04431.acpd +++| DEF SROS #8#; # SECONDARY ROLLOUT DEVICE #
04565 M01S04432.acpd +++|
04566 M01S04433.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
04567 M01S04434.acpd +++|
04568 M01S04435.acpd +++|*CALL COMUCPD
04569 M01S04436.acpd +++|*CALL COMUEST
04570 M01S04437.acpd +++|
04571 M01S04438.acpd +++|#
04572 M01S04439.acpd +++|* LOCAL VARIABLES.
04573 M01S04440.acpd +++|#
04574 M01S04441.acpd +++|
04575 M01S04442.acpd +++| ITEM FATL C(12)
04576 M01S04443.acpd +++| = "TIORDPLBSRRN"; # FILES TYPE #
04577 M01S04444.acpd +++| ITEM FATT C(12); # TEMPORARY BUFFER #
04578 M01S04445.acpd +++| ITEM I I; # FOR LOOP CONTROL #
04579 M01S04446.acpd +++| ITEM J I; # FOR LOOP CONTROL #
04580 M01S04447.acpd +++| ITEM L I; # FOR LOOP CONTROL #
04581 M01S04448.acpd +++| ITEM M I; # TEMPORARY STORAGE #
04582 M01S04449.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER #
04583 M01S04450.acpd +++| ITEM MXRS I; # NUMBER OF *MSAL* CATEGORIES #
04584 M01S04451.acpd +++| ITEM MSI I; # MST ORDINAL #
04585 M01S04452.acpd +++| ITEM MSIC I; # MST INCREMENTOR #
04586 M01S04453.acpd +++| ITEM MUI I; # MST ORDINAL #
04587 M01S04454.acpd +++| ITEM MUIC I; # MST INCREMENTOR #
04588 M01S04455.acpd +++| ITEM N I; # TEMPORARY STORAGE #
04589 M01S04456.acpd +++|
| Line S04457 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04590 M02S04457.252l678 ---| ARRAY CHNN [0:3] P(1); # CHANNELS #
04591 M01S00003.252l678 +++| ARRAY CHNN [0:1] P(1); # CHANNELS #
04592 M01S04458.acpd +++| BEGIN # ARRAY CHNN #
04593 M01S04459.acpd +++| ITEM CH U(00,00,60); # CHANNEL WORD #
| Line S04460 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04594 M02S04460.252l678 ---| ITEM CHDWN B(00,54,01); # CHANNEL DOWN FLAG #
04595 M01S00004.252l678 +++| ITEM CHAPFLAG B(00,48,01); # CHANNEL ACCESS PATH FLAG #
04596 M01S00005.252l678 +++| ITEM CHSTATUS U(00,49,02); # CHANNEL STATUS #
04597 M01S00006.252l678 +++| ITEM CHNUMBER U(00,55,05); # CHANNEL NUMBER #
04598 M01S04461.acpd +++| END # ARRAY CHNN #
04599 M01S04462.acpd +++|
04600 M01S04463.acpd +++| ARRAY TEM [0:0] P(1); # TEMPORARY BUFFER #
04601 M01S04464.acpd +++| BEGIN # ARRAY TEM #
04602 M01S04465.acpd +++| ITEM TEM$TYPE U(00,01,11); # EQUIPMENT TYPE #
04603 M01S04466.acpd +++| END # ARRAY TEM #
04604 M01S04467.acpd +++|
04605 M01S04468.acpd +++|
04606 M01S04469.acpd +++|
04607 M01S04470.acpd +++|
04608 M01S04471.acpd +++|
04609 M01S04472.acpd +++|#
04610 M01S04473.acpd +++|* BEGIN PUTEST PROC.
04611 M01S04474.acpd +++|#
04612 M01S04475.acpd +++|
04613 M01S04476.acpd +++| P<DCHD>=LOC(DBUF);
04614 M01S04477.acpd +++| P<DDSC>=LOC(DDHD);
04615 M01S04478.acpd +++|
04616 M01S04479.acpd +++| TLFG=3; # INDICATES PRINTING EST #
04617 M01S04480.acpd +++| RPEJECT(OFFA);
04618 M01S04481.acpd +++|
04619 M01S04482.acpd +++|#
04620 M01S04483.acpd +++|* PRINT EST ENTRY.
04621 M01S04484.acpd +++|#
04622 M01S04485.acpd +++|
04623 M01S04486.acpd +++| P<EST>=LOC(DCHD$WD[DDSC$FW[ESTB]]);
04624 M01S04487.acpd +++| MSI=0;
04625 M01S04488.acpd +++| MSIC=DDSC$IC[TRKC];
04626 M01S04489.acpd +++| MUI=0;
04627 M01S04490.acpd +++| MUIC=DDSC$IC[MSUN];
04628 M01S04491.acpd +++|
04629 M01S04492.acpd +++| SLOWFOR I=0 STEP 1 UNTIL DCHD$WD[DDSC$FW[ESTL]] - 1
04630 M01S04493.acpd +++| DO
04631 M01S04494.acpd +++| BEGIN # PROCESS ONE EST ENTRY #
04632 M01S04495.acpd +++| IF (EST$EQDE[I] EQ NULL) # ENTRY NOT DEFINED #
04633 M01S04496.acpd +++| THEN
04634 M01S04497.acpd +++| BEGIN
04635 M01S04498.acpd +++| TEST I;
04636 M01S04499.acpd +++| END
04637 M01S04500.acpd +++|
04638 M01S04501.acpd +++| WRITEV(I,OC2C,4,3,NLFC); # EST ORDINAL #
04639 M01S04502.acpd +++| TEM$TYPE[0]=EST$TYPE[I];
04640 M01S04503.acpd +++| WRITEV(TEM,CHRC,11,2,NLFC); # DEVICE TYPE #
04641 M01S04504.acpd +++|
| Line S04505 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04642 M02S04505.252l678 ---| IF (NOT EST$OFF[I]) # NOT DEVICE OFF #
| Line S04506 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04643 M02S04506.252l678 ---| THEN
| Line S04507 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04644 M02S04507.252l678 ---| BEGIN
| Line S04508 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04645 M02S04508.252l678 ---| MSG="ON";
| Line S04509 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04646 M02S04509.252l678 ---| END
| Line S04510 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04647 M02S04510.252l678 ---|
| Line S04511 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04648 M02S04511.252l678 ---| ELSE
| Line S04512 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04649 M02S04512.252l678 ---| BEGIN
| Line S04513 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04650 M02S04513.252l678 ---| MSG="OFF";
| Line S04514 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04651 M02S04514.252l678 ---| END
04652 M01S00007.252l678 +++| IF EST$STATUS[I] EQ 0 # ON DEVICE #
04653 M01S00008.252l678 +++| THEN
04654 M01S00009.252l678 +++| MSG="ON";
04655 M01S00010.252l678 +++| ELSE
04656 M01S00011.252l678 +++| BEGIN
04657 M01S00012.252l678 +++| IF EST$STATUS[I] EQ 1 # IDLE DEVICE #
04658 M01S00013.252l678 +++| THEN
04659 M01S00014.252l678 +++| MSG="IDLE";
04660 M01S00015.252l678 +++| ELSE
04661 M01S00016.252l678 +++| BEGIN
04662 M01S00017.252l678 +++| IF EST$STATUS[I] EQ 2 # OFF DEVICE #
04663 M01S00018.252l678 +++| THEN
04664 M01S00019.252l678 +++| MSG="OFF";
04665 M01S00020.252l678 +++| ELSE # DOWN DEVICE #
04666 M01S00021.252l678 +++| MSG="DOWN";
04667 M01S00022.252l678 +++| END
04668 M01S00023.252l678 +++|
04669 M01S00024.252l678 +++| END
04670 M01S04515.acpd +++|
04671 M01S04516.acpd +++| WRITEV(MSG,CHRC,16,3,NLFC); # DEVICE STATUS #
04672 M01S04517.acpd +++|
04673 M01S04518.acpd +++| IF (NOT EST$MS[I]) # NOT MASS STORAGE DEVICE #
04674 M01S04519.acpd +++| THEN
04675 M01S04520.acpd +++| BEGIN
04676 M01S04521.acpd +++| N=EST$EQU[I];
04677 M01S04522.acpd +++| WRITEV(N,OC2C,22,2,NLFC); # EQUIPMENT NUMBER #
04678 M01S04523.acpd +++| N=EST$UN[I];
04679 M01S04524.acpd +++| WRITEV(N,OC2C,26,2,NLFC); # UNIT NUMBER #
04680 M01S04525.acpd +++| END
04681 M01S04526.acpd +++|
04682 M01S04527.acpd +++| ELSE # MASS STORAGE DEVICE #
04683 M01S04528.acpd +++| BEGIN
04684 M01S04529.acpd +++| IF (EST$RMVE[I]) # REMOVABLE MASS STORAGE DEVICE #
04685 M01S04530.acpd +++| THEN
04686 M01S04531.acpd +++| BEGIN
04687 M01S04532.acpd +++| N=DCHD$WD[DDSC$FW[MSUN]+MUI];
04688 M01S04533.acpd +++| WRITEV(N,OC2C,26,2,NLFC);
04689 M01S04534.acpd +++| END
04690 M01S04535.acpd +++|
04691 M01S04536.acpd +++| MUI=MUI + MUIC;
04692 M01S04537.acpd +++| END
04693 M01S04538.acpd +++|
04694 M01S04539.acpd +++|#
04695 M01S04540.acpd +++|* PRINT CHANNELS.
04696 M01S04541.acpd +++|#
04697 M01S04542.acpd +++|
04698 M01S04543.acpd +++| CH[0]=EST$CHANA[I]; # CHANNEL A #
| Line S04544 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04699 M02S04544.252l678 ---| CHDWN[0]=EST$DCHA[I]; # CHANNEL A DOWN FLAG #
04700 M01S00025.252l678 +++| CHAPFLAG[0]=EST$CHAAE[I]; # CHANNEL A ACCESS ENABLED FLAG #
04701 M01S00026.252l678 +++| CHSTATUS[0]=EST$CHAST[I]; # CHANNEL A STATUS #
04702 M01S04545.acpd +++| CH[1]=EST$CHANB[I]; # CHANNEL B #
| Line S04546 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04703 M02S04546.252l678 ---| CHDWN[1]=EST$DCHB[I]; # CHANNEL B DOWN FLAG #
| Line S04547 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04704 M02S04547.252l678 ---| IF (EST$TYPE[I] NQ MGMC) AND (EST$TYPE[I] NQ MGNC)
| Line S04548 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04705 M02S04548.252l678 ---| THEN
| Line S04549 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04706 M02S04549.252l678 ---| BEGIN
| Line S04550 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04707 M02S04550.252l678 ---| CH[2]=0;
| Line S04551 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04708 M02S04551.252l678 ---| CH[3]=0;
| Line S04552 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04709 M02S04552.252l678 ---| END
| Line S04553 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04710 M02S04553.252l678 ---|
| Line S04554 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04711 M02S04554.252l678 ---| ELSE
| Line S04555 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04712 M02S04555.252l678 ---| BEGIN
| Line S04556 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04713 M02S04556.252l678 ---| CH[2]=EST$CHANC[I]; # CHANNEL C #
| Line S04557 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04714 M02S04557.252l678 ---| CHDWN[2]=EST$DCHC[I]; # CHANNEL C DOWN FLAG #
| Line S04558 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04715 M02S04558.252l678 ---| CH[3]=EST$CHAND[I]; # CHANNEL D #
| Line S04559 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04716 M02S04559.252l678 ---| CHDWN[3]=EST$DCHD[I]; # CHANNEL D DOWN FLAG #
| Line S04560 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04717 M02S04560.252l678 ---| END
04718 M01S00027.252l678 +++| CHAPFLAG[1]=EST$CHBAE[I]; # CHANNEL B ACCESS ENABLED FLAG #
04719 M01S00028.252l678 +++| CHSTATUS[1]=EST$CHBST[I]; # CHANNEL B STATUS #
04720 M01S04561.acpd +++|
| Line S04562 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04721 M02S04562.252l678 ---| FASTFOR L=0 STEP 1 UNTIL 3
04722 M01S00029.252l678 +++| FASTFOR L=0 STEP 1 UNTIL 1
04723 M01S04563.acpd +++| DO
04724 M01S04564.acpd +++| BEGIN # PRINT CHANNEL NUMBER #
| Line S04565 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04725 M02S04565.252l678 ---| IF (NOT CHDWN[L]) # CHANNEL NOT DOWN #
04726 M01S00030.252l678 +++| IF (CHAPFLAG[L]) # CHANNEL ACCESS PATH ENABLED #
04727 M01S04566.acpd +++| THEN
04728 M01S04567.acpd +++| BEGIN
| Line S04568 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04729 M02S04568.252l678 ---| IF (L EQ 0) OR (CH[L] NQ 0)
04730 M01S00031.252l678 +++| IF (CHSTATUS[L] EQ 0) # CHANNEL IS UP #
04731 M01S04569.acpd +++| THEN
04732 M01S04570.acpd +++| BEGIN
| Line S04571 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04733 M02S04571.252l678 ---| WRITEV(CH[L],OC2C,30+3*L,2,NLFC);
04734 M01S00032.252l678 +++| WRITEV(CHNUMBER[L],OC2C,30+3*L,2,NLFC);
04735 M01S04572.acpd +++| END
04736 M01S04573.acpd +++|
04737 M01S00033.252l678 +++| ELSE
04738 M01S00034.252l678 +++| BEGIN
04739 M01S00035.252l678 +++| WRITEV("**",CHRC,30+3*L,2,NLFC);
04740 M01S00036.252l678 +++| END
04741 M01S00037.252l678 +++|
04742 M01S04574.acpd +++| END
04743 M01S04575.acpd +++|
| Line S04576 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04744 M02S04576.252l678 ---| ELSE
| Line S04577 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04745 M02S04577.252l678 ---| BEGIN
| Line S04578 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04746 M02S04578.252l678 ---| WRITEV("**",CHRC,30+3*L,2,NLFC);
| Line S04579 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
04747 M02S04579.252l678 ---| END
04748 M01S04580.acpd +++|
04749 M01S04581.acpd +++| END # PRINT CHANNEL NUMBER #
04750 M01S04582.acpd +++|
04751 M01S04583.acpd +++|#
04752 M01S04584.acpd +++|* PRINT EST ENTRY IN FULL WORD, AND DEVICE TRACK CAPACITY.
04753 M01S04585.acpd +++|#
04754 M01S04586.acpd +++|
04755 M01S04587.acpd +++| N=EST$LHDE[I];
04756 M01S04588.acpd +++| WRITEV(N,OC3C,42,10,NLFC);
04757 M01S04589.acpd +++| N=EST$RHDE[I];
04758 M01S04590.acpd +++| WRITEV(N,OC3C,52,10,NLFC);
04759 M01S04591.acpd +++| N=EST$LHAE[I];
04760 M01S04592.acpd +++| WRITEV(N,OC3C,63,10,NLFC);
04761 M01S04593.acpd +++| N=EST$RHAE[I];
04762 M01S04594.acpd +++| IF (NOT EST$MS[I]) # NOT MASS STORAGE DEVICE #
04763 M01S04595.acpd +++| THEN
04764 M01S04596.acpd +++| BEGIN
04765 M01S04597.acpd +++| WRITEV(N,OC3C,73,10,LFDC);
04766 M01S04598.acpd +++| TEST I;
04767 M01S04599.acpd +++| END
04768 M01S04600.acpd +++|
04769 M01S04601.acpd +++| ELSE
04770 M01S04602.acpd +++| BEGIN # MASS STORAGE DEVICE #
04771 M01S04603.acpd +++| WRITEV(N,OC3C,73,10,NLFC);
04772 M01S04604.acpd +++| N=DCHD$WD[DDSC$FW[TRKC] + MSI];
04773 M01S04605.acpd +++| WRITEV(N,OC2C,87,4,NLFC); # TRACK CAPACITY #
04774 M01S04606.acpd +++| MSI=MSI+MSIC;
04775 M01S04607.acpd +++|
04776 M01S04608.acpd +++|#
04777 M01S04609.acpd +++|* PRINT THE MASS STORAGE ALLOCATION TABLE.
04778 M01S04610.acpd +++|#
04779 M01S04611.acpd +++|
04780 M01S04612.acpd +++| IF (I GR MXMSA) # EST ORDINAL .GT. *MXMSA* #
04781 M01S04613.acpd +++| THEN
04782 M01S04614.acpd +++| BEGIN
04783 M01S04615.acpd +++| WRITEV(BLKC,CHRC,95,1,LFDC); # LINE FEED #
04784 M01S04616.acpd +++| END
04785 M01S04617.acpd +++|
04786 M01S04618.acpd +++| ELSE # EST ORDINAL .LE. *MXMSA* #
04787 M01S04619.acpd +++| BEGIN # CHECK FILE TYPE ON THE DEVICE #
04788 M01S04620.acpd +++| FATT="------------";
04789 M01S04621.acpd +++| MXRS=DCHD$WD[DDSC$FW[CON8]];
04790 M01S04622.acpd +++| SLOWFOR J=0 STEP 1 UNTIL MXRS-1
04791 M01S04623.acpd +++| DO
04792 M01S04624.acpd +++| BEGIN
04793 M01S04625.acpd +++| L=DDSC$FW[MSAA] + J;
04794 M01S04626.acpd +++| IF (B<12+I,1>DCHD$WD[L] EQ 1)
04795 M01S04627.acpd +++| THEN
04796 M01S04628.acpd +++| BEGIN
04797 M01S04629.acpd +++| C<J,1>FATT=C<J,1>FATL;
04798 M01S04630.acpd +++| END
04799 M01S04631.acpd +++|
04800 M01S04632.acpd +++| END
04801 M01S04633.acpd +++|
04802 M01S04634.acpd +++| IF (EST$SYS[I]) # SYSTEM FILE ON DEVICE #
04803 M01S04635.acpd +++| THEN
04804 M01S04636.acpd +++| BEGIN
04805 M01S04637.acpd +++| MSG=CHXC;
04806 M01S04638.acpd +++| END
04807 M01S04639.acpd +++|
04808 M01S04640.acpd +++| ELSE
04809 M01S04641.acpd +++| BEGIN
04810 M01S04642.acpd +++| MSG=MNSC;
04811 M01S04643.acpd +++| END
04812 M01S04644.acpd +++|
04813 M01S04645.acpd +++| WRITEV(MSG,CHRC,94,1,NLFC);
04814 M01S04646.acpd +++|
04815 M01S04647.acpd +++|#
04816 M01S04648.acpd +++|* PRINT THE THRESHOLD OF THE NUMBER OF SECTORS ROLLED IF
04817 M01S04649.acpd +++|* THE DEVICE IS SECONDARY ROLLOUT.
04818 M01S04650.acpd +++|#
04819 M01S04651.acpd +++|
04820 M01S04652.acpd +++| IF (C<SROS,1>FATT NQ CHSC) # NOT SECONDARY ROLLOUT #
04821 M01S04653.acpd +++| THEN
04822 M01S04654.acpd +++| BEGIN
04823 M01S04655.acpd +++| WRITEV(FATT,CHRC,95,MXRS,LFDC);
04824 M01S04656.acpd +++| END
04825 M01S04657.acpd +++|
04826 M01S04658.acpd +++| ELSE # SECONDARY ROLLOUT #
04827 M01S04659.acpd +++| BEGIN
04828 M01S04660.acpd +++| WRITEV(FATT,CHRC,95,MXRS,NLFC);
04829 M01S04661.acpd +++| WRITEV("THRESHOLD = ",CHRC,109,12,NLFC);
04830 M01S04662.acpd +++| WRITEV(DCHD$WD[DDSC$FW[SROT]],OC1C,121,5,NLFC);
04831 M01S04663.acpd +++| WRITEV("SECTORS",CHRC,127,7,LFDC);
04832 M01S04664.acpd +++| END
04833 M01S04665.acpd +++|
04834 M01S04666.acpd +++| END # CHECK FILE TYPE ON THE DEVICE #
04835 M01S04667.acpd +++|
04836 M01S04668.acpd +++| END # MASS STORAGE DEVICE #
04837 M01S04669.acpd +++|
04838 M01S04670.acpd +++| END # PROCESS ONE EST ENTRY #
04839 M01S04671.acpd +++|
04840 M01S04672.acpd +++| RETURN;
04841 M01S04673.acpd +++| END # PUTEST #
04842 M01S04674.acpd +++|
04843 M01S04675.acpd +++| TERM
04844 M01S04676.acpd +++|PROC PUTHDR;
04845 M01S04677.acpd +++|# TITLE PUTHDR - PROCESS HEADER BLOCK. #
04846 M01S04678.acpd +++|
04847 M01S04679.acpd +++| BEGIN # PUTHDR #
04848 M01S04680.acpd +++|
04849 M01S04681.acpd +++|#
04850 M01S04682.acpd +++|** PUTHDR - PROCESS HEADER BLOCK.
04851 M01S04683.acpd +++|*
04852 M01S04684.acpd +++|* PRINT FIRST PAGE OF HEADER BLOCK ELEMENTS.
04853 M01S04685.acpd +++|*
04854 M01S04686.acpd +++|* PROC HEADER
04855 M01S04687.acpd +++|*
04856 M01S04688.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
04857 M01S04689.acpd +++|*
04858 M01S04690.acpd +++|* EXIT HEADER BLOCK ELEMENTS ARE PRINTED TO THE REPORT
04859 M01S04691.acpd +++|* FILE.
04860 M01S04692.acpd +++|#
04861 M01S04693.acpd +++|
04862 M01S04694.acpd +++|#
04863 M01S04695.acpd +++|**** PROC PUTHDR - XREF LIST BEGIN.
04864 M01S04696.acpd +++|#
04865 M01S04697.acpd +++|
04866 M01S04698.acpd +++| XREF
04867 M01S04699.acpd +++| BEGIN
04868 M01S04700.acpd +++| PROC HDRELM; # PROCESS HEADER BLOCK ELEMENT #
04869 M01S04701.acpd +++| PROC RPEJECT; # PAGE EJECT #
04870 M01S04702.acpd +++| PROC RPSPACE; # LINE FEED #
04871 M01S04703.acpd +++| PROC WRITEV; # WRITE ONE ELEMENT #
04872 M01S04704.acpd +++| END
04873 M01S04705.acpd +++|
04874 M01S04706.acpd +++|#
04875 M01S04707.acpd +++|**** PROC PUTHDR - XREF LIST END.
04876 M01S04708.acpd +++|#
04877 M01S04709.acpd +++|
04878 M01S04710.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
04879 M01S04711.acpd +++|
04880 M01S04712.acpd +++|*CALL COMUCPD
04881 M01S04713.acpd +++|
04882 M01S04714.acpd +++|#
04883 M01S04715.acpd +++|* LOCAL VARIABLES.
04884 M01S04716.acpd +++|#
04885 M01S04717.acpd +++|
04886 M01S04718.acpd +++| ITEM I I; # FOR LOOP CONTROL #
04887 M01S04719.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER #
04888 M01S04720.acpd +++|
04889 M01S04721.acpd +++|
04890 M01S04722.acpd +++|
04891 M01S04723.acpd +++|
04892 M01S04724.acpd +++|
04893 M01S04725.acpd +++|#
04894 M01S04726.acpd +++|* BEGIN PUTHDR PROC.
04895 M01S04727.acpd +++|#
04896 M01S04728.acpd +++|
04897 M01S04729.acpd +++| TLFG=0; # INDICATES NO SUBTITLE #
04898 M01S04730.acpd +++| RPEJECT(OFFA);
04899 M01S04731.acpd +++| RPSPACE(OFFA,2,1);
04900 M01S04732.acpd +++|
04901 M01S04733.acpd +++|#
04902 M01S04734.acpd +++|* PRINT START DATE AND START TIME OF THE DATA FILE.
04903 M01S04735.acpd +++|#
04904 M01S04736.acpd +++|
04905 M01S04737.acpd +++| HDRELM(0,11,34); # START DATE #
04906 M01S04738.acpd +++| HDRELM(1,11,34); # START TIME #
04907 M01S04739.acpd +++|
04908 M01S04740.acpd +++|#
04909 M01S04741.acpd +++|* PRINT *ACPD* PARAMETERS.
04910 M01S04742.acpd +++|#
04911 M01S04743.acpd +++|
04912 M01S04744.acpd +++| RPSPACE(OFFA,2,1);
04913 M01S04745.acpd +++| WRITEV("DATA FILE NAME",CHRC,11,14,NLFC);
| Line S04746 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04914 M02S04746.v23l617 ---| WRITEV(P$FN,CHRC,37,7,LFDC);
| Line S04747 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04915 M02S04747.v23l617 ---| WRITEV("REPORT INTERVAL (MINS)",CHRC,11,22,NLFC);
| Line S04748 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04916 M02S04748.v23l617 ---| WRITEV(P$IN,INTC,34,10,LFDC);
04917 M01S00079.v23l617 +++| WRITEV(P$FN,CHRC,40,7,LFDC);
04918 M01S00080.v23l617 +++| IF (P$IN NQ 0)
04919 M01S00081.v23l617 +++| THEN
04920 M01S00082.v23l617 +++| BEGIN
04921 M01S00083.v23l617 +++| WRITEV("REPORT INTERVAL (MINUTES)",CHRC,11,25,NLFC);
04922 M01S00084.v23l617 +++| WRITEV(P$IN,INTC,37,10,LFDC);
04923 M01S00085.v23l617 +++| END
04924 M01S00086.v23l617 +++|
04925 M01S00087.v23l617 +++| ELSE
04926 M01S00088.v23l617 +++| BEGIN
04927 M01S00089.v23l617 +++| WRITEV("REPORT INTERVAL (RECORDS)",CHRC,11,25,NLFC);
04928 M01S00090.v23l617 +++| WRITEV(P$IC,INTC,37,10,LFDC);
04929 M01S00091.v23l617 +++| END
04930 M01S04749.acpd +++|
04931 M01S04750.acpd +++| RPSPACE(OFFA,2,1);
04932 M01S04751.acpd +++| FASTFOR I=APPM STEP 1 UNTIL HWCF-1
04933 M01S04752.acpd +++| DO
04934 M01S04753.acpd +++| BEGIN
04935 M01S04754.acpd +++| HDRELM(I,11,40);
04936 M01S04755.acpd +++| END
04937 M01S04756.acpd +++|
04938 M01S04757.acpd +++|#
04939 M01S04758.acpd +++|* PRINT THE HARDWARE CONFIGURATION.
04940 M01S04759.acpd +++|#
04941 M01S04760.acpd +++|
04942 M01S04761.acpd +++| RPSPACE(OFFA,2,1);
04943 M01S04762.acpd +++| FASTFOR I=HWCF STEP 1 UNTIL CMCF-1
04944 M01S04763.acpd +++| DO
04945 M01S04764.acpd +++| BEGIN
04946 M01S04765.acpd +++| HDRELM(I,11,40);
04947 M01S04766.acpd +++| END
04948 M01S04767.acpd +++|
04949 M01S04768.acpd +++|#
04950 M01S04769.acpd +++|* PRINT THE CMR CONFIGURATION.
04951 M01S04770.acpd +++|#
04952 M01S04771.acpd +++|
04953 M01S04772.acpd +++| RPSPACE(OFFA,2,1);
04954 M01S04773.acpd +++| FASTFOR I=CMCF STEP 1 UNTIL SASC-1
04955 M01S04774.acpd +++| DO
04956 M01S04775.acpd +++| BEGIN
04957 M01S04776.acpd +++| HDRELM(I,11,40);
04958 M01S04777.acpd +++| END
04959 M01S04778.acpd +++|
04960 M01S04779.acpd +++|#
04961 M01S04780.acpd +++|* PRINT THE SYSTEM ASSEMBLY CONSTANTS.
04962 M01S04781.acpd +++|#
04963 M01S04782.acpd +++|
04964 M01S04783.acpd +++| RPSPACE(OFFA,2,1);
04965 M01S04784.acpd +++| FASTFOR I=SASC STEP 1 UNTIL SDLP-1
04966 M01S04785.acpd +++| DO
04967 M01S04786.acpd +++| BEGIN
04968 M01S04787.acpd +++| HDRELM(I,11,47);
04969 M01S04788.acpd +++| END
04970 M01S04789.acpd +++|
04971 M01S04790.acpd +++|#
04972 M01S04791.acpd +++|* PRINT THE SYSTEM DELAY PARAMETERS.
04973 M01S04792.acpd +++|#
04974 M01S04793.acpd +++|
04975 M01S04794.acpd +++| RPSPACE(OFFA,2,1);
04976 M01S04795.acpd +++| FASTFOR I=SDLP STEP 1 UNTIL BFIO-1
04977 M01S04796.acpd +++| DO
04978 M01S04797.acpd +++| BEGIN
04979 M01S04798.acpd +++| HDRELM(I,11,47);
04980 M01S04799.acpd +++| END
04981 M01S04800.acpd +++|
04982 M01S04801.acpd +++|#
04983 M01S04802.acpd +++|* PRINT THE TOTAL NUMBER OF HIGH SPEED DISK BUFFERS
04984 M01S04803.acpd +++|* AND EXTENDED MEMORY/PP BUFFERS.
04985 M01S04804.acpd +++|#
04986 M01S04805.acpd +++|
04987 M01S04806.acpd +++| RPSPACE(OFFA,2,1);
04988 M01S04807.acpd +++| FASTFOR I=BFIO STEP 1 UNTIL HDML-1
04989 M01S04808.acpd +++| DO
04990 M01S04809.acpd +++| BEGIN
04991 M01S04810.acpd +++| HDRELM(I,11,47);
04992 M01S04811.acpd +++| END
04993 M01S04812.acpd +++|
04994 M01S04813.acpd +++| RETURN;
04995 M01S04814.acpd +++| END # PUTHDR #
04996 M01S04815.acpd +++|
04997 M01S04816.acpd +++| TERM
| Line S04817 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04998 M02S04817.v23l617 ---|PROC PUTPMF((FWA));
| Line S04818 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
04999 M02S04818.v23l617 ---|# TITLE PUTPMF - PROCESS *PMF* HARDWARE HIT RATE. #
| Line S04819 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05000 M02S04819.v23l617 ---|
| Line S04820 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05001 M02S04820.v23l617 ---| BEGIN # PUTPMF #
| Line S04821 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05002 M02S04821.v23l617 ---|
| Line S04822 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05003 M02S04822.v23l617 ---|#
| Line S04823 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05004 M02S04823.v23l617 ---|** PUTPMF - PROCESS *PMF* HARDWARE HIT RATES.
| Line S04824 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05005 M02S04824.v23l617 ---|*
| Line S04825 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05006 M02S04825.v23l617 ---|* THIS PROC IS A SPECIAL ROUTINE TO PROCESS *PMF* HARDWARE.
| Line S04826 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05007 M02S04826.v23l617 ---|*
| Line S04827 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05008 M02S04827.v23l617 ---|* PROC PUTPMF((FWA))
| Line S04828 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05009 M02S04828.v23l617 ---|*
| Line S04829 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05010 M02S04829.v23l617 ---|* ENTRY FWA = ADDRESS OF THE FIRST REPORT TITLE.
| Line S04830 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05011 M02S04830.v23l617 ---|*
| Line S04831 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05012 M02S04831.v23l617 ---|* EXIT THE HIT RATES OF THE *PMF* HARDWARE FOR THE
| Line S04832 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05013 M02S04832.v23l617 ---|* INTERVALS, SUBTOTAL, AND TOTAL ARE COMPUTED
| Line S04833 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05014 M02S04833.v23l617 ---|* AND REPORTED.
| Line S04834 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05015 M02S04834.v23l617 ---|#
| Line S04835 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05016 M02S04835.v23l617 ---|
| Line S04836 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05017 M02S04836.v23l617 ---|#
| Line S04837 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05018 M02S04837.v23l617 ---|* PARAMETER LIST.
| Line S04838 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05019 M02S04838.v23l617 ---|#
| Line S04839 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05020 M02S04839.v23l617 ---|
| Line S04840 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05021 M02S04840.v23l617 ---| ITEM FWA I; # ADDRESS OF FIRST REPORT TITLE #
| Line S04841 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05022 M02S04841.v23l617 ---|
| Line S04842 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05023 M02S04842.v23l617 ---|#
| Line S04843 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05024 M02S04843.v23l617 ---|**** PROC PUTPMF - XREF LIST BEGIN.
| Line S04844 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05025 M02S04844.v23l617 ---|#
| Line S04845 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05026 M02S04845.v23l617 ---|
| Line S04846 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05027 M02S04846.v23l617 ---| XREF
| Line S04847 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05028 M02S04847.v23l617 ---| BEGIN
| Line S04848 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05029 M02S04848.v23l617 ---| PROC COMMTE; # COMPUTE EXEC STATE MEAN TIME #
| Line S04849 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05030 M02S04849.v23l617 ---| PROC COMRAT; # COMPUTE *PMF* RATIOS #
| Line S04850 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05031 M02S04850.v23l617 ---| PROC WRITEV; # WRITE ONE VALUE #
| Line S04851 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05032 M02S04851.v23l617 ---| END
| Line S04852 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05033 M02S04852.v23l617 ---|
| Line S04853 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05034 M02S04853.v23l617 ---|#
| Line S04854 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05035 M02S04854.v23l617 ---|**** PROC COMRAT - XREF LIST END.
| Line S04855 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05036 M02S04855.v23l617 ---|#
| Line S04856 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05037 M02S04856.v23l617 ---|
| Line S04857 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05038 M02S04857.v23l617 ---| DEF BLKC #" "#; # BLANK #
| Line S04858 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05039 M02S04858.v23l617 ---|
| Line S04859 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05040 M02S04859.v23l617 ---| DEF LISTCON #0#; # TURN OFF COMMON LISTING #
| Line S04860 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05041 M02S04860.v23l617 ---|
| Line S04861 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05042 M02S04861.v23l617 ---|*CALL COMUCPD
| Line S04862 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05043 M02S04862.v23l617 ---|
| Line S04863 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05044 M02S04863.v23l617 ---|#
| Line S04864 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05045 M02S04864.v23l617 ---|* LOCAL VARIABLES.
| Line S04865 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05046 M02S04865.v23l617 ---|#
| Line S04866 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05047 M02S04866.v23l617 ---|
| Line S04867 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05048 M02S04867.v23l617 ---| ITEM APM I; # ADVANCED PROCESSOR MODULE #
| Line S04868 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05049 M02S04868.v23l617 ---| ITEM TPT I; # REPORT TITLE POINTER #
| Line S04869 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05050 M02S04869.v23l617 ---|
| Line S04870 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05051 M02S04870.v23l617 ---|
| Line S04871 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05052 M02S04871.v23l617 ---|
| Line S04872 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05053 M02S04872.v23l617 ---|
| Line S04873 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05054 M02S04873.v23l617 ---|
| Line S04874 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05055 M02S04874.v23l617 ---|
| Line S04875 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05056 M02S04875.v23l617 ---|#
| Line S04876 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05057 M02S04876.v23l617 ---|* BEGIN PUTPMF PROC.
| Line S04877 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05058 M02S04877.v23l617 ---|#
| Line S04878 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05059 M02S04878.v23l617 ---|
| Line S04879 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05060 M02S04879.v23l617 ---| P<DDSC>=LOC(DDHD);
| Line S04880 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05061 M02S04880.v23l617 ---| P<DCHD>=LOC(DBUF);
| Line S04881 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05062 M02S04881.v23l617 ---| WRITEV(BLKC,CHRC,1,1,LFDC); # LINE FEED #
| Line S04882 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05063 M02S04882.v23l617 ---|
| Line S04883 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05064 M02S04883.v23l617 ---| TPT=FWA;
| Line S04884 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05065 M02S04884.v23l617 ---| APM=DCHD$WD[DDSC$FW[APMF]]/2;
| Line S04885 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05066 M02S04885.v23l617 ---| IF (APM EQ 2) OR (APM EQ 3)
| Line S04886 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05067 M02S04886.v23l617 ---| THEN
| Line S04887 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05068 M02S04887.v23l617 ---| BEGIN
| Line S04888 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05069 M02S04888.v23l617 ---| COMRAT(APM,CACHE,TPT,0); # CACHE HIT RATE #
| Line S04889 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05070 M02S04889.v23l617 ---| END
| Line S04890 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05071 M02S04890.v23l617 ---|
| Line S04891 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05072 M02S04891.v23l617 ---| TPT=TPT+1;
| Line S04892 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05073 M02S04892.v23l617 ---| IF (APM NQ 0)
| Line S04893 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05074 M02S04893.v23l617 ---| THEN
| Line S04894 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05075 M02S04894.v23l617 ---| BEGIN
| Line S04895 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05076 M02S04895.v23l617 ---| COMMTE(TPT,1); # MEAN TIME IN EXEC STATE #
| Line S04896 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05077 M02S04896.v23l617 ---| TPT=TPT+1;
| Line S04897 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05078 M02S04897.v23l617 ---| COMRAT(APM,PAGE,TPT,2); # PAGE MAP HIT RATE #
| Line S04898 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05079 M02S04898.v23l617 ---| TPT=TPT+1;
| Line S04899 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05080 M02S04899.v23l617 ---| COMRAT(APM,SEGMENT,TPT,3); # SEGMENT MAP HIT RATE #
| Line S04900 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05081 M02S04900.v23l617 ---| END
| Line S04901 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05082 M02S04901.v23l617 ---|
| Line S04902 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05083 M02S04902.v23l617 ---| RETURN;
| Line S04903 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05084 M02S04903.v23l617 ---| END # PUTPMF #
| Line S04904 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05085 M02S04904.v23l617 ---|
| Line S04905 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05086 M02S04905.v23l617 ---| TERM
05087 M01S04906.acpd +++|PROC PUTSCI;
05088 M01S04907.acpd +++|# TITLE PUTSCI - PRINT SYSTEM CONTROL INFORMATION. #
05089 M01S04908.acpd +++|
05090 M01S04909.acpd +++| BEGIN # PUTSCI #
05091 M01S04910.acpd +++|
05092 M01S04911.acpd +++|#
05093 M01S04912.acpd +++|** PUTSCI - PRINT SYSTEM CONTROL INFORMATION.
05094 M01S04913.acpd +++|*
05095 M01S04914.acpd +++|* PRINT SYSTEM CONTROL INFORMATION.
05096 M01S04915.acpd +++|*
05097 M01S04916.acpd +++|* PROC PUTSCI
05098 M01S04917.acpd +++|*
05099 M01S04918.acpd +++|* ENTRY TABLE *DCHD* CONTAINS HEADER BLOCK ELEMENT VALUES.
05100 M01S04919.acpd +++|*
05101 M01S04920.acpd +++|* EXIT SYSTEM CONTROL INFORMATION (SERVICE CLASSES,
05102 M01S04921.acpd +++|* PRIORITY, ETC.) ARE PRINTED TO THE REPORT FILE.
05103 M01S04922.acpd +++|#
05104 M01S04923.acpd +++|
05105 M01S04924.acpd +++|#
05106 M01S04925.acpd +++|**** PROC PUTSCI - XREF LIST BEGIN.
05107 M01S04926.acpd +++|#
05108 M01S04927.acpd +++|
05109 M01S04928.acpd +++| XREF
05110 M01S04929.acpd +++| BEGIN
05111 M01S04930.acpd +++| PROC RPEJECT; # PAGE EJECT #
05112 M01S04931.acpd +++| PROC RPSPACE; # LINE FEED #
05113 M01S04932.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
05114 M01S04933.acpd +++| END
05115 M01S04934.acpd +++|
05116 M01S04935.acpd +++|#
05117 M01S04936.acpd +++|**** PROC PUTSCI - XREF LIST END.
05118 M01S04937.acpd +++|#
05119 M01S04938.acpd +++|
05120 M01S04939.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
05121 M01S04940.acpd +++|
05122 M01S04941.acpd +++|*CALL COMUCPD
05123 M01S04942.acpd +++|*CALL COMUJCA
05124 M01S04943.acpd +++|
05125 M01S04944.acpd +++|#
05126 M01S04945.acpd +++|* LOCAL VARIABLES.
05127 M01S04946.acpd +++|#
05128 M01S04947.acpd +++|
05129 M01S04948.acpd +++| ITEM I I; # FOR LOOP CONTROL #
05130 M01S04949.acpd +++| ITEM VALUE I; # TEMPORARY STORAGE #
05131 M01S04950.acpd +++|
05132 M01S04951.acpd +++|
05133 M01S04952.acpd +++|
05134 M01S04953.acpd +++|
05135 M01S04954.acpd +++|
05136 M01S04955.acpd +++|#
05137 M01S04956.acpd +++|* BEGIN PUTSCI PROC.
05138 M01S04957.acpd +++|#
05139 M01S04958.acpd +++|
05140 M01S04959.acpd +++| TLFG=0; # INDICATES NO SUBTITLE #
05141 M01S04960.acpd +++| P<DCHD>=LOC(DBUF);
05142 M01S04961.acpd +++| P<DDSC>=LOC(DDHD);
05143 M01S04962.acpd +++|
05144 M01S04963.acpd +++| RPEJECT(OFFA);
05145 M01S04964.acpd +++| RPSPACE(OFFA,2,1);
05146 M01S04965.acpd +++| WRITEV("SYSTEM CONTROL INFORMATION",CHRC,11,26,LFDC);
05147 M01S00001.271l750 +++|
05148 M01S04966.acpd +++| RPSPACE(OFFA,2,1);
05149 M01S04967.acpd +++| WRITEV("SERVICE QUEUE",CHRC,11,15,NLFC);
05150 M01S04968.acpd +++| WRITEV(" PRIORITIES",CHRC,26,25,NLFC);
05151 M01S04969.acpd +++| WRITEV("SERVICE LIMITS",CHRC,77,14,LFDC);
05152 M01S00002.271l750 +++|
05153 M01S04970.acpd +++| WRITEV("CLASS",CHRC,11,5,NLFC);
| Line S04971 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05154 M02S04971.271l716 ---| WRITEV("PR CP CM NJ TD",CHRC,68,31,LFDC);
| Line S04972 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05155 M02S04972.271l716 ---| WRITEV("FL AM TP",CHRC,68,25,LFDC);
| Line S04973 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05156 M02S04973.271l716 ---| WRITEV("IL LP UP WF IP",CHRC,31,29,NLFC);
| Line S04974 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05157 M02S04974.271l716 ---| WRITEV("EC EM DS FC CS FS",CHRC,68,31,LFDC);
| Line S00001 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05158 M02S00001.271l750 ---| WRITEV("CB/L CP CT CM NJ TD",CHRC,60,38,LFDC);
05159 M01S00003.271l750 +++| WRITEV("CP CT CM NJ TD",CHRC,69,29,LFDC);
05160 M01S00004.271l750 +++|
| Line S00002 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05161 M02S00002.271l750 ---| WRITEV("CB/U FL AM TP ",CHRC,60,33,LFDC);
05162 M01S00005.271l750 +++| WRITEV("FL AM TP AJ DT",CHRC,69,29,LFDC);
05163 M01S00006.271l750 +++|
| Line S00003 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05164 M02S00003.271l750 ---| WRITEV("IL LP UP WF IP",CHRC,31,27,NLFC);
05165 M01S00007.271l750 +++| WRITEV("IL LP UP WF IP",CHRC,31,28,NLFC);
05166 M01S00004.271l716 +++| WRITEV("EC EM DS FC CS FS",CHRC,69,29,LFDC);
| Line S00005 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05167 M02S00005.271l750 ---| WRITEV("SD",CHRC,69,2,LFDC);
05168 M01S00008.271l750 +++|
05169 M01S00009.271l750 +++| WRITEV("PR SE RS US",CHRC,69,23,LFDC);
05170 M01S04975.acpd +++|
05171 M01S04976.acpd +++| P<JBCA>=LOC(DCHD$WD[DDSC$FW[JCBA]]);
05172 M01S04977.acpd +++|
05173 M01S04978.acpd +++|#
05174 M01S04979.acpd +++|* PRINT SERVICE CLASS INFORMATION.
05175 M01S04980.acpd +++|#
05176 M01S04981.acpd +++|
05177 M01S04982.acpd +++| SLOWFOR I=1 STEP 1 UNTIL DCHD$WD[DDSC$FW[MXNS]]-2
05178 M01S04983.acpd +++| DO
05179 M01S04984.acpd +++| BEGIN # PROCESS ONE SERVICE CLASS #
05180 M01S04985.acpd +++| RPSPACE(OFFA,2,1);
05181 M01S04986.acpd +++| WRITEV(JCST$SC[I],CHRC,13,2,NLFC); # SERVICE CLASS NAME #
| Line S04987 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05182 M02S04987.271l750 ---|
05183 M01S04988.acpd +++| WRITEV("IN",CHRC,22,2,NLFC);
05184 M01S04989.acpd +++| WRITEV(JCA$INLP[I],OC2C,36,4,NLFC);
05185 M01S04990.acpd +++| WRITEV(JCA$INUP[I],OC2C,43,4,NLFC);
05186 M01S04991.acpd +++| VALUE=2**JCA$INWF[I];
| Line S04992 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05187 M02S04992.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC);
| Line S04993 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05188 M02S04993.271l716 ---| WRITEV(JCA$PR[I],OC2C,66,4,NLFC);
| Line S04994 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05189 M02S04994.271l716 ---| WRITEV(JCA$CP[I],OC2C,75,4,NLFC);
| Line S04995 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05190 M02S04995.271l716 ---| WRITEV(JCA$CM[I],OC2C,82,4,NLFC);
| Line S04996 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05191 M02S04996.271l716 ---| WRITEV(JCA$NJ[I],OC2C,89,4,NLFC);
| Line S04997 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05192 M02S04997.271l716 ---| WRITEV(JCA$TD[I],OC2C,95,4,LFDC);
| Line S00006 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05193 M02S00006.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC);
| Line S00007 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05194 M02S00007.271l750 ---| WRITEV(JCA$CL[I],OC2C,60,4,NLFC);
05195 M01S00010.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC);
05196 M01S00008.271l716 +++| WRITEV(JCA$CP[I],OC2C,67,4,NLFC);
05197 M01S00009.271l716 +++| WRITEV(JCA$CT[I],OC2C,75,4,NLFC);
05198 M01S00010.271l716 +++| WRITEV(JCA$CM[I],OC2C,81,4,NLFC);
05199 M01S00011.271l716 +++| WRITEV(JCA$NJ[I],OC2C,88,4,NLFC);
05200 M01S00012.271l716 +++| WRITEV(JCA$TD[I],OC2C,94,4,LFDC);
05201 M01S04998.acpd +++|
05202 M01S04999.acpd +++| WRITEV("EX",CHRC,22,2,NLFC);
05203 M01S05000.acpd +++| WRITEV(JCA$EXIL[I],OC2C,29,4,NLFC);
05204 M01S05001.acpd +++| WRITEV(JCA$EXLP[I],OC2C,36,4,NLFC);
05205 M01S05002.acpd +++| WRITEV(JCA$EXUP[I],OC2C,43,4,NLFC);
05206 M01S05003.acpd +++| VALUE=2**JCA$EXWF[I];
| Line S05004 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05207 M02S05004.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC);
| Line S05005 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05208 M02S05005.271l716 ---| WRITEV(JCA$EXIP[I],OC2C,56,4,NLFC);
| Line S05006 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05209 M02S05006.271l716 ---| WRITEV(JCA$FL[I],OC2C,66,4,NLFC);
| Line S05007 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05210 M02S05007.271l716 ---| WRITEV(JCA$AM[I],OC2C,71,8,NLFC);
| Line S05008 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05211 M02S05008.271l716 ---| WRITEV(JCA$TP[I],OC2C,89,4,LFDC);
| Line S00013 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05212 M02S00013.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC);
| Line S00014 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05213 M02S00014.271l750 ---| WRITEV(JCA$EXIP[I],OC2C,54,4,NLFC);
| Line S00015 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05214 M02S00015.271l750 ---| WRITEV(JCA$CU[I],OC2C,60,4,NLFC);
05215 M01S00011.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC);
05216 M01S00012.271l750 +++| WRITEV(JCA$EXIP[I],OC2C,55,4,NLFC);
05217 M01S00016.271l716 +++| WRITEV(JCA$FL[I],OC2C,67,4,NLFC);
05218 M01S00017.271l716 +++| WRITEV(JCA$AM[I],OC2C,71,8,NLFC);
| Line S00018 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05219 M02S00018.271l750 ---| WRITEV(JCA$TP[I],OC2C,88,4,LFDC);
05220 M01S00013.271l750 +++| WRITEV(JCA$TP[I],OC2C,81,4,NLFC);
05221 M01S00014.271l750 +++| WRITEV(JCA$AJ[I],OC2C,88,4,NLFC);
05222 M01S00015.271l750 +++| WRITEV(JCST$SC[JCA$DT[I]],CHRC,96,2,LFDC);
05223 M01S05009.acpd +++|
05224 M01S05010.acpd +++| WRITEV("OT",CHRC,22,2,NLFC);
05225 M01S05011.acpd +++| WRITEV(JCA$OTLP[I],OC2C,36,4,NLFC);
05226 M01S05012.acpd +++| WRITEV(JCA$OTUP[I],OC2C,43,4,NLFC);
05227 M01S05013.acpd +++| VALUE=2**JCA$OTWF[I];
| Line S05014 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05228 M02S05014.271l716 ---| WRITEV(VALUE,OC2C,49,4,NLFC);
| Line S05015 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05229 M02S05015.271l716 ---| WRITEV(JCA$EC[I],OC2C,66,4,NLFC);
| Line S05016 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05230 M02S05016.271l716 ---| WRITEV(JCA$EM[I],OC2C,75,4,NLFC);
| Line S05017 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05231 M02S05017.271l716 ---| WRITEV(JCA$DS[I],OC2C,85,1,NLFC);
| Line S05018 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05232 M02S05018.271l716 ---| WRITEV(JCA$FC[I],OC2C,90,1,NLFC);
| Line S05019 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05233 M02S05019.271l716 ---| WRITEV(JCA$CS[I],OC2C,94,1,NLFC);
| Line S05020 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
05234 M02S05020.271l716 ---| WRITEV(JCA$FS[I],OC2C,98,1,LFDC);
| Line S00019 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05235 M02S00019.271l750 ---| WRITEV(VALUE,OC2C,48,4,NLFC);
05236 M01S00016.271l750 +++| WRITEV(VALUE,OC2C,49,4,NLFC);
05237 M01S00020.271l716 +++| WRITEV(JCA$EC[I],OC2C,67,4,NLFC);
05238 M01S00021.271l716 +++| WRITEV(JCA$EM[I],OC2C,75,4,NLFC);
05239 M01S00022.271l716 +++| WRITEV(JCA$DS[I],OC2C,84,1,NLFC);
05240 M01S00023.271l716 +++| WRITEV(JCA$FC[I],OC2C,89,1,NLFC);
05241 M01S00024.271l716 +++| WRITEV(JCA$CS[I],OC2C,93,1,NLFC);
05242 M01S00025.271l716 +++| WRITEV(JCA$FS[I],OC2C,97,1,LFDC);
| Line S00026 Modification History |
M01 (Added by) | 271l716 |
M02 (Updated by) | 271l750 |
Seq # *Modification Id* Act
----------------------------+
05243 M02S00026.271l750 ---| WRITEV(JCA$SD[I],OC2C,67,4,LFDC);
05244 M01S00017.271l750 +++|
05245 M01S00018.271l750 +++| WRITEV(JCA$PR[I],OC2C,67,4,NLFC);
05246 M01S00019.271l750 +++| WRITEV(JCA$SE[I],OC2C,75,4,NLFC);
05247 M01S00020.271l750 +++| WRITEV(JCA$RS[I],OC2C,81,4,NLFC);
05248 M01S00021.271l750 +++| WRITEV(JCA$US[I],OC2C,88,4,LFDC);
05249 M01S00022.271l750 +++|
05250 M01S05021.acpd +++| END # PROCESS ONE SERVICE CLASS #
05251 M01S05022.acpd +++|
05252 M01S05023.acpd +++| RETURN;
05253 M01S05024.acpd +++| END # PUTSCI #
05254 M01S05025.acpd +++|
05255 M01S05026.acpd +++| TERM
05256 M01S05027.acpd +++|PROC PUTSNS((FWA),(LWA));
05257 M01S05028.acpd +++|# TITLE PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS. #
05258 M01S05029.acpd +++|
05259 M01S05030.acpd +++| BEGIN # PUTSNS #
05260 M01S05031.acpd +++|
05261 M01S05032.acpd +++|#
05262 M01S05033.acpd +++|** PUTSNS - PROCESS SNAPSHOT LOOP ELEMENTS.
05263 M01S05034.acpd +++|*
05264 M01S05035.acpd +++|* PUTSNS IS THE DRIVER OF THE SNAPSHOT LOOP ELEMENTS.
05265 M01S05036.acpd +++|*
05266 M01S05037.acpd +++|* PROC PUTSNS((FWA),(LWA))
05267 M01S05038.acpd +++|*
05268 M01S05039.acpd +++|* ENTRY FWA = FIRST WORD ADDRESS OF SNAPSHOT LOOP
05269 M01S05040.acpd +++|* ELEMENTS IN TABLE *DSPT*.
05270 M01S05041.acpd +++|* LWA = LAST WORD ADDRESS OF SNAPSHOT LOOP
05271 M01S05042.acpd +++|* ELEMENTS IN TABLE *DSPT*.
05272 M01S05043.acpd +++|*
05273 M01S05044.acpd +++|* EXIT SNAPSHOT LOOP ELEMENTS ARE PRINTED TO THE REPORT
05274 M01S05045.acpd +++|* FILE.
05275 M01S05046.acpd +++|#
05276 M01S05047.acpd +++|
05277 M01S05048.acpd +++|#
05278 M01S05049.acpd +++|* PARAMETER LIST.
05279 M01S05050.acpd +++|#
05280 M01S05051.acpd +++|
05281 M01S05052.acpd +++| ITEM FWA I; # *FWA* IN *DSPT* TABLE #
05282 M01S05053.acpd +++| ITEM LWA I; # *LWA* IN *DSPT* TABLE #
05283 M01S05054.acpd +++|
05284 M01S05055.acpd +++|#
05285 M01S05056.acpd +++|**** PROC PUTSNS - XREF LIST BEGIN.
05286 M01S05057.acpd +++|#
05287 M01S05058.acpd +++|
05288 M01S05059.acpd +++| XREF
05289 M01S05060.acpd +++| BEGIN
05290 M01S05061.acpd +++| PROC GETMSG; # GET TITLE FROM TABLE *DSPTTXT* #
05291 M01S05062.acpd +++| PROC WRITEV; # WRITE DATA ELEMENT #
05292 M01S05063.acpd +++| END
05293 M01S05064.acpd +++|
05294 M01S05065.acpd +++|#
05295 M01S05066.acpd +++|**** PROC PUTSNS - XREF LIST END.
05296 M01S05067.acpd +++|#
05297 M01S05068.acpd +++|
05298 M01S05069.acpd +++| DEF BLKC #" "#; # BLANK #
05299 M01S05070.acpd +++| DEF BPCC #6#; # NUMBER OF BITS PER CHAR #
05300 M01S05071.acpd +++| DEF NSBC #O"777"#; # NO SUBBLOCK FLAG #
05301 M01S05072.acpd +++|
05302 M01S05073.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
05303 M01S05074.acpd +++|
05304 M01S05075.acpd +++|*CALL COMUCPD
05305 M01S05076.acpd +++|
05306 M01S05077.acpd +++|#
05307 M01S05078.acpd +++|* LOCAL VARIABLES.
05308 M01S05079.acpd +++|#
05309 M01S05080.acpd +++|
05310 M01S05081.acpd +++| ITEM BL U; # BIT LENGTH #
05311 M01S05082.acpd +++| ITEM BT I; # BIT POSITION #
05312 M01S05083.acpd +++| ITEM FW I; # POINTER TO *DCDT* TABLE #
05313 M01S05084.acpd +++| ITEM I I; # FOR LOOP CONTROL #
05314 M01S05085.acpd +++| ITEM IC I; # INCREMENTOR #
05315 M01S05086.acpd +++| ITEM J I; # FOR LOOP CONTROL #
05316 M01S05087.acpd +++| ITEM K I; # FOR LOOP CONTROL #
05317 M01S05088.acpd +++| ITEM L I; # FOR LOOP CONTROL #
05318 M01S05089.acpd +++| ITEM LN U; # TITLE LENGTH IN CHARACTERS #
05319 M01S05090.acpd +++| ITEM MSG C(50); # TEMPORARY BUFFER #
05320 M01S05091.acpd +++| ITEM N I; # TEMPORARY STORAGE #
05321 M01S05092.acpd +++| ITEM PT I; # POINTER TO *DDDT* TABLE #
05322 M01S05093.acpd +++| ITEM ST U; # POINTER TO SUBTITLE TABLE #
05323 M01S05094.acpd +++| ITEM VL I; # TEMPORARY VALUE #
05324 M01S05095.acpd +++| ITEM WC I; # WORD COUNT #
05325 M01S05096.acpd +++|
05326 M01S05097.acpd +++|
05327 M01S05098.acpd +++|
05328 M01S05099.acpd +++|
05329 M01S05100.acpd +++|
05330 M01S05101.acpd +++|
05331 M01S05102.acpd +++|#
05332 M01S05103.acpd +++|* BEGIN PUTSNS PROC.
05333 M01S05104.acpd +++|#
05334 M01S05105.acpd +++|
05335 M01S05106.acpd +++| P<DCDT>=LOC(DBUF[DCHL]);
05336 M01S05107.acpd +++| P<DDSC>=LOC(DDDT);
05337 M01S05108.acpd +++|
05338 M01S05109.acpd +++| FASTFOR I=FWA STEP 1 UNTIL LWA
05339 M01S05110.acpd +++| DO
05340 M01S05111.acpd +++| BEGIN # FOLLOW TABLE *DSPT* #
05341 M01S05112.acpd +++| PT=DSPT$PT[I]; # POINTER TO *DDSC* #
05342 M01S05113.acpd +++| ST=DSPT$ST[I]; # POINTER TO *SMGT* #
05343 M01S05114.acpd +++| BL=DSPT$BL[I]; # BIT LENGTH #
05344 M01S05115.acpd +++| LN=DSPT$LN[I];
05345 M01S05116.acpd +++| GETMSG(I,MSG);
05346 M01S05117.acpd +++| FW=DDSC$FW[PT];
05347 M01S05118.acpd +++| IC=DDSC$IC[PT]; # INCREMENTOR #
05348 M01S05119.acpd +++|
05349 M01S05120.acpd +++|#
05350 M01S05121.acpd +++|* IF BIT LENGTH *BL* IS ZERO, THE VALUE IS A FULL WORD VALUE.
05351 M01S05122.acpd +++|* THE VALUE IS PRINTED IN FIVE 12-BIT BYTES, IN SUCCESSIVE ROWS.
05352 M01S05123.acpd +++|#
05353 M01S05124.acpd +++|
05354 M01S05125.acpd +++| IF (BL EQ 0) # NO BIT LENGTH #
05355 M01S05126.acpd +++| THEN
05356 M01S05127.acpd +++| BEGIN # ACCESS FULL WORD #
05357 M01S05128.acpd +++| WRITEV(MSG,CHRC,1,LN,LFDC);
05358 M01S05129.acpd +++| FASTFOR J=1 STEP 1 UNTIL DDSC$LN[PT]
05359 M01S05130.acpd +++| DO
05360 M01S05131.acpd +++| BEGIN # PROCESS ONE ENTRY #
05361 M01S05132.acpd +++| IF (ST NQ NSBC) # SUBTITLE PRESENT #
05362 M01S05133.acpd +++| THEN # PRINT SUBTITLE #
05363 M01S05134.acpd +++| BEGIN
05364 M01S05135.acpd +++| MSG=SMGT$TX[ST+J-1];
05365 M01S05136.acpd +++| WRITEV(MSG,CHRC,10,10,NLFC);
05366 M01S05137.acpd +++| END
05367 M01S05138.acpd +++|
05368 M01S05139.acpd +++| FASTFOR L=0 STEP 1 UNTIL 4
05369 M01S05140.acpd +++| DO
05370 M01S05141.acpd +++| BEGIN # BREAK A WORD INTO FIVE BYTES #
05371 M01S05142.acpd +++| N=31;
05372 M01S05143.acpd +++| SLOWFOR K=1 STEP 1 UNTIL NIPP
05373 M01S05144.acpd +++| DO # PRINT BYTE L OF COLUMN K #
05374 M01S05145.acpd +++| BEGIN
05375 M01S05146.acpd +++| VL=C<L*2,2>DCDT$CW[(K-1)*DCDL + FW];
05376 M01S05147.acpd +++| WRITEV(VL,OC3C,N,4,NLFC);
05377 M01S05148.acpd +++| N=N+10;
05378 M01S05149.acpd +++| END
05379 M01S05150.acpd +++|
05380 M01S05151.acpd +++| WRITEV(BLKC,CHRC,N+2,1,LFDC); # LINE FEED #
05381 M01S05152.acpd +++| END # BREAK A WORD INTO FIVE BYTES #
05382 M01S05153.acpd +++|
05383 M01S05154.acpd +++| FW=FW+IC;
05384 M01S05155.acpd +++| END # PROCESS ONE ENTRY #
05385 M01S05156.acpd +++|
05386 M01S05157.acpd +++| END # ACCESS FULL WORD #
05387 M01S05158.acpd +++|
05388 M01S05159.acpd +++|#
05389 M01S05160.acpd +++|* IF BIT LENGTH *BL* IS NON ZERO, THE VALUE IS A PARTIAL WORD
05390 M01S05161.acpd +++|* VALUE. *WC* IS THE WORD COUNT INDICATING WHAT WORD IN A
05391 M01S05162.acpd +++|* MULTIPLE-ENTRY ELEMENT THAT CONTAINS THE VALUE. IF THE ELEMENT
05392 M01S05163.acpd +++|* IS A SINGLE-ENTRY ELEMENT, *WC* IS ZERO. *BL* AND *BT* ARE
05393 M01S05164.acpd +++|* THE NUMBER OF BITS AND THE STARTING BIT POSITION, RESPECTIVELY.
05394 M01S05165.acpd +++|#
05395 M01S05166.acpd +++|
05396 M01S05167.acpd +++| ELSE
05397 M01S05168.acpd +++| BEGIN # ACCESS PARTIAL WORD #
05398 M01S05169.acpd +++| WRITEV(MSG,CHRC,1,LN,NLFC);
05399 M01S05170.acpd +++| BT=DSPT$BT[I]/BPCC; # CHARACTER POSITION #
05400 M01S05171.acpd +++| WC=DSPT$WC[I]; # WORD POSITION #
05401 M01S05172.acpd +++| BL=BL/BPCC; # NUMBER OF CHARACTERS #
05402 M01S05173.acpd +++| N=BCLC + 2;
05403 M01S05174.acpd +++|
05404 M01S05175.acpd +++| SLOWFOR J=1 STEP 1 UNTIL NIPP
05405 M01S05176.acpd +++| DO
05406 M01S05177.acpd +++| BEGIN
05407 M01S05178.acpd +++| VL=C<BT,BL>DCDT$CW[(J-1)*DCDL + FW + WC];
05408 M01S05179.acpd +++| WRITEV(VL,INTC,N,8,NLFC);
05409 M01S05180.acpd +++| N=N+10;
05410 M01S05181.acpd +++| END
05411 M01S05182.acpd +++|
05412 M01S05183.acpd +++| WRITEV(BLKC,CHRC,N+2,1,LFDC); # LINE FEED #
05413 M01S05184.acpd +++| END # ACCESS PARTIAL WORD #
05414 M01S05185.acpd +++|
05415 M01S05186.acpd +++| END # FOLLOW TABLE *DSPT* #
05416 M01S05187.acpd +++|
05417 M01S05188.acpd +++| RETURN;
05418 M01S05189.acpd +++| END # PUTSNS #
05419 M01S05190.acpd +++|
05420 M01S05191.acpd +++| TERM
05421 M01S05192.acpd +++|PROC READRC(STAT);
05422 M01S05193.acpd +++|# TITLE READRC - READ DATA FILE. #
05423 M01S05194.acpd +++|
05424 M01S05195.acpd +++| BEGIN # READRC #
05425 M01S05196.acpd +++|
05426 M01S05197.acpd +++|#
05427 M01S05198.acpd +++|** READRC - READ DATA FILE.
05428 M01S05199.acpd +++|*
05429 M01S05200.acpd +++|* READ ONE RECORD FROM THE DATA FILE.
05430 M01S05201.acpd +++|*
05431 M01S05202.acpd +++|* PROC READRC(STAT)
05432 M01S05203.acpd +++|*
05433 M01S05204.acpd +++|* ENTRY THE DATA FILE.
05434 M01S05205.acpd +++|*
05435 M01S05206.acpd +++|* EXIT STAT = STATUS CODE.
05436 M01S05207.acpd +++|* ONE RECORD OF THE DATA FILE IS READ TO
05437 M01S05208.acpd +++|* WORKING STORAGE AREA *WSAI*.
05438 M01S05209.acpd +++|* THE NUMBER OF WORDS READ *IBNW* IS UPDATED.
05439 M01S05210.acpd +++|#
05440 M01S05211.acpd +++|
05441 M01S05212.acpd +++|#
05442 M01S05213.acpd +++|* PARAMETER LIST.
05443 M01S05214.acpd +++|#
05444 M01S05215.acpd +++|
05445 M01S05216.acpd +++| ITEM STAT I; # STATUS CODE #
05446 M01S05217.acpd +++|
05447 M01S05218.acpd +++|#
05448 M01S05219.acpd +++|**** PROC READRC - XREF LIST BEGIN.
05449 M01S05220.acpd +++|#
05450 M01S05221.acpd +++|
05451 M01S05222.acpd +++| XREF
05452 M01S05223.acpd +++| BEGIN
05453 M01S05224.acpd +++| PROC READSKP; # READ AND SKIP #
05454 M01S05225.acpd +++| END
05455 M01S05226.acpd +++|
05456 M01S05227.acpd +++|#
05457 M01S05228.acpd +++|**** PROC READRC - XREF LIST END.
05458 M01S05229.acpd +++|#
05459 M01S05230.acpd +++|
05460 M01S05231.acpd +++| DEF RFETL #8#; # FET LENGTH #
05461 M01S05232.acpd +++|
05462 M01S05233.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
05463 M01S05234.acpd +++|
05464 M01S05235.acpd +++|*CALL COMAFET
05465 M01S05236.acpd +++|*CALL COMUCPD
05466 M01S05237.acpd +++|
05467 M01S05238.acpd +++|#
05468 M01S05239.acpd +++|* LOCAL VARIABLES.
05469 M01S05240.acpd +++|#
05470 M01S05241.acpd +++|
05471 M01S05242.acpd +++| ARRAY STT [0:0] P(1); # STATUS CODE #
05472 M01S05243.acpd +++| BEGIN # ARRAY STT #
05473 M01S05244.acpd +++| ITEM STT$STAT U(00,42,18); # STATUS #
05474 M01S05245.acpd +++| ITEM STT$LN U(00,42,04); # LEVEL NUMBER #
05475 M01S05246.acpd +++| ITEM STT$AT U(00,46,04); # ABNORMAL TERMINATION CODE #
05476 M01S05247.acpd +++| ITEM STT$CODE U(00,50,10); # REQUEST/RETURN CODE #
05477 M01S05248.acpd +++| END # ARRAY STT #
05478 M01S05249.acpd +++|
05479 M01S05250.acpd +++|
05480 M01S05251.acpd +++|
05481 M01S05252.acpd +++|
05482 M01S05253.acpd +++|#
05483 M01S05254.acpd +++|* BEGIN READRC PROC.
05484 M01S05255.acpd +++|#
05485 M01S05256.acpd +++|
05486 M01S05257.acpd +++| P<FETSET>=LOC(FETI);
05487 M01S05258.acpd +++| FET$IN[0]=FET$FRST[0]; # SET *IN* = *FIRST* #
05488 M01S05259.acpd +++| FET$OUT[0]=FET$FRST[0]; # SET *OUT* = *FIRST* #
05489 M01S05260.acpd +++| READSKP(FETSET,0,1);
05490 M01S05261.acpd +++| IBNW = FET$IN[0] - FET$OUT[0]; # NUMBER OF WORDS READ #
05491 M01S05262.acpd +++| STT$LN[0]=FET$LN[0];
05492 M01S05263.acpd +++| STT$AT[0]=FET$AT[0];
05493 M01S05264.acpd +++| STT$CODE[0]=FET$CODE[0];
05494 M01S05265.acpd +++|
05495 M01S05266.acpd +++| STAT=STT$STAT[0];
05496 M01S05267.acpd +++| RETURN;
05497 M01S05268.acpd +++| END # READRC #
05498 M01S05269.acpd +++|
05499 M01S05270.acpd +++| TERM
05500 M01S05271.acpd +++|PROC REPTLE;
05501 M01S05272.acpd +++|# TITLE REPTLE - PRINT REPORT SUBTITLE. #
05502 M01S05273.acpd +++|
05503 M01S05274.acpd +++| BEGIN # REPTLE #
05504 M01S05275.acpd +++|
05505 M01S05276.acpd +++|#
05506 M01S05277.acpd +++|** REPTLE - PRINT REPORT SUBTITLE.
05507 M01S05278.acpd +++|*
05508 M01S05279.acpd +++|* *REPTLE* PRINTS THE SUBTITLE AT EACH PAGE EJECT.
05509 M01S05280.acpd +++|* THE SUBTITLE TO BE PRINTED DEPENDS ON THE VALUE
05510 M01S05281.acpd +++|* OF *TLFG* (COMMON BLOCK *CIOCOMM*).
05511 M01S05282.acpd +++|*
05512 M01S05283.acpd +++|* PROC REPTLE
05513 M01S05284.acpd +++|*
05514 M01S05285.acpd +++|* ENTRY NIPP = NUMBER OF INTERVALS PER PAGE
05515 M01S05286.acpd +++|* (COMMON BLOCK *CIOCOMM*).
05516 M01S05287.acpd +++|* TLFG = SUBTITLE FLAG (COMMON BLOCK *CIOCOMM*).
05517 M01S05288.acpd +++|* IF *TLFG* IS :
05518 M01S05289.acpd +++|* 0 NO SUBTITLE.
05519 M01S05290.acpd +++|* 1 PRINT SUBTITLE FOR DATA BLOCK.
05520 M01S05291.acpd +++|* 2 PRINT SUBTITLE FOR SNAPSHOT.
05521 M01S05292.acpd +++|* 3 PRINT SUBTITLE FOR EST REPORT.
05522 M01S05293.acpd +++|*
05523 M01S05294.acpd +++|* EXIT SUBTITLE IS PRINTED ON TOP OF EACH PAGE.
05524 M01S05295.acpd +++|#
05525 M01S05296.acpd +++|
05526 M01S05297.acpd +++|#
05527 M01S05298.acpd +++|**** PROC REPTLE - XREF LIST BEGIN.
05528 M01S05299.acpd +++|#
05529 M01S05300.acpd +++|
05530 M01S05301.acpd +++| XREF
05531 M01S05302.acpd +++| BEGIN
05532 M01S05303.acpd +++| FUNC EDATE C(10); # CONVERT NUMBER TO DATE #
05533 M01S05304.acpd +++| FUNC ETIME C(10); # CONVERT NUMBER TO TIME #
05534 M01S05305.acpd +++| PROC RPLINEX; # PRINT ONE LINE #
05535 M01S05306.acpd +++| FUNC XCDD C(10); # CONVERT TO DISPLAY DECIMAL #
05536 M01S05307.acpd +++| END
05537 M01S05308.acpd +++|
05538 M01S05309.acpd +++|#
05539 M01S05310.acpd +++|**** PROC REPTLE - XREF LIST END.
05540 M01S05311.acpd +++|#
05541 M01S05312.acpd +++|
05542 M01S05313.acpd +++| DEF ASTC #"*"#; # ASTERISK #
05543 M01S05314.acpd +++| DEF BLKC #" "#; # BLANK #
05544 M01S05315.acpd +++| DEF PRDC #"."#; # PERIOD #
05545 M01S05316.acpd +++| DEF SLSC #"/"#; # SLASH #
05546 M01S05317.acpd +++| DEF ZERC #"0"#; # CHARACTER ZERO #
05547 M01S05318.acpd +++|
05548 M01S05319.acpd +++| DEF LISTCON #0#; # TURN OFF COMMON DECK LISTING #
05549 M01S05320.acpd +++|
05550 M01S05321.acpd +++|*CALL COMUCPD
05551 M01S05322.acpd +++|
05552 M01S05323.acpd +++|#
05553 M01S05324.acpd +++|* LOCAL VARIABLES.
05554 M01S05325.acpd +++|#
05555 M01S05326.acpd +++|
05556 M01S05327.acpd +++| ITEM ESTFS B=TRUE; # FIRST EST SUBTITLE FLAG #
05557 M01S05328.acpd +++| ITEM HRS I; # HOUR #
05558 M01S05329.acpd +++| ITEM I I; # FOR LOOP CONTROL #
05559 M01S05330.acpd +++| ITEM J I; # TEMPORARY VARIABLE #
05560 M01S05331.acpd +++| ITEM MNS I; # MINUTE #
05561 M01S05332.acpd +++| ITEM MSG C(40); # TEMPORARY STORAGE #
05562 M01S05333.acpd +++| ITEM N I; # TEMPORARY VARIABLE #
05563 M01S05334.acpd +++| ITEM N1 I; # TEMPORARY VARIABLE #
05564 M01S05335.acpd +++| ITEM N2 I; # TEMPORARY VARIABLE #
05565 M01S05336.acpd +++| ITEM OF I; # OFFSET #
05566 M01S05337.acpd +++|
05567 M01S05338.acpd +++| ARRAY T [0:0] P(1); # TEMPORARY STORAGE #
05568 M01S05339.acpd +++| BEGIN
05569 M01S05340.acpd +++| ITEM T$WD C(00,00,10); # TEN CHARACTER WORD #
05570 M01S05341.acpd +++| ITEM T$3C C(00,00,03); # THREE CHARACTER ITEM #
05571 M01S05342.acpd +++| ITEM T$2C C(00,00,02); # TWO CHARACTER ITEM #
05572 M01S05343.acpd +++| ITEM T$1C C(00,00,01); # ONE CHARACTER ITEM #
05573 M01S05344.acpd +++| ITEM T$ZC C(00,06,01); # ZERO FILL #
05574 M01S05345.acpd +++| END
05575 M01S05346.acpd +++|
05576 M01S05347.acpd +++| ARRAY TEM [0:0] P(1); # TEMPORARY STORAGE #
05577 M01S05348.acpd +++| BEGIN # ARRAY TEM #
05578 M01S05349.acpd +++| ITEM TEM$WD C(00,00,10); # TEN CHARACTER ITEM #
05579 M01S05350.acpd +++| ITEM TEM$3C C(00,42,03); # THREE CHARACTER ITEM #
05580 M01S05351.acpd +++| ITEM TEM$2C C(00,48,02); # TWO CHARACTER ITEM #
05581 M01S05352.acpd +++| END
05582 M01S05353.acpd +++|
05583 M01S05354.acpd +++|
05584 M01S05355.acpd +++|
05585 M01S05356.acpd +++|
05586 M01S05357.acpd +++|
05587 M01S05358.acpd +++|
05588 M01S05359.acpd +++|#
05589 M01S05360.acpd +++|* BEGIN REPTLE PROC.
05590 M01S05361.acpd +++|#
05591 M01S05362.acpd +++|
05592 M01S05363.acpd +++| IF (TLFG EQ 0) OR (P$L EQ NULL) # NO TITLE OR NO REPORT FILE #
05593 M01S05364.acpd +++| THEN
05594 M01S05365.acpd +++| BEGIN
05595 M01S05366.acpd +++| RETURN; # NO SUBTITLE #
05596 M01S05367.acpd +++| END
05597 M01S05368.acpd +++|
05598 M01S05369.acpd +++| IF (TLFG EQ 3) # PRINTING EST #
05599 M01S05370.acpd +++| THEN
05600 M01S05371.acpd +++| BEGIN # PRINT EST SUBTITLE #
05601 M01S05372.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC);
05602 M01S05373.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC);
05603 M01S05374.acpd +++| IF (ESTFS) # FIRST EST SUBTITLE #
05604 M01S05375.acpd +++| THEN
05605 M01S05376.acpd +++| BEGIN
05606 M01S05377.acpd +++| MSG="EQUIPMENT STATUS TABLE";
05607 M01S05378.acpd +++| RPLINEX(OFFA,MSG,5,22,LFDC);
05608 M01S05379.acpd +++| ESTFS=FALSE;
05609 M01S05380.acpd +++| END
05610 M01S05381.acpd +++|
05611 M01S05382.acpd +++| ELSE # SECOND EST SUBTITLE #
05612 M01S05383.acpd +++| BEGIN
05613 M01S05384.acpd +++| MSG="EQUIPMENT STATUS TABLE (CONTINUED)";
05614 M01S05385.acpd +++| RPLINEX(OFFA,MSG,5,35,LFDC);
05615 M01S05386.acpd +++| END
05616 M01S05387.acpd +++|
05617 M01S05388.acpd +++| MSG="NO. TYPE STAT EQ UN CHANNELS";
05618 M01S05389.acpd +++| RPLINEX(OFFA,MSG,5,33,NLFC);
05619 M01S05390.acpd +++| MSG="EST ENTRY";
05620 M01S05391.acpd +++| RPLINEX(OFFA,MSG,42,9,NLFC);
05621 M01S05392.acpd +++| MSG="TRACK FILES";
05622 M01S05393.acpd +++| RPLINEX(OFFA,MSG,86,17,LFDC);
05623 M01S05394.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC);
05624 M01S05395.acpd +++| RETURN;
05625 M01S05396.acpd +++| END # PRINT EST SUBTITLE #
05626 M01S05397.acpd +++|
05627 M01S05398.acpd +++| P<DCDT>=LOC(DBUF[DCHL]);
05628 M01S05399.acpd +++| P<DDSM>=LOC(DBUF[DCHL + DCDC*DCDL*2]);
05629 M01S05400.acpd +++| P<DDSC>=LOC(DDDT);
05630 M01S05401.acpd +++|
05631 M01S05402.acpd +++|#
05632 M01S05403.acpd +++|* PRINT INTERVAL TIMES.
05633 M01S05404.acpd +++|#
05634 M01S05405.acpd +++|
05635 M01S05406.acpd +++| RPLINEX(OFFA,BLKC,1,1,LFDC); # LINE FEED #
| Line S05407 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05636 M02S05407.v23l617 ---| TEM$WD[0]=XCDD(P$IN);
05637 M01S00092.v23l617 +++| IF(P$IN NQ 0)
05638 M01S00093.v23l617 +++| THEN
05639 M01S00094.v23l617 +++| BEGIN
05640 M01S00095.v23l617 +++| TEM$WD=XCDD(P$IN);
05641 M01S00096.v23l617 +++| END
05642 M01S00097.v23l617 +++|
05643 M01S00098.v23l617 +++| ELSE
05644 M01S00099.v23l617 +++| BEGIN
05645 M01S00100.v23l617 +++| TEM$WD=XCDD(P$IC);
05646 M01S00101.v23l617 +++| END
05647 M01S00102.v23l617 +++|
05648 M01S05408.acpd +++| T$3C[0]=TEM$3C[0];
05649 M01S05409.acpd +++| RPLINEX(OFFA,T,1,3,NLFC);
| Line S05410 Modification History |
M01 (Added by) | acpd |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
05650 M02S05410.v23l617 ---| RPLINEX(OFFA," MINS INTERVAL",5,14,NLFC);
05651 M01S00103.v23l617 +++| IF (P$IN NQ 0) # INTERVAL TIME SPECIFIED #
05652 M01S00104.v23l617 +++| THEN
05653 M01S00105.v23l617 +++| BEGIN
05654 M01S00106.v23l617 +++| RPLINEX(OFFA," MINS INTERVAL ",5,14,NLFC);
05655 M01S00107.v23l617 +++| END
05656 M01S00108.v23l617 +++|
05657 M01S00109.v23l617 +++| ELSE
05658 M01S00110.v23l617 +++| BEGIN
05659 M01S00111.v23l617 +++| RPLINEX(OFFA," RECS INTERVAL ",5,14,NLFC);
05660 M01S00112.v23l617 +++| END
05661 M01S05411.acpd +++|
05662 M01S05412.acpd +++| J = BCLC + 1;
05663 M01S05413.acpd +++| OF=DCDC*DCDL + DDSC$FW[PDTM];
05664 M01S05414.acpd +++|
05665 M01S05415.acpd +++| SLOWFOR I=1 STEP 1 UNTIL NIPP
05666 M01S05416.acpd +++| DO
05667 M01S05417.acpd +++| BEGIN # PRINT INTERVAL TIME #
05668 M01S05418.acpd +++| N=DCDT$ET[(I-1)*DCDL + OF]; # INTERVAL END TIME #
05669 M01S05419.acpd +++| T$WD[0]=ETIME(N); # CONVERT TO DISPLAY TIME #
05670 M01S05420.acpd +++| RPLINEX(OFFA,T,J,9,NLFC);
05671 M01S05421.acpd +++| J=J+10;
05672 M01S05422.acpd +++| END # PRINT INTERVAL TIME #
05673 M01S05423.acpd +++|
05674 M01S05424.acpd +++|#
05675 M01S05425.acpd +++|* PRINT TITLES OF SUBTOTAL AND TOTAL. IF SNAPSHOT
05676 M01S05426.acpd +++|* LOOP IS BEING PRINTED, THESE TITLES WILL NOT BE
05677 M01S05427.acpd +++|* PRINTED.
05678 M01S05428.acpd +++|#
05679 M01S05429.acpd +++|
05680 M01S05430.acpd +++| IF (TLFG EQ 1) # NOT PRINTING SNAPSHOT ELEMENTS #
05681 M01S05431.acpd +++| THEN
05682 M01S05432.acpd +++| BEGIN # PRINT TIME #
05683 M01S05433.acpd +++|
05684 M01S05434.acpd +++|#
05685 M01S05435.acpd +++|* PRINT SUBTOTAL HEADER. SUBTOTAL IS NOT PRINTED IF THE SUBTOTAL
05686 M01S05436.acpd +++|* AND THE TOTAL COLUMNS ARE THE SAME, I.E. IF THE TOTAL COLUMNS
05687 M01S05437.acpd +++|* PRINTED *TCOL* IS LESS THAN 7 COLUMNS. THE SUBTOTAL HEADER IS
05688 M01S05438.acpd +++|* NOT PRINTED IF THE CURRENT PAGE IS USED TO PRINT THE TOTAL
05689 M01S05439.acpd +++|* STATISTICS ONLY (*NIPP* IS 0).
05690 M01S05440.acpd +++|#
05691 M01S05441.acpd +++|
05692 M01S05442.acpd +++| IF (NIPP GR 0) AND (TCOL GR (DCDC-3))
05693 M01S05443.acpd +++| THEN
05694 M01S05444.acpd +++| BEGIN # COMPUTE AND PRINT LENGTH OF SUBTOTAL #
05695 M01S05445.acpd +++| N=P$IN*NIPP; # LENGTH OF SUBTOTAL #
05696 M01S05446.acpd +++| HRS=N/60; # NUMBER OF HOURS #
05697 M01S05447.acpd +++| MNS=N - (HRS*60); # NUMBER OF MINUTES #
05698 M01S05448.acpd +++| TEM$WD=XCDD(HRS);
05699 M01S05449.acpd +++| T$3C[0]=TEM$3C[0];
05700 M01S05450.acpd +++| IF (T$2C[0] EQ BLKC)
05701 M01S05451.acpd +++| THEN
05702 M01S05452.acpd +++| BEGIN
05703 M01S05453.acpd +++| T$ZC[0]=ZERC;
05704 M01S05454.acpd +++| END
05705 M01S05455.acpd +++|
05706 M01S05456.acpd +++| RPLINEX(OFFA,T,J,3,NLFC);
05707 M01S05457.acpd +++| RPLINEX(OFFA,":",J+3,1,NLFC);
05708 M01S05458.acpd +++| TEM$WD=XCDD(MNS);
05709 M01S05459.acpd +++| T$2C[0]=TEM$2C[0];
05710 M01S05460.acpd +++| IF (T$1C[0] EQ BLKC)
05711 M01S05461.acpd +++| THEN
05712 M01S05462.acpd +++| BEGIN
05713 M01S05463.acpd +++| T$1C[0]=ZERC;
05714 M01S05464.acpd +++| END
05715 M01S05465.acpd +++|
05716 M01S05466.acpd +++| RPLINEX(OFFA,T,J+4,2,NLFC);
05717 M01S05467.acpd +++| END # COMPUTE AND PRINT LENGTH OF SUBTOTAL #
05718 M01S05468.acpd +++|
05719 M01S05469.acpd +++|#
05720 M01S05470.acpd +++|* PRINT TOTAL HEADER. TOTAL HEADER IS NOT PRINTED IF MORE
05721 M01S05471.acpd +++|* THAN 7 COLUMNS ARE PRINTED ON THE CURRENT PAGE.
05722 M01S05472.acpd +++|#
05723 M01S05473.acpd +++|
05724 M01S05474.acpd +++| IF (NIPP GR (DCDC-3))
05725 M01S05475.acpd +++| THEN
05726 M01S05476.acpd +++| BEGIN
05727 M01S05477.acpd +++| RPLINEX(OFFA," HR",J+6,3,LFDC);
05728 M01S05478.acpd +++| END
05729 M01S05479.acpd +++|
05730 M01S05480.acpd +++| ELSE
05731 M01S05481.acpd +++| BEGIN # COMPUTE AND PRINT LENGTH OF TOTAL #
05732 M01S05482.acpd +++| IF (NIPP GR 0) AND (TCOL GR (DCDC-3))
05733 M01S05483.acpd +++| THEN
05734 M01S05484.acpd +++| BEGIN
05735 M01S05485.acpd +++| RPLINEX(OFFA," HR",J+6,3,NLFC);
05736 M01S05486.acpd +++| J=J+10;
05737 M01S05487.acpd +++| END
05738 M01S05488.acpd +++|
05739 M01S05489.acpd +++| P<DCHD>=LOC(DBUF);
05740 M01S05490.acpd +++| P<DDSC>=LOC(DDHD);
05741 M01S05491.acpd +++| N=(DCHD$WD[DDSC$FW[DLFW]]*ACNS)/60; # TOTAL MINUTES #
05742 M01S05492.acpd +++| HRS=N/60; # TOTAL HOURS #
05743 M01S05493.acpd +++| MNS=N - (HRS*60);
05744 M01S05494.acpd +++| TEM$WD[0]=XCDD(HRS);
05745 M01S05495.acpd +++| T$3C[0]=TEM$3C[0];
05746 M01S05496.acpd +++| IF (T$2C[0] EQ BLKC)
05747 M01S05497.acpd +++| THEN
05748 M01S05498.acpd +++| BEGIN
05749 M01S05499.acpd +++| T$ZC[0]=ZERC;
05750 M01S05500.acpd +++| END
05751 M01S05501.acpd +++|
05752 M01S05502.acpd +++| RPLINEX(OFFA,T,J,3,NLFC);
05753 M01S05503.acpd +++| RPLINEX(OFFA,":",J+3,1,NLFC);
05754 M01S05504.acpd +++| TEM$WD[0]=XCDD(MNS);
05755 M01S05505.acpd +++| T$2C[0]=TEM$2C[0];
05756 M01S05506.acpd +++| IF (T$1C[0] EQ BLKC)
05757 M01S05507.acpd +++| THEN
05758 M01S05508.acpd +++| BEGIN
05759 M01S05509.acpd +++| T$1C[0]=ZERC;
05760 M01S05510.acpd +++| END
05761 M01S05511.acpd +++|
05762 M01S05512.acpd +++| RPLINEX(OFFA,T,J+4,2,NLFC);
05763 M01S05513.acpd +++| RPLINEX(OFFA," HR",J+6,3,NLFC);
05764 M01S05514.acpd +++|
05765 M01S05515.acpd +++|#
05766 M01S05516.acpd +++|* PRINT HEADERS FOR THE MAXIMUM AND MINIMUM STATISTIC COLUMNS.
05767 M01S05517.acpd +++|#
05768 M01S05518.acpd +++|
05769 M01S05519.acpd +++| P<DDSC>=LOC(DDDT);
05770 M01S05520.acpd +++| N1=DDSM$BT[DDSC$FW[PDTM]]; # TOTAL BEGIN TIME #