| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 183 kB |
|
Quelle nc223a.cobSprache: Cobol |
|||||||||||||||
|
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. NC2234.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.2 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 004100 WORKING-STORAGE SECTION. NC2234.2 004200 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 XXBXX/XX. NC2234.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 X VALUE SPACE. NC2234.2 006200 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 006900 02 FILLER PIC X(30) VALUE SPACE. NC2234.2 007000 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 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2234.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 FILLER PIC X. NC2234.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. NC2234.2 008700 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-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2234.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 009300 04 CORRECT-18V0 PIC -9(18). NC2234.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-1. NC2234.2 009800 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 SPACE. NC2234.2 010400 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 PIC X(94) VALUE SPACE. NC2234.2 010800 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 PIC 999 VALUE 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 NC2234.2 012800 "4.2 ". NC2234.2 012900 02 FILLER PIC X(28) VALUE NC2234.2 013000 " COPY - NOT FOR DISTRIBUTION". NC2234.2 013100 02 FILLER PIC X(41) VALUE SPACE. NC2234.2 013200 NC2234.2 013300 01 CCVS-H-2B. NC2234.2 013400 02 FILLER PIC X(15) VALUE NC2234.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 VALIDATION FOR ". NC2234.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(34) VALUE NC2234.2 014700 " FOR OFFICIAL USE ONLY ". NC2234.2 014800 02 FILLER PIC X(58) VALUE NC2234.2 014900 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2234.2 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 NC2234.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 02 FILLER PIC IS X VALUE IS SPACE. NC2234.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- "******************************". NC2234.2 019500 01 CCVS-PGM-ID PIC X(9) VALUE NC2234.2 019600 "NC223A". NC2234.2 019700 PROCEDURE DIVISION. NC2234.2 019800 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 020300 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. 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 TERMINATE-CCVS. NC2234.2 020800 EXIT PROGRAM. NC2234.2 020900 TERMINATE-CALL. NC2234.2 021000 STOP RUN. NC2234.2 021100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2234.2 021200 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2234.2 021300 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 "****TEST DELETED****" TO RE-MARK. NC2234.2 021600 PRINT-DETAIL. NC2234.2 021700 IF REC-CT NOT EQUAL TO ZERO NC2234.2 021800 MOVE "." TO PARDOT-X NC2234.2 021900 MOVE REC-CT TO DOTVALUE. NC2234.2 022000 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2234.2 022100 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2234.2 022200 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2234.2 022300 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2234.2 022400 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2234.2 022500 MOVE SPACE TO CORRECT-X. NC2234.2 022600 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2234.2 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 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.2 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. NC2234.2 023800 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2234.2 023900 END-RTN-EXIT. NC2234.2 024000 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.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. NC2234.2 024400 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 CCVS-E-4-1. NC2234.2 024800 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 END-ROUTINE-12. NC2234.2 025200 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2234.2 025300 IF ERROR-COUNTER IS EQUAL TO ZERO NC2234.2 025400 MOVE "NO " TO ERROR-TOTAL NC2234.2 025500 ELSE NC2234.2 025600 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2234.2 025700 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2234.2 025800 PERFORM WRITE-LINE. NC2234.2 025900 END-ROUTINE-13. NC2234.2 026000 IF DELETE-COUNTER IS EQUAL TO ZERO NC2234.2 026100 MOVE "NO " TO ERROR-TOTAL ELSE NC2234.2 026200 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2234.2 026300 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 MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2234.2 026800 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-LINE. NC2234.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 NC2234.2 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 TIMES NC2234.2 027900 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2234.2 028000 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2234.2 028100 MOVE ZERO TO RECORD-COUNT. NC2234.2 028200 PERFORM WRT-LN. NC2234.2 028300 WRT-LN. NC2234.2 028400 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2234.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 TO FAIL-ROUTINE-WRITE. NC2234.2 029000 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2234.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 XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.2 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 TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2234.2 030000 MOVE SPACES TO COR-ANSI-REFERENCE. NC2234.2 030100 FAIL-ROUTINE-EX. EXIT. NC2234.2 030200 BAIL-OUT. NC2234.2 030300 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2234.2 030400 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2234.2 030500 BAIL-OUT-WRITE. NC2234.2 030600 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2234.2 030700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2234.2 030800 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2234.2 030900 MOVE SPACES TO INF-ANSI-REFERENCE. NC2234.2 031000 BAIL-OUT-EX. EXIT. NC2234.2 031100 CCVS1-EXIT. NC2234.2 031200 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 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 DE-LETE. NC2234.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 NC2234.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 = " $0.00" NC2234.2 034800 PERFORM PASS NC2234.2 034900 GO TO INI-WRITE-GF-1-2 NC2234.2 035000 ELSE NC2234.2 035100 GO TO INI-FAIL-GF-1-2. NC2234.2 035200 INI-DELETE-GF-1-2. NC2234.2 035300 PERFORM DE-LETE. NC2234.2 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 INITIALIZED" TO RE-MARK NC2234.2 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. NC2234.2 036400 ADD 1 TO REC-CT. NC2234.2 036500 MOVE "INI-TEST-GF-1-3" TO PAR-NAME. NC2234.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 TO INI-FAIL-GF-1-3. NC2234.2 037100 INI-DELETE-GF-1-3. NC2234.2 037200 PERFORM DE-LETE. NC2234.2 037300 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 038400 MOVE "INI-TEST-GF-1-4" TO PAR-NAME. NC2234.2 038500 IF TEST-1-4 = " / " NC2234.2 038600 PERFORM PASS NC2234.2 038700 GO TO INI-WRITE-GF-1-4 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-LETE. NC2234.2 039200 GO TO INI-WRITE-GF-1-4. NC2234.2 039300 INI-FAIL-GF-1-4. NC2234.2 039400 MOVE " / " TO CORRECT-X NC2234.2 039500 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 039600 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 039700 PERFORM FAIL. NC2234.2 039800 INI-WRITE-GF-1-4. NC2234.2 039900 PERFORM PRINT-DETAIL. 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 = SPACES NC2234.2 040500 PERFORM PASS NC2234.2 040600 GO TO INI-WRITE-GF-1-5 NC2234.2 040700 ELSE NC2234.2 040800 GO TO INI-FAIL-GF-1-5. NC2234.2 040900 INI-DELETE-GF-1-5. NC2234.2 041000 PERFORM DE-LETE. NC2234.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 041400 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 041500 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 041600 PERFORM FAIL. NC2234.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 042100 ADD 1 TO REC-CT. NC2234.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 NC2234.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 043100 INI-FAIL-GF-1-6. NC2234.2 043200 MOVE ZERO TO CORRECT-N NC2234.2 043300 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 043400 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 043500 PERFORM FAIL. NC2234.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 TEST-1-7 = " $0.00" NC2234.2 044300 PERFORM PASS NC2234.2 044400 GO TO INI-WRITE-GF-1-7 NC2234.2 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-8. NC2234.2 046700 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 RE-MARK NC2234.2 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. NC2234.2 048000 IF TEST-1-9 = " / " NC2234.2 048100 PERFORM PASS NC2234.2 048200 GO TO INI-WRITE-GF-1-9 NC2234.2 048300 ELSE NC2234.2 048400 GO TO INI-FAIL-GF-1-9. NC2234.2 048500 INI-DELETE-GF-1-9. NC2234.2 048600 PERFORM DE-LETE. NC2234.2 048700 GO TO INI-WRITE-GF-1-9. NC2234.2 048800 INI-FAIL-GF-1-9. NC2234.2 048900 MOVE " / " TO CORRECT-X NC2234.2 049000 MOVE TEST-1-9 TO COMPUTED-X NC2234.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 SPACES TO CORRECT-X NC2234.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 NC2234.2 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.2 053900 MOVE "AAAAAA" TO CORRECT-X NC2234.2 054000 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 054100 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 054200 PERFORM FAIL. NC2234.2 054300 INI-WRITE-GF-2-1. NC2234.2 054400 PERFORM PRINT-DETAIL. NC2234.2 054500* 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" NC2234.2 055000 PERFORM PASS NC2234.2 055100 GO TO INI-WRITE-GF-2-2 NC2234.2 055200 ELSE NC2234.2 055300 GO TO INI-FAIL-GF-2-2. NC2234.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 055800 MOVE "AAAAAA" TO CORRECT-X NC2234.2 055900 MOVE TEST-1-10 TO COMPUTED-X NC2234.2 056000 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 056100 PERFORM FAIL. 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. NC2234.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 058000 TO RE-MARK NC2234.2 058100 PERFORM FAIL. NC2234.2 058200 INI-WRITE-GF-2-3. NC2234.2 058300 PERFORM PRINT-DETAIL. NC2234.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 059000 GO TO INI-WRITE-GF-2-4 NC2234.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-4. NC2234.2 059700 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-MARK NC2234.2 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-5. NC2234.2 060600 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 061500 GO TO INI-WRITE-GF-2-5. NC2234.2 061600 INI-FAIL-GF-2-5. NC2234.2 061700 MOVE SPACES TO CORRECT-X NC2234.2 061800 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 061900 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 062000 TO RE-MARK NC2234.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.2 062800 IF TEST-1-4 = " / " NC2234.2 062900 PERFORM PASS NC2234.2 063000 GO TO INI-WRITE-GF-2-6 NC2234.2 063100 ELSE NC2234.2 063200 GO TO INI-FAIL-GF-2-6. NC2234.2 063300 INI-DELETE-GF-2-6. NC2234.2 063400 PERFORM DE-LETE. NC2234.2 063500 GO TO INI-WRITE-GF-2-6. NC2234.2 063600 INI-FAIL-GF-2-6. NC2234.2 063700 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 064300 PERFORM PRINT-DETAIL. NC2234.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 INI-DELETE-GF-2-7. NC2234.2 065400 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 PASS NC2234.2 067000 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 CORRECT-X NC2234.2 067800 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 FAIL. NC2234.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 IF TEST-1-8 = SPACES NC2234.2 068900 PERFORM PASS NC2234.2 069000 GO TO INI-WRITE-GF-2-9 NC2234.2 069100 ELSE NC2234.2 069200 GO TO INI-FAIL-GF-2-9. NC2234.2 069300 INI-DELETE-GF-2-9. NC2234.2 069400 PERFORM DE-LETE. NC2234.2 069500 GO TO INI-WRITE-GF-2-9. NC2234.2 069600 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 TO INI-WRITE-GF-2-10. NC2234.2 071600 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 NC2234.2 072100 PERFORM FAIL. NC2234.2 072200 INI-WRITE-GF-2-10. NC2234.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. NC2234.2 073000 INITIALIZE TEST-1-DATA NC2234.2 073100 REPLACING ALPHANUMERIC BY "**********". NC2234.2 073200 GO TO INI-TEST-GF-3-1. NC2234.2 073300 INI-DELETE-GF-3. NC2234.2 073400 PERFORM DE-LETE. NC2234.2 073500 PERFORM PRINT-DETAIL. NC2234.2 073600 GO TO INI-INIT-GF-4. NC2234.2 073700 INI-TEST-GF-3-1. NC2234.2 073800 MOVE "INI-TEST-GF-3-1" TO PAR-NAME. NC2234.2 073900 IF TEST-1-3 = "**********" NC2234.2 074000 PERFORM PASS NC2234.2 074100 GO TO INI-WRITE-GF-3-1 NC2234.2 074200 ELSE NC2234.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 FAIL. NC2234.2 075200 INI-WRITE-GF-3-1. NC2234.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 PERFORM PASS NC2234.2 076000 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 PERFORM DE-LETE. NC2234.2 076500 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 PERFORM FAIL. NC2234.2 077100 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 TO RE-MARK NC2234.2 079000 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 079500 ADD 1 TO REC-CT. NC2234.2 079600 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 DE-LETE. NC2234.2 080400 GO TO INI-WRITE-GF-3-4. NC2234.2 080500 INI-FAIL-GF-3-4. NC2234.2 080600 MOVE " $0.00" TO CORRECT-X NC2234.2 080700 MOVE TEST-1-2 TO COMPUTED-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 GO TO INI-FAIL-GF-3-5. NC2234.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. NC2234.2 083200 PERFORM PRINT-DETAIL. NC2234.2 083300* NC2234.2 083400 INI-TEST-GF-3-6. NC2234.2 083500 ADD 1 TO REC-CT. NC2234.2 083600 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 PERFORM DE-LETE. NC2234.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 085200 PERFORM PRINT-DETAIL. NC2234.2 085300* NC2234.2 085400 INI-TEST-GF-3-7. NC2234.2 085500 ADD 1 TO REC-CT. NC2234.2 085600 MOVE "INI-TEST-GF-3-7" TO PAR-NAME. NC2234.2 085700 IF TEST-1-6 = ZERO NC2234.2 085800 PERFORM PASS NC2234.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 086200 INI-DELETE-GF-3-7. NC2234.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 RE-MARK NC2234.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" TO PAR-NAME. NC2234.2 087700 IF TEST-1-7 = " $0.00" NC2234.2 087800 PERFORM PASS NC2234.2 087900 GO TO INI-WRITE-GF-3-8 NC2234.2 088000 ELSE NC2234.2 088100 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. NC2234.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 090400 GO TO INI-WRITE-GF-3-9. NC2234.2 090500 INI-FAIL-GF-3-9. NC2234.2 090600 MOVE " / " TO CORRECT-X NC2234.2 090700 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 090800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 090900 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 GO TO INI-WRITE-GF-3-10 NC2234.2 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. NC2234.2 094700 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 095400 PERFORM DE-LETE. 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 FAIL. NC2234.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 098400 ADD 1 TO REC-CT. NC2234.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.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 100000 INI-WRITE-GF-4-3. NC2234.2 100100 PERFORM PRINT-DETAIL. NC2234.2 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 100600 IF TEST-1-2 = " $0.00" NC2234.2 100700 PERFORM PASS NC2234.2 100800 GO TO INI-WRITE-GF-4-4 NC2234.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 TEST-1-2 TO COMPUTED-X NC2234.2 101700 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 101800 TO RE-MARK NC2234.2 101900 PERFORM FAIL. NC2234.2 102000 INI-WRITE-GF-4-4. NC2234.2 102100 PERFORM PRINT-DETAIL. NC2234.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 103500 MOVE "**********" TO CORRECT-X NC2234.2 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 INI-WRITE-GF-4-5. NC2234.2 104100 PERFORM PRINT-DETAIL. NC2234.2 104200* NC2234.2 104300 INI-TEST-GF-4-6. NC2234.2 104400 ADD 1 TO REC-CT. NC2234.2 104500 MOVE "INI-TEST-GF-4-6" TO PAR-NAME. NC2234.2 104600 IF TEST-1-5 = "AAAAAA" 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 105800 TO RE-MARK NC2234.2 105900 PERFORM FAIL. NC2234.2 106000 INI-WRITE-GF-4-6. NC2234.2 106100 PERFORM PRINT-DETAIL. NC2234.2 106200* NC2234.2 106300 INI-TEST-GF-4-7. NC2234.2 106400 ADD 1 TO REC-CT. NC2234.2 106500 MOVE "INI-TEST-GF-4-7" TO PAR-NAME. 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 DE-LETE. NC2234.2 107300 GO TO INI-WRITE-GF-4-7. NC2234.2 107400 INI-FAIL-GF-4-7. NC2234.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-7. NC2234.2 108100 PERFORM PRINT-DETAIL. NC2234.2 108200* NC2234.2 108300 INI-TEST-GF-4-8. NC2234.2 108400 ADD 1 TO REC-CT. NC2234.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 108800 GO TO INI-WRITE-GF-4-8 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 109500 MOVE " $0.00" TO CORRECT-X NC2234.2 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 PAR-NAME. NC2234.2 110600 IF TEST-1-8 = "**********" NC2234.2 110700 PERFORM PASS NC2234.2 110800 GO TO INI-WRITE-GF-4-9 NC2234.2 110900 ELSE NC2234.2 111000 GO TO INI-FAIL-GF-4-9. NC2234.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.2 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 NC2234.2 113000 GO TO INI-FAIL-GF-4-10. NC2234.2 113100 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. NC2234.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 1 TO REC-CT. NC2234.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 PRINT-DETAIL. NC2234.2 115400 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. NC2234.2 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 RE-MARK NC2234.2 116900 PERFORM FAIL. NC2234.2 117000 INI-WRITE-GF-5-1. NC2234.2 117100 PERFORM PRINT-DETAIL. NC2234.2 117200* 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-2 NC2234.2 117900 ELSE NC2234.2 118000 GO TO INI-FAIL-GF-5-2. NC2234.2 118100 INI-DELETE-GF-5-2. NC2234.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 1 TO REC-CT. NC2234.2 119400 MOVE "INI-TEST-GF-5-3" TO PAR-NAME. NC2234.2 119500 IF TEST-1-2 = " $0.00" NC2234.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 120300 INI-FAIL-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 120700 TO RE-MARK 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 REC-CT. NC2234.2 121400 MOVE "INI-TEST-GF-5-4" TO PAR-NAME. NC2234.2 121500 IF TEST-1-3 = "**********" NC2234.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 122000 INI-DELETE-GF-5-4. NC2234.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 NC2234.2 122600 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. NC2234.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 123500 IF TEST-1-4 = "DD DD/DD" 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-5. NC2234.2 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 REC-CT. NC2234.2 125400 MOVE "INI-TEST-GF-5-6" TO PAR-NAME. NC2234.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-X NC2234.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.2 127400 MOVE "INI-TEST-GF-5-7" TO PAR-NAME. NC2234.2 127500 IF TEST-1-7 = " $0.00" NC2234.2 127600 PERFORM PASS NC2234.2 127700 GO TO INI-WRITE-GF-5-7 NC2234.2 127800 ELSE NC2234.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 GO TO INI-WRITE-GF-5-8 NC2234.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. NC2234.2 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 NC2234.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.2 132200 GO TO INI-WRITE-GF-5-9. NC2234.2 132300 INI-FAIL-GF-5-9. NC2234.2 132400 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 132500 MOVE TEST-1-9 TO COMPUTED-X NC2234.2 132600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 132700 TO RE-MARK NC2234.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 TEST-1-10 TO COMPUTED-X NC2234.2 134600 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 134700 TO RE-MARK NC2234.2 134800 PERFORM FAIL. NC2234.2 134900 INI-WRITE-GF-5-10. 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 ANSI-REFERENCE. NC2234.2 135400 MOVE "INITIALIZE STATEMENT" TO FEATURE. NC2234.2 135500 MOVE 1 TO REC-CT. NC2234.2 135600 INI-TEST-GF-6-0. NC2234.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 136000 INI-DELETE-GF-6. NC2234.2 136100 PERFORM DE-LETE. NC2234.2 136200 PERFORM PRINT-DETAIL. NC2234.2 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 RE-MARK NC2234.2 137800 PERFORM FAIL. NC2234.2 137900 INI-WRITE-GF-6-1. NC2234.2 138000 PERFORM PRINT-DETAIL. NC2234.2 138100* NC2234.2 138200 INI-TEST-GF-6-2. NC2234.2 138300 ADD 1 TO REC-CT. 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 138800 ELSE NC2234.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 NC2234.2 139600 MOVE "INCORRECTLY INITIALIZED" TO RE-MARK NC2234.2 139700 PERFORM FAIL. NC2234.2 139800 INI-WRITE-GF-6-2. NC2234.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 140900 INI-DELETE-GF-6-3. NC2234.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 MOVE TEST-1-1 TO COMPUTED-X NC2234.2 141500 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 PASS 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.2 143000 PERFORM DE-LETE. NC2234.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 NC2234.2 143700 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 "INI-TEST-GF-6-5" TO PAR-NAME. NC2234.2 144400 IF TEST-1-4 = "DD DD/DD" NC2234.2 144500 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-5. NC2234.2 145300 MOVE "DD DD/DD" TO CORRECT-X NC2234.2 145400 MOVE TEST-1-4 TO COMPUTED-X NC2234.2 145500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 145600 TO RE-MARK NC2234.2 145700 PERFORM FAIL. NC2234.2 145800 INI-WRITE-GF-6-5. NC2234.2 145900 PERFORM PRINT-DETAIL. NC2234.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 DE-LETE. NC2234.2 147100 GO TO INI-WRITE-GF-6-6. NC2234.2 147200 INI-FAIL-GF-6-6. NC2234.2 147300 MOVE "AAAAAA" TO CORRECT-X NC2234.2 147400 MOVE TEST-1-5 TO COMPUTED-X NC2234.2 147500 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 147600 TO RE-MARK NC2234.2 147700 PERFORM FAIL. NC2234.2 147800 INI-WRITE-GF-6-6. NC2234.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 "INI-TEST-GF-6-7" TO PAR-NAME. NC2234.2 148400 IF TEST-1-6 = 1234 NC2234.2 148500 PERFORM PASS NC2234.2 148600 GO TO INI-WRITE-GF-6-7 NC2234.2 148700 ELSE NC2234.2 148800 GO TO INI-FAIL-GF-6-7. 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. NC2234.2 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 PERFORM PASS NC2234.2 150600 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 DE-LETE. NC2234.2 151100 GO TO INI-WRITE-GF-6-8. NC2234.2 151200 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 1 TO REC-CT. NC2234.2 152300 MOVE "INI-TEST-GF-6-9" TO PAR-NAME. NC2234.2 152400 IF TEST-1-9 = "DD DD/DD" NC2234.2 152500 PERFORM PASS NC2234.2 152600 GO TO INI-WRITE-GF-6-9 NC2234.2 152700 ELSE NC2234.2 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 TO INI-WRITE-GF-6-9. NC2234.2 153200 INI-FAIL-GF-6-9. NC2234.2 153300 MOVE TEST-1-9 TO COMPUTED-X NC2234.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 "INI-TEST-GF-6-10" TO PAR-NAME. NC2234.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 TEST-1-10 TO COMPUTED-X NC2234.2 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. NC2234.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 TO TEST-1-5. NC2234.2 157000 MOVE ZEROS TO TEST-1-6. NC2234.2 157100 MOVE ZEROS TO TEST-1-7. NC2234.2 157200 MOVE SPACES TO TEST-1-8. NC2234.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. NC2234.2 158300 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-1. NC2234.2 158800 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 GO TO INI-FAIL-GF-7-1. NC2234.2 159400 INI-DELETE-GF-7-1. NC2234.2 159500 PERFORM DE-LETE. NC2234.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. NC2234.2 160800 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 "$234.00" TO CORRECT-X NC2234.2 161800 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. NC2234.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 165400 GO TO INI-WRITE-GF-7-4. NC2234.2 165500 INI-FAIL-GF-7-4. NC2234.2 165600 MOVE "**********" TO CORRECT-X NC2234.2 165700 MOVE TEST-1-3 TO COMPUTED-X NC2234.2 165800 MOVE "WRONGLY AFFECTED BY OTHER INITIALISATION" NC2234.2 165900 TO RE-MARK NC2234.2 166000 PERFORM FAIL. NC2234.2 166100 INI-WRITE-GF-7-4. NC2234.2 166200 PERFORM PRINT-DETAIL. NC2234.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 FAIL. NC2234.2 168100 INI-WRITE-GF-7-5. NC2234.2 168200 PERFORM PRINT-DETAIL. NC2234.2 168300* NC2234.2 168400 INI-TEST-GF-7-6. 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 PASS NC2234.2 168900 GO TO INI-WRITE-GF-7-6 NC2234.2 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-6. NC2234.2 169600 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 169900 TO RE-MARK NC2234.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 TO INI-WRITE-GF-7-7 NC2234.2 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 INI-WRITE-GF-7-7. NC2234.2 171500 INI-FAIL-GF-7-7. NC2234.2 171600 MOVE ZERO TO CORRECT-N NC2234.2 171700 MOVE TEST-1-6 TO COMPUTED-X NC2234.2 171800 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 172700 IF TEST-1-8 = "**********" NC2234.2 172800 PERFORM PASS NC2234.2 172900 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-8. NC2234.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 174000 PERFORM FAIL. NC2234.2 174100 INI-WRITE-GF-7-8. NC2234.2 174200 PERFORM PRINT-DETAIL. NC2234.2 174300* NC2234.2 174400 INI-TEST-GF-7-9. NC2234.2 174500 ADD 1 TO REC-CT. NC2234.2 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 INI-DELETE-GF-7-9. NC2234.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 MOVE TEST-1-9 TO COMPUTED-X NC2234.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" TO CORRECT-X NC2234.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. NC2234.2 178100 INI-WRITE-GF-7-10. NC2234.2 178200 PERFORM PRINT-DETAIL. NC2234.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. NC2234.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 180700 GO TO INI-FAIL-GF-8-1. NC2234.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
¤ Dauer der Verarbeitung: 0.92 Sekunden (vorverarbeitet am 2026-04-28) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-05-26