| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/COBOL/Test-Suite/COBOL/DB/ Datei vom 4.1.2008 mit Größe 121 kB |
|
Quelle db201a.cobSprache: 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 081000 IF UNQUAL-NAME-1 IS EQUAL TO "ID-2" DB2014.2 081100 PERFORM PASS DB2014.2 081200 ELSE PERFORM FAIL DB2014.2 081300 MOVE "ID-2" TO CORRECT-A DB2014.2 081400 MOVE NAME-1 TO COMPUTED-A. DB2014.2 081500 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 081600 PERFORM MOVE-TEST-WRITE. DB2014.2 081700 MOVE-TEST-1C. DB2014.2 081800 MOVE "MOVE-TEST-1C" TO PAR-NAME. DB2014.2 081900 IF CONTENTS-1 IS EQUAL TO "03" DB2014.2 082000 PERFORM PASS DB2014.2 082100 ELSE PERFORM FAIL DB2014.2 082200 MOVE "03" TO CORRECT-A DB2014.2 082300 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 082400 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 082500 PERFORM MOVE-TEST-WRITE. DB2014.2 082600 MOVE-TEST-2-INIT. DB2014.2 082700 MOVE "NOT ALL REF OF IDENT" TO FEATURE. DB2014.2 082800 MOVE "MOVE-TEST-2" TO PAR-NAME. DB2014.2 082900 MOVE 0 TO ID-1A. DB2014.2 083000 MOVE SPACES TO ITEM-1. DB2014.2 083100 MOVE 0 TO KEY-1. DB2014.2 083200 MOVE-TEST-2. DB2014.2 083300 MOVE 5 TO ID-1. DB2014.2 083400 IF KEY-1 IS EQUAL TO 1 DB2014.2 083500 MOVE "DEBUG EXECUTED" TO RE-MARK DB2014.2 083600 PERFORM PASS DB2014.2 083700 PERFORM MOVE-TEST-WRITE DB2014.2 083800 GO TO MOVE-TEST-2A DB2014.2 083900 ELSE PERFORM FAIL DB2014.2 084000 MOVE "DEBUG NOT EXECUTED" TO RE-MARK DB2014.2 084100 PERFORM MOVE-TEST-WRITE. DB2014.2 084200 DELETE-MOVE-2-SUBTEST. DB2014.2 084300 MOVE "MOVE-TEST-2A" TO PAR-NAME DB2014.2 084400 PERFORM DE-LETE. DB2014.2 084500 PERFORM MOVE-TEST-WRITE. DB2014.2 084600 GO TO MOVE-TEST-3-DELETE. DB2014.2 084700 MOVE-TEST-2A. DB2014.2 084800 MOVE "MOVE-TEST-2A" TO PAR-NAME. DB2014.2 084900 IF CONTENTS-1 IS EQUAL TO "05" DB2014.2 085000 PERFORM PASS DB2014.2 085100 ELSE PERFORM FAIL DB2014.2 085200 MOVE "05" TO CORRECT-A DB2014.2 085300 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 085400 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 085500 PERFORM MOVE-TEST-WRITE. DB2014.2 085600 MOVE-TEST-3-INIT. DB2014.2 085700 MOVE "REPEATED NOT ALL REF" TO FEATURE. DB2014.2 085800 MOVE "MOVE-TEST-3" TO PAR-NAME. DB2014.2 085900 MOVE 5 TO ID-1A. DB2014.2 086000 MOVE SPACES TO ITEM-1. DB2014.2 086100 MOVE 0 TO KEY-1. DB2014.2 086200 MOVE-TEST-3. DB2014.2 086300 MOVE 5 TO ID-1. DB2014.2 086400 IF KEY-1 IS EQUAL TO 1 DB2014.2 086500 MOVE "REPEATED MOVE INVOKED PROC" TO RE-MARK DB2014.2 086600 ELSE MOVE "REPEATED MOVE DIDN""T CALL PROC" TO RE-MARK. DB2014.2 086700 MOVE "INFO" TO P-OR-F. DB2014.2 086800 PERFORM MOVE-TEST-WRITE. DB2014.2 086900 GO TO MOVE-TEST-4-INIT. DB2014.2 087000 MOVE-TEST-3-DELETE. DB2014.2 087100 MOVE "REPEATED/NOT ALL REF" TO FEATURE. DB2014.2 087200 MOVE "MOVE-TEST-3" TO PAR-NAME. DB2014.2 087300 PERFORM DE-LETE. DB2014.2 087400 PERFORM MOVE-TEST-WRITE. DB2014.2 087500 MOVE-TEST-4-INIT. DB2014.2 087600 MOVE 2 TO ID-2A. DB2014.2 087700 MOVE SPACES TO ITEM-1. DB2014.2 087800 MOVE 0 TO KEY-1. DB2014.2 087900 MOVE "SRC OPR/ALL REF" TO FEATURE. DB2014.2 088000 MOVE "MOVE-TEST-4" TO PAR-NAME. DB2014.2 088100******************************************************************DB2014.2 088200* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 088300* "MOVE-TEST-4A" SHOULD POINT TO THE EXECUTABLE STATEMENT *DB2014.2 088400* WHICH FOLLOWS THIS COMMENT SET AND WHICH READS, "MOVE ID-2 *DB2014.2 088500* TO ID-3.". *DB2014.2 088600******************************************************************DB2014.2 088700 MOVE-TEST-4. DB2014.2 088800 MOVE ID-2 TO ID-3. DB2014.2 088900 IF KEY-1 IS EQUAL TO 1 DB2014.2 089000 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 089100 PERFORM PASS DB2014.2 089200 PERFORM MOVE-TEST-WRITE DB2014.2 089300 GO TO MOVE-TEST-4A DB2014.2 089400 ELSE PERFORM FAIL DB2014.2 089500 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 089600 PERFORM MOVE-TEST-WRITE DB2014.2 089700 PERFORM DELETE-MOVE-4-SUBTESTS DB2014.2 089800 GO TO MOVE-TEST-5-INIT. DB2014.2 089900 MOVE-TEST-4-DELETE. DB2014.2 090000 PERFORM DE-LETE. DB2014.2 090100 PERFORM MOVE-TEST-WRITE. DB2014.2 090200 PERFORM DELETE-MOVE-4-SUBTESTS. DB2014.2 090300 GO TO MOVE-TEST-5-INIT. DB2014.2 090400 DELETE-MOVE-4-SUBTESTS. DB2014.2 090500 MOVE "MOVE-TEST-4A" TO PAR-NAME. DB2014.2 090600 PERFORM DE-LETE. DB2014.2 090700 PERFORM MOVE-TEST-WRITE. DB2014.2 090800 MOVE "MOVE-TEST-4B" TO PAR-NAME. DB2014.2 090900 PERFORM DE-LETE. DB2014.2 091000 PERFORM MOVE-TEST-WRITE. DB2014.2 091100 MOVE "MOVE-TEST-4C" TO PAR-NAME. DB2014.2 091200 PERFORM DE-LETE. DB2014.2 091300 PERFORM MOVE-TEST-WRITE. DB2014.2 091400 MOVE-TEST-4A. DB2014.2 091500 MOVE "MOVE-TEST-4A" TO PAR-NAME. DB2014.2 091600 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 091700 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 091800 MOVE LINE-1 TO COMPUTED-A. DB2014.2 091900 PERFORM INSPT. DB2014.2 092000 PERFORM MOVE-TEST-WRITE. DB2014.2 092100 MOVE-TEST-4B. DB2014.2 092200 MOVE "MOVE-TEST-4B" TO PAR-NAME. DB2014.2 092300 IF UNQUAL-NAME-1 IS EQUAL TO "ID-2" DB2014.2 092400 PERFORM PASS DB2014.2 092500 ELSE PERFORM FAIL DB2014.2 092600 MOVE "ID-2" TO CORRECT-A DB2014.2 092700 MOVE NAME-1 TO COMPUTED-A. DB2014.2 092800 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 092900 PERFORM MOVE-TEST-WRITE. DB2014.2 093000 MOVE-TEST-4C. DB2014.2 093100 MOVE "MOVE-TEST-4C" TO PAR-NAME. DB2014.2 093200 IF CONTENTS-1 IS EQUAL TO "02" DB2014.2 093300 PERFORM PASS DB2014.2 093400 ELSE PERFORM FAIL DB2014.2 093500 MOVE "02" TO CORRECT-A DB2014.2 093600 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 093700 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 093800 PERFORM MOVE-TEST-WRITE. DB2014.2 093900 MOVE-TEST-5-INIT. DB2014.2 094000 MOVE 2 TO ID-1A. DB2014.2 094100 MOVE SPACES TO ITEM-1. DB2014.2 094200 MOVE 0 TO KEY-1 DB2014.2 094300 MOVE "SRC OPR/NOT ALL REF" TO FEATURE. DB2014.2 094400 MOVE "MOVE-TEST-5" TO PAR-NAME. DB2014.2 094500 MOVE-TEST-5. DB2014.2 094600 MOVE ID-1 TO ID-3. DB2014.2 094700 IF KEY-1 IS EQUAL TO 0 DB2014.2 094800 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 094900 PERFORM PASS DB2014.2 095000 ELSE PERFORM FAIL DB2014.2 095100 MOVE "DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2 095200 PERFORM MOVE-TEST-WRITE. DB2014.2 095300 GO TO ADD-TEST-1-INIT. DB2014.2 095400 MOVE-TEST-5-DELETE. DB2014.2 095500 PERFORM DE-LETE. DB2014.2 095600 MOVE-TEST-WRITE. DB2014.2 095700 PERFORM PRINT-DETAIL. DB2014.2 095800 ADD-TEST-1-INIT. DB2014.2 095900 MOVE 1 TO ID-2A. DB2014.2 096000 MOVE SPACES TO ITEM-1. DB2014.2 096100 MOVE 0 TO KEY-1 ID-3. DB2014.2 096200 MOVE "MULT SRC OPR/ALL REF" TO FEATURE. DB2014.2 096300 MOVE "ADD-TEST-1" TO PAR-NAME. DB2014.2 096400******************************************************************DB2014.2 096500* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 096600* "ADD-TEST-1A" SHOULD POINT TO THE EXECUTABLE STATEMENT *DB2014.2 096700* WHICH FOLLOWS THIS COMMENT SET AND WHICH READS, *DB2014.2 096800* "ADD ID-2 ID-2 ID-2 ID-2 TO ID-3.". *DB2014.2 096900******************************************************************DB2014.2 097000 ADD-TEST-1. DB2014.2 097100 ADD ID-2 ID-2 ID-2 ID-2 TO ID-3. DB2014.2 097200 IF KEY-1 IS EQUAL TO 1 DB2014.2 097300 PERFORM PASS DB2014.2 097400 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 097500 ELSE PERFORM FAIL DB2014.2 097600 MOVE "NO. OF TIMES DEBUG EXECUTED" TO RE-MARK DB2014.2 097700 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 097800 MOVE 1 TO CORRECT-18V0. DB2014.2 097900 PERFORM ADD-TEST-WRITE. DB2014.2 098000 GO TO ADD-TEST-1A. DB2014.2 098100 ADD-TEST-1-DELETE. DB2014.2 098200 PERFORM DE-LETE. DB2014.2 098300 PERFORM ADD-TEST-WRITE. DB2014.2 098400 PERFORM DELETE-ADD-1-SUBTESTS. DB2014.2 098500 GO TO ADD-TEST-2-INIT. DB2014.2 098600 DELETE-ADD-1-SUBTESTS. DB2014.2 098700 MOVE "ADD-TEST-1A" TO PAR-NAME. DB2014.2 098800 PERFORM DE-LETE. DB2014.2 098900 PERFORM ADD-TEST-WRITE. DB2014.2 099000 MOVE "ADD-TEST-1B" TO PAR-NAME. DB2014.2 099100 PERFORM DE-LETE. DB2014.2 099200 PERFORM ADD-TEST-WRITE. DB2014.2 099300 MOVE "ADD-TEST-1C" TO PAR-NAME. DB2014.2 099400 PERFORM DE-LETE. DB2014.2 099500 PERFORM ADD-TEST-WRITE. DB2014.2 099600 ADD-TEST-1A. DB2014.2 099700 IF KEY-1 IS EQUAL TO 0 DB2014.2 099800 PERFORM DELETE-ADD-1-SUBTESTS DB2014.2 099900 GO TO ADD-TEST-2-INIT. DB2014.2 100000 MOVE "ADD-TEST-1A" TO PAR-NAME. DB2014.2 100100 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 100200 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 100300 MOVE LINE-1 TO COMPUTED-A. DB2014.2 100400 PERFORM INSPT. DB2014.2 100500 PERFORM ADD-TEST-WRITE. DB2014.2 100600 ADD-TEST-1B. DB2014.2 100700 MOVE "ADD-TEST-1B" TO PAR-NAME. DB2014.2 100800 IF UNQUAL-NAME-1 IS EQUAL TO "ID-2" DB2014.2 100900 PERFORM PASS DB2014.2 101000 ELSE PERFORM FAIL DB2014.2 101100 MOVE "ID-2" TO CORRECT-A DB2014.2 101200 MOVE NAME-1 TO COMPUTED-A. DB2014.2 101300 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 101400 PERFORM ADD-TEST-WRITE. DB2014.2 101500 ADD-TEST-1C. DB2014.2 101600 MOVE "ADD-TEST-1C" TO PAR-NAME. DB2014.2 101700 IF CONTENTS-1 IS EQUAL TO "01" DB2014.2 101800 PERFORM PASS DB2014.2 101900 ELSE PERFORM FAIL DB2014.2 102000 MOVE "01" TO CORRECT-A DB2014.2 102100 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 102200 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 102300 PERFORM ADD-TEST-WRITE. DB2014.2 102400 ADD-TEST-2-INIT. DB2014.2 102500 MOVE 1 TO ID-1A. DB2014.2 102600 MOVE SPACES TO ITEM-1. DB2014.2 102700 MOVE 0 TO KEY-1 ID-3. DB2014.2 102800 MOVE "MULT SRC OPR/NOT ALL" TO FEATURE. DB2014.2 102900 MOVE "ADD-TEST-2" TO PAR-NAME. DB2014.2 103000 ADD-TEST-2. DB2014.2 103100 ADD ID-1 ID-1 ID-1 ID-1 TO ID-3. DB2014.2 103200 IF KEY-1 IS EQUAL TO 0 DB2014.2 103300 PERFORM PASS DB2014.2 103400 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 103500 ELSE PERFORM FAIL DB2014.2 103600 MOVE "NO. OF TIMES DEBUG EXECUTED" TO RE-MARK DB2014.2 103700 MOVE KEY-1 TO COMPUTED-A DB2014.2 103800 MOVE "0" TO CORRECT-A. DB2014.2 103900 PERFORM ADD-TEST-WRITE. DB2014.2 104000 GO TO ADD-TEST-3-INIT. DB2014.2 104100 ADD-TEST-2-DELETE. DB2014.2 104200 PERFORM DE-LETE. DB2014.2 104300 PERFORM ADD-TEST-WRITE. DB2014.2 104400 ADD-TEST-3-INIT. DB2014.2 104500 MOVE 1 TO ID-2A. DB2014.2 104600 MOVE SPACES TO ITEM-1. DB2014.2 104700 MOVE 0 TO KEY-1. DB2014.2 104800 MOVE "SRC-RCV OPR/ALL REF" TO FEATURE. DB2014.2 104900 MOVE "ADD-TEST-3" TO PAR-NAME. DB2014.2 105000 ADD-TEST-3. DB2014.2 105100 ADD ID-2 ID-2 ID-2 ID-2 TO ID-2. DB2014.2 105200 IF KEY-1 IS EQUAL TO 1 DB2014.2 105300 PERFORM PASS DB2014.2 105400 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 105500 PERFORM ADD-TEST-WRITE DB2014.2 105600 GO TO ADD-TEST-3A DB2014.2 105700 ELSE PERFORM FAIL DB2014.2 105800 MOVE "NO. OF TIMES DEBUG EXECUTED" TO RE-MARK DB2014.2 105900 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 106000 MOVE 1 TO CORRECT-18V0. DB2014.2 106100 PERFORM ADD-TEST-WRITE. DB2014.2 106200 IF KEY-1 IS EQUAL TO 0 DB2014.2 106300 PERFORM DELETE-ADD-TEST-3-SUBTEST DB2014.2 106400 GO TO ADD-TEST-4-INIT DB2014.2 106500 ELSE GO TO ADD-TEST-3A. DB2014.2 106600 ADD-TEST-3-DELETE. DB2014.2 106700 PERFORM DE-LETE. DB2014.2 106800 PERFORM ADD-TEST-WRITE. DB2014.2 106900 PERFORM DELETE-ADD-TEST-3-SUBTEST. DB2014.2 107000 GO TO ADD-TEST-4-INIT. DB2014.2 107100 DELETE-ADD-TEST-3-SUBTEST. DB2014.2 107200 MOVE "ADD-TEST-3A" TO PAR-NAME. DB2014.2 107300 PERFORM DE-LETE. DB2014.2 107400 PERFORM ADD-TEST-WRITE. DB2014.2 107500 ADD-TEST-3A. DB2014.2 107600 MOVE "ADD-TEST-3A" TO PAR-NAME. DB2014.2 107700 IF CONTENTS-1 IS EQUAL TO "05" DB2014.2 107800 PERFORM PASS DB2014.2 107900 ELSE PERFORM FAIL DB2014.2 108000 MOVE "05" TO CORRECT-A DB2014.2 108100 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 108200 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 108300 PERFORM ADD-TEST-WRITE. DB2014.2 108400 ADD-TEST-4-INIT. DB2014.2 108500 MOVE 1 TO ID-1A. DB2014.2 108600 MOVE SPACES TO ITEM-1. DB2014.2 108700 MOVE 0 TO KEY-1. DB2014.2 108800 MOVE "SRC-RCV OPR/NOT ALL" TO FEATURE. DB2014.2 108900 MOVE "ADD-TEST-4" TO PAR-NAME. DB2014.2 109000 ADD-TEST-4. DB2014.2 109100 ADD ID-1 ID-1 ID-1 ID-1 TO ID-1. DB2014.2 109200 IF KEY-1 IS EQUAL TO 1 DB2014.2 109300 PERFORM PASS DB2014.2 109400 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 109500 PERFORM ADD-TEST-WRITE DB2014.2 109600 GO TO ADD-TEST-4A DB2014.2 109700 ELSE PERFORM FAIL DB2014.2 109800 MOVE "NO. OF TIMES DEBUG EXECUTED" TO RE-MARK DB2014.2 109900 MOVE KEY-1 TO COMPUTED-18V0 DB2014.2 110000 MOVE 1 TO CORRECT-18V0. DB2014.2 110100 PERFORM ADD-TEST-WRITE. DB2014.2 110200 IF KEY-1 IS EQUAL TO 0 DB2014.2 110300 PERFORM DELETE-ADD-TEST-4-SUBTEST DB2014.2 110400 GO TO SUBC-TEST-1-INIT DB2014.2 110500 ELSE GO TO ADD-TEST-4A. DB2014.2 110600 ADD-TEST-4-DELETE. DB2014.2 110700 PERFORM DE-LETE. DB2014.2 110800 PERFORM ADD-TEST-WRITE. DB2014.2 110900 PERFORM DELETE-ADD-TEST-4-SUBTEST. DB2014.2 111000 GO TO SUBC-TEST-1-INIT. DB2014.2 111100 DELETE-ADD-TEST-4-SUBTEST. DB2014.2 111200 MOVE "ADD-TEST-4A" TO PAR-NAME. DB2014.2 111300 PERFORM DE-LETE. DB2014.2 111400 PERFORM ADD-TEST-WRITE. DB2014.2 111500 ADD-TEST-4A. DB2014.2 111600 MOVE "ADD-TEST-4A" TO PAR-NAME. DB2014.2 111700 IF CONTENTS-1 IS EQUAL TO "05" DB2014.2 111800 PERFORM PASS DB2014.2 111900 ELSE PERFORM FAIL DB2014.2 112000 MOVE "05" TO CORRECT-A DB2014.2 112100 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 112200 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 112300 ADD-TEST-WRITE. DB2014.2 112400 PERFORM PRINT-DETAIL. DB2014.2 112500 SUBC-TEST-1-INIT. DB2014.2 112600 MOVE "SUBSC-TEST-1" TO PAR-NAME. DB2014.2 112700 MOVE "ONE-DIM SUBSCRIPT" TO FEATURE. DB2014.2 112800 MOVE SPACE TO ITEM-1. DB2014.2 112900 MOVE 0 TO KEY-1. DB2014.2 113000 SET I TO 5. DB2014.2 113100******************************************************************DB2014.2 113200* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 113300* "SUBSC-TEST-1A" SHOULD POINT TO THE EXECUTABLE STATEMENT *DB2014.2 113400* WHICH FOLLOWS THIS COMMENT SET AND WHICH READS, "MOVE *DB2014.2 113500* "ABCDE" TO B-LEVEL1 (I).". *DB2014.2 113600******************************************************************DB2014.2 113700 SUBSC-TEST-1. DB2014.2 113800 MOVE "ABCDE" TO B-LEVEL-1 (I). DB2014.2 113900 IF KEY-1 IS EQUAL TO 1 DB2014.2 114000 PERFORM PASS DB2014.2 114100 MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK DB2014.2 114200 PERFORM SUBSC-TEST-WRITE DB2014.2 114300 GO TO SUBSC-TEST-1A DB2014.2 114400 ELSE PERFORM FAIL DB2014.2 114500 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 114600 PERFORM SUBSC-TEST-WRITE DB2014.2 114700 PERFORM DELETE-SUBSC-TEST-1-SUBTESTS DB2014.2 114800 GO TO SUBSC-TEST-2-INIT. DB2014.2 114900 SUBSC-TEST-1-DELETE. DB2014.2 115000 PERFORM DE-LETE. DB2014.2 115100 PERFORM SUBSC-TEST-WRITE. DB2014.2 115200 PERFORM DELETE-SUBSC-TEST-1-SUBTESTS. DB2014.2 115300 GO TO SUBSC-TEST-2-INIT. DB2014.2 115400 DELETE-SUBSC-TEST-1-SUBTESTS. DB2014.2 115500 MOVE "SUBSC-TEST-1A" TO PAR-NAME. DB2014.2 115600 PERFORM DE-LETE. DB2014.2 115700 PERFORM SUBSC-TEST-WRITE. DB2014.2 115800 MOVE "SUBSC-TEST-1B" TO PAR-NAME. DB2014.2 115900 PERFORM DE-LETE. DB2014.2 116000 PERFORM SUBSC-TEST-WRITE. DB2014.2 116100 MOVE "SUBSC-TEST-1C" TO PAR-NAME. DB2014.2 116200 PERFORM DE-LETE. DB2014.2 116300 PERFORM SUBSC-TEST-WRITE. DB2014.2 116400 MOVE "SUBSC-TEST-1D" TO PAR-NAME. DB2014.2 116500 PERFORM DE-LETE. DB2014.2 116600 PERFORM SUBSC-TEST-WRITE. DB2014.2 116700 MOVE "SUBSC-TEST-1E" TO PAR-NAME. DB2014.2 116800 PERFORM DE-LETE. DB2014.2 116900 PERFORM SUBSC-TEST-WRITE. DB2014.2 117000 MOVE "SUBSC-TEST-1F" TO PAR-NAME. DB2014.2 117100 PERFORM DE-LETE. DB2014.2 117200 PERFORM SUBSC-TEST-WRITE. DB2014.2 117300 SUBSC-TEST-1A. DB2014.2 117400 MOVE "SUBSC-TEST-1A" TO PAR-NAME. DB2014.2 117500 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 117600 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 117700 MOVE LINE-1 TO COMPUTED-A. DB2014.2 117800 PERFORM INSPT. DB2014.2 117900 PERFORM SUBSC-TEST-WRITE. DB2014.2 118000 SUBSC-TEST-1B. DB2014.2 118100 MOVE "SUBSC-TEST-1B" TO PAR-NAME. DB2014.2 118200 IF UNQUAL-NAME-1 IS EQUAL TO "B-LEVEL-1" DB2014.2 118300 PERFORM PASS DB2014.2 118400 ELSE PERFORM FAIL DB2014.2 118500 MOVE "B-LEVEL-1" TO CORRECT-A DB2014.2 118600 MOVE NAME-1 TO COMPUTED-A. DB2014.2 118700 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 118800 PERFORM SUBSC-TEST-WRITE. DB2014.2 118900 SUBSC-TEST-1C. DB2014.2 119000 MOVE "SUBSC-TEST-1C" TO PAR-NAME. DB2014.2 119100 IF CONTENTS-1 IS EQUAL TO "ABCDE" DB2014.2 119200 PERFORM PASS DB2014.2 119300 ELSE PERFORM FAIL DB2014.2 119400 MOVE "ABCDE" TO CORRECT-A DB2014.2 119500 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 119600 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 119700 PERFORM SUBSC-TEST-WRITE. DB2014.2 119800 SUBSC-TEST-1D. DB2014.2 119900 MOVE "SUBSC-TEST-1D" TO PAR-NAME. DB2014.2 120000 IF SUB-1-1 IS EQUAL TO "0005" DB2014.2 120100 PERFORM PASS DB2014.2 120200 ELSE PERFORM FAIL DB2014.2 120300 MOVE "0005" TO CORRECT-A DB2014.2 120400 MOVE SUB-1-1 TO COMPUTED-A. DB2014.2 120500 MOVE "DEBUG-SUB-1" TO RE-MARK. DB2014.2 120600 PERFORM SUBSC-TEST-WRITE. DB2014.2 120700 SUBSC-TEST-1E. DB2014.2 120800 MOVE "SUBSC-TEST-1E" TO PAR-NAME. DB2014.2 120900 PERFORM DE-LETE. DB2014.2 121000 PERFORM SUBSC-TEST-WRITE. DB2014.2 121100 SUBSC-TEST-1F. DB2014.2 121200 MOVE "SUBSC-TEST-1F" TO PAR-NAME. DB2014.2 121300 PERFORM DE-LETE. DB2014.2 121400 PERFORM SUBSC-TEST-WRITE. DB2014.2 121500 SUBSC-TEST-2-INIT. DB2014.2 121600 MOVE "SUBSC-TEST-2" TO PAR-NAME. DB2014.2 121700 MOVE "THR-DIM SUBSCRIPT" TO FEATURE. DB2014.2 121800 MOVE SPACES TO ITEM-1. DB2014.2 121900 MOVE 0 TO KEY-1. DB2014.2 122000 SET I TO 4 DB2014.2 122100 SET J TO 6. DB2014.2 122200 SET K TO 8. DB2014.2 122300 SUBSC-TEST-2. DB2014.2 122400 MOVE "Z" TO B-LEVEL-3 (I, J, K). DB2014.2 122500 IF KEY-1 IS EQUAL TO 1 DB2014.2 122600 PERFORM PASS DB2014.2 122700 MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK DB2014.2 122800 PERFORM SUBSC-TEST-WRITE DB2014.2 122900 GO TO SUBSC-TEST-2A DB2014.2 123000 ELSE PERFORM FAIL DB2014.2 123100 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 123200 PERFORM SUBSC-TEST-WRITE DB2014.2 123300 PERFORM DELETE-SUBSC-TEST-2-SUBTESTS DB2014.2 123400 GO TO QUAL-TEST-1-INIT. DB2014.2 123500 SUBSC-TEST-2-DELETE. DB2014.2 123600 PERFORM DE-LETE. DB2014.2 123700 PERFORM SUBSC-TEST-WRITE. DB2014.2 123800 PERFORM DELETE-SUBSC-TEST-2-SUBTESTS. DB2014.2 123900 GO TO QUAL-TEST-1-INIT. DB2014.2 124000 DELETE-SUBSC-TEST-2-SUBTESTS. DB2014.2 124100 MOVE "SUBSC-TEST-2A" TO PAR-NAME. DB2014.2 124200 PERFORM DE-LETE. DB2014.2 124300 PERFORM SUBSC-TEST-WRITE. DB2014.2 124400 MOVE "SUBSC-TEST-2B" TO PAR-NAME. DB2014.2 124500 PERFORM DE-LETE. DB2014.2 124600 PERFORM SUBSC-TEST-WRITE. DB2014.2 124700 MOVE "SUBSC-TEST-2C" TO PAR-NAME. DB2014.2 124800 PERFORM DE-LETE. DB2014.2 124900 PERFORM SUBSC-TEST-WRITE. DB2014.2 125000 MOVE "SUBSC-TEST-2D" TO PAR-NAME. DB2014.2 125100 PERFORM DE-LETE. DB2014.2 125200 PERFORM SUBSC-TEST-WRITE. DB2014.2 125300 SUBSC-TEST-2A. DB2014.2 125400 MOVE "SUBSC-TEST-2A" TO PAR-NAME. DB2014.2 125500 IF CONTENTS-1 IS EQUAL TO "Z" DB2014.2 125600 PERFORM PASS DB2014.2 125700 ELSE PERFORM FAIL DB2014.2 125800 MOVE "Z" TO CORRECT-A DB2014.2 125900 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 126000 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 126100 PERFORM SUBSC-TEST-WRITE. DB2014.2 126200 SUBSC-TEST-2B. DB2014.2 126300 MOVE "SUBSC-TEST-2B" TO PAR-NAME. DB2014.2 126400 IF SUB-1-1 IS EQUAL TO "0004" DB2014.2 126500 PERFORM PASS DB2014.2 126600 ELSE PERFORM FAIL DB2014.2 126700 MOVE "0004" TO CORRECT-A DB2014.2 126800 MOVE SUB-1-1 TO COMPUTED-A. DB2014.2 126900 MOVE "DEBUG-SUB-1" TO RE-MARK. DB2014.2 127000 PERFORM SUBSC-TEST-WRITE. DB2014.2 127100 SUBSC-TEST-2C. DB2014.2 127200 MOVE "SUBSC-TEST-2C" TO PAR-NAME. DB2014.2 127300 IF SUB-2-1 IS EQUAL TO "0006" DB2014.2 127400 PERFORM PASS DB2014.2 127500 ELSE PERFORM FAIL DB2014.2 127600 MOVE "0006" TO CORRECT-A DB2014.2 127700 MOVE SUB-2-1 TO COMPUTED-A. DB2014.2 127800 MOVE "DEBUG-SUB-2" TO RE-MARK. DB2014.2 127900 PERFORM SUBSC-TEST-WRITE. DB2014.2 128000 SUBSC-TEST-2D. DB2014.2 128100 MOVE "SUBSC-TEST-2D" TO PAR-NAME. DB2014.2 128200 IF SUB-3-1 IS EQUAL TO "0008" DB2014.2 128300 PERFORM PASS DB2014.2 128400 ELSE PERFORM FAIL DB2014.2 128500 MOVE "0008" TO CORRECT-A DB2014.2 128600 MOVE SUB-3-1 TO COMPUTED-A. DB2014.2 128700 MOVE "DEBUG-SUB-3" TO RE-MARK. DB2014.2 128800 SUBSC-TEST-WRITE. DB2014.2 128900 PERFORM PRINT-DETAIL. DB2014.2 129000 QUAL-TEST-1-INIT. DB2014.2 129100 MOVE "QUAL-TEST-1" TO PAR-NAME. DB2014.2 129200 MOVE "1-LEVEL QUALIFICATN" TO FEATURE. DB2014.2 129300 MOVE SPACES TO ITEM-1. DB2014.2 129400 MOVE 0 TO KEY-1. DB2014.2 129500******************************************************************DB2014.2 129600* THE DEBUG-LINE (INSPT) TEST NAMED IN THE OUTPUT REPORT AS *DB2014.2 129700* "QUAL-TEST-1A" SHOULD POINT TO THE EXECUTABLE STATEMENT *DB2014.2 129800* WHICH FOLLOWS THIS COMMENT SET AND WHICH READS, *DB2014.2 129900* "MOVE "XY" TO AB2 OF A2.". *DB2014.2 130000******************************************************************DB2014.2 130100 QUAL-TEST-1. DB2014.2 130200 MOVE "XY" TO AB2 OF A2. DB2014.2 130300 IF KEY-1 IS EQUAL TO 1 DB2014.2 130400 PERFORM PASS DB2014.2 130500 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 130600 PERFORM QUAL-TEST-WRITE DB2014.2 130700 GO TO QUAL-TEST-1A DB2014.2 130800 ELSE PERFORM FAIL DB2014.2 130900 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 131000 PERFORM QUAL-TEST-WRITE DB2014.2 131100 PERFORM DELETE-QUAL-TEST-1-SUBTESTS DB2014.2 131200 GO TO QUAL-TEST-2-INIT. DB2014.2 131300 QUAL-TEST-1-DELETE. DB2014.2 131400 PERFORM DE-LETE. DB2014.2 131500 PERFORM QUAL-TEST-WRITE. DB2014.2 131600 PERFORM DELETE-QUAL-TEST-1-SUBTESTS. DB2014.2 131700 GO TO QUAL-TEST-2-INIT. DB2014.2 131800 DELETE-QUAL-TEST-1-SUBTESTS. DB2014.2 131900 MOVE "QUAL-TEST-1A" TO PAR-NAME. DB2014.2 132000 PERFORM DE-LETE DB2014.2 132100 PERFORM QUAL-TEST-WRITE. DB2014.2 132200 MOVE "QUAL-TEST-1B" TO PAR-NAME. DB2014.2 132300 PERFORM DE-LETE. DB2014.2 132400 PERFORM QUAL-TEST-WRITE. DB2014.2 132500 MOVE "QUAL-TEST-1C" TO PAR-NAME. DB2014.2 132600 PERFORM DE-LETE. DB2014.2 132700 PERFORM QUAL-TEST-WRITE. DB2014.2 132800 QUAL-TEST-1A. DB2014.2 132900 MOVE "QUAL-TEST-1A" TO PAR-NAME. DB2014.2 133000 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2 133100 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2 133200 MOVE LINE-1 TO COMPUTED-A. DB2014.2 133300 PERFORM INSPT. DB2014.2 133400 PERFORM QUAL-TEST-WRITE. DB2014.2 133500 QUAL-TEST-1B. DB2014.2 133600 MOVE "QUAL-TEST-1B" TO PAR-NAME. DB2014.2 133700 IF NAME-1 IS EQUAL TO "AB2 OF A2" OR DB2014.2 133800 NAME-1 IS EQUAL TO "AB2 IN A2" DB2014.2 133900 PERFORM PASS DB2014.2 134000 ELSE PERFORM FAIL DB2014.2 134100 MOVE "AB2 OF(IN) A2" TO CORRECT-A DB2014.2 134200 MOVE NAME-1 TO COMPUTED-A. DB2014.2 134300 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 134400 PERFORM QUAL-TEST-WRITE. DB2014.2 134500 QUAL-TEST-1C. DB2014.2 134600 MOVE "QUAL-TEST-1C" TO PAR-NAME. DB2014.2 134700 IF CONTENTS-1 IS EQUAL TO "XY" DB2014.2 134800 PERFORM PASS DB2014.2 134900 ELSE PERFORM FAIL DB2014.2 135000 MOVE "XY" TO CORRECT-A DB2014.2 135100 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 135200 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 135300 PERFORM QUAL-TEST-WRITE. DB2014.2 135400 QUAL-TEST-2-INIT. DB2014.2 135500 MOVE "QUAL-TEST-2" TO PAR-NAME. DB2014.2 135600 MOVE "1-LEVEL QUALIFICATN" TO FEATURE. DB2014.2 135700 MOVE SPACES TO ITEM-1. DB2014.2 135800 MOVE 0 TO KEY-1. DB2014.2 135900 QUAL-TEST-2. DB2014.2 136000 MOVE "CD" TO AB2 OF A1. DB2014.2 136100 IF KEY-1 IS EQUAL TO 0 DB2014.2 136200 PERFORM PASS DB2014.2 136300 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 136400 ELSE PERFORM FAIL DB2014.2 136500 MOVE "DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2 136600 PERFORM QUAL-TEST-WRITE. DB2014.2 136700 GO TO QUAL-TEST-3-INIT. DB2014.2 136800 QUAL-TEST-2-DELETE. DB2014.2 136900 PERFORM DE-LETE. DB2014.2 137000 PERFORM QUAL-TEST-WRITE. DB2014.2 137100 QUAL-TEST-3-INIT. DB2014.2 137200 MOVE "QUAL-TEST-3" TO PAR-NAME. DB2014.2 137300 MOVE "1-LEVEL QUALIFICATN" TO FEATURE. DB2014.2 137400 MOVE SPACES TO ITEM-1. DB2014.2 137500 MOVE 0 TO KEY-1. DB2014.2 137600 QUAL-TEST-3. DB2014.2 137700 MOVE "Q" TO ABC2 OF AB2 OF A2. DB2014.2 137800 IF KEY-1 IS EQUAL TO 0 DB2014.2 137900 PERFORM PASS DB2014.2 138000 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 138100 ELSE PERFORM FAIL DB2014.2 138200 MOVE "DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2 138300 PERFORM QUAL-TEST-WRITE. DB2014.2 138400 GO TO QUAL-TEST-4-INIT. DB2014.2 138500 QUAL-TEST-3-DELETE. DB2014.2 138600 PERFORM DE-LETE. DB2014.2 138700 PERFORM QUAL-TEST-WRITE. DB2014.2 138800 QUAL-TEST-4-INIT. DB2014.2 138900 MOVE "QUAL-TEST-4" TO PAR-NAME. DB2014.2 139000 MOVE "2-LEVEL QUALIFICATN" TO FEATURE. DB2014.2 139100 MOVE SPACES TO ITEM-1. DB2014.2 139200 MOVE 0 TO KEY-1. DB2014.2 139300 QUAL-TEST-4. DB2014.2 139400 MOVE "G" TO ABC1 OF AB2 OF A1. DB2014.2 139500 IF KEY-1 IS EQUAL TO 1 DB2014.2 139600 PERFORM PASS DB2014.2 139700 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 139800 PERFORM QUAL-TEST-WRITE DB2014.2 139900 GO TO QUAL-TEST-4A DB2014.2 140000 ELSE PERFORM FAIL DB2014.2 140100 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 140200 PERFORM QUAL-TEST-WRITE DB2014.2 140300 PERFORM DELETE-QUAL-TEST-4-SUBTESTS DB2014.2 140400 GO TO QUAL-TEST-5-INIT. DB2014.2 140500 QUAL-TEST-4-DELETE. DB2014.2 140600 PERFORM DE-LETE. DB2014.2 140700 PERFORM QUAL-TEST-WRITE. DB2014.2 140800 PERFORM DELETE-QUAL-TEST-4-SUBTESTS. DB2014.2 140900 GO TO QUAL-TEST-5-INIT. DB2014.2 141000 DELETE-QUAL-TEST-4-SUBTESTS. DB2014.2 141100 MOVE "QUAL-TEST-4A" TO PAR-NAME. DB2014.2 141200 PERFORM DE-LETE. DB2014.2 141300 PERFORM QUAL-TEST-WRITE. DB2014.2 141400 MOVE "QUAL-TEST-4B" TO PAR-NAME. DB2014.2 141500 PERFORM DE-LETE. DB2014.2 141600 PERFORM QUAL-TEST-WRITE. DB2014.2 141700 QUAL-TEST-4A. DB2014.2 141800 MOVE "QUAL-TEST-4A" TO PAR-NAME. DB2014.2 141900 IF NAME-1 IS EQUAL TO "ABC1 OF AB2 OF A1" OR DB2014.2 142000 NAME-1 IS EQUAL TO "ABC1 IN AB2 IN A1" DB2014.2 142100 PERFORM PASS DB2014.2 142200 ELSE PERFORM FAIL DB2014.2 142300 MOVE "ABC1 OF AB2 OF A1" TO CORRECT-A DB2014.2 142400 MOVE NAME-1 TO COMPUTED-A. DB2014.2 142500 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 142600 PERFORM QUAL-TEST-WRITE. DB2014.2 142700 QUAL-TEST-4B. DB2014.2 142800 MOVE "QUAL-TEST-4B" TO PAR-NAME. DB2014.2 142900 IF CONTENTS-1 IS EQUAL TO "G" DB2014.2 143000 PERFORM PASS DB2014.2 143100 ELSE PERFORM FAIL DB2014.2 143200 MOVE "G" TO CORRECT-A DB2014.2 143300 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 143400 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 143500 PERFORM QUAL-TEST-WRITE. DB2014.2 143600 QUAL-TEST-5-INIT. DB2014.2 143700 MOVE "QUAL-TEST-5" TO PAR-NAME. DB2014.2 143800 MOVE "QUALIFIED SUBSC ITEM" TO FEATURE. DB2014.2 143900 MOVE SPACES TO ITEM-1. DB2014.2 144000 MOVE 0 TO KEY-1. DB2014.2 144100 QUAL-TEST-5. DB2014.2 144200 MOVE "F" TO AB1 OF A1 (3). DB2014.2 144300 IF KEY-1 IS EQUAL TO 1 DB2014.2 144400 PERFORM PASS DB2014.2 144500 MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2 144600 PERFORM QUAL-TEST-WRITE DB2014.2 144700 GO TO QUAL-TEST-5A DB2014.2 144800 ELSE PERFORM FAIL DB2014.2 144900 MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2 145000 PERFORM QUAL-TEST-WRITE DB2014.2 145100 PERFORM DELETE-QUAL-TEST-5-SUBTESTS DB2014.2 145200 GO TO END-OF-DB201A. DB2014.2 145300 QUAL-TEST-5-DELETE. DB2014.2 145400 PERFORM DE-LETE. DB2014.2 145500 PERFORM QUAL-TEST-WRITE. DB2014.2 145600 PERFORM DELETE-QUAL-TEST-5-SUBTESTS. DB2014.2 145700 GO TO END-OF-DB201A. DB2014.2 145800 DELETE-QUAL-TEST-5-SUBTESTS. DB2014.2 145900 MOVE "QUAL-TEST-5A" TO PAR-NAME. DB2014.2 146000 PERFORM DE-LETE. DB2014.2 146100 PERFORM QUAL-TEST-WRITE. DB2014.2 146200 MOVE "QUAL-TEST-5B" TO PAR-NAME. DB2014.2 146300 PERFORM DE-LETE. DB2014.2 146400 PERFORM QUAL-TEST-WRITE. DB2014.2 146500 MOVE "QUAL-TEST-5C" TO PAR-NAME. DB2014.2 146600 PERFORM DE-LETE. DB2014.2 146700 PERFORM QUAL-TEST-WRITE. DB2014.2 146800 MOVE "QUAL-TEST-5D" TO PAR-NAME. DB2014.2 146900 PERFORM DE-LETE. DB2014.2 147000 PERFORM QUAL-TEST-WRITE. DB2014.2 147100 MOVE "QUAL-TEST-5E" TO PAR-NAME. DB2014.2 147200 PERFORM DE-LETE. DB2014.2 147300 PERFORM QUAL-TEST-WRITE. DB2014.2 147400 QUAL-TEST-5A. DB2014.2 147500 MOVE "QUAL-TEST-5A" TO PAR-NAME. DB2014.2 147600 IF NAME-1 IS EQUAL TO "AB1 OF A1" OR DB2014.2 147700 NAME-1 IS EQUAL TO "AB1 IN A1" DB2014.2 147800 PERFORM PASS DB2014.2 147900 ELSE PERFORM FAIL DB2014.2 148000 MOVE "AB1 OF(IN) A1" TO CORRECT-A DB2014.2 148100 MOVE NAME-1 TO COMPUTED-A. DB2014.2 148200 MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2 148300 PERFORM QUAL-TEST-WRITE. DB2014.2 148400 QUAL-TEST-5B. DB2014.2 148500 MOVE "QUAL-TEST-5B" TO PAR-NAME. DB2014.2 148600 IF CONTENTS-1 IS EQUAL TO "F" DB2014.2 148700 PERFORM PASS DB2014.2 148800 ELSE PERFORM FAIL DB2014.2 148900 MOVE "F" TO CORRECT-A DB2014.2 149000 MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2 149100 MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2 149200 PERFORM QUAL-TEST-WRITE. DB2014.2 149300 QUAL-TEST-5C. DB2014.2 149400 MOVE "QUAL-TEST-5C" TO PAR-NAME. DB2014.2 149500 IF SUB-1-1 IS EQUAL TO "0003" DB2014.2 149600 PERFORM PASS DB2014.2 149700 ELSE PERFORM FAIL DB2014.2 149800 MOVE "0003" TO CORRECT-A DB2014.2 149900 MOVE SUB-1-1 TO COMPUTED-A. DB2014.2 150000 MOVE "DEBUG-SUB-1" TO RE-MARK. DB2014.2 150100 PERFORM QUAL-TEST-WRITE. DB2014.2 150200 QUAL-TEST-5D. DB2014.2 150300 MOVE "QUAL-TEST-5D" TO PAR-NAME. DB2014.2 150400 PERFORM DE-LETE. DB2014.2 150500 PERFORM QUAL-TEST-WRITE. DB2014.2 150600 QUAL-TEST-5E. DB2014.2 150700 MOVE "QUAL-TEST-5E" TO PAR-NAME. DB2014.2 150800 PERFORM DE-LETE. DB2014.2 150900 QUAL-TEST-WRITE. DB2014.2 151000 PERFORM PRINT-DETAIL. DB2014.2 151100 END-OF-DB201A. DB2014.2 151200 EXIT. DB2014.2 151300 CCVS-EXIT SECTION. DB2014.2 151400 CCVS-999999. DB2014.2 151500 GO TO CLOSE-FILES. DB2014.2
¤ Dauer der Verarbeitung: 0.49 Sekunden (vorverarbeitet am 2026-05-01) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26