000100 IDENTIFICATION DIVISION . DB2014.2PROGRAM-ID . DB2014.2AUTHOR . DB2014.2INSTALLATION . DB2014.2DATA AND TELECOMMUNICATION SERVICE . DB2014.2" HIGH " . DB2014.2DATE-WRITTEN . DB2014.2DATE / VALIDATION DATE DB2014.2"4.2 " . DB2014.2SECURITY . DB2014.2002200* 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 ENVIRONMENT DIVISION . DB2014.2CONFIGURATION SECTION . DB2014.2SOURCE-COMPUTER . DB2014.2WITH DEBUGGING MODE . DB2014.2OBJECT-COMPUTER . DB2014.2INPUT-OUTPUT SECTION . DB2014.2FILE-CONTROL . DB2014.2SELECT PRINT-FILE ASSIGN TO DB2014.2"C0085" . DB2014.2DATA DIVISION . DB2014.2FILE SECTION . DB2014.2FD PRINT-FILE DB2014.2LABEL RECORDS DB2014.2DATA RECORD IS PRINT-REC DUMMY-RECORD. DB2014.2PICTURE X(120). DB2014.2PICTURE X(120). DB2014.2WORKING-STORAGE SECTION . DB2014.2PIC 999 VALUE 0. DB2014.2PIC 9. DB2014.2PIC 9. DB2014.2PIC 99 VALUE ZERO . DB2014.2PIC X(6). DB2014.2PIC X(30). DB2014.2PIC X(30). DB2014.2PIC X(5). DB2014.2PIC X(5). DB2014.2PIC X(5). DB2014.2PIC X(30). DB2014.2PIC 99. DB2014.2PIC X(6). DB2014.2PIC X(30). DB2014.2PIC X(30). DB2014.2PIC X(30). DB2014.2PIC 99. DB2014.2REDEFINES ID-1 PIC 99. DB2014.2PIC 99. DB2014.2REDEFINES ID-2 PIC 99. DB2014.2PIC 99. DB2014.2PIC X OCCURS 5 TIMES. DB2014.2PIC X. DB2014.2PIC X. DB2014.2PIC X OCCURS 5 TIMES. DB2014.2PIC X. DB2014.2PIC X. DB2014.2OCCURS 10 TIMES INDEXED BY I. DB2014.2OCCURS 10 TIMES INDEXED BY J. DB2014.2OCCURS 10 TIMES INDEXED BY K PIC X. DB2014.2FILLER PICTURE X VALUE SPACE . DB2014.2PICTURE X(20) VALUE SPACE . DB2014.2FILLER PICTURE X VALUE SPACE . DB2014.2PICTURE X(5) VALUE SPACE . DB2014.2FILLER PICTURE X VALUE SPACE . DB2014.2FILLER PICTURE X(12) VALUE SPACE . DB2014.2PICTURE X VALUE SPACE . DB2014.2PICTURE 99 VALUE ZERO . DB2014.2FILLER PIC X(5) VALUE SPACE . DB2014.2FILLER PIC X(10) VALUE SPACE . DB2014.2PIC X(61). DB2014.2FILLER PIC X(30) VALUE SPACE . DB2014.2FILLER PIC X(17) VALUE " COMPUTED=" . DB2014.2PICTURE X(20) VALUE SPACE . DB2014.2REDEFINES COMPUTED-A PICTURE -9(9).9(9). DB2014.2REDEFINES COMPUTED-A PICTURE -.9(18). DB2014.2REDEFINES COMPUTED-A PICTURE -9(4).9(14). DB2014.2REDEFINES COMPUTED-A PICTURE -9(14).9(4). DB2014.2REDEFINES COMPUTED-A. DB2014.2PICTURE -9(18). DB2014.2FILLER PICTURE X. DB2014.2FILLER PIC X(50) VALUE SPACE . DB2014.2FILLER PIC X(30) VALUE SPACE . DB2014.2FILLER PIC X(17) VALUE " CORRECT =" . DB2014.2PICTURE X(20) VALUE SPACE . DB2014.2REDEFINES CORRECT-A PICTURE -9(9).9(9). DB2014.2REDEFINES CORRECT-A PICTURE -.9(18). DB2014.2REDEFINES CORRECT-A PICTURE -9(4).9(14). DB2014.2REDEFINES CORRECT-A PICTURE -9(14).9(4). DB2014.2REDEFINES CORRECT-A. DB2014.2PICTURE -9(18). DB2014.2FILLER PICTURE X. DB2014.2FILLER PIC X(50) VALUE SPACE . DB2014.2FILLER PICTURE IS X(99) VALUE IS " FEATURE PADB2014.2 "SS PARAGRAPH-NAME DB2014.2 " REMARKS" . DB2014.2FILLER PICTURE IS X(20) VALUE IS SPACE . DB2014.2FILLER PICTURE IS X VALUE IS SPACE . DB2014.2FILLER PICTURE IS X(6) VALUE IS "TESTED" . DB2014.2FILLER PICTURE IS X(15) VALUE IS SPACE . DB2014.2FILLER PICTURE IS X(4) VALUE IS "FAIL" . DB2014.2FILLER PICTURE IS X(94) VALUE IS SPACE . DB2014.2PICTURE 9(2) VALUE ZERO . DB2014.2PICTURE 99 VALUE ZERO . DB2014.2PICTURE 999 VALUE ZERO . DB2014.2PICTURE IS 999 VALUE IS ZERO . DB2014.2PIC 999 VALUE ZERO . DB2014.2PIC 999 VALUE ZERO . DB2014.2PIC 999 VALUE ZERO . DB2014.2PIC 999 VALUE ZERO . DB2014.2PIC X(120) VALUE SPACE . DB2014.2PIC 9(5) VALUE ZERO . DB2014.2FILLER PICTURE X(27) VALUE SPACE . DB2014.2FILLER PICTURE X(67) VALUE DB2014.2" FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION DB2014.2 " SYSTEM" . DB2014.2FILLER PICTURE X(26) VALUE SPACE . DB2014.2FILLER PICTURE X(52) VALUE IS DB2014.2"CCVS74 NCC COPY, NOT FOR DISTRIBUTION." . DB2014.2FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- " . DB2014.2PICTURE IS X(9). DB2014.2FILLER PICTURE IS X(40) VALUE IS SPACE . DB2014.2FILLER PICTURE X(34) VALUE DB2014.2" FOR OFFICIAL USE ONLY " . DB2014.2FILLER PICTURE X(58) VALUE DB2014.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .DB2014.2FILLER PICTURE X(28) VALUE DB2014.2" COPYRIGHT 1974 " . DB2014.2FILLER PICTURE IS X(52) VALUE IS SPACE . DB2014.2FILLER PICTURE IS X(14) VALUE IS "END OF TEST- " . DB2014.2PICTURE IS X(9). DB2014.2FILLER PICTURE X(45) VALUE IS DB2014.2" NTIS DISTRIBUTION COBOL 74" . DB2014.2FILLER PICTURE X(31) VALUE DB2014.2SPACE . DB2014.2FILLER PICTURE X(21) VALUE SPACE . DB2014.2PICTURE IS XXX VALUE IS SPACE . DB2014.2FILLER PICTURE IS X VALUE IS SPACE . DB2014.2PIC X(44) VALUE "ERRORS ENCOUNTERED" . DB2014.2FILLER PICTURE X(22) VALUE DB2014.2" FOR OFFICIAL USE ONLY" . DB2014.2FILLER PICTURE X(12) VALUE SPACE . DB2014.2FILLER PICTURE X(58) VALUE DB2014.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .DB2014.2FILLER PICTURE X(13) VALUE SPACE . DB2014.2FILLER PIC X(15) VALUE " COPYRIGHT 1974" . DB2014.2PIC XXX VALUE SPACE . DB2014.2FILLER PIC XXXX VALUE " OF " . DB2014.2PIC XXX VALUE SPACE . DB2014.2FILLER PIC X(40) VALUE DB2014.2" TESTS WERE EXECUTED SUCCESSFULLY" . DB2014.2FILLER PIC X(30) VALUE " *** INFORMATION ***" . DB2014.2FILLER PIC X(20) VALUE SPACE . DB2014.2PIC X(20). DB2014.2FILLER PIC X(5) VALUE SPACE . DB2014.2PIC X(20). DB2014.2FILLER PICTURE IS X VALUE IS SPACE . DB2014.2FILLER PICTURE IS X(65) VALUE IS "************************DB2014.2 "*****************************************" . DB2014.2FILLER PICTURE IS X(54) VALUE IS "************************DB2014.2 "******************************" . DB2014.2PIC X(6) VALUE DB2014.2"DB201A" . DB2014.2PROCEDURE DIVISION . DB2014.2DECLARATIVES . DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON ALL REFERENCES OF GO-TO-DEP-KEY DB2014.2ALL ID-2. DB2014.2ADD 1 TO KEY-1. DB2014.2MOVE DEBUG-LINE TO LINE-1. DB2014.2MOVE DEBUG-NAME TO NAME-1 UNQUAL-NAME-1. DB2014.2MOVE DEBUG-CONTENTS TO CONTENTS-1. DB2014.2INSPECT UNQUAL-NAME-1 REPLACING CHARACTERS BY SPACES DB2014.2AFTER INITIAL SPACE . DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON G-T-D-2. DB2014.2IF KEY-1 IS EQUAL TO 1 DB2014.2MOVE 2 TO KEY-2 DB2014.2ELSE MOVE 1 TO KEY-2. DB2014.2MOVE DEBUG-LINE TO LINE-2. DB2014.2MOVE DEBUG-NAME TO NAME-2 UNQUAL-NAME-2. DB2014.2MOVE DEBUG-CONTENTS TO CONTENTS-2. DB2014.2INSPECT UNQUAL-NAME-2 REPLACING CHARACTERS BY SPACES DB2014.2AFTER INITIAL SPACE . DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON GO-TO-DEP-KEY-1. DB2014.2MOVE 1 TO KEY-1. DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON ID-1. DB2014.2ADD 1 TO KEY-1. DB2014.2PERFORM DB-COMMON-1. DB2014.2PERFORM DB-CLEAR-QUALIFIER-1. DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON B-LEVEL-1 B-LEVEL-2 B-LEVEL-3. DB2014.2MOVE 1 TO KEY-1. DB2014.2PERFORM DB-COMMON-1. DB2014.2PERFORM DB-CLEAR-QUALIFIER-1. DB2014.2MOVE DEBUG-SUB-1 TO SUB-1-1. DB2014.2IF PAR-NAME = "SUBSC-TEST-2" DB2014.2MOVE DEBUG-SUB-2 TO SUB-2-1. DB2014.2MOVE DEBUG-SUB-3 TO SUB-3-1. DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON ALL REFERENCES OF ABC1 OF AB2 OF A1 DB2014.2ALL AB2 OF A2. DB2014.2MOVE 1 TO KEY-1. DB2014.2PERFORM DB-COMMON-1. DB2014.2SECTION . DB2014.2USE FOR DEBUGGING ON ALL REFERENCES OF AB1 OF A1. DB2014.2MOVE 1 TO KEY-1. DB2014.2PERFORM DB-COMMON-1. DB2014.2MOVE DEBUG-SUB-1 TO SUB-1-1. DB2014.2END DECLARATIVES . DB2014.2SECTION . DB2014.2OPEN OUTPUT PRINT-FILE. DB2014.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. DB2014.2MOVE SPACE TO TEST-RESULTS. DB2014.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. DB2014.2GO TO CCVS1-EXIT. DB2014.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. DB2014.2EXIT PROGRAM . DB2014.2STOP RUN . DB2014.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. DB2014.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. DB2014.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. DB2014.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. DB2014.2MOVE "****TEST DELETED****" TO RE-MARK. DB2014.2IF REC-CT NOT EQUAL TO ZERO DB2014.2MOVE "." TO PARDOT-X DB2014.2MOVE REC-CT TO DOTVALUE. DB2014.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. DB2014.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE DB2014.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX DB2014.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. DB2014.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. DB2014.2MOVE SPACE TO CORRECT-X. DB2014.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. DB2014.2MOVE SPACE TO RE-MARK. DB2014.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. DB2014.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. DB2014.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.DB2014.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO DB2014.2ADD DELETE-CNT TO ERROR-HOLD. DB2014.2ADD PASS-COUNTER TO ERROR-HOLD. DB2014.2033600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. DB2014.2 MOVE PASS-COUNTER TO CCVS-E-4-1. DB2014.2MOVE ERROR-HOLD TO CCVS-E-4-2. DB2014.2MOVE CCVS-E-4 TO CCVS-E-2-2. DB2014.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. DB2014.2MOVE "TEST(S) FAILED" TO ENDER-DESC. DB2014.2IF ERROR-COUNTER IS EQUAL TO ZERO DB2014.2MOVE "NO " TO ERROR-TOTAL DB2014.2ELSE DB2014.2MOVE ERROR-COUNTER TO ERROR-TOTAL. DB2014.2MOVE CCVS-E-2 TO DUMMY-RECORD. DB2014.2PERFORM WRITE-LINE. DB2014.2IF DELETE-CNT IS EQUAL TO ZERO DB2014.2MOVE "NO " TO ERROR-TOTAL ELSE DB2014.2MOVE DELETE-CNT TO ERROR-TOTAL. DB2014.2MOVE "TEST(S) DELETED " TO ENDER-DESC. DB2014.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2IF INSPECT-COUNTER EQUAL TO ZERO DB2014.2MOVE "NO " TO ERROR-TOTAL DB2014.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. DB2014.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. DB2014.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB2014.2ADD 1 TO RECORD-COUNT. DB2014.2IF RECORD-COUNT GREATER 50 DB2014.2MOVE DUMMY-RECORD TO DUMMY-HOLD DB2014.2MOVE SPACE TO DUMMY-RECORD DB2014.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE DB2014.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN DB2014.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES DB2014.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN DB2014.2MOVE DUMMY-HOLD TO DUMMY-RECORD DB2014.2MOVE ZERO TO RECORD-COUNT. DB2014.2PERFORM WRT-LN. DB2014.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. DB2014.2MOVE SPACE TO DUMMY-RECORD. DB2014.2PERFORM WRT-LN. DB2014.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB2014.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB2014.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. DB2014.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2GO TO FAIL-ROUTINE-EX. DB2014.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE DB2014.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. DB2014.2EXIT . DB2014.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. DB2014.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. DB2014.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. DB2014.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB2014.2EXIT . DB2014.2EXIT . DB2014.2SECTION . DB2014.2MOVE "GO TO DEP/ALL REF" TO FEATURE. DB2014.2MOVE "GO-TO-DEPENDING" TO PAR-NAME. DB2014.2MOVE 2 TO GO-TO-DEP-KEY. DB2014.2MOVE SPACES TO ITEM-1 ITEM-2. DB2014.2MOVE 0 TO KEY-1 KEY-2. DB2014.2040500******************************************************************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 GO TO G-T-D-1 G-T-D-2 G-T-D-5 DEPENDING ON GO-TO-DEP-KEY. DB2014.2GO TO G-T-D-2-DELETE. DB2014.2GO TO G-T-D-2-DELETE. DB2014.2MOVE "G-T-D-2" TO PAR-NAME. DB2014.2IF KEY-1 IS EQUAL TO 1 DB2014.2MOVE "DEBUG EXECUTED ON IDENTIFR" TO RE-MARK DB2014.2PERFORM PASS DB2014.2PERFORM G-T-D-WRITE DB2014.2GO TO G-T-D-2A DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "DEBUG NOT EXECUTED ON IDENTIFR" TO RE-MARK DB2014.2PERFORM G-T-D-WRITE DB2014.2PERFORM DELETE-SUBTESTS-2 DB2014.2GO TO G-T-D-3. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2PERFORM DELETE-SUBTESTS-2. DB2014.2GO TO G-T-D-3-DELETE. DB2014.2MOVE "G-T-D-2A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-2B" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-2C" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-2A" TO PAR-NAME. DB2014.2MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2MOVE LINE-1 TO COMPUTED-A. DB2014.2PERFORM INSPT. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-2B" TO PAR-NAME. DB2014.2IF UNQUAL-NAME-1 IS EQUAL TO "GO-TO-DEP-KEY" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "GO-TO-DEP-KEY" TO CORRECT-A DB2014.2MOVE NAME-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-2C" TO PAR-NAME. DB2014.2IF CONTENTS-1 IS EQUAL TO "2" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "2" TO CORRECT-A DB2014.2MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3" TO PAR-NAME. DB2014.2IF KEY-2 IS EQUAL TO 1 OR 2 DB2014.2MOVE "DEBUG ON PROC-NAME EXECUTED" TO RE-MARK DB2014.2PERFORM PASS DB2014.2PERFORM G-T-D-WRITE DB2014.2GO TO G-T-D-3A DB2014.2ELSE DB2014.2MOVE "DEBUG ON PRC-NAME NOT EXECUTED" TO RE-MARK DB2014.2PERFORM FAIL DB2014.2PERFORM G-T-D-WRITE DB2014.2PERFORM DELETE-SUBTESTS-3 DB2014.2GO TO G-T-D-4. DB2014.2MOVE "G-T-D-3" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2PERFORM DELETE-SUBTESTS-3 DB2014.2GO TO G-T-D-4-DELETE. DB2014.2MOVE "G-T-D-3A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3B" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3C" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3A" TO PAR-NAME. DB2014.2MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2MOVE LINE-2 TO COMPUTED-A. DB2014.2PERFORM INSPT. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3B" TO PAR-NAME. DB2014.2IF UNQUAL-NAME-2 IS EQUAL TO "G-T-D-2" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "G-T-D-2" TO CORRECT-A DB2014.2MOVE NAME-2 TO COMPUTED-A. DB2014.2MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-3C" TO PAR-NAME. DB2014.2IF CONTENTS-2 IS EQUAL TO SPACES DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "(SPACES)" TO CORRECT-A DB2014.2MOVE CONTENTS-2 TO COMPUTED-A. DB2014.2MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2PERFORM G-T-D-WRITE. DB2014.2MOVE "G-T-D-4" TO PAR-NAME. DB2014.2IF KEY-2 IS EQUAL TO 2 DB2014.2MOVE "PROCS EXECUTED IN RIGHT ORDER" TO RE-MARK DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "PROCS EXECUTED IN WRONG ORDER" TO RE-MARK. DB2014.2GO TO G-T-D-WRITE. DB2014.2MOVE "G-T-D-4" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2GO TO G-T-D-WRITE. DB2014.2GO TO G-T-D-2-DELETE. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE "GO TO DEP/NOT ALL" TO FEATURE. DB2014.2MOVE "G-T-D-6" TO PAR-NAME. DB2014.2MOVE 2 TO GO-TO-DEP-KEY-1. DB2014.2MOVE SPACES TO ITEM-1 ITEM-2. DB2014.2MOVE 0 TO KEY-1 KEY-2. DB2014.2GO TO G-T-D-7 G-T-D-8 G-T-D-9 DEPENDING ON GO-TO-DEP-KEY-1.DB2014.2PERFORM DE-LETE. DB2014.2PERFORM G-T-D-WRITE. DB2014.2GO TO PERFORM-TESTS-INIT. DB2014.2GO TO G-T-D-8. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2PERFORM G-T-D-WRITE. DB2014.2GO TO PERFORM-TESTS-INIT. DB2014.2GO TO G-T-D-8. DB2014.2MOVE "PERFORM VARYING" TO FEATURE. DB2014.2MOVE SPACES TO ITEM-1. DB2014.2MOVE "PERFORM-VARY-1" TO PAR-NAME. DB2014.2MOVE 0 TO KEY-1. DB2014.2056800******************************************************************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 PERFORM P-V-1-SUBR VARYING ID-1 FROM 1 BY 1 DB2014.2UNTIL ID-1A IS GREATER THAN 5. DB2014.2GO TO P-V-1-TEST. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-V-WRITE. DB2014.2PERFORM DELETE-VARYING-SUBTESTS. DB2014.2GO TO PERFORM-VARYING-2-DELETE. DB2014.2MOVE "P-V-1A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-V-WRITE. DB2014.2MOVE "P-V-1B" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-V-WRITE. DB2014.2MOVE "P-V-1C" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-V-WRITE. DB2014.2ADD 1 TO COUNTER. DB2014.2IF KEY-1 IS EQUAL TO 6 DB2014.2MOVE "DEBUG PROC EXECUTED 6 TIMES" TO RE-MARK DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2MOVE KEY-1 TO COMPUTED-18V0 DB2014.2MOVE 6 TO CORRECT-18V0. DB2014.2PERFORM P-V-WRITE. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2PERFORM DELETE-VARYING-SUBTESTS DB2014.2GO TO PERFORM-VARYING-2-DELETE. DB2014.2MOVE "P-V-1A" TO PAR-NAME. DB2014.2MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2MOVE LINE-1 TO COMPUTED-A. DB2014.2PERFORM INSPT. DB2014.2PERFORM P-V-WRITE. DB2014.2MOVE "P-V-1B" TO PAR-NAME. DB2014.2IF UNQUAL-NAME-1 IS EQUAL TO "ID-1" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "ID-1" TO CORRECT-A DB2014.2MOVE NAME-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-NAME" TO RE-MARK. DB2014.2PERFORM P-V-WRITE. DB2014.2MOVE "P-V-1C" TO PAR-NAME. DB2014.2IF CONTENTS-1 IS EQUAL TO "06" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "06" TO CORRECT-A DB2014.2MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2PERFORM P-V-WRITE. DB2014.2PERFORM PERFORM-TESTS-INIT. DB2014.2MOVE "PERFORM-VARY-2" TO PAR-NAME. DB2014.2PERFORM P-V-1-SUBR VARYING ID-1 FROM 1 BY 1 DB2014.2UNTIL ID-1 IS GREATER THAN 5. DB2014.2GO TO P-V-2-TEST. DB2014.2MOVE "PERFORM-VARY-2" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-V-WRITE. DB2014.2GO TO PERFORM-AFTER-INIT. DB2014.2IF KEY-1 IS EQUAL TO 12 DB2014.2PERFORM PASS DB2014.2MOVE "DEBUG PROC EXECUTED 12 TIMES" TO RE-MARK DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "12" TO CORRECT-A DB2014.2MOVE KEY-1 TO COMPUTED-A DB2014.2MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE "PERFORM AFTER" TO FEATURE. DB2014.2MOVE SPACES TO ITEM-1. DB2014.2MOVE 0 TO KEY-1. DB2014.2MOVE "PERFORM-AFTER-1" TO PAR-NAME. DB2014.2PERFORM P-V-1-SUBR DB2014.2VARYING ID-2A FROM 1 BY 1 UNTIL ID-2A IS GREATER THAN 5 DB2014.2AFTER ID-1 FROM 1 BY 1 UNTIL ID-1A IS GREATER THAN 5. DB2014.2GO TO PERFORM-AFTER-1-TEST. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-A-WRITE. DB2014.2GO TO DELETE-AFTER-SUBTEST. DB2014.2IF KEY-1 IS EQUAL TO 31 DB2014.2MOVE "DEBUG PROC EXECUTED 31 TIMES" TO RE-MARK DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2MOVE KEY-1 TO COMPUTED-18V0 DB2014.2MOVE 31 TO CORRECT-18V0. DB2014.2PERFORM P-A-WRITE. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2GO TO DELETE-AFTER-SUBTEST. DB2014.2MOVE "PERFORM-AFT-1A" TO PAR-NAME. DB2014.2IF CONTENTS-1 IS EQUAL TO "01" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "01" TO CORRECT-A DB2014.2MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2GO TO P-A-WRITE. DB2014.2MOVE "PERFORM-AFT-1A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE "PERFORM UNTIL" TO FEATURE. DB2014.2MOVE SPACES TO ITEM-1. DB2014.2MOVE 0 TO KEY-1. DB2014.2MOVE "PERFORM-UNTIL-1" TO PAR-NAME. DB2014.2PERFORM P-V-1-SUBR DB2014.2VARYING ID-1A FROM 1 BY 1 UNTIL ID-1 IS GREATER THAN 5. DB2014.2GO TO PERFORM-UNTIL-1-TEST. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM P-U-WRITE. DB2014.2GO TO DELETE-UNTIL-SUBTEST. DB2014.2IF KEY-1 IS EQUAL TO 6 DB2014.2MOVE "DEBUG PROC EXECUTED 6 TIMES" TO RE-MARK DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "NO. TIMES DEBUG PROC EXECUTED" TO RE-MARK DB2014.2MOVE KEY-1 TO COMPUTED-18V0 DB2014.2MOVE 6 TO CORRECT-18V0. DB2014.2PERFORM P-A-WRITE. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2GO TO DELETE-UNTIL-SUBTEST. DB2014.2MOVE "PERFORM-UNT-1A" TO PAR-NAME. DB2014.2IF CONTENTS-1 IS EQUAL TO "06" DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "06" TO CORRECT-A DB2014.2MOVE CONTENTS-1 TO COMPUTED-A. DB2014.2MOVE "DEBUG-CONTENTS" TO RE-MARK. DB2014.2GO TO P-U-WRITE. DB2014.2MOVE "PERFORM-UNT-1A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE 0 TO ID-3 KEY-1 KEY-2. DB2014.2MULTIPLY ID-1A BY ID-3. DB2014.2MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2IF ID-3 IS NOT EQUAL TO 0 DB2014.2MOVE 1 TO ID-2 KEY-2. DB2014.2IF KEY-2 IS NOT EQUAL TO 0 DB2014.2GO TO BYPASSED-CODE-DELETE. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK. DB2014.2GO TO BYPASSED-CODE-WRITE. DB2014.2PERFORM DE-LETE. DB2014.2MOVE "BYPASSED-CODE-1" TO PAR-NAME. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE 0 TO KEY-1. DB2014.2MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2MOVE 0 TO ID-2A. DB2014.2IF KEY-1 IS EQUAL TO 0 DB2014.2PERFORM PASS DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "DEBUG PROC WAS EXECUTED" TO RE-MARK. DB2014.2GO TO REDEFINED-ID-WRITE. DB2014.2PERFORM DE-LETE. DB2014.2MOVE "REDEFINED-ID-1" TO PAR-NAME. DB2014.2PERFORM PRINT-DETAIL. DB2014.2MOVE "ALL REF OF IDENT" TO FEATURE. DB2014.2MOVE "MOVE-TEST-1" TO PAR-NAME. DB2014.2MOVE SPACES TO ITEM-1. DB2014.2MOVE 0 TO KEY-1. DB2014.2076800******************************************************************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 MOVE 3 TO ID-2. DB2014.2IF KEY-1 IS EQUAL TO 1 DB2014.2MOVE "DEBUG PROC EXECUTED" TO RE-MARK DB2014.2PERFORM PASS DB2014.2PERFORM MOVE-TEST-WRITE DB2014.2GO TO MOVE-TEST-1A DB2014.2ELSE PERFORM FAIL DB2014.2MOVE "DEBUG PROC NOT EXECUTED" TO RE-MARK DB2014.2PERFORM MOVE-TEST-WRITE DB2014.2PERFORM DELETE-MOVE-1-SUBTESTS DB2014.2GO TO MOVE-TEST-2-INIT. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM MOVE-TEST-WRITE. DB2014.2PERFORM DELETE-MOVE-1-SUBTESTS. DB2014.2GO TO MOVE-TEST-2-INIT. DB2014.2MOVE "MOVE-TEST-1A" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM MOVE-TEST-WRITE. DB2014.2MOVE "MOVE-TEST-1B" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM MOVE-TEST-WRITE. DB2014.2MOVE "MOVE-TEST-1C" TO PAR-NAME. DB2014.2PERFORM DE-LETE. DB2014.2PERFORM MOVE-TEST-WRITE. DB2014.2MOVE "MOVE-TEST-1A" TO PAR-NAME. DB2014.2MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB2014.2MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB2014.2MOVE LINE-1 TO COMPUTED-A. DB2014.2PERFORM INSPT. DB2014.2PERFORM MOVE-TEST-WRITE. DB2014.2MOVE "MOVE-TEST-1B" TO PAR-NAME. DB2014.2quality 93%
¤ 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.0.23Bemerkung:
(vorverarbeitet)
¤ *Bot Zugriff
