000100 IDENTIFICATION DIVISION . NC2234.2 000200 PROGRAM-ID . NC2234.2 000300 NC223A. NC2234.2 000400**************************************************************** NC2234.2 000500* * NC2234.2 000600* VALIDATION FOR:- * NC2234.2 000700* * NC2234.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2234.2 000900* * NC2234.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2234.2 001100* * NC2234.2 001200**************************************************************** NC2234.2 001300* * NC2234.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2234.2 001500* * NC2234.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2234.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2234.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2234.2 001900* * NC2234.2 002000**************************************************************** NC2234.2 002100* PROGRAM NC223A TESTS THE "INITIALISE" STATEMENT USING * NC2234.2 002200* USING VARIOUS COMBINATIONS OD OPTIONAL PHRASES AND A * NC2234.2 002300* VARIETY OF RECEIVING AREAS. * NC2234.2 002400* * NC2234.2 002500**************************************************************** NC2234.2 002600 ENVIRONMENT DIVISION . NC2234.2 002700 CONFIGURATION SECTION . .2 002800 SOURCE-COMPUTER . NC2234.2 002900 Card0130. NC2234.2 003000 OBJECT-COMPUTER . NC2234.2 003100 Card0131. NC2234.2 003200 INPUT-OUTPUT SECTION . NC2234.2 003300 FILE-CONTROL . NC2234.2 003400 SELECT PRINT-FILE ASSIGN TO NC2234.2 003500 "C0085" . NC2234.2 003600 DATA DIVISION NC2234.003700 FILE SECTION . NC2234.2 003800 FD PRINT-FILE. NC2234.2 003900 01 PRINT-REC PICTURE X(120 ). NC2234.2 004000 01 DUMMY-RECORD PICTURE X(120 ). NC2234.2 04100 WORKING-STORAGE . NC2234004200 01 TEST-1-DATA. NC2234.2 004300 03 TEST-1-1 PIC 9 (6 ). NC2234.2 004400 03 TEST-1-2 PIC $(3 )9 .99 . NC2234.2 004500 03 TEST-1-3 PIC X(10 ). NC2234.2 004600 03 TEST-1-4 PIC 191300 PERFORM PRINT-DETAIL. .2 004700 03 TEST-1-5 PIC A(6 ). NC2234.2 004800 03 TEST-1-6 PIC 9 (6 ). NC2234.2 004900 03 TEST-1-7 PIC $(3 )9 .99 . NC2234.2 005000 03 TEST-1-8 PIC X(10 ). NC2234.2 005100 03 TEST-1-9 PIC XXBXX/XX. NC2234.2 005200 03 TEST-1-10 PIC A(6 ). NC2234.2 005300 01 NUM-1234 PIC 9 (4 ) VALUE 1234 . NC2234.2 005400 01 TEST-8-DATA-1 PIC $(3 )9 .99 . NC2234.2 005500 01 TEST-8-DATA-2 PIC A(10 ). NC2234.2 005600 01 TEST-RESULTS. NC2234.2 005700 02 FILLER PIC X VALUE SPACE . NC2234.2 005800 02 FEATURE PIC X(20 ) VALUE SPACE . NC2234.2 005900 02 FILLER PIC X VALUE SPACE . NC2234.2 006000 02 P-OR-F PIC X(5 ) VALUE SPACE . NC2234.2 006100 02 FILLER PIC 191700 GO MOVE-WRITE-F1-57-21NC1044006200 02 PAR-NAME. NC2234.2 006300 03 FILLER PIC X(19 ) VALUE SPACE . NC2234.2 006400 03 PARDOT-X PIC X VALUE SPACE . NC2234.2 006500 03 DOTVALUE PIC 99 VALUE ZERO . NC2234.2 006600 02 FILLER PIC X(8 ) VALUE SPACE . NC2234.2 006700 02 RE-MARK PIC X(61 ). NC2234.2 006800 01 TEST-COMPUTED. NC2234.2 02 FILLER PIC 30 ) VALUE SPACE NC2234007000 02 FILLER PIC X(17 ) VALUE NC2234.2 007100 " COMPUTED=" . NC2234.2 007200 02 COMPUTED-X. NC2234.2 007300 03 COMPUTED-A PIC X(20 ) VALUE SPACE . NC2234.2 007400 03 COMPUTED-N REDEFINES COMPUTED-A NC2234.2 007500 PIC -9 (9 ).9 (9 ). NC2234.2 007600 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9 (18 ). NC2234.2 007700 03 COMPUTED-4V14 COMPUTED-A -9 (4 ).(14 ) .2 007800 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9 (14 ).9 (4 ). NC2234.2 007900 03 CM-18V0 REDEFINES COMPUTED-A. NC2234.2 008000 04 COMPUTED-18V0 PIC -9 (18 ). NC2234.2 008100 04 X. .2 008200 03 FILLER PIC X(50 ) VALUE SPACE . NC2234.2 008300 01 TEST-CORRECT. NC2234.2 008400 02 FILLER PIC X(30 ) VALUE SPACE . NC2234.2 008500 02 FILLER PIC X(17 ) VALUE " CORRECT =" . NC2234.2 008600 02 CORRECT-X. DE-LETE NC1044008700 03 CORRECT-A PIC X(20 ) VALUE SPACE . NC2234.2 008800 03 CORRECT-N REDEFINES CORRECT-A PIC -9 (9 ).9 (9 ). NC2234.2 008900 03 CORRECT-0V18REDEFINES .2 009000 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9 (4 ).9 (14 ). NC2234.2 009100 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9 (14 ).9 (4 ). NC2234.2 009200 03 CR-18V0 REDEFINES CORRECT-A. NC2234.2 2 009400 04 FILLER PIC X. NC2234.2 009500 03 FILLER PIC X(2 ) VALUE SPACE . NC2234.2 009600 03 COR-ANSI-REFERENCE PIC X(48 ) VALUE SPACE . NC2234.2 009700 01 CCVS-C-1NC2234009800 02 FILLER PIC IS X(99 ) VALUE IS " FEATURE PANC2234.2 009900 - "SS PARAGRAPH-NAME NC2234.2 010000 - " REMARKS" . NC2234.2 010100 02 FILLER PIC X(20 ) VALUE SPACE . NC2234.2 010200 01 CCVS-C-2. NC2234.2 010300 02 FILLER PIC X VALUE IF DNAME42 TO NC1044010400 02 FILLER PIC X(6 ) VALUE "TESTED" . NC2234.2 010500 02 FILLER PIC X(15 ) VALUE SPACE . NC2234.2 010600 02 FILLER PIC X(4 ) VALUE "FAIL" . NC2234.2 010700 02 FILLER X(94 ) VALUE . NC2234010800 01 REC-SKL-SUB PIC 9 (2 ) VALUE ZERO . NC2234.2 010900 01 REC-CT PIC 99 VALUE ZERO . NC2234.2 011000 01 DELETE-COUNTER PIC 999 VALUE ZERO . NC2234.2 011100 01 ERROR-COUNTER 999 ZERO . NC2234.2 011200 01 INSPECT-COUNTER PIC 999 VALUE ZERO . NC2234.2 011300 01 PASS-COUNTER PIC 999 VALUE ZERO . NC2234.2 011400 01 TOTAL-ERROR PIC 999 VALUE ZERO . NC2234.2 011500 01 ERROR-HOLD PIC 999 VALUE ZERO . NC2234.2 011600 01 DUMMY-HOLD PIC X(120 ) VALUE SPACE . NC2234.2 011700 01 RECORD-COUNT PIC 9 (5 ) VALUE ZERO . NC2234.2 011800 01 ANSI-REFERENCE PIC X(48 ) VALUE SPACES . NC2234.2 011900 01 CCVS-H-1. NC2234.2 012000 02 FILLER PIC X(39 ) VALUE SPACES . NC2234.2 012100 02 FILLER PIC X(42 ) VALUE NC2234.2 012200 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC2234.2 012300 02 FILLER PIC X(39 ) VALUE SPACES . NC2234.2 012400 01 CCVS-H-2A. NC2234.2 012500 02 FILLER PIC X(40 ) VALUE SPACE . NC2234.2 012600 02 FILLER PIC X(7 ) VALUE "CCVS85 " . NC2234.2 012700 02 FILLER PIC XXXX VALUE NC2234193200 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-57-1. NC1044.2 012800 "4.2 " . NC2234.2 012900 02 FILLER PIC X(28 ) VALUE NC2234.2 013000 "COPY-NOTFOR DISTRIBUTION" .2 013100 02 FILLER PIC X(41 ) VALUE SPACE . NC2234.2 013200 NC2234.2 013300 01 CCVS-H-2B. NC2234.2 013400 02 FILLER X(15 ) VALUE .2 013500 "TEST RESULT OF " . NC2234.2 013600 02 TEST-ID PIC X(9 ). NC2234.2 013700 02 FILLER PIC X(4 ) VALUE NC2234.2 013800 "IN . NC2234.2 013900 02 FILLER PIC X(12 ) VALUE NC2234.2 014000 " HIGH " . NC2234.2 014100 02 FILLER PIC X(22 ) VALUE NC2234.2 014200 LEVEL FOR " .2 014300 02 FILLER PIC X(58 ) VALUE NC2234.2 014400 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC2234.2 014500 01 CCVS-H-3. NC2234.2 014600 02 FILLER PIC X NC10442 014700 " FOR OFFICIAL USE ONLY " . NC2234.2 014800 02 FILLER PIC X(58 ) VALUE NC2234.2 014900 COBOL 85 VERSION 1993 "NC22342 015000 02 FILLER PIC X(28 ) VALUE NC2234.2 015100 " COPYRIGHT 1985 " . NC2234.2 015200 01 CCVS-E-1. NC2234.2 015300 02 FILLER PIC X(52 ) VALUE SPACE . NC2234.2 015400 02 FILLER PIC X(14 ) VALUE IS "END OF TEST- " . NC2234.2 015500 02 ID-AGAIN PIC X(9 ). NC2234.2 015600 02 FILLER PIC X(45 ) VALUE SPACES . NC2234.2 015700 01 CCVS-E-2. NC2234.2 015800 02 FILLER PIC X(31 ) VALUE SPACE . NC2234.2 015900 02 FILLER PIC X(21 ) VALUE SPACE . NC2234.2 016000 02 CCVS-E-2-2. NC2234.2 016100 03 ERROR-TOTAL PIC XXX VALUE SPACE . NC2234.2 016200 03 FILLER PIC X VALUE SPACE . NC2234.2 016300 03 ENDER-DESC PIC X(44 ) VALUE NC2234.2 016400 "ERRORS ENCOUNTERED" . NC2234.2 016500 01 CCVS-E-3. NC2234.2 016600 02 FILLER PIC X(22 ) VALUE NC2234.2 016700 " FOR OFFICIAL USE ONLY" . NC2234.2 016800 02 FILLER PIC X(12 ) VALUE SPACE . NC2234.2 016900 02 FILLER PIC X(58 ) VALUE NC1044.2 017000 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC2234.2 017100 02 FILLER PIC X(13 ) VALUE SPACE . NC2234.2 017200 02 FILLER PIC X(15 ) VALUE NC2234.2 017300 " COPYRIGHT 1985" . NC2234.2 017400 01 CCVS-E-4. NC2234.2 017500 02 CCVS-E-4-1 PIC XXX VALUE SPACE . NC2234.2 017600 02 FILLER PIC X(4 ) VALUE " OF " . NC2234.2 017700 02 CCVS-E-4-2 PIC XXX VALUE SPACE . NC2234.2 017800 02 FILLER PIC X(40 ) VALUE NC2234.2 017900 " TESTS WERE EXECUTED SUCCESSFULLY" . NC2234.2 018000 01 XXINFO. NC2234.2 018100 02 FILLER PIC X(19 ) VALUE NC2234.2 018200 "*** INFORMATION ***" . NC2234.2 018300 02 INFO-TEXT. NC2234.2 018400 04 FILLER PIC X(8 ) VALUE SPACE . NC2234.2 018500 04 XXCOMPUTED PIC X(20 ). NC2234.2 018600 04 FILLER PIC X(5 ) VALUE SPACE . NC2234.2 018700 04 XXCORRECT PIC X(20 ). NC2234.2 018800 02 INF-ANSI-REFERENCE PIC X(48 ). NC2234.2 018900 01 HYPHEN-LINE. NC2234.2 019000 PIC IS . .2 019100 02 FILLER PIC IS X(65 ) VALUE IS "************************NC2234.2 019200 - "*****************************************" . NC2234.2 019300 02 FILLER PIC IS X(54 ) VALUE IS "************************NC2234.2 019400 "*******************" .2 019500 01 CCVS-PGM-ID PIC X(9 ) VALUE NC2234.2 019600 "NC223A" . NC2234.2 019700 PROCEDURE DNAME33 DNAME35 DNAME37 NC1044019800 CCVS1 SECTION . NC2234.2 019900 OPEN-FILES. NC2234.2 020000 OPEN OUTPUT PRINT-FILE. NC2234.2 020100 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2234.2 020200 MOVE SPACE TO TEST-RESULTS. NC2234.2 020400 GO TO CCVS1-EXIT. NC2234.2 020500 CLOSE-FILES. NC2234.2 020600 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2234.2 020700 . .2 020800 EXIT PROGRAM . NC2234.2 020900 TERMINATE-CALL. NC2234195100 PERFORM PASSNC1044021000 STOP RUN . NC2234.2 021100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2234.2 021200 195200 GO TO MOVE-WRITE-F1-58-1.NC1044021300 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2234.2 021400 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2234.2 021500 MOVE "**TESTDELETED****" TO RE-MARK.2 021600 PRINT-DETAIL. NC2234.2 021700 IF REC-CT NOT EQUAL TO ZERO NC2234.2 "TO PARDOT-X .2 021900 MOVE REC-CT TO DOTVALUE. NC2234.2 022000 MOVE TEST-RESULTS TO PRINT-REC195500 FAIL.022100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2234.2 022200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2234.2 ELSE THRU.022400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2234.2 022500 MOVE SPACE TO CORRECT-X. NC2234.2 022600 IF DE-LETE.022700 MOVE SPACE TO RE-MARK. NC2234.2 022800 HEAD-ROUTINE. NC2234.2 022900 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.2 023000 CCVS-H-2A. 2 TIMESNC2234.023100 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2234.2 023200 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2234.2 023300 COLUMN-NAMES-ROUTINE. NC2234.2 023400 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2234.2 023500 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.2 023600 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2234.2 023700 END-ROUTINE. .2 023800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2234.2 023900 END-RTN-EXIT. NC2234.2 PERFORM 2 TIMES.2 024100 END-ROUTINE-1. NC2234.2 024200 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2234.2 024300 ERROR-HOLD.ADD DELETE-COUNTER TO ERROR-HOLD.NC2234024400 ADD PASS-COUNTER TO ERROR-HOLD. NC2234.2 024500* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2234.2 024600 NC2234.2 024700 MOVE PASS-COUNTER TO 196500 GO TO . NC1044java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80024800 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2234.2 024900 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2234.2 025000 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2234.2 025100 . NC22342 025200 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2234.2 025300 IF ERROR-COUNTER IS EQUAL TO ZERO NC2234.2 025400 MOVE FAIL java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80025500 ELSE NC2234GO MOVE-WRITE-F1-58-2NC1044025600 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2234.2 025700 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2234.2 PERFORM .NC2234025900 END-ROUTINE-13. NC2234.2 026000 197200 PERFORM .NC1044026100 MOVE "NO " TO ERROR-TOTAL ELSE NC2234.2 MOVE ERROR-TOTALjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80026300 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2234.2 026400 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2234.2 026500 IF INSPECT-COUNTER EQUAL TO ZERO NC2234.2 026600 MOVE "NO " TO ERROR-TOTAL NC2234.2 026700 ELSE INSPECT-COUNTER ERROR-TOTALNC2234026800 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2234.2 026900 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2234.2 027000 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2234.2 027100 WRITE-LINEMOVE-TEST-F1-58-3. .2 027200 ADD 1 TO RECORD-COUNT. NC2234.2 027300 IF RECORD-COUNT GREATER 50 NC2234.2 027400 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2234.2 027500 MOVE SPACE TO DUMMY-RECORD NC22342 027600 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2234.2 027700 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2234.2 027800 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES197800 PERFORM NC1044027900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2234.2 028000 MOVE 197900 GO TO MOVE-WRITE-F1-58-3. NC1044028100 MOVE ZERO TO RECORD-COUNT. NC2234.2 028200 PERFORM WRT-LN. NC2234.2 028300 WRT-LN. NC2234198000 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-58-1. NC1044.2 WRITE AFTER 1 LINES .2 028500 MOVE SPACE TO DUMMY-RECORD. NC2234.2 028600 BLANK-LINE-PRINT. NC2234.2 028700 PERFORM WRT-LN. NC2234.2 028800 FAIL-ROUTINE. NC2234.2 028900 IF COMPUTED-X NOT EQUAL TO SPACE GO 198200 MOVE 1 TO CORRECT-18V0 NC1044029000 IF CORRECT-X NOT .2 029100 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2234.2 029200 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2234.2 029300 MOVE XXINFOTO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC22342 029400 MOVE SPACES TO INF-ANSI-REFERENCE. NC2234.2 029500 GO TO FAIL-ROUTINE-EX. NC2234.2 029600 FAIL-ROUTINE-WRITE. NC2234.2 029700 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2234.2 029800 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2234.2 029900 MOVE TEST-CORRECT PRINT-REC PERFORM 2 TIMES NC2234030000 MOVE SPACES TO COR-ANSI-REFERENCE. NC2234.2 030100 FAIL-ROUTINE-EX. EXIT . NC2234.2 030200 BAIL-OUT. NC2234.2 030300 IF COMPUTED-A EQUAL SPACE GO BAIL-OUT-WRITE. NC2234030400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2234.2 030500 BAIL-OUT-WRITE. NC2234.2 030600 MOVE CORRECT-A198900 PERFORM PRINT-DETAIL. NC10442 030700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2234.2 030800 MOVE XXINFO DUMMY-RECORD. PERFORM WRITE-LINE2 . NC2234.2 030900 MOVE SPACES TO INF-ANSI-REFERENCE. NC2234.2 031000 BAIL-OUT-EX. EXIT . NC2234.2 031100 CCVS1-EXITNC2234031200 EXIT . NC2234.2 031300 SECT-NC223A-001 SECTION . NC2234.2 031400* NC2234.2 031500 INI-INIT-GF-1. NC2234.2 031600 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 031700 MOVE "VI-92 6.16.2 GR5" TO ANSI-REFERENCE. NC2234.2 031800 MOVE 1 TO REC-CT. NC2234.2 199300 GO TO MOVE-WRITE-F1-58-4 NC1044.2 031900 INI-TEST-GF-1-0. NC2234.2 032000 INITIALIZE TEST-1-DATA. NC2234.2 032100 GO TO INI-TEST-GF-1-1. NC2234.2 032200 INI-DELETE-GF-1. NC2234.2 032300 PERFORM . .2 032400 PERFORM PRINT-DETAIL. NC2234.2 032500 GO TO INI-INIT-GF-2. NC2234.2 032600 INI-TEST-GF-1-1. NC2234.2 032700 MOVE "INI-TEST-GF-1-1" TO PAR-NAME. NC2234.2 032800 IF TEST-1-1 ZERO .2 032900 PERFORM PASS NC2234.2 033000 GO TO INI-WRITE-GF-1-1 NC2234.2 033100 ELSE NC2234.2 033200 GO TO INI-FAIL-GF-1-1. NC2234.2 033300 INI-DELETE-GF-1-1. NC2234.2 033400 PERFORM DE-LETE. NC2234.2 033500 GO TO INI-WRITE-GF-1-1. NC2234.2 033600 INI-FAIL-GF-1-1. NC2234.2 033700 MOVE ZERO TO CORRECT-N NC2234.2 033800 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 033900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 034000 PERFORM FAIL. NC2234.2 034100 INI-WRITE-GF-1-1. NC2234.2 034200 PERFORM PRINT-DETAIL. NC2234.2 034300* NC2234.2 034400 INI-TEST-GF-1-2. NC2234.2 034500 ADD 1 TO REC-CT. NC2234.2 034600 MOVE "INI-TEST-GF-1-2" TO PAR-NAME. NC2234.2 034700 IF TEST-1-2 =2 034900 GO TO INI-WRITE-GF-1-2 NC2234.2 035000 ELSE NC2234.2 035100 GO TO INI-FAIL-GF-1-2.200400 MOVE-TEST-F1-58-5. .2 035200 INI-DELETE-GF-1-2. NC2234.2 035300 PERFORM DE-LETE. NC2234.200500 IF DNAME26 TO NC1044.035400 GO TO INI-WRITE-GF-1-2. NC2234.2 035500 INI-FAIL-GF-1-2. NC2234.2 035600 MOVE " $0.00" TO CORRECT-X NC2234.2 035700 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 035800 MOVE "INCORRECTLY 200700GOTOMOVE-WRITE-F1-58-5 NC10442 035900 PERFORM FAIL. NC2234.2 036000 INI-WRITE-GF-1-2. NC2234.2 036100 PERFORM PRINT-DETAIL. NC2234.2 036200* NC2234.2 036300 INI-TEST-GF-1-3.2 036400 ADD 1 TO REC-CT. NC2234.2 036500 201000 MOVE CORRECT-18V0 2 036600 IF TEST-1-3 = SPACES NC2234.2 036700 PERFORM PASS NC2234.2 036800 GO TO INI-WRITE-GF-1-3 NC2234.2 036900 ELSE NC2234.2 037000 GO 201200 GO TO MOVE-WRITE-F1-58-5.NC1044037100 INI-DELETE-GF-1-3. NC2234.2 037200 PERFORM DE-LETE.NC1044037300 GO TO INI-WRITE-GF-1-3. NC2234.2 037400 INI-FAIL-GF-1-3. NC2234.2 037500 MOVE SPACES TO CORRECT-X NC2234.2 037600 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 037700 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 037800 PERFORM FAIL. NC2234.2 037900 INI-WRITE-GF-1-3. NC2234.2 038000 PERFORM PRINT-DETAIL. NC2234.2 038100* NC2234.2 038200 INI-TEST-GF-1-4. NC2234.2 038300 ADD 1 TO REC-CT. NC2234.2 MOVE INI-TEST-GF-1-4.NC2234038500 IF TEST-1-4 = " / " NC2234.2 038600 PERFORM PASS NC2234.2 038800 ELSE NC2234.2 038900 GO TO INI-FAIL-GF-1-4. NC2234.2 039000 INI-DELETE-GF-1-4. NC2234.2 039100 PERFORM DE-LETE202300 MOVE TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80039200 GO TO INI-WRITE-GF-1-4. NC2234.2 039300 INI-FAIL-GF-1-4NC22342 039400 MOVE " / " TO CORRECT-X NC2234.2 039500 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 039600 MOVE " .2 039700 PERFORM FAIL. NC2234.2 039800 INI-WRITE-GF-1-4. NC2234.2 040000* NC2234.2 040100 INI-TEST-GF-1-5. NC2234.2 040200 ADD 1 TO REC-CT. NC2234.2 040300 MOVE "INI-TEST-GF-1-5" TO PAR-NAME. NC2234.2 040400 IF TEST-1-5 NC2234040500 PERFORM PASS NC2234.2 040600 GO TO INI-WRITE-GF-1-5 NC2234.2 040800 GO TO INI-FAIL-GF-1-5. NC2234.2 040900 INI-DELETE-GF-1-5. NC2234.2 041000 PERFORM . .2 041100 GO TO INI-WRITE-GF-1-5. NC2234.2 041200 INI-FAIL-GF-1-5. NC2234.2 041300 MOVE SPACES TO CORRECT-X NC2234.2 TO .2 041500 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 041600 FAIL.2 041700 INI-WRITE-GF-1-5. NC2234.2 041800 PERFORM PRINT-DETAIL. NC2234.2 041900* NC2234.2 042000 INI-TEST-GF-1-6. NC2234.2 1 REC-CT.2 042200 MOVE "INI-TEST-GF-1-6" TO PAR-NAME. NC2234.2 042300 IF TEST-1-6 = ZERO NC2234.2 042400 PERFORM PASS NC2234.2 042500 GO TO INI-WRITE-GF-1-6 NC2234.2 042600 ELSE .2 042700 GO TO INI-FAIL-GF-1-6. NC2234.2 042800 INI-DELETE-GF-1-6. NC2234.2 042900 PERFORM DE-LETE. NC2234.2 043000 GO TO INI-WRITE-GF-1-6. NC2234.2 043200 MOVE ZERO TO CORRECT-N NC2234.2 043300 MOVE TEST-1-6 TO COMPUTED-X NC2234204500 PERFORM . .043400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 043500 PERFORM FAILNC2234.2 043600 INI-WRITE-GF-1-6. NC2234.2 043700 PERFORM PRINT-DETAIL. NC2234.2 043800* NC2234.2 043900 INI-TEST-GF-1-7. NC2234.2 044000 ADD 1 TO REC-CT. NC2234.2 044100 MOVE "INI-TEST-GF-1-7" TO PAR-NAME. NC2234.2 044200 IF 204700 IF DNAME29 TO .2 044300 PERFORM PASS NC2234.2 044400 GO INI-WRITE-GF-1-7NC22342 044500 ELSE NC2234.2 044600 GO TO INI-FAIL-GF-1-7. NC2234.2 044700 INI-DELETE-GF-1-7. NC2234.2 044800 PERFORM DE-LETE. NC2234.2 044900 GO TO INI-WRITE-GF-1-7. NC2234.2 045000 INI-FAIL-GF-1-7. NC2234.2 045100 MOVE " $0.00" TO CORRECT-X. NC2234.2 045200 MOVE TEST-1-7 TO COMPUTED-X. NC2234.2 045300 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK. NC2234.2 045400 PERFORM FAIL. NC2234.2 045500 INI-WRITE-GF-1-7. NC2234.2 045600 PERFORM PRINT-DETAIL. NC2234.2 045700* NC2234.2 045800 INI-TEST-GF-1-8. NC2234.2 045900 ADD 1 TO REC-CT. NC2234.2 046000 MOVE "INI-TEST-GF-1-8" TO PAR-NAME. NC2234.2 046100 IF TEST-1-8 = SPACES NC2234.2 046200 PERFORM PASS NC2234.2 046300 GO TO INI-WRITE-GF-1-8 NC2234.2 046400 ELSE NC2234.2 046500 GO TO INI-FAIL-GF-1-8. NC2234.2 046600 INI-DELETE-GF-1-8NC2234046700 PERFORM DE-LETE. NC2234.2 046800 GO TO INI-WRITE-GF-1-8. NC2234.2 046900 INI-FAIL-GF-1-8. NC2234.2 047000 MOVE SPACES TO CORRECT-X NC2234.2 047100 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 047200 MOVE "INCORRECTLY INITIALIZED" TO 047300 PERFORM FAIL. NC2234.2 047400 INI-WRITE-GF-1-8. NC2234.2 047500 PERFORM PRINT-DETAIL. NC2234.2 047600* NC2234.2 047700 INI-TEST-GF-1-9. NC2234.2 047800 ADD 1 TO REC-CT. NC2234.2 047900 MOVE "INI-TEST-GF-1-9" TO PAR-NAME GO TO MOVE-WRITE-F1-58-9. .2 048000 IF TEST-1-9 = " / " NC2234.2 048100 PERFORM PASS206400 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-58-1. NC1044.2 048200 GO TO INI-WRITE-GF-1-9 NC2234.2 048300 ELSE NC22342 048400 GO TO INI-FAIL-GF-1-9. NC2234.2 048500 INI-DELETE-GF-1-9. NC2234.2 048600 PERFORM DE-LETE. NC2234.2 2 048800 INI-FAIL-GF-1-9. NC2234.2 048900 MOVE " / " TO CORRECT-X NC2234.2 049000 MOVE TEST-1-9 TO COMPUTED-X FAILNC1044.2 049100 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 049200 PERFORM FAIL. NC2234.2 049300 INI-WRITE-GF-1-9. NC2234.2 049400 PERFORM PRINT-DETAIL. NC2234.2 049500* NC2234.2 049600 INI-TEST-GF-1-10. NC2234.2 049700 ADD 1 TO REC-CT. NC2234.2 049800 MOVE "INI-TEST-GF-1-10" TO PAR-NAME. NC2234.2 049900 IF TEST-1-10 = SPACES NC2234.2 050000 PERFORM PASS NC2234.2 050100 GO TO INI-WRITE-GF-1-10 NC2234.2 050200 ELSE NC2234.2 050300 GO TO INI-FAIL-GF-1-10. NC2234.2 050400 INI-DELETE-GF-1-10. NC2234.2 050500 PERFORM DE-LETE. NC2234.2 050600 GO TO INI-WRITE-GF-1-10. NC2234.2 050700 INI-FAIL-GF-1-10. NC2234.2 050800 MOVE TO CORRECT-XNC2234.2 050900 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 051000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 051100 PERFORM FAIL. NC2234.2 051200 INI-WRITE-GF-1-10. NC2234.2 051300 PERFORM PRINT-DETAIL. NC2234.2 051400* NC2234.2 051500 INI-INIT-GF-2. NC2234.2 051600 MOVE "VI-91/2 6.16.2 GR2" TO ANSI-REFERENCE. NC2234.2 051700 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 051800 MOVE 1 TO REC-CT. NC2234.2 051900 INI-TEST-GF-2-0. NC2234.2 052000 INITIALIZE TEST-1-DATA NC22342 052100 REPLACING ALPHABETIC DATA BY "AAAAAA" . NC2234.2 052200 GO TO INI-TEST-GF-2-1. NC2234.2 052300 INI-DELETE-GF-2. NC2234.2 052400 PERFORM DE-LETE. NC2234.2 052500 PERFORM PRINT-DETAIL. NC2234.2 052600 GO TO INI-INIT-GF-3. NC2234.2 052700* NC2234.2 052800 INI-TEST-GF-2-1. NC2234.2 052900 MOVE "INI-TEST-GF-2-1" TO PAR-NAME. NC2234.2 053000 IF TEST-1-5 = "AAAAAA" NC2234.2 053100 PERFORM PASS NC2234.2 053200 GO TO INI-WRITE-GF-2-1 NC2234.2 053300 ELSE NC2234.2 053400 GO TO INI-FAIL-GF-2-1. NC2234.2 053500 INI-DELETE-GF-2-1. NC2234.2 053600 PERFORM DE-LETE. NC2234.2 053700 GO TO INI-WRITE-GF-2-1. NC2234.2 053800 INI-FAIL-GF-2-1. NC2234. java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80053900 MOVE "AAAAAA" TO CORRECT-X NC2234.2 054000 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 054100 MOVE INCORRECTLY" TO NC2234.2 054200 PERFORM FAIL. NC2234.2 054300 INI-WRITE-GF-2-1. NC2234.2 054400 PERFORM PRINT-DETAIL208700 PERFORM PRINT-DETAILNC1044java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80054500* NC2234.2 054600 INI-TEST-GF-2-2. NC2234.2 054700 ADD 1 TO REC-CT. NC2234.2 054800 MOVE "INI-TEST-GF-2-2" TO PAR-NAME. NC2234.2 054900 IF TEST-1-10 = "AAAAAA" NC2234055000 PERFORM PASS NC2234.2 055100 GO TO INI-WRITE-GF-2-2 NC2234.2 055200 ELSE NC2234.2 055300 GO OVE-WRITE-F1-58-11 NC1044.2 055400 INI-DELETE-GF-2-2. NC2234.2 055500 PERFORM DE-LETE. NC2234.2 055600 GO TO INI-WRITE-GF-2-2. NC2234.2 055700 INI-FAIL-GF-2-2. NC2234.2 2 055900 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 056000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 056200 INI-WRITE-GF-2-2. NC2234.2 056300 PERFORM PRINT-DETAIL. NC2234.2 056400* NC2234.2 056500 INI-TEST-GF-2-3. NC2234.2 056600 ADD 1 TO REC-CT. NC2234.2 056700 MOVE "INI-TEST-GF-2-3" TO PAR-NAME. NC2234.2 056800 IF TEST-1-1 = ZERO NC2234.2 056900 PERFORM PASS NC2234.2 057000 GO TO INI-WRITE-GF-2-3 NC2234.2 057100 ELSE NC2234.2 057200 GO TO INI-FAIL-GF-2-3. NC2234.2 057300 INI-DELETE-GF-2-3 .2 057400 PERFORM DE-LETE. NC2234.2 057500 GO TO INI-WRITE-GF-2-3. NC2234.2 057600 INI-FAIL-GF-2-3. NC2234.2 057700 MOVE ZERO TO CORRECT-N NC2234.2 057800 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 057900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 058100 PERFORM FAIL. NC2234.2 058200 INI-WRITE-GF-2-3. NC2234.2 058300 PERFORM . .2 058400* NC2234.2 058500 INI-TEST-GF-2-4. NC2234.2 058600 ADD 1 TO REC-CT. NC2234.2 058700 MOVE "INI-TEST-GF-2-4" TO PAR-NAME. NC2234.2 058800 IF TEST-1-2 = " $0.00" NC2234.2 058900 PERFORM PASS NC2234.2 TO .2 059100 ELSE NC2234.2 059200 GO TO INI-FAIL-GF-2-4. NC2234.2 059300 INI-DELETE-GF-2-4. NC2234.2 059400 PERFORM DE-LETE. NC2234.2 059500 GO TO INI-WRITE-GF-2-4. NC2234.2 059600 INI-FAIL-GF-2-4NC2234059700 MOVE " $0.00" TO CORRECT-X NC2234.2 059800 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 059900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 060000 TO RE-MARKNC22342 060100 PERFORM FAIL. NC2234.2 060200 INI-WRITE-GF-2-4. NC2234.2 060300 PERFORM PRINT-DETAIL. NC2234.2 060400* NC2234.2 060500 INI-TEST-GF-2-5NC2234060600 ADD 1 TO REC-CT. NC2234.2 060700 MOVE "INI-TEST-GF-2-5" TO PAR-NAME. NC2234.2 060800 IF TEST-1-3 = SPACES NC2234.2 060900 PERFORM PASS NC2234.2 061000 GO TO INI-WRITE-GF-2-5 NC2234.2 061100 ELSE NC2234.2 061200 GO TO INI-FAIL-GF-2-5. NC2234.2 061300 INI-DELETE-GF-2-5. NC2234.2 061400 PERFORM DE-LETE. NC2234.2 211600 MOVE-TEST-F1-58-13NC1044061600 INI-FAIL-GF-2-5. NC2234.2 061700 MOVE SPACES TO CORRECT-X NC2234.2 061800 MOVE TO COMPUTED-X.2 061900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 062000 TO .2 062100 PERFORM FAIL. NC2234.2 062200 INI-WRITE-GF-2-5. NC2234.2 062300 PERFORM PRINT-DETAIL. NC2234.2 062400* NC2234.2 062500 INI-TEST-GF-2-6. NC2234.2 062600 ADD 1 TO REC-CT. NC2234.2 062700 MOVE "INI-TEST-GF-2-6 TO PAR-NAME. NC2234.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80 062800 IF TEST-1-4 = " / " NC2234.2 062900 PERFORM PASS NC2234.2 063000 TO NC2234063100 ELSE NC2234.2 063200 GO TO INI-FAIL-GF-2-6. NC2234.2 063300 INI-DELETE-GF-2-6NC2234.063400 PERFORM DE-LETE. NC2234.2 063500 GO TO INI-WRITE-GF-2-6. NC2234.2 063600 INI-FAIL-GF-2-6NC2234063700 MOVE " / " TO CORRECT-X NC2234.2 063800 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 063900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 064000 TO RE-MARK NC2234.2 064100 PERFORM FAIL. NC2234.2 064200 INI-WRITE-GF-2-6. NC2234.2 2 064400* NC2234.2 064500 INI-TEST-GF-2-7. NC2234.2 064600 ADD 1 TO REC-CT. NC2234.2 064700 MOVE "INI-TEST-GF-2-7" TO PAR-NAME. NC2234.2 064800 IF TEST-1-6 = ZERO NC2234.2 064900 PERFORM PASS NC2234.2 065000 GO TO INI-WRITE-GF-2-7 NC2234.2 065100 ELSE NC2234.2 065200 GO TO INI-FAIL-GF-2-7. NC2234.2 065300 .NC2234065400 PERFORM DE-LETE. NC2234.2 065500 GO TO INI-WRITE-GF-2-7. NC2234.2 065600 INI-FAIL-GF-2-7. NC2234.2 065700 MOVE ZERO TO CORRECT-N NC2234.2 065800 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 065900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 066000 TO RE-MARK NC2234.2 066100 PERFORM FAIL. NC2234.2 066200 INI-WRITE-GF-2-7. NC2234.2 066300 PERFORM PRINT-DETAIL. NC2234.2 066400* NC2234.2 066500 INI-TEST-GF-2-8. NC2234.2 066600 ADD 1 TO REC-CT. NC2234.2 066700 MOVE "INI-TEST-GF-2-8" TO PAR-NAME. NC2234.2 066800 IF TEST-1-7 = " $0.00" NC2234.2 066900 PERFORM NC2234067000 GO TO INI-WRITE-GF-2-8 NC2234.2 067100 ELSE NC2234.2 067200 GO TO INI-FAIL-GF-2-8. NC2234.2 067300 INI-DELETE-GF-2-8. NC2234.2 067400 PERFORM DE-LETE. NC2234.2 067500 GO TO INI-WRITE-GF-2-8. NC2234.2 067600 INI-FAIL-GF-2-8. NC2234.2 067700 MOVE " $0.00" TO 214200 MOVE "MOVE-TEST-F1-58-14 " TO PAR-NAME. NC1044067800 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 067900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 068000 TO RE-MARK NC2234.2 068100 PERFORM . .2 068200 INI-WRITE-GF-2-8. NC2234.2 068300 PERFORM PRINT-DETAIL. NC2234.2 068400* NC2234.2 068500 INI-TEST-GF-2-9. NC2234.2 068600 ADD 1 TO REC-CT. NC2234.2 068700 MOVE "INI-TEST-GF-2-9" TO PAR-NAME. NC2234.2 068800 TEST-1-8 NC2234068900 PERFORM PASS NC2234.2 069000 GO TO INI-WRITE-GF-2-9 NC2234.2 069100 ELSE NC2234.2 069200 GO TO . .2 069300 INI-DELETE-GF-2-9. NC2234.2 069400 PERFORM DE-LETE. NC2234.2 069500 TO .NC2234069600 INI-FAIL-GF-2-9. NC2234.2 069700 MOVE SPACES TO CORRECT-X NC2234.2 069800 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 069900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 070000 TO RE-MARK NC2234.2 070100 PERFORM FAIL. NC2234.2 070200 INI-WRITE-GF-2-9. NC2234.2 070300 PERFORM PRINT-DETAIL. NC2234.2 070400* NC2234.2 070500 INI-TEST-GF-2-10. NC2234.2 070600 ADD 1 TO REC-CT. NC2234.2 070700 MOVE "INI-TEST-GF-2-10 TO PAR-NAME. NC2234.2 070800 IF TEST-1-9 = " / " NC2234.2 070900 PERFORM PASS NC2234.2 071000 GO TO INI-WRITE-GF-2-10 NC2234.2 071100 ELSE NC2234.2 071200 GO TO INI-FAIL-GF-2-10. NC2234.2 071300 INI-DELETE-GF-2-10. NC2234.2 071400 PERFORM DE-LETE. NC2234.2 071500 GO INI-WRITE-GF-2-10 NC2234071600 INI-FAIL-GF-2-10. NC2234.2 071700 MOVE " / " TO CORRECT-X NC2234.2 071800 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 071900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 072000 TO RE-MARK 216200 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-58-1. NC1044.2 072100 PERFORM FAIL. NC2234.2 072200 . .2 072300 PERFORM PRINT-DETAIL. NC2234.2 072400* NC2234.2 072500 INI-INIT-GF-3. NC2234.2 072600 MOVE "VI-91/2 6.16.2 GR2" TO ANSI-REFERENCE. NC2234.2 072700 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 072800 MOVE 1 TO REC-CT. NC2234.2 072900 INI-TEST-GF-3-0. NC2234073000 INITIALIZE TEST-1-DATA NC2234.2 073100 REPLACING ALPHANUMERIC BY "**********" . NC2234.2 073200 216700 MOVE-DELETE-F1-58-16. .2 073300 INI-DELETE-GF-3. NC2234.2 073400 PERFORM . NC2234073500 PERFORM PRINT-DETAIL. NC2234.2 073600 GO TO . .2 073700 INI-TEST-GF-3-1. NC2234.2 073800 MOVE 217000 MOVE "OVE-TEST-F1-58-16" TO . NC1044073900 IF TEST-1-3 = "**********" NC2234.2 074000 PERFORM PASS NC2234.2 074100 GO TO INI-WRITE-GF-3-1 NC2234.2 074200 ELSE .2 074300 GO TO INI-FAIL-GF-3-1. NC2234.2 074400 INI-DELETE-GF-3-1. NC2234.2 074500 PERFORM DE-LETE. NC2234.2 074600 GO TO INI-WRITE-GF-3-1. NC2234.2 074700 INI-FAIL-GF-3-1. NC2234.2 074800 MOVE "**********" TO CORRECT-X NC2234.2 074900 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 075000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 075100 PERFORM . NC2234java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80075200 INI-WRITE-GF-3-1. .2 075300 PERFORM PRINT-DETAIL. NC2234.2 075400* NC2234.2 075500 INI-TEST-GF-3-2. NC2234.2 075600 ADD 1 TO REC-CT. NC2234.2 075700 MOVE "INI-TEST-GF-3-2" TO PAR-NAME. NC2234.2 075800 IF TEST-1-8 = "**********" NC2234.2 075900 PASSNC2234076000 GO TO INI-WRITE-GF-3-2 NC2234.2 076100 ELSE NC2234.2 076200 GO TO INI-FAIL-GF-3-2. NC2234.2 076300 INI-DELETE-GF-3-2. NC2234.2 076400 218100 MOVE-DELETE-F1-58-17NC1044076500 GO TO INI-WRITE-GF-3-2. NC2234.2 076600 INI-FAIL-GF-3-2. NC2234.2 076700 MOVE "**********" TO CORRECT-X NC2234.2 076800 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 076900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 077000 FAIL077100 INI-WRITE-GF-3-2. NC2234.2 077200 PERFORM PRINT-DETAIL. NC2234.2 077300* NC2234.2 077400 INI-TEST-GF-3-3. NC2234.2 077500 ADD 1 TO REC-CT. NC2234.2 077600 MOVE "INI-TEST-GF-3-3" TO PAR-NAME. NC2234.2 077700 IF TEST-1-1 = ZERO NC2234.2 077800 PERFORM PASS NC2234.2 077900 GO TO INI-WRITE-GF-3-3 NC2234.2 078000 ELSE NC2234.2 078100 GO TO INI-FAIL-GF-3-3. NC2234.2 078200 INI-DELETE-GF-3-3. NC2234.2 078300 PERFORM DE-LETE. NC2234.2 078400 GO TO INI-WRITE-GF-3-3. NC2234.2 078500 INI-FAIL-GF-3-3. NC2234.2 078600 MOVE ZERO TO CORRECT-N NC2234.2 078700 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 078800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 078900 RE-MARKNC2234079000 PERFORM FAIL. NC2234.2 079100 INI-WRITE-GF-3-3. NC2234.2 079200 PERFORM PRINT-DETAIL. NC2234.2 079300* NC2234.2 079400 INI-TEST-GF-3-4. NC2234.2 th 80079600 MOVE "INI-TEST-GF-3-4" TO PAR-NAME. NC2234.2 079700 IF TEST-1-2 = " $0.00" NC2234.2 079800 PERFORM PASS NC2234.2 079900 GO TO INI-WRITE-GF-3-4 NC2234.2 080000 ELSE NC2234.2 080100 GO TO INI-FAIL-GF-3-4. NC2234.2 080200 INI-DELETE-GF-3-4. NC2234.2 080300 PERFORM . .2 080400 GO TO INI-WRITE-GF-3-4. NC2234.2 080500 INI-FAIL-GF-3-4. NC2234IF EQUAL TO NC1044080600 MOVE " $0.00" TO CORRECT-X NC2234.2 080800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 080900 TO RE-MARK NC2234.2 081000 PERFORM FAIL. NC2234.2 081100 INI-WRITE-GF-3-4. NC2234.2 081200 PERFORM PRINT-DETAIL. NC2234.2 081300* NC2234.2 081400 INI-TEST-GF-3-5. NC2234.2 081500 ADD 1 TO REC-CT. NC2234.2 081600 MOVE "INI-TEST-GF-3-5" TO PAR-NAME. NC2234.2 081700 IF TEST-1-4 = " / " NC2234.2 081800 PERFORM PASS NC2234.2 081900 GO TO INI-WRITE-GF-3-5 NC2234.2 082000 ELSE NC2234.2 082100 TO . .2 082200 INI-DELETE-GF-3-5. NC2234.2 082300 PERFORM DE-LETE. NC2234.2 082400 GO TO INI-WRITE-GF-3-5. NC2234.2 082500 INI-FAIL-GF-3-5. NC2234.2 082600 MOVE " / " TO CORRECT-X NC2234.2 082700 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 082800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 082900 TO RE-MARK NC2234.2 083000 PERFORM FAIL. NC2234.2 083100 INI-WRITE-GF-3-5. PRINT-DETAIL.2 083200 PERFORM PRINT-DETAIL. NC2234.2 083300* NC2234.2 083400 INI-TEST-GF-3-6. NC2234.2 083500 ADD TO . .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80083600 MOVE "INI-TEST-GF-3-6" TO PAR-NAME. NC2234.2 083700 IF TEST-1-5 = "AAAAAA" NC2234.2 083800 PERFORM PASS NC2234.2 083900 GO TO INI-WRITE-GF-3-6 NC2234.2 084000 ELSE NC2234.2 084100 GO TO INI-FAIL-GF-3-6. NC2234.2 084200 INI-DELETE-GF-3-6. NC2234.2 084300 DE-LETE. .2 084400 GO TO INI-WRITE-GF-3-6. NC2234.2 084500 INI-FAIL-GF-3-6. NC2234.2 084600 MOVE "AAAAAA" TO CORRECT-X NC2234.2 084700 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 084800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 084900 TO RE-MARK NC2234.2 085000 PERFORM FAIL. NC2234.2 085100 INI-WRITE-GF-3-6. NC2234.2 085300* NC2234.2 085500 ADD 1 TO REC-CT. NC2234.2 085600 "" TO . .2 085700 IF TEST-1-6 = ZERO NC2234.2 2 085900 GO TO INI-WRITE-GF-3-7 NC2234.2 086000 ELSE NC2234.2 086100 GO TO INI-FAIL-GF-3-7. NC2234.2 2 086300 PERFORM DE-LETE. NC2234.2 086400 GO TO INI-WRITE-GF-3-7. NC2234.2 086500 INI-FAIL-GF-3-7. NC2234.2 086600 MOVE ZERO TO CORRECT-N NC2234.2 086700 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 086800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 086900 TO .2 087000 PERFORM FAIL. NC2234.2 087100 INI-WRITE-GF-3-7. NC2234.2 087200 PERFORM PRINT-DETAIL. NC2234.2 087300* NC2234.2 087400 INI-TEST-GF-3-8. NC2234.2 087500 ADD 1 TO REC-CT. NC2234.2 087600 MOVE INI-TEST-GF-3-8 PAR-NAMENC2234087700 IF TEST-1-7 = " $0.00" NC2234.2 h 80087900 GO TO INI-WRITE-GF-3-8 NC2234.2 088000 ELSE .NC1044088100 GO TO INI-FAIL-GF-3-8. NC2234.2 088200 INI-DELETE-GF-3-8. NC2234.2 088300 PERFORM DE-LETE. NC2234.2 088400 GO TO INI-WRITE-GF-3-8. NC2234.2 088500 INI-FAIL-GF-3-8. NC2234.2 088600 MOVE " $0.00" TO CORRECT-X NC2234.2 088700 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 088800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 088900 TO RE-MARK NC2234.2 089000 PERFORM FAIL. NC2234.2 089100 INI-WRITE-GF-3-8. NC2234.2 089200 PERFORM PRINT-DETAIL. NC2234.2 089300* NC2234.2 089400 INI-TEST-GF-3-9.2 089500 ADD 1 TO REC-CT. NC2234.2 089600 MOVE "INI-TEST-GF-3-9" TO PAR-NAME. NC2234.2 089700 IF TEST-1-9 = " / " NC2234.2 089800 PERFORM PASS NC2234.2 089900 GO TO INI-WRITE-GF-3-9 NC2234.2 090000 ELSE NC2234.2 090100 GO TO INI-FAIL-GF-3-9. NC2234.2 090200 INI-DELETE-GF-3-9. NC2234.2 090300 PERFORM DE-LETE. NC2234.2 090500 INI-FAIL-GF-3-9. NC2234.2 090600 MOVE "/ TOCORRECT-X 2 090700 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 090800 MOVE WRONGLYBY OTHER NC2234090900 TO RE-MARK NC2234.2 091000 PERFORM FAIL. NC2234.2 091100 INI-WRITE-GF-3-9. NC2234.2 091200 PERFORM PRINT-DETAIL. NC2234.2 091300* NC2234.2 091400 INI-TEST-GF-3-10. NC2234.2 091500 ADD 1 TO REC-CT. NC2234.2 091600 MOVE "INI-TEST-GF-3-10" TO PAR-NAME. NC2234.2 091700 IF TEST-1-10 = "AAAAAA" NC2234.2 091800 PERFORM PASS NC2234.2 091900 TO .092000 ELSE NC2234.2 092100 GO TO INI-FAIL-GF-3-10. NC2234.2 092200 INI-DELETE-GF-3-10. NC2234.2 092300 PERFORM DE-LETE. NC2234.2 092400 GO TO INI-WRITE-GF-3-10. NC2234.2 092500 INI-FAIL-GF-3-10. NC2234.2 092600 MOVE "AAAAAA" TO CORRECT-X NC2234.2 092700 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 092800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 092900 TO RE-MARK NC2234.2 093000 PERFORM FAIL. NC2234.2 093100 INI-WRITE-GF-3-10. NC2234.2 093200 PERFORM PRINT-DETAIL. NC2234.2 093300* NC2234.2 093400 INI-INIT-GF-4. NC2234.2 093500 MOVE "VI-91/2 6.16.2 GR2" TO ANSI-REFERENCE. NC2234.2 093600 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 093700 MOVE 1 TO REC-CT. NC2234.2 093800 INI-TEST-GF-4-0. NC2234.2 093900 INITIALIZE TEST-1-DATA NC2234.2 094000 REPLACING ALPHANUMERIC-EDITED BY "DDDDDD" . NC2234.2 094100 GO TO INI-TEST-GF-4-1. NC2234.2 094200 INI-DELETE-GF-4. NC2234.2 094300 PERFORM DE-LETE. NC2234.2 094400 PERFORM PRINT-DETAIL. NC2234.2 094500 GO TO INI-INIT-GF-5. NC2234.2 094600 INI-TEST-GF-4-1. 227100 MOVE ANDATA2 TO . NC1044094700 MOVE "INI-TEST-GF-4-1" TO PAR-NAME. NC2234.2 094800 IF TEST-1-4 = "DD DD/DD" NC2234.2 094900 PERFORM PASS NC2234.2 095000 GO TO INI-WRITE-GF-4-1 NC2234.2 095100 ELSE NC2234.2 095200 GO TO INI-FAIL-GF-4-1. NC2234.2 095300 INI-DELETE-GF-4-1. NC2234.2 095500 GO TO INI-WRITE-GF-4-1. NC2234.2 095600 INI-FAIL-GF-4-1. NC2234.2 095700 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 095800 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 095900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 096000 PERFORM . .2 096100 INI-WRITE-GF-4-1. NC2234.2 096200 PERFORM PRINT-DETAIL. NC2234.2 096300* NC2234.2 096400 INI-TEST-GF-4-2. NC2234.2 096500 ADD 1 TO REC-CT. NC2234.2 096600 MOVE "INI-TEST-GF-4-2" TO PAR-NAME. NC2234.2 096700 IF TEST-1-9 = "DD DD/DD" NC2234.2 096800 PERFORM PASS NC2234.2 096900 GO TO INI-WRITE-GF-4-2 NC2234.2 097000 ELSE NC2234.2 097100 GO TO INI-FAIL-GF-4-2. NC2234.2 097200 INI-DELETE-GF-4-2. NC2234.2 097300 PERFORM DE-LETE. NC2234.2 097400 GO TO INI-WRITE-GF-4-2. NC2234.2 097500 INI-FAIL-GF-4-2. NC2234.2 097600 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 097700 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 097800 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 097900 PERFORM FAIL. NC2234.2 098000 INI-WRITE-GF-4-2. NC2234.2 098100 PERFORM PRINT-DETAIL. NC2234.2 098200* NC2234.2 098300 INI-TEST-GF-4-3. NC2234.2 1 TO . .2 098500 MOVE "INI-TEST-GF-4-3" TO PAR-NAME. NC2234.2 098600 IF TEST-1-1 = ZERO NC2234.2 098700 PERFORM PASS NC2234.2 098800 GO TO INI-WRITE-GF-4-3 NC2234.098800 MOVE-WRITE-F1-59-3.2 098900 ELSE NC2234.2 099000 GO TO INI-FAIL-GF-4-3. NC2234.2 099100 INI-DELETE-GF-4-3. NC2234.2 099200 PERFORM DE-LETE. NC2234.2 099300 GO TO INI-WRITE-GF-4-3. NC2234.2 099400 INI-FAIL-GF-4-3. NC2234.2 099500 MOVE ZERO TO CORRECT-N NC2234.2 099600 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 099700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 099800 TO RE-MARK NC2234.2 099900 PERFORM FAIL. NC2234.2 229800 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-59-1. NC1044.2 100100 PERFORM 229900 MOVE ANDATA4 COMPUTED-ANC10442 100200* NC2234.2 100300 INI-TEST-GF-4-4. NC2234.2 100400 ADD 1 TO REC-CT. NC2234.2 100500 MOVE "INI-TEST-GF-4-4" TO PAR-NAME. NC2234.2 00 .2 100700 PERFORM PASS NC2234.2 100800 GO INI-WRITE-GF-4-4NC2234.2 100900 ELSE NC2234.2 101000 GO TO INI-FAIL-GF-4-4. NC2234.2 101100 INI-DELETE-GF-4-4. NC2234.2 101200 PERFORM DE-LETE. NC2234.2 101300 GO TO INI-WRITE-GF-4-4. NC2234.2 101400 INI-FAIL-GF-4-4. NC2234.2 101500 MOVE " $0.00" TO CORRECT-X NC2234.2 101600 MOVE TO COMPUTED-X .2 101700 MOVE "WRONGLY AFFECTED 230900 IF ANDATA5 EQUAL TO" A java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80101800 TO RE-MARK NC2234.2 101900 PERFORM FAIL. NC2234.2 102000 INI-WRITE-GF-4-4. NC2234.2 102100 PERFORM . .2 102200* NC2234.2 102300 INI-TEST-GF-4-5. NC2234.2 102400 ADD 1 TO REC-CT. NC2234.2 102500 MOVE "INI-TEST-GF-4-5" TO PAR-NAME. NC2234.2 102600 IF TEST-1-3 = "**********" NC2234.2 102700 PERFORM PASS NC2234.2 102800 GO TO INI-WRITE-GF-4-5 NC2234.2 102900 ELSE NC2234.2 103000 GO TO INI-FAIL-GF-4-5. NC2234.2 103100 INI-DELETE-GF-4-5. NC2234.2 103200 PERFORM DE-LETE. NC2234.2 103300 GO TO INI-WRITE-GF-4-5. NC2234.2 103400 INI-FAIL-GF-4-5. NC2234.2 "****** TO CORRECT-X NC22342 103600 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 103700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 103800 TO RE-MARK NC2234.2 103900 PERFORM FAIL. NC2234.2 104000 PASS2 104100 PERFORM PRINT-DETAIL. NC2234.2 104200* NC2234.2 104300 INI-TEST-GF-4-6232600 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-59-1. NC1044.2 104400 ADD 1 TO MOVE TO .NC1044104500 MOVE "INI-TEST-GF-4-6" TO PAR-NAME. NC2234.2 104600 TEST-1-5" NC2234.2 104700 PERFORM PASS NC2234.2 104800 GO TO INI-WRITE-GF-4-6 NC2234.2 104900 ELSE NC2234.2 105000 GO TO INI-FAIL-GF-4-6. NC2234.2 105100 INI-DELETE-GF-4-6. NC2234.2 105200 PERFORM DE-LETE. NC2234.2 105300 GO TO INI-WRITE-GF-4-6. NC2234.2 105400 INI-FAIL-GF-4-6. NC2234.2 105500 MOVE "AAAAAA" TO CORRECT-X NC2234.2 105600 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 105700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 233500 PRINT-DETAIL.105900 PERFORM FAIL. NC2234.2 106000 INI-WRITE-GF-4-6. NC2234.2 106100 PERFORM PRINT-DETAIL. NC2234.2 106200* NC2234.2 106300 PASSNC1044.2 106400 ADD 1 TO REC-CT. NC2234.2 106500 MOVE " .NC2234.2 106600 IF TEST-1-6 = ZERO NC2234.2 106700 PERFORM PASS NC2234.2 106800 GO TO INI-WRITE-GF-4-7 NC2234.2 106900 ELSE NC2234.2 107000 GO TO INI-FAIL-GF-4-7. NC2234.2 107100 INI-DELETE-GF-4-7. NC2234.2 107200 PERFORM . .2 107300 GO TO INI-WRITE-GF-4-7. NC2234.2 2 107500 MOVE ZERO TO CORRECT-N NC2234.2 107600 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 107700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 107800 TO RE-MARK NC2234.2 107900 PERFORM FAIL. NC2234.2 108000 INI-WRITE-GF-4-7NC2234.2 108100 PERFORM PRINT-DETAIL. NC2234.2 108200* NC2234.2 108300 INI-TEST-GF-4-8. NC2234.2 108400 ADD 1 TO MOVE-TEST-F1-59-8. .2 108500 MOVE "INI-TEST-GF-4-8" TO PAR-NAME. NC2234.2 108600 IF TEST-1-7 = " $0.00" NC2234.2 108700 PERFORM PASS NC2234.2 108900 ELSE NC2234.2 109000 GO TO INI-FAIL-GF-4-8. NC2234.2 109100 INI-DELETE-GF-4-8. NC2234.2 109200 PERFORM DE-LETE. NC2234.2 109300 GO TO INI-WRITE-GF-4-8. NC2234.2 109400 INI-FAIL-GF-4-8. NC2234.2 "0" TO .109600 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 109700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 109800 TO RE-MARK NC2234.2 109900 PERFORM FAIL. NC2234.2 110000 INI-WRITE-GF-4-8. NC2234.2 110100 PERFORM PRINT-DETAIL. NC2234.2 110200* NC2234.2 110300 INI-TEST-GF-4-9. NC2234.2 110400 ADD 1 TO REC-CT. NC2234.2 110500 MOVE "INI-TEST-GF-4-9" TO 236100 MOVE-WRITE-F1-59-8 NC1044110600 IF TEST-1-8 = "**********" NC2234.2 110700 PERFORM NC2234110800 GO TO INI-WRITE-GF-4-9 NC2234.2 110900 ELSE PERFORM . .2 GO INI-FAIL-GF-4-9.2 111100 INI-DELETE-GF-4-9. NC2234.2 111200 PERFORM DE-LETE. NC2234.2 111300 GO TO INI-WRITE-GF-4-9. NC2234.2 111400 INI-FAIL-GF-4-9. NC2234.2 111500 MOVE "**********" TO CORRECT-X NC2234.2 111600 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 111700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 111800 TO RE-MARK NC2234 TO . NC10442 111900 PERFORM FAIL. NC2234.2 112000 INI-WRITE-GF-4-9. NC2234.2 112100 PERFORM PRINT-DETAIL. NC2234.2 112200* NC2234.2 112300 INI-TEST-GF-4-10. NC2234.2 112400 ADD 1 TO REC-CT. NC2234.2 112500 MOVE "INI-TEST-GF-4-10" TO PAR-NAME. NC2234.2 112600 IF TEST-1-10 = "AAAAAA" NC2234.2 112700 PERFORM PASS NC2234.2 112800 GO TO INI-WRITE-GF-4-10 NC2234.2 112900 ELSE . .2 GO INI-FAIL-GF-4-10 NC2234113100 INI-DELETE-GF-4-10. NC2234.2 113200 PERFORM DE-LETE. NC2234.2 113300 GO TO INI-WRITE-GF-4-10. NC2234.2 113400 INI-FAIL-GF-4-10. .2 113500 MOVE "AAAAAA" TO CORRECT-X NC2234.2 113600 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 113700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 113800 TO RE-MARK NC2234.2 113900 PERFORM FAIL. NC2234.2 114000 INI-WRITE-GF-4-10. NC2234.2 114100 PERFORM PRINT-DETAIL. NC2234.2 114200* NC2234.2 114300 INI-INIT-GF-5. NC2234.2 114400 MOVE "VI-91/2 6.16.2 GR2" TO ANSI-REFERENCE. NC2234.2 114500 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 114600 MOVE 238200 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-59-1. NC1044.2 114700 INI-TEST-GF-5-0. NC2234.2 114800 INITIALIZE TEST-1-DATA NC2234.2 114900 REPLACING NUMERIC DATA BY 1234 . NC2234.2 115000 GO TO INI-TEST-GF-5-1. NC2234.2 115100 INI-DELETE-GF-5. NC2234.2 115200 PERFORM DE-LETE. NC2234.2 115300 PERFORM .NC2234115400 GO TO INI-INIT-GF-6. NC2234.2 115500 INI-TEST-GF-5-1. NC2234.2 115600 MOVE "INI-TEST-GF-5-1" TO PAR-NAME. NC2234.2 115700 IF TEST-1-1 = 001234 NC2234.2 115800 PERFORM PASS NC2234.2 115900 GO TO INI-WRITE-GF-5-1 NC2234.2 116000 ELSE NC2234.2 116100 GO TO INI-FAIL-GF-5-1. NC2234.2 116200 INI-DELETE-GF-5-1 "MOVE-TEST-F1-59-10 PAR-NAME.NC10442 116300 PERFORM DE-LETE. NC2234.2 116400 GO TO INI-WRITE-GF-5-1. NC2234.2 116500 INI-FAIL-GF-5-1. NC2234.2 116600 MOVE 001234 TO CORRECT-N NC2234.2 116700 MOVE TEST-1-1 TO COMPUTED-N NC2234.2 116800 MOVE "INCORRECTLY INITIALIZED" TO 239300 IF ANDATA11 TO A" .2 116900 PERFORM FAIL. NC2234.2 239400 PASSNC10442 117000 INI-WRITE-GF-5-1. NC2234.2 117100 PERFORM .NC2234117200* NC2234.2 117300 INI-TEST-GF-5-2. NC2234.2 117400 ADD 1 TO REC-CT. NC2234.2 117500 MOVE "INI-TEST-GF-5-2" TO PAR-NAME. NC2234.2 117600 IF TEST-1-6 = 001234 NC2234.2 117700 PERFORM PASS NC2234.2 117800 GO TO INI-WRITE-GF-5-2NC2234117900 ELSE NC2234.2 118000 GO TO INI-FAIL-GF-5-2. NC2234.2 118100 . .2 118200 PERFORM DE-LETE. NC2234.2 118300 GO TO INI-WRITE-GF-5-2. NC2234.2 118400 INI-FAIL-GF-5-2. NC2234.2 118500 MOVE 001234 TO CORRECT-N NC2234.2 118600 MOVE TEST-1-6 TO COMPUTED-N NC2234.2 118700 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 118800 PERFORM FAIL. NC2234.2 118900 INI-WRITE-GF-5-2. NC2234.2 119000 PERFORM PRINT-DETAIL. NC2234.2 119100* NC2234.2 119200 INI-TEST-GF-5-3. NC2234.2 119300 ADD 240600 MOVE-TEST-F1-59-12. NC10442 119400 MOVE "INI-TEST-GF-5-3" TO PAR-NAME. NC2234.2 119500 IF TEST-1-2240700 IF ANDATA12 EQUAL TO A" NC1044.2 119600 PERFORM PASS NC2234.2 119700 GO TO INI-WRITE-GF-5-3 NC2234.2 119800 ELSE NC2234.2 119900 GO TO INI-FAIL-GF-5-3. NC2234.2 120000 INI-DELETE-GF-5-3. NC2234.2 120100 PERFORM DE-LETE. NC2234.2 120200 GO TO INI-WRITE-GF-5-3. NC2234.2 120400 MOVE " $0.00" TO CORRECT-X NC2234.2 120500 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 120600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 120800 PERFORM FAIL. NC2234.2 120900 INI-WRITE-GF-5-3. NC2234.2 121000 PERFORM PRINT-DETAIL. NC2234.2 121100* NC2234.2 121200 INI-TEST-GF-5-4. NC2234.2 121300 ADD 1 TO . .2 121400 MOVE "INI-TEST-GF-5-4" TO PAR-NAME. NC2234.2 121500 IF TEST-1-3 = "******* .2 121600 PERFORM PASS NC2234.2 121700 GO TO INI-WRITE-GF-5-4 NC2234.2 121800 ELSE NC2234.2 121900 GO TO INI-FAIL-GF-5-4. NC2234.2 2 122100 PERFORM DE-LETE. NC2234.2 122200 GO TO INI-WRITE-GF-5-4. NC2234.2 122300 INI-FAIL-GF-5-4. NC2234.2 122400 MOVE "**********" TO CORRECT-X NC2234.2 122500 MOVE TEST-1-3 TO COMPUTED-X NC2234122600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 122700 TO RE-MARK NC2234.2 122800 PERFORM FAIL. NC2234.2 122900 INI-WRITE-GF-5-4 .2 123000 PERFORM PRINT-DETAIL. NC2234.2 123100* NC2234.2 123200 INI-TEST-GF-5-5. NC2234.2 123300 ADD 1 TO REC-CT. NC2234.2 123400 MOVE "INI-TEST-GF-5-5" TO PAR-NAME. NC2234.2 " NC2234.2 123600 PERFORM PASS NC2234.2 123700 GO TO INI-WRITE-GF-5-5 NC2234.2 123800 ELSE NC2234.2 123900 GO TO INI-FAIL-GF-5-5. NC2234.2 124000 INI-DELETE-GF-5-5. NC2234.2 124100 PERFORM DE-LETE. NC2234.2 124200 GO TO INI-WRITE-GF-5-5. NC2234.2 124300 INI-FAIL-GF-5-5NC22342 124400 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 124500 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 124600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 124700 TO RE-MARK NC2234.2 124800 PERFORM FAIL. NC2234.2 124900 INI-WRITE-GF-5-5. NC2234.2 125000 PERFORM PRINT-DETAIL. NC2234.2 125100* NC2234.2 125200 INI-TEST-GF-5-6. NC2234.2 125300 ADD 1 TO MOVE-WRITE-F1-59-14. .2 125400 MOVE "INI-TEST-GF-5-6" TO PAR-NAME.244600 MOVE "MOVE-TEST-F1-59-14 " TO . .2 125500 IF TEST-1-5 = "AAAAAA" NC2234.2 125600 PERFORM PASS NC2234.2 125700 GO TO INI-WRITE-GF-5-6 NC2234.2 125800 ELSE NC2234.2 125900 GO TO INI-FAIL-GF-5-6. NC2234.2 126000 INI-DELETE-GF-5-6. NC2234.2 126100 PERFORM DE-LETE. NC2234.2 126200 GO TO INI-WRITE-GF-5-6. NC2234.2 126300 INI-FAIL-GF-5-6. NC2234.2 126400 MOVE "AAAAAA" TO CORRECT-X245200 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-59-1. NC1044.2 126500 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 126600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 126700 TO RE-MARK NC2234.2 126800 PERFORM FAIL. NC2234.2 126900 INI-WRITE-GF-5-6. NC2234.2 127000 PERFORM PRINT-DETAIL. NC2234.2 127100* NC2234.2 127200 INI-TEST-GF-5-7. NC2234.2 127300 ADD 1 TO REC-CT. NC2234 DE-LETE .2 127400 MOVE "INI-TEST-GF-5-7" TO PAR-NAME. NC2234.2 127500 IF TEST-1-7 = " $0.00" NC2234.2 2 127700 GO TO INI-WRITE-GF-5-7 NC2234.2 127800 .2 127900 GO TO INI-FAIL-GF-5-7. NC2234.2 128000 INI-DELETE-GF-5-7. NC2234.2 128100 PERFORM DE-LETE. NC2234.2 128200 GO TO INI-WRITE-GF-5-7. NC2234.2 128300 INI-FAIL-GF-5-7. NC2234.2 128400 MOVE " $0.00" TO CORRECT-X NC2234.2 128500 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 128600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 128700 TO RE-MARK NC2234.2 128800 PERFORM FAIL. NC2234.2 128900 INI-WRITE-GF-5-7. NC2234.2 129000 PERFORM PRINT-DETAIL. NC2234.2 129100* NC2234.2 129200 INI-TEST-GF-5-8. NC2234.2 129300 ADD 1 TO REC-CT. NC2234.2 129400 MOVE "INI-TEST-GF-5-8" TO PAR-NAME. NC2234.2 129500 IF TEST-1-8 = "**********" NC2234.2 129600 PERFORM PASS NC2234.2 129700 TO MOVE-WRITE-F1-59-16.2 129800 ELSE NC2234.2 129900 GO TO INI-FAIL-GF-5-8. NC2234.2 130000 INI-DELETE-GF-5-8. NC2234.2 130100 PERFORM DE-LETE MOVE MOVE-TEST-F1-59-16"TO . NC10442 130200 GO TO INI-WRITE-GF-5-8. NC2234.2 130300 INI-FAIL-GF-5-8. NC2234.2 130400 MOVE "**********" TO CORRECT-X NC2234.2 130500 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 130600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 130700 TO RE-MARK NC2234.2 130800 PERFORM FAIL. NC2234.2 130900 INI-WRITE-GF-5-8. NC2234.2 131000 PERFORM PRINT-DETAIL. NC2234.2 131100* NC2234.2 131200 INI-TEST-GF-5-9. NC2234.2 131300 ADD 1 TO REC-CT. NC2234.2 131400 MOVE "INI-TEST-GF-5-9" TO PAR-NAME. NC2234.2 131500 IF TEST-1-9 = "DD DD/DD" NC2234.2 131600 PERFORM PASS.2 131700 GO TO INI-WRITE-GF-5-9 NC2234.2 131800 ELSE NC2234.2 131900 GO TO INI-FAIL-GF-5-9. NC2234.2 132000 INI-DELETE-GF-5-9. NC2234.2 132100 PERFORM DE-LETE. NC2234 FAILNC1044132200 GO TO INI-WRITE-GF-5-9. NC2234.2 132300 INI-FAIL-GF-5-9. NC2234.2 MOVE /TO .132500 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 132600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 132700 TO RE-MARK 248700 MOVE-WRITE-F1-59-17. .2 132800 PERFORM FAIL. NC2234.2 132900 INI-WRITE-GF-5-9. NC2234.2 133000 PERFORM PRINT-DETAIL. NC2234.2 133100* NC2234.2 133200 INI-TEST-GF-5-10. NC2234.2 133300 ADD 1 TO REC-CT. NC2234.2 133400 MOVE "INI-TEST-GF-5-10" TO PAR-NAME. NC2234.2 133500 IF TEST-1-10 = "AAAAAA" NC2234.2 133600 PERFORM PASS NC2234.2 133700 GO TO INI-WRITE-GF-5-10 NC2234.2 133800 ELSE NC2234.2 133900 GO TO INI-FAIL-GF-5-10. NC2234.2 134000 INI-DELETE-GF-5-10. NC2234.2 134100 PERFORM DE-LETE. NC2234.2 134200 GO TO INI-WRITE-GF-5-10. NC2234.2 134300 INI-FAIL-GF-5-10. NC2234.2 134400 MOVE "AAAAAA" TO CORRECT-X NC2234.2 134500 MOVE 249800 TO MOVE-WRITE-F1-59-18.NC10442 134600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 134700 TO RE-MARK NC2234.2 134800 PERFORM FAIL. NC2234.2 135000 PERFORM PRINT-DETAIL. NC2234.2 135100* NC2234.2 135200 INI-INIT-GF-6. NC2234.2 135300 MOVE "VI-91/2 6.16.2 GR2" TO 250200 MOVE MOVE-TEST-F1-59-18TO PAR-NAMENC1044135400 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 135500 MOVE 1 TO REC-CT. NC2234.2 135600 . 2 135700 INITIALIZE TEST-1-DATA NC2234.2 135800 REPLACING NUMERIC-EDITED DATA BY NUM-1234. NC2234.2 135900 GO TO INI-TEST-GF-6-1. NC2234.2 136100 PERFORM DE-LETE. NC2234.2 136200 PERFORM PRINT-DETAILNC22342 136300 GO TO INI-INIT-GF-7. NC2234.2 136400 INI-TEST-GF-6-1. NC2234.2 136500 MOVE "INI-TEST-GF-6-1" TO PAR-NAME. NC2234.2 136600 IF TEST-1-2 = "$234.00" NC2234.2 136700 PERFORM PASS NC2234.2 136800 GO TO INI-WRITE-GF-6-1 NC2234.2 136900 ELSE NC2234.2 137000 GO TO INI-FAIL-GF-6-1. NC2234.2 137100 INI-DELETE-GF-6-1. NC2234.2 137200 PERFORM DE-LETE. NC2234.2 137300 GO TO INI-WRITE-GF-6-1. NC2234.2 137400 INI-FAIL-GF-6-1. NC2234.2 137500 MOVE "$234.00" TO CORRECT-X NC2234.2 137600 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 137700 MOVE "INCORRECTLY INITIALIZED" TO NC2234137800 PERFORM FAIL. NC2234.2 137900 INI-WRITE-GF-6-1. .2 138000 PERFORM PRINT-DETAIL. NC2234.2 138100* NC2234.2 138200 INI-TEST-GF-6-2. NC2234.2 138300 ADD 1 TO . NC2234.2 138400 MOVE "INI-TEST-GF-6-2" TO PAR-NAME. NC2234.2 138500 IF TEST-1-7 = "$234.00" NC2234.2 138600 PERFORM PASS NC2234.2 138700 GO TO INI-WRITE-GF-6-2 NC2234.2 2 138900 GO TO INI-FAIL-GF-6-2. NC2234.2 139000 INI-DELETE-GF-6-2. NC2234.2 139100 PERFORM DE-LETE. NC2234.2 139200 GO TO INI-WRITE-GF-6-2. NC2234.2 139300 INI-FAIL-GF-6-2. NC2234.2 139400 MOVE "$234.00" TO CORRECT-X NC2234.2 139500 MOVE TEST-1-7 TO COMPUTED-X 252800 PERFORM DE-LETENC10442 139600 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 139700 PERFORM FAIL. NC2234.2 139800 INI-WRITE-GF-6-2. NC2234253000 MOVE MOVE-TEST-F1-59-20TO . NC1044.2 139900 PERFORM PRINT-DETAIL. NC2234.2 140000* NC2234.2 140100 INI-TEST-GF-6-3. NC2234.2 140200 ADD 1 TO REC-CT. NC2234.2 140300 MOVE "INI-TEST-GF-6-3" TO PAR-NAME. NC2234.2 140400 IF TEST-1-1 = 001234 NC2234.2 140500 PERFORM PASS NC2234.2 140600 GO TO INI-WRITE-GF-6-3 NC2234.2 140700 ELSE NC2234.2 140800 GO TO INI-FAIL-GF-6-3. NC2234.2 2 141000 PERFORM DE-LETE. NC2234.2 141100 GO TO INI-WRITE-GF-6-3. NC2234.2 141200 INI-FAIL-GF-6-3. NC2234.2 141300 MOVE 001234 TO CORRECT-N NC2234.2 141400 254100 MOVE-DELETE-F1-59-21. NC1044141500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 141600 TO RE-MARK NC2234.2 141700 PERFORM FAIL. NC2234.2 141800 INI-WRITE-GF-6-3. NC2234.2 141900 PERFORM PRINT-DETAIL. NC2234.2 142000* NC2234.2 142100 INI-TEST-GF-6-4. NC2234.2 142200 ADD 1 TO REC-CT. NC2234.2 142300 MOVE "INI-TEST-GF-6-4" TO PAR-NAME. NC2234.2 142400 IF TEST-1-3 = "**********" NC2234.2 142500 PERFORM NC2234.2 142600 GO TO INI-WRITE-GF-6-4 NC2234.2 142700 ELSE NC2234.2 142800 GO TO INI-FAIL-GF-6-4. NC2234.2 142900 INI-DELETE-GF-6-4. NC2234 MOVE "ABCDEFGHIJKLMNOPQRSTU" TO ANDATA2 NC10442 143000 PERFORM DE-LETE. NC2234.255000 ANDATA5ANDATA6 ANDATA8 .2 143100 GO TO INI-WRITE-GF-6-4. NC2234.2 143200 INI-FAIL-GF-6-4. NC2234.2 143300 MOVE "**********" TO CORRECT-X NC2234.2 143400 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 143500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 143600 TO RE-MARK PASSNC1044143700 PERFORM FAIL. NC2234.2 143800 INI-WRITE-GF-6-4. NC2234.2 143900 PERFORM PRINT-DETAIL. NC2234.2 144000* NC2234.2 144100 INI-TEST-GF-6-5. NC2234.2 144200 ADD 1 TO REC-CT. NC2234.2 144300 MOVE "" TO . NC2234144400 IF 256100 GO TO MOVE-WRITE-F1-60-1NC1044144500 PERFORM PASS NC2234.2 144600 GO TO INI-WRITE-GF-6-5 NC2234.2 144700 ELSE NC2234.2 144800 GO TO INI-FAIL-GF-6-5. NC2234.2 144900 INI-DELETE-GF-6-5. NC2234.2 145000 PERFORM DE-LETE. NC2234.2 145100 GO TO INI-WRITE-GF-6-5. NC2234.2 145200 INI-FAIL-GF-6-5NC22342 145300 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 145400 MOVE TEST-1-4 TO COMPUTED-X NC2234 MOVE-TEST-F1-60-2.NC10442 145500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 145600 TO RE-MARK NC2234.2 PERFORM .NC2234java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80145800 INI-WRITE-GF-6-5. NC2234.2 145900 PERFORM PRINT-DETAILMOVE TO . .2 146000* NC2234.2 146100 INI-TEST-GF-6-6. NC2234.2 146200 ADD 1 TO REC-CT. NC2234.2 146300 MOVE "INI-TEST-GF-6-6" TO PAR-NAME. NC2234.2 146400 IF TEST-1-5 = "AAAAAA" NC2234.2 146500 PERFORM PASS NC2234.2 146600 GO TO INI-WRITE-GF-6-6 NC2234.2 146700 ELSE NC2234.2 146800 GO TO INI-FAIL-GF-6-6. NC2234.2 146900 INI-DELETE-GF-6-6. NC2234.2 147000 PERFORM . NC2234.147100 GO TO INI-WRITE-GF-6-6. NC2234.2 147200 INI-FAIL-GF-6-6 NC2234147300 MOVE "AAAAAA" TO CORRECT-X NC2234.2 147400 MOVE TEST-1-5 TO COMPUTED-X258000 PERFORM PRINT-DETAIL. NC1044147500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 147600 TO RE-MARK NC2234.2 147700 PERFORM FAIL. NC2234.2 2 147900 PERFORM PRINT-DETAIL. NC2234.2 148000* NC2234.2 148100 INI-TEST-GF-6-7. NC2234.2 148200 ADD 1 TO REC-CT. NC2234.2 148300 MOVE "258500* NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-60-1. NC1044.2 148400 IF TEST-1-6258600 MOVE ANDATA3 TO COMPUTED-A. NC1044.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80148500 PERFORM PASS NC2234.2 148600 GO TO INI-WRITE-GF-6-7 NC2234.2 148700 ELSE NC2234.2 GO TO . NC2234.2 148900 INI-DELETE-GF-6-7. NC2234.2 149000 PERFORM DE-LETE. NC2234.2 149100 GO TO INI-WRITE-GF-6-7. NC2234.2 149200 INI-FAIL-GF-6-7. NC2234.2 149300 MOVE 1234 TO CORRECT-N NC2234.2 149400 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 149500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 149600 TO RE-MARK NC2234.2 149700 PERFORM FAIL. NC2234.2 149800 INI-WRITE-GF-6-7. 259400 PERFORM PRINT-DETAILNC1044.149900 PERFORM PRINT-DETAIL. NC2234.2 150000* NC2234.2 150100 INI-TEST-GF-6-8. NC2234.2 150200 ADD 1 TO REC-CT. NC2234.2 150300 MOVE "INI-TEST-GF-6-8" TO PAR-NAME. NC2234.2 150400 IF TEST-1-8 = "**********" NC2234.2 150500 259800 GO MOVE-WRITE-F1-60-4NC1044150600 GO TO INI-WRITE-GF-6-8 NC2234.2 150700 ELSE NC2234.2 150800 GO TO INI-FAIL-GF-6-8. NC2234.2 150900 INI-DELETE-GF-6-8. NC2234.2 151000 PERFORM "" TO . NC1044151200 INI-FAIL-GF-6-8. NC2234.2 151300 MOVE "**********" TO CORRECT-X NC2234.2 151400 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 151500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 151600 TO RE-MARK NC2234.2 151700 PERFORM FAIL. NC2234.2 151800 INI-WRITE-GF-6-8. NC2234.2 151900 PERFORM PRINT-DETAIL. NC2234.2 152000* NC2234.2 152100 INI-TEST-GF-6-9. NC2234.2 152200 ADD 260800 PERFORM . .2 152300 MOVE "INI-TEST-GF-6-9" TO PAR-NAME. NC2234.2 152400 IF TEST-1-9 = "DD DD/DD" NC2234.2 152500 PASSNC2234152600 GO TO INI-WRITE-GF-6-9 NC2234.2 152700 ELSE NC2234.152800 GO TO INI-FAIL-GF-6-9. NC2234.2 152900 INI-DELETE-GF-6-9. NC2234.2 153000 PERFORM DE-LETE. NC2234.2 153100 GO INI-WRITE-GF-6-9 .2 153200 INI-FAIL-GF-6-9. NC2234.2 153300 MOVE TO COMPUTED-X .2 153400 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 153500 TO RE-MARK NC2234.2 153600 PERFORM FAIL. NC2234.2 153700 INI-WRITE-GF-6-9. NC2234.2 153800 PERFORM PRINT-DETAIL. NC2234.2 153900* NC2234.2 154000 INI-TEST-GF-6-10. NC2234.2 154100 ADD 1 TO REC-CT. NC2234.2 154200 MOVE " TOPAR-NAME 2 154300 IF TEST-1-10 = "AAAAAA" NC2234.2 154400 PERFORM PASS NC2234.2 154500 GO TO INI-WRITE-GF-6-10 NC2234.2 154600 ELSE NC2234.2 154700 GO TO INI-FAIL-GF-6-10. NC2234.2 154800 INI-DELETE-GF-6-10. NC2234.2 154900 PERFORM DE-LETE. NC2234.2 155000 GO TO INI-WRITE-GF-6-10. NC2234.2 155100 INI-FAIL-GF-6-10. NC2234.2 155200 MOVE "AAAAAA" TO CORRECT-X NC2234.2 155300 MOVE TO COMPUTED-XNC22342 155400 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 155500 TO RE-MARK NC2234.2 155600 PERFORM FAIL. NC2234.2 155700 INI-WRITE-GF-6-10. NC2234.2 155800 PERFORM PRINT-DETAIL. NC2234.2 155900* NC2234.2 156000 INI-INIT-GF-7. 263000 FAILNC1044.2 156100* ===--> MULTIPLE "REPLACING" PHRASES" <--=== NC2234.2 156200 MOVE "VI-91 6.16.2" TO ANSI-REFERENCE. NC2234.2 156300 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 156400 MOVE 1 TO REC-CT. NC2234.2 156500 MOVE ZEROS TO TEST-1-1. NC2234.2 156600 MOVE ZEROS TO TEST-1-2. NC2234.2 156700 MOVE SPACES TO TEST-1-3. NC2234.2 156800 MOVE SPACES TO TEST-1-4. NC2234.2 156900 MOVE SPACES "MOVE-TEST-F1-60-6 TO . 2 157000 MOVE ZEROS TO TEST-1-6. NC2234.2 157100 MOVE ZEROS TO TEST-1-7. NC2234.2 157200 MOVE 263600 PERFORM . .2 157300 MOVE SPACES TO TEST-1-9. NC2234.2 157400 MOVE SPACES TO TEST-1-10. NC2234.2 157500 INI-TEST-GF-7-0. NC2234.2 157600 INITIALIZE TEST-1-DATA NC2234.2 157700 REPLACING ALPHABETIC DATA BY "AAAAAA" NC2234.2 157800 ALPHANUMERIC BY "**********" NC2234.2 157900 ALPHANUMERIC-EDITED BY "DDDDDD" NC2234.2 158000 NUMERIC DATA BY 1234 NC2234.2 158100 NUMERIC-EDITED BY NUM-1234. NC2234.2 158200 GO TO INI-TEST-GF-7-1. 264200 MOVE ANDATA7 TO COMPUTED-ANC1044158300 INI-DELETE-GF-7. NC2234.2 158400 PERFORM DE-LETE. NC2234.2 158500 PERFORM PRINT-DETAIL. NC2234.2 158600 GO TO INI-INIT-GF-8. NC2234.2 158700 INI-TEST-GF-7-1NC2234158800 MOVE "INI-TEST-GF-7-1" TO PAR-NAME. NC2234.2 158900 IF TEST-1-2 = "$234.00" NC2234.2 159000 PERFORM PASS NC2234.2 159100 GO TO INI-WRITE-GF-7-1 NC2234.2 159200 ELSE NC2234.2 159300 TO . .2 159400 INI-DELETE-GF-7-1. NC2234.2 PERFORM . .2 159600 GO TO INI-WRITE-GF-7-1. NC2234.2 159700 INI-FAIL-GF-7-1. NC2234.2 159800 MOVE "$234.00" TO CORRECT-X NC2234.2 159900 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 160000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 160100 PERFORM FAIL. NC2234.2 160200 INI-WRITE-GF-7-1. NC2234.2 160300 PERFORM PRINT-DETAIL. NC2234.2 160400* NC2234.2 160500 INI-TEST-GF-7-2. NC2234.2 160600 ADD 1 TO REC-CT. NC2234.2 160700 MOVE "INI-TEST-GF-7-2" TO PAR-NAME. NC2234265600 MOVE ANDATA8TO . NC1044java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80160800 IF TEST-1-7 = "$234.00" NC2234.2 160900 PERFORM PASS NC2234.2 161000 GO TO INI-WRITE-GF-7-2 NC2234.2 161100 ELSE NC2234.2 161200 GO TO INI-FAIL-GF-7-2. NC2234.2 161300 INI-DELETE-GF-7-2. NC2234.2 161400 PERFORM DE-LETE. NC2234.2 161500 GO TO INI-WRITE-GF-7-2. NC2234.2 161600 INI-FAIL-GF-7-2. NC2234.2 161700 MOVE 266300 MOVE MOVE-TEST-F1-60-8 PAR-NAME.NC1044161800 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 161900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 162000 PERFORM FAIL. NC2234.2 162100 INI-WRITE-GF-7-2. NC2234.2 162200 PERFORM PRINT-DETAIL. NC2234.2 162300* NC2234.2 162400 INI-TEST-GF-7-3. NC2234.2 162500 ADD 1 TO REC-CT. NC2234.2 162600 MOVE "INI-TEST-GF-7-3" TO PAR-NAME. NC2234.2 162700 IF TEST-1-1 = 001234 NC2234.2 162800 PERFORM PASS NC2234.2 162900 GO TO INI-WRITE-GF-7-3 NC2234.2 163000 ELSE NC2234.2 163100 GO TO INI-FAIL-GF-7-3. NC2234.2 163200 INI-DELETE-GF-7-3. NC2234.2 163300 PERFORM DE-LETE. NC2234.2 163400 GO TO INI-WRITE-GF-7-3. NC2234.2 163500 INI-FAIL-GF-7-3. NC2234.2 163600 MOVE 001234 TO CORRECT-N NC2234.2 163700 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 163800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 163900 TO RE-MARK NC2234.2 164000 PERFORM FAIL. NC2234.2 164100 INI-WRITE-GF-7-3. 268400 MOVE TO . .2 164200 PERFORM PRINT-DETAIL. NC2234.2 164300* NC2234.2 164400 INI-TEST-GF-7-4. NC2234.2 164500 ADD 1 TO REC-CT. NC2234.2 164600 MOVE "INI-TEST-GF-7-4" TO PAR-NAME. NC2234.2 164700 IF TEST-1-3 = "**********" NC2234.2 164800 PERFORM PASS NC2234.2 164900 GO TO INI-WRITE-GF-7-4 NC2234.2 165000 ELSE NC2234.2 165100 GO TO INI-FAIL-GF-7-4. NC2234.2 165200 INI-DELETE-GF-7-4. NC2234.2 165300 PERFORM DE-LETE. NC2234.2 2 165500 INI-FAIL-GF-7-4. NC2234.2 165600 MOVE "**********" TO CORRECT-X NC2234.2 165700 MOVE 269700 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-60-1. NC1044.2 165800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 166000 PERFORM FAIL. NC2234.2 166100 INI-WRITE-GF-7-4. NC2234.2 166200 PERFORM PRINT-DETAIL MOVE-WRITE-F1-60-11.2 166300* NC2234.2 166400 INI-TEST-GF-7-5. NC2234.2 166500 ADD 1 TO REC-CT. NC2234.2 166600 MOVE "INI-TEST-GF-7-5" TO PAR-NAME. NC2234.2 166700 IF TEST-1-4 = "DD DD/DD" NC2234.2 166800 PERFORM PASS NC2234.2 166900 GO TO INI-WRITE-GF-7-5 NC2234.2 167000 ELSE NC2234.2 167100 GO TO INI-FAIL-GF-7-5. NC2234.2 167200 INI-DELETE-GF-7-5. NC2234.2 167300 PERFORM DE-LETE. NC2234.2 167400 GO TO INI-WRITE-GF-7-5. NC2234.2 167500 INI-FAIL-GF-7-5. NC2234.2 167600 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 167700 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 167800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 167900 TO RE-MARK NC2234.2 168000 PERFORM DE-LETE168200 PERFORM PRINT-DETAIL. NC2234.2 168300* NC2234.2 168500 ADD 1 TO REC-CT. NC2234.2 168600 MOVE "INI-TEST-GF-7-6" TO PAR-NAME. NC2234.2 168700 IF TEST-1-5 = "AAAAAA" NC2234.2 168800 PERFORM PASS272300 PERFORM NC1044168900 GO TO 272400 TO MOVE-WRITE-F1-60-13NC10442 169000 ELSE NC2234.2 169100 GO TO INI-FAIL-GF-7-6. NC2234.2 169200 INI-DELETE-GF-7-6. NC2234.2 169300 PERFORM DE-LETE. NC2234.2 169400 GO TO INI-WRITE-GF-7-6. NC2234.2 169500 INI-FAIL-GF-7-6272900 GO MOVE-WRITE-F1-60-13NC1044169600 MOVE "AAAAAA" TO CORRECT-X NC2234.2 169700 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 169800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 2 170000 PERFORM FAIL. NC2234.2 170100 INI-WRITE-GF-7-6. NC2234.2 170200 PERFORM PRINT-DETAIL. NC2234.2 170300* NC2234.2 170400 INI-TEST-GF-7-7. NC2234.2 170500 ADD 1 TO REC-CT. NC2234.2 170600 MOVE "INI-TEST-GF-7-7" TO PAR-NAME. NC2234.2 170700 IF TEST-1-6 = 001234 NC2234.2 170800 PERFORM PASS NC2234.2 170900 GO INI-WRITE-GF-7-7.171000 ELSE NC2234.2 171100 GO TO INI-FAIL-GF-7-7. NC2234.2 171200 INI-DELETE-GF-7-7. NC2234.2 171300 PERFORM DE-LETE. NC2234.2 171400 GO TO 274600 MOVE-WRITE-F1-60-14NC1044171500 INI-FAIL-GF-7-7. NC2234.2 171600 MOVE ZERO TO CORRECT-N NC2234.2 TO NC2234171800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 171900 TO RE-MARK NC2234.2 172000 PERFORM FAIL. NC2234.2 172100 INI-WRITE-GF-7-7. NC2234.2 172200 PERFORM PRINT-DETAIL. NC2234.2 172300* NC2234.2 172400 INI-TEST-GF-7-8. NC2234.2 172500 ADD 1 TO REC-CT. NC2234.2 172600 MOVE "INI-TEST-GF-7-8" TO PAR-NAME. NC2234.2 172800 .NC1044172900 GO TO INI-WRITE-GF-7-8 NC2234.2 173000 ELSE NC2234.2 173100 GO TO INI-FAIL-GF-7-8. NC2234.2 173200 INI-DELETE-GF-7-8276500 PASS.2 173300 PERFORM DE-LETE. NC2234.2 173400 GO TO INI-WRITE-GF-7-8. NC2234.2 173500 INI-FAIL-GF-7-8. NC2234.2 173600 MOVE "**********" TO CORRECT-X NC2234.2 173700 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 173800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 173900 TO RE-MARK NC2234.2 PERFORM . .2 174100 INI-WRITE-GF-7-8277400 MOVE-WRITE-F1-60-16NC1044174200 PERFORM PRINT-DETAIL. NC2234.2 174300* NC2234.2 174400 INI-TEST-GF-7-9. NC2234.2 174500 277800 IF EQUAL "ABCDEFGHIJKLMNOPQNC10442 174600 MOVE "INI-TEST-GF-7-9" TO PAR-NAME. NC2234.2 174700 IF TEST-1-9 = "DD DD/DD" NC2234.2 174800 PERFORM PASS NC2234.2 174900 GO TO INI-WRITE-GF-7-9 NC2234.2 175000 ELSE NC2234.2 175100 GO TO INI-FAIL-GF-7-9. NC2234.2 175200 . .2 175300 PERFORM DE-LETE. NC2234.2 175400 GO TO INI-WRITE-GF-7-9. NC2234.2 175500 INI-FAIL-GF-7-9. NC2234.2 175600 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 175700 TO .2 175800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 175900 TO RE-MARK NC2234.2 176000 PERFORM FAIL. NC2234.2 176100 INI-WRITE-GF-7-9. NC2234.2 176200 PERFORM PRINT-DETAIL. NC2234.2 176300* NC2234.2 176400 INI-TEST-GF-7-10. NC2234.2 176500 ADD 1 TO REC-CT. NC2234.2 176600 MOVE "INI-TEST-GF-7-10" TO PAR-NAME. NC2234.2 176700 IF TEST-1-10 = "AAAAAA" NC2234.2 176800 PERFORM PASS NC2234.2 176900 GO TO INI-WRITE-GF-7-10 NC2234.2 177000 ELSE NC2234.2 177100 GO TO INI-FAIL-GF-7-10. NC2234.2 177200 INI-DELETE-GF-7-10. NC2234.2 177300 PERFORM DE-LETE. NC2234.2 177400 GO TO INI-WRITE-GF-7-10. NC2234.2 177500 INI-FAIL-GF-7-10. NC2234.2 177600 MOVE "AAAAAA" 280900 * NOTE THIS TEST DEPENDS ON PARAGRAPH MOVE-TEST-F1-60-1. NC1044.2 177700 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 177800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 177900 TO RE-MARK NC2234.2 178000 PERFORM FAIL.GO TO . .2 178100 INI-WRITE-GF-7-10. NC2234. .2 178200 PERFORM . .2 178300* NC2234.2 178400 INI-INIT-GF-8. NC2234.2 178500* ===--> MULTIPLE RECEIVING AREAS <--=== NC2234.2 178600 MOVE "VI-91 6.16.4 GR2" TO ANSI-REFERENCE. NC2234.2 178700 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 178800 MOVE 1 TO REC-CT.282100 PERFORM NC1044.2 178900 MOVE LOW-VALUES TO TEST-1-DATA. NC2234.2 179000 MOVE 999 .99 TO TEST-8-DATA-1. NC2234.2 179100 MOVE "ZZZZZZZZZZ" TO TEST-8-DATA-2. NC2234.2 179200 INI-TEST-GF-8-0. NC2234.2 179300 INITIALIZE TEST-8-DATA-1 NC2234.2 179400 TEST-1-DATA NC2234.2 179500 TEST-8-DATA-2. NC2234.2 179600 GO TO INI-TEST-GF-8-1. NC2234.2 179700 INI-DELETE-GF-8. NC2234.2 179800 PERFORM DE-LETE. NC2234.2 179900 PERFORM PRINT-DETAIL. NC2234.2 180000 GO TO INI-INIT-GF-9. NC2234.2 180100 INI-TEST-GF-8-1. NC2234.2 180200 MOVE "INI-TEST-GF-8-1" TO PAR-NAME. NC2234.2 180300 IF TEST-1-2 = " $0.00" NC2234.2 180400 PERFORM PASS NC2234.2 180500 GO TO INI-WRITE-GF-8-1 NC2234.2 180600 ELSE NC2234.2 TO . .2 180800 INI-DELETE-GF-8-1. NC2234.2 180900 PERFORM DE-LETE. NC2234.2 181000 GO TO INI-WRITE-GF-8-1. NC2234.2 181100 INI-FAIL-GF-8-1. NC2234.2 181200 MOVE " $0.00" TO CORRECT-X NC2234.2 181300 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 181400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 181500 PERFORM FAIL. NC2234.2 181600 INI-WRITE-GF-8-1. NC2234.2 181700 PERFORM PRINT-DETAIL. NC2234.2 181800* NC2234.2 181900 INI-TEST-GF-8-2. NC2234.2 182000 ADD 1 TO REC-CT. NC2234.2 182100 MOVE "INI-TEST-GF-8-2" TO PAR-NAME. NC2234.2 182200 IF TEST-1-7 = " $0.00" NC2234.2 182300 PERFORM PASS NC2234.2 182400 GO TO INI-WRITE-GF-8-2 NC2234.2 182500 ELSE NC2234.2 182600 GO TO INI-FAIL-GF-8-2. NC2234.2 182700 INI-DELETE-GF-8-2. NC2234.2 182800 PERFORM DE-LETE. NC2234.2 182900 GO TO INI-WRITE-GF-8-2. NC2234.2 183000 INI-FAIL-GF-8-2. NC2234.2 183100 MOVE " $0.00" TO CORRECT-X NC2234.2 183200 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 183300 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 183400 PERFORM FAIL. NC2234.2 183500 INI-WRITE-GF-8-2. NC2234.2 183600 PERFORM PRINT-DETAIL. NC2234.2 183700* NC2234.2 183800 INI-TEST-GF-8-3. NC2234.2 183900 ADD 1 TO REC-CT. NC2234.2 184000 MOVE "INI-TEST-GF-8-3" TO PAR-NAME. NC2234.2 184100 IF TEST-1-1 = ZERO NC2234.2 184200 PERFORM PASS NC2234.2 184300 GO TO INI-WRITE-GF-8-3 NC2234.2 184400 ELSE NC2234.2 184500 GO TO INI-FAIL-GF-8-3. NC2234.2 184600 INI-DELETE-GF-8-3. NC2234.2 184700 PERFORM DE-LETE. NC2234.2 184800 GO TO INI-WRITE-GF-8-3. NC2234.2 184900 INI-FAIL-GF-8-3. NC2234.2 185000 MOVE ZERO TO CORRECT-N NC2234.2 185100 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 185200 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 185300 PERFORM FAIL. NC2234.2 185400 INI-WRITE-GF-8-3. NC2234.2 185500 PERFORM PRINT-DETAIL. NC2234.2 185600* NC2234.2 185700 INI-TEST-GF-8-4. NC2234.2 185800 ADD 1 TO REC-CT. NC2234.2 185900 MOVE "INI-TEST-GF-8-4" TO PAR-NAME. NC2234.2 186000 IF TEST-1-3 = SPACES NC2234.2 186100 PERFORM PASS NC2234.2 186200 GO TO INI-WRITE-GF-8-4 NC2234.2 186300 ELSE NC2234.2 186400 GO TO INI-FAIL-GF-8-4. NC2234.2 186500 INI-DELETE-GF-8-4. NC2234.2 186600 PERFORM DE-LETE. NC2234.2 186700 GO TO INI-WRITE-GF-8-4. NC2234.2 186800 INI-FAIL-GF-8-4. NC2234.2 186900 MOVE SPACES TO CORRECT-X NC2234.2 187000 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 187100 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 187200 PERFORM FAIL. NC2234.2 187300 INI-WRITE-GF-8-4. NC2234.2 187400 PERFORM PRINT-DETAIL. NC2234.2 187500* NC2234.2 187600 INI-TEST-GF-8-5. NC2234.2 187700 ADD 1 TO REC-CT. NC2234.2 187800 MOVE "INI-TEST-GF-8-5" TO PAR-NAME. NC2234.2 187900 IF TEST-1-4 = " / " NC2234.2 188000 PERFORM PASS NC2234.2 188100 GO TO INI-WRITE-GF-8-5 NC2234.2 188200 ELSE NC2234.2 188300 GO TO INI-FAIL-GF-8-5. NC2234.2 188400 INI-DELETE-GF-8-5. NC2234.2 188500 PERFORM DE-LETE. NC2234.2 188600 GO TO INI-WRITE-GF-8-5. NC2234.2 188700 INI-FAIL-GF-8-5. NC2234.2 188800 MOVE " / " TO CORRECT-X NC2234.2 188900 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 189000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 189100 PERFORM FAIL. NC2234.2 189200 INI-WRITE-GF-8-5. NC2234.2 189300 PERFORM PRINT-DETAIL. NC2234.2 189400* NC2234.2 189500 INI-TEST-GF-8-6. NC2234.2 189600 ADD 1 TO REC-CT. NC2234.2 189700 MOVE "INI-TEST-GF-8-6" TO PAR-NAME. NC2234.2 189800 IF TEST-1-5 = SPACES NC2234.2 189900 PERFORM PASS NC2234.2 190000 GO TO INI-WRITE-GF-8-6 NC2234.2 190100 ELSE NC2234.2 190200 GO TO INI-FAIL-GF-8-6. NC2234.2 190300 INI-DELETE-GF-8-6. NC2234.2 190400 PERFORM DE-LETE. NC2234.2 190500 GO TO INI-WRITE-GF-8-6. NC2234.2 190600 INI-FAIL-GF-8-6. NC2234.2 190700 MOVE SPACES TO CORRECT-X NC2234.2 190800 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 190900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 191000 PERFORM FAIL. NC2234.2 191100 INI-WRITE-GF-8-6. NC2234.2 191200 PERFORM PRINT-DETAIL. NC2234.2 191300* NC2234.2 191400 INI-TEST-GF-8-7. NC2234.2 191500 ADD 1 TO REC-CT. NC2234.2 191600 MOVE "INI-TEST-GF-8-7" TO PAR-NAME. NC2234.2 191700 IF TEST-1-6 = ZERO NC2234.2 191800 PERFORM PASS NC2234.2 191900 GO TO INI-WRITE-GF-8-7 NC2234.2 192000 ELSE NC2234.2 192100 GO TO INI-FAIL-GF-8-7. NC2234.2 192200 INI-DELETE-GF-8-7. NC2234.2 192300 PERFORM DE-LETE. NC2234.2 192400 GO TO INI-WRITE-GF-8-7. NC2234.2 192500 INI-FAIL-GF-8-7. NC2234.2 192600 MOVE ZERO TO CORRECT-N NC2234.2 192700 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 192800 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 192900 PERFORM FAIL. NC2234.2 193000 INI-WRITE-GF-8-7. NC2234.2 193100 PERFORM PRINT-DETAIL. NC2234.2 193200* NC2234.2 193300 INI-TEST-GF-8-8. NC2234.2 193400 ADD 1 TO REC-CT. NC2234.2 193500 MOVE "INI-TEST-GF-8-8" TO PAR-NAME. NC2234.2 193600 IF TEST-1-8 = SPACES NC2234.2 193700 PERFORM PASS NC2234.2 193800 GO TO INI-WRITE-GF-8-8 NC2234.2 193900 ELSE NC2234.2 194000 GO TO INI-FAIL-GF-8-8. NC2234.2 194100 INI-DELETE-GF-8-8. NC2234.2 194200 PERFORM DE-LETE. NC2234.2 194300 GO TO INI-WRITE-GF-8-8. NC2234.2 194400 INI-FAIL-GF-8-8. NC2234.2 194500 MOVE SPACES TO CORRECT-X NC2234.2 194600 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 194700 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 194800 PERFORM FAIL. NC2234.2 194900 INI-WRITE-GF-8-8. NC2234.2 195000 PERFORM PRINT-DETAIL. NC2234.2 195100* NC2234.2 195200 INI-TEST-GF-8-9. NC2234.2 195300 ADD 1 TO REC-CT. NC2234.2 195400 MOVE "INI-TEST-GF-8-9" TO PAR-NAME. NC2234.2 195500 IF TEST-1-9 = " / " NC2234.2 195600 PERFORM PASS NC2234.2 195700 GO TO INI-WRITE-GF-8-9 NC2234.2 195800 ELSE NC2234.2 195900 GO TO INI-FAIL-GF-8-9. NC2234.2 196000 INI-DELETE-GF-8-9. NC2234.2 196100 PERFORM DE-LETE. NC2234.2 196200 GO TO INI-WRITE-GF-8-9. NC2234.2 196300 INI-FAIL-GF-8-9. NC2234.2 196400 MOVE " / " TO CORRECT-X NC2234.2 196500 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 196600 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 196700 PERFORM FAIL. NC2234.2 196800 INI-WRITE-GF-8-9. NC2234.2 196900 PERFORM PRINT-DETAIL. NC2234.2 197000* NC2234.2 197100 INI-TEST-GF-8-10. NC2234.2 197200 ADD 1 TO REC-CT. NC2234.2 197300 MOVE "INI-TEST-GF-8-10" TO PAR-NAME. NC2234.2 197400 IF TEST-1-10 = SPACES NC2234.2 197500 PERFORM PASS NC2234.2 197600 GO TO INI-WRITE-GF-8-10 NC2234.2 197700 ELSE NC2234.2 197800 GO TO INI-FAIL-GF-8-10. NC2234.2 197900 INI-DELETE-GF-8-10. NC2234.2 198000 PERFORM DE-LETE. NC2234.2 198100 GO TO INI-WRITE-GF-8-10. NC2234.2 198200 INI-FAIL-GF-8-10. NC2234.2 198300 MOVE SPACES TO CORRECT-X NC2234.2 198400 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 198500 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 198600 PERFORM FAIL. NC2234.2 198700 INI-WRITE-GF-8-10. NC2234.2 198800 PERFORM PRINT-DETAIL. NC2234.2 198900* NC2234.2 199000 INI-TEST-GF-8-11. NC2234.2 199100 ADD 1 TO REC-CT. NC2234.2 199200 MOVE "INI-TEST-GF-8-11" TO PAR-NAME. NC2234.2 199300 IF TEST-8-DATA-1 = " $0.00" NC2234.2 199400 PERFORM PASS NC2234.2 199500 GO TO INI-WRITE-GF-8-11 NC2234.2 199600 ELSE NC2234.2 199700 GO TO INI-FAIL-GF-8-11. NC2234.2 199800 INI-DELETE-GF-8-11. NC2234.2 199900 PERFORM DE-LETE. NC2234.2 200000 GO TO INI-WRITE-GF-8-11. NC2234.2 200100 INI-FAIL-GF-8-11. NC2234.2 200200 MOVE " $0.00" TO CORRECT-X NC2234.2 200300 MOVE TEST-8-DATA-1 TO COMPUTED-X NC2234.2 200400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 200500 PERFORM FAIL. NC2234.2 200600 INI-WRITE-GF-8-11. NC2234.2 200700 PERFORM PRINT-DETAIL. NC2234.2 200800* NC2234.2 200900 INI-TEST-GF-8-12. NC2234.2 201000 ADD 1 TO REC-CT. NC2234.2 201100 MOVE "INI-TEST-GF-8-12" TO PAR-NAME. NC2234.2 201200 IF TEST-8-DATA-2 = SPACES NC2234.2 201300 PERFORM PASS NC2234.2 201400 GO TO INI-WRITE-GF-8-12 NC2234.2 201500 ELSE NC2234.2 201600 GO TO INI-FAIL-GF-8-12. NC2234.2 201700 INI-DELETE-GF-8-12. NC2234.2 201800 PERFORM DE-LETE. NC2234.2 201900 GO TO INI-WRITE-GF-8-12. NC2234.2 202000 INI-FAIL-GF-8-12. NC2234.2 202100 MOVE SPACES TO CORRECT-X NC2234.2 202200 MOVE TEST-8-DATA-2 TO COMPUTED-X NC2234.2 202300 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 202400 PERFORM FAIL. NC2234.2 202500 INI-WRITE-GF-8-12. NC2234.2 202600 PERFORM PRINT-DETAIL. NC2234.2 202700* NC2234.2 202800 INI-INIT-GF-9. NC2234.2 202900* ===--> MULTIPLE RECEIVING AREAS AND <--=== NC2234.2 203000* ===--> MULTIPLE "REPLACING" PHRASES" <--=== NC2234.2 203100 MOVE "VI-91 6.16.2" TO ANSI-REFERENCE. NC2234.2 203200 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 203300 MOVE 1 TO REC-CT. NC2234.2 203400 MOVE ZEROS TO TEST-1-1. NC2234.2 203500 MOVE ZEROS TO TEST-1-2. NC2234.2 203600 MOVE SPACES TO TEST-1-3. NC2234.2 203700 MOVE SPACES TO TEST-1-4. NC2234.2 203800 MOVE SPACES TO TEST-1-5. NC2234.2 203900 MOVE ZEROS TO TEST-1-6. NC2234.2 204000 MOVE ZEROS TO TEST-1-7. NC2234.2 204100 MOVE SPACES TO TEST-1-8. NC2234.2 204200 MOVE SPACES TO TEST-1-9. NC2234.2 204300 MOVE SPACES TO TEST-1-10. NC2234.2 204400 MOVE 999 .99 TO TEST-8-DATA-1. NC2234.2 204500 MOVE "ZZZZZZZZZZ" TO TEST-8-DATA-2. NC2234.2 204600 INI-TEST-GF-9-0. NC2234.2 204700 INITIALIZE NC2234.2 204800 TEST-8-DATA-1 NC2234.2 204900 TEST-1-DATA NC2234.2 205000 TEST-8-DATA-2 NC2234.2 205100 REPLACING ALPHABETIC DATA BY "AAAAAA" NC2234.2 205200 ALPHANUMERIC BY "**********" NC2234.2 205300 ALPHANUMERIC-EDITED BY "DDDDDD" NC2234.2 205400 NUMERIC DATA BY NUM-1234 NC2234.2 205500 NUMERIC-EDITED BY 1234 . NC2234.2 205600 GO TO INI-TEST-GF-9-1. NC2234.2 205700 INI-DELETE-GF-9. NC2234.2 205800 PERFORM DE-LETE. NC2234.2 205900 PERFORM PRINT-DETAIL. NC2234.2 206000 GO TO CCVS-EXIT. NC2234.2 206100 INI-TEST-GF-9-1. NC2234.2 206200 MOVE "INI-TEST-GF-9-1" TO PAR-NAME. NC2234.2 206300 IF TEST-1-2 = "$234.00" NC2234.2 206400 PERFORM PASS NC2234.2 206500 GO TO INI-WRITE-GF-9-1 NC2234.2 206600 ELSE NC2234.2 206700 GO TO INI-FAIL-GF-9-1. NC2234.2 206800 INI-DELETE-GF-9-1. NC2234.2 206900 PERFORM DE-LETE. NC2234.2 207000 GO TO INI-WRITE-GF-9-1. NC2234.2 207100 INI-FAIL-GF-9-1. NC2234.2 207200 MOVE "$234.00" TO CORRECT-X NC2234.2 207300 MOVE TEST-1-2 TO COMPUTED-X NC2234.2 207400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 207500 PERFORM FAIL. NC2234.2 207600 INI-WRITE-GF-9-1. NC2234.2 207700 PERFORM PRINT-DETAIL. NC2234.2 207800* NC2234.2 207900 INI-TEST-GF-9-2. NC2234.2 208000 ADD 1 TO REC-CT. NC2234.2 208100 MOVE "INI-TEST-GF-9-2" TO PAR-NAME. NC2234.2 208200 IF TEST-1-7 = "$234.00" NC2234.2 208300 PERFORM PASS NC2234.2 208400 GO TO INI-WRITE-GF-9-2 NC2234.2 208500 ELSE NC2234.2 208600 GO TO INI-FAIL-GF-9-2. NC2234.2 208700 INI-DELETE-GF-9-2. NC2234.2 208800 PERFORM DE-LETE. NC2234.2 208900 GO TO INI-WRITE-GF-9-2. NC2234.2 209000 INI-FAIL-GF-9-2. NC2234.2 209100 MOVE "$234.00" TO CORRECT-X NC2234.2 209200 MOVE TEST-1-7 TO COMPUTED-X NC2234.2 209300 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 209400 PERFORM FAIL. NC2234.2 209500 INI-WRITE-GF-9-2. NC2234.2 209600 PERFORM PRINT-DETAIL. NC2234.2 209700* NC2234.2 209800 INI-TEST-GF-9-3. NC2234.2 209900 ADD 1 TO REC-CT. NC2234.2 210000 MOVE "INI-TEST-GF-9-3" TO PAR-NAME. NC2234.2 210100 IF TEST-1-1 = 001234 NC2234.2 210200 PERFORM PASS NC2234.2 210300 GO TO INI-WRITE-GF-9-3 NC2234.2 210400 ELSE NC2234.2 210500 GO TO INI-FAIL-GF-9-3. NC2234.2 210600 INI-DELETE-GF-9-3. NC2234.2 210700 PERFORM DE-LETE. NC2234.2 210800 GO TO INI-WRITE-GF-9-3. NC2234.2 210900 INI-FAIL-GF-9-3. NC2234.2 211000 MOVE 001234 TO CORRECT-N NC2234.2 211100 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 211200 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 211300 PERFORM FAIL. NC2234.2 211400 INI-WRITE-GF-9-3. NC2234.2 211500 PERFORM PRINT-DETAIL. NC2234.2 211600* NC2234.2 211700 INI-TEST-GF-9-4. NC2234.2 211800 ADD 1 TO REC-CT. NC2234.2 211900 MOVE "INI-TEST-GF-9-4" TO PAR-NAME. NC2234.2 212000 IF TEST-1-3 = "**********" NC2234.2 212100 PERFORM PASS NC2234.2 212200 GO TO INI-WRITE-GF-9-4 NC2234.2 212300 ELSE NC2234.2 212400 GO TO INI-FAIL-GF-9-4. NC2234.2 212500 INI-DELETE-GF-9-4. NC2234.2 212600 PERFORM DE-LETE. NC2234.2 212700 GO TO INI-WRITE-GF-9-4. NC2234.2 212800 INI-FAIL-GF-9-4. NC2234.2 212900 MOVE "**********" TO CORRECT-X NC2234.2 213000 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 213100 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 213200 PERFORM FAIL. NC2234.2 213300 INI-WRITE-GF-9-4. NC2234.2 213400 PERFORM PRINT-DETAIL. NC2234.2 213500* NC2234.2 213600 INI-TEST-GF-9-5. NC2234.2 213700 ADD 1 TO REC-CT. NC2234.2 213800 MOVE "INI-TEST-GF-9-5" TO PAR-NAME. NC2234.2 213900 IF TEST-1-4 = "DD DD/DD" NC2234.2 214000 PERFORM PASS NC2234.2 214100 GO TO INI-WRITE-GF-9-5 NC2234.2 214200 ELSE NC2234.2 214300 GO TO INI-FAIL-GF-9-5. NC2234.2 214400 INI-DELETE-GF-9-5. NC2234.2 214500 PERFORM DE-LETE. NC2234.2 214600 GO TO INI-WRITE-GF-9-5. NC2234.2 214700 INI-FAIL-GF-9-5. NC2234.2 214800 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 214900 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 215000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 215100 PERFORM FAIL. NC2234.2 215200 INI-WRITE-GF-9-5. NC2234.2 215300 PERFORM PRINT-DETAIL. NC2234.2 215400* NC2234.2 215500 INI-TEST-GF-9-6. NC2234.2 215600 ADD 1 TO REC-CT. NC2234.2 215700 MOVE "INI-TEST-GF-9-6" TO PAR-NAME. NC2234.2 215800 IF TEST-1-5 = "AAAAAA" NC2234.2 215900 PERFORM PASS NC2234.2 216000 GO TO INI-WRITE-GF-9-6 NC2234.2 216100 ELSE NC2234.2 216200 GO TO INI-FAIL-GF-9-6. NC2234.2 216300 INI-DELETE-GF-9-6. NC2234.2 216400 PERFORM DE-LETE. NC2234.2 216500 GO TO INI-WRITE-GF-9-6. NC2234.2 216600 INI-FAIL-GF-9-6. NC2234.2 216700 MOVE "AAAAAA" TO CORRECT-X NC2234.2 216800 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 216900 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 217000 PERFORM FAIL. NC2234.2 217100 INI-WRITE-GF-9-6. NC2234.2 217200 PERFORM PRINT-DETAIL. NC2234.2 217300* NC2234.2 217400 INI-TEST-GF-9-7. NC2234.2 217500 ADD 1 TO REC-CT. NC2234.2 217600 MOVE "INI-TEST-GF-9-7" TO PAR-NAME. NC2234.2 217700 IF TEST-1-6 = 1234 NC2234.2 217800 PERFORM PASS NC2234.2 217900 GO TO INI-WRITE-GF-9-7 NC2234.2 218000 ELSE NC2234.2 218100 GO TO INI-FAIL-GF-9-7. NC2234.2 218200 INI-DELETE-GF-9-7. NC2234.2 218300 PERFORM DE-LETE. NC2234.2 218400 GO TO INI-WRITE-GF-9-7. NC2234.2 218500 INI-FAIL-GF-9-7. NC2234.2 218600 MOVE 1234 TO CORRECT-N NC2234.2 218700 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 218800 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 218900 PERFORM FAIL. NC2234.2 219000 INI-WRITE-GF-9-7. NC2234.2 219100 PERFORM PRINT-DETAIL. NC2234.2 219200* NC2234.2 219300 INI-TEST-GF-9-8. NC2234.2 219400 ADD 1 TO REC-CT. NC2234.2 219500 MOVE "INI-TEST-GF-9-8" TO PAR-NAME. NC2234.2 219600 IF TEST-1-8 = "**********" NC2234.2 219700 PERFORM PASS NC2234.2 219800 GO TO INI-WRITE-GF-9-8 NC2234.2 219900 ELSE NC2234.2 220000 GO TO INI-FAIL-GF-9-8. NC2234.2 220100 INI-DELETE-GF-9-8. NC2234.2 220200 PERFORM DE-LETE. NC2234.2 220300 GO TO INI-WRITE-GF-9-8. NC2234.2 220400 INI-FAIL-GF-9-8. NC2234.2 220500 MOVE "**********" TO CORRECT-X NC2234.2 220600 MOVE TEST-1-8 TO COMPUTED-X NC2234.2 220700 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 220800 PERFORM FAIL. NC2234.2 220900 INI-WRITE-GF-9-8. NC2234.2 221000 PERFORM PRINT-DETAIL. NC2234.2 221100* NC2234.2 221200 INI-TEST-GF-9-9. NC2234.2 221300 ADD 1 TO REC-CT. NC2234.2 221400 MOVE "INI-TEST-GF-9-9" TO PAR-NAME. NC2234.2 221500 IF TEST-1-9 = "DD DD/DD" NC2234.2 221600 PERFORM PASS NC2234.2 221700 GO TO INI-WRITE-GF-9-9 NC2234.2 221800 ELSE NC2234.2 221900 GO TO INI-FAIL-GF-9-9. NC2234.2 222000 INI-DELETE-GF-9-9. NC2234.2 222100 PERFORM DE-LETE. NC2234.2 222200 GO TO INI-WRITE-GF-9-9. NC2234.2 222300 INI-FAIL-GF-9-9. NC2234.2 222400 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 222500 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 222600 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 222700 PERFORM FAIL. NC2234.2 222800 INI-WRITE-GF-9-9. NC2234.2 222900 PERFORM PRINT-DETAIL. NC2234.2 223000* NC2234.2 223100 INI-TEST-GF-9-10. NC2234.2 223200 ADD 1 TO REC-CT. NC2234.2 223300 MOVE "INI-TEST-GF-9-10" TO PAR-NAME. NC2234.2 223400 IF TEST-1-10 = "AAAAAA" NC2234.2 223500 PERFORM PASS NC2234.2 223600 GO TO INI-WRITE-GF-9-10 NC2234.2 223700 ELSE NC2234.2 223800 GO TO INI-FAIL-GF-9-10. NC2234.2 223900 INI-DELETE-GF-9-10. NC2234.2 224000 PERFORM DE-LETE. NC2234.2 224100 GO TO INI-WRITE-GF-9-10. NC2234.2 224200 INI-FAIL-GF-9-10. NC2234.2 224300 MOVE "AAAAAA" TO CORRECT-X NC2234.2 224400 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 224500 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 224600 PERFORM FAIL. NC2234.2 224700 INI-WRITE-GF-9-10. NC2234.2 224800 PERFORM PRINT-DETAIL. NC2234.2 224900* NC2234.2 225000 INI-TEST-GF-9-11. NC2234.2 225100 ADD 1 TO REC-CT. NC2234.2 225200 MOVE "INI-TEST-GF-9-11" TO PAR-NAME. NC2234.2 225300 IF TEST-8-DATA-1 = "$234.00" NC2234.2 225400 PERFORM PASS NC2234.2 225500 GO TO INI-WRITE-GF-9-11 NC2234.2 225600 ELSE NC2234.2 225700 GO TO INI-FAIL-GF-9-11. NC2234.2 225800 INI-DELETE-GF-9-11. NC2234.2 225900 PERFORM DE-LETE. NC2234.2 226000 GO TO INI-WRITE-GF-9-11. NC2234.2 226100 INI-FAIL-GF-9-11. NC2234.2 226200 MOVE "$234.00" TO CORRECT-X NC2234.2 226300 MOVE TEST-8-DATA-1 TO COMPUTED-X NC2234.2 226400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 226500 PERFORM FAIL. NC2234.2 226600 INI-WRITE-GF-9-11. NC2234.2 226700 PERFORM PRINT-DETAIL. NC2234.2 226800* NC2234.2 226900 INI-TEST-GF-9-12. NC2234.2 227000 ADD 1 TO REC-CT. NC2234.2 227100 MOVE "INI-TEST-GF-9-12" TO PAR-NAME. NC2234.2 227200 IF TEST-8-DATA-2 = "AAAAAA " NC2234.2 227300 PERFORM PASS NC2234.2 227400 GO TO INI-WRITE-GF-9-12 NC2234.2 227500 ELSE NC2234.2 227600 GO TO INI-FAIL-GF-9-12. NC2234.2 227700 INI-DELETE-GF-9-12. NC2234.2 227800 PERFORM DE-LETE. NC2234.2 227900 GO TO INI-WRITE-GF-9-12. NC2234.2 228000 INI-FAIL-GF-9-12. NC2234.2 228100 MOVE "AAAAAA " TO CORRECT-X NC2234.2 228200 MOVE TEST-8-DATA-2 TO COMPUTED-X NC2234.2 228300 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 228400 PERFORM FAIL. NC2234.2 228500 INI-WRITE-GF-9-12. NC2234.2 228600 PERFORM PRINT-DETAIL. NC2234.2 228700* NC2234.2 228800 CCVS-EXIT SECTION . NC2234.2 228900 CCVS-999999. NC2234.2 229000 GO TO CLOSE-FILES. NC2234.2
Messung V0.5 in Prozent C=94 H=90 G=91
¤ 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.150Bemerkung:
¤ *Bot Zugriff
