| products/sources/formale sprachen/Cobol/Test-Suite/COBOL/NC/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: OG_Com.thy Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. DB2014.2
000200 PROGRAM-ID. DB2014.2 000300 DB201A. DB2014.2 000400 AUTHOR. DB2014.2 000500 FEDERAL COMPILER TESTING CENTER. DB2014.2 000600 INSTALLATION. DB2014.2 000700 GENERAL SERVICES ADMINISTRATION DB2014.2 000800 AUTOMATED DATA AND TELECOMMUNICATION SERVICE. DB2014.2 000900 SOFTWARE DEVELOPMENT OFFICE. DB2014.2 001000 5203 LEESBURG PIKE SUITE 1100 DB2014.2 001100 FALLS CHURCH VIRGINIA 22041. DB2014.2 001200 DB2014.2 001300 PHONE (703) 756-6153 DB2014.2 001400 DB2014.2 001500 " HIGH ". DB2014.2 001600 DATE-WRITTEN. DB2014.2 001700 CCVS-74 VERSION 4.0 - 1980 JULY 1. DB2014.2 001800 CREATION DATE / VALIDATION DATE DB2014.2 001900 "4.2 ". DB2014.2 002000 SECURITY. DB2014.2 002100 NONE. DB2014.2 002200* DB2014.2 002300* * * * * * * * * * * * * * * * * * * * * *DB2014.2 002400* DB2014.2 002500* PROGRAM ABSTRACT DB2014.2 002600* DB2014.2 002700* DB201A TESTS THE CAPABILITY OF THE DEBUG MODULE TO HANDLE DB2014.2 002800* DEBUGGING PROCEDURES WHICH ARE MONITORING IDENTIFIERS DB2014.2 002900* SPECIFIED WITH AND WITHOUT THE "ALL REFERENCES" OPTION. DB2014.2 003000* THIS PROGRAM IS TO BE COMPILED AND EXECUTED WITH BOTH DB2014.2 003100* COMPILE AND OBJECT TIME DEBUGGING SWITCHES ENABLED. THE DB2014.2 003200* DEBUGGING PROCEDURES SHOULD BE INCLUDED IN COMPILATION DB2014.2 003300* AND GENERATE CODE. DEBUGGING ACTIONS ON THE FOLLOWING DB2014.2 003400* CONDITIONS ARE ANALYZED DB2014.2 003500* DB2014.2 003600* (1) REFERENCE TO IDENTIFIER WITHIN "VARYING", "AFTER", DB2014.2 003700* AND "UNTIL" PHRASES OF "PERFORM" STATEMENTS. DB2014.2 003800* (2) REFERENCE TO CHANGED AND UNCHANGED IDENTIFIER DB2014.2 003900* FIELDS. DB2014.2 004000* (3) REFERENCE TO SUBSCRIPTED IDENTIFIERS. DB2014.2 004100* (4) REFERENCE TO QUALIFIED IDENTIFIERS. DB2014.2 004200* (5) REFERENCE TO IDENTIFIER USED IN "GO TO DEPENDING". DB2014.2 004300* (6) REFERENCE TO IDENTIFIER IN UNEXECUTED STATEMENTS. DB2014.2 004400* (7) MULTIPLE REFERENCES TO SAME IDENTIFIER IN SAME DB2014.2 004500* STATEMENT. DB2014.2 004600* DB2014.2 004700* DB2014.2 004800* DB2014.2 004900 ENVIRONMENT DIVISION. DB2014.2 005000 CONFIGURATION SECTION. DB2014.2 005100 SOURCE-COMPUTER. DB2014.2 005200 Card0130 DB2014.2 005300 WITH DEBUGGING MODE. DB2014.2 005400 OBJECT-COMPUTER. DB2014.2 005500 Card0131. DB2014.2 005600 INPUT-OUTPUT SECTION. DB2014.2 005700 FILE-CONTROL. DB2014.2 005800 SELECT PRINT-FILE ASSIGN TO DB2014.2 005900 "C0085" . DB2014.2 006000 DATA DIVISION. DB2014.2 006100 FILE SECTION. DB2014.2 006200 FD PRINT-FILE DB2014.2 006300 LABEL RECORDS DB2014.2 006400 Card0132 DB2014.2 006500 DATA RECORD IS PRINT-REC DUMMY-RECORD. DB2014.2 006600 01 PRINT-REC PICTURE X(120). DB2014.2 006700 01 DUMMY-RECORD PICTURE X(120). DB2014.2 006800 WORKING-STORAGE SECTION. DB2014.2 006900 77 COUNTER PIC 999 VALUE 0. DB2014.2 007000 77 GO-TO-DEP-KEY PIC 9. DB2014.2 007100 77 GO-TO-DEP-KEY-1 PIC 9. DB2014.2 007200 01 ITEM-1. DB2014.2 007300 02 KEY-1 PIC 99 VALUE ZERO. DB2014.2 007400 02 LINE-1 PIC X(6). DB2014.2 007500 02 NAME-1 PIC X(30). DB2014.2 007600 02 UNQUAL-NAME-1 PIC X(30). DB2014.2 007700 02 SUB-1-1 PIC X(5). DB2014.2 007800 02 SUB-2-1 PIC X(5). DB2014.2 007900 02 SUB-3-1 PIC X(5). DB2014.2 008000 02 CONTENTS-1 PIC X(30). DB2014.2 008100 01 ITEM-2. DB2014.2 008200 02 KEY-2 PIC 99. DB2014.2 008300 02 LINE-2 PIC X(6). DB2014.2 008400 02 NAME-2 PIC X(30). DB2014.2 008500 02 UNQUAL-NAME-2 PIC X(30). DB2014.2 008600 02 CONTENTS-2 PIC X(30). DB2014.2 008700 01 ID-1 PIC 99. DB2014.2 008800 01 ID-1A REDEFINES ID-1 PIC 99. DB2014.2 008900 01 ID-2 PIC 99. DB2014.2 009000 01 ID-2A REDEFINES ID-2 PIC 99. DB2014.2 009100 01 ID-3 PIC 99. DB2014.2 009200 01 A-GROUP. DB2014.2 009300 02 A1. DB2014.2 009400 03 AB1 PIC X OCCURS 5 TIMES. DB2014.2 009500 03 AB2. DB2014.2 009600 04 ABC1 PIC X. DB2014.2 009700 04 ABC2 PIC X. DB2014.2 009800 02 A2. DB2014.2 009900 03 AB1 PIC X OCCURS 5 TIMES. DB2014.2 010000 03 AB2. DB2014.2 010100 04 ABC1 PIC X. DB2014.2 010200 04 ABC2 PIC X. DB2014.2 010300 01 B-GROUP. DB2014.2 010400 02 B-LEVEL-1 OCCURS 10 TIMES INDEXED BY I. DB2014.2 010500 03 B-LEVEL-2 OCCURS 10 TIMES INDEXED BY J. DB2014.2 010600 04 B-LEVEL-3 OCCURS 10 TIMES INDEXED BY K PIC X. DB2014.2 010700 01 TEST-RESULTS. DB2014.2 010800 02 FILLER PICTURE X VALUE SPACE. DB2014.2 010900 02 FEATURE PICTURE X(20) VALUE SPACE. DB2014.2 011000 02 FILLER PICTURE X VALUE SPACE. DB2014.2 011100 02 P-OR-F PICTURE X(5) VALUE SPACE. DB2014.2 011200 02 FILLER PICTURE X VALUE SPACE. DB2014.2 011300 02 PAR-NAME. DB2014.2 011400 03 FILLER PICTURE X(12) VALUE SPACE. DB2014.2 011500 03 PARDOT-X PICTURE X VALUE SPACE. DB2014.2 011600 03 DOTVALUE PICTURE 99 VALUE ZERO. DB2014.2 011700 03 FILLER PIC X(5) VALUE SPACE. DB2014.2 011800 02 FILLER PIC X(10) VALUE SPACE. DB2014.2 011900 02 RE-MARK PIC X(61). DB2014.2 012000 01 TEST-COMPUTED. DB2014.2 012100 02 FILLER PIC X(30) VALUE SPACE. DB2014.2 012200 02 FILLER PIC X(17) VALUE " COMPUTED=". DB2014.2 012300 02 COMPUTED-X. DB2014.2 012400 03 COMPUTED-A PICTURE X(20) VALUE SPACE. DB2014.2 012500 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). DB2014.2 012600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). DB2014.2 012700 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). DB2014.2 012800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). DB2014.2 012900 03 CM-18V0 REDEFINES COMPUTED-A. DB2014.2 013000 04 COMPUTED-18V0 PICTURE -9(18). DB2014.2 013100 04 FILLER PICTURE X. DB2014.2 013200 03 FILLER PIC X(50) VALUE SPACE. DB2014.2 013300 01 TEST-CORRECT. DB2014.2 013400 02 FILLER PIC X(30) VALUE SPACE. DB2014.2 013500 02 FILLER PIC X(17) VALUE " CORRECT =". DB2014.2 013600 02 CORRECT-X. DB2014.2 013700 03 CORRECT-A PICTURE X(20) VALUE SPACE. DB2014.2 013800 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). DB2014.2 013900 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). DB2014.2 014000 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). DB2014.2 014100 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). DB2014.2 014200 03 CR-18V0 REDEFINES CORRECT-A. DB2014.2 014300 04 CORRECT-18V0 PICTURE -9(18). DB2014.2 014400 04 FILLER PICTURE X. DB2014.2 014500 03 FILLER PIC X(50) VALUE SPACE. DB2014.2 014600 01 CCVS-C-1. DB2014.2 014700 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PADB2014.2 014800- "SS PARAGRAPH-NAME DB2014.2 014900- " REMARKS". DB2014.2 015000 02 FILLER PICTURE IS X(20) VALUE IS SPACE. DB2014.2 015100 01 CCVS-C-2. DB2014.2 015200 02 FILLER PICTURE IS X VALUE IS SPACE. DB2014.2 015300 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". DB2014.2 015400 02 FILLER PICTURE IS X(15) VALUE IS SPACE. DB2014.2 015500 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". DB2014.2 015600 02 FILLER PICTURE IS X(94) VALUE IS SPACE. DB2014.2 015700 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. DB2014.2 015800 01 REC-CT PICTURE 99 VALUE ZERO. DB2014.2 015900 01 DELETE-CNT PICTURE 999 VALUE ZERO. DB2014.2 016000 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. DB2014.2 016100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. DB2014.2 016200 01 PASS-COUNTER PIC 999 VALUE ZERO. DB2014.2 016300 01 TOTAL-ERROR PIC 999 VALUE ZERO. DB2014.2 016400 01 ERROR-HOLD PIC 999 VALUE ZERO. DB2014.2 016500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. DB2014.2 016600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. DB2014.2 016700 01 CCVS-H-1. DB2014.2 016800 02 FILLER PICTURE X(27) VALUE SPACE. DB2014.2 016900 02 FILLER PICTURE X(67) VALUE DB2014.2 017000 " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION DB2014.2 017100- " SYSTEM". DB2014.2 017200 02 FILLER PICTURE X(26) VALUE SPACE. DB2014.2 017300 01 CCVS-H-2. DB2014.2 017400 02 FILLER PICTURE X(52) VALUE IS DB2014.2 017500 "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.". DB2014.2 017600 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". DB2014.2 017700 02 TEST-ID PICTURE IS X(9). DB2014.2 017800 02 FILLER PICTURE IS X(40) VALUE IS SPACE. DB2014.2 017900 01 CCVS-H-3. DB2014.2 018000 02 FILLER PICTURE X(34) VALUE DB2014.2 018100 " FOR OFFICIAL USE ONLY ". DB2014.2 018200 02 FILLER PICTURE X(58) VALUE DB2014.2 018300 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".DB2014.2 018400 02 FILLER PICTURE X(28) VALUE DB2014.2 018500 " COPYRIGHT 1974 ". DB2014.2 018600 01 CCVS-E-1. DB2014.2 018700 02 FILLER PICTURE IS X(52) VALUE IS SPACE. DB2014.2 018800 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". DB2014.2 018900 02 ID-AGAIN PICTURE IS X(9). DB2014.2 019000 02 FILLER PICTURE X(45) VALUE IS DB2014.2 019100 " NTIS DISTRIBUTION COBOL 74". DB2014.2 019200 01 CCVS-E-2. DB2014.2 019300 02 FILLER PICTURE X(31) VALUE DB2014.2 019400 SPACE. DB2014.2 019500 02 FILLER PICTURE X(21) VALUE SPACE. DB2014.2 019600 02 CCVS-E-2-2. DB2014.2 019700 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. DB2014.2 019800 03 FILLER PICTURE IS X VALUE IS SPACE. DB2014.2 019900 03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED". DB2014.2 020000 01 CCVS-E-3. DB2014.2 020100 02 FILLER PICTURE X(22) VALUE DB2014.2 020200 " FOR OFFICIAL USE ONLY". DB2014.2 020300 02 FILLER PICTURE X(12) VALUE SPACE. DB2014.2 020400 02 FILLER PICTURE X(58) VALUE DB2014.2 020500 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".DB2014.2 020600 02 FILLER PICTURE X(13) VALUE SPACE. DB2014.2 020700 02 FILLER PIC X(15) VALUE " COPYRIGHT 1974". DB2014.2 020800 01 CCVS-E-4. DB2014.2 020900 02 CCVS-E-4-1 PIC XXX VALUE SPACE. DB2014.2 021000 02 FILLER PIC XXXX VALUE " OF ". DB2014.2 021100 02 CCVS-E-4-2 PIC XXX VALUE SPACE. DB2014.2 021200 02 FILLER PIC X(40) VALUE DB2014.2 021300 " TESTS WERE EXECUTED SUCCESSFULLY". DB2014.2 021400 01 XXINFO. DB2014.2 021500 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". DB2014.2 021600 02 INFO-TEXT. DB2014.2 021700 04 FILLER PIC X(20) VALUE SPACE. DB2014.2 021800 04 XXCOMPUTED PIC X(20). DB2014.2 021900 04 FILLER PIC X(5) VALUE SPACE. DB2014.2 022000 04 XXCORRECT PIC X(20). DB2014.2 022100 01 HYPHEN-LINE. DB2014.2 022200 02 FILLER PICTURE IS X VALUE IS SPACE. DB2014.2 022300 02 FILLER PICTURE IS X(65) VALUE IS "************************DB2014.2 022400- "*****************************************". DB2014.2 022500 02 FILLER PICTURE IS X(54) VALUE IS "************************DB2014.2 022600- "******************************". DB2014.2 022700 01 CCVS-PGM-ID PIC X(6) VALUE DB2014.2 022800 "DB201A". DB2014.2 022900 PROCEDURE DIVISION. DB2014.2 023000 DECLARATIVES. DB2014.2 023100 GO-TO-DEPENDING-PROC-1 SECTION. DB2014.2 023200 USE FOR DEBUGGING ON ALL REFERENCES OF GO-TO-DEP-KEY DB2014.2 023300 ALL ID-2. DB2014.2 023400 GO-TO-DEPEND-1. DB2014.2 023500 ADD 1 TO KEY-1. DB2014.2 023600 DB-COMMON-1. DB2014.2 023700 MOVE DEBUG-LINE TO LINE-1. DB2014.2 023800 MOVE DEBUG-NAME TO NAME-1 UNQUAL-NAME-1. DB2014.2 023900 MOVE DEBUG-CONTENTS TO CONTENTS-1. DB2014.2 024000 DB-CLEAR-QUALIFIER-1. DB2014.2 024100 INSPECT UNQUAL-NAME-1 REPLACING CHARACTERS BY SPACES DB2014.2 024200 AFTER INITIAL SPACE. DB2014.2 024300 GO-TO-DEPENDING-PROC-2 SECTION. DB2014.2 024400 USE FOR DEBUGGING ON G-T-D-2. DB2014.2 024500 GO-TO-DEPEND-2. DB2014.2 024600 IF KEY-1 IS EQUAL TO 1 DB2014.2 024700 MOVE 2 TO KEY-2 DB2014.2 024800 ELSE MOVE 1 TO KEY-2. DB2014.2 024900 DB-COMMON-2. DB2014.2 025000 MOVE DEBUG-LINE TO LINE-2. DB2014.2 025100 MOVE DEBUG-NAME TO NAME-2 UNQUAL-NAME-2. DB2014.2 025200 MOVE DEBUG-CONTENTS TO CONTENTS-2. DB2014.2 025300 DB-CLEAR-QUALIFIER-2. DB2014.2 025400 INSPECT UNQUAL-NAME-2 REPLACING CHARACTERS BY SPACES DB2014.2 025500 AFTER INITIAL SPACE. DB2014.2 025600 GO-TO-DEPENDING-PROC-3 SECTION. DB2014.2 025700 USE FOR DEBUGGING ON GO-TO-DEP-KEY-1. DB2014.2 025800 GO-TO-DEPEND-3. DB2014.2 025900 MOVE 1 TO KEY-1. DB2014.2 026000 PERFORM-PROC-1 SECTION. DB2014.2 026100 USE FOR DEBUGGING ON ID-1. DB2014.2 026200 PERFORM-1. DB2014.2 026300 ADD 1 TO KEY-1. DB2014.2 026400 PERFORM DB-COMMON-1. DB2014.2 026500 PERFORM DB-CLEAR-QUALIFIER-1. DB2014.2 026600 TABLE-PROC-1 SECTION. DB2014.2 026700 USE FOR DEBUGGING ON B-LEVEL-1 B-LEVEL-2 B-LEVEL-3. DB2014.2 026800 TABLE-1. DB2014.2 026900 MOVE 1 TO KEY-1. DB2014.2 027000 PERFORM DB-COMMON-1. DB2014.2 027100 PERFORM DB-CLEAR-QUALIFIER-1. DB2014.2 027200 DB-MOVE-SUBSC-1. DB2014.2 027300 MOVE DEBUG-SUB-1 TO SUB-1-1. DB2014.2 027400 IF PAR-NAME = "SUBSC-TEST-2" DB2014.2 027500 MOVE DEBUG-SUB-2 TO SUB-2-1. DB2014.2 027600 MOVE DEBUG-SUB-3 TO SUB-3-1. DB2014.2 027700 QUAL-PROC-1 SECTION. DB2014.2 027800 USE FOR DEBUGGING ON ALL REFERENCES OF ABC1 OF AB2 OF A1 DB2014.2 027900 ALL AB2 OF A2. DB2014.2 028000 QUAL-1. DB2014.2 028100 MOVE 1 TO KEY-1. DB2014.2 028200 PERFORM DB-COMMON-1. DB2014.2 028300 QUAL-SUBC-PROC-1 SECTION. DB2014.2 028400 USE FOR DEBUGGING ON ALL REFERENCES OF AB1 OF A1. DB2014.2 028500 QUAL-SUBC-1. DB2014.2 028600 MOVE 1 TO KEY-1. DB2014.2 028700 PERFORM DB-COMMON-1. DB2014.2 028800 MOVE DEBUG-SUB-1 TO SUB-1-1. DB2014.2 028900 END DECLARATIVES. DB2014.2 029000 CCVS1 SECTION. DB2014.2 029100 OPEN-FILES. DB2014.2 029200 OPEN OUTPUT PRINT-FILE. DB2014.2 029300 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. DB2014.2 029400 MOVE SPACE TO TEST-RESULTS. DB2014.2 029500 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. DB2014.2 029600 GO TO CCVS1-EXIT. DB2014.2 029700 CLOSE-FILES. DB2014.2 029800 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. DB2014.2 029900 TERMINATE-CCVS. DB2014.2 030000 EXIT PROGRAM. DB2014.2 030100 TERMINATE-CALL. DB2014.2 030200 STOP RUN. DB2014.2 030300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. DB2014.2 030400 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. DB2014.2 030500 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. DB2014.2 030600 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. DB2014.2 030700 MOVE "****TEST DELETED****" TO RE-MARK. DB2014.2 030800 PRINT-DETAIL. DB2014.2 030900 IF REC-CT NOT EQUAL TO ZERO DB2014.2 031000 MOVE "." TO PARDOT-X DB2014.2 031100 MOVE REC-CT TO DOTVALUE. DB2014.2 031200 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. DB2014.2 031300 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE DB2014.2 031400 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX DB2014.2 031500 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. DB2014.2 031600 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. DB2014.2 031700 MOVE SPACE TO CORRECT-X. DB2014.2 031800 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. DB2014.2 031900 MOVE SPACE TO RE-MARK. DB2014.2 032000 HEAD-ROUTINE. DB2014.2 032100 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2 032200 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. DB2014.2 032300 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. DB2014.2 032400 COLUMN-NAMES-ROUTINE. DB2014.2 032500 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2 032600 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2 032700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2 032800 END-ROUTINE. DB2014.2 032900 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.DB2014.2 033000 END-RTN-EXIT. DB2014.2 033100 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2 033200 END-ROUTINE-1. DB2014.2 033300 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO DB2014.2 033400 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. DB2014.2 033500 ADD PASS-COUNTER TO ERROR-HOLD. DB2014.2 033600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. DB2014.2 033700 MOVE PASS-COUNTER TO CCVS-E-4-1. DB2014.2 033800 MOVE ERROR-HOLD TO CCVS-E-4-2. DB2014.2 033900 MOVE CCVS-E-4 TO CCVS-E-2-2. DB2014.2 034000 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. DB2014.2 034100 END-ROUTINE-12. DB2014.2 034200 MOVE "TEST(S) FAILED" TO ENDER-DESC. DB2014.2 034300 IF ERROR-COUNTER IS EQUAL TO ZERO DB2014.2 034400 MOVE "NO " TO ERROR-TOTAL DB2014.2 034500 ELSE DB2014.2 034600 MOVE ERROR-COUNTER TO ERROR-TOTAL. DB2014.2 034700 MOVE CCVS-E-2 TO DUMMY-RECORD. DB2014.2 034800 PERFORM WRITE-LINE. DB2014.2 034900 END-ROUTINE-13. DB2014.2 035000 IF DELETE-CNT IS EQUAL TO ZERO DB2014.2 035100 MOVE "NO " TO ERROR-TOTAL ELSE DB2014.2 035200 MOVE DELETE-CNT TO ERROR-TOTAL. DB2014.2 035300 MOVE "TEST(S) DELETED " TO ENDER-DESC. DB2014.2 035400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2 035500 IF INSPECT-COUNTER EQUAL TO ZERO DB2014.2 035600 MOVE "NO " TO ERROR-TOTAL DB2014.2 035700 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. DB2014.2 035800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. DB2014.2 035900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2 036000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2 036100 WRITE-LINE. DB2014.2 036200 ADD 1 TO RECORD-COUNT. DB2014.2 036300 IF RECORD-COUNT GREATER 50 DB2014.2 036400 MOVE DUMMY-RECORD TO DUMMY-HOLD DB2014.2 036500 MOVE SPACE TO DUMMY-RECORD DB2014.2 036600 WRITE DUMMY-RECORD AFTER ADVANCING PAGE DB2014.2 036700 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN DB2014.2 036800 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES DB2014.2 036900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN DB2014.2 037000 MOVE DUMMY-HOLD TO DUMMY-RECORD DB2014.2 037100 MOVE ZERO TO RECORD-COUNT. DB2014.2 037200 PERFORM WRT-LN. DB2014.2 037300 WRT-LN. DB2014.2 037400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. DB2014.2 037500 MOVE SPACE TO DUMMY-RECORD. DB2014.2 037600 BLANK-LINE-PRINT. DB2014.2 037700 PERFORM WRT-LN. DB2014.2 037800 FAIL-ROUTINE. DB2014.2 037900 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB2014.2 038000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB2014.2 038100 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. DB2014.2 038200 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2 038300 GO TO FAIL-ROUTINE-EX. DB2014.2 038400 FAIL-ROUTINE-WRITE. DB2014.2 038500 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE DB2014.2 038600 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. DB2014.2 038700 FAIL-ROUTINE-EX. EXIT. DB2014.2 038800 BAIL-OUT. DB2014.2 038900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. DB2014.2 039000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. DB2014.2 039100 BAIL-OUT-WRITE. DB2014.2 039200 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. DB2014.2 039300 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2 039400 BAIL-OUT-EX. EXIT. DB2014.2 039500 CCVS1-EXIT. DB2014.2 039600 EXIT. DB2014.2 039700 SECT-DB201A-0001 SECTION. DB2014.2 039800 GO-TO-DEPENDING-INIT. DB2014.2 039900 MOVE "GO TO DEP/ALL REF" TO FEATURE. DB2014.2 040000 MOVE "GO-TO-DEPENDING" TO PAR-NAME. DB2014.2 040100 GO-TO-DEPENDING-0. DB2014.2 040200 MOVE 2 TO GO-TO-DEP-KEY. DB2014.2 040300 MOVE SPACES TO ITEM-1 ITEM-2. DB2014.2 040400 MOVE 0 TO KEY-1 KEY-2. DB2014.2 040500******************************************************************DB2014.2 040600* THE DEBUG-LINE (INSPT) TESTS NAMED IN THE OUTPUT REPORT AS *DB2014.2 040700* "G-T-D-2A" AND "G-T-D-3A" SHOULD EACH POINT TO THE *DB2014.2 040800* EXECUTABLE STATEMENT WHICH FOLLOWS THIS COMMENT SET AND *DB2014.2 040900* WHICH READS, "GO TO G-T-D-1 G-T-D-2 G-T-D-5 DEPENDING ON *DB2014.2 041000* GO-TO-DEP-KEY.". *DB2014.2 041100******************************************************************DB2014.2 041200 GO TO G-T-D-1 G-T-D-2 G-T-D-5 DEPENDING ON GO-TO-DEP-KEY. DB2014.2 041300 GO-TO-DEPENDING-DELETE. DB2014.2 041400 GO TO G-T-D-2-DELETE. DB2014.2 041500 G-T-D-1. DB2014.2 041600 GO TO G-T-D-2-DELETE. DB2014.2 041700 G-T-D-2. DB2014.2 041800 MOVE "G-T-D-2" TO PAR-NAME. DB2014.2 041900 IF KEY-1 IS EQUAL TO 1 DB2014.2 042000 MOVE "DEBUG EXECUTED ON IDENTIFR" TO RE-MARK DB2014.2 042100 PERFORM PASS DB2014.2 042200 PERFORM G-T-D-WRITE DB2014.2 042300 GO TO G-T-D-2A DB2014.2 042400 ELSE PERFORM FAIL DB2014.2 042500 MOVE "DEBUG NOT EXECUTED ON IDENTIFR" TO RE-MARK DB2014.2 042600 PERFORM G-T-D-WRITE DB2014.2 042700 PERFORM DELETE-SUBTESTS-2 DB2014.2 042800 GO TO G-T-D-3. DB2014.2 042900 G-T-D-2-DELETE. DB2014.2 043000 PERFORM DE-LETE. DB2014.2 043100 PERFORM G-T-D-WRITE. DB2014.2 043200 PERFORM DELETE-SUBTESTS-2. DB2014.2 043300 GO TO G-T-D-3-DELETE. DB2014.2 043400 DELETE-SUBTESTS-2. DB2014.2 043500 MOVE "G-T-D-2A" TO PAR-NAME. DB2014.2 043600 PERFORM DE-LETE. DB2014.2 043700 PERFORM G-T-D-WRITE. DB2014.2 043800 MOVE "G-T-D-2B" TO PAR-NAME. DB2014.2 043900 PERFORM DE-LETE. DB2014.2 044000 PERFORM G-T-D-WRITE. DB2014.2 044100 MOVE "G-T-D-2C" TO PAR-NAME. DB2014.2 044200 PERFORM DE-LETE. DB2014.2 044300 PERFORM G-T-D-WRITE. DB2014.2 044400 G-T-D-2A. DB2014.2 044500 MOVE "G-T-D-2A" TO PAR-NAME. DB2014.2 044600 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 044700 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 044800 MOVE LINE-1 TO COMPUTED-A. DB2014.2 044900 PERFORM INSPT. DB2014.2 045000 PERFORM G-T-D-WRITE. DB2014.2 045100 G-T-D-2B. DB2014.2 045200 MOVE "G-T-D-2B" TO PAR-NAME. DB2014.2 045300 IF UNQUAL-NAME-1 IS EQUAL TO "GO-TO-DEP-KEY" DB2014.2 045400 PERFORM PASS DB2014.2 045500 ELSE PERFORM FAIL DB2014.2 045600 MOVE "GO-TO-DEP-KEY" TO CORRECT-A DB2014.2 045700 MOVE NAME-1 TO COMPUTED-A. DB2014.2 045800 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 045900 PERFORM G-T-D-WRITE. DB2014.2 046000 G-T-D-2C. DB2014.2 046100 MOVE "G-T-D-2C" TO PAR-NAME. DB2014.2 046200 IF CONTENTS-1 IS EQUAL TO "2" DB2014.2 046300 PERFORM PASS DB2014.2 046400 ELSE PERFORM FAIL DB2014.2 046500 MOVE "2" TO CORRECT-A DB2014.2 046600 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 046700 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 046800 PERFORM G-T-D-WRITE. DB2014.2 046900 G-T-D-3. DB2014.2 047000 MOVE "G-T-D-3" TO PAR-NAME. DB2014.2 047100 IF KEY-2 IS EQUAL TO 1 OR 2 DB2014.2 047200 MOVE "DEBUG ON PROC-NAME EXECUTED" TO RE-MARK DB2014.2 047300 PERFORM PASS DB2014.2 047400 PERFORM G-T-D-WRITE DB2014.2 047500 GO TO G-T-D-3A DB2014.2 047600 ELSE DB2014.2 047700 MOVE "DEBUG ON PRC-NAME NOT EXECUTED" TO RE-MARK DB2014.2 047800 PERFORM FAIL DB2014.2 047900 PERFORM G-T-D-WRITE DB2014.2 048000 PERFORM DELETE-SUBTESTS-3 DB2014.2 048100 GO TO G-T-D-4. DB2014.2 048200 G-T-D-3-DELETE. DB2014.2 048300 MOVE "G-T-D-3" TO PAR-NAME. DB2014.2 048400 PERFORM DE-LETE. DB2014.2 048500 PERFORM G-T-D-WRITE. DB2014.2 048600 PERFORM DELETE-SUBTESTS-3 DB2014.2 048700 GO TO G-T-D-4-DELETE. DB2014.2 048800 DELETE-SUBTESTS-3. DB2014.2 048900 MOVE "G-T-D-3A" TO PAR-NAME. DB2014.2 049000 PERFORM DE-LETE. DB2014.2 049100 PERFORM G-T-D-WRITE. DB2014.2 049200 MOVE "G-T-D-3B" TO PAR-NAME. DB2014.2 049300 PERFORM DE-LETE. DB2014.2 049400 PERFORM G-T-D-WRITE. DB2014.2 049500 MOVE "G-T-D-3C" TO PAR-NAME. DB2014.2 049600 PERFORM DE-LETE. DB2014.2 049700 PERFORM G-T-D-WRITE. DB2014.2 049800 G-T-D-3A. DB2014.2 049900 MOVE "G-T-D-3A" TO PAR-NAME. DB2014.2 050000 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 050100 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 050200 MOVE LINE-2 TO COMPUTED-A. DB2014.2 050300 PERFORM INSPT. DB2014.2 050400 PERFORM G-T-D-WRITE. DB2014.2 050500 G-T-D-3B. DB2014.2 050600 MOVE "G-T-D-3B" TO PAR-NAME. DB2014.2 050700 IF UNQUAL-NAME-2 IS EQUAL TO "G-T-D-2" DB2014.2 050800 PERFORM PASS DB2014.2 050900 ELSE PERFORM FAIL DB2014.2 051000 MOVE "G-T-D-2" TO CORRECT-A DB2014.2 051100 MOVE NAME-2 TO COMPUTED-A. DB2014.2 051200 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 051300 PERFORM G-T-D-WRITE. DB2014.2 051400 G-T-D-3C. DB2014.2 051500 MOVE "G-T-D-3C" TO PAR-NAME. DB2014.2 051600 IF CONTENTS-2 IS EQUAL TO SPACES DB2014.2 051700 PERFORM PASS DB2014.2 051800 ELSE PERFORM FAIL DB2014.2 051900 MOVE "(SPACES)" TO CORRECT-A DB2014.2 052000 MOVE CONTENTS-2 TO COMPUTED-A. DB2014.2 052100 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 052200 PERFORM G-T-D-WRITE. DB2014.2 052300 G-T-D-4. DB2014.2 052400 MOVE "G-T-D-4" TO PAR-NAME. DB2014.2 052500 IF KEY-2 IS EQUAL TO 2 DB2014.2 052600 MOVE "PROCS EXECUTED IN RIGHT ORDER" TO RE-MARK DB2014.2 052700 PERFORM PASS DB2014.2 052800 ELSE PERFORM FAIL DB2014.2 052900 MOVE "PROCS EXECUTED IN WRONG ORDER" TO RE-MARK. DB2014.2 053000 GO TO G-T-D-WRITE. DB2014.2 053100 G-T-D-4-DELETE. DB2014.2 053200 MOVE "G-T-D-4" TO PAR-NAME. DB2014.2 053300 PERFORM DE-LETE. DB2014.2 053400 GO TO G-T-D-WRITE. DB2014.2 053500 G-T-D-5. DB2014.2 053600 GO TO G-T-D-2-DELETE. DB2014.2 053700 G-T-D-WRITE. DB2014.2 053800 PERFORM PRINT-DETAIL. DB2014.2 053900 G-T-D-6-INIT. DB2014.2 054000 MOVE "GO TO DEP/NOT ALL" TO FEATURE. DB2014.2 054100 MOVE "G-T-D-6" TO PAR-NAME. DB2014.2 054200 G-T-D-6. DB2014.2 054300 MOVE 2 TO GO-TO-DEP-KEY-1. DB2014.2 054400 MOVE SPACES TO ITEM-1 ITEM-2. DB2014.2 054500 MOVE 0 TO KEY-1 KEY-2. DB2014.2 054600 GO TO G-T-D-7 G-T-D-8 G-T-D-9 DEPENDING ON GO-TO-DEP-KEY-1.DB2014.2 054700 G-T-D-6-DELETE. DB2014.2 054800 PERFORM DE-LETE. DB2014.2 054900 PERFORM G-T-D-WRITE. DB2014.2 055000 GO TO PERFORM-TESTS-INIT. DB2014.2 055100 G-T-D-7. DB2014.2 055200 GO TO G-T-D-8. DB2014.2 055300 G-T-D-8. DB2014.2 055400 IF KEY-1 IS EQUAL TO 0 DB2014.2 055500 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 055600 PERFORM PASS DB2014.2 055700 ELSE PERFORM FAIL DB2014.2 055800 MOVE "DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2 055900 PERFORM G-T-D-WRITE. DB2014.2 056000 GO TO PERFORM-TESTS-INIT. DB2014.2 056100 G-T-D-9. DB2014.2 056200 GO TO G-T-D-8. DB2014.2 056300 PERFORM-TESTS-INIT. DB2014.2 056400 MOVE "PERFORM VARYING" TO FEATURE. DB2014.2 056500 MOVE SPACES TO ITEM-1. DB2014.2 056600 MOVE "PERFORM-VARY-1" TO PAR-NAME. DB2014.2 056700 MOVE 0 TO KEY-1. DB2014.2 056800******************************************************************DB2014.2 056900* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 057000* "P-V-1A" SHOULD POINT TO THE EXECUTABLE STATEMENT WHICH *DB2014.2 057100* FOLLOWS THIS COMMENT SET AND WHICH READS, "PERFORM *DB2014.2 057200* P-V-1-SUBR VARYING ID-1 FROM 1 BY 1 UNTIL ID-1A IS GREATER *DB2014.2 057300* THAN 5.". *DB2014.2 057400******************************************************************DB2014.2 057500 PERFORM-VARY-1. DB2014.2 057600 PERFORM P-V-1-SUBR VARYING ID-1 FROM 1 BY 1 DB2014.2 057700 UNTIL ID-1A IS GREATER THAN 5. DB2014.2 057800 GO TO P-V-1-TEST. DB2014.2 057900 PERFORM-VARYING-1-DELETE. DB2014.2 058000 PERFORM DE-LETE. DB2014.2 058100 PERFORM P-V-WRITE. DB2014.2 058200 PERFORM DELETE-VARYING-SUBTESTS. DB2014.2 058300 GO TO PERFORM-VARYING-2-DELETE. DB2014.2 058400 DELETE-VARYING-SUBTESTS. DB2014.2 058500 MOVE "P-V-1A" TO PAR-NAME. DB2014.2 058600 PERFORM DE-LETE. DB2014.2 058700 PERFORM P-V-WRITE. DB2014.2 058800 MOVE "P-V-1B" TO PAR-NAME. DB2014.2 058900 PERFORM DE-LETE. DB2014.2 059000 PERFORM P-V-WRITE. DB2014.2 059100 MOVE "P-V-1C" TO PAR-NAME. DB2014.2 059200 PERFORM DE-LETE. DB2014.2 059300 PERFORM P-V-WRITE. DB2014.2 059400 P-V-1-SUBR. DB2014.2 059500 ADD 1 TO COUNTER. DB2014.2 059600 P-V-1-TEST. DB2014.2 059700 IF KEY-1 IS EQUAL TO 6 DB2014.2 059800 MOVE "DEBUG PROC EXECUTED 6 TIMES" TO RE-MARK DB2014.2 059900 PERFORM PASS DB2014.2 060000 ELSE PERFORM FAIL DB2014.2 060100 MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 060200 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 060300 MOVE 6 TO CORRECT-18V0. DB2014.2 060400 PERFORM P-V-WRITE. DB2014.2 060500 IF KEY-1 IS EQUAL TO 0 DB2014.2 060600 PERFORM DELETE-VARYING-SUBTESTS DB2014.2 060700 GO TO PERFORM-VARYING-2-DELETE. DB2014.2 060800 P-V-1A. DB2014.2 060900 MOVE "P-V-1A" TO PAR-NAME. DB2014.2 061000 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 061100 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 061200 MOVE LINE-1 TO COMPUTED-A. DB2014.2 061300 PERFORM INSPT. DB2014.2 061400 PERFORM P-V-WRITE. DB2014.2 061500 P-V-1B. DB2014.2 061600 MOVE "P-V-1B" TO PAR-NAME. DB2014.2 061700 IF UNQUAL-NAME-1 IS EQUAL TO "ID-1" DB2014.2 061800 PERFORM PASS DB2014.2 061900 ELSE PERFORM FAIL DB2014.2 062000 MOVE "ID-1" TO CORRECT-A DB2014.2 062100 MOVE NAME-1 TO COMPUTED-A. DB2014.2 062200 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 062300 PERFORM P-V-WRITE. DB2014.2 062400 P-V-1C. DB2014.2 062500 MOVE "P-V-1C" TO PAR-NAME. DB2014.2 062600 IF CONTENTS-1 IS EQUAL TO "06" DB2014.2 062700 PERFORM PASS DB2014.2 062800 ELSE PERFORM FAIL DB2014.2 062900 MOVE "06" TO CORRECT-A DB2014.2 063000 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 063100 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 063200 PERFORM P-V-WRITE. DB2014.2 063300 PERFORM-VARY-2. DB2014.2 063400 PERFORM PERFORM-TESTS-INIT. DB2014.2 063500 MOVE "PERFORM-VARY-2" TO PAR-NAME. DB2014.2 063600 PERFORM P-V-1-SUBR VARYING ID-1 FROM 1 BY 1 DB2014.2 063700 UNTIL ID-1 IS GREATER THAN 5. DB2014.2 063800 GO TO P-V-2-TEST. DB2014.2 063900 PERFORM-VARYING-2-DELETE. DB2014.2 064000 MOVE "PERFORM-VARY-2" TO PAR-NAME. DB2014.2 064100 PERFORM DE-LETE. DB2014.2 064200 PERFORM P-V-WRITE. DB2014.2 064300 GO TO PERFORM-AFTER-INIT. DB2014.2 064400 P-V-2-TEST. DB2014.2 064500 IF KEY-1 IS EQUAL TO 12 DB2014.2 064600 PERFORM PASS DB2014.2 064700 MOVE "DEBUG PROC EXECUTED 12 TIMES" TO RE-MARK DB2014.2 064800 ELSE PERFORM FAIL DB2014.2 064900 MOVE "12" TO CORRECT-A DB2014.2 065000 MOVE KEY-1 TO COMPUTED-A DB2014.2 065100 MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2 065200 P-V-WRITE. DB2014.2 065300 PERFORM PRINT-DETAIL. DB2014.2 065400 PERFORM-AFTER-INIT. DB2014.2 065500 MOVE "PERFORM AFTER" TO FEATURE. DB2014.2 065600 MOVE SPACES TO ITEM-1. DB2014.2 065700 MOVE 0 TO KEY-1. DB2014.2 065800 MOVE "PERFORM-AFTER-1" TO PAR-NAME. DB2014.2 065900 PERFORM-AFTER-1. DB2014.2 066000 PERFORM P-V-1-SUBR DB2014.2 066100 VARYING ID-2A FROM 1 BY 1 UNTIL ID-2A IS GREATER THAN 5 DB2014.2 066200 AFTER ID-1 FROM 1 BY 1 UNTIL ID-1A IS GREATER THAN 5. DB2014.2 066300 GO TO PERFORM-AFTER-1-TEST. DB2014.2 066400 PERFORM-AFTER-1-DELETE. DB2014.2 066500 PERFORM DE-LETE. DB2014.2 066600 PERFORM P-A-WRITE. DB2014.2 066700 GO TO DELETE-AFTER-SUBTEST. DB2014.2 066800 PERFORM-AFTER-1-TEST. DB2014.2 066900 IF KEY-1 IS EQUAL TO 31 DB2014.2 067000 MOVE "DEBUG PROC EXECUTED 31 TIMES" TO RE-MARK DB2014.2 067100 PERFORM PASS DB2014.2 067200 ELSE PERFORM FAIL DB2014.2 067300 MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 067400 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 067500 MOVE 31 TO CORRECT-18V0. DB2014.2 067600 PERFORM P-A-WRITE. DB2014.2 067700 IF KEY-1 IS EQUAL TO 0 DB2014.2 067800 GO TO DELETE-AFTER-SUBTEST. DB2014.2 067900 PERFORM-AFT-1A. DB2014.2 068000 MOVE "PERFORM-AFT-1A" TO PAR-NAME. DB2014.2 068100 IF CONTENTS-1 IS EQUAL TO "01" DB2014.2 068200 PERFORM PASS DB2014.2 068300 ELSE PERFORM FAIL DB2014.2 068400 MOVE "01" TO CORRECT-A DB2014.2 068500 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 068600 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 068700 GO TO P-A-WRITE. DB2014.2 068800 DELETE-AFTER-SUBTEST. DB2014.2 068900 MOVE "PERFORM-AFT-1A" TO PAR-NAME. DB2014.2 069000 PERFORM DE-LETE. DB2014.2 069100 P-A-WRITE. DB2014.2 069200 PERFORM PRINT-DETAIL. DB2014.2 069300 PERFORM-UNTIL-INIT. DB2014.2 069400 MOVE "PERFORM UNTIL" TO FEATURE. DB2014.2 069500 MOVE SPACES TO ITEM-1. DB2014.2 069600 MOVE 0 TO KEY-1. DB2014.2 069700 MOVE "PERFORM-UNTIL-1" TO PAR-NAME. DB2014.2 069800 PERFORM-UNTIL-1. DB2014.2 069900 PERFORM P-V-1-SUBR DB2014.2 070000 VARYING ID-1A FROM 1 BY 1 UNTIL ID-1 IS GREATER THAN 5. DB2014.2 070100 GO TO PERFORM-UNTIL-1-TEST. DB2014.2 070200 PERFORM-UNTIL-1-DELETE. DB2014.2 070300 PERFORM DE-LETE. DB2014.2 070400 PERFORM P-U-WRITE. DB2014.2 070500 GO TO DELETE-UNTIL-SUBTEST. DB2014.2 070600 PERFORM-UNTIL-1-TEST. DB2014.2 070700 IF KEY-1 IS EQUAL TO 6 DB2014.2 070800 MOVE "DEBUG PROC EXECUTED 6 TIMES" TO RE-MARK DB2014.2 070900 PERFORM PASS DB2014.2 071000 ELSE PERFORM FAIL DB2014.2 071100 MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 071200 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 071300 MOVE 6 TO CORRECT-18V0. DB2014.2 071400 PERFORM P-A-WRITE. DB2014.2 071500 IF KEY-1 IS EQUAL TO 0 DB2014.2 071600 GO TO DELETE-UNTIL-SUBTEST. DB2014.2 071700 PERFORM-UNT-1A. DB2014.2 071800 MOVE "PERFORM-UNT-1A" TO PAR-NAME. DB2014.2 071900 IF CONTENTS-1 IS EQUAL TO "06" DB2014.2 072000 PERFORM PASS DB2014.2 072100 ELSE PERFORM FAIL DB2014.2 072200 MOVE "06" TO CORRECT-A DB2014.2 072300 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 072400 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 072500 GO TO P-U-WRITE. DB2014.2 072600 DELETE-UNTIL-SUBTEST. DB2014.2 072700 MOVE "PERFORM-UNT-1A" TO PAR-NAME. DB2014.2 072800 PERFORM DE-LETE. DB2014.2 072900 P-U-WRITE. DB2014.2 073000 PERFORM PRINT-DETAIL. DB2014.2 073100 BYPASSED-CODE-1. DB2014.2 073200 MOVE 0 TO ID-3 KEY-1 KEY-2. DB2014.2 073300 MULTIPLY ID-1A BY ID-3. DB2014.2 073400 MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2 073500 IF ID-3 IS NOT EQUAL TO 0 DB2014.2 073600 MOVE 1 TO ID-2 KEY-2. DB2014.2 073700 IF KEY-2 IS NOT EQUAL TO 0 DB2014.2 073800 GO TO BYPASSED-CODE-DELETE. DB2014.2 073900 IF KEY-1 IS EQUAL TO 0 DB2014.2 074000 PERFORM PASS DB2014.2 074100 ELSE PERFORM FAIL DB2014.2 074200 MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK. DB2014.2 074300 GO TO BYPASSED-CODE-WRITE. DB2014.2 074400 BYPASSED-CODE-DELETE. DB2014.2 074500 PERFORM DE-LETE. DB2014.2 074600 BYPASSED-CODE-WRITE. DB2014.2 074700 MOVE "BYPASSED-CODE-1" TO PAR-NAME. DB2014.2 074800 PERFORM PRINT-DETAIL. DB2014.2 074900 REDEFINED-ID-1. DB2014.2 075000 MOVE 0 TO KEY-1. DB2014.2 075100 MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2 075200 MOVE 0 TO ID-2A. DB2014.2 075300 IF KEY-1 IS EQUAL TO 0 DB2014.2 075400 PERFORM PASS DB2014.2 075500 ELSE PERFORM FAIL DB2014.2 075600 MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK. DB2014.2 075700 GO TO REDEFINED-ID-WRITE. DB2014.2 075800 REDEFINED-ID-DELETE. DB2014.2 075900 PERFORM DE-LETE. DB2014.2 076000 REDEFINED-ID-WRITE. DB2014.2 076100 MOVE "REDEFINED-ID-1" TO PAR-NAME. DB2014.2 076200 PERFORM PRINT-DETAIL. DB2014.2 076300 MOVE-TEST-1-INIT. DB2014.2 076400 MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2 076500 MOVE "MOVE-TEST-1" TO PAR-NAME. DB2014.2 076600 MOVE SPACES TO ITEM-1. DB2014.2 076700 MOVE 0 TO KEY-1. DB2014.2 076800******************************************************************DB2014.2 076900* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 077000* "MOVE-TEST-1A" SHOULD POINT TO THE EXECUTABLE STATEMENT *DB2014.2 077100* WHICH FOLLOWS THIS COMMENT SET AND WHICH READS, "MOVE 3 TO *DB2014.2 077200* ID-2.". *DB2014.2 077300******************************************************************DB2014.2 077400 MOVE-TEST-1. DB2014.2 077500 MOVE 3 TO ID-2. DB2014.2 077600 IF KEY-1 IS EQUAL TO 1 DB2014.2 077700 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 077800 PERFORM PASS DB2014.2 077900 PERFORM MOVE-TEST-WRITE DB2014.2 078000 GO TO MOVE-TEST-1A DB2014.2 078100 ELSE PERFORM FAIL DB2014.2 078200 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 078300 PERFORM MOVE-TEST-WRITE DB2014.2 078400 PERFORM DELETE-MOVE-1-SUBTESTS DB2014.2 078500 GO TO MOVE-TEST-2-INIT. DB2014.2 078600 MOVE-TEST-1-DELETE. DB2014.2 078700 PERFORM DE-LETE. DB2014.2 078800 PERFORM MOVE-TEST-WRITE. DB2014.2 078900 PERFORM DELETE-MOVE-1-SUBTESTS. DB2014.2 079000 GO TO MOVE-TEST-2-INIT. DB2014.2 079100 DELETE-MOVE-1-SUBTESTS. DB2014.2 079200 MOVE "MOVE-TEST-1A" TO PAR-NAME. DB2014.2 079300 PERFORM DE-LETE. DB2014.2 079400 PERFORM MOVE-TEST-WRITE. DB2014.2 079500 MOVE "MOVE-TEST-1B" TO PAR-NAME. DB2014.2 079600 PERFORM DE-LETE. DB2014.2 079700 PERFORM MOVE-TEST-WRITE. DB2014.2 079800 MOVE "MOVE-TEST-1C" TO PAR-NAME. DB2014.2 079900 PERFORM DE-LETE. DB2014.2 080000 PERFORM MOVE-TEST-WRITE. DB2014.2 080100 MOVE-TEST-1A. DB2014.2 080200 MOVE "MOVE-TEST-1A" TO PAR-NAME. DB2014.2 080300 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 080400 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 080500 MOVE LINE-1 TO COMPUTED-A. DB2014.2 080600 PERFORM INSPT. DB2014.2 080700 PERFORM MOVE-TEST-WRITE. DB2014.2 080800 MOVE-TEST-1B. DB2014.2 080900 MOVE "MOVE-TEST-1B" TO PAR-NAME. DB2014.2 --> -------------------- --> maximum size reached --> -------------------- ¤ Dauer der Verarbeitung: 0.42 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.Bot Zugriff |
