| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/COBOL/Test-Suite/COBOL/NC/ Datei vom 4.1.2008 mit Größe 183 kB |
|
Quelle nc223a.cob Sprache: 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 --> -------------------- --> maximum size reached --> --------------------
¤ Dauer der Verarbeitung: 0.33 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-04-04