| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/COBOL/Test-Suite/COBOL/DB/ Datei vom 4.1.2008 mit Größe 116 kB |
|
Quelle db105a.cobSprache: Cobol |
|||||||||||||||
|
000100 IDENTIFICATION DIVISION. DB1054.2 000200 PROGRAM-ID. DB1054.2 000300 DB105A. DB1054.2 000400 AUTHOR. DB1054.2 000500 FEDERAL COMPILER TESTING CENTER. DB1054.2 000600 INSTALLATION. DB1054.2 000700 GENERAL SERVICES ADMINISTRATION DB1054.2 000800 AUTOMATED DATA AND TELECOMMUNICATION SERVICE. DB1054.2 000900 SOFTWARE DEVELOPMENT OFFICE. DB1054.2 001000 5203 LEESBURG PIKE SUITE 1100 DB1054.2 001100 FALLS CHURCH VIRGINIA 22041. DB1054.2 001200 DB1054.2 001300 PHONE (703) 756-6153 DB1054.2 001400 DB1054.2 001500 " HIGH ". DB1054.2 001600 DATE-WRITTEN. DB1054.2 001700 CCVS-74 VERSION 4.0 - 1980 JULY 1. DB1054.2 001800 CREATION DATE / VALIDATION DATE DB1054.2 001900 "4.2 ". DB1054.2 002000 SECURITY. DB1054.2 002100 NONE. DB1054.2 002200* DB1054.2 002300* * * * * * * * * * * * * * * * * * * * * *DB1054.2 002400* DB1054.2 002500* PROGRAM ABSTRACT DB1054.2 002600* DB1054.2 002700* DB105A TESTS THE CAPABILITY OF THE DEBUG MODULE TO MONITOR DB1054.2 002800* ALL PROCEDURES WITH A SINGLE DEBUGGING DECLARATIVE. THIS DB1054.2 002900* PROGRAM IS TO BE COMPILED AND EXECUTED WITH BOTH COMPILE DB1054.2 003000* AND OBJECT TIME DEBUGGING SWITCHES ON. THE DEBUGGING DB1054.2 003100* PROCEDURE SHOULD BE INCLUDED IN THE COMPILATION AND DB1054.2 003200* GENERATE CODE. DURING EXECUTION, EACH PROCEDURE SHOULD DB1054.2 003300* TRIGGER THE DEBUGGING PROCEDURE WHICH SHOULD STACK THE DB1054.2 003400* NAME OF THE PROCEDURE CALLING IT. PRIOR TO BEING STACKED, DB1054.2 003500* EACH NAME IS POTENTIALLY ADJUSTED BY MODIFYING A FIXED- DB1054.2 003600* LOCATION NUMERIC SUBFIELD IN THE NAME. THE CONSEQUENCE IS DB1054.2 003700* THAT IF THE PROGRAM EXECUTES PROPERLY, THE NAMES THAT ARE DB1054.2 003800* STACKED WILL BE UNIQUE AND IN AN INCREMENTING SEQUENCE IN DB1054.2 003900* THE NUMERIC SUBFIELD. NEAR THE END OF THE PROGRAM, THE DB1054.2 004000* STACKING FUNCTION IS DISABLED AND THE NAME STACK IS COMPARED DB1054.2 004100* TO A STATIC TABLE CONTAINING PROCEDURE-NAMES IN THE ORDER DB1054.2 004200* IN WHICH THE PROCEDURES SHOULD HAVE STACKED. DB1054.2 004300* DB1054.2 004400* DB105A"S REPORT DIFFERS SLIGHTLY FROM THE NOMINAL CCVS FORMAT.DB1054.2 004500* IF EXECUTION IS PERFECT, THE REPORT WILL CONSIST OF 227 DB1054.2 004600* LINES SHOWING DB1054.2 004700* DB1054.2 004800* (A) PROGRAM PROCEDURE NAME, AS IT APPEARS IN THE DB1054.2 004900* PROGRAM. DB1054.2 005000* (B) ADJUSTED PROCEDURE NAME, AFTER ITS NUMERIC SUBFIELD DB1054.2 005100* HAS BEEN ADJUSTED. DB1054.2 005200* (C) ADJUSTED DEBUG-NAME, THAT WAS STACKED BY THE DB1054.2 005300* DEBUGGING PROCEDURE. DB1054.2 005400* DB1054.2 005500* NOMINALLY, THE NUMERIC SUBFIELDS OF THE PROCEDURE NAMES DB1054.2 005600* SHOULD APPEAR IN ASCENDING SEQUENCE. ANY DEVIATIONS IN THE DB1054.2 005700* STACKING SEQUENCE FROM THE EXPECTED SEQUENCE WILL CAUSE DB1054.2 005800* ADDITIONAL REPORT LINES TO BE GENERATED WITH ONE OR MORE DB1054.2 005900* COLUMNS BLANK. IF NOTHING EVER APPEARS IN THE "ADJUSTED DB1054.2 006000* DEBUG-NAME" COLUMN, IT MAY BE ASSUMED THAT THE DEBUGGING DB1054.2 006100* PROCEDURE WAS NEVER EXECUTED. DB1054.2 006200* DB1054.2 006300* IT IS A FUNDAMENTAL ASSUMPTION OF DB105A THAT WHEN A SECTION DB1054.2 006400* IS ENTERED, THE DEBUGGING SECTION WILL BE CALLED TWICE, ONCE DB1054.2 006500* FOR THE SECTION NAME AND ONCE FOR THE PARAGRAPH NAME THAT DB1054.2 006600* IMMEDIATELY FOLLOWS THE SECTION NAME. ADDITIONALLY, DB105A DB1054.2 006700* TRAPS ANY FAILURES IN PROGRAM FLOW CAUSED BY A FAILURE OF DB1054.2 006800* VERBS FROM THE NUCLEUS MODULE. THESE FAILURES ARE SUMMED DB1054.2 006900* AND REPORTED AT THE BOTTOM OF DB105A"S REPORT. IF ANY DB1054.2 007000* PROCEDURE NAMES BEGINNING WITH "PROC-000" APPEAR IN THE DB1054.2 007100* "ADJUSTED DEBUG-NAME" COLUMN OF THE REPORT, THESE RESULT DB1054.2 007200* FROM EXECUTION OF PROCEDURES WHICH SHOULD NOT HAVE BEEN DB1054.2 007300* EXECUTED IF THE PROGRAM HAD FOLLOWED THE PROPER CONTROL FLOW DB1054.2 007400* SEQUENCE. DB1054.2 007500* DB1054.2 007600* DB1054.2 007700* DB1054.2 007800 ENVIRONMENT DIVISION. DB1054.2 007900 CONFIGURATION SECTION. DB1054.2 008000 SOURCE-COMPUTER. DB1054.2 008100 Card0130 DB1054.2 008200 WITH DEBUGGING MODE. DB1054.2 008300 OBJECT-COMPUTER. DB1054.2 008400 Card0131. DB1054.2 008500 INPUT-OUTPUT SECTION. DB1054.2 008600 FILE-CONTROL. DB1054.2 008700 SELECT PRINT-FILE ASSIGN TO DB1054.2 008800 "C0085" . DB1054.2 008900 DATA DIVISION. DB1054.2 009000 FILE SECTION. DB1054.2 009100 FD PRINT-FILE DB1054.2 009200 LABEL RECORDS DB1054.2 009300 Card0132 DB1054.2 009400 DATA RECORD IS PRINT-REC DUMMY-RECORD. DB1054.2 009500 01 PRINT-REC PICTURE X(120). DB1054.2 009600 01 DUMMY-RECORD PICTURE X(120). DB1054.2 009700 WORKING-STORAGE SECTION. DB1054.2 009800 77 ATWO-DS-01V00 PICTURE S9 DB1054.2 009900 VALUE 2. DB1054.2 010000 77 P-COUNT PICTURE 9(6). DB1054.2 010100 77 THREE PICTURE IS 9 VALUE IS 3. DB1054.2 010200 77 XRAY PICTURE IS X. DB1054.2 010300 77 ALTERLOOP PICTURE IS 9 VALUE IS DB1054.2 010400 ZERO. DB1054.2 010500 77 BYPASS PICTURE IS 9 VALUE IS 1. DB1054.2 010600 77 STACK-END PICTURE IS 999 COMPUTATIONAL. DB1054.2 010700 77 INCREMENT PICTURE IS 99. DB1054.2 010800 77 PROC-ACTIVE PICTURE IS 9 VALUE IS 1. DB1054.2 010900 01 PROCEDURE-NAMES. DB1054.2 011000 02 FILLER PIC X(25) VALUE "PROC-001-BEGIN-TESTS ". DB1054.2 011100 02 FILLER PIC X(25) VALUE "PROC-002-GO--TEST-1 ". DB1054.2 011200 02 FILLER PIC X(25) VALUE "PROC-003-GO--WRITE-1 ". DB1054.2 011300 02 FILLER PIC X(25) VALUE "PROC-004-GO--INIT-2 ". DB1054.2 011400 02 FILLER PIC X(25) VALUE "PROC-005-GO--TEST-2 ". DB1054.2 011500 02 FILLER PIC X(25) VALUE "PROC-005-GO--A ". DB1054.2 011600 02 FILLER PIC X(25) VALUE "PROC-005-GO--TEST-2 ". DB1054.2 011700 02 FILLER PIC X(25) VALUE "PROC-005-GO--B ". DB1054.2 011800 02 FILLER PIC X(25) VALUE "PROC-005-GO--TEST-2 ". DB1054.2 011900 02 FILLER PIC X(25) VALUE "PROC-005-GO--C ". DB1054.2 012000 02 FILLER PIC X(25) VALUE "PROC-005-GO--TEST-2 ". DB1054.2 012100 02 FILLER PIC X(25) VALUE "PROC-005-GO--D ". DB1054.2 012200 02 FILLER PIC X(25) VALUE "PROC-005-GO--TEST-2 ". DB1054.2 012300 02 FILLER PIC X(25) VALUE "PROC-005-GO--A ". DB1054.2 012400 02 FILLER PIC X(25) VALUE "PROC-005-GO--E ". DB1054.2 012500 02 FILLER PIC X(25) VALUE "PROC-016-GO--WRITE-2 ". DB1054.2 012600 02 FILLER PIC X(25) VALUE "PROC-017-GO--TEST-3 ". DB1054.2 012700 02 FILLER PIC X(25) VALUE "PROC-018-GO--PASS-3 ". DB1054.2 012800 02 FILLER PIC X(25) VALUE "PROC-019-GO--WRITE-3 ". DB1054.2 012900 02 FILLER PIC X(25) VALUE "PROC-020-GO--TEST-4 ". DB1054.2 013000 02 FILLER PIC X(25) VALUE "PROC-021-GO--PASS-4 ". DB1054.2 013100 02 FILLER PIC X(25) VALUE "PROC-022-GO--PAS-4 ". DB1054.2 013200 02 FILLER PIC X(25) VALUE "PROC-023-GO--WRITE-4 ". DB1054.2 013300 02 FILLER PIC X(25) VALUE "PROC-024-ALTER-INIT ". DB1054.2 013400 02 FILLER PIC X(25) VALUE "PROC-025-ALTER-TEST-1 ". DB1054.2 013500 02 FILLER PIC X(25) VALUE "PROC-026-ALTER-A ". DB1054.2 013600 02 FILLER PIC X(25) VALUE "PROC-026-ALTER-A ". DB1054.2 013700 02 FILLER PIC X(25) VALUE "PROC-027-ALTER-C ". DB1054.2 013800 02 FILLER PIC X(25) VALUE "PROC-028-ALTER-WRITE-1 ". DB1054.2 013900 02 FILLER PIC X(25) VALUE "PROC-030-ALTER-TEST-3 ". DB1054.2 014000 02 FILLER PIC X(25) VALUE "PROC-031-ALTER-G ". DB1054.2 014100 02 FILLER PIC X(25) VALUE "PROC-031-ALTER-G ". DB1054.2 014200 02 FILLER PIC X(25) VALUE "PROC-032-ALTER-I ". DB1054.2 014300 02 FILLER PIC X(25) VALUE "PROC-031-ALTER-G ". DB1054.2 014400 02 FILLER PIC X(25) VALUE "PROC-031-ALTER-G ". DB1054.2 014500 02 FILLER PIC X(25) VALUE "PROC-032-ALTER-WRITE-3 ". DB1054.2 014600 02 FILLER PIC X(25) VALUE "PROC-037-EXIT-TEST-1 ". DB1054.2 014700 02 FILLER PIC X(25) VALUE "PROC-038-EXIT-CHECK-1 ". DB1054.2 014800 02 FILLER PIC X(25) VALUE "PROC-039-EXIT-WRITE-1 ". DB1054.2 014900 02 FILLER PIC X(25) VALUE "PROC-040-PFM-TEST-1 ". DB1054.2 015000 02 FILLER PIC X(25) VALUE "PROC-041-PFM-A ". DB1054.2 015100 02 FILLER PIC X(25) VALUE "PROC-042-PFM-WRITE-1 ". DB1054.2 015200 02 FILLER PIC X(25) VALUE "PROC-043-PFM-TEST-2 ". DB1054.2 015300 02 FILLER PIC X(25) VALUE "PROC-041-PFM-A ". DB1054.2 015400 02 FILLER PIC X(25) VALUE "PROC-045-PFM-B ". DB1054.2 015500 02 FILLER PIC X(25) VALUE "PROC-046-PFM-WRITE-2 ". DB1054.2 015600 02 FILLER PIC X(25) VALUE "PROC-047-PFM-TEST-3 ". DB1054.2 015700 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 015800 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 015900 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 016000 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 016100 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 016200 02 FILLER PIC X(25) VALUE "PROC-048-PFM-C ". DB1054.2 016300 02 FILLER PIC X(25) VALUE "PROC-048-PFM-WRITE-3 ". DB1054.2 016400 02 FILLER PIC X(25) VALUE "PROC-055-PFM-TEST-4 ". DB1054.2 016500 02 FILLER PIC X(25) VALUE "PROC-056-PFM-E ". DB1054.2 016600 02 FILLER PIC X(25) VALUE "PROC-057-PFM-F ". DB1054.2 016700 02 FILLER PIC X(25) VALUE "PROC-058-PFM-G ". DB1054.2 016800 02 FILLER PIC X(25) VALUE "PROC-059-PFM-H ". DB1054.2 016900 02 FILLER PIC X(25) VALUE "PROC-060-PFM-WRITE-4 ". DB1054.2 017000 02 FILLER PIC X(25) VALUE "PROC-061-PFM-TEST-5 ". DB1054.2 017100 02 FILLER PIC X(25) VALUE "PROC-062-PFM-J ". DB1054.2 017200 02 FILLER PIC X(25) VALUE "PROC-063-PFM-L ". DB1054.2 017300 02 FILLER PIC X(25) VALUE "PROC-064-PFM-WRITE-5 ". DB1054.2 017400 02 FILLER PIC X(25) VALUE "PROC-065-PFM-TEST-6 ". DB1054.2 017500 02 FILLER PIC X(25) VALUE "PROC-066-PFM-N ". DB1054.2 017600 02 FILLER PIC X(25) VALUE "PROC-067-PFM-O ". DB1054.2 017700 02 FILLER PIC X(25) VALUE "PROC-068-PFM-P ". DB1054.2 017800 02 FILLER PIC X(25) VALUE "PROC-069-PFM-WRITE-6 ". DB1054.2 017900 02 FILLER PIC X(25) VALUE "PROC-070-PFM-TEST-7 ". DB1054.2 018000 02 FILLER PIC X(25) VALUE "PROC-071-PFM-V ". DB1054.2 018100 02 FILLER PIC X(25) VALUE "PROC-072-PFM-W ". DB1054.2 018200 02 FILLER PIC X(25) VALUE "PROC-073-PFM-X ". DB1054.2 018300 02 FILLER PIC X(25) VALUE "PROC-074-PFM-Y ". DB1054.2 018400 02 FILLER PIC X(25) VALUE "PROC-075-PFM-Z ". DB1054.2 018500 02 FILLER PIC X(25) VALUE "PROC-071-PFM-V ". DB1054.2 018600 02 FILLER PIC X(25) VALUE "PROC-072-PFM-W ". DB1054.2 018700 02 FILLER PIC X(25) VALUE "PROC-073-PFM-X ". DB1054.2 018800 02 FILLER PIC X(25) VALUE "PROC-074-PFM-Y ". DB1054.2 018900 02 FILLER PIC X(25) VALUE "PROC-075-PFM-Z ". DB1054.2 019000 02 FILLER PIC X(25) VALUE "PROC-071-PFM-V ". DB1054.2 019100 02 FILLER PIC X(25) VALUE "PROC-072-PFM-W ". DB1054.2 019200 02 FILLER PIC X(25) VALUE "PROC-073-PFM-X ". DB1054.2 019300 02 FILLER PIC X(25) VALUE "PROC-074-PFM-Y ". DB1054.2 019400 02 FILLER PIC X(25) VALUE "PROC-075-PFM-Z ". DB1054.2 019500 02 FILLER PIC X(25) VALUE "PROC-071-PFM-V ". DB1054.2 019600 02 FILLER PIC X(25) VALUE "PROC-072-PFM-W ". DB1054.2 019700 02 FILLER PIC X(25) VALUE "PROC-073-PFM-X ". DB1054.2 019800 02 FILLER PIC X(25) VALUE "PROC-074-PFM-Y ". DB1054.2 019900 02 FILLER PIC X(25) VALUE "PROC-075-PFM-Z ". DB1054.2 020000 02 FILLER PIC X(25) VALUE "PROC-071-PFM-V ". DB1054.2 020100 02 FILLER PIC X(25) VALUE "PROC-072-PFM-W ". DB1054.2 020200 02 FILLER PIC X(25) VALUE "PROC-073-PFM-X ". DB1054.2 020300 02 FILLER PIC X(25) VALUE "PROC-074-PFM-Y ". DB1054.2 020400 02 FILLER PIC X(25) VALUE "PROC-075-PFM-Z ". DB1054.2 020500 02 FILLER PIC X(25) VALUE "PROC-096-PFM-WRITE-7 ". DB1054.2 020600 02 FILLER PIC X(25) VALUE "PROC-097-PFM-TEST-08 ". DB1054.2 020700 02 FILLER PIC X(25) VALUE "PROC-098-PFM-B-8 ". DB1054.2 020800 02 FILLER PIC X(25) VALUE "PROC-097-PFM-A-8 ". DB1054.2 020900 02 FILLER PIC X(25) VALUE "PROC-098-PFM-B-8 ". DB1054.2 021000 02 FILLER PIC X(25) VALUE "PROC-097-PFM-A-8 ". DB1054.2 021100 02 FILLER PIC X(25) VALUE "PROC-098-PFM-B-8 ". DB1054.2 021200 02 FILLER PIC X(25) VALUE "PROC-097-PFM-TESTT-8 ". DB1054.2 021300 02 FILLER PIC X(25) VALUE "PROC-098-PFM-TESTTT-8 ". DB1054.2 021400 02 FILLER PIC X(25) VALUE "PROC-105-PFM-WRITE-08 ". DB1054.2 021500 02 FILLER PIC X(25) VALUE "PROC-106-PFM-TEST-09 ". DB1054.2 021600 02 FILLER PIC X(25) VALUE "PROC-107-PFM-B-9 ". DB1054.2 021700 02 FILLER PIC X(25) VALUE "PROC-106-PFM-A-9 ". DB1054.2 021800 02 FILLER PIC X(25) VALUE "PROC-107-PFM-B-9 ". DB1054.2 021900 02 FILLER PIC X(25) VALUE "PROC-106-PFM-A-9 ". DB1054.2 022000 02 FILLER PIC X(25) VALUE "PROC-107-PFM-B-9 ". DB1054.2 022100 02 FILLER PIC X(25) VALUE "PROC-106-PFM-A-9 ". DB1054.2 022200 02 FILLER PIC X(25) VALUE "PROC-107-PFM-B-9 ". DB1054.2 022300 02 FILLER PIC X(25) VALUE "PROC-106-PFM-TESTT-9 ". DB1054.2 022400 02 FILLER PIC X(25) VALUE "PROC-107-PFM-TESTTT-9 ". DB1054.2 022500 02 FILLER PIC X(25) VALUE "PROC-116-PFM-WRITE-09 ". DB1054.2 022600 02 FILLER PIC X(25) VALUE "PROC-117-PFM-TEST-10 ". DB1054.2 022700 02 FILLER PIC X(25) VALUE "PROC-118-PFM-B-10 ". DB1054.2 022800 02 FILLER PIC X(25) VALUE "PROC-119-PFM-C-10 ". DB1054.2 022900 02 FILLER PIC X(25) VALUE "PROC-120-PFM-D-10 ". DB1054.2 023000 02 FILLER PIC X(25) VALUE "PROC-117-PFM-A-10 ". DB1054.2 023100 02 FILLER PIC X(25) VALUE "PROC-118-PFM-B-10 ". DB1054.2 023200 02 FILLER PIC X(25) VALUE "PROC-119-PFM-C-10 ". DB1054.2 023300 02 FILLER PIC X(25) VALUE "PROC-120-PFM-D-10 ". DB1054.2 023400 02 FILLER PIC X(25) VALUE "PROC-117-PFM-A-10 ". DB1054.2 023500 02 FILLER PIC X(25) VALUE "PROC-118-PFM-B-10 ". DB1054.2 023600 02 FILLER PIC X(25) VALUE "PROC-119-PFM-C-10 ". DB1054.2 023700 02 FILLER PIC X(25) VALUE "PROC-120-PFM-D-10 ". DB1054.2 023800 02 FILLER PIC X(25) VALUE "PROC-118-PFM-B-10 ". DB1054.2 023900 02 FILLER PIC X(25) VALUE "PROC-119-PFM-C-10 ". DB1054.2 024000 02 FILLER PIC X(25) VALUE "PROC-120-PFM-D-10 ". DB1054.2 024100 02 FILLER PIC X(25) VALUE "PROC-117-PFM-A-10 ". DB1054.2 024200 02 FILLER PIC X(25) VALUE "PROC-118-PFM-B-10 ". DB1054.2 024300 02 FILLER PIC X(25) VALUE "PROC-119-PFM-C-10 ". DB1054.2 024400 02 FILLER PIC X(25) VALUE "PROC-120-PFM-D-10 ". DB1054.2 024500 02 FILLER PIC X(25) VALUE "PROC-121-PFM-TESTT-10 ". DB1054.2 024600 02 FILLER PIC X(25) VALUE "PROC-122-PFM-TESTTT-10 ". DB1054.2 024700 02 FILLER PIC X(25) VALUE "PROC-138-PFM-WRITE-10 ". DB1054.2 024800 02 FILLER PIC X(25) VALUE "PROC-139-PFM-TEST-11 ". DB1054.2 024900 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 025000 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 025100 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 025200 02 FILLER PIC X(25) VALUE "PROC-139-PFM-A-11 ". DB1054.2 025300 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 025400 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 025500 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 025600 02 FILLER PIC X(25) VALUE "PROC-139-PFM-A-11 ". DB1054.2 025700 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 025800 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 025900 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 026000 02 FILLER PIC X(25) VALUE "PROC-139-PFM-A-11 ". DB1054.2 026100 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 026200 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 026300 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 026400 02 FILLER PIC X(25) VALUE "PROC-139-PFM-A-11 ". DB1054.2 026500 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 026600 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 026700 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 026800 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 026900 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 027000 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 027100 02 FILLER PIC X(25) VALUE "PROC-139-PFM-A-11 ". DB1054.2 027200 02 FILLER PIC X(25) VALUE "PROC-140-PFM-B-11 ". DB1054.2 027300 02 FILLER PIC X(25) VALUE "PROC-139-PFM-C-11 ". DB1054.2 027400 02 FILLER PIC X(25) VALUE "PROC-140-PFM-D-11 ". DB1054.2 027500 02 FILLER PIC X(25) VALUE "PROC-139-PFM-TESTT-11 ". DB1054.2 027600 02 FILLER PIC X(25) VALUE "PROC-140-PFM-TESTTT-11 ". DB1054.2 027700 02 FILLER PIC X(25) VALUE "PROC-168-PFM-WRITE-11 ". DB1054.2 027800 02 FILLER PIC X(25) VALUE "PROC-169-PFM-TEST-12 ". DB1054.2 027900 02 FILLER PIC X(25) VALUE "PROC-170-PFM-A-12 ". DB1054.2 028000 02 FILLER PIC X(25) VALUE "PROC-171-PFM-B-12 ". DB1054.2 028100 02 FILLER PIC X(25) VALUE "PROC-172-PFM-C-12 ". DB1054.2 028200 02 FILLER PIC X(25) VALUE "PROC-173-PFM-D-12 ". DB1054.2 028300 02 FILLER PIC X(25) VALUE "PROC-174-PFM-E-12 ". DB1054.2 028400 02 FILLER PIC X(25) VALUE "PROC-175-PFM-TESTT-12 ". DB1054.2 028500 02 FILLER PIC X(25) VALUE "PROC-176-PFM-WRITE-12 ". DB1054.2 028600 02 FILLER PIC X(25) VALUE "PROC-177-PFM-TEST-13 ". DB1054.2 028700 02 FILLER PIC X(25) VALUE "PROC-178-PFM-A-13 ". DB1054.2 028800 02 FILLER PIC X(25) VALUE "PROC-177-PFM-B-13 ". DB1054.2 028900 02 FILLER PIC X(25) VALUE "PROC-178-PFM-A-13 ". DB1054.2 029000 02 FILLER PIC X(25) VALUE "PROC-177-PFM-B-13 ". DB1054.2 029100 02 FILLER PIC X(25) VALUE "PROC-178-PFM-A-13 ". DB1054.2 029200 02 FILLER PIC X(25) VALUE "PROC-177-PFM-B-13 ". DB1054.2 029300 02 FILLER PIC X(25) VALUE "PROC-178-PFM-A-13 ". DB1054.2 029400 02 FILLER PIC X(25) VALUE "PROC-177-PFM-B-13 ". DB1054.2 029500 02 FILLER PIC X(25) VALUE "PROC-178-PFM-TESTT-13 ". DB1054.2 029600 02 FILLER PIC X(25) VALUE "PROC-187-PFM-WRITE-13 ". DB1054.2 029700 02 FILLER PIC X(25) VALUE "PROC-188-PFM-TEST-14 ". DB1054.2 029800 02 FILLER PIC X(25) VALUE "PROC-189-A101 ". DB1054.2 029900 02 FILLER PIC X(25) VALUE "PROC-190-A102 ". DB1054.2 030000 02 FILLER PIC X(25) VALUE "PROC-191-A103 ". DB1054.2 030100 02 FILLER PIC X(25) VALUE "PROC-192-A104 ". DB1054.2 030200 02 FILLER PIC X(25) VALUE "PROC-193-A105 ". DB1054.2 030300 02 FILLER PIC X(25) VALUE "PROC-194-A106 ". DB1054.2 030400 02 FILLER PIC X(25) VALUE "PROC-195-A107 ". DB1054.2 030500 02 FILLER PIC X(25) VALUE "PROC-196-A108 ". DB1054.2 030600 02 FILLER PIC X(25) VALUE "PROC-197-A109 ". DB1054.2 030700 02 FILLER PIC X(25) VALUE "PROC-198-A110 ". DB1054.2 030800 02 FILLER PIC X(25) VALUE "PROC-199-A111 ". DB1054.2 030900 02 FILLER PIC X(25) VALUE "PROC-200-A112 ". DB1054.2 031000 02 FILLER PIC X(25) VALUE "PROC-201-A113 ". DB1054.2 031100 02 FILLER PIC X(25) VALUE "PROC-202-A114 ". DB1054.2 031200 02 FILLER PIC X(25) VALUE "PROC-203-A115 ". DB1054.2 031300 02 FILLER PIC X(25) VALUE "PROC-204-A116 ". DB1054.2 031400 02 FILLER PIC X(25) VALUE "PROC-205-A117 ". DB1054.2 031500 02 FILLER PIC X(25) VALUE "PROC-206-A118 ". DB1054.2 031600 02 FILLER PIC X(25) VALUE "PROC-207-A119 ". DB1054.2 031700 02 FILLER PIC X(25) VALUE "PROC-208-A120 ". DB1054.2 031800 02 FILLER PIC X(25) VALUE "PROC-209-A121 ". DB1054.2 031900 02 FILLER PIC X(25) VALUE "PROC-210-PFM-WRITE-14 ". DB1054.2 032000 02 FILLER PIC X(25) VALUE "PROC-211-PFM-A-15 ". DB1054.2 032100 02 FILLER PIC X(25) VALUE "PROC-212-PFM-TEST-15 ". DB1054.2 032200 02 FILLER PIC X(25) VALUE "PROC-213-PFM-G-15 ". DB1054.2 032300 02 FILLER PIC X(25) VALUE "PROC-214-PFM-H-15 ". DB1054.2 032400 02 FILLER PIC X(25) VALUE "PROC-215-PFM-E-15 ". DB1054.2 032500 02 FILLER PIC X(25) VALUE "PROC-216-PFM-L-15 ". DB1054.2 032600 02 FILLER PIC X(25) VALUE "PROC-217-PFM-B-15 ". DB1054.2 032700 02 FILLER PIC X(25) VALUE "PROC-218-PFM-WRITE-15 ". DB1054.2 032800 02 FILLER PIC X(25) VALUE "PROC-219-PFM-TEST-LAST ". DB1054.2 032900 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033000 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033100 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033200 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033300 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033400 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033500 02 FILLER PIC X(25) VALUE "PROC-220-PFM-U ". DB1054.2 033600 02 FILLER PIC X(25) VALUE "PROC-227-PFM-WRITE-LAST ". DB1054.2 033700 01 STATIC-TABLE REDEFINES PROCEDURE-NAMES. DB1054.2 033800 02 EXPECTED-NAME OCCURS 227 TIMES INDEXED BY STATIC-INDEX DB1054.2 033900 PICTURE IS X(25). DB1054.2 034000 01 STACKING-AREA. DB1054.2 034100 02 PROC-NAME OCCURS 500 TIMES INDEXED BY STACK-INDEX. DB1054.2 034200 03 PROC-LOC PICTURE IS X(4). DB1054.2 034300 03 FILLER PICTURE IS X. DB1054.2 034400 03 BASE-NUMBER PICTURE IS 999. DB1054.2 034500 03 FILLER PICTURE IS X. DB1054.2 034600 03 BASE-NAME PICTURE IS X(16). DB1054.2 034700 01 TABLE-ENTRY. DB1054.2 034800 02 FILLER PICTURE IS X(5). DB1054.2 034900 02 TABLE-ENTRY-BASE PICTURE IS 999. DB1054.2 035000 02 FILLER PICTURE IS X(17). DB1054.2 035100 01 FLOW-FAILURE-1. DB1054.2 035200 02 FILLER PICTURE IS X VALUE IS SPACE. DB1054.2 035300 02 FILLER PICTURE IS X(43) VALUE DB1054.2 035400 "COUNT OF LEVEL 1 NUCLEUS FLOW FAILURES WAS ". DB1054.2 035500 02 NUC-FAILURE-COUNT PICTURE IS 999 VALUE 0. DB1054.2 035600 02 FILLER PICTURE X VALUE ".". DB1054.2 035700 01 FLOW-FAILURE-2 PICTURE IS X(75) VALUE IS DB1054.2 035800 " A NON-ZERO COUNT WILL CAUSE FAILURES TO APPEAR IN THE ADB1054.2 035900- "BOVE REPORT.". DB1054.2 036000 01 NOTE-RECORD. DB1054.2 036100 02 A PICTURE X VALUE SPACE. DB1054.2 036200 02 B PICTURE X VALUE SPACE. DB1054.2 036300 02 C PICTURE X VALUE SPACE. DB1054.2 036400 02 D PICTURE X VALUE SPACE. DB1054.2 036500 02 E PICTURE X VALUE SPACE. DB1054.2 036600 02 F PICTURE X VALUE SPACE. DB1054.2 036700 02 G PICTURE X VALUE SPACE. DB1054.2 036800 02 H PICTURE X VALUE SPACE. DB1054.2 036900 02 I PICTURE X VALUE SPACE. DB1054.2 037000 02 J PICTURE X VALUE SPACE. DB1054.2 037100 02 K PICTURE X VALUE SPACE. DB1054.2 037200 02 L PICTURE X VALUE SPACE. DB1054.2 037300 02 M PICTURE X VALUE SPACE. DB1054.2 037400 02 N PICTURE X VALUE SPACE. DB1054.2 037500 02 O PICTURE X VALUE SPACE. DB1054.2 037600 02 P PICTURE X VALUE SPACE. DB1054.2 037700 01 GO-TABLE. DB1054.2 037800 02 GO-SCRIPT OCCURS 8 TIMES PICTURE 9. DB1054.2 037900 01 GO-TO-DEPEND PICTURE IS 9 VALUE IS 0. DB1054.2 038000 01 GO-TO-DEEP PICTURE IS 9 VALUE IS 1. DB1054.2 038100 01 PERFORM1 PICTURE IS XXX DB1054.2 038200 VALUE IS SPACE. DB1054.2 038300 01 PERFORM2 PICTURE IS S999 DB1054.2 038400 VALUE IS 20. DB1054.2 038500 01 PERFORM4 PICTURE IS S99V9. DB1054.2 038600 01 PERFORM5 PICTURE IS 999 DB1054.2 038700 VALUE IS ZERO. DB1054.2 038800 01 PERFORM-KEY PICTURE IS 9. DB1054.2 038900 01 PERFORM-HOLD. DB1054.2 039000 02 TEST-LETTER OCCURS 20 TIMES PICTURE X. DB1054.2 039100 01 TEST-RESULTS. DB1054.2 039200 02 FILLER PICTURE X VALUE SPACE. DB1054.2 039300 02 FEATURE PICTURE X(20). DB1054.2 039400 02 FILLER PICTURE XX VALUE SPACE. DB1054.2 039500 02 P-OR-F PICTURE X(5). DB1054.2 039600 02 FILLER PICTURE XX VALUE SPACE. DB1054.2 039700 02 PAR-NAME. DB1054.2 039800 03 FILLER PICTURE X(12). DB1054.2 039900 03 PARDOT-X PICTURE X. DB1054.2 040000 03 DOTVALUE PICTURE 99. DB1054.2 040100 03 FILLER PICTURE IS X(10). DB1054.2 040200 02 FILLER PICTURE X VALUE SPACE. DB1054.2 040300 02 CORRECT-A PICTURE IS X(25). DB1054.2 040400 02 CORRECT-NFIELD REDEFINES CORRECT-A. DB1054.2 040500 03 CORRECT-N PICTURE -9(9).9(9). DB1054.2 040600 03 FILLER PICTURE X(5). DB1054.2 040700 02 FILLER PICTURE XX VALUE SPACE. DB1054.2 040800 02 COMPUTED-A PICTURE IS X(25). DB1054.2 040900 02 COMPUTED-NFIELD REDEFINES COMPUTED-A. DB1054.2 041000 03 COMPUTED-N PICTURE -9(9).9(9). DB1054.2 041100 03 FILLER PICTURE X(5). DB1054.2 041200 02 RE-MARK PICTURE IS XXX. DB1054.2 041300 01 COLUMNS-LINE-1. DB1054.2 041400 02 PAGE-CONTROL-C PICTURE IS X VALUE IS SPACE. DB1054.2 041500 02 FILLER PICTURE IS X(7) VALUE IS SPACE. DB1054.2 041600 02 FILLER PICTURE IS X(7) VALUE IS "FEATURE". DB1054.2 041700 02 FILLER PICTURE IS X(9) VALUE IS SPACE. DB1054.2 041800 02 FILLER PICTURE IS X(4) VALUE IS "PASS". DB1054.2 041900 02 FILLER PICTURE IS X(10) VALUE IS SPACE. DB1054.2 042000 02 FILLER PICTURE IS X(7) VALUE IS "PROGRAM". DB1054.2 042100 02 FILLER PICTURE IS X(19) VALUE IS SPACE. DB1054.2 042200 02 FILLER PICTURE IS X(8) VALUE IS "ADJUSTED". DB1054.2 042300 02 FILLER PICTURE IS X(18) VALUE IS SPACE. DB1054.2 042400 02 FILLER PICTURE IS X(8) VALUE IS "ADJUSTED". DB1054.2 042500 01 COLUMNS-LINE-2. DB1054.2 042600 02 FILLER PICTURE IS X VALUE IS SPACE. DB1054.2 042700 02 FILLER PICTURE IS X(7) VALUE IS SPACE. DB1054.2 042800 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". DB1054.2 042900 02 FILLER PICTURE IS X(10) VALUE IS SPACE. DB1054.2 043000 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". DB1054.2 043100 02 FILLER PICTURE IS X(7) VALUE IS SPACE. DB1054.2 043200 02 FILLER PICTURE IS X(14) VALUE IS "PROCEDURE NAME". DB1054.2 043300 02 FILLER PICTURE IS X(12) VALUE IS SPACE. DB1054.2 043400 02 FILLER PICTURE IS X(14) VALUE IS "PROCEDURE NAME". DB1054.2 043500 02 FILLER PICTURE IS X(14) VALUE IS SPACE. DB1054.2 043600 02 FILLER PICTURE IS X(10) VALUE IS "DEBUG-NAME". DB1054.2 043700 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. DB1054.2 043800 01 REC-CT PICTURE 99 VALUE ZERO. DB1054.2 043900 01 DELETE-CNT PICTURE 999 VALUE ZERO. DB1054.2 044000 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. DB1054.2 044100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. DB1054.2 044200 01 PASS-COUNTER PIC 999 VALUE ZERO. DB1054.2 044300 01 TOTAL-ERROR PIC 999 VALUE ZERO. DB1054.2 044400 01 ERROR-HOLD PIC 999 VALUE ZERO. DB1054.2 044500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. DB1054.2 044600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. DB1054.2 044700 01 CCVS-H-1. DB1054.2 044800 02 FILLER PICTURE X(27) VALUE SPACE. DB1054.2 044900 02 FILLER PICTURE X(67) VALUE DB1054.2 045000 " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION DB1054.2 045100- " SYSTEM". DB1054.2 045200 02 FILLER PICTURE X(26) VALUE SPACE. DB1054.2 045300 01 CCVS-H-2. DB1054.2 045400 02 FILLER PICTURE X(52) VALUE IS DB1054.2 045500 "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.". DB1054.2 045600 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". DB1054.2 045700 02 TEST-ID PICTURE IS X(9). DB1054.2 045800 02 FILLER PICTURE IS X(40) VALUE IS SPACE. DB1054.2 045900 01 CCVS-H-3. DB1054.2 046000 02 FILLER PICTURE X(34) VALUE DB1054.2 046100 " FOR OFFICIAL USE ONLY ". DB1054.2 046200 02 FILLER PICTURE X(58) VALUE DB1054.2 046300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".DB1054.2 046400 02 FILLER PICTURE X(28) VALUE DB1054.2 046500 " COPYRIGHT 1974 ". DB1054.2 046600 01 CCVS-E-1. DB1054.2 046700 02 FILLER PICTURE IS X(52) VALUE IS SPACE. DB1054.2 046800 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". DB1054.2 046900 02 ID-AGAIN PICTURE IS X(9). DB1054.2 047000 02 FILLER PICTURE X(45) VALUE IS DB1054.2 047100 " NTIS DISTRIBUTION COBOL 74". DB1054.2 047200 01 CCVS-E-2. DB1054.2 047300 02 FILLER PICTURE X(31) VALUE DB1054.2 047400 SPACE. DB1054.2 047500 02 FILLER PICTURE X(21) VALUE SPACE. DB1054.2 047600 02 CCVS-E-2-2. DB1054.2 047700 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. DB1054.2 047800 03 FILLER PICTURE IS X VALUE IS SPACE. DB1054.2 047900 03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED". DB1054.2 048000 01 CCVS-E-3. DB1054.2 048100 02 FILLER PICTURE X(22) VALUE DB1054.2 048200 " FOR OFFICIAL USE ONLY". DB1054.2 048300 02 FILLER PICTURE X(12) VALUE SPACE. DB1054.2 048400 02 FILLER PICTURE X(58) VALUE DB1054.2 048500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".DB1054.2 048600 02 FILLER PICTURE X(13) VALUE SPACE. DB1054.2 048700 02 FILLER PIC X(15) VALUE " COPYRIGHT 1974". DB1054.2 048800 01 CCVS-E-4. DB1054.2 048900 02 CCVS-E-4-1 PIC XXX VALUE SPACE. DB1054.2 049000 02 FILLER PIC XXXX VALUE " OF ". DB1054.2 049100 02 CCVS-E-4-2 PIC XXX VALUE SPACE. DB1054.2 049200 02 FILLER PIC X(40) VALUE DB1054.2 049300 " TESTS WERE EXECUTED SUCCESSFULLY". DB1054.2 049400 01 XXINFO. DB1054.2 049500 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". DB1054.2 049600 02 INFO-TEXT. DB1054.2 049700 04 FILLER PIC X(20) VALUE SPACE. DB1054.2 049800 04 XXCOMPUTED PIC X(20). DB1054.2 049900 04 FILLER PIC X(5) VALUE SPACE. DB1054.2 050000 04 XXCORRECT PIC X(20). DB1054.2 050100 01 HYPHEN-LINE. DB1054.2 050200 02 FILLER PICTURE IS X VALUE IS SPACE. DB1054.2 050300 02 FILLER PICTURE IS X(65) VALUE IS "************************DB1054.2 050400- "*****************************************". DB1054.2 050500 02 FILLER PICTURE IS X(54) VALUE IS "************************DB1054.2 050600- "******************************". DB1054.2 050700 01 CCVS-PGM-ID PIC X(6) VALUE DB1054.2 050800 "DB105A". DB1054.2 050900 PROCEDURE DIVISION. DB1054.2 051000 DECLARATIVES. DB1054.2 051100 DEBUG-ALL-PROCS SECTION. DB1054.2 051200 USE FOR DEBUGGING ON ALL PROCEDURES. DB1054.2 051300 DEBUG-ALL-0. DB1054.2 051400 MOVE 0 TO PROC-ACTIVE. DB1054.2 051500 IF BYPASS IS EQUAL TO 1 GO TO DEBUG-ALL-EXIT. DB1054.2 051600 MOVE DEBUG-NAME TO PROC-NAME (STACK-INDEX). DB1054.2 051700 IF PROC-LOC (STACK-INDEX) IS EQUAL TO "PROC" DB1054.2 051800 INSPECT PROC-NAME (STACK-INDEX) DB1054.2 051900 REPLACING CHARACTERS BY " " AFTER INITIAL " ". DB1054.2 052000 IF BASE-NUMBER (STACK-INDEX) IS NUMERIC DB1054.2 052100 ADD INCREMENT TO BASE-NUMBER (STACK-INDEX). DB1054.2 052200 IF STACK-INDEX IS EQUAL TO 500 DB1054.2 052300 MOVE 1 TO BYPASS DB1054.2 052400 GO TO DEBUG-ALL-EXIT. DB1054.2 052500 SET STACK-INDEX UP BY 1. DB1054.2 052600 DEBUG-ALL-EXIT. DB1054.2 052700 EXIT. DB1054.2 052800 END DECLARATIVES. DB1054.2 052900 CCVS1 SECTION. DB1054.2 053000 OPEN-FILES. DB1054.2 053100 OPEN OUTPUT PRINT-FILE. DB1054.2 053200 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. DB1054.2 053300 MOVE SPACE TO TEST-RESULTS. DB1054.2 053400 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. DB1054.2 053500 GO TO CCVS1-EXIT. DB1054.2 053600 CLOSE-FILES. DB1054.2 053700 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. DB1054.2 053800 TERMINATE-CCVS. DB1054.2 053900 EXIT PROGRAM. DB1054.2 054000 TERMINATE-CALL. DB1054.2 054100 STOP RUN. DB1054.2 054200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. DB1054.2 054300 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. DB1054.2 054400 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. DB1054.2 054500 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. DB1054.2 054600 MOVE "****TEST DELETED****" TO RE-MARK. DB1054.2 054700 PRINT-DETAIL. DB1054.2 054800 IF REC-CT NOT EQUAL TO ZERO DB1054.2 054900 MOVE "." TO PARDOT-X DB1054.2 055000 MOVE REC-CT TO DOTVALUE. DB1054.2 055100 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. DB1054.2 055200 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-A. DB1054.2 055300 MOVE SPACE TO CORRECT-A. DB1054.2 055400 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. DB1054.2 055500 MOVE SPACE TO RE-MARK. DB1054.2 055600 HEAD-ROUTINE. DB1054.2 055700 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1054.2 055800 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. DB1054.2 055900 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. DB1054.2 056000 COLUMN-NAMES-ROUTINE. DB1054.2 056100 MOVE COLUMNS-LINE-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1054.2 056200 MOVE COLUMNS-LINE-2 TO DUMMY-RECORD. DB1054.2 056300 PERFORM WRITE-LINE 2 TIMES. DB1054.2 056400 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1054.2 056500 END-ROUTINE. DB1054.2 056600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.DB1054.2 056700 END-RTN-EXIT. DB1054.2 056800 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1054.2 056900 END-ROUTINE-1. DB1054.2 057000 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO DB1054.2 057100 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. DB1054.2 057200 ADD PASS-COUNTER TO ERROR-HOLD. DB1054.2 057300* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. DB1054.2 057400 MOVE PASS-COUNTER TO CCVS-E-4-1. DB1054.2 057500 MOVE ERROR-HOLD TO CCVS-E-4-2. DB1054.2 057600 MOVE CCVS-E-4 TO CCVS-E-2-2. DB1054.2 057700 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. DB1054.2 057800 END-ROUTINE-12. DB1054.2 057900 MOVE "TEST(S) FAILED" TO ENDER-DESC. DB1054.2 058000 IF ERROR-COUNTER IS EQUAL TO ZERO DB1054.2 058100 MOVE "NO " TO ERROR-TOTAL DB1054.2 058200 ELSE DB1054.2 058300 MOVE ERROR-COUNTER TO ERROR-TOTAL. DB1054.2 058400 MOVE CCVS-E-2 TO DUMMY-RECORD. DB1054.2 058500 PERFORM WRITE-LINE. DB1054.2 058600 END-ROUTINE-13. DB1054.2 058700 IF DELETE-CNT IS EQUAL TO ZERO DB1054.2 058800 MOVE "NO " TO ERROR-TOTAL ELSE DB1054.2 058900 MOVE DELETE-CNT TO ERROR-TOTAL. DB1054.2 059000 MOVE "TEST(S) DELETED " TO ENDER-DESC. DB1054.2 059100 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1054.2 059200 IF INSPECT-COUNTER EQUAL TO ZERO DB1054.2 059300 MOVE "NO " TO ERROR-TOTAL DB1054.2 059400 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. DB1054.2 059500 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. DB1054.2 059600 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1054.2 059700 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1054.2 059800 WRITE-LINE. DB1054.2 059900 ADD 1 TO RECORD-COUNT. DB1054.2 060000 IF RECORD-COUNT GREATER 50 DB1054.2 060100 MOVE DUMMY-RECORD TO DUMMY-HOLD DB1054.2 060200 MOVE SPACE TO DUMMY-RECORD DB1054.2 060300 WRITE DUMMY-RECORD AFTER ADVANCING PAGE DB1054.2 060400 MOVE COLUMNS-LINE-1 TO DUMMY-RECORD PERFORM WRT-LN DB1054.2 060500 MOVE COLUMNS-LINE-2 TO DUMMY-RECORD PERFORM WRT-LN DB1054.2 060600 2 TIMES DB1054.2 060700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN DB1054.2 060800 MOVE DUMMY-HOLD TO DUMMY-RECORD DB1054.2 060900 MOVE ZERO TO RECORD-COUNT. DB1054.2 061000 PERFORM WRT-LN. DB1054.2 061100 WRT-LN. DB1054.2 061200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. DB1054.2 061300 MOVE SPACE TO DUMMY-RECORD. DB1054.2 061400* DB1054.2 061500 CCVS1-EXIT. DB1054.2 061600 EXIT. DB1054.2 061700 INITIALIZE-PROC-NAME-STACK. DB1054.2 061800 MOVE 0 TO BYPASS. DB1054.2 061900 SET STACK-INDEX TO 1. DB1054.2 062000 MOVE 0 TO INCREMENT. DB1054.2 062100 PROC-001-BEGIN-TESTS SECTION. DB1054.2 062200 PROC-002-GO--TEST-1. DB1054.2 062300 MOVE 0 TO INCREMENT. DB1054.2 062400 GO TO PROC-003-GO--WRITE-1. DB1054.2 062500 PROC-000-GO--DELETE-1. DB1054.2 062600 MOVE 0 TO INCREMENT. DB1054.2 062700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 062800 GO TO PROC-003-GO--WRITE-1. DB1054.2 062900 PROC-003-GO--WRITE-1. DB1054.2 063000 MOVE 0 TO INCREMENT. DB1054.2 063100 MOVE "GO TO " TO FEATURE. DB1054.2 063200 MOVE "PROC-002-GO--TEST-1" TO PAR-NAME. DB1054.2 063300 PROC-004-GO--INIT-2. DB1054.2 063400 MOVE 0 TO INCREMENT. DB1054.2 063500 MOVE "PROC-005-GO--TEST-2" TO PAR-NAME. DB1054.2 063600 MOVE SPACE TO P-OR-F. DB1054.2 063700 MOVE "GO TO DEPENDING" TO FEATURE. DB1054.2 063800 PROC-005-GO--TEST-2. DB1054.2 063900 ADD 1 TO INCREMENT. DB1054.2 064000 MOVE SPACE TO FEATURE. DB1054.2 064100 GO TO PROC-005-GO--B DB1054.2 064200 PROC-005-GO--D DB1054.2 064300 PROC-005-GO--C DEPENDING ON GO-TO-DEPEND. DB1054.2 064400 GO TO PROC-005-GO--A. DB1054.2 064500 PROC-000-GO--DELETE-2. DB1054.2 064600 MOVE 0 TO INCREMENT. DB1054.2 064700 MOVE "PROC-005-GO--TEST-2" TO PAR-NAME. DB1054.2 064800 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 064900 GO TO PROC-016-GO--WRITE-2. DB1054.2 065000 PROC-005-GO--A. DB1054.2 065100 ADD 1 TO INCREMENT. DB1054.2 065200 MOVE "PROC-005-GO--A" TO PAR-NAME. DB1054.2 065300 IF GO-TO-DEPEND EQUAL TO 0 DB1054.2 065400 ADD 1 TO GO-TO-DEPEND DB1054.2 065500 GO TO PROC-005-GO--TEST-2. DB1054.2 065600 IF GO-TO-DEPEND GREATER THAN 3 DB1054.2 065700 GO TO PROC-005-GO--E. DB1054.2 065800 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 065900 MOVE 1 TO GO-TO-DEPEND DB1054.2 066000 GO TO PROC-005-GO--TEST-2. DB1054.2 066100 PROC-005-GO--B. DB1054.2 066200 ADD 1 TO INCREMENT. DB1054.2 066300 MOVE "PROC-005-GO--B" TO PAR-NAME. DB1054.2 066400 IF GO-TO-DEPEND NOT EQUAL TO 1 DB1054.2 066500 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 066600 MOVE 3 TO GO-TO-DEPEND DB1054.2 066700 GO TO PROC-005-GO--TEST-2. DB1054.2 066800 ADD 2 TO GO-TO-DEPEND. DB1054.2 066900 GO TO PROC-005-GO--TEST-2. DB1054.2 067000 PROC-005-GO--C. DB1054.2 067100 ADD 1 TO INCREMENT. DB1054.2 067200 MOVE "PROC-005-GO--C" TO PAR-NAME. DB1054.2 067300 IF GO-TO-DEPEND NOT EQUAL TO 3 DB1054.2 067400 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 067500 MOVE 2 TO GO-TO-DEPEND DB1054.2 067600 GO TO PROC-005-GO--TEST-2. DB1054.2 067700 SUBTRACT 1 FROM GO-TO-DEPEND. DB1054.2 067800 GO TO PROC-005-GO--TEST-2. DB1054.2 067900 PROC-005-GO--D. DB1054.2 068000 ADD 1 TO INCREMENT. DB1054.2 068100 MOVE "PROC-005-GO--D" TO PAR-NAME. DB1054.2 068200 IF GO-TO-DEPEND NOT EQUAL TO 2 DB1054.2 068300 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 068400 MOVE 4 TO GO-TO-DEPEND DB1054.2 068500 GO TO PROC-005-GO--TEST-2. DB1054.2 068600 ADD 2 TO GO-TO-DEPEND. DB1054.2 068700 GO TO PROC-005-GO--TEST-2. DB1054.2 068800 PROC-005-GO--E. DB1054.2 068900 MOVE 0 TO INCREMENT. DB1054.2 069000 MOVE "PROC-005-GO--E" TO PAR-NAME. DB1054.2 069100 IF GO-TO-DEPEND EQUAL TO 4 DB1054.2 069200 GO TO PROC-016-GO--WRITE-2. DB1054.2 069300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 069400 PROC-016-GO--WRITE-2. DB1054.2 069500 MOVE 0 TO INCREMENT. DB1054.2 069600 ADD 1 TO REC-CT. DB1054.2 069700 PROC-017-GO--TEST-3. DB1054.2 069800 MOVE 0 TO INCREMENT. DB1054.2 069900 GO TO PROC-018-GO--PASS-3. DB1054.2 070000 PROC-000-GO--TEST-3A. DB1054.2 070100 MOVE 0 TO INCREMENT. DB1054.2 070200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 070300 GO TO PROC-019-GO--WRITE-3. DB1054.2 070400 PROC-000-GO--DELETE-3. DB1054.2 070500 MOVE 0 TO INCREMENT. DB1054.2 070600 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 070700 GO TO PROC-019-GO--WRITE-3. DB1054.2 070800 PROC-018-GO--PASS-3 SECTION. DB1054.2 070900 PROC-019-GO--WRITE-3. DB1054.2 071000 MOVE 0 TO INCREMENT. DB1054.2 071100 MOVE "GO TO" TO FEATURE. DB1054.2 071200 MOVE "PROC-017-GO--TEST-3" TO PAR-NAME. DB1054.2 071300 PROC-020-GO--TEST-4. DB1054.2 071400 MOVE 0 TO INCREMENT. DB1054.2 071500 GO TO PROC-021-GO--PASS-4 DB1054.2 071600 PROC-000-GO--NUC-FAIL-4 DEPENDING ON GO-TO-DEEP. DB1054.2 071700* NOTE THAT PROC-021-GO--PASS-4 IS A SECTION-NAME. DB1054.2 071800 GO TO PROC-000-GO--NUC-FAIL-4. DB1054.2 071900 PROC-000-GO--DELETE-4. DB1054.2 072000 MOVE 0 TO INCREMENT. DB1054.2 072100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 072200 GO TO PROC-023-GO--WRITE-4. DB1054.2 072300 PROC-021-GO--PASS-4 SECTION. DB1054.2 072400 PROC-022-GO--PAS-4. DB1054.2 072500 MOVE 0 TO INCREMENT. DB1054.2 072600 IF GO-TO-DEEP EQUAL TO 1 DB1054.2 072700 GO TO PROC-023-GO--WRITE-4. DB1054.2 072800 PROC-000-GO--NUC-FAIL-4. DB1054.2 072900 MOVE 0 TO INCREMENT. DB1054.2 073000 MOVE GO-TO-DEEP TO COMPUTED-N. DB1054.2 073100 MOVE 1 TO CORRECT-N. DB1054.2 073200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 073300 PROC-023-GO--WRITE-4. DB1054.2 073400 MOVE 0 TO INCREMENT. DB1054.2 073500 MOVE "GO TO DEPENDING" TO FEATURE. DB1054.2 073600 MOVE "PROC-020-GO--TEST-4" TO PAR-NAME. DB1054.2 073700 PROC-024-ALTER-INIT. DB1054.2 073800 MOVE 0 TO INCREMENT. DB1054.2 073900 MOVE "ALTER" TO FEATURE. DB1054.2 074000 PROC-025-ALTER-TEST-1. DB1054.2 074100 MOVE 0 TO INCREMENT. DB1054.2 074200 ALTER PROC-026-ALTER-A TO PROCEED TO PROC-027-ALTER-C. DB1054.2 074300 MOVE 1 TO INCREMENT. DB1054.2 074400 GO TO PROC-026-ALTER-A. DB1054.2 074500 PROC-000-ALTER-DELETE-1. DB1054.2 074600 MOVE 0 TO INCREMENT. DB1054.2 074700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 074800 GO TO PROC-028-ALTER-WRITE-1. DB1054.2 074900 PROC-026-ALTER-A. DB1054.2 075000 GO TO PROC-000-ALTER-B. DB1054.2 075100 PROC-000-ALTER-B. DB1054.2 075200 MOVE 0 TO INCREMENT. DB1054.2 075300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 075400 GO TO PROC-028-ALTER-WRITE-1. DB1054.2 075500 PROC-027-ALTER-C. DB1054.2 075600 ADD 0 TO INCREMENT. DB1054.2 075700 PROC-028-ALTER-WRITE-1. DB1054.2 075800 MOVE 0 TO INCREMENT. DB1054.2 075900 MOVE "PROC-025-ALTER-TEST-1" TO PAR-NAME. DB1054.2 076000 PROC-030-ALTER-TEST-3. DB1054.2 076100 MOVE 0 TO INCREMENT. DB1054.2 076200 ALTER PROC-031-ALTER-G TO PROCEED TO PROC-032-ALTER-I. DB1054.2 076300 MOVE 1 TO INCREMENT. DB1054.2 076400 GO TO PROC-031-ALTER-G. DB1054.2 076500 PROC-000-ALTER-DELETE-3. DB1054.2 076600 MOVE 0 TO INCREMENT. DB1054.2 076700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 076800 GO TO PROC-032-ALTER-WRITE-3. DB1054.2 076900 PROC-031-ALTER-G. DB1054.2 077000 GO TO PROC-000-ALTER-H. DB1054.2 077100 PROC-000-ALTER-H. DB1054.2 077200 MOVE 0 TO INCREMENT. DB1054.2 077300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 077400 GO TO PROC-032-ALTER-WRITE-3. DB1054.2 077500 PROC-032-ALTER-I. DB1054.2 077600 MOVE 3 TO INCREMENT. DB1054.2 077700 ADD 1 TO ALTERLOOP. DB1054.2 077800 IF ALTERLOOP GREATER THAN 1 DB1054.2 077900 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 078000 GO TO PROC-032-ALTER-WRITE-3. DB1054.2 078100 ALTER PROC-031-ALTER-G TO PROC-032-ALTER-WRITE-3. DB1054.2 078200 MOVE 4 TO INCREMENT. DB1054.2 078300 GO TO PROC-031-ALTER-G. DB1054.2 078400 PROC-032-ALTER-WRITE-3. DB1054.2 078500 MOVE 0 TO INCREMENT. DB1054.2 078600 MOVE "PROC-030-ALTER-TEST-3" TO PAR-NAME. DB1054.2 078700 PROC-037-EXIT-TEST-1. DB1054.2 078800 MOVE 0 TO INCREMENT. DB1054.2 078900 GO TO PROC-038-EXIT-CHECK-1. DB1054.2 079000 PROC-000-EXIT-DELETE-1. DB1054.2 079100 MOVE 0 TO INCREMENT. DB1054.2 079200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 079300 GO TO PROC-039-EXIT-WRITE-1. DB1054.2 079400 PROC-038-EXIT-CHECK-1. DB1054.2 079500 EXIT. DB1054.2 079600 PROC-039-EXIT-WRITE-1. DB1054.2 079700 MOVE 0 TO INCREMENT. DB1054.2 079800 MOVE "EXIT" TO FEATURE. DB1054.2 079900 MOVE "PROC-037-EXIT-TEST-1" TO PAR-NAME. DB1054.2 080000 PROC-040-PFM-TEST-1. DB1054.2 080100 MOVE 0 TO INCREMENT. DB1054.2 080200 MOVE 1 TO PERFORM-KEY. DB1054.2 080300 PERFORM PROC-041-PFM-A. DB1054.2 080400 IF PERFORM1 EQUAL TO "ABC" DB1054.2 080500 NEXT SENTENCE DB1054.2 080600 ELSE DB1054.2 080700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 080800 GO TO PROC-042-PFM-WRITE-1. DB1054.2 080900 PROC-000-PFM-DELETE-1. DB1054.2 081000 MOVE 0 TO INCREMENT. DB1054.2 081100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 081200 PROC-042-PFM-WRITE-1. DB1054.2 081300 MOVE 0 TO INCREMENT. DB1054.2 081400 MOVE "PERFORM" TO FEATURE. DB1054.2 081500 MOVE "PFM-TEST-1" TO PAR-NAME. DB1054.2 081600 PROC-043-PFM-TEST-2. DB1054.2 081700 MOVE 3 TO INCREMENT. DB1054.2 081800 MOVE 2 TO PERFORM-KEY. DB1054.2 081900 GO TO PROC-041-PFM-A. DB1054.2 082000 PROC-000-PFM-DELETE-2. DB1054.2 082100 MOVE 0 TO INCREMENT. DB1054.2 082200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 082300 GO TO PROC-046-PFM-WRITE-2. DB1054.2 082400 PROC-041-PFM-A. DB1054.2 082500 MOVE 0 TO INCREMENT. DB1054.2 082600 IF PERFORM-KEY EQUAL TO 1 DB1054.2 082700 MOVE "ABC" TO PERFORM1 DB1054.2 082800 ELSE DB1054.2 082900 MOVE "XYZ" TO PERFORM1. DB1054.2 083000 PROC-045-PFM-B. DB1054.2 083100 MOVE 0 TO INCREMENT. DB1054.2 083200 IF PERFORM-KEY EQUAL TO 1 DB1054.2 083300 PERFORM PROC-000-NUCLEUS-FAILURE DB1054.2 083400 GO TO PROC-043-PFM-TEST-2. DB1054.2 083500 IF PERFORM1 EQUAL TO "XYZ" DB1054.2 083600 NEXT SENTENCE DB1054.2 083700 ELSE DB1054.2 083800 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 083900 PROC-046-PFM-WRITE-2. DB1054.2 084000 MOVE 0 TO INCREMENT. DB1054.2 084100 MOVE "PERFORM" TO FEATURE. DB1054.2 084200 MOVE "PROC-043-PFM-TEST-2" TO PAR-NAME. DB1054.2 084300 PROC-047-PFM-TEST-3. DB1054.2 084400 MOVE 0 TO INCREMENT. DB1054.2 084500 PERFORM PROC-048-PFM-C 3 TIMES. DB1054.2 084600 PERFORM PROC-048-PFM-C THREE TIMES. DB1054.2 084700 IF PERFORM2 EQUAL TO 56 DB1054.2 084800 NEXT SENTENCE DB1054.2 084900 ELSE DB1054.2 085000 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 085100 GO TO PROC-048-PFM-WRITE-3. DB1054.2 085200 PROC-000-PFM-DELETE-3. DB1054.2 085300 MOVE 0 TO INCREMENT. DB1054.2 085400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 085500 PROC-048-PFM-WRITE-3. DB1054.2 085600 MOVE 0 TO INCREMENT. DB1054.2 085700 MOVE "PERFORM TIMES" TO FEATURE. DB1054.2 085800 MOVE "PROC-047-PFM-TEST-3" TO PAR-NAME. DB1054.2 085900 PROC-055-PFM-TEST-4. DB1054.2 086000 MOVE 0 TO INCREMENT. DB1054.2 086100 PERFORM PROC-056-PFM-E THRU PROC-059-PFM-H. DB1054.2 086200 IF PERFORM4 EQUAL TO 70.0 DB1054.2 086300 NEXT SENTENCE DB1054.2 086400 ELSE DB1054.2 086500 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 086600 GO TO PROC-060-PFM-WRITE-4. DB1054.2 086700 PROC-000-PFM-DELETE-4. DB1054.2 086800 MOVE 0 TO INCREMENT. DB1054.2 086900 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 087000 PROC-060-PFM-WRITE-4. DB1054.2 087100 MOVE 0 TO INCREMENT. DB1054.2 087200 MOVE "NESTED PERFORM THRU" TO FEATURE. DB1054.2 087300 MOVE "PROC-055-PFM-TEST-4" TO PAR-NAME. DB1054.2 087400 PROC-061-PFM-TEST-5. DB1054.2 087500 MOVE 0 TO INCREMENT. DB1054.2 087600 PERFORM PROC-062-PFM-J. DB1054.2 087700 IF PERFORM2 EQUAL TO 312 DB1054.2 087800 NEXT SENTENCE DB1054.2 087900 ELSE DB1054.2 088000 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 088100 GO TO PROC-064-PFM-WRITE-5. DB1054.2 088200 PROC-000-PFM-DELETE-5. DB1054.2 088300 MOVE 0 TO INCREMENT. DB1054.2 088400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 088500 PROC-064-PFM-WRITE-5. DB1054.2 088600 MOVE 0 TO INCREMENT. DB1054.2 088700 MOVE "NESTED PERFORM" TO FEATURE. DB1054.2 088800 MOVE "PROC-061-PFM-TEST-5" TO PAR-NAME. DB1054.2 088900 PROC-065-PFM-TEST-6. DB1054.2 089000 MOVE 0 TO INCREMENT. DB1054.2 089100 PERFORM PROC-066-PFM-N. DB1054.2 089200 GO TO PROC-069-PFM-WRITE-6. DB1054.2 089300 PROC-000-PFM-DELETE-6. DB1054.2 089400 MOVE 0 TO INCREMENT. DB1054.2 089500 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 089600 PROC-069-PFM-WRITE-6. DB1054.2 089700 MOVE 0 TO INCREMENT. DB1054.2 089800 MOVE "PERFORM SECTION-NAME" TO FEATURE. DB1054.2 089900 MOVE "PROC-065-PFM-TEST-6" TO PAR-NAME. DB1054.2 090000 PROC-070-PFM-TEST-7. DB1054.2 090100 MOVE 0 TO INCREMENT. DB1054.2 090200 PERFORM PROC-071-PFM-V THRU PROC-075-PFM-Z 5 TIMES. DB1054.2 090300 MOVE 0 TO INCREMENT. DB1054.2 090400 GO TO PROC-096-PFM-WRITE-7. DB1054.2 090500 PROC-000-PFM-DELETE-7. DB1054.2 090600 MOVE 0 TO INCREMENT. DB1054.2 090700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 090800 PROC-096-PFM-WRITE-7. DB1054.2 090900 MOVE 0 TO INCREMENT. DB1054.2 091000 MOVE "PERFORM EXIT PARAS" TO FEATURE. DB1054.2 091100 MOVE "PROC-070-PFM-TEST-7" TO PAR-NAME. DB1054.2 091200 PROC-097-PFM-TEST-08. DB1054.2 091300 MOVE 0 TO INCREMENT. DB1054.2 091400 MOVE ZERO TO P-COUNT DB1054.2 091500 PERFORM PROC-098-PFM-B-8. DB1054.2 091600 ADD 1 TO P-COUNT. DB1054.2 091700 PERFORM PROC-097-PFM-A-8. DB1054.2 091800 ADD 1 TO P-COUNT. DB1054.2 091900 PROC-097-PFM-A-8 SECTION. DB1054.2 092000 PROC-098-PFM-B-8. DB1054.2 092100 ADD 2 TO INCREMENT. DB1054.2 092200 ADD 100 TO P-COUNT. DB1054.2 092300 PROC-097-PFM-TESTT-8 SECTION. DB1054.2 092400 PROC-098-PFM-TESTTT-8. DB1054.2 092500 MOVE 0 TO INCREMENT. DB1054.2 092600 IF P-COUNT EQUAL TO 000302 DB1054.2 092700 GO TO PROC-105-PFM-WRITE-08. DB1054.2 092800 GO TO PROC-000-PFM-NUC-FAIL-08. DB1054.2 092900 PROC-000-DELETE-08. DB1054.2 093000 MOVE 0 TO INCREMENT. DB1054.2 093100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 093200 GO TO PROC-105-PFM-WRITE-08. DB1054.2 093300 PROC-000-PFM-NUC-FAIL-08. DB1054.2 093400 MOVE 0 TO INCREMENT. DB1054.2 093500 MOVE P-COUNT TO COMPUTED-N. DB1054.2 093600 MOVE 000302 TO CORRECT-N. DB1054.2 093700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 093800 PROC-105-PFM-WRITE-08. DB1054.2 093900 MOVE 0 TO INCREMENT. DB1054.2 094000 MOVE "PERFORM " TO FEATURE. DB1054.2 094100 MOVE "PROC-097-PFM-TEST-08" TO PAR-NAME. DB1054.2 094200 PROC-106-PFM-TEST-09. DB1054.2 094300 MOVE 0 TO INCREMENT. DB1054.2 094400 MOVE ZERO TO P-COUNT. DB1054.2 094500 PERFORM PROC-107-PFM-B-9 1 TIMES. DB1054.2 094600 ADD 1 TO P-COUNT. DB1054.2 094700 PERFORM PROC-106-PFM-A-9 ATWO-DS-01V00 TIMES. DB1054.2 094800 ADD 1 TO P-COUNT. DB1054.2 094900 PROC-106-PFM-A-9 SECTION. DB1054.2 095000 PROC-107-PFM-B-9. DB1054.2 095100 ADD 2 TO INCREMENT. DB1054.2 095200 ADD 100 TO P-COUNT. DB1054.2 095300 PROC-106-PFM-TESTT-9 SECTION. DB1054.2 095400 PROC-107-PFM-TESTTT-9. DB1054.2 095500 MOVE 0 TO INCREMENT. DB1054.2 095600 IF P-COUNT EQUAL TO 000402 DB1054.2 095700 GO TO PROC-116-PFM-WRITE-09. DB1054.2 095800 GO TO PROC-000-PFM-NUC-FAIL-09. DB1054.2 095900 PROC-000-PFM-DELETE-09. DB1054.2 096000 MOVE 0 TO INCREMENT. DB1054.2 096100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 096200 GO TO PROC-116-PFM-WRITE-09. DB1054.2 096300 PROC-000-PFM-NUC-FAIL-09. DB1054.2 096400 MOVE 0 TO INCREMENT. DB1054.2 096500 MOVE P-COUNT TO COMPUTED-N. DB1054.2 096600 MOVE 000502 TO CORRECT-N. DB1054.2 096700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 096800 PROC-116-PFM-WRITE-09. DB1054.2 096900 MOVE 0 TO INCREMENT. DB1054.2 097000 MOVE "PERFORM TIMES " TO FEATURE. DB1054.2 097100 MOVE "PROC-106-PFM-TEST-09" TO PAR-NAME. DB1054.2 097200 PROC-117-PFM-TEST-10. DB1054.2 097300 MOVE 0 TO INCREMENT. DB1054.2 097400 MOVE ZERO TO P-COUNT. DB1054.2 097500 PERFORM PROC-118-PFM-B-10 THROUGH PROC-120-PFM-D-10. DB1054.2 097600 MOVE 4 TO INCREMENT. DB1054.2 097700 ADD 1 TO P-COUNT DB1054.2 097800 PERFORM PROC-117-PFM-A-10 THRU PROC-119-PFM-C-10. DB1054.2 097900 MOVE 8 TO INCREMENT. DB1054.2 098000 ADD 1 TO P-COUNT. DB1054.2 098100 PERFORM PROC-117-PFM-A-10 THRU PROC-120-PFM-D-10. DB1054.2 098200 MOVE 11 TO INCREMENT. DB1054.2 098300 ADD 1 TO P-COUNT. DB1054.2 098400 PERFORM PROC-118-PFM-B-10 THRU PROC-119-PFM-C-10. DB1054.2 098500 MOVE 15 TO INCREMENT. DB1054.2 098600 ADD 1 TO P-COUNT. DB1054.2 098700 PROC-117-PFM-A-10 SECTION. DB1054.2 098800 PROC-118-PFM-B-10. DB1054.2 098900 ADD 100 TO P-COUNT. DB1054.2 099000 PROC-119-PFM-C-10 SECTION. DB1054.2 099100 PROC-120-PFM-D-10. DB1054.2 099200 ADD 10000 TO P-COUNT. DB1054.2 099300 PROC-121-PFM-TESTT-10 SECTION. DB1054.2 099400 PROC-122-PFM-TESTTT-10. DB1054.2 099500 MOVE 0 TO INCREMENT. DB1054.2 099600 IF P-COUNT EQUAL TO 050504 DB1054.2 099700 GO TO PROC-138-PFM-WRITE-10. DB1054.2 099800 GO TO PROC-000-PFM-NUC-FAIL-10. DB1054.2 099900 PROC-000-PFM-DELETE-10. DB1054.2 100000 MOVE 0 TO INCREMENT. DB1054.2 100100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 100200 GO TO PROC-138-PFM-WRITE-10. DB1054.2 100300 PROC-000-PFM-NUC-FAIL-10. DB1054.2 100400 MOVE 0 TO INCREMENT. DB1054.2 100500 MOVE P-COUNT TO COMPUTED-N. DB1054.2 100600 MOVE 050504 TO CORRECT-N. DB1054.2 100700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 100800 PROC-138-PFM-WRITE-10. DB1054.2 100900 MOVE 0 TO INCREMENT. DB1054.2 101000 MOVE "PERFORM THRU " TO FEATURE. DB1054.2 101100 MOVE "PROC-117-PFM-TEST-10" TO PAR-NAME. DB1054.2 101200 PROC-139-PFM-TEST-11. DB1054.2 101300 MOVE 0 TO INCREMENT. DB1054.2 101400 MOVE ZERO TO P-COUNT. DB1054.2 101500 PERFORM PROC-140-PFM-B-11 THROUGH PROC-140-PFM-D-11 1 TIMES. DB1054.2 101600 MOVE 4 TO INCREMENT. DB1054.2 101700 ADD 1 TO P-COUNT. DB1054.2 101800 PERFORM PROC-139-PFM-A-11 THRU PROC-139-PFM-C-11 2 TIMES. DB1054.2 101900 MOVE 12 TO INCREMENT. DB1054.2 102000 ADD 1 TO P-COUNT. DB1054.2 102100 PERFORM PROC-139-PFM-A-11 THRU PROC-140-PFM-D-11 2 TIMES. DB1054.2 102200 MOVE 19 TO INCREMENT. DB1054.2 102300 ADD 1 TO P-COUNT. DB1054.2 102400 PERFORM PROC-140-PFM-B-11 THRU PROC-139-PFM-C-11 1 TIMES. DB1054.2 102500 MOVE 23 TO INCREMENT. DB1054.2 102600 ADD 1 TO P-COUNT. DB1054.2 102700 PROC-139-PFM-A-11 SECTION. DB1054.2 102800 PROC-140-PFM-B-11. DB1054.2 102900 ADD 2 TO INCREMENT. DB1054.2 103000 ADD 100 TO P-COUNT. DB1054.2 103100 PROC-139-PFM-C-11 SECTION. DB1054.2 103200 PROC-140-PFM-D-11. DB1054.2 103300 ADD 2 TO INCREMENT. DB1054.2 103400 ADD 10000 TO P-COUNT. DB1054.2 103500 PROC-139-PFM-TESTT-11 SECTION. DB1054.2 103600 PROC-140-PFM-TESTTT-11. DB1054.2 103700 MOVE 0 TO INCREMENT. DB1054.2 103800 IF P-COUNT EQUAL TO 070704 DB1054.2 103900 GO TO PROC-168-PFM-WRITE-11. DB1054.2 104000 GO TO PROC-000-PFM-NUC-FAIL-11. DB1054.2 104100 PROC-000-PFM-DELETE-11. DB1054.2 104200 MOVE 0 TO INCREMENT. DB1054.2 104300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 104400 GO TO PROC-168-PFM-WRITE-11. DB1054.2 104500 PROC-000-PFM-NUC-FAIL-11. DB1054.2 104600 MOVE 0 TO INCREMENT. DB1054.2 104700 MOVE P-COUNT TO COMPUTED-N. DB1054.2 104800 MOVE 090904 TO CORRECT-N. DB1054.2 104900 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 105000 PROC-168-PFM-WRITE-11. DB1054.2 105100 MOVE 0 TO INCREMENT. DB1054.2 105200 MOVE "PERFORM THRU, TIMES " TO FEATURE. DB1054.2 105300 MOVE "PROC-139-PFM-TEST-11" TO PAR-NAME. DB1054.2 105400 PROC-169-PFM-TEST-12. DB1054.2 105500 MOVE 0 TO INCREMENT. DB1054.2 105600 MOVE ZERO TO P-COUNT. DB1054.2 105700 ADD 1 TO P-COUNT. DB1054.2 105800 PERFORM PROC-170-PFM-A-12. DB1054.2 105900 ADD 2 TO P-COUNT. DB1054.2 106000 GO TO PROC-175-PFM-TESTT-12. DB1054.2 106100 PROC-170-PFM-A-12. DB1054.2 106200 MOVE 0 TO INCREMENT. DB1054.2 106300 ADD 10 TO P-COUNT. DB1054.2 106400 PERFORM PROC-171-PFM-B-12. DB1054.2 106500 ADD 20 TO P-COUNT. DB1054.2 106600 PROC-171-PFM-B-12. DB1054.2 106700 MOVE 0 TO INCREMENT. DB1054.2 106800 ADD 100 TO P-COUNT. DB1054.2 106900 PERFORM PROC-172-PFM-C-12. DB1054.2 107000 ADD 200 TO P-COUNT. DB1054.2 107100 PROC-172-PFM-C-12. DB1054.2 107200 MOVE 0 TO INCREMENT. DB1054.2 107300 ADD 1000 TO P-COUNT. DB1054.2 107400 PERFORM PROC-173-PFM-D-12. DB1054.2 107500 ADD 2000 TO P-COUNT. DB1054.2 107600 PROC-173-PFM-D-12. DB1054.2 107700 MOVE 0 TO INCREMENT. DB1054.2 107800 ADD 10000 TO P-COUNT. DB1054.2 107900 PERFORM PROC-174-PFM-E-12. DB1054.2 108000 ADD 20000 TO P-COUNT. DB1054.2 108100 PROC-174-PFM-E-12. DB1054.2 108200 MOVE 0 TO INCREMENT. DB1054.2 108300 ADD 100000 TO P-COUNT. DB1054.2 108400 PROC-175-PFM-TESTT-12. DB1054.2 108500 MOVE 0 TO INCREMENT. DB1054.2 108600 IF P-COUNT EQUAL TO 133333 DB1054.2 108700 GO TO PROC-176-PFM-WRITE-12. DB1054.2 108800 GO TO PROC-000-PFM-NUC-FAIL-12. DB1054.2 108900 PROC-000-PFM-DELETE-12. DB1054.2 109000 MOVE 0 TO INCREMENT. DB1054.2 109100 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 109200 GO TO PROC-176-PFM-WRITE-12. DB1054.2 109300 PROC-000-PFM-NUC-FAIL-12. DB1054.2 109400 MOVE 0 TO INCREMENT. DB1054.2 109500 MOVE P-COUNT TO COMPUTED-N. DB1054.2 109600 MOVE 133333 TO CORRECT-N. DB1054.2 109700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 109800 PROC-176-PFM-WRITE-12. DB1054.2 109900 MOVE 0 TO INCREMENT. DB1054.2 110000 MOVE "NESTED PERFORM " TO FEATURE. DB1054.2 110100 MOVE "PROC-169-PFM-TEST-12" TO PAR-NAME. DB1054.2 110200 PROC-177-PFM-TEST-13. DB1054.2 110300 MOVE 0 TO INCREMENT. DB1054.2 110400 MOVE ZERO TO P-COUNT. DB1054.2 110500 PERFORM PROC-178-PFM-A-13 THRU PROC-177-PFM-B-13. DB1054.2 110600 ADD 1 TO P-COUNT. DB1054.2 110700 MOVE 2 TO INCREMENT. DB1054.2 110800 PERFORM PROC-178-PFM-A-13 THRU PROC-177-PFM-B-13 2 TIMES. DB1054.2 110900 ADD 2 TO P-COUNT. DB1054.2 111000 PROC-178-PFM-A-13. DB1054.2 111100 ADD 2 TO INCREMENT. DB1054.2 111200 ADD 100 TO P-COUNT. DB1054.2 111300 PROC-177-PFM-B-13. DB1054.2 111400 EXIT. DB1054.2 111500 PROC-178-PFM-TESTT-13. DB1054.2 111600 MOVE 0 TO INCREMENT. DB1054.2 111700 IF P-COUNT EQUAL TO 000403 DB1054.2 111800 GO TO PROC-187-PFM-WRITE-13. DB1054.2 111900 GO TO PROC-000-PFM-NUC-FAIL-13. DB1054.2 112000 PROC-000-PFM-DELETE-13. DB1054.2 112100 MOVE 0 TO INCREMENT. DB1054.2 112200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 112300 GO TO PROC-187-PFM-WRITE-13. DB1054.2 112400 PROC-000-PFM-NUC-FAIL-13. DB1054.2 112500 MOVE 0 TO INCREMENT. DB1054.2 112600 MOVE P-COUNT TO COMPUTED-N. DB1054.2 112700 MOVE 000403 TO CORRECT-N. DB1054.2 112800 MOVE "PERFORM WITH EXIT" TO FEATURE. DB1054.2 112900 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 113000 PROC-187-PFM-WRITE-13. DB1054.2 113100 MOVE 0 TO INCREMENT. DB1054.2 113200 MOVE "PROC-177-PFM-TEST-13" TO PAR-NAME. DB1054.2 113300 PROC-188-PFM-TEST-14. DB1054.2 113400 MOVE 0 TO INCREMENT. DB1054.2 113500 PERFORM PROC-189-A101. DB1054.2 113600 IF PERFORM-HOLD EQUAL TO "ABCDEFGHIJKLMNOPQRST" DB1054.2 113700 GO TO PROC-210-PFM-WRITE-14. DB1054.2 113800 MOVE "ABCDEFGHIJKLMNOPQRST" TO CORRECT-A. DB1054.2 113900 MOVE PERFORM-HOLD TO COMPUTED-A. DB1054.2 114000 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 114100 GO TO PROC-210-PFM-WRITE-14. DB1054.2 114200 PROC-000-PFM-DELETE-14. DB1054.2 114300 MOVE 0 TO INCREMENT. DB1054.2 114400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 114500 PROC-210-PFM-WRITE-14. DB1054.2 114600 MOVE 0 TO INCREMENT. DB1054.2 114700 MOVE "PROC-188-PFM-TEST-14" TO PAR-NAME. DB1054.2 114800 PROC-211-PFM-A-15 SECTION. DB1054.2 114900 PROC-212-PFM-TEST-15. DB1054.2 115000 MOVE 0 TO INCREMENT. DB1054.2 115100 PERFORM PROC-213-PFM-G-15 THRU PROC-217-PFM-B-15. DB1054.2 115200 GO TO PROC-218-PFM-WRITE-15. DB1054.2 115300 PROC-000-PFM-DELETE-15. DB1054.2 115400 MOVE 0 TO INCREMENT. DB1054.2 115500 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 115600 GO TO PROC-218-PFM-WRITE-15. DB1054.2 115700 PROC-217-PFM-B-15. DB1054.2 115800 MOVE 0 TO INCREMENT. DB1054.2 115900 ADD 1 TO REC-CT. DB1054.2 116000 PROC-000-PFM-C-15. DB1054.2 116100 MOVE 0 TO INCREMENT. DB1054.2 116200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 116300 MOVE "RETURN MECHANISM LOST" TO RE-MARK. DB1054.2 116400 GO TO PROC-218-PFM-WRITE-15. DB1054.2 116500 PROC-000-PFM-D-15. DB1054.2 116600 MOVE 0 TO INCREMENT. DB1054.2 116700 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 116800 MOVE "PERFORM GOT LOST IN GO TOS" TO RE-MARK. DB1054.2 116900 GO TO PROC-218-PFM-WRITE-15. DB1054.2 117000 PROC-215-PFM-E-15. DB1054.2 117100 MOVE 0 TO INCREMENT. DB1054.2 117200 GO TO PROC-216-PFM-L-15. DB1054.2 117300 PROC-000-PFM-F-15. DB1054.2 117400 MOVE 0 TO INCREMENT. DB1054.2 117500 GO TO PROC-000-PFM-D-15. DB1054.2 117600 PROC-213-PFM-G-15 SECTION. DB1054.2 117700 PROC-214-PFM-H-15. DB1054.2 117800 MOVE 0 TO INCREMENT. DB1054.2 117900 GO TO PROC-215-PFM-E-15. DB1054.2 118000 PROC-000-PFM-I-15. DB1054.2 118100 MOVE 0 TO INCREMENT. DB1054.2 118200 GO TO PROC-000-PFM-D-15. DB1054.2 118300 PROC-000-PFM-J-15 SECTION. DB1054.2 118400 PROC-000-PFM-K-15. DB1054.2 118500 MOVE 0 TO INCREMENT. DB1054.2 118600 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 118700 MOVE "PROC-000-PFM-K-15 ENTERED" TO RE-MARK. DB1054.2 118800 GO TO PROC-218-PFM-WRITE-15. DB1054.2 118900 PROC-216-PFM-L-15. DB1054.2 119000 MOVE 0 TO INCREMENT. DB1054.2 119100 GO TO PROC-217-PFM-B-15. DB1054.2 119200 PROC-218-PFM-WRITE-15. DB1054.2 119300 MOVE 0 TO INCREMENT. DB1054.2 119400 MOVE "PERFORM GO TO PARAS" TO FEATURE. DB1054.2 119500 MOVE "PROC-212-PFM-TEST-15" TO PAR-NAME. DB1054.2 119600 PROC-219-PFM-TEST-LAST. DB1054.2 119700 MOVE 0 TO INCREMENT. DB1054.2 119800 MOVE 7 TO PERFORM5. DB1054.2 119900 PERFORM PROC-220-PFM-U PERFORM5 TIMES. DB1054.2 120000 MOVE 0 TO INCREMENT. DB1054.2 120100 IF PERFORM5 EQUAL TO 707 DB1054.2 120200 GO TO PROC-227-PFM-WRITE-LAST. DB1054.2 120300 GO TO PROC-000-PFM-NUC-FAIL-LST. DB1054.2 120400 PROC-000-PFM-DELETE-LAST. DB1054.2 120500 MOVE 0 TO INCREMENT. DB1054.2 120600 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 120700 GO TO PROC-227-PFM-WRITE-LAST. DB1054.2 120800 PROC-000-PFM-NUC-FAIL-LST. DB1054.2 120900 MOVE 0 TO INCREMENT. DB1054.2 121000 MOVE PERFORM5 TO COMPUTED-N. DB1054.2 121100 MOVE 707 TO CORRECT-N. DB1054.2 121200 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 121300 PROC-227-PFM-WRITE-LAST. DB1054.2 121400 IF PROC-ACTIVE IS NOT EQUAL TO 0 DB1054.2 121500 MOVE " DEBUGGING PROCEDURE WAS NEVER EXECUTED. NO FURTHEDB1054.2 121600- "R REPORT WILL BE GENERATED." TO DUMMY-RECORD DB1054.2 121700 PERFORM WRITE-LINE DB1054.2 121800 MOVE 227 TO ERROR-COUNTER DB1054.2 121900 GO TO CCVS-EXIT. DB1054.2 122000 MOVE 0 TO INCREMENT. DB1054.2 122100 MOVE SPACE TO TEST-RESULTS. DB1054.2 122200 MOVE "DEBUG ALL PROCEDURES" TO FEATURE. DB1054.2 122300 MOVE 0 TO REC-CT. DB1054.2 122400 MOVE 1 TO BYPASS. DB1054.2 122500 SET STACK-END TO STACK-INDEX. DB1054.2 122600 SET STACK-INDEX TO 1. DB1054.2 122700 SET STATIC-INDEX TO 1. DB1054.2 122800 PERFORM NAME-LISTER 227 TIMES. DB1054.2 122900 EMPTY-THE-STACK. DB1054.2 123000 IF STACK-INDEX IS NOT LESS THAN STACK-END GO TO STACK-EMPTY. DB1054.2 123100 PERFORM CORRECT-GT-STACK. DB1054.2 123200 GO TO EMPTY-THE-STACK. DB1054.2 123300 STACK-EMPTY. DB1054.2 123400 MOVE SPACE TO DUMMY-RECORD. DB1054.2 123500 MOVE 51 TO RECORD-COUNT. DB1054.2 123600 PERFORM WRITE-LINE. DB1054.2 123700 MOVE FLOW-FAILURE-1 TO DUMMY-RECORD. DB1054.2 123800 PERFORM WRITE-LINE. DB1054.2 123900 MOVE FLOW-FAILURE-2 TO DUMMY-RECORD. DB1054.2 124000 PERFORM WRITE-LINE 2 TIMES. DB1054.2 124100* DB1054.2 124200 GO TO CCVS-EXIT. DB1054.2 124300 NAME-LISTER SECTION. DB1054.2 124400 NAME-LISTER-1. DB1054.2 124500 MOVE EXPECTED-NAME (STATIC-INDEX) TO TABLE-ENTRY. DB1054.2 124600 SET TABLE-ENTRY-BASE TO STATIC-INDEX. DB1054.2 124700 IF STACK-INDEX IS EQUAL TO STACK-END GO TO STACK-GT-CORRECT. DB1054.2 124800 IF BASE-NUMBER (STACK-INDEX) IS NOT NUMERIC DB1054.2 124900 GO TO CORRECT-GT-STACK. DB1054.2 125000 IF TABLE-ENTRY-BASE IS GREATER THAN BASE-NUMBER (STACK-INDEX)DB1054.2 125100 GO TO CORRECT-GT-STACK. DB1054.2 125200 IF TABLE-ENTRY-BASE IS LESS THAN BASE-NUMBER (STACK-INDEX) DB1054.2 125300 GO TO STACK-GT-CORRECT. DB1054.2 125400 CORRECT-EQ-STACK. DB1054.2 125500 MOVE EXPECTED-NAME (STATIC-INDEX) TO PAR-NAME. DB1054.2 125600 MOVE TABLE-ENTRY TO CORRECT-A. DB1054.2 125700 MOVE PROC-NAME (STACK-INDEX) TO COMPUTED-A. DB1054.2 125800 IF CORRECT-A IS NOT EQUAL TO COMPUTED-A PERFORM FAIL DB1054.2 125900 ELSE PERFORM PASS. DB1054.2 126000 PERFORM PRINT-DETAIL. DB1054.2 126100 IF STACK-INDEX IS LESS THAN 500 DB1054.2 126200 SET STACK-INDEX UP BY 1. DB1054.2 126300 IF STATIC-INDEX IS LESS THAN 227 DB1054.2 126400 SET STATIC-INDEX UP BY 1. DB1054.2 126500 GO TO NAME-LISTER-EXIT. DB1054.2 126600 CORRECT-GT-STACK. DB1054.2 126700 MOVE PROC-NAME (STACK-INDEX) TO COMPUTED-A. DB1054.2 126800 PERFORM FAIL. DB1054.2 126900 PERFORM PRINT-DETAIL. DB1054.2 127000 IF STACK-INDEX IS LESS THAN 500 DB1054.2 127100 SET STACK-INDEX UP BY 1. DB1054.2 127200 CORRECT-GT-STACK-1. DB1054.2 127300 GO TO NAME-LISTER-1. DB1054.2 127400 STACK-GT-CORRECT. DB1054.2 127500 MOVE EXPECTED-NAME (STATIC-INDEX) TO PAR-NAME. DB1054.2 127600 MOVE TABLE-ENTRY TO CORRECT-A. DB1054.2 127700 PERFORM FAIL. DB1054.2 127800 PERFORM PRINT-DETAIL. DB1054.2 127900 IF STATIC-INDEX IS LESS THAN 227 DB1054.2 128000 SET STATIC-INDEX UP BY 1. DB1054.2 128100 NAME-LISTER-EXIT. DB1054.2 128200 EXIT. DB1054.2 128300 OTHER-PROCEDURES SECTION. DB1054.2 128400 PROC-000-NUCLEUS-FAILURE. DB1054.2 128500 ADD 1 TO NUC-FAILURE-COUNT. DB1054.2 128600 PROC-209-A121. DB1054.2 128700 EXIT. DB1054.2 128800 PROC-208-A120. DB1054.2 128900 MOVE 0 TO INCREMENT. DB1054.2 129000 MOVE "T" TO TEST-LETTER (20). DB1054.2 129100 PERFORM PROC-209-A121. DB1054.2 129200 PROC-207-A119. DB1054.2 129300 MOVE 0 TO INCREMENT. DB1054.2 129400 MOVE "S" TO TEST-LETTER (19). DB1054.2 129500 PERFORM PROC-208-A120. DB1054.2 129600 PROC-206-A118. DB1054.2 129700 MOVE 0 TO INCREMENT. DB1054.2 129800 MOVE "R" TO TEST-LETTER (18). DB1054.2 129900 PERFORM PROC-207-A119. DB1054.2 130000 PROC-205-A117. DB1054.2 130100 MOVE 0 TO INCREMENT. DB1054.2 130200 MOVE "Q" TO TEST-LETTER (17). DB1054.2 130300 PERFORM PROC-206-A118. DB1054.2 130400 PROC-204-A116. DB1054.2 130500 MOVE 0 TO INCREMENT. DB1054.2 130600 MOVE "P" TO TEST-LETTER (16). DB1054.2 130700 PERFORM PROC-205-A117. DB1054.2 130800 PROC-203-A115. DB1054.2 130900 MOVE 0 TO INCREMENT. DB1054.2 131000 MOVE "O" TO TEST-LETTER (15). DB1054.2 131100 PERFORM PROC-204-A116. DB1054.2 131200 PROC-202-A114. DB1054.2 131300 MOVE 0 TO INCREMENT. DB1054.2 131400 MOVE "N" TO TEST-LETTER (14). DB1054.2 131500 PERFORM PROC-203-A115. DB1054.2 131600 PROC-201-A113. DB1054.2 131700 MOVE 0 TO INCREMENT. DB1054.2 131800 MOVE "M" TO TEST-LETTER (13). DB1054.2 131900 PERFORM PROC-202-A114. DB1054.2 132000 PROC-200-A112. DB1054.2 132100 MOVE 0 TO INCREMENT. DB1054.2 132200 MOVE "L" TO TEST-LETTER (12). DB1054.2 132300 PERFORM PROC-201-A113. DB1054.2 132400 PROC-199-A111. DB1054.2 132500 MOVE 0 TO INCREMENT. DB1054.2 132600 MOVE "K" TO TEST-LETTER (11). DB1054.2 132700 PERFORM PROC-200-A112. DB1054.2 132800 PROC-198-A110. DB1054.2 132900 MOVE 0 TO INCREMENT. DB1054.2 133000 MOVE "J" TO TEST-LETTER (10). DB1054.2 133100 PERFORM PROC-199-A111. DB1054.2 133200 PROC-197-A109. DB1054.2 133300 MOVE 0 TO INCREMENT. DB1054.2 133400 MOVE "I" TO TEST-LETTER (9). DB1054.2 133500 PERFORM PROC-198-A110. DB1054.2 133600 PROC-196-A108. DB1054.2 133700 MOVE 0 TO INCREMENT. DB1054.2 133800 MOVE "H" TO TEST-LETTER (8). DB1054.2 133900 PERFORM PROC-197-A109. DB1054.2 134000 PROC-195-A107. DB1054.2 134100 MOVE 0 TO INCREMENT. DB1054.2 134200 MOVE "G" TO TEST-LETTER (7). DB1054.2 134300 PERFORM PROC-196-A108. DB1054.2 134400 PROC-194-A106. DB1054.2 134500 MOVE 0 TO INCREMENT. DB1054.2 134600 MOVE "F" TO TEST-LETTER (6). DB1054.2 134700 PERFORM PROC-195-A107. DB1054.2 134800 PROC-193-A105. DB1054.2 134900 MOVE 0 TO INCREMENT. DB1054.2 135000 MOVE "E" TO TEST-LETTER (5). DB1054.2 135100 PERFORM PROC-194-A106. DB1054.2 135200 PROC-192-A104. DB1054.2 135300 MOVE 0 TO INCREMENT. DB1054.2 135400 MOVE "D" TO TEST-LETTER (4). DB1054.2 135500 PERFORM PROC-193-A105. DB1054.2 135600 PROC-191-A103. DB1054.2 135700 MOVE 0 TO INCREMENT. DB1054.2 135800 MOVE "C" TO TEST-LETTER (3). DB1054.2 135900 PERFORM PROC-192-A104. DB1054.2 136000 PROC-190-A102. DB1054.2 136100 MOVE 0 TO INCREMENT. DB1054.2 136200 MOVE "B" TO TEST-LETTER (2). DB1054.2 136300 PERFORM PROC-191-A103. DB1054.2 136400 PROC-189-A101. DB1054.2 136500 MOVE 0 TO INCREMENT. DB1054.2 136600 MOVE "A" TO TEST-LETTER (1). DB1054.2 136700 PERFORM PROC-190-A102. DB1054.2 136800 PROC-048-PFM-C. DB1054.2 136900 ADD 1 TO INCREMENT. DB1054.2 137000 ADD 6 TO PERFORM2. DB1054.2 137100 PROC-000-PFM-D. DB1054.2 137200 MOVE 0 TO INCREMENT. DB1054.2 137300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 137400 GO TO PROC-055-PFM-TEST-4. DB1054.2 137500* NOTE CONTROL SHOULD NOT PASS TO THIS PARAGRAPH DB1054.2 137600* FROM THE PREVIOUS ONE. DB1054.2 137700 PROC-056-PFM-E. DB1054.2 137800 MOVE 0 TO INCREMENT. DB1054.2 137900 MOVE "CSW" TO PERFORM1. DB1054.2 138000 PERFORM PROC-057-PFM-F THRU PROC-058-PFM-G. DB1054.2 138100 SUBTRACT .8 FROM PERFORM4. DB1054.2 138200 GO TO PROC-059-PFM-H. DB1054.2 138300 PROC-057-PFM-F. DB1054.2 138400 MOVE 0 TO INCREMENT. DB1054.2 138500 MOVE 60.5 TO PERFORM4. DB1054.2 138600 PROC-058-PFM-G. DB1054.2 138700 MOVE 0 TO INCREMENT. DB1054.2 138800 ADD 10.3 TO PERFORM4. DB1054.2 138900 PROC-059-PFM-H. DB1054.2 139000 EXIT. DB1054.2 139100 PROC-000-PFM-I. DB1054.2 139200 MOVE 0 TO INCREMENT. DB1054.2 139300 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 139400 GO TO PROC-060-PFM-WRITE-4. DB1054.2 139500* NOTE CONTROL SHOULD NOT PASS TO THIS PARAGRAPH DB1054.2 139600* FROM THE PREVIOUS ONE. DB1054.2 139700 PROC-062-PFM-J. DB1054.2 139800 MOVE 0 TO INCREMENT. DB1054.2 139900 MOVE "YES" TO PERFORM1. DB1054.2 140000 PERFORM PROC-063-PFM-L. DB1054.2 140100 MULTIPLY 3 BY PERFORM2. DB1054.2 140200 PROC-000-PFM-K. DB1054.2 140300 MOVE 0 TO INCREMENT. DB1054.2 140400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 140500 GO TO PROC-064-PFM-WRITE-5. DB1054.2 140600* NOTE CONTROL SHOULD NOT PASS TO THIS PARAGRAPH DB1054.2 140700* FROM THE PREVIOUS ONE. DB1054.2 140800 PROC-063-PFM-L. DB1054.2 140900 MOVE 0 TO INCREMENT. DB1054.2 141000 MOVE 4 TO PERFORM2. DB1054.2 141100 ADD 100 TO PERFORM2. DB1054.2 141200 PROC-000-PFM-M. DB1054.2 141300 MOVE 0 TO INCREMENT. DB1054.2 141400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 141500 GO TO PROC-064-PFM-WRITE-5. DB1054.2 141600* NOTE CONTROL SHOULD NOT PASS TO THIS PARAGRAPH DB1054.2 141700* FROM THE PREVIOUS ONE. DB1054.2 141800 PROC-066-PFM-N SECTION. DB1054.2 141900 PROC-067-PFM-O. DB1054.2 142000 MOVE 0 TO INCREMENT. DB1054.2 142100 ADD 1 TO NUC-FAILURE-COUNT. DB1054.2 142200 PROC-068-PFM-P. DB1054.2 142300 MOVE 0 TO INCREMENT. DB1054.2 142400 SUBTRACT 1 FROM NUC-FAILURE-COUNT. DB1054.2 142500 PROC-000-PFM-Q SECTION. DB1054.2 142600 PROC-000-PFM-R. DB1054.2 142700 MOVE 0 TO INCREMENT. DB1054.2 142800 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 142900 GO TO PROC-069-PFM-WRITE-6. DB1054.2 143000* NOTE CONTROL SHOULD NOT PASS TO THIS PARAGRAPH FROM THE DB1054.2 143100* PREVIOUS ONE. DB1054.2 143200 PROC-000-PFM-S. DB1054.2 143300 MOVE 0 TO INCREMENT. DB1054.2 143400 ADD 1 TO PERFORM5. DB1054.2 143500 PROC-000-PFM-T. DB1054.2 143600 MOVE 0 TO INCREMENT. DB1054.2 143700 ADD 10 TO PERFORM5. DB1054.2 143800 PROC-220-PFM-U. DB1054.2 143900 ADD 1 TO INCREMENT. DB1054.2 144000 ADD 100 TO PERFORM5. DB1054.2 144100 IF PERFORM5 GREATER THAN 899 DB1054.2 144200 MOVE PERFORM5 TO COMPUTED-N DB1054.2 144300 MOVE 707 TO CORRECT-N DB1054.2 144400 PERFORM PROC-000-NUCLEUS-FAILURE. DB1054.2 144500 PROC-071-PFM-V. EXIT. DB1054.2 144600 PROC-072-PFM-W. EXIT. DB1054.2 144700 PROC-073-PFM-X. EXIT. DB1054.2 144800 PROC-074-PFM-Y. EXIT. DB1054.2 144900 PROC-075-PFM-Z. ADD 5 TO INCREMENT. DB1054.2 145000 CCVS-EXIT SECTION. DB1054.2 145100 CCVS-999999. DB1054.2 145200 GO TO CLOSE-FILES. DB1054.2
¤ Dauer der Verarbeitung: 0.47 Sekunden (vorverarbeitet am 2026-05-01) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26