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