|
000100 IDENTIFICATION DIVISION. DB1034.2
000200 PROGRAM-ID. DB1034.2
000300 DB103M. DB1034.2
000400 AUTHOR. DB1034.2
000500 FEDERAL COMPILER TESTING CENTER. DB1034.2
000600 INSTALLATION. DB1034.2
000700 GENERAL SERVICES ADMINISTRATION DB1034.2
000800 AUTOMATED DATA AND TELECOMMUNICATION SERVICE. DB1034.2
000900 SOFTWARE DEVELOPMENT OFFICE. DB1034.2
001000 5203 LEESBURG PIKE SUITE 1100 DB1034.2
001100 FALLS CHURCH VIRGINIA 22041. DB1034.2
001200 DB1034.2
001300 PHONE (703) 756-6153 DB1034.2
001400 DB1034.2
001500 " HIGH ". DB1034.2
001600 DATE-WRITTEN. DB1034.2
001700 CCVS-74 VERSION 4.0 - 1980 JULY 1. DB1034.2
001800 CREATION DATE / VALIDATION DATE DB1034.2
001900 "4.2 ". DB1034.2
002000 SECURITY. DB1034.2
002100 NONE. DB1034.2
002200* DB1034.2
002300* * * * * * * * * * * * * * * * * * * * * *DB1034.2
002400* DB1034.2
002500* PROGRAM ABSTRACT DB1034.2
002600* DB1034.2
002700* DB103M TESTS THE BASIC OPERATION OF DEBUG MODULE FACILITIES DB1034.2
002800* WHEN THE COMPILE TIME DEBUGGING SWITCH IS OFF. ALL DEBUG DB1034.2
002900* LINES SHOULD BE TREATED AS COMMENTS AND NO CODE SHOULD DB1034.2
003000* BE GENERATED FOR EITHER DEBUG LINES OR DEBUGGING PROCED- DB1034.2
003100* URES. DB1034.2
003200* DB1034.2
003300* THE OBJECT PROGRAM FOR DB103M SHOULD BE EXECUTED TWICE;ONCE DB1034.2
003400* WITH THE OBJECT TIME DEBUGGING SWITCH ENABLED (ON), AND ONCE DB1034.2
003500* WITH THE OBJECT TIME DEBUGGING SWITCH DISABLED (OFF). BOTH DB1034.2
003600* EXECUTION RUNS SHOULD YIELD THE SAME RESULTS AS THE SETTING DB1034.2
003700* OF THE OBJECT TIME DEBUGGING SWITCH SHOULD MAKE NO DIFFER- DB1034.2
003800* ENCE SINCE THE COMPILE TIME DEBUGGING SWITCH WAS INITIALLY DB1034.2
003900* DISABLED. DB1034.2
004000* DB1034.2
004100* DB1034.2
004200 ENVIRONMENT DIVISION. DB1034.2
004300 CONFIGURATION SECTION. DB1034.2
004400 SOURCE-COMPUTER. DB1034.2
004500 Card0130. DB1034.2
004600 OBJECT-COMPUTER. DB1034.2
004700 Card0131. DB1034.2
004800 INPUT-OUTPUT SECTION. DB1034.2
004900 FILE-CONTROL. DB1034.2
005000 SELECT PRINT-FILE ASSIGN TO DB1034.2
005100 "C0085" . DB1034.2
005200 DATA DIVISION. DB1034.2
005300 FILE SECTION. DB1034.2
005400 FD PRINT-FILE DB1034.2
005500 LABEL RECORDS DB1034.2
005600 Card0132 DB1034.2
005700 DATA RECORD IS PRINT-REC DUMMY-RECORD. DB1034.2
005800 01 PRINT-REC PICTURE X(120). DB1034.2
005900 01 DUMMY-RECORD PICTURE X(120). DB1034.2
006000 WORKING-STORAGE SECTION. DB1034.2
006100 77 A PIC 9 COMP VALUE 1. DB1034.2
006200 77 B PIC 9 COMP VALUE 5. DB1034.2
006300 77 C PIC 9 COMP VALUE 9. DB1034.2
006400 77 D PIC 99 COMP. DB1034.2
006500 77 RESULT-FLAG PIC 99 COMP VALUE 0. DB1034.2
006600 77 DBLINE-HOLD PIC X(6). DB1034.2
006700 77 DBNAME-HOLD PIC X(30). DB1034.2
006800 77 DBCONT-HOLD PIC X(30). DB1034.2
006900 77 FIVE PIC 9 COMP VALUE 5. DB1034.2
007000 01 SIZE-19. DB1034.2
007100 02 FILLER PIC X. DB1034.2
007200 02 SIZE-18. DB1034.2
007300 03 FILLER PIC X. DB1034.2
007400 03 SIZE-17. DB1034.2
007500 04 FILLER PIC X. DB1034.2
007600 04 SIZE-16. DB1034.2
007700 05 FILLER PIC X. DB1034.2
007800 05 SIZE-15. DB1034.2
007900 06 FILLER PIC X. DB1034.2
008000 06 SIZE-14. DB1034.2
008100 07 FILLER PIC X. DB1034.2
008200 07 SIZE-13. DB1034.2
008300 08 FILLER PIC X. DB1034.2
008400 08 SIZE-12. DB1034.2
008500 09 FILLER PIC X. DB1034.2
008600 09 SIZE-11. DB1034.2
008700 10 FILLER PIC X. DB1034.2
008800 10 SIZE-10 PIC X(10). DB1034.2
008900 01 TEST-RESULTS. DB1034.2
009000 02 FILLER PICTURE X VALUE SPACE. DB1034.2
009100 02 FEATURE PICTURE X(20) VALUE SPACE. DB1034.2
009200 02 FILLER PICTURE X VALUE SPACE. DB1034.2
009300 02 P-OR-F PICTURE X(5) VALUE SPACE. DB1034.2
009400 02 FILLER PICTURE X VALUE SPACE. DB1034.2
009500 02 PAR-NAME. DB1034.2
009600 03 FILLER PICTURE X(12) VALUE SPACE. DB1034.2
009700 03 PARDOT-X PICTURE X VALUE SPACE. DB1034.2
009800 03 DOTVALUE PICTURE 99 VALUE ZERO. DB1034.2
009900 03 FILLER PIC X(5) VALUE SPACE. DB1034.2
010000 02 FILLER PIC X(10) VALUE SPACE. DB1034.2
010100 02 RE-MARK PIC X(61). DB1034.2
010200 01 TEST-COMPUTED. DB1034.2
010300 02 FILLER PIC X(30) VALUE SPACE. DB1034.2
010400 02 FILLER PIC X(17) VALUE " COMPUTED=". DB1034.2
010500 02 COMPUTED-X. DB1034.2
010600 03 COMPUTED-A PICTURE X(20) VALUE SPACE. DB1034.2
010700 03 COMPUTED-N REDEFINES COMPUTED-A PICTURE -9(9).9(9). DB1034.2
010800 03 COMPUTED-0V18 REDEFINES COMPUTED-A PICTURE -.9(18). DB1034.2
010900 03 COMPUTED-4V14 REDEFINES COMPUTED-A PICTURE -9(4).9(14). DB1034.2
011000 03 COMPUTED-14V4 REDEFINES COMPUTED-A PICTURE -9(14).9(4). DB1034.2
011100 03 CM-18V0 REDEFINES COMPUTED-A. DB1034.2
011200 04 COMPUTED-18V0 PICTURE -9(18). DB1034.2
011300 04 FILLER PICTURE X. DB1034.2
011400 03 FILLER PIC X(50) VALUE SPACE. DB1034.2
011500 01 TEST-CORRECT. DB1034.2
011600 02 FILLER PIC X(30) VALUE SPACE. DB1034.2
011700 02 FILLER PIC X(17) VALUE " CORRECT =". DB1034.2
011800 02 CORRECT-X. DB1034.2
011900 03 CORRECT-A PICTURE X(20) VALUE SPACE. DB1034.2
012000 03 CORRECT-N REDEFINES CORRECT-A PICTURE -9(9).9(9). DB1034.2
012100 03 CORRECT-0V18 REDEFINES CORRECT-A PICTURE -.9(18). DB1034.2
012200 03 CORRECT-4V14 REDEFINES CORRECT-A PICTURE -9(4).9(14). DB1034.2
012300 03 CORRECT-14V4 REDEFINES CORRECT-A PICTURE -9(14).9(4). DB1034.2
012400 03 CR-18V0 REDEFINES CORRECT-A. DB1034.2
012500 04 CORRECT-18V0 PICTURE -9(18). DB1034.2
012600 04 FILLER PICTURE X. DB1034.2
012700 03 FILLER PIC X(50) VALUE SPACE. DB1034.2
012800 01 CCVS-C-1. DB1034.2
012900 02 FILLER PICTURE IS X(99) VALUE IS " FEATURE PADB1034.2
013000- "SS PARAGRAPH-NAME DB1034.2
013100- " REMARKS". DB1034.2
013200 02 FILLER PICTURE IS X(20) VALUE IS SPACE. DB1034.2
013300 01 CCVS-C-2. DB1034.2
013400 02 FILLER PICTURE IS X VALUE IS SPACE. DB1034.2
013500 02 FILLER PICTURE IS X(6) VALUE IS "TESTED". DB1034.2
013600 02 FILLER PICTURE IS X(15) VALUE IS SPACE. DB1034.2
013700 02 FILLER PICTURE IS X(4) VALUE IS "FAIL". DB1034.2
013800 02 FILLER PICTURE IS X(94) VALUE IS SPACE. DB1034.2
013900 01 REC-SKL-SUB PICTURE 9(2) VALUE ZERO. DB1034.2
014000 01 REC-CT PICTURE 99 VALUE ZERO. DB1034.2
014100 01 DELETE-CNT PICTURE 999 VALUE ZERO. DB1034.2
014200 01 ERROR-COUNTER PICTURE IS 999 VALUE IS ZERO. DB1034.2
014300 01 INSPECT-COUNTER PIC 999 VALUE ZERO. DB1034.2
014400 01 PASS-COUNTER PIC 999 VALUE ZERO. DB1034.2
014500 01 TOTAL-ERROR PIC 999 VALUE ZERO. DB1034.2
014600 01 ERROR-HOLD PIC 999 VALUE ZERO. DB1034.2
014700 01 DUMMY-HOLD PIC X(120) VALUE SPACE. DB1034.2
014800 01 RECORD-COUNT PIC 9(5) VALUE ZERO. DB1034.2
014900 01 CCVS-H-1. DB1034.2
015000 02 FILLER PICTURE X(27) VALUE SPACE. DB1034.2
015100 02 FILLER PICTURE X(67) VALUE DB1034.2
015200 " FEDERAL COMPILER TESTING CENTER COBOL COMPILER VALIDATION DB1034.2
015300- " SYSTEM". DB1034.2
015400 02 FILLER PICTURE X(26) VALUE SPACE. DB1034.2
015500 01 CCVS-H-2. DB1034.2
015600 02 FILLER PICTURE X(52) VALUE IS DB1034.2
015700 "CCVS74 NCC COPY, NOT FOR DISTRIBUTION.". DB1034.2
015800 02 FILLER PICTURE IS X(19) VALUE IS "TEST RESULTS SET- ". DB1034.2
015900 02 TEST-ID PICTURE IS X(9). DB1034.2
016000 02 FILLER PICTURE IS X(40) VALUE IS SPACE. DB1034.2
016100 01 CCVS-H-3. DB1034.2
016200 02 FILLER PICTURE X(34) VALUE DB1034.2
016300 " FOR OFFICIAL USE ONLY ". DB1034.2
016400 02 FILLER PICTURE X(58) VALUE DB1034.2
016500 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".DB1034.2
016600 02 FILLER PICTURE X(28) VALUE DB1034.2
016700 " COPYRIGHT 1974 ". DB1034.2
016800 01 CCVS-E-1. DB1034.2
016900 02 FILLER PICTURE IS X(52) VALUE IS SPACE. DB1034.2
017000 02 FILLER PICTURE IS X(14) VALUE IS "END OF TEST- ". DB1034.2
017100 02 ID-AGAIN PICTURE IS X(9). DB1034.2
017200 02 FILLER PICTURE X(45) VALUE IS DB1034.2
017300 " NTIS DISTRIBUTION COBOL 74". DB1034.2
017400 01 CCVS-E-2. DB1034.2
017500 02 FILLER PICTURE X(31) VALUE DB1034.2
017600 SPACE. DB1034.2
017700 02 FILLER PICTURE X(21) VALUE SPACE. DB1034.2
017800 02 CCVS-E-2-2. DB1034.2
017900 03 ERROR-TOTAL PICTURE IS XXX VALUE IS SPACE. DB1034.2
018000 03 FILLER PICTURE IS X VALUE IS SPACE. DB1034.2
018100 03 ENDER-DESC PIC X(44) VALUE "ERRORS ENCOUNTERED". DB1034.2
018200 01 CCVS-E-3. DB1034.2
018300 02 FILLER PICTURE X(22) VALUE DB1034.2
018400 " FOR OFFICIAL USE ONLY". DB1034.2
018500 02 FILLER PICTURE X(12) VALUE SPACE. DB1034.2
018600 02 FILLER PICTURE X(58) VALUE DB1034.2
018700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".DB1034.2
018800 02 FILLER PICTURE X(13) VALUE SPACE. DB1034.2
018900 02 FILLER PIC X(15) VALUE " COPYRIGHT 1974". DB1034.2
019000 01 CCVS-E-4. DB1034.2
019100 02 CCVS-E-4-1 PIC XXX VALUE SPACE. DB1034.2
019200 02 FILLER PIC XXXX VALUE " OF ". DB1034.2
019300 02 CCVS-E-4-2 PIC XXX VALUE SPACE. DB1034.2
019400 02 FILLER PIC X(40) VALUE DB1034.2
019500 " TESTS WERE EXECUTED SUCCESSFULLY". DB1034.2
019600 01 XXINFO. DB1034.2
019700 02 FILLER PIC X(30) VALUE " *** INFORMATION ***". DB1034.2
019800 02 INFO-TEXT. DB1034.2
019900 04 FILLER PIC X(20) VALUE SPACE. DB1034.2
020000 04 XXCOMPUTED PIC X(20). DB1034.2
020100 04 FILLER PIC X(5) VALUE SPACE. DB1034.2
020200 04 XXCORRECT PIC X(20). DB1034.2
020300 01 HYPHEN-LINE. DB1034.2
020400 02 FILLER PICTURE IS X VALUE IS SPACE. DB1034.2
020500 02 FILLER PICTURE IS X(65) VALUE IS "************************DB1034.2
020600- "*****************************************". DB1034.2
020700 02 FILLER PICTURE IS X(54) VALUE IS "************************DB1034.2
020800- "******************************". DB1034.2
020900 01 CCVS-PGM-ID PIC X(6) VALUE DB1034.2
021000 "DB103M". DB1034.2
021100 PROCEDURE DIVISION. DB1034.2
021200 DECLARATIVES. DB1034.2
021300 START-UP SECTION. DB1034.2
021400 USE FOR DEBUGGING ON OPEN-FILES. DB1034.2
021500 BEGIN-START-UP. DB1034.2
021600 MOVE 1 TO RESULT-FLAG. DB1034.2
021700 DB-COMMON. DB1034.2
021800 MOVE DEBUG-LINE TO DBLINE-HOLD. DB1034.2
021900 MOVE DEBUG-NAME TO DBNAME-HOLD. DB1034.2
022000 MOVE DEBUG-CONTENTS TO DBCONT-HOLD. DB1034.2
022100 FALL-THROUGH-AND-SERIES SECTION. DB1034.2
022200 USE FOR DEBUGGING ON FALL-THROUGH-TEST DB1034.2
022300 PROC-SERIES-TEST. DB1034.2
022400 BEGIN-FALL-THROUGH-AND-SERIES. DB1034.2
022500 PERFORM DB-COMMON. DB1034.2
022600 MOVE 2 TO RESULT-FLAG. DB1034.2
022700 GO-TO SECTION. DB1034.2
022800 USE FOR DEBUGGING ON GO-TO-TEST. DB1034.2
022900 BEGIN-GO-TO. DB1034.2
023000 PERFORM DB-COMMON. DB1034.2
023100 MOVE 3 TO RESULT-FLAG. DB1034.2
023200 ALTER-PARAGRAPH SECTION. DB1034.2
023300 USE FOR DEBUGGING ON ALTERABLE-PARAGRAPH. DB1034.2
023400 BEGIN-ALTER-PARAGRAPH. DB1034.2
023500 PERFORM DB-COMMON. DB1034.2
023600 MOVE 4 TO RESULT-FLAG. DB1034.2
023700 LOOP-ITERATION SECTION. DB1034.2
023800 USE FOR DEBUGGING ON LOOP-ROUTINE. DB1034.2
023900 BEGIN-LOOP-ITERATION. DB1034.2
024000 PERFORM DB-COMMON. DB1034.2
024100 ADD 1 TO RESULT-FLAG. DB1034.2
024200 PERFORM-THRU SECTION. DB1034.2
024300 USE FOR DEBUGGING ON DO-NOTHING-1. DB1034.2
024400 BEGIN-PERFORM-THRU. DB1034.2
024500 PERFORM DB-COMMON. DB1034.2
024600 ADD 1 TO RESULT-FLAG. DB1034.2
024700 END DECLARATIVES. DB1034.2
024800 CCVS1 SECTION. DB1034.2
024900 OPEN-FILES. DB1034.2
025000 OPEN OUTPUT PRINT-FILE. DB1034.2
025100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. DB1034.2
025200 MOVE SPACE TO TEST-RESULTS. DB1034.2
025300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. DB1034.2
025400 GO TO CCVS1-EXIT. DB1034.2
025500 CLOSE-FILES. DB1034.2
025600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. DB1034.2
025700 TERMINATE-CCVS. DB1034.2
025800 EXIT PROGRAM. DB1034.2
025900 TERMINATE-CALL. DB1034.2
026000 STOP RUN. DB1034.2
026100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. DB1034.2
026200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. DB1034.2
026300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. DB1034.2
026400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-CNT. DB1034.2
026500 MOVE "****TEST DELETED****" TO RE-MARK. DB1034.2
026600 PRINT-DETAIL. DB1034.2
026700 IF REC-CT NOT EQUAL TO ZERO DB1034.2
026800 MOVE "." TO PARDOT-X DB1034.2
026900 MOVE REC-CT TO DOTVALUE. DB1034.2
027000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. DB1034.2
027100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE DB1034.2
027200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX DB1034.2
027300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. DB1034.2
027400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. DB1034.2
027500 MOVE SPACE TO CORRECT-X. DB1034.2
027600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. DB1034.2
027700 MOVE SPACE TO RE-MARK. DB1034.2
027800 HEAD-ROUTINE. DB1034.2
027900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1034.2
028000 MOVE CCVS-H-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES. DB1034.2
028100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. DB1034.2
028200 COLUMN-NAMES-ROUTINE. DB1034.2
028300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1034.2
028400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1034.2
028500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1034.2
028600 END-ROUTINE. DB1034.2
028700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.DB1034.2
028800 END-RTN-EXIT. DB1034.2
028900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1034.2
029000 END-ROUTINE-1. DB1034.2
029100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO DB1034.2
029200 ERROR-HOLD. ADD DELETE-CNT TO ERROR-HOLD. DB1034.2
029300 ADD PASS-COUNTER TO ERROR-HOLD. DB1034.2
029400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. DB1034.2
029500 MOVE PASS-COUNTER TO CCVS-E-4-1. DB1034.2
029600 MOVE ERROR-HOLD TO CCVS-E-4-2. DB1034.2
029700 MOVE CCVS-E-4 TO CCVS-E-2-2. DB1034.2
029800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. DB1034.2
029900 END-ROUTINE-12. DB1034.2
030000 MOVE "TEST(S) FAILED" TO ENDER-DESC. DB1034.2
030100 IF ERROR-COUNTER IS EQUAL TO ZERO DB1034.2
030200 MOVE "NO " TO ERROR-TOTAL DB1034.2
030300 ELSE DB1034.2
030400 MOVE ERROR-COUNTER TO ERROR-TOTAL. DB1034.2
030500 MOVE CCVS-E-2 TO DUMMY-RECORD. DB1034.2
030600 PERFORM WRITE-LINE. DB1034.2
030700 END-ROUTINE-13. DB1034.2
030800 IF DELETE-CNT IS EQUAL TO ZERO DB1034.2
030900 MOVE "NO " TO ERROR-TOTAL ELSE DB1034.2
031000 MOVE DELETE-CNT TO ERROR-TOTAL. DB1034.2
031100 MOVE "TEST(S) DELETED " TO ENDER-DESC. DB1034.2
031200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1034.2
031300 IF INSPECT-COUNTER EQUAL TO ZERO DB1034.2
031400 MOVE "NO " TO ERROR-TOTAL DB1034.2
031500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. DB1034.2
031600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. DB1034.2
031700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1034.2
031800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. DB1034.2
031900 WRITE-LINE. DB1034.2
032000 ADD 1 TO RECORD-COUNT. DB1034.2
032100 IF RECORD-COUNT GREATER 50 DB1034.2
032200 MOVE DUMMY-RECORD TO DUMMY-HOLD DB1034.2
032300 MOVE SPACE TO DUMMY-RECORD DB1034.2
032400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE DB1034.2
032500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN DB1034.2
032600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES DB1034.2
032700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN DB1034.2
032800 MOVE DUMMY-HOLD TO DUMMY-RECORD DB1034.2
032900 MOVE ZERO TO RECORD-COUNT. DB1034.2
033000 PERFORM WRT-LN. DB1034.2
033100 WRT-LN. DB1034.2
033200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. DB1034.2
033300 MOVE SPACE TO DUMMY-RECORD. DB1034.2
033400 BLANK-LINE-PRINT. DB1034.2
033500 PERFORM WRT-LN. DB1034.2
033600 FAIL-ROUTINE. DB1034.2
033700 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB1034.2
033800 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. DB1034.2
033900 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. DB1034.2
034000 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1034.2
034100 GO TO FAIL-ROUTINE-EX. DB1034.2
034200 FAIL-ROUTINE-WRITE. DB1034.2
034300 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE DB1034.2
034400 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. DB1034.2
034500 FAIL-ROUTINE-EX. EXIT. DB1034.2
034600 BAIL-OUT. DB1034.2
034700 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. DB1034.2
034800 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. DB1034.2
034900 BAIL-OUT-WRITE. DB1034.2
035000 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. DB1034.2
035100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. DB1034.2
035200 BAIL-OUT-EX. EXIT. DB1034.2
035300 CCVS1-EXIT. DB1034.2
035400 EXIT. DB1034.2
035500 START-PROGRAM-TEST. DB1034.2
035600 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
035700 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
035800 PERFORM FAIL DB1034.2
035900 PERFORM START-PROGRAM-WRITE DB1034.2
036000 ELSE PERFORM PASS DB1034.2
036100 GO TO START-PROGRAM-WRITE. DB1034.2
036200 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
036300 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
036400 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
036500 PERFORM START-PROGRAM-WRITE. DB1034.2
036600 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
036700 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
036800 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
036900 PERFORM START-PROGRAM-WRITE. DB1034.2
037000 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
037100 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
037200 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
037300 GO TO START-PROGRAM-WRITE. DB1034.2
037400 START-PROGRAM-DELETE. DB1034.2
037500 PERFORM DE-LETE. DB1034.2
037600 START-PROGRAM-WRITE. DB1034.2
037700 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
037800 MOVE "START-PROGRAM-TEST" TO PAR-NAME. DB1034.2
037900 PERFORM PRINT-DETAIL. DB1034.2
038000 MOVE 0 TO RESULT-FLAG. DB1034.2
038100 FALL-THROUGH-TEST. DB1034.2
038200 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
038300 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
038400 PERFORM FAIL DB1034.2
038500 PERFORM FALL-THROUGH-WRITE DB1034.2
038600 ELSE PERFORM PASS DB1034.2
038700 GO TO FALL-THROUGH-WRITE. DB1034.2
038800 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
038900 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
039000 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
039100 PERFORM FALL-THROUGH-WRITE. DB1034.2
039200 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
039300 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
039400 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
039500 PERFORM FALL-THROUGH-WRITE. DB1034.2
039600 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
039700 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
039800 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
039900 GO TO FALL-THROUGH-WRITE. DB1034.2
040000 FALL-THROUGH-DELETE. DB1034.2
040100 PERFORM DE-LETE. DB1034.2
040200 FALL-THROUGH-WRITE. DB1034.2
040300 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
040400 MOVE "FALL-THROUGH-TEST" TO PAR-NAME. DB1034.2
040500 PERFORM PRINT-DETAIL. DB1034.2
040600 MOVE 0 TO RESULT-FLAG. DB1034.2
040700 PROC-SERIES-TEST. DB1034.2
040800 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
040900 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
041000 PERFORM FAIL DB1034.2
041100 PERFORM PROC-SERIES-WRITE DB1034.2
041200 ELSE PERFORM PASS DB1034.2
041300 GO TO PROC-SERIES-WRITE. DB1034.2
041400 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
041500 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
041600 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
041700 PERFORM PROC-SERIES-WRITE. DB1034.2
041800 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
041900 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
042000 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
042100 PERFORM PROC-SERIES-WRITE. DB1034.2
042200 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
042300 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
042400 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
042500 GO TO PROC-SERIES-WRITE. DB1034.2
042600 PROC-SERIES-DELETE. DB1034.2
042700 PERFORM DE-LETE. DB1034.2
042800 PROC-SERIES-WRITE. DB1034.2
042900 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
043000 MOVE "PROC-SERIES-TEST" TO PAR-NAME. DB1034.2
043100 PERFORM PRINT-DETAIL. DB1034.2
043200 MOVE 0 TO RESULT-FLAG. DB1034.2
043300 ALTERABLE-PARAGRAPH. DB1034.2
043400 GO TO GO-TO-TEST. DB1034.2
043500 FILLER-PARAGRAPH. DB1034.2
043600 DISPLAY "ALTER FAILED AT ALTER-TEST-INIT". DB1034.2
043700 PERFORM FAIL. DB1034.2
043800 GO TO ALTERED-GO-TO-TEST. DB1034.2
043900 GO-TO-TEST. DB1034.2
044000 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
044100 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
044200 PERFORM FAIL DB1034.2
044300 PERFORM GO-TO-WRITE DB1034.2
044400 ELSE PERFORM PASS DB1034.2
044500 GO TO GO-TO-WRITE. DB1034.2
044600 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
044700 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
044800 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
044900 PERFORM GO-TO-WRITE. DB1034.2
045000 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
045100 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
045200 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
045300 PERFORM GO-TO-WRITE. DB1034.2
045400 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
045500 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
045600 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
045700 GO TO GO-TO-WRITE. DB1034.2
045800 GO-TO-DELETE. DB1034.2
045900 PERFORM DE-LETE. DB1034.2
046000 GO-TO-WRITE. DB1034.2
046100 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
046200 MOVE "GO-TO-TEST" TO PAR-NAME. DB1034.2
046300 PERFORM PRINT-DETAIL. DB1034.2
046400 MOVE 0 TO RESULT-FLAG. DB1034.2
046500 ALTER-TEST-INIT. DB1034.2
046600 ALTER ALTERABLE-PARAGRAPH TO PROCEED TO ALTERED-GO-TO-TEST. DB1034.2
046700 ALTER-TEST. DB1034.2
046800 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
046900 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
047000 PERFORM FAIL DB1034.2
047100 PERFORM ALTER-WRITE DB1034.2
047200 ELSE PERFORM PASS DB1034.2
047300 GO TO ALTER-WRITE. DB1034.2
047400 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
047500 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
047600 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
047700 PERFORM ALTER-WRITE. DB1034.2
047800 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
047900 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
048000 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
048100 PERFORM ALTER-WRITE. DB1034.2
048200 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
048300 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
048400 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
048500 GO TO ALTER-WRITE. DB1034.2
048600 ALTER-DELETE. DB1034.2
048700 PERFORM DE-LETE. DB1034.2
048800 ALTER-WRITE. DB1034.2
048900 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
049000 MOVE "ALTER-TEST" TO PAR-NAME. DB1034.2
049100 PERFORM PRINT-DETAIL. DB1034.2
049200 MOVE 0 TO RESULT-FLAG. DB1034.2
049300 ALTER-WRITE-END. DB1034.2
049400 GO TO ALTERABLE-PARAGRAPH. DB1034.2
049500 ALTERED-GO-TO-TEST. DB1034.2
049600 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
049700 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
049800 PERFORM FAIL DB1034.2
049900 PERFORM ALTERED-GO-TO-WRITE DB1034.2
050000 ELSE PERFORM PASS DB1034.2
050100 GO TO ALTERED-GO-TO-WRITE. DB1034.2
050200 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
050300 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
050400 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
050500 PERFORM ALTERED-GO-TO-WRITE. DB1034.2
050600 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
050700 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
050800 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
050900 PERFORM ALTERED-GO-TO-WRITE. DB1034.2
051000 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
051100 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
051200 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
051300 GO TO ALTERED-GO-TO-WRITE. DB1034.2
051400 ALTERED-GO-TO-DELETE. DB1034.2
051500 PERFORM DE-LETE. DB1034.2
051600 ALTERED-GO-TO-WRITE. DB1034.2
051700 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
051800 MOVE "ALTERED-GO-TO-TEST" TO PAR-NAME. DB1034.2
051900 PERFORM PRINT-DETAIL. DB1034.2
052000 MOVE 0 TO RESULT-FLAG. DB1034.2
052100 PERF-ITERATION-TEST. DB1034.2
052200 PERFORM LOOP-ROUTINE FIVE TIMES. DB1034.2
052300 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
052400 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
052500 PERFORM FAIL DB1034.2
052600 PERFORM PERF-ITERATION-WRITE DB1034.2
052700 ELSE PERFORM PASS DB1034.2
052800 GO TO PERF-ITERATION-WRITE. DB1034.2
052900 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
053000 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
053100 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
053200 PERFORM PERF-ITERATION-WRITE. DB1034.2
053300 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
053400 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
053500 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
053600 PERFORM PERF-ITERATION-WRITE. DB1034.2
053700 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
053800 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
053900 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
054000 GO TO PERF-ITERATION-WRITE. DB1034.2
054100 PERF-ITERATION-DELETE. DB1034.2
054200 PERFORM DE-LETE. DB1034.2
054300 PERF-ITERATION-WRITE. DB1034.2
054400 MOVE "PERF-ITERATION-TEST" TO PAR-NAME. DB1034.2
054500 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
054600 PERFORM PRINT-DETAIL. DB1034.2
054700 MOVE 0 TO RESULT-FLAG. DB1034.2
054800 PERF-ITERATION-END. DB1034.2
054900 GO TO PERFORM-THRU-TEST. DB1034.2
055000 LOOP-ROUTINE. DB1034.2
055100**NESTED PERFORMS ARE USED HERE TO ATTEMPT TO PREVENT OPTIMIZER DB1034.2
055200* ACTION RESULTING IN LOOP UNFOLDING AND REDUCTION. DB1034.2
055300 PERFORM DO-NOTHING. DB1034.2
055400 DO-NOTHING. DB1034.2
055500 ADD A B C GIVING D. DB1034.2
055600 DO-NOTHING-1. DB1034.2
055700 SUBTRACT A FROM B. DB1034.2
055800 PERFORM-THRU-TEST. DB1034.2
055900 PERFORM DO-NOTHING THRU DO-NOTHING-1 FIVE TIMES. DB1034.2
056000 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
056100 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
056200 PERFORM FAIL DB1034.2
056300 PERFORM PERFORM-THRU-WRITE DB1034.2
056400 ELSE PERFORM PASS DB1034.2
056500 GO TO PERFORM-THRU-WRITE. DB1034.2
056600 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
056700 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
056800 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
056900 PERFORM PERFORM-THRU-WRITE. DB1034.2
057000 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
057100 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
057200 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
057300 PERFORM PERFORM-THRU-WRITE. DB1034.2
057400 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
057500 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
057600 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
057700 GO TO PERFORM-THRU-WRITE. DB1034.2
057800 PERFORM-THRU-DELETE. DB1034.2
057900 PERFORM DE-LETE. DB1034.2
058000 PERFORM-THRU-WRITE. DB1034.2
058100 MOVE "PERFORM-THRU-TEST" TO PAR-NAME. DB1034.2
058200 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
058300 PERFORM PRINT-DETAIL. DB1034.2
058400 MOVE 0 TO RESULT-FLAG. DB1034.2
058500 SIMPLE-PERFORM-TEST. DB1034.2
058600 PERFORM LOOP-ROUTINE. DB1034.2
058700 IF RESULT-FLAG IS NOT EQUAL TO 0 DB1034.2
058800 MOVE "USE PROCEDURE EXECUTED" TO RE-MARK DB1034.2
058900 PERFORM FAIL DB1034.2
059000 PERFORM SIMPLE-PERFORM-WRITE DB1034.2
059100 ELSE PERFORM PASS DB1034.2
059200 GO TO SIMPLE-PERFORM-WRITE. DB1034.2
059300 MOVE "DEBUG-LINE; SEE NEXT LINE" TO RE-MARK. DB1034.2
059400 MOVE "<=== DEBUG-LINE" TO CORRECT-A. DB1034.2
059500 MOVE DBLINE-HOLD TO COMPUTED-A. DB1034.2
059600 PERFORM SIMPLE-PERFORM-WRITE. DB1034.2
059700 MOVE "DEBUG-NAME; SEE NEXT LINE" TO RE-MARK. DB1034.2
059800 MOVE "<=== DEBUG-NAME" TO CORRECT-A. DB1034.2
059900 MOVE DBNAME-HOLD TO COMPUTED-A. DB1034.2
060000 PERFORM SIMPLE-PERFORM-WRITE. DB1034.2
060100 MOVE "DEBUG-CONTENTS; SEE NEXT LINE" TO RE-MARK. DB1034.2
060200 MOVE "<=== DEBUG-CONTENTS" TO CORRECT-A. DB1034.2
060300 MOVE DBCONT-HOLD TO COMPUTED-A. DB1034.2
060400 GO TO SIMPLE-PERFORM-WRITE. DB1034.2
060500 SIMPLE-PERFORM-DELETE. DB1034.2
060600 PERFORM DE-LETE. DB1034.2
060700 SIMPLE-PERFORM-WRITE. DB1034.2
060800 MOVE "SIMPLE-PERFORM-TEST" TO PAR-NAME. DB1034.2
060900 MOVE "DEBUG ON PROC-NAME" TO FEATURE. DB1034.2
061000 PERFORM PRINT-DETAIL. DB1034.2
061100 MOVE 0 TO RESULT-FLAG. DB1034.2
061200 DEBUG-LINE-TESTS-INIT. DB1034.2
061300 MOVE "DEBUG LINE TESTS" TO FEATURE. DB1034.2
061400 DEBUG-LINE-TEST-01. DB1034.2
061500 MOVE "COMPLETE ENTITY" TO RE-MARK. DB1034.2
061600 PERFORM PASS. DB1034.2
061700 PERFORM FAIL. DB1034.2
061800 GO TO DEBUG-LINE-WRITE-01. DB1034.2
061900 DEBUG-LINE-DELETE-01. DB1034.2
062000 PERFORM DE-LETE. DB1034.2
062100 DEBUG-LINE-WRITE-01. DB1034.2
062200 MOVE "DEBUG-LINE-TEST-01" TO PAR-NAME. DB1034.2
062300 PERFORM PRINT-DETAIL. DB1034.2
062400 DEBUG-LINE-TEST-02. DB1034.2
062500 MOVE "CONSECUTIVE DEBUG LINES" TO RE-MARK. DB1034.2
062600 PERFORM PASS. DB1034.2
062700 PERFORM FAIL. DB1034.2
062800 SUBTRACT 1 FROM D. DB1034.2
062900 GO TO DEBUG-LINE-WRITE-02. DB1034.2
063000 DEBUG-LINE-DELETE-02. DB1034.2
063100 PERFORM DE-LETE. DB1034.2
063200 DEBUG-LINE-WRITE-02. DB1034.2
063300 MOVE "DEBUG-LINE-TEST-02" TO PAR-NAME. DB1034.2
063400 PERFORM PRINT-DETAIL. DB1034.2
063500 DEBUG-LINE-TEST-03. DB1034.2
063600 MOVE "BROKEN STATEMENTS" TO RE-MARK. DB1034.2
063700 PERFORM DB1034.2
063800 FAIL. GO TO DEBUG-LINE-WRITE-03. DB1034.2
063900 DEBUG-LINE-TEST-03A. PERFORM DB1034.2
064000 PASS. DB1034.2
064100 GO TO DEBUG-LINE-WRITE-03. DB1034.2
064200 DEBUG-LINE-DELETE-03. DB1034.2
064300 PERFORM DE-LETE. DB1034.2
064400 DEBUG-LINE-WRITE-03. DB1034.2
064500 MOVE "DEBUG-LINE-TEST-03" TO PAR-NAME. DB1034.2
064600 PERFORM PRINT-DETAIL. DB1034.2
064700 DEBUG-LINE-TEST-04. DB1034.2
064800 MOVE "NESTED COMMENTS" TO RE-MARK. DB1034.2
064900 PERFORM FAIL. DB1034.2
065000* PERFORM FAIL. MOVE "COMMENTS EXECUTED" TO COMPUTED-A. DB1034.2
065100* GO TO DEBUG-LINE-WRITE-04. DB1034.2
065200*DEBUG-LINE-TEST-04-A. DB1034.2
065300 GO TO DEBUG-LINE-WRITE-04. DB1034.2
065400 DEBUG-LINE-TEST-04-B. DB1034.2
065500 PERFORM PASS. DB1034.2
065600 GO TO DEBUG-LINE-WRITE-04. DB1034.2
065700 DEBUG-LINE-DELETE-04. DB1034.2
065800 PERFORM DE-LETE. DB1034.2
065900 DEBUG-LINE-WRITE-04. DB1034.2
066000 MOVE "DEBUG-LINE-TEST-04" TO PAR-NAME. DB1034.2
066100 PERFORM PRINT-DETAIL. DB1034.2
066200 DEBUG-LINE-TEST-05. DB1034.2
066300 MOVE "NESTED INSIDE COMMENTS" TO RE-MARK. DB1034.2
066400* PERFORM FAIL. MOVE "COMMENTS EXECUTED" TO COMPUTED-A. DB1034.2
066500* GO TO DEBUG-LINE-WRITE-05. DB1034.2
066600 DEBUG-LINE-TEST-05-A. DB1034.2
066700 PERFORM FAIL. DB1034.2
066800 GO TO DEBUG-LINE-WRITE-05. DB1034.2
066900*DEBUG-LINE-TEST-05-B. DB1034.2
067000* MOVE " FAILURE 05B" TO COMPUTED-A. DB1034.2
067100* PERFORM FAIL. GO TO DEBUG-LINE-WRITE-05. DB1034.2
067200 DEBUG-LINE-TEST-05-C. DB1034.2
067300 PERFORM PASS. DB1034.2
067400 GO TO DEBUG-LINE-WRITE-05. DB1034.2
067500 DEBUG-LINE-DELETE-05. DB1034.2
067600 PERFORM DE-LETE. DB1034.2
067700 DEBUG-LINE-WRITE-05. DB1034.2
067800 MOVE "DEBUG-LINE-TEST-05" TO PAR-NAME. DB1034.2
067900 PERFORM PRINT-DETAIL. DB1034.2
068000 CCVS-EXIT SECTION. DB1034.2
068100 CCVS-999999. DB1034.2
068200 GO TO CLOSE-FILES. DB1034.2
¤ Dauer der Verarbeitung: 0.50 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.
|
