| products/sources/formale Sprachen/Cobol/Test-Suite/COBOL/ST/ |
|
Quellcode-Bibliothek© Kompilation durch diese Firma[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]Datei: ic237a.cob Sprache: Cobol |
|
||||||
|
000100 IDENTIFICATION DIVISION. NC2214.2
000200 PROGRAM-ID. NC2214.2 000300 NC221A. NC2214.2 000400**************************************************************** NC2214.2 000500* * NC2214.2 000600* VALIDATION FOR:- * NC2214.2 000700* * NC2214.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2214.2 000900* * NC2214.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2214.2 001100* * NC2214.2 001200**************************************************************** NC2214.2 001300* * NC2214.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2214.2 001500* * NC2214.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2214.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2214.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2214.2 001900* * NC2214.2 002000**************************************************************** NC2214.2 002100* * NC2214.2 002200* PROGRAM NC221A TEST THE USE OF INDEXED IDENTIFIERS WITH * NC2214.2 002300* FORMATS 1, 2 AND 3 OF THE "INSPECT" STATEMENT. * NC2214.2 002400* * NC2214.2 002500**************************************************************** NC2214.2 002600 ENVIRONMENT DIVISION. NC2214.2 002700 CONFIGURATION SECTION. NC2214.2 002800 SOURCE-COMPUTER. NC2214.2 002900 Card0130. NC2214.2 003000 OBJECT-COMPUTER. NC2214.2 003100 Card0131. NC2214.2 003200 INPUT-OUTPUT SECTION. NC2214.2 003300 FILE-CONTROL. NC2214.2 003400 SELECT PRINT-FILE ASSIGN TO NC2214.2 003500 "C0085" . NC2214.2 003600 DATA DIVISION. NC2214.2 003700 FILE SECTION. NC2214.2 003800 FD PRINT-FILE. NC2214.2 003900 01 PRINT-REC PICTURE X(120). NC2214.2 004000 01 DUMMY-RECORD PICTURE X(120). NC2214.2 004100 WORKING-STORAGE SECTION. NC2214.2 004200 NC2214.2 004300 01 WS-RIGHT-1-83. NC2214.2 004400 03 WS-RIGHT-1-20 PIC X(20). NC2214.2 004500 03 WS-RIGHT-21-40 PIC X(20). NC2214.2 004600 03 WS-RIGHT-41-60 PIC X(20). NC2214.2 004700 03 WS-RIGHT-61-80 PIC X(20). NC2214.2 004800 03 WS-RIGHT-81-83 PIC X(3). NC2214.2 004900 01 WS-WRONG-1-83. NC2214.2 005000 03 WS-WRONG-1-20 PIC X(20). NC2214.2 005100 03 WS-WRONG-21-40 PIC X(20). NC2214.2 005200 03 WS-WRONG-41-60 PIC X(20). NC2214.2 005300 03 WS-WRONG-61-80 PIC X(20). NC2214.2 005400 03 WS-WRONG-81-83 PIC X(3). NC2214.2 005500 NC2214.2 005600 01 TABLE1. NC2214.2 005700 02 TABLE1-REC PICTURE X(83) NC2214.2 005800 OCCURS 4 TIMES NC2214.2 005900 INDEXED BY INDEX1. NC2214.2 006000 01 TABLE2. NC2214.2 006100 02 WRK-DU-999 PICTURE 999 NC2214.2 006200 OCCURS 4 TIMES NC2214.2 006300 INDEXED BY INDEX2. NC2214.2 006400 01 TABLE3. NC2214.2 006500 02 TABLE3-SYMBOL PICTURE X NC2214.2 006600 OCCURS 3 TIMES NC2214.2 006700 INDEXED BY INDEX3. NC2214.2 006800 01 TABLE4. NC2214.2 006900 02 TABLE4-LETTER PICTURE XX NC2214.2 007000 OCCURS 5 TIMES NC2214.2 007100 INDEXED BY INDEX4. NC2214.2 007200 01 WC-XN-83 PIC X(83) VALUE NC2214.2 007300 "AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 007400- "IDS CAN NOT BE ALL BAD.". NC2214.2 007500 01 ANS-XN-83-1 PIC X(83) VALUE NC2214.2 007600 "OH YES AH YES W.C. FROTOES HERE, ANYONE WHO HATES DOGS AND KNC2214.2 007700- "IDS CAN NOT BE ALL BAD.". NC2214.2 007800 01 ANS-XN-83-2 PIC X(83) VALUE NC2214.2 007900 "AH YES,AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 008000- "IDS CAN NOT BE ALL BAD.". NC2214.2 008100 01 ANS-XN-83-3 PIC X(83) VALUE NC2214.2 008200 "OH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 008300- "IDS CAN NOT BE ALL BAD.". NC2214.2 008400 01 ANS-XN-83-4 PIC X(83) VALUE NC2214.2 008500 "AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 008600- "IDS CAN NOT BE ALL-BAD.". NC2214.2 008700 01 ANS-XN-83-5 PIC X(83) VALUE NC2214.2 008800 "EH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 008900- "IDS CAN NOT BE ALL BAD.". NC2214.2 009000 01 ANS-XN-83-6 PIC X(83) VALUE NC2214.2 009100 "AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 009200- "IDS CAN NOT BE ALL BAD.". NC2214.2 009300*01 TEST-RESULTS. NC2214.2 009400* 02 FILLER PIC X VALUE SPACE. NC2214.2 009500* 02 FEATURE PIC X(20) VALUE SPACE. NC2214.2 009600* 02 FILLER PIC X VALUE SPACE. NC2214.2 009700* 02 P-OR-F PIC X(5) VALUE SPACE. NC2214.2 009800* 02 FILLER PIC X VALUE SPACE. NC2214.2 009900* 02 PAR-NAME. NC2214.2 010000* 03 FILLER PIC X(19) VALUE SPACE. NC2214.2 010100* 03 PARDOT-X PIC X VALUE SPACE. NC2214.2 010200* 03 DOTVALUE PIC 99 VALUE ZERO. NC2214.2 010300* 02 FILLER PIC X(8) VALUE SPACE. NC2214.2 010400* 02 RE-MARK PIC X(61). NC2214.2 010500 01 TEST-RESULTS. NC2214.2 010600 02 FILLER PIC X VALUE SPACE. NC2214.2 010700 02 FEATURE PIC X(20) VALUE SPACE. NC2214.2 010800 02 FILLER PIC X VALUE SPACE. NC2214.2 010900 02 P-OR-F PIC X(5) VALUE SPACE. NC2214.2 011000 02 FILLER PIC X VALUE SPACE. NC2214.2 011100 02 PAR-NAME. NC2214.2 011200 03 FILLER PIC X(19) VALUE SPACE. NC2214.2 011300 03 PARDOT-X PIC X VALUE SPACE. NC2214.2 011400 03 DOTVALUE PIC 99 VALUE ZERO. NC2214.2 011500 02 FILLER PIC X(8) VALUE SPACE. NC2214.2 011600 02 RE-MARK PIC X(61). NC2214.2 011700 01 TEST-COMPUTED. NC2214.2 011800 02 FILLER PIC X(30) VALUE SPACE. NC2214.2 011900 02 FILLER PIC X(17) VALUE NC2214.2 012000 " COMPUTED=". NC2214.2 012100 02 COMPUTED-X. NC2214.2 012200 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2214.2 012300 03 COMPUTED-N REDEFINES COMPUTED-A NC2214.2 012400 PIC -9(9).9(9). NC2214.2 012500 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2214.2 012600 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2214.2 012700 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2214.2 012800 03 CM-18V0 REDEFINES COMPUTED-A. NC2214.2 012900 04 COMPUTED-18V0 PIC -9(18). NC2214.2 013000 04 FILLER PIC X. NC2214.2 013100 03 FILLER PIC X(50) VALUE SPACE. NC2214.2 013200 01 TEST-CORRECT. NC2214.2 013300 02 FILLER PIC X(30) VALUE SPACE. NC2214.2 013400 02 FILLER PIC X(17) VALUE " CORRECT =". NC2214.2 013500 02 CORRECT-X. NC2214.2 013600 03 CORRECT-A PIC X(20) VALUE SPACE. NC2214.2 013700 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2214.2 013800 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2214.2 013900 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2214.2 014000 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2214.2 014100 03 CR-18V0 REDEFINES CORRECT-A. NC2214.2 014200 04 CORRECT-18V0 PIC -9(18). NC2214.2 014300 04 FILLER PIC X. NC2214.2 014400 03 FILLER PIC X(2) VALUE SPACE. NC2214.2 014500 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2214.2 014600 01 CCVS-C-1. NC2214.2 014700 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2214.2 014800- "SS PARAGRAPH-NAME NC2214.2 014900- " REMARKS". NC2214.2 015000 02 FILLER PIC X(20) VALUE SPACE. NC2214.2 015100 01 CCVS-C-2. NC2214.2 015200 02 FILLER PIC X VALUE SPACE. NC2214.2 015300 02 FILLER PIC X(6) VALUE "TESTED". NC2214.2 015400 02 FILLER PIC X(15) VALUE SPACE. NC2214.2 015500 02 FILLER PIC X(4) VALUE "FAIL". NC2214.2 015600 02 FILLER PIC X(94) VALUE SPACE. NC2214.2 015700 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2214.2 015800 01 REC-CT PIC 99 VALUE ZERO. NC2214.2 015900 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2214.2 016000 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2214.2 016100 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2214.2 016200 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2214.2 016300 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2214.2 016400 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2214.2 016500 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2214.2 016600 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2214.2 016700 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2214.2 016800 01 CCVS-H-1. NC2214.2 016900 02 FILLER PIC X(39) VALUE SPACES. NC2214.2 017000 02 FILLER PIC X(42) VALUE NC2214.2 017100 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2214.2 017200 02 FILLER PIC X(39) VALUE SPACES. NC2214.2 017300 01 CCVS-H-2A. NC2214.2 017400 02 FILLER PIC X(40) VALUE SPACE. NC2214.2 017500 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2214.2 017600 02 FILLER PIC XXXX VALUE NC2214.2 017700 "4.2 ". NC2214.2 017800 02 FILLER PIC X(28) VALUE NC2214.2 017900 " COPY - NOT FOR DISTRIBUTION". NC2214.2 018000 02 FILLER PIC X(41) VALUE SPACE. NC2214.2 018100 NC2214.2 018200 01 CCVS-H-2B. NC2214.2 018300 02 FILLER PIC X(15) VALUE NC2214.2 018400 "TEST RESULT OF ". NC2214.2 018500 02 TEST-ID PIC X(9). NC2214.2 018600 02 FILLER PIC X(4) VALUE NC2214.2 018700 " IN ". NC2214.2 018800 02 FILLER PIC X(12) VALUE NC2214.2 018900 " HIGH ". NC2214.2 019000 02 FILLER PIC X(22) VALUE NC2214.2 019100 " LEVEL VALIDATION FOR ". NC2214.2 019200 02 FILLER PIC X(58) VALUE NC2214.2 019300 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2214.2 019400 01 CCVS-H-3. NC2214.2 019500 02 FILLER PIC X(34) VALUE NC2214.2 019600 " FOR OFFICIAL USE ONLY ". NC2214.2 019700 02 FILLER PIC X(58) VALUE NC2214.2 019800 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2214.2 019900 02 FILLER PIC X(28) VALUE NC2214.2 020000 " COPYRIGHT 1985 ". NC2214.2 020100 01 CCVS-E-1. NC2214.2 020200 02 FILLER PIC X(52) VALUE SPACE. NC2214.2 020300 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2214.2 020400 02 ID-AGAIN PIC X(9). NC2214.2 020500 02 FILLER PIC X(45) VALUE SPACES. NC2214.2 020600 01 CCVS-E-2. NC2214.2 020700 02 FILLER PIC X(31) VALUE SPACE. NC2214.2 020800 02 FILLER PIC X(21) VALUE SPACE. NC2214.2 020900 02 CCVS-E-2-2. NC2214.2 021000 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2214.2 021100 03 FILLER PIC X VALUE SPACE. NC2214.2 021200 03 ENDER-DESC PIC X(44) VALUE NC2214.2 021300 "ERRORS ENCOUNTERED". NC2214.2 021400 01 CCVS-E-3. NC2214.2 021500 02 FILLER PIC X(22) VALUE NC2214.2 021600 " FOR OFFICIAL USE ONLY". NC2214.2 021700 02 FILLER PIC X(12) VALUE SPACE. NC2214.2 021800 02 FILLER PIC X(58) VALUE NC2214.2 021900 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2214.2 022000 02 FILLER PIC X(13) VALUE SPACE. NC2214.2 022100 02 FILLER PIC X(15) VALUE NC2214.2 022200 " COPYRIGHT 1985". NC2214.2 022300 01 CCVS-E-4. NC2214.2 022400 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2214.2 022500 02 FILLER PIC X(4) VALUE " OF ". NC2214.2 022600 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2214.2 022700 02 FILLER PIC X(40) VALUE NC2214.2 022800 " TESTS WERE EXECUTED SUCCESSFULLY". NC2214.2 022900 01 XXINFO. NC2214.2 023000 02 FILLER PIC X(19) VALUE NC2214.2 023100 "*** INFORMATION ***". NC2214.2 023200 02 INFO-TEXT. NC2214.2 023300 04 FILLER PIC X(8) VALUE SPACE. NC2214.2 023400 04 XXCOMPUTED PIC X(20). NC2214.2 023500 04 FILLER PIC X(5) VALUE SPACE. NC2214.2 023600 04 XXCORRECT PIC X(20). NC2214.2 023700 02 INF-ANSI-REFERENCE PIC X(48). NC2214.2 023800 01 HYPHEN-LINE. NC2214.2 023900 02 FILLER PIC IS X VALUE IS SPACE. NC2214.2 024000 02 FILLER PIC IS X(65) VALUE IS "************************NC2214.2 024100- "*****************************************". NC2214.2 024200 02 FILLER PIC IS X(54) VALUE IS "************************NC2214.2 024300- "******************************". NC2214.2 024400 01 CCVS-PGM-ID PIC X(9) VALUE NC2214.2 024500 "NC221A". NC2214.2 024600 PROCEDURE DIVISION. NC2214.2 024700 CCVS1 SECTION. NC2214.2 024800 OPEN-FILES. NC2214.2 024900 OPEN OUTPUT PRINT-FILE. NC2214.2 025000 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2214.2 025100 MOVE SPACE TO TEST-RESULTS. NC2214.2 025200 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2214.2 025300 GO TO CCVS1-EXIT. NC2214.2 025400 CLOSE-FILES. NC2214.2 025500 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2214.2 025600 TERMINATE-CCVS. NC2214.2 025700 EXIT PROGRAM. NC2214.2 025800 TERMINATE-CALL. NC2214.2 025900 STOP RUN. NC2214.2 026000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2214.2 026100 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2214.2 026200 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2214.2 026300 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2214.2 026400 MOVE "****TEST DELETED****" TO RE-MARK. NC2214.2 026500 PRINT-DETAIL. NC2214.2 026600 IF REC-CT NOT EQUAL TO ZERO NC2214.2 026700 MOVE "." TO PARDOT-X NC2214.2 026800 MOVE REC-CT TO DOTVALUE. NC2214.2 026900 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2214.2 027000 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2214.2 027100 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2214.2 027200 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2214.2 027300 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2214.2 027400 MOVE SPACE TO CORRECT-X. NC2214.2 027500 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2214.2 027600 MOVE SPACE TO RE-MARK. NC2214.2 027700 HEAD-ROUTINE. NC2214.2 027800 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 027900 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 028000 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2214.2 028100 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2214.2 028200 COLUMN-NAMES-ROUTINE. NC2214.2 028300 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2214.2 028400 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 028500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2214.2 028600 END-ROUTINE. NC2214.2 028700 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2214.2 028800 END-RTN-EXIT. NC2214.2 028900 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 029000 END-ROUTINE-1. NC2214.2 029100 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2214.2 029200 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2214.2 029300 ADD PASS-COUNTER TO ERROR-HOLD. NC2214.2 029400* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2214.2 029500 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2214.2 029600 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2214.2 029700 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2214.2 029800 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2214.2 029900 END-ROUTINE-12. NC2214.2 030000 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2214.2 030100 IF ERROR-COUNTER IS EQUAL TO ZERO NC2214.2 030200 MOVE "NO " TO ERROR-TOTAL NC2214.2 030300 ELSE NC2214.2 030400 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2214.2 030500 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2214.2 030600 PERFORM WRITE-LINE. NC2214.2 030700 END-ROUTINE-13. NC2214.2 030800 IF DELETE-COUNTER IS EQUAL TO ZERO NC2214.2 030900 MOVE "NO " TO ERROR-TOTAL ELSE NC2214.2 031000 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2214.2 031100 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2214.2 031200 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2214.2 031300 IF INSPECT-COUNTER EQUAL TO ZERO NC2214.2 031400 MOVE "NO " TO ERROR-TOTAL NC2214.2 031500 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2214.2 031600 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2214.2 031700 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2214.2 031800 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2214.2 031900 WRITE-LINE. NC2214.2 032000 ADD 1 TO RECORD-COUNT. NC2214.2 032100 IF RECORD-COUNT GREATER 50 NC2214.2 032200 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2214.2 032300 MOVE SPACE TO DUMMY-RECORD NC2214.2 032400 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2214.2 032500 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2214.2 032600 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2214.2 032700 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2214.2 032800 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2214.2 032900 MOVE ZERO TO RECORD-COUNT. NC2214.2 033000 PERFORM WRT-LN. NC2214.2 033100 WRT-LN. NC2214.2 033200 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2214.2 033300 MOVE SPACE TO DUMMY-RECORD. NC2214.2 033400 BLANK-LINE-PRINT. NC2214.2 033500 PERFORM WRT-LN. NC2214.2 033600 FAIL-ROUTINE. NC2214.2 033700 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2214.2 033800 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2214.2 033900 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2214.2 034000 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2214.2 034100 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 034200 MOVE SPACES TO INF-ANSI-REFERENCE. NC2214.2 034300 GO TO FAIL-ROUTINE-EX. NC2214.2 034400 FAIL-ROUTINE-WRITE. NC2214.2 034500 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2214.2 034600 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2214.2 034700 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2214.2 034800 MOVE SPACES TO COR-ANSI-REFERENCE. NC2214.2 034900 FAIL-ROUTINE-EX. EXIT. NC2214.2 035000 BAIL-OUT. NC2214.2 035100 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2214.2 035200 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2214.2 035300 BAIL-OUT-WRITE. NC2214.2 035400 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2214.2 035500 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2214.2 035600 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2214.2 035700 MOVE SPACES TO INF-ANSI-REFERENCE. NC2214.2 035800 BAIL-OUT-EX. EXIT. NC2214.2 035900 CCVS1-EXIT. NC2214.2 036000 EXIT. NC2214.2 036100 INIT-TABLE1. NC2214.2 036200 MOVE NC2214.2 036300 "AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 036400- "IDS CAN NOT BE ALL BAD." NC2214.2 036500 TO WC-XN-83. NC2214.2 036600 MOVE WC-XN-83 TO TABLE1-REC (1). NC2214.2 036700 MOVE WC-XN-83 TO TABLE1-REC (2). NC2214.2 036800 MOVE WC-XN-83 TO TABLE1-REC (3). NC2214.2 036900 MOVE WC-XN-83 TO TABLE1-REC (4). NC2214.2 037000 INIT-TABLE3. NC2214.2 037100 MOVE " " TO TABLE3-SYMBOL (1). NC2214.2 037200 MOVE "," TO TABLE3-SYMBOL (2). NC2214.2 037300 MOVE "-" TO TABLE3-SYMBOL (3). NC2214.2 037400 INIT-TABLE4. NC2214.2 037500 MOVE "AH" TO TABLE4-LETTER (1). NC2214.2 037600 MOVE "OH" TO TABLE4-LETTER (2). NC2214.2 037700 MOVE "HE" TO TABLE4-LETTER (3). NC2214.2 037800 MOVE "LL" TO TABLE4-LETTER (4). NC2214.2 037900 MOVE "H " TO TABLE4-LETTER (5). NC2214.2 038000* NC2214.2 038100 INS-INIT-F1-1. NC2214.2 038200 MOVE "INS-TEST-F1-1" TO PAR-NAME. NC2214.2 038300 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 038400 MOVE "TALLY FOR LEADING" TO FEATURE. NC2214.2 038500 MOVE ZEROS TO TABLE2. NC2214.2 038600 SET INDEX1 TO 1. NC2214.2 038700 SET INDEX2 TO 1. NC2214.2 038800 INS-TEST-F1-1. NC2214.2 038900 INSPECT TABLE1-REC (INDEX1) TALLYING WRK-DU-999 (INDEX2) NC2214.2 039000 FOR LEADING "AH" NC2214.2 039100 IF WRK-DU-999 (INDEX2) EQUAL TO 1 NC2214.2 039200 PERFORM PASS NC2214.2 039300 GO TO INS-WRITE-F1-1. NC2214.2 039400 GO TO INS-FAIL-F1-1. NC2214.2 039500 INS-DELETE-F1-1. NC2214.2 039600 PERFORM DE-LETE. NC2214.2 039700 GO TO INS-WRITE-F1-1. NC2214.2 039800 INS-FAIL-F1-1. NC2214.2 039900 PERFORM FAIL. NC2214.2 040000 MOVE WRK-DU-999 (INDEX2) TO COMPUTED-N. NC2214.2 040100 MOVE 1 TO CORRECT-N. NC2214.2 040200 INS-WRITE-F1-1. NC2214.2 040300 PERFORM PRINT-DETAIL. NC2214.2 040400* NC2214.2 040500 INS-INIT-F1-2. NC2214.2 040600 MOVE "INS-TEST-F1-2" TO PAR-NAME. NC2214.2 040700 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 040800 MOVE "TALLY FOR CHAR AFTER" TO FEATURE. NC2214.2 040900 MOVE ZEROS TO TABLE2. NC2214.2 041000 SET INDEX1 TO 2. NC2214.2 041100 SET INDEX2 TO 2. NC2214.2 041200 INS-TEST-F1-2. NC2214.2 041300 INSPECT TABLE1-REC (INDEX1 + 1) NC2214.2 041400 TALLYING WRK-DU-999 (INDEX2 + 1) NC2214.2 041500 FOR CHARACTERS AFTER " W". NC2214.2 041600 IF WRK-DU-999 (INDEX2 + 1) EQUAL TO 68 NC2214.2 041700 PERFORM PASS NC2214.2 041800 GO TO INS-WRITE-F1-2. NC2214.2 041900 GO TO INS-FAIL-F1-2. NC2214.2 042000 INS-DELETE-F1-2. NC2214.2 042100 PERFORM DE-LETE. NC2214.2 042200 GO TO INS-WRITE-F1-2. NC2214.2 042300 INS-FAIL-F1-2. NC2214.2 042400 PERFORM FAIL. NC2214.2 042500 MOVE WRK-DU-999 (INDEX2 + 1) TO COMPUTED-N. NC2214.2 042600 MOVE 68 TO CORRECT-N. NC2214.2 042700 INS-WRITE-F1-2. NC2214.2 042800 PERFORM PRINT-DETAIL. NC2214.2 042900* NC2214.2 043000 INS-INIT-F1-3. NC2214.2 043100 MOVE "INS-TEST-F1-3" TO PAR-NAME. NC2214.2 043200 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 043300 MOVE "TALLY FOR ALL BEFORE" TO FEATURE. NC2214.2 043400 MOVE ZEROS TO TABLE2. NC2214.2 043500 SET INDEX1 TO 3. NC2214.2 043600 SET INDEX2 TO 3. NC2214.2 043700 INS-TEST-F1-3. NC2214.2 043800 INSPECT TABLE1-REC (INDEX1 - 1) NC2214.2 043900 TALLYING WRK-DU-999 (INDEX2 - 2) NC2214.2 044000 FOR ALL " " BEFORE INITIAL "W.C.". NC2214.2 044100 IF WRK-DU-999 (INDEX2 - 2) EQUAL TO 4 NC2214.2 044200 PERFORM PASS NC2214.2 044300 GO TO INS-WRITE-F1-3. NC2214.2 044400 GO TO INS-FAIL-F1-3. NC2214.2 044500 INS-DELETE-F1-3. NC2214.2 044600 PERFORM DE-LETE. NC2214.2 044700 GO TO INS-WRITE-F1-3. NC2214.2 044800 INS-FAIL-F1-3. NC2214.2 044900 PERFORM FAIL. NC2214.2 045000 MOVE WRK-DU-999 (INDEX2 - 2) TO COMPUTED-N. NC2214.2 045100 MOVE 4 TO CORRECT-N. NC2214.2 045200 INS-WRITE-F1-3. NC2214.2 045300 PERFORM PRINT-DETAIL. NC2214.2 045400* NC2214.2 045500 INS-INIT-F2-4. NC2214.2 045600 MOVE "INS-TEST-F2-4" TO PAR-NAME. NC2214.2 045700 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 045800 MOVE "REPLACE BEFORE FIRST" TO FEATURE. NC2214.2 045900 SET INDEX1 TO 4. NC2214.2 046000 SET INDEX4 TO 1. NC2214.2 046100 INS-TEST-F2-4. NC2214.2 046200 INSPECT TABLE1-REC (INDEX1) REPLACING LEADING NC2214.2 046300 TABLE4-LETTER (INDEX4) BY TABLE4-LETTER (INDEX4 + 1) NC2214.2 046400 BEFORE INITIAL " AH YES" FIRST "I" BY "O" NC2214.2 046500 AFTER INITIAL "." ALL ". " BY ", " AFTER INITIAL NC2214.2 046600 TABLE4-LETTER (INDEX4 + 2). NC2214.2 046700 IF TABLE1-REC (INDEX1) EQUAL TO ANS-XN-83-1 NC2214.2 046800 PERFORM PASS NC2214.2 046900 GO TO INS-WRITE-F2-4. NC2214.2 047000 GO TO INS-FAIL-F2-4. NC2214.2 047100 INS-DELETE-F2-4. NC2214.2 047200 PERFORM DE-LETE. NC2214.2 047300 GO TO INS-WRITE-F2-4. NC2214.2 047400 INS-FAIL-F2-4. NC2214.2 047500 MOVE TABLE1-REC (INDEX1) TO WS-WRONG-1-83. NC2214.2 047600 MOVE ANS-XN-83-1 TO WS-RIGHT-1-83. NC2214.2 047700 PERFORM FAIL. NC2214.2 047800 MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2214.2 047900 MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2214.2 048000 PERFORM PRINT-DETAIL. NC2214.2 048100 MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2214.2 048200 MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2214.2 048300 PERFORM PRINT-DETAIL. NC2214.2 048400 MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2214.2 048500 MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2214.2 048600 PERFORM PRINT-DETAIL. NC2214.2 048700 MOVE WS-RIGHT-61-80 TO CORRECT-A. NC2214.2 048800 MOVE WS-WRONG-61-80 TO COMPUTED-A. NC2214.2 048900 PERFORM PRINT-DETAIL. NC2214.2 049000 MOVE WS-RIGHT-81-83 TO CORRECT-A. NC2214.2 049100 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 049200 PERFORM PRINT-DETAIL. NC2214.2 049300 INS-WRITE-F2-4. NC2214.2 049400 PERFORM PRINT-DETAIL. NC2214.2 049500* NC2214.2 049600 INS-INIT-F2-5. NC2214.2 049700 MOVE "INS-TEST-F2-5" TO PAR-NAME. NC2214.2 049800 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 049900 MOVE "REPLACE LEAD AFTER" TO FEATURE NC2214.2 050000 PERFORM INIT-TABLE1. NC2214.2 050100 MOVE NC2214.2 050200 "AH YES,AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 050300- "IDS CAN NOT BE ALL BAD." NC2214.2 050400 TO ANS-XN-83-2. NC2214.2 050500 SET INDEX1 TO 1. NC2214.2 050600 SET INDEX3 TO 1. NC2214.2 050700 INS-TEST-F2-5. NC2214.2 050800 INSPECT TABLE1-REC (INDEX1) REPLACING LEADING NC2214.2 050900 TABLE3-SYMBOL (INDEX3) BY TABLE3-SYMBOL (INDEX3 + 1) NC2214.2 051000 AFTER INITIAL "YES". NC2214.2 051100 IF TABLE1-REC (INDEX1) EQUAL TO ANS-XN-83-2 NC2214.2 051200 PERFORM PASS NC2214.2 051300 GO TO INS-WRITE-F2-5. NC2214.2 051400 GO TO INS-FAIL-F2-5. NC2214.2 051500 INS-DELETE-F2-5. NC2214.2 051600 PERFORM DE-LETE. NC2214.2 051700 GO TO INS-WRITE-F2-5. NC2214.2 051800 INS-FAIL-F2-5. NC2214.2 051900 MOVE TABLE1-REC (INDEX1) TO WS-WRONG-1-83. NC2214.2 052000 MOVE ANS-XN-83-2 TO WS-RIGHT-1-83. NC2214.2 052100 PERFORM FAIL. NC2214.2 052200 MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2214.2 052300 MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2214.2 052400 PERFORM PRINT-DETAIL. NC2214.2 052500 MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2214.2 052600 MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2214.2 052700 PERFORM PRINT-DETAIL. NC2214.2 052800 MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2214.2 052900 MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2214.2 053000 PERFORM PRINT-DETAIL. NC2214.2 053100 MOVE WS-RIGHT-61-80 TO CORRECT-A. NC2214.2 053200 MOVE WS-WRONG-61-80 TO COMPUTED-A. NC2214.2 053300 PERFORM PRINT-DETAIL. NC2214.2 053400 MOVE WS-RIGHT-81-83 TO CORRECT-A. NC2214.2 053500 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 053600 PERFORM PRINT-DETAIL. NC2214.2 053700 INS-WRITE-F2-5. NC2214.2 053800 PERFORM PRINT-DETAIL. NC2214.2 053900* NC2214.2 054000 INS-INIT-F2-6. NC2214.2 054100 MOVE "INS-TEST-F2-6" TO PAR-NAME. NC2214.2 054200 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 054300 MOVE "REPLACE FIRST BEFORE" TO FEATURE. NC2214.2 054400 PERFORM INIT-TABLE1. NC2214.2 054500 SET INDEX1 TO 3. NC2214.2 054600 MOVE NC2214.2 054700 "OH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 054800- "IDS CAN NOT BE ALL BAD." NC2214.2 054900 TO ANS-XN-83-3. NC2214.2 055000 INS-TEST-F2-6. NC2214.2 055100 INSPECT TABLE1-REC (INDEX1 - 1) REPLACING FIRST "A" BY "O" NC2214.2 055200 BEFORE INITIAL "H YES". NC2214.2 055300 IF TABLE1-REC (INDEX1 - 1) EQUAL TO ANS-XN-83-3 NC2214.2 055400 PERFORM PASS NC2214.2 055500 GO TO INS-WRITE-F2-6. NC2214.2 055600 GO TO INS-FAIL-F2-6. NC2214.2 055700 INS-DELETE-F2-6. NC2214.2 055800 PERFORM DE-LETE. NC2214.2 055900 GO TO INS-WRITE-F2-6. NC2214.2 056000 INS-FAIL-F2-6. NC2214.2 056100 MOVE TABLE1-REC (INDEX1 - 1) TO WS-WRONG-1-83. NC2214.2 056200 MOVE ANS-XN-83-3 TO WS-RIGHT-1-83. NC2214.2 056300 PERFORM FAIL. NC2214.2 056400 MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2214.2 056500 MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2214.2 056600 PERFORM PRINT-DETAIL. NC2214.2 056700 MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2214.2 056800 MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2214.2 056900 PERFORM PRINT-DETAIL. NC2214.2 057000 MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2214.2 057100 MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2214.2 057200 PERFORM PRINT-DETAIL. NC2214.2 057300 MOVE WS-RIGHT-61-80 TO CORRECT-A. NC2214.2 057400 MOVE WS-WRONG-61-80 TO COMPUTED-A. NC2214.2 057500 PERFORM PRINT-DETAIL. NC2214.2 057600 MOVE WS-RIGHT-81-83 TO CORRECT-A. NC2214.2 057700 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 057800 PERFORM PRINT-DETAIL. NC2214.2 057900 INS-WRITE-F2-6. NC2214.2 058000 PERFORM PRINT-DETAIL. NC2214.2 058100* NC2214.2 058200 INS-INIT-F2-7. NC2214.2 058300 MOVE "INS-TEST-F2-7" TO PAR-NAME. NC2214.2 058400 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 058500 MOVE "REPLACE ALL AFTER" TO FEATURE. NC2214.2 058600 PERFORM INIT-TABLE1. NC2214.2 058700 PERFORM INIT-TABLE4. NC2214.2 058800 MOVE NC2214.2 058900 "AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2214.2 059000- "IDS CAN NOT BE ALL-BAD." NC2214.2 059100 TO ANS-XN-83-4. NC2214.2 059200 SET INDEX1 TO 1. NC2214.2 059300 SET INDEX4 TO 4. NC2214.2 059400 INS-TEST-F2-7. NC2214.2 059500 INSPECT TABLE1-REC (INDEX1 + 1) REPLACING ALL SPACES BY "-" NC2214.2 059600 AFTER TABLE4-LETTER (INDEX4). NC2214.2 059700 IF TABLE1-REC (INDEX1 + 1) EQUAL TO ANS-XN-83-4 NC2214.2 059800 PERFORM PASS NC2214.2 059900 GO TO INS-WRITE-F2-7. NC2214.2 060000 GO TO INS-FAIL-F2-7. NC2214.2 060100 INS-DELETE-F2-7. NC2214.2 060200 PERFORM DE-LETE. NC2214.2 060300 GO TO INS-WRITE-F2-7. NC2214.2 060400 INS-FAIL-F2-7. NC2214.2 060500 MOVE TABLE1-REC (INDEX1 + 1) TO WS-WRONG-1-83. NC2214.2 060600 MOVE ANS-XN-83-4 TO WS-RIGHT-1-83. NC2214.2 060700 PERFORM FAIL. NC2214.2 060800 MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2214.2 060900 MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2214.2 061000 PERFORM PRINT-DETAIL. NC2214.2 061100 MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2214.2 061200 MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2214.2 061300 PERFORM PRINT-DETAIL. NC2214.2 061400 MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2214.2 061500 MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2214.2 061600 PERFORM PRINT-DETAIL. NC2214.2 061700 MOVE WS-RIGHT-61-80 TO CORRECT-A. NC2214.2 061800 MOVE WS-WRONG-61-80 TO COMPUTED-A. NC2214.2 061900 PERFORM PRINT-DETAIL. NC2214.2 062000 MOVE WS-RIGHT-81-83 TO CORRECT-A. NC2214.2 062100 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 062200 PERFORM PRINT-DETAIL. NC2214.2 062300 INS-WRITE-F2-7. NC2214.2 062400 PERFORM PRINT-DETAIL. NC2214.2 062500* NC2214.2 062600 INS-INIT-F3-8. NC2214.2 062700 MOVE "INS-TEST-F3-8" TO PAR-NAME. NC2214.2 062800 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 062900 MOVE "TALLY REPLACE CHARS" TO FEATURE. NC2214.2 063000 MOVE 1 TO REC-CT. NC2214.2 063100 PERFORM INIT-TABLE1. NC2214.2 063200 PERFORM INIT-TABLE4. NC2214.2 063300 MOVE ZEROS TO TABLE2. NC2214.2 063400 SET INDEX1 TO 4. NC2214.2 063500 SET INDEX2 TO 1. NC2214.2 063600 SET INDEX4 TO 5. NC2214.2 063700 INS-TEST-F3-8-0. NC2214.2 063800 INSPECT TABLE1-REC (INDEX1 - 2) NC2214.2 063900 TALLYING WRK-DU-999 (INDEX2 + 2) FOR CHARACTERS NC2214.2 064000 AFTER "L" REPLACING ALL "A" BY "E" NC2214.2 064100 BEFORE INITIAL TABLE4-LETTER (INDEX4). NC2214.2 064200 GO TO INS-TEST-F3-8-1. NC2214.2 064300 INS-DELETE-F3-8. NC2214.2 064400 PERFORM DE-LETE. NC2214.2 064500 PERFORM PRINT-DETAIL. NC2214.2 064600 GO TO INS-INIT-F3-9. NC2214.2 064700 INS-TEST-F3-8-1. NC2214.2 064800 IF WRK-DU-999 (INDEX2 + 2) EQUAL TO 6 NC2214.2 064900 PERFORM PASS NC2214.2 065000 GO TO INS-WRITE-F3-8-1 NC2214.2 065100 ELSE GO TO INS-FAIL-F3-8-1. NC2214.2 065200 INS-DELETE-F3-8-1. NC2214.2 065300 PERFORM DE-LETE. NC2214.2 065400 GO TO INS-WRITE-F3-8-1. NC2214.2 065500 INS-FAIL-F3-8-1. NC2214.2 065600 MOVE WRK-DU-999 (INDEX2 + 2) TO COMPUTED-N NC2214.2 065700 MOVE 6 TO CORRECT-N . NC2214.2 065800 PERFORM FAIL. NC2214.2 065900 INS-WRITE-F3-8-1. NC2214.2 066000 PERFORM PRINT-DETAIL. NC2214.2 066100* NC2214.2 066200 INS-TEST-F3-8-2. NC2214.2 066300 ADD 1 TO REC-CT. NC2214.2 066400 IF TABLE1-REC (INDEX1 - 2) EQUAL TO ANS-XN-83-5 NC2214.2 066500 PERFORM PASS NC2214.2 066600 GO TO INS-WRITE-F3-8-2 NC2214.2 066700 ELSE NC2214.2 066800 GO TO INS-FAIL-F3-8-2. NC2214.2 066900 INS-DELETE-F3-8-2. NC2214.2 067000 PERFORM DE-LETE. NC2214.2 067100 GO TO INS-WRITE-F3-8-2. NC2214.2 067200 INS-FAIL-F3-8-2. NC2214.2 067300 MOVE TABLE1-REC (INDEX1 - 2) TO WS-WRONG-1-83 NC2214.2 067400 MOVE ANS-XN-83-5 TO WS-RIGHT-1-83 NC2214.2 067500 PERFORM FAIL NC2214.2 067600 MOVE WS-RIGHT-1-20 TO CORRECT-A NC2214.2 067700 MOVE WS-WRONG-1-20 TO COMPUTED-A NC2214.2 067800 PERFORM PRINT-DETAIL NC2214.2 067900 MOVE WS-RIGHT-21-40 TO CORRECT-A NC2214.2 068000 MOVE WS-WRONG-21-40 TO COMPUTED-A NC2214.2 068100 PERFORM PRINT-DETAIL NC2214.2 068200 MOVE WS-RIGHT-41-60 TO CORRECT-A NC2214.2 068300 MOVE WS-WRONG-41-60 TO COMPUTED-A NC2214.2 068400 PERFORM PRINT-DETAIL NC2214.2 068500 MOVE WS-RIGHT-61-80 TO CORRECT-A NC2214.2 068600 MOVE WS-WRONG-61-80 TO COMPUTED-A NC2214.2 068700 PERFORM PRINT-DETAIL NC2214.2 068800 MOVE WS-RIGHT-81-83 TO CORRECT-A NC2214.2 068900 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 069000 INS-WRITE-F3-8-2. NC2214.2 069100 PERFORM PRINT-DETAIL. NC2214.2 069200* NC2214.2 069300 INS-INIT-F3-9. NC2214.2 069400 MOVE "INS-TEST-F3-9" TO PAR-NAME. NC2214.2 069500 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 069600 MOVE "TALLY BEFORE REPLACE" TO FEATURE. NC2214.2 069700 MOVE 1 TO REC-CT. NC2214.2 069800 PERFORM INIT-TABLE1. NC2214.2 069900 MOVE ZEROS TO TABLE2. NC2214.2 070000 PERFORM INIT-TABLE4. NC2214.2 070100 SET INDEX1 TO 4. NC2214.2 070200 SET INDEX2 TO 2. NC2214.2 070300 SET INDEX4 TO 1. NC2214.2 070400 INS-TEST-F3-9-0. NC2214.2 070500 INSPECT TABLE1-REC (INDEX1) TALLYING WRK-DU-999 (INDEX2) NC2214.2 070600 FOR ALL "A" BEFORE "L" REPLACING FIRST NC2214.2 070700 TABLE4-LETTER (INDEX4) BY TABLE4-LETTER (INDEX4 + 1) NC2214.2 070800 AFTER INITIAL "H". NC2214.2 070900 GO TO INS-TEST-F3-9-1. NC2214.2 071000 INS-DELETE-F3-9. NC2214.2 071100 PERFORM DE-LETE. NC2214.2 071200 PERFORM PRINT-DETAIL. NC2214.2 071300 GO TO INS-INIT-F3-10. NC2214.2 071400 INS-TEST-F3-9-1. NC2214.2 071500 IF WRK-DU-999 (INDEX2) EQUAL TO 7 NC2214.2 071600 PERFORM PASS NC2214.2 071700 GO TO INS-WRITE-F3-9-1 NC2214.2 071800 ELSE GO TO INS-FAIL-F3-9-1. NC2214.2 071900 INS-DELETE-F3-9-1. NC2214.2 072000 PERFORM DE-LETE. NC2214.2 072100 GO TO INS-WRITE-F3-9-1. NC2214.2 072200 INS-FAIL-F3-9-1. NC2214.2 072300 MOVE WRK-DU-999 (INDEX2) TO COMPUTED-N NC2214.2 072400 MOVE 7 TO CORRECT-N NC2214.2 072500 PERFORM FAIL. NC2214.2 072600 INS-WRITE-F3-9-1. NC2214.2 072700 PERFORM PRINT-DETAIL. NC2214.2 072800* NC2214.2 072900 INS-TEST-F3-9-2. NC2214.2 073000 ADD 1 TO REC-CT. NC2214.2 073100 IF TABLE1-REC (INDEX1) EQUAL TO ANS-XN-83-6 NC2214.2 073200 PERFORM PASS NC2214.2 073300 GO TO INS-WRITE-F3-9-2 NC2214.2 073400 ELSE NC2214.2 073500 GO TO INS-FAIL-F3-9-2. NC2214.2 073600 INS-DELETE-F3-9-2. NC2214.2 073700 PERFORM DE-LETE. NC2214.2 073800 GO TO INS-WRITE-F3-9-2. NC2214.2 073900 INS-FAIL-F3-9-2. NC2214.2 074000 MOVE TABLE1-REC (INDEX1) TO WS-WRONG-1-83 NC2214.2 074100 MOVE ANS-XN-83-6 TO WS-RIGHT-1-83 NC2214.2 074200 PERFORM FAIL NC2214.2 074300 MOVE WS-RIGHT-1-20 TO CORRECT-A NC2214.2 074400 MOVE WS-WRONG-1-20 TO COMPUTED-A NC2214.2 074500 PERFORM PRINT-DETAIL NC2214.2 074600 MOVE WS-RIGHT-21-40 TO CORRECT-A NC2214.2 074700 MOVE WS-WRONG-21-40 TO COMPUTED-A NC2214.2 074800 PERFORM PRINT-DETAIL NC2214.2 074900 MOVE WS-RIGHT-41-60 TO CORRECT-A NC2214.2 075000 MOVE WS-WRONG-41-60 TO COMPUTED-A NC2214.2 075100 PERFORM PRINT-DETAIL NC2214.2 075200 MOVE WS-RIGHT-61-80 TO CORRECT-A NC2214.2 075300 MOVE WS-WRONG-61-80 TO COMPUTED-A NC2214.2 075400 PERFORM PRINT-DETAIL NC2214.2 075500 MOVE WS-RIGHT-81-83 TO CORRECT-A NC2214.2 075600 MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2214.2 075700 INS-WRITE-F3-9-2. NC2214.2 075800 PERFORM PRINT-DETAIL. NC2214.2 075900* NC2214.2 076000 INS-INIT-F3-10. NC2214.2 076100 MOVE "INS-TEST-F3-10" TO PAR-NAME. NC2214.2 076200 MOVE "IV-21 4.3.8.2" TO ANSI-REFERENCE. NC2214.2 076300 MOVE "TALLY LEAD REPL LEAD" TO FEATURE. NC2214.2 076400 MOVE 1 TO REC-CT. NC2214.2 076500 PERFORM INIT-TABLE1. NC2214.2 076600 MOVE ZEROS TO TABLE2. NC2214.2 076700 PERFORM INIT-TABLE4. NC2214.2 076800 SET INDEX1 TO 1. NC2214.2 076900 SET INDEX2 TO 1. NC2214.2 077000 SET INDEX4 TO 1. NC2214.2 077100 INS-TEST-F3-10-0. NC2214.2 077200 INSPECT TABLE1-REC (INDEX1) TALLYING WRK-DU-999 (INDEX2) NC2214.2 077300 FOR LEADING TABLE4-LETTER (INDEX4) REPLACING NC2214.2 077400 LEADING TABLE4-LETTER (INDEX4) BY "OH". NC2214.2 077500 GO TO INS-TEST-F3-10-1. NC2214.2 077600 INS-DELETE-F3-10. NC2214.2 077700 PERFORM DE-LETE. NC2214.2 077800 PERFORM PRINT-DETAIL. NC2214.2 077900 GO TO INS-INIT-F3-11. NC2214.2 078000 INS-TEST-F3-10-1. NC2214.2 078100 IF WRK-DU-999 (INDEX2) EQUAL TO 1 NC2214.2 078200 PERFORM PASS NC2214.2 078300 GO TO INS-WRITE-F3-10-1 NC2214.2 078400 ELSE NC2214.2 078500 GO TO INS-FAIL-F3-10-1. NC2214.2 078600 INS-DELETE-F3-10-1. NC2214.2 078700 PERFORM DE-LETE. NC2214.2 078800 GO TO INS-WRITE-F3-10-1. NC2214.2 078900 INS-FAIL-F3-10-1. NC2214.2 079000 MOVE WRK-DU-999 (INDEX2) TO COMPUTED-N NC2214.2 079100 MOVE 1 TO CORRECT-N NC2214.2 079200 PERFORM FAIL. NC2214.2 079300 INS-WRITE-F3-10-1. NC2214.2 079400 PERFORM PRINT-DETAIL. NC2214.2 079500* NC2214.2 079600 INS-TEST-F3-10-2. NC2214.2 079700 ADD 1 TO REC-CT. NC2214.2 079800 IF TABLE1-REC (INDEX1) EQUAL TO ANS-XN-83-3 NC2214.2 079900 PERFORM PASS NC2214.2 080000 GO TO INS-WRITE-F3-10-2 NC2214.2 080100 ELSE NC2214.2 080200 GO TO INS-FAIL-F3-10-2. NC2214.2 080300 INS-DELETE-F3-10-2. NC2214.2 080400 PERFORM DE-LETE. NC2214.2 080500 GO TO INS-WRITE-F3-10-2. NC2214.2 080600 INS-FAIL-F3-10-2. NC2214.2 080700 MOVE TABLE1-REC (INDEX1) TO WS-WRONG-1-83 NC2214.2 080800 MOVE ANS-XN-83-3 TO WS-RIGHT-1-83 NC2214.2 080900 PERFORM FAIL NC2214.2 --> -------------------- --> maximum size reached --> -------------------- ¤ Dauer der Verarbeitung: 0.54 Sekunden (vorverarbeitet) ¤ |
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:Die farbliche Syntaxdarstellung ist noch experimentell.Bot Zugriff |
