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