|
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
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.32 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
