000100 IDENTIFICATION DIVISION . NC2164.2PROGRAM-ID . NC2164.2000400**************************************************************** NC2164.2 000500* * NC2164.2 000600* VALIDATION FOR:- * NC2164.2 000700* * NC2164.2 000800* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2164.2 000900* * NC2164.2 001000* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2164.2 001100* * NC2164.2 001200**************************************************************** NC2164.2 001300* * NC2164.2 001400* X-CARDS USED BY THIS PROGRAM ARE :- * NC2164.2 001500* * NC2164.2 001600* X-55 - SYSTEM PRINTER NAME. * NC2164.2 001700* X-82 - SOURCE COMPUTER NAME. * NC2164.2 001800* X-83 - OBJECT COMPUTER NAME. * NC2164.2 001900* * NC2164.2 002000**************************************************************** NC2164.2 002100* * NC2164.2 002200* PROGRAM NC216A TESTS ALL FOUR FORMATS OF THE "INSPECT" * NC2164.2 002300* STATEMENT USING VARIOUS COMBINATIONS OF THE OPTIONAL * NC2164.2 002400* PHRASES: CHARACTERS, ALL, LEADING, FIRST, BEFORE, AFTER. * NC2164.2 002500* * NC2164.2 002600**************************************************************** NC2164.2 ENVIRONMENT DIVISION . NC2164.2CONFIGURATION SECTION . NC2164.2SOURCE-COMPUTER . NC2164.2OBJECT-COMPUTER . NC2164.2INPUT-OUTPUT SECTION . NC2164.2FILE-CONTROL . NC2164.2SELECT PRINT-FILE ASSIGN TO NC2164.2"C0085" . NC2164.2DATA DIVISION . NC2164.2FILE SECTION . NC2164.2FD PRINT-FILE. NC2164.2PICTURE X(120). NC2164.2PICTURE X(120). NC2164.2WORKING-STORAGE SECTION . NC2164.2PIC 999. NC2164.2PIC 999. NC2164.2PIC 999. NC2164.2PIC 999. NC2164.2PIC X(20) JUSTIFIED . NC2164.2PIC X VALUE SPACE . NC2164.2PIC X VALUE "," . NC2164.2PIC X VALUE "-" . NC2164.2PIC X VALUE "A" . NC2164.2PIC X VALUE "D" . NC2164.2PIC X VALUE "G" . NC2164.2PIC X VALUE "H" . NC2164.2PIC X VALUE "L" . NC2164.2PIC X VALUE "O" . NC2164.2PIC X VALUE "P" . NC2164.2PIC X VALUE "S" . NC2164.2PIC X VALUE "Z" . NC2164.2PIC X(2) VALUE "AH" . NC2164.2PIC X(2) VALUE "H " . NC2164.2PIC X(2) VALUE "OH" . NC2164.2PIC X(3) VALUE "ALL" . NC2164.2PIC X(3) VALUE "YES" . NC2164.2PICTURE X(3) VALUE "X X" . NC2164.2PICTURE X(4) VALUE "AABA" . NC2164.2PIC X(83). NC2164.2PIC X(83). NC2164.2PIC S9(5) VALUE -12345. NC2164.2PIC -999,999.99/9 VALUE "-123,456.78/9" . NC2164.2PIC X(15) VALUE "KIDS CAN NOT BE" . NC2164.2PIC X(2) VALUE " ." . NC2164.2PIC X(83) VALUE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"OH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"AH YES,AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL-BAD." . NC2164.2PIC X(83) VALUE NC2164.2"EH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALZZZZZZ" . NC2164.2PIC X(83) VALUE NC2164.2"OH-YES-AH-YES-W.P.-ZRITOES-HERE.-ANYONE-WHO-HATES-DOGS-AND-KNC2164.2 "IDS-CAN-NOT-BE-ALZZZZZZ" . NC2164.2PIC X(83) VALUE NC2164.2"AH-YES-AH-YES-W.C.-FRITOES-HERE.-ANYONE-WHO-HATES-DOGS-AND-KNC2164.2 "IDS-CAN-NOT-BE-ALL-BAD." . NC2164.2PIC X(83) VALUE NC2164.2"OH YES AH YES W.C. FROTOES HERE, ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"OH YES AH YES W.C. FRITOES HE NC2164.2 " BE ALL BAD." . NC2164.2PIC X(83) VALUE NC2164.2"OH YES AH NC2164.2 " D." . NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(3). NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(20). NC2164.2PIC X(3). NC2164.2PIC X(7) VALUE "XXXXXXX" . NC2164.2PIC X(7) VALUE "YYYYYYY" . NC2164.2PIC X(7) VALUE "AAABAAA" . NC2164.2PIC X(7) VALUE "SSSSSSS" . NC2164.2PIC X(7) VALUE "TTTTTTT" . NC2164.2REDEFINES GRP-A. NC2164.2PIC X(7) OCCURS 5. NC2164.2PIC X VALUE "G" . NC2164.2PIC X VALUE "H" . NC2164.2PIC X VALUE "B" . NC2164.2PIC X VALUE "D" . NC2164.2PIC X VALUE "C" . NC2164.2REDEFINES GRP-C. NC2164.2PIC X OCCURS 5. NC2164.2PIC 9 COMP . NC2164.2PIC XX VALUE "BB" . NC2164.2PIC X VALUE "Y" . NC2164.2PIC X VALUE "3" . NC2164.2PIC X VALUE "E" . NC2164.2PIC XX VALUE "DF" . NC2164.2PIC XX VALUE "67" . NC2164.2PIC X VALUE "B" . NC2164.2FILLER PIC X(48) VALUE NC2164.2"AABBCCDDEBBBBGHDDIJJXXAABBCCDDEEEFFGGHHIIJJKKLLM" . NC2164.2FILLER PIC X(48) VALUE NC2164.2"AABSSSSSEBBTTTT1URSTSTSTVVDYYDEEEFFGSSSSTZSTZSTM" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"AAFSSA ET U V W H S" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"AAFXXA ET Y Y Y H S" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"AX SSA YEG U V W H S" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"AX AAA YEG H S" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"AXESSA YEGTUASSW H S" . NC2164.2FILLER PIC X(20) VALUE NC2164.2"ABESSA YE TUTCGW H S" . NC2164.2FILLER PIC X(13) VALUE NC2164.2"GADQAUZTABAGA" . NC2164.2FILLER PIC X VALUE SPACE . NC2164.2PIC X(20) VALUE SPACE . NC2164.2FILLER PIC X VALUE SPACE . NC2164.2PIC X(5) VALUE SPACE . NC2164.2FILLER PIC X VALUE SPACE . NC2164.2FILLER PIC X(19) VALUE SPACE . NC2164.2PIC X VALUE SPACE . NC2164.2PIC 99 VALUE ZERO . NC2164.2FILLER PIC X(8) VALUE SPACE . NC2164.2PIC X(61). NC2164.2FILLER PIC X(30) VALUE SPACE . NC2164.2FILLER PIC X(17) VALUE NC2164.2" COMPUTED=" . NC2164.2PIC X(20) VALUE SPACE . NC2164.2REDEFINES COMPUTED-A NC2164.2PIC -9(9).9(9). NC2164.2REDEFINES COMPUTED-A PIC -.9(18). NC2164.2REDEFINES COMPUTED-A PIC -9(4).9(14). NC2164.2REDEFINES COMPUTED-A PIC -9(14).9(4). NC2164.2REDEFINES COMPUTED-A. NC2164.2PIC -9(18). NC2164.2FILLER PIC X. NC2164.2FILLER PIC X(50) VALUE SPACE . NC2164.2FILLER PIC X(30) VALUE SPACE . NC2164.2FILLER PIC X(17) VALUE " CORRECT =" . NC2164.2PIC X(20) VALUE SPACE . NC2164.2REDEFINES CORRECT-A PIC -9(9).9(9). NC2164.2REDEFINES CORRECT-A PIC -.9(18). NC2164.2REDEFINES CORRECT-A PIC -9(4).9(14). NC2164.2REDEFINES CORRECT-A PIC -9(14).9(4). NC2164.2REDEFINES CORRECT-A. NC2164.2PIC -9(18). NC2164.2FILLER PIC X. NC2164.2FILLER PIC X(2) VALUE SPACE . NC2164.2PIC X(48) VALUE SPACE . NC2164.2FILLER PIC IS X(99) VALUE IS " FEATURE PANC2164.2 "SS PARAGRAPH-NAME NC2164.2 " REMARKS" . NC2164.2FILLER PIC X(20) VALUE SPACE . NC2164.2FILLER PIC X VALUE SPACE . NC2164.2FILLER PIC X(6) VALUE "TESTED" . NC2164.2FILLER PIC X(15) VALUE SPACE . NC2164.2FILLER PIC X(4) VALUE "FAIL" . NC2164.2FILLER PIC X(94) VALUE SPACE . NC2164.2PIC 9(2) VALUE ZERO . NC2164.2PIC 99 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC 999 VALUE ZERO . NC2164.2PIC X(120) VALUE SPACE . NC2164.2PIC 9(5) VALUE ZERO . NC2164.2PIC X(48) VALUE SPACES . NC2164.2FILLER PIC X(39) VALUE SPACES . NC2164.2FILLER PIC X(42) VALUE NC2164.2"OFFICIAL COBOL COMPILER VALIDATION SYSTEM" . NC2164.2FILLER PIC X(39) VALUE SPACES . NC2164.2FILLER PIC X(40) VALUE SPACE . NC2164.2FILLER PIC X(7) VALUE "CCVS85 " . NC2164.2FILLER PIC XXXX VALUE NC2164.2"4.2 " . NC2164.2FILLER PIC X(28) VALUE NC2164.2" COPY - NOT FOR DISTRIBUTION" . NC2164.2FILLER PIC X(41) VALUE SPACE . NC2164.2FILLER PIC X(15) VALUE NC2164.2"TEST RESULT OF " . NC2164.2PIC X(9). NC2164.2FILLER PIC X(4) VALUE NC2164.2" IN " . NC2164.2FILLER PIC X(12) VALUE NC2164.2" HIGH " . NC2164.2FILLER PIC X(22) VALUE NC2164.2" LEVEL VALIDATION FOR " . NC2164.2FILLER PIC X(58) VALUE NC2164.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC2164.2FILLER PIC X(34) VALUE NC2164.2" FOR OFFICIAL USE ONLY " . NC2164.2FILLER PIC X(58) VALUE NC2164.2"COBOL 85 VERSION 4.2, Apr 1993 SSVG " .NC2164.2FILLER PIC X(28) VALUE NC2164.2" COPYRIGHT 1985 " . NC2164.2FILLER PIC X(52) VALUE SPACE . NC2164.2FILLER PIC X(14) VALUE IS "END OF TEST- " . NC2164.2PIC X(9). NC2164.2FILLER PIC X(45) VALUE SPACES . NC2164.2FILLER PIC X(31) VALUE SPACE . NC2164.2FILLER PIC X(21) VALUE SPACE . NC2164.2PIC XXX VALUE SPACE . NC2164.2FILLER PIC X VALUE SPACE . NC2164.2PIC X(44) VALUE NC2164.2"ERRORS ENCOUNTERED" . NC2164.2FILLER PIC X(22) VALUE NC2164.2" FOR OFFICIAL USE ONLY" . NC2164.2FILLER PIC X(12) VALUE SPACE . NC2164.2FILLER PIC X(58) VALUE NC2164.2"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. " .NC2164.2FILLER PIC X(13) VALUE SPACE . NC2164.2FILLER PIC X(15) VALUE NC2164.2" COPYRIGHT 1985" . NC2164.2PIC XXX VALUE SPACE . NC2164.2FILLER PIC X(4) VALUE " OF " . NC2164.2PIC XXX VALUE SPACE . NC2164.2FILLER PIC X(40) VALUE NC2164.2" TESTS WERE EXECUTED SUCCESSFULLY" . NC2164.2FILLER PIC X(19) VALUE NC2164.2"*** INFORMATION ***" . NC2164.2FILLER PIC X(8) VALUE SPACE . NC2164.2PIC X(20). NC2164.2FILLER PIC X(5) VALUE SPACE . NC2164.2PIC X(20). NC2164.2PIC X(48). NC2164.2FILLER PIC IS X VALUE IS SPACE . NC2164.2FILLER PIC IS X(65) VALUE IS "************************NC2164.2 "*****************************************" . NC2164.2FILLER PIC IS X(54) VALUE IS "************************NC2164.2 "******************************" . NC2164.2PIC X(9) VALUE NC2164.2"NC216A" . NC2164.2PROCEDURE DIVISION . NC2164.2SECTION . NC2164.2OPEN OUTPUT PRINT-FILE. NC2164.2MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2164.2MOVE SPACE TO TEST-RESULTS. NC2164.2PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2164.2GO TO CCVS1-EXIT. NC2164.2PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2164.2EXIT PROGRAM . NC2164.2STOP RUN . NC2164.2MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2164.2MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2164.2MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2164.2MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2164.2MOVE "****TEST DELETED****" TO RE-MARK. NC2164.2IF REC-CT NOT EQUAL TO ZERO NC2164.2MOVE "." TO PARDOT-X NC2164.2MOVE REC-CT TO DOTVALUE. NC2164.2MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2164.2IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2164.2PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2164.2ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2164.2MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2164.2MOVE SPACE TO CORRECT-X. NC2164.2IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2164.2MOVE SPACE TO RE-MARK. NC2164.2MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2164.2MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2164.2MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2164.2MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2164.2MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2164.2MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2164.2ADD DELETE-COUNTER TO ERROR-HOLD. NC2164.2ADD PASS-COUNTER TO ERROR-HOLD. NC2164.2036600* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2164.2 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2164.2MOVE ERROR-HOLD TO CCVS-E-4-2. NC2164.2MOVE CCVS-E-4 TO CCVS-E-2-2. NC2164.2MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2164.2MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2164.2IF ERROR-COUNTER IS EQUAL TO ZERO NC2164.2MOVE "NO " TO ERROR-TOTAL NC2164.2ELSE NC2164.2MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2164.2MOVE CCVS-E-2 TO DUMMY-RECORD. NC2164.2PERFORM WRITE-LINE. NC2164.2IF DELETE-COUNTER IS EQUAL TO ZERO NC2164.2MOVE "NO " TO ERROR-TOTAL ELSE NC2164.2MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2164.2MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2164.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2164.2IF INSPECT-COUNTER EQUAL TO ZERO NC2164.2MOVE "NO " TO ERROR-TOTAL NC2164.2ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2164.2MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2164.2MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2164.2MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2164.2ADD 1 TO RECORD-COUNT. NC2164.2IF RECORD-COUNT GREATER 50 NC2164.2MOVE DUMMY-RECORD TO DUMMY-HOLD NC2164.2MOVE SPACE TO DUMMY-RECORD NC2164.2WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2164.2MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2164.2MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2164.2MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2164.2MOVE DUMMY-HOLD TO DUMMY-RECORD NC2164.2MOVE ZERO TO RECORD-COUNT. NC2164.2PERFORM WRT-LN. NC2164.2WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2164.2MOVE SPACE TO DUMMY-RECORD. NC2164.2PERFORM WRT-LN. NC2164.2IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2164.2IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2164.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2164.2MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2164.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE SPACES TO INF-ANSI-REFERENCE. NC2164.2GO TO FAIL-ROUTINE-EX. NC2164.2MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2164.2MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2164.2MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE SPACES TO COR-ANSI-REFERENCE. NC2164.2EXIT . NC2164.2IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2164.2IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2164.2MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2164.2MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2164.2MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2164.2MOVE SPACES TO INF-ANSI-REFERENCE. NC2164.2EXIT . NC2164.2EXIT . NC2164.2SECTION . NC2164.2043400* NC2164.2 MOVE "INS-TEST-F1-1" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY FOR CHARACTERS" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR CHARACTERS. NC2164.2IF WRK-DU-999-1 EQUAL TO 83 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-1. NC2164.2GO TO INS-FAIL-F1-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 83 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2045900* NC2164.2 MOVE "INS-TEST-F1-2" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY ALL LITERAL" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR ALL "A" . NC2164.2IF WRK-DU-999-1 EQUAL TO 8 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-2. NC2164.2GO TO INS-FAIL-F1-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-2. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 8 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2048400* NC2164.2 MOVE "INS-TEST-F1-3" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY FOR ALL SPACES" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR ALL SPACES . NC2164.2IF WRK-DU-999-1 EQUAL TO 17 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-3. NC2164.2GO TO INS-FAIL-F1-3. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-3. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 17 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2050900* NC2164.2 MOVE "INS-TEST-F1-4" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY LEADING LIT" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR LEADING "AH" . NC2164.2IF WRK-DU-999-1 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-4. NC2164.2GO TO INS-FAIL-F1-4. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-4. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2053400* NC2164.2 MOVE "INS-TEST-F1-5" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "FOR CHARS AFTER LIT" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2AFTER " W" . NC2164.2IF WRK-DU-999-1 EQUAL TO 68 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-5. NC2164.2GO TO INS-FAIL-F1-5. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-5. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 68 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2056000* NC2164.2 MOVE "INS-TEST-F1-6" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "ALL BEFORE INITIAL" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR ALL " " NC2164.2BEFORE INITIAL "W.C." . NC2164.2IF WRK-DU-999-1 EQUAL TO 4 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-6. NC2164.2GO TO INS-FAIL-F1-6. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-6. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 4 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2058600* NC2164.2 MOVE "INS-TEST-F1-7" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "LEAD LIT INITIAL FIG" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR LEADING "Y" NC2164.2AFTER INITIAL SPACES . NC2164.2IF WRK-DU-999-1 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-7. NC2164.2GO TO INS-FAIL-F1-7. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-7. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2061200* NC2164.2 MOVE "INS-TEST-F2-8" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "REP CHARS BY SPACES" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-5. NC2164.2INSPECT WRK-XN-83-1 REPLACING CHARACTERS BY SPACES . NC2164.2IF WRK-XN-83-1 EQUAL TO SPACES NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-8. NC2164.2GO TO INS-FAIL-F2-8. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-8. NC2164.2PERFORM FAIL. NC2164.2MOVE "83 SPACES" TO RE-MARK. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83. NC2164.2MOVE SPACES TO WS-RIGHT-1-83. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83. NC2164.2MOVE ANS-XN-83-5 TO WS-RIGHT-1-83. NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2065900* NC2164.2 MOVE "INS-TEST-F2-9" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "CHARS BEFORE INITIAL" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE NC2164.2"OH YES AH YES W.C. FROTOES HERE, ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-9. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 NC2164.2REPLACING LEADING "AH" BY "OH" BEFORE INITIAL " AH YES" NC2164.2FIRST "I" BY "O" AFTER INITIAL "." NC2164.2ALL ". " BY ", " AFTER INITIAL "HE" . NC2164.2MOVE WRK-XN-83-1 TO WRK-XN-83-2. NC2164.2INSPECT WRK-XN-83-1 NC2164.2REPLACING ALL "OT" BY "IT" BEFORE "HE" NC2164.2LEADING ", " BY ". " AFTER "RE" NC2164.2FIRST "KIDS CAN NOT BE" BY KIDS-CAN-NOT-BE NC2164.2ALL BLANK-PERIOD BY " ." AFTER "BAD" . NC2164.2GO TO INS-TEST-F2-9-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-TEST-F2-10. NC2164.2069000* NC2164.2 IF WRK-XN-83-1 EQUAL TO ANS-XN-83-1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-9-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F2-9-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-9-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO COMPUTED-A NC2164.2MOVE ANS-XN-83-1 TO CORRECT-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2070600* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-2 EQUAL TO ANS-XN-83-9 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-9-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F2-9-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-2 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-9 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2073400* NC2164.2 MOVE "INS-TEST-F2-10" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "LEAD AFTER INIT ID" TO FEATURE. NC2164.2MOVE ZERO TO REC-CT. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2INSPECT WRK-XN-83-1 REPLACING LEADING SPACE-XN-1-1 NC2164.2BY COMMA-XN-1-1 AFTER INITIAL YES-XN-3. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-2 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-10. NC2164.2GO TO INS-FAIL-F2-10. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-10. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-2 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2077500* NC2164.2 MOVE "INS-TEST-F2-11" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "FIRST BY ID BEFORE" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE "O" TO O-XN-1-1. NC2164.2INSPECT WRK-XN-83-1 REPLACING FIRST "A" BY O-XN-1-1 NC2164.2BEFORE INITIAL "H YES" . NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-11. NC2164.2GO TO INS-FAIL-F2-11. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-11. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-1 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2081600* NC2164.2 MOVE "INS-TEST-F2-12" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "ALL ID BY LIT AFTER" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2INSPECT WRK-XN-83-1 REPLACING ALL SPACE-XN-1-1 BY "-" NC2164.2AFTER ALL-XN-3. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-3 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-12. NC2164.2GO TO INS-FAIL-F2-12. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-12. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-3 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2085600* NC2164.2 MOVE "INS-TEST-F3-13" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY-REPLACE CHARS" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2REPLACING CHARACTERS BY SPACES . NC2164.2GO TO INS-TEST-F3-13-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-14. NC2164.2087600* NC2164.2 IF WRK-DU-999-1 EQUAL TO 83 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-13-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-13-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-13-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 83 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2089200* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO SPACES NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-13-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-13-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-13-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO COMPUTED-A NC2164.2MOVE "83 SPACES" TO CORRECT-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2090900* NC2164.2 MOVE "INS-TEST-F3-14" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "LIT BY BEFORE INIT" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2AFTER L-XN-1-1 REPLACING ALL "A" BY "E" BEFORE INITIAL NC2164.2GO TO INS-TEST-F3-14-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-15. NC2164.2093000* NC2164.2 IF WRK-DU-999-1 EQUAL TO 6 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-14-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-14-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-14-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 6 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2094600* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-4 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-14-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-14-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-14-2. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-4 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2097700* NC2164.2 MOVE "INS-TEST-F3-15" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "REPL FIRST AFTER" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-5. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR ALL "A" BEFORE NC2164.2REPLACING FIRST AH-XN-2 BY "OH" AFTER NC2164.2INITIAL HSPACE-XN-2. NC2164.2GO TO INS-TEST-F3-15-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-16. NC2164.2100200* NC2164.2 IF WRK-DU-999-1 EQUAL TO 7 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-15-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-15-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-15-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 7 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2101800* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-5 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-15-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-15-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-15-2. NC2164.2MOVE WRK-XN-83-1 TO COMPUTED-A NC2164.2MOVE ANS-XN-83-5 TO CORRECT-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2103500* NC2164.2 MOVE "INS-TEST-F3-16" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "FOR LEADING" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-5. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR LEADING NC2164.2REPLACING LEADING AH-XN-2 BY "OH" . NC2164.2GO TO INS-TEST-F3-16-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-17. NC2164.2105900* NC2164.2 IF WRK-DU-999-1 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-16-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-16-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-16-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2107500* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-16-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-16-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-16-2. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-1 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2110600* NC2164.2 MOVE "INS-TEST-F3-17" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "LIT BY AFTER INIT" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-5. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR ALL "A" NC2164.2REPLACING FIRST "AH" BY "OH" AFTER INITIAL "YES" . NC2164.2GO TO INS-TEST-F3-17-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-18. NC2164.2113000* NC2164.2 IF WRK-DU-999-1 EQUAL TO 8 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-17-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-17-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-17-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 8 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2114600* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-5 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-17-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-17-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-17-2. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-5 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2117700* NC2164.2 MOVE "INS-TEST-F3-18" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "CHAR AFTER ALL BEF" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2AFTER AH-XN-2 REPLACING ALL "AH" BY "OH" BEFORE YES-XN-3.NC2164.2GO TO INS-TEST-F3-18-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-19. NC2164.2119700* NC2164.2 IF WRK-DU-999-1 EQUAL TO 81 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-18-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-18-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-18-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 81 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2121300* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-18-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-18-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-18-2. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-1 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2124400* NC2164.2 MOVE "INS-TEST-F3-19" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY SERIES" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1 WRK-DU-999-2 WRK-DU-999-3 NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR ALL "A" NC2164.2FOR LEADING "AH" NC2164.2FOR CHARACTERS BEFORE "." NC2164.2FOR CHARACTERS AFTER "AL" NC2164.2REPLACING NC2164.2FIRST "L " BY "ZZ" AFTER INITIAL "AL" NC2164.2FIRST "BAD" BY "ZZZ" AFTER "L " NC2164.2LEADING "BAD" BY "ZZZ" BEFORE INITIAL "Q" NC2164.2FIRST "BAD" BY "ZZZ" BEFORE INITIAL "Z" NC2164.2FIRST "BAD" BY "ZZZ" AFTER "ALL " NC2164.2ALL "." BY "Z" AFTER "AL" . NC2164.2GO TO INS-TEST-F3-19-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-20. NC2164.2127300* NC2164.2 IF WRK-DU-999-1 = 8 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-19-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-19-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-19-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 8 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2128900* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-DU-999-2 = 0 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-19-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-19-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-19-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-2 TO COMPUTED-N NC2164.2MOVE 0 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2130600* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-DU-999-3 = 13 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-19-3 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F3-19-3. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-19-3. NC2164.2MOVE WRK-DU-999-3 TO COMPUTED-N NC2164.2MOVE 13 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2132300* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-DU-999-4 = 5 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-19-4 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-19-4. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-19-4. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-4 TO COMPUTED-N NC2164.2MOVE 5 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2134000* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 = ANS-XN-83-6 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-19-5 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-19-5. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-19-5. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-6 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2137100* NC2164.2 MOVE "INS-TEST-F3-20" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "REPLACE SERIES" TO FEATURE. NC2164.2MOVE ZERO TO REC-CT WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2BEFORE "." NC2164.2REPLACING NC2164.2ALL "L BAD." BY "ZZZZZZ" AFTER L-XN-1-1 NC2164.2ALL " " BY HYPEN-XN-1-1 NC2164.2FIRST "C" BY P-XN-1-1 NC2164.2LEADING AH-XN-2 BY OH-XN-2 NC2164.2ALL "F" BY "Z" BEFORE G-XN-1-1. NC2164.2GO TO INS-TEST-F3-20-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO CCVS-999999. NC2164.2139700* NC2164.2 IF WRK-DU-999-1 EQUAL TO 15 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-20-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-20-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-20-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 15 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2141300* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-7 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-20-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-20-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-20-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-7 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2144400* NC2164.2 MOVE ZERO TO REC-CT. NC2164.2MOVE SPACES TO PAR-NAME. NC2164.2MOVE "INS-TEST-F2-21" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "REPLACE BEFORE" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2INSPECT WRK-XN-83-1 NC2164.2REPLACING ALL SPACE-XN-1-1 BY "-" BEFORE INITIAL "Z" . NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-8 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-21-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F2-21-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-21-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-8 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2148700* NC2164.2 MOVE "INS-TEST-F2-22" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3" TO ANSI-REFERENCE. NC2164.2MOVE "REPLACE AFTER" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2INSPECT WRK-XN-83-1 NC2164.2REPLACING ALL SPACE-XN-1-1 BY "-" AFTER INITIAL "Z" . NC2164.2IF WRK-XN-83-1 EQUAL TO WC-XN-83 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-22 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F2-22. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-22. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE WC-XN-83 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2152800* NC2164.2 MOVE "INS-TEST-F1-23" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY SIGNED NUM." TO FEATURE. NC2164.2MOVE -12345 TO WRK-DS-5V0-1. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE ZERO TO WRK-DU-999-2. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-DS-5V0-1 NC2164.2FOR ALL "-" NC2164.2FOR ALL "5" . NC2164.2GO TO INS-TEST-F1-23-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F1-24. NC2164.2154600* NC2164.2 IF WRK-DU-999-1 EQUAL 0 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-23-1 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F1-23-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-23-1. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE ZERO TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2156200* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-DU-999-2 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-23-2 NC2164.2ELSE NC2164.2PERFORM FAIL NC2164.2GO TO INS-FAIL-F1-23-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-23-2. NC2164.2MOVE WRK-DU-999-2 TO COMPUTED-N NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2157900* NC2164.2 MOVE "INS-TEST-F1-24" TO PAR-NAME. NC2164.2MOVE "NUMERIC EDITED FIELD" TO FEATURE. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE 123456.789 TO WRK-NE-1. NC2164.2MOVE ZERO TO REC-CT. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WRK-NE-1 TALLYING WRK-DU-999-1 FOR ALL "," . NC2164.2IF WRK-DU-999-1 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-24 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F1-24. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-24. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2160300* NC2164.2 MOVE "INS-TEST-F1-25" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "NUMERIC EDITED FIELD" TO FEATURE. NC2164.2MOVE 123456.789 TO WRK-NE-1. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WRK-NE-1 TALLYING WRK-DU-999-1 FOR ALL "-" . NC2164.2IF WRK-DU-999-1 EQUAL TO ZERO NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-25 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F1-25. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-25. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE ZERO TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2162600* NC2164.2 MOVE "INS-TEST-F1-26" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "2 CHARACTER MASK" TO FEATURE. NC2164.2MOVE "X X" TO X-SPACE-X-XN-3. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT X-SPACE-X-XN-3 TALLYING WRK-DU-999-1 FOR ALL "X " . NC2164.2IF WRK-DU-999-1 EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-26 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F1-26. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-26. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 1 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2164900* NC2164.2 MOVE "INS-TEST-F1-27" TO PAR-NAME. NC2164.2MOVE "VI-94" TO ANSI-REFERENCE. NC2164.2MOVE "ORDER OF COMPARE" TO FEATURE. NC2164.2MOVE "AABA" TO AABA-XN-4. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE ZERO TO WRK-DU-999-2. NC2164.2INSPECT AABA-XN-4 TALLYING WRK-DU-999-1 FOR ALL "AA" NC2164.2FOR ALL "A" . NC2164.2IF WRK-DU-999-1 EQUAL TO 1 NC2164.2AND NC2164.2EQUAL TO 1 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-27 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F1-27. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-27. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE WRK-DU-999-2 TO CORRECT-N NC2164.2MOVE "BOTH SHOULD BE 1" TO RE-MARK. NC2164.2PERFORM PRINT-DETAIL. NC2164.2167700* NC2164.2 167900* ===--> BEFORE AND AFTER PHRASES <--=== NC2164.2 MOVE "INS-TEST-F1-28" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3 SR4" TO ANSI-REFERENCE. NC2164.2MOVE "TALLY FOR ALL SPACES" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR ALL SPACES NC2164.2AFTER "C." NC2164.2BEFORE "DO" . NC2164.2IF WRK-DU-999-1 EQUAL TO 6 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-28. NC2164.2GO TO INS-FAIL-F1-28. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-28. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 6 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2170500* NC2164.2 170700* ===--> BEFORE AND AFTER PHRASES <--=== NC2164.2 MOVE "INS-TEST-F1-29" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3 SR4" TO ANSI-REFERENCE. NC2164.2MOVE "FOR CHARS AFTER LIT" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT WC-XN-83 TALLYING WRK-DU-999-1 FOR CHARACTERS NC2164.2BEFORE "KI" NC2164.2AFTER " W" . NC2164.2IF WRK-DU-999-1 EQUAL TO 44 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-29. NC2164.2GO TO INS-FAIL-F1-29. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-29. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 44 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2173300* NC2164.2 173500* ===--> EVALUATION OF SUBSCRIPTED IDENTIFIERS <--=== NC2164.2 MOVE "INS-TEST-F1-30" TO PAR-NAME. NC2164.2MOVE "VI-95 6.17.4 GR4 & VI-97 6.17.4 GR8" NC2164.2TO ANSI-REFERENCE. NC2164.2MOVE "FOR CHARS AFTER LIT" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "XXXXXXXYYYYYYYAAABAAASSSSSSSTTTTTTT" NC2164.2TO INSPECT-FIELDS. NC2164.2MOVE "GHBDC" TO LOCATE-CHARS. NC2164.2MOVE 3 TO SUB. NC2164.2INSPECT DATA-FIELD (SUB) NC2164.2FOR ALL "A" BEFORE END-CHAR (SUB) NC2164.2ALL END-CHAR (SUB). NC2164.2IF WRK-DU-999-1 EQUAL TO 4 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-30-1. NC2164.2GO TO INS-FAIL-F1-30-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-30-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 4 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2176400* NC2164.2 MOVE "INS-TEST-F1-31" TO PAR-NAME. NC2164.2MOVE "VI-93" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "AABBCCDDEBBBBGHDDIJJXXAABBCCDDEEEFFGGHHIIJJKKLLM" NC2164.2TO TEST-31-DATA. NC2164.2MOVE "BB" TO WS-BB. NC2164.2INSPECT TEST-31-DATA TALLYING WRK-DU-999-1 NC2164.2FOR ALL "A" BEFORE "X" NC2164.2ALL WS-BB BEFORE "X" NC2164.2ALL "D" BEFORE "X" . NC2164.2IF WRK-DU-999-1 EQUAL TO 9 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-31-1. NC2164.2GO TO INS-FAIL-F1-31-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-31-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 10 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2179100* NC2164.2 MOVE "INS-TEST-F1-32" TO PAR-NAME. NC2164.2MOVE "VI-93" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "AABSSSSSEBBTTTT1URSTSTSTVVDYYDEEEFFGSSSSTZSTZSTM" NC2164.2TO TEST-32-DATA. NC2164.2MOVE "Y" TO WS-Y. NC2164.2INSPECT TEST-32-DATA TALLYING WRK-DU-999-1 NC2164.2FOR LEADING "S" AFTER WS-Y NC2164.2"S" AFTER "U" NC2164.2"T" AFTER WS-Y NC2164.2"T" AFTER "U" . NC2164.2IF WRK-DU-999-1 EQUAL TO 0 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F1-32-1. NC2164.2GO TO INS-FAIL-F1-32-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F1-32-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 0 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2181900* NC2164.2 182100* ===--> "BEFORE" AND "AFTER" PHRASES <--=== NC2164.2 MOVE "INS-TEST-F2-33" TO PAR-NAME. NC2164.2MOVE "VI-94 6.17.3 SR4" TO ANSI-REFERENCE. NC2164.2MOVE "REP CHARS BY SPACES" TO FEATURE. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C NC2164.2 " BE ALL BAD." NC2164.2TO ANS-XN-83-10. NC2164.2INSPECT WRK-XN-83-1 REPLACING CHARACTERS BY SPACES NC2164.2BEFORE "B" AFTER "C" . NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-10 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-33-1. NC2164.2GO TO INS-FAIL-F2-33-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-33-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83. NC2164.2MOVE ANS-XN-83-10 TO WS-RIGHT-1-83. NC2164.2MOVE "THERE SHOUD BE 55 SPACES BETWEEN " "B" " AND " "C" "." NC2164.2TO RE-MARK. NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A. NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A. NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A. NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A. NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A. NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2186700* NC2164.2 186900* ===--> MULTIPLE "CHARACTERS" PHRASES WITH <--=== NC2164.2 187000* ===--> "BEFORE" AND "AFTER" <--=== NC2164.2 MOVE "INS-TEST-F2-34" TO PAR-NAME. NC2164.2MOVE "VI-93 6.17.2" TO ANSI-REFERENCE. NC2164.2MOVE "AAFSSQ ET U V W H S" TO TEST-34-DATA. NC2164.2MOVE "AAFXXQ ETYYYYYYYH S" TO TEST-34-ANSWER. NC2164.2INSPECT TEST-34-DATA NC2164.2REPLACING NC2164.2BY "X" AFTER "F" BEFORE "Q" NC2164.2BY "Y" AFTER "T" BEFORE "H" . NC2164.2IF TEST-34-DATA = TEST-34-ANSWER NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F2-34-1. NC2164.2GO TO INS-FAIL-F2-34-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F2-34-1. NC2164.2PERFORM FAIL. NC2164.2MOVE TEST-34-DATA TO COMPUTED-A. NC2164.2MOVE TEST-34-ANSWER TO CORRECT-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2189400* NC2164.2 189600* ===--> MULTIPLE "CHARACTERS" PHRASES WITH <--=== NC2164.2 189700* ===--> "BEFORE" AND "AFTER" <--=== NC2164.2 MOVE "INS-TEST-F3-35-1" TO PAR-NAME. NC2164.2MOVE "VI-93 6.17.2" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "AX SSA YEG U V W H S" TO TEST-35-DATA. NC2164.2MOVE "AXAAAAAYEG H S" TO TEST-35-ANSWER. NC2164.2INSPECT TEST-35-DATA TALLYING WRK-DU-999-1 NC2164.2FOR CHARACTERS NC2164.2REPLACING NC2164.2BY "A" AFTER "X" BEFORE "Y" NC2164.2BY SPACE AFTER "G" BEFORE "H" . NC2164.2IF TEST-35-DATA = TEST-35-ANSWER NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-35-1. NC2164.2GO TO INS-FAIL-F3-35-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-35-1. NC2164.2PERFORM FAIL. NC2164.2MOVE TEST-35-DATA TO COMPUTED-A. NC2164.2MOVE TEST-35-ANSWER TO CORRECT-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2192300* NC2164.2 192500* ===--> "BEFORE" AND "AFTER" PHRASES <--=== NC2164.2 MOVE "INS-TEST-F3-36" TO PAR-NAME. NC2164.2MOVE "TALLY-REPLACE CHARS" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAZ." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH NC2164.2 " Z." NC2164.2TO ANS-XN-83-11. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 NC2164.2FOR CHARACTERS NC2164.2BEFORE "LL" AFTER "ES" NC2164.2REPLACING CHARACTERS BY SPACES NC2164.2AFTER "H" BEFORE "Z" . NC2164.2GO TO INS-TEST-F3-36-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-37. NC2164.2IF WRK-DU-999-1 EQUAL TO 70 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-36-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-36-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-36-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 70 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2196500* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 = ANS-XN-83-11 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-36-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-36-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-36-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-11 TO WS-RIGHT-1-83 NC2164.2MOVE "THERE SHOULD BE 81 SPACES BETWEEN " "H" " AND " "Z" "." NC2164.2TO RE-MARK NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2199800* NC2164.2 200000* ===--> "BEFORE" AND "AFTER" PHRASES <--=== NC2164.2 MOVE "INS-TEST-F3-37" TO PAR-NAME. NC2164.2MOVE "REPL FIRST AFTER" TO FEATURE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE NC2164.2"AH YES AH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO WC-XN-83. NC2164.2MOVE WC-XN-83 TO WRK-XN-83-1. NC2164.2MOVE NC2164.2"AH YES OH YES W.C. FRITOES HERE. ANYONE WHO HATES DOGS AND KNC2164.2 "IDS CAN NOT BE ALL BAD." NC2164.2TO ANS-XN-83-5. NC2164.2MOVE 1 TO REC-CT. NC2164.2INSPECT WRK-XN-83-1 NC2164.2FOR ALL "A" NC2164.2BEFORE L-XN-1-1 NC2164.2AFTER "YE" NC2164.2REPLACING FIRST AH-XN-2 BY "OH" NC2164.2AFTER INITIAL HSPACE-XN-2 NC2164.2BEFORE "F" . NC2164.2GO TO INS-TEST-F3-37-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F3-38. NC2164.2IF WRK-DU-999-1 EQUAL TO 6 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-37-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-37-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-37-1. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N NC2164.2MOVE 6 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2204200* NC2164.2 ADD 1 TO REC-CT. NC2164.2IF WRK-XN-83-1 EQUAL TO ANS-XN-83-5 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-37-2 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F3-37-2. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-37-2. NC2164.2PERFORM FAIL NC2164.2MOVE WRK-XN-83-1 TO WS-WRONG-1-83 NC2164.2MOVE ANS-XN-83-5 TO WS-RIGHT-1-83 NC2164.2MOVE WS-RIGHT-1-20 TO CORRECT-A NC2164.2MOVE WS-WRONG-1-20 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-21-40 TO CORRECT-A NC2164.2MOVE WS-WRONG-21-40 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-41-60 TO CORRECT-A NC2164.2MOVE WS-WRONG-41-60 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-61-80 TO CORRECT-A NC2164.2MOVE WS-WRONG-61-80 TO COMPUTED-A NC2164.2PERFORM PRINT-DETAIL NC2164.2MOVE WS-RIGHT-81-83 TO CORRECT-A NC2164.2MOVE WS-WRONG-81-83 TO COMPUTED-A. NC2164.2PERFORM PRINT-DETAIL. NC2164.2207300* NC2164.2 207500* ===--> MULTIPLE OPERANDS FOR "ALL" <--=== NC2164.2 MOVE "INS-TEST-F3-38" TO PAR-NAME. NC2164.2MOVE "VI-93 6.17.2" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "E" TO WS-E. NC2164.2MOVE "AXESSA YEGTUASSW H S" TO TEST-38-DATA. NC2164.2MOVE ZERO TO REC-CT. NC2164.2INSPECT TEST-38-DATA TALLYING WRK-DU-999-1 NC2164.2FOR NC2164.2ALL "A" AFTER WS-E NC2164.2"A" AFTER "T" NC2164.2"S" AFTER WS-E NC2164.2"S" AFTER "T" . NC2164.2IF WRK-DU-999-1 = 7 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-38. NC2164.2GO TO INS-FAIL-F3-38. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-38. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 7 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2210300* NC2164.2 210500* ===--> MULTIPLE OPERANDS FOR "LEADING" <--=== NC2164.2 MOVE "INS-TEST-F3-39" TO PAR-NAME. NC2164.2MOVE "VI-93 6.17.2" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "ABESSA YE TUTCGW H S" TO TEST-39-DATA. NC2164.2INSPECT TEST-39-DATA NC2164.2FOR LEADING "B" NC2164.2LEADING WS-E NC2164.2BEFORE "C" NC2164.2REPLACING NC2164.2BY "A" AFTER "X" BEFORE "Y" NC2164.2BY SPACE AFTER "G" BEFORE "H" . NC2164.2IF WRK-DU-999-1 = 0 NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F3-39-1. NC2164.2GO TO INS-FAIL-F3-39-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F3-39-1. NC2164.2PERFORM FAIL. NC2164.2MOVE WRK-DU-999-1 TO COMPUTED-N. NC2164.2MOVE 0 TO CORRECT-N. NC2164.2PERFORM PRINT-DETAIL. NC2164.2213300* NC2164.2 213500* ===--> INSPECT CONVERTING <--=== NC2164.2 MOVE "INS-TEST-F4-40" TO PAR-NAME. NC2164.2MOVE "VI-943" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "GADQAUZTABAGA" TO TEST-40-DATA. NC2164.2INSPECT TEST-40-DATA NC2164.2CONVERTING "AU" TO "23" BEFORE "B" AFTER "Q" . NC2164.2GO TO INS-TEST-F4-40-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F4-41. NC2164.2IF TEST-40-DATA = "GADQ23ZT2BAGA" NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F4-40-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F4-40-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F4-40-1. NC2164.2MOVE "GADQ23ZT2BAGA" TO CORRECT-A NC2164.2MOVE TEST-40-DATA TO COMPUTED-A NC2164.2PERFORM FAIL. NC2164.2PERFORM PRINT-DETAIL. NC2164.2216400* ===--> INSPECT CONVERTING <--=== NC2164.2 MOVE "INS-TEST-F4-41" TO PAR-NAME. NC2164.2MOVE "VI-943" TO ANSI-REFERENCE. NC2164.2MOVE "GADQ23ZT2BAGA" TO TEST-40-DATA. NC2164.2MOVE "DF" TO XN-DF. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2INSPECT TEST-40-DATA NC2164.2CONVERTING XN-DF TO "45" . NC2164.2GO TO INS-TEST-F4-41-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO INS-INIT-F4-42. NC2164.2IF TEST-40-DATA = "GA4Q23ZT2BAGA" NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F4-41-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F4-41-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F4-41-1. NC2164.2MOVE "GA4Q23ZT2BAGA" TO CORRECT-A NC2164.2MOVE TEST-40-DATA TO COMPUTED-A NC2164.2PERFORM FAIL. NC2164.2PERFORM PRINT-DETAIL. NC2164.2219300* NC2164.2 219500* ===--> INSPECT CONVERTING <--=== NC2164.2 MOVE "INS-TEST-F4-42" TO PAR-NAME. NC2164.2MOVE "VI-943" TO ANSI-REFERENCE. NC2164.2MOVE ZERO TO WRK-DU-999-1. NC2164.2MOVE "GA4Q23ZT2BAGA" TO TEST-40-DATA. NC2164.2MOVE "67" TO XN-67. NC2164.2INSPECT TEST-40-DATA NC2164.2CONVERTING "GA" TO XN-67 BEFORE XN-B. NC2164.2GO TO INS-TEST-F4-42-1. NC2164.2PERFORM DE-LETE. NC2164.2PERFORM PRINT-DETAIL. NC2164.2GO TO CCVS-EXIT. NC2164.2IF TEST-40-DATA = "674Q23ZT2BAGA" NC2164.2PERFORM PASS NC2164.2GO TO INS-WRITE-F4-42-1 NC2164.2ELSE NC2164.2GO TO INS-FAIL-F4-42-1. NC2164.2PERFORM DE-LETE. NC2164.2GO TO INS-WRITE-F4-42-1. NC2164.2MOVE "674Q23ZT2BAGA" TO CORRECT-A NC2164.2MOVE TEST-40-DATA TO COMPUTED-A NC2164.2PERFORM FAIL. NC2164.2PERFORM PRINT-DETAIL. NC2164.2222400* NC2164.2 SECTION . NC2164.2GO TO CLOSE-FILES. NC2164.2
Messung V0.5 in Prozent C=91 H=87 G=88
¤ Dauer der Verarbeitung: 0.55 Sekunden
(vorverarbeitet am 2026-05-06)
¤ *© Formatika GbR, Deutschland
