|
000100 IDENTIFICATION DIVISION. NC2354.2
000200 PROGRAM-ID. NC2354.2
000300 NC235A. NC2354.2
000400* NC2354.2
000500**************************************************************** NC2354.2
000600* * NC2354.2
000700* VALIDATION FOR:- * NC2354.2
000800* * NC2354.2
000900* "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2354.2
001000* * NC2354.2
001100* "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2354.2
001200* * NC2354.2
001300**************************************************************** NC2354.2
001400* * NC2354.2
001500* X-CARDS USED BY THIS PROGRAM ARE :- * NC2354.2
001600* * NC2354.2
001700* X-55 - SYSTEM PRINTER NAME. * NC2354.2
001800* X-82 - SOURCE COMPUTER NAME. * NC2354.2
001900* X-83 - OBJECT COMPUTER NAME. * NC2354.2
002000* * NC2354.2
002100**************************************************************** NC2354.2
002200* PROGRAM NC235A TESTS THE USE OF FORMATS 1 AND 2 OF THE * NC2354.2
002300* "SEARCH" STATEMENT ON A ONE DIMENSIONAL TABLE WITH A * NC2354.2
002400* VARIABLE NUMBER OF OCCURRENCES. THE TABLE IS DEFINED * NC2354.2
002500* USING FORMAT 2 OF THE "OCCURS" CLAUSE. * NC2354.2
002600* * NC2354.2
002700**************************************************************** NC2354.2
002800 ENVIRONMENT DIVISION. NC2354.2
002900 CONFIGURATION SECTION. NC2354.2
003000 SOURCE-COMPUTER. NC2354.2
003100 Card0130. NC2354.2
003200 OBJECT-COMPUTER. NC2354.2
003300 Card0131. NC2354.2
003400 INPUT-OUTPUT SECTION. NC2354.2
003500 FILE-CONTROL. NC2354.2
003600 SELECT PRINT-FILE ASSIGN TO NC2354.2
003700 "C0085" . NC2354.2
003800 DATA DIVISION. NC2354.2
003900 FILE SECTION. NC2354.2
004000 FD PRINT-FILE. NC2354.2
004100 01 PRINT-REC PICTURE X(120). NC2354.2
004200 01 DUMMY-RECORD PICTURE X(120). NC2354.2
004300 WORKING-STORAGE SECTION. NC2354.2
004400 77 TBL-LENGTH PIC 99 VALUE 26. NC2354.2
004500 77 SUB-1 PIC 99 VALUE ZERO. NC2354.2
004600 01 TBL-TH309. NC2354.2
004700 02 TH309-ENTRY OCCURS 1 TO 26 DEPENDING TBL-LENGTH NC2354.2
004800 DESCENDING KEY IS DEC-KEY INDEXED BY IDX-1, IDX-2, IDX-3.NC2354.2
004900 03 DEC-KEY PIC XX. NC2354.2
005000 88 FIRSTZ VALUE "ZZ". NC2354.2
005100 88 LASTA VALUE "AA". NC2354.2
005200 88 MIDDLE-PP VALUE "PP". NC2354.2
005300 01 NOTE-1. NC2354.2
005400 02 FILLER PIC X(74) VALUE NC2354.2
005500 "NOTE 1 - CORRECT AND COMPUTED DATA ARE EQUAL BUT THE AT END NC2354.2
005600- "PATH WAS TAKEN". NC2354.2
005700 02 FILLER PIC X(46) VALUE SPACE. NC2354.2
005800 01 NOTE-2. NC2354.2
005900 02 FILLER PIC X(112) VALUE NC2354.2
006000 "NOTE 2 - CORRECT AND COMPUTED DATA ARE NOT EQUAL. THE COMPUTNC2354.2
006100- "ED ENTRY WAS EXTRACTED FROM THE TABLE BY SUBSCRIPTS.". NC2354.2
006200 02 FILLER PIC X(8) VALUE SPACE. NC2354.2
006300 01 TEST-RESULTS. NC2354.2
006400 02 FILLER PIC X VALUE SPACE. NC2354.2
006500 02 FEATURE PIC X(20) VALUE SPACE. NC2354.2
006600 02 FILLER PIC X VALUE SPACE. NC2354.2
006700 02 P-OR-F PIC X(5) VALUE SPACE. NC2354.2
006800 02 FILLER PIC X VALUE SPACE. NC2354.2
006900 02 PAR-NAME. NC2354.2
007000 03 FILLER PIC X(19) VALUE SPACE. NC2354.2
007100 03 PARDOT-X PIC X VALUE SPACE. NC2354.2
007200 03 DOTVALUE PIC 99 VALUE ZERO. NC2354.2
007300 02 FILLER PIC X(8) VALUE SPACE. NC2354.2
007400 02 RE-MARK PIC X(61). NC2354.2
007500 01 TEST-COMPUTED. NC2354.2
007600 02 FILLER PIC X(30) VALUE SPACE. NC2354.2
007700 02 FILLER PIC X(17) VALUE NC2354.2
007800 " COMPUTED=". NC2354.2
007900 02 COMPUTED-X. NC2354.2
008000 03 COMPUTED-A PIC X(20) VALUE SPACE. NC2354.2
008100 03 COMPUTED-N REDEFINES COMPUTED-A NC2354.2
008200 PIC -9(9).9(9). NC2354.2
008300 03 COMPUTED-0V18 REDEFINES COMPUTED-A PIC -.9(18). NC2354.2
008400 03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14). NC2354.2
008500 03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4). NC2354.2
008600 03 CM-18V0 REDEFINES COMPUTED-A. NC2354.2
008700 04 COMPUTED-18V0 PIC -9(18). NC2354.2
008800 04 FILLER PIC X. NC2354.2
008900 03 FILLER PIC X(50) VALUE SPACE. NC2354.2
009000 01 TEST-CORRECT. NC2354.2
009100 02 FILLER PIC X(30) VALUE SPACE. NC2354.2
009200 02 FILLER PIC X(17) VALUE " CORRECT =". NC2354.2
009300 02 CORRECT-X. NC2354.2
009400 03 CORRECT-A PIC X(20) VALUE SPACE. NC2354.2
009500 03 CORRECT-N REDEFINES CORRECT-A PIC -9(9).9(9). NC2354.2
009600 03 CORRECT-0V18 REDEFINES CORRECT-A PIC -.9(18). NC2354.2
009700 03 CORRECT-4V14 REDEFINES CORRECT-A PIC -9(4).9(14). NC2354.2
009800 03 CORRECT-14V4 REDEFINES CORRECT-A PIC -9(14).9(4). NC2354.2
009900 03 CR-18V0 REDEFINES CORRECT-A. NC2354.2
010000 04 CORRECT-18V0 PIC -9(18). NC2354.2
010100 04 FILLER PIC X. NC2354.2
010200 03 FILLER PIC X(2) VALUE SPACE. NC2354.2
010300 03 COR-ANSI-REFERENCE PIC X(48) VALUE SPACE. NC2354.2
010400 01 CCVS-C-1. NC2354.2
010500 02 FILLER PIC IS X(99) VALUE IS " FEATURE PANC2354.2
010600- "SS PARAGRAPH-NAME NC2354.2
010700- " REMARKS". NC2354.2
010800 02 FILLER PIC X(20) VALUE SPACE. NC2354.2
010900 01 CCVS-C-2. NC2354.2
011000 02 FILLER PIC X VALUE SPACE. NC2354.2
011100 02 FILLER PIC X(6) VALUE "TESTED". NC2354.2
011200 02 FILLER PIC X(15) VALUE SPACE. NC2354.2
011300 02 FILLER PIC X(4) VALUE "FAIL". NC2354.2
011400 02 FILLER PIC X(94) VALUE SPACE. NC2354.2
011500 01 REC-SKL-SUB PIC 9(2) VALUE ZERO. NC2354.2
011600 01 REC-CT PIC 99 VALUE ZERO. NC2354.2
011700 01 DELETE-COUNTER PIC 999 VALUE ZERO. NC2354.2
011800 01 ERROR-COUNTER PIC 999 VALUE ZERO. NC2354.2
011900 01 INSPECT-COUNTER PIC 999 VALUE ZERO. NC2354.2
012000 01 PASS-COUNTER PIC 999 VALUE ZERO. NC2354.2
012100 01 TOTAL-ERROR PIC 999 VALUE ZERO. NC2354.2
012200 01 ERROR-HOLD PIC 999 VALUE ZERO. NC2354.2
012300 01 DUMMY-HOLD PIC X(120) VALUE SPACE. NC2354.2
012400 01 RECORD-COUNT PIC 9(5) VALUE ZERO. NC2354.2
012500 01 ANSI-REFERENCE PIC X(48) VALUE SPACES. NC2354.2
012600 01 CCVS-H-1. NC2354.2
012700 02 FILLER PIC X(39) VALUE SPACES. NC2354.2
012800 02 FILLER PIC X(42) VALUE NC2354.2
012900 "OFFICIAL COBOL COMPILER VALIDATION SYSTEM". NC2354.2
013000 02 FILLER PIC X(39) VALUE SPACES. NC2354.2
013100 01 CCVS-H-2A. NC2354.2
013200 02 FILLER PIC X(40) VALUE SPACE. NC2354.2
013300 02 FILLER PIC X(7) VALUE "CCVS85 ". NC2354.2
013400 02 FILLER PIC XXXX VALUE NC2354.2
013500 "4.2 ". NC2354.2
013600 02 FILLER PIC X(28) VALUE NC2354.2
013700 " COPY - NOT FOR DISTRIBUTION". NC2354.2
013800 02 FILLER PIC X(41) VALUE SPACE. NC2354.2
013900 NC2354.2
014000 01 CCVS-H-2B. NC2354.2
014100 02 FILLER PIC X(15) VALUE NC2354.2
014200 "TEST RESULT OF ". NC2354.2
014300 02 TEST-ID PIC X(9). NC2354.2
014400 02 FILLER PIC X(4) VALUE NC2354.2
014500 " IN ". NC2354.2
014600 02 FILLER PIC X(12) VALUE NC2354.2
014700 " HIGH ". NC2354.2
014800 02 FILLER PIC X(22) VALUE NC2354.2
014900 " LEVEL VALIDATION FOR ". NC2354.2
015000 02 FILLER PIC X(58) VALUE NC2354.2
015100 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2354.2
015200 01 CCVS-H-3. NC2354.2
015300 02 FILLER PIC X(34) VALUE NC2354.2
015400 " FOR OFFICIAL USE ONLY ". NC2354.2
015500 02 FILLER PIC X(58) VALUE NC2354.2
015600 "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2354.2
015700 02 FILLER PIC X(28) VALUE NC2354.2
015800 " COPYRIGHT 1985 ". NC2354.2
015900 01 CCVS-E-1. NC2354.2
016000 02 FILLER PIC X(52) VALUE SPACE. NC2354.2
016100 02 FILLER PIC X(14) VALUE IS "END OF TEST- ". NC2354.2
016200 02 ID-AGAIN PIC X(9). NC2354.2
016300 02 FILLER PIC X(45) VALUE SPACES. NC2354.2
016400 01 CCVS-E-2. NC2354.2
016500 02 FILLER PIC X(31) VALUE SPACE. NC2354.2
016600 02 FILLER PIC X(21) VALUE SPACE. NC2354.2
016700 02 CCVS-E-2-2. NC2354.2
016800 03 ERROR-TOTAL PIC XXX VALUE SPACE. NC2354.2
016900 03 FILLER PIC X VALUE SPACE. NC2354.2
017000 03 ENDER-DESC PIC X(44) VALUE NC2354.2
017100 "ERRORS ENCOUNTERED". NC2354.2
017200 01 CCVS-E-3. NC2354.2
017300 02 FILLER PIC X(22) VALUE NC2354.2
017400 " FOR OFFICIAL USE ONLY". NC2354.2
017500 02 FILLER PIC X(12) VALUE SPACE. NC2354.2
017600 02 FILLER PIC X(58) VALUE NC2354.2
017700 "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2354.2
017800 02 FILLER PIC X(13) VALUE SPACE. NC2354.2
017900 02 FILLER PIC X(15) VALUE NC2354.2
018000 " COPYRIGHT 1985". NC2354.2
018100 01 CCVS-E-4. NC2354.2
018200 02 CCVS-E-4-1 PIC XXX VALUE SPACE. NC2354.2
018300 02 FILLER PIC X(4) VALUE " OF ". NC2354.2
018400 02 CCVS-E-4-2 PIC XXX VALUE SPACE. NC2354.2
018500 02 FILLER PIC X(40) VALUE NC2354.2
018600 " TESTS WERE EXECUTED SUCCESSFULLY". NC2354.2
018700 01 XXINFO. NC2354.2
018800 02 FILLER PIC X(19) VALUE NC2354.2
018900 "*** INFORMATION ***". NC2354.2
019000 02 INFO-TEXT. NC2354.2
019100 04 FILLER PIC X(8) VALUE SPACE. NC2354.2
019200 04 XXCOMPUTED PIC X(20). NC2354.2
019300 04 FILLER PIC X(5) VALUE SPACE. NC2354.2
019400 04 XXCORRECT PIC X(20). NC2354.2
019500 02 INF-ANSI-REFERENCE PIC X(48). NC2354.2
019600 01 HYPHEN-LINE. NC2354.2
019700 02 FILLER PIC IS X VALUE IS SPACE. NC2354.2
019800 02 FILLER PIC IS X(65) VALUE IS "************************NC2354.2
019900- "*****************************************". NC2354.2
020000 02 FILLER PIC IS X(54) VALUE IS "************************NC2354.2
020100- "******************************". NC2354.2
020200 01 CCVS-PGM-ID PIC X(9) VALUE NC2354.2
020300 "NC235A". NC2354.2
020400 PROCEDURE DIVISION. NC2354.2
020500 CCVS1 SECTION. NC2354.2
020600 OPEN-FILES. NC2354.2
020700 OPEN OUTPUT PRINT-FILE. NC2354.2
020800 MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN. NC2354.2
020900 MOVE SPACE TO TEST-RESULTS. NC2354.2
021000 PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE. NC2354.2
021100 GO TO CCVS1-EXIT. NC2354.2
021200 CLOSE-FILES. NC2354.2
021300 PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE. NC2354.2
021400 TERMINATE-CCVS. NC2354.2
021500 EXIT PROGRAM. NC2354.2
021600 TERMINATE-CALL. NC2354.2
021700 STOP RUN. NC2354.2
021800 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER. NC2354.2
021900 PASS. MOVE "PASS " TO P-OR-F. ADD 1 TO PASS-COUNTER. NC2354.2
022000 FAIL. MOVE "FAIL*" TO P-OR-F. ADD 1 TO ERROR-COUNTER. NC2354.2
022100 DE-LETE. MOVE "*****" TO P-OR-F. ADD 1 TO DELETE-COUNTER. NC2354.2
022200 MOVE "****TEST DELETED****" TO RE-MARK. NC2354.2
022300 PRINT-DETAIL. NC2354.2
022400 IF REC-CT NOT EQUAL TO ZERO NC2354.2
022500 MOVE "." TO PARDOT-X NC2354.2
022600 MOVE REC-CT TO DOTVALUE. NC2354.2
022700 MOVE TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE. NC2354.2
022800 IF P-OR-F EQUAL TO "FAIL*" PERFORM WRITE-LINE NC2354.2
022900 PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX NC2354.2
023000 ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX. NC2354.2
023100 MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X. NC2354.2
023200 MOVE SPACE TO CORRECT-X. NC2354.2
023300 IF REC-CT EQUAL TO ZERO MOVE SPACE TO PAR-NAME. NC2354.2
023400 MOVE SPACE TO RE-MARK. NC2354.2
023500 HEAD-ROUTINE. NC2354.2
023600 MOVE CCVS-H-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
023700 MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
023800 MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2354.2
023900 MOVE CCVS-H-3 TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES. NC2354.2
024000 COLUMN-NAMES-ROUTINE. NC2354.2
024100 MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2354.2
024200 MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
024300 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2354.2
024400 END-ROUTINE. NC2354.2
024500 MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2354.2
024600 END-RTN-EXIT. NC2354.2
024700 MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
024800 END-ROUTINE-1. NC2354.2
024900 ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO NC2354.2
025000 ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD. NC2354.2
025100 ADD PASS-COUNTER TO ERROR-HOLD. NC2354.2
025200* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12. NC2354.2
025300 MOVE PASS-COUNTER TO CCVS-E-4-1. NC2354.2
025400 MOVE ERROR-HOLD TO CCVS-E-4-2. NC2354.2
025500 MOVE CCVS-E-4 TO CCVS-E-2-2. NC2354.2
025600 MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE. NC2354.2
025700 END-ROUTINE-12. NC2354.2
025800 MOVE "TEST(S) FAILED" TO ENDER-DESC. NC2354.2
025900 IF ERROR-COUNTER IS EQUAL TO ZERO NC2354.2
026000 MOVE "NO " TO ERROR-TOTAL NC2354.2
026100 ELSE NC2354.2
026200 MOVE ERROR-COUNTER TO ERROR-TOTAL. NC2354.2
026300 MOVE CCVS-E-2 TO DUMMY-RECORD. NC2354.2
026400 PERFORM WRITE-LINE. NC2354.2
026500 END-ROUTINE-13. NC2354.2
026600 IF DELETE-COUNTER IS EQUAL TO ZERO NC2354.2
026700 MOVE "NO " TO ERROR-TOTAL ELSE NC2354.2
026800 MOVE DELETE-COUNTER TO ERROR-TOTAL. NC2354.2
026900 MOVE "TEST(S) DELETED " TO ENDER-DESC. NC2354.2
027000 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2354.2
027100 IF INSPECT-COUNTER EQUAL TO ZERO NC2354.2
027200 MOVE "NO " TO ERROR-TOTAL NC2354.2
027300 ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL. NC2354.2
027400 MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC. NC2354.2
027500 MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2354.2
027600 MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE. NC2354.2
027700 WRITE-LINE. NC2354.2
027800 ADD 1 TO RECORD-COUNT. NC2354.2
027900 IF RECORD-COUNT GREATER 50 NC2354.2
028000 MOVE DUMMY-RECORD TO DUMMY-HOLD NC2354.2
028100 MOVE SPACE TO DUMMY-RECORD NC2354.2
028200 WRITE DUMMY-RECORD AFTER ADVANCING PAGE NC2354.2
028300 MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN NC2354.2
028400 MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES NC2354.2
028500 MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN NC2354.2
028600 MOVE DUMMY-HOLD TO DUMMY-RECORD NC2354.2
028700 MOVE ZERO TO RECORD-COUNT. NC2354.2
028800 PERFORM WRT-LN. NC2354.2
028900 WRT-LN. NC2354.2
029000 WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES. NC2354.2
029100 MOVE SPACE TO DUMMY-RECORD. NC2354.2
029200 BLANK-LINE-PRINT. NC2354.2
029300 PERFORM WRT-LN. NC2354.2
029400 FAIL-ROUTINE. NC2354.2
029500 IF COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2354.2
029600 IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2354.2
029700 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2354.2
029800 MOVE "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT. NC2354.2
029900 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
030000 MOVE SPACES TO INF-ANSI-REFERENCE. NC2354.2
030100 GO TO FAIL-ROUTINE-EX. NC2354.2
030200 FAIL-ROUTINE-WRITE. NC2354.2
030300 MOVE TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE NC2354.2
030400 MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE. NC2354.2
030500 MOVE TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2354.2
030600 MOVE SPACES TO COR-ANSI-REFERENCE. NC2354.2
030700 FAIL-ROUTINE-EX. EXIT. NC2354.2
030800 BAIL-OUT. NC2354.2
030900 IF COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE. NC2354.2
031000 IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX. NC2354.2
031100 BAIL-OUT-WRITE. NC2354.2
031200 MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED. NC2354.2
031300 MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE. NC2354.2
031400 MOVE XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES. NC2354.2
031500 MOVE SPACES TO INF-ANSI-REFERENCE. NC2354.2
031600 BAIL-OUT-EX. EXIT. NC2354.2
031700 CCVS1-EXIT. NC2354.2
031800 EXIT. NC2354.2
031900 SECT-NC235A-001 SECTION. NC2354.2
032000 TH-08-001. NC2354.2
032100 INIT-TBL-TH309. NC2354.2
032200 MOVE "ZZYYXXWWVVUUTTSSRRQQPPOONNMMLLKKJJIIHHGGFFEEDDCCBBAA" NC2354.2
032300 TO TBL-TH309. NC2354.2
032400 IF FIRSTZ (1) AND LASTA (26) NC2354.2
032500 MOVE "26 ENTRY TABLE CONSTRUCTED " TO RE-MARK NC2354.2
032600 GO TO INIT-WRITE. NC2354.2
032700 MOVE "TBL ENTRIES BUILT INCORRECT" TO RE-MARK. NC2354.2
032800 MOVE "*****" TO CORRECT-A COMPUTED-A. NC2354.2
032900 INIT-WRITE. NC2354.2
033000 MOVE "INIT-TBL-TH309" TO PAR-NAME. NC2354.2
033100 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
033200 PERFORM PRINT-DETAIL. NC2354.2
033300* NC2354.2
033400 IDX-INIT-F2-1. NC2354.2
033500 MOVE "IDX-TEST-F2-1 " TO PAR-NAME. NC2354.2
033600 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
033700 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
033800 SET IDX-2 TO 26. NC2354.2
033900 IDX-TEST-F2-1. NC2354.2
034000 SEARCH ALL TH309-ENTRY AT END NC2354.2
034100 GO TO IDX-FAIL-F2-1 NC2354.2
034200 WHEN DEC-KEY (IDX-1) EQUAL TO "BB" NEXT SENTENCE. NC2354.2
034300 PERFORM PASS. NC2354.2
034400 GO TO IDX-WRITE-F2-1. NC2354.2
034500 IDX-DELETE-F2-1. NC2354.2
034600 PERFORM DE-LETE NC2354.2
034700 GO TO IDX-WRITE-F2-1. NC2354.2
034800 IDX-FAIL-F2-1. NC2354.2
034900 MOVE 25 TO SUB-1 NC2354.2
035000 MOVE "BB" TO CORRECT-A NC2354.2
035100 PERFORM PUTOUT-COMPUTED-A. NC2354.2
035200 PERFORM FAIL. NC2354.2
035300 IDX-WRITE-F2-1. NC2354.2
035400 PERFORM PRINT-DETAIL. NC2354.2
035500* NC2354.2
035600 IDX-INIT-F2-2. NC2354.2
035700 MOVE "IDX-TEST-F2-2 " TO PAR-NAME. NC2354.2
035800 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
035900 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
036000 SET IDX-3 TO 01. NC2354.2
036100 IDX-TEST-F2-2. NC2354.2
036200 SEARCH ALL TH309-ENTRY AT END NC2354.2
036300 GO TO IDX-FAIL-F2-2 NC2354.2
036400 WHEN DEC-KEY (IDX-1) EQUAL TO "XX" NC2354.2
036500 PERFORM PASS NC2354.2
036600 GO TO IDX-WRITE-F2-2. NC2354.2
036700 IDX-DELETE-F2-2. NC2354.2
036800 PERFORM DE-LETE. NC2354.2
036900 GO TO IDX-WRITE-F2-2. NC2354.2
037000 IDX-FAIL-F2-2. NC2354.2
037100 MOVE 03 TO SUB-1 NC2354.2
037200 MOVE "XX" TO CORRECT-A NC2354.2
037300 PERFORM PUTOUT-COMPUTED-A. NC2354.2
037400 PERFORM FAIL. NC2354.2
037500 IDX-WRITE-F2-2. NC2354.2
037600 PERFORM PRINT-DETAIL. NC2354.2
037700* NC2354.2
037800 IDX-INIT-F2-3. NC2354.2
037900 MOVE "IDX-TEST-F2-3 " TO PAR-NAME. NC2354.2
038000 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
038100 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
038200 MOVE 25 TO TBL-LENGTH. NC2354.2
038300 IDX-TEST-F2-3. NC2354.2
038400 SEARCH ALL TH309-ENTRY AT END NC2354.2
038500 PERFORM PASS NC2354.2
038600 GO TO IDX-WRITE-F2-3 NC2354.2
038700 WHEN DEC-KEY (IDX-1) EQUAL TO "AA" NC2354.2
038800 GO TO IDX-FAIL-F2-3. NC2354.2
038900 IDX-DELETE-F2-3. NC2354.2
039000 PERFORM DE-LETE. NC2354.2
039100 GO TO IDX-WRITE-F2-3. NC2354.2
039200 IDX-FAIL-F2-3. NC2354.2
039300 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
039400 MOVE "AA" TO COMPUTED-A NC2354.2
039500 PERFORM FAIL. NC2354.2
039600 IDX-WRITE-F2-3. NC2354.2
039700 PERFORM PRINT-DETAIL. NC2354.2
039800* NC2354.2
039900 IDX-INIT-F1-4. NC2354.2
040000 MOVE "IDX-TEST-F1-4" TO PAR-NAME. NC2354.2
040100 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
040200 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
040300 MOVE 24 TO TBL-LENGTH. NC2354.2
040400 SET IDX-3 TO 01. NC2354.2
040500 IDX-TEST-F1-4. NC2354.2
040600 SEARCH TH309-ENTRY VARYING IDX-3 AT END NC2354.2
040700 PERFORM PASS NC2354.2
040800 GO TO IDX-WRITE-F1-4 NC2354.2
040900 WHEN DEC-KEY (IDX-3) EQUAL TO "BB" NC2354.2
041000 GO TO IDX-FAIL-F1-4. NC2354.2
041100 IDX-DELETE-F1-4. NC2354.2
041200 PERFORM DE-LETE. NC2354.2
041300 GO TO IDX-WRITE-F1-4. NC2354.2
041400 IDX-FAIL-F1-4. NC2354.2
041500 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
041600 MOVE "BB" TO COMPUTED-A NC2354.2
041700 PERFORM FAIL. NC2354.2
041800 IDX-WRITE-F1-4. NC2354.2
041900 PERFORM PRINT-DETAIL. NC2354.2
042000* NC2354.2
042100 IDX-INIT-F1-5. NC2354.2
042200 MOVE "IDX-TEST-F1-5 " TO PAR-NAME. NC2354.2
042300 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
042400 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
042500 SET IDX-2 TO 01. NC2354.2
042600 IDX-TEST-F1-5. NC2354.2
042700 SEARCH TH309-ENTRY VARYING IDX-2 AT END NC2354.2
042800 GO TO IDX-FAIL-F1-5 NC2354.2
042900 WHEN DEC-KEY (IDX-2) EQUAL TO "KK" NC2354.2
043000 PERFORM PASS NC2354.2
043100 GO TO IDX-WRITE-F1-5. NC2354.2
043200 IDX-DELETE-F1-5. NC2354.2
043300 PERFORM DE-LETE. NC2354.2
043400 GO TO IDX-WRITE-F1-5. NC2354.2
043500 IDX-FAIL-F1-5. NC2354.2
043600 MOVE 16 TO SUB-1 NC2354.2
043700 MOVE "KK" TO CORRECT-A NC2354.2
043800 PERFORM PUTOUT-COMPUTED-A. NC2354.2
043900 PERFORM FAIL. NC2354.2
044000 IDX-WRITE-F1-5. NC2354.2
044100 PERFORM PRINT-DETAIL. NC2354.2
044200* NC2354.2
044300 IDX-INIT-F1-6. NC2354.2
044400 MOVE "IDX-TEST-F1-6 " TO PAR-NAME. NC2354.2
044500 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
044600 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
044700 MOVE 22 TO TBL-LENGTH. NC2354.2
044800 SET IDX-1 TO 09. NC2354.2
044900 IDX-TEST-F1-6. NC2354.2
045000 SEARCH TH309-ENTRY VARYING IDX-1 AT END NC2354.2
045100 PERFORM PASS NC2354.2
045200 GO TO IDX-WRITE-F1-6 NC2354.2
045300 WHEN TH309-ENTRY (IDX-1) EQUAL TO "DD" NC2354.2
045400 GO TO IDX-FAIL-F1-6. NC2354.2
045500 IDX-DELETE-F1-6. NC2354.2
045600 PERFORM DE-LETE. NC2354.2
045700 GO TO IDX-WRITE-F1-6. NC2354.2
045800 IDX-FAIL-F1-6. NC2354.2
045900 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
046000 MOVE "DD" TO COMPUTED-A NC2354.2
046100 PERFORM FAIL. NC2354.2
046200 IDX-WRITE-F1-6. NC2354.2
046300 PERFORM PRINT-DETAIL. NC2354.2
046400* NC2354.2
046500 IDX-INIT-F1-7. NC2354.2
046600 MOVE "IDX-TEST-F1-7 " TO PAR-NAME. NC2354.2
046700 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
046800 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
046900 MOVE 22 TO TBL-LENGTH. NC2354.2
047000 SET IDX-3 TO 23. NC2354.2
047100 IDX-TEST-F1-7. NC2354.2
047200 SEARCH TH309-ENTRY VARYING IDX-3 AT END NC2354.2
047300 PERFORM PASS NC2354.2
047400 GO TO IDX-WRITE-F1-7 NC2354.2
047500 WHEN TH309-ENTRY (IDX-3) EQUAL TO "DD" NC2354.2
047600 GO TO IDX-FAIL-F1-7. NC2354.2
047700 IDX-DELETE-F1-7. NC2354.2
047800 PERFORM DE-LETE. NC2354.2
047900 GO TO IDX-WRITE-F1-7. NC2354.2
048000 IDX-FAIL-F1-7. NC2354.2
048100 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
048200 MOVE "DD" TO COMPUTED-A NC2354.2
048300 PERFORM FAIL. NC2354.2
048400 IDX-WRITE-F1-7. NC2354.2
048500 PERFORM PRINT-DETAIL. NC2354.2
048600* NC2354.2
048700 IDX-INIT-F2-8. NC2354.2
048800 MOVE "IDX-TEST-F2-8 " TO PAR-NAME. NC2354.2
048900 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
049000 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
049100 MOVE 20 TO TBL-LENGTH. NC2354.2
049200 SET IDX-2 TO 21. NC2354.2
049300 IDX-TEST-F2-8. NC2354.2
049400 SEARCH ALL TH309-ENTRY AT END NC2354.2
049500 GO TO IDX-FAIL-F2-8 NC2354.2
049600 WHEN DEC-KEY (IDX-1) EQUAL TO "GG" NC2354.2
049700 PERFORM PASS NC2354.2
049800 GO TO IDX-WRITE-F2-8. NC2354.2
049900 IDX-DELETE-F2-8. NC2354.2
050000 PERFORM DE-LETE. NC2354.2
050100 GO TO IDX-WRITE-F2-8. NC2354.2
050200 IDX-FAIL-F2-8. NC2354.2
050300 MOVE 20 TO SUB-1 NC2354.2
050400 MOVE "GG" TO CORRECT-A NC2354.2
050500 PERFORM PUTOUT-COMPUTED-A. NC2354.2
050600 PERFORM FAIL. NC2354.2
050700 IDX-WRITE-F2-8. NC2354.2
050800 PERFORM PRINT-DETAIL. NC2354.2
050900* NC2354.2
051000 IDX-INIT-F2-9. NC2354.2
051100 MOVE "IDX-TEST-F2-9 " TO PAR-NAME. NC2354.2
051200 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
051300 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
051400 MOVE 20 TO TBL-LENGTH. NC2354.2
051500 IDX-TEST-F2-9. NC2354.2
051600 SEARCH ALL TH309-ENTRY AT END NC2354.2
051700 PERFORM PASS NC2354.2
051800 GO TO IDX-WRITE-F2-9 NC2354.2
051900 WHEN LASTA (IDX-1) NC2354.2
052000 GO TO IDX-FAIL-F2-9. NC2354.2
052100 IDX-DELETE-F2-9. NC2354.2
052200 PERFORM DE-LETE. NC2354.2
052300 GO TO IDX-WRITE-F2-9. NC2354.2
052400 IDX-FAIL-F2-9. NC2354.2
052500 MOVE "CONDITION-NAME TEST" TO RE-MARK NC2354.2
052600 PERFORM FAIL NC2354.2
052700 MOVE "AA" TO COMPUTED-A. NC2354.2
052800 IDX-WRITE-F2-9. NC2354.2
052900 PERFORM PRINT-DETAIL. NC2354.2
053000* NC2354.2
053100 IDX-INIT-F2-10. NC2354.2
053200 MOVE "IDX-TEST-F2-10 " TO PAR-NAME. NC2354.2
053300 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
053400 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
053500 SET IDX-1, IDX-2, IDX-3 TO 10. NC2354.2
053600 IDX-TEST-F2-10. NC2354.2
053700 SEARCH ALL TH309-ENTRY AT END NC2354.2
053800 GO TO IDX-FAIL-F2-10 NC2354.2
053900 WHEN DEC-KEY (IDX-1) EQUAL TO "RR" NC2354.2
054000 PERFORM PASS NC2354.2
054100 GO TO IDX-WRITE-F2-10. NC2354.2
054200 IDX-DELETE-F2-10. NC2354.2
054300 PERFORM DE-LETE. NC2354.2
054400 GO TO IDX-WRITE-F2-10. NC2354.2
054500 IDX-FAIL-F2-10. NC2354.2
054600 MOVE 9 TO SUB-1 NC2354.2
054700 MOVE "RR" TO CORRECT-A NC2354.2
054800 PERFORM PUTOUT-COMPUTED-A. NC2354.2
054900 PERFORM FAIL. NC2354.2
055000 IDX-WRITE-F2-10. NC2354.2
055100 PERFORM PRINT-DETAIL. NC2354.2
055200* NC2354.2
055300 IDX-INIT-F2-11. NC2354.2
055400 MOVE "IDX-TEST-F2-11 " TO PAR-NAME. NC2354.2
055500 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
055600 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
055700 MOVE 1 TO TBL-LENGTH. NC2354.2
055800 IDX-TEST-F2-11. NC2354.2
055900 SEARCH ALL TH309-ENTRY AT END NC2354.2
056000 PERFORM PASS NC2354.2
056100 GO TO IDX-WRITE-F2-11 NC2354.2
056200 WHEN DEC-KEY (IDX-1) EQUAL TO "YY" NC2354.2
056300 GO TO IDX-FAIL-F2-11. NC2354.2
056400 IDX-DELETE-F2-11. NC2354.2
056500 PERFORM DE-LETE. NC2354.2
056600 GO TO IDX-WRITE-F2-11. NC2354.2
056700 IDX-FAIL-F2-11. NC2354.2
056800 MOVE 2 TO SUB-1 NC2354.2
056900 MOVE "YY" TO COMPUTED-A NC2354.2
057000 MOVE "ENTRY SHOULD NOT BE FOUND" TO RE-MARK NC2354.2
057100 PERFORM FAIL. NC2354.2
057200 IDX-WRITE-F2-11. NC2354.2
057300 PERFORM PRINT-DETAIL. NC2354.2
057400* NC2354.2
057500 IDX-INIT-F2-12. NC2354.2
057600 MOVE "IDX-TEST-F2-12 " TO PAR-NAME. NC2354.2
057700 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
057800 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
057900 MOVE 10 TO TBL-LENGTH. NC2354.2
058000 IDX-TEST-F2-12. NC2354.2
058100 SEARCH ALL TH309-ENTRY AT END NC2354.2
058200 PERFORM PASS NC2354.2
058300 GO TO IDX-WRITE-F2-12 NC2354.2
058400 WHEN MIDDLE-PP (IDX-1) NC2354.2
058500 GO TO IDX-FAIL-F2-12. NC2354.2
058600 IDX-DELETE-F2-12. NC2354.2
058700 PERFORM DE-LETE. NC2354.2
058800 GO TO IDX-WRITE-F2-12. NC2354.2
058900 IDX-FAIL-F2-12. NC2354.2
059000 MOVE 10 TO SUB-1 NC2354.2
059100 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
059200 MOVE "PP" TO COMPUTED-A NC2354.2
059300 PERFORM FAIL. NC2354.2
059400 IDX-WRITE-F2-12. NC2354.2
059500 PERFORM PRINT-DETAIL. NC2354.2
059600* NC2354.2
059700 IDX-INIT-F2-13. NC2354.2
059800 MOVE "IDX-TEST-F2-13 " TO PAR-NAME. NC2354.2
059900 MOVE "VI-121 6.21.2" TO ANSI-REFERENCE. NC2354.2
060000 MOVE "LEVEL 3 TBL HANDLING" TO FEATURE. NC2354.2
060100 MOVE 2 TO TBL-LENGTH. NC2354.2
060200 IDX-TEST-F2-13. NC2354.2
060300 SEARCH ALL TH309-ENTRY AT END NC2354.2
060400 PERFORM PASS NC2354.2
060500 GO TO IDX-WRITE-F2-13 NC2354.2
060600 WHEN DEC-KEY (IDX-1) EQUAL TO "XX" NC2354.2
060700 GO TO IDX-FAIL-F2-13. NC2354.2
060800 IDX-DELETE-F2-13. NC2354.2
060900 PERFORM DE-LETE. NC2354.2
061000 GO TO IDX-WRITE-F2-13. NC2354.2
061100 IDX-FAIL-F2-13. NC2354.2
061200 MOVE "XX" TO COMPUTED-A NC2354.2
061300 MOVE "ENTRY SHOULD NOT BE FOUND " TO RE-MARK NC2354.2
061400 PERFORM FAIL. NC2354.2
061500 IDX-WRITE-F2-13. NC2354.2
061600 PERFORM PRINT-DETAIL. NC2354.2
061700 GO TO CCVS-EXIT. NC2354.2
061800* NC2354.2
061900 PUTOUT-COMPUTED-A. NC2354.2
062000 IF TH309-ENTRY (SUB-1) EQUAL TO CORRECT-A NC2354.2
062100 MOVE "SEE NOTE 1 FOR DIAGNOSTIC" TO RE-MARK ELSE NC2354.2
062200 MOVE "SEE NOTE 2 FOR DIAGNOSTIC" TO RE-MARK. NC2354.2
062300 MOVE TH309-ENTRY (SUB-1) TO COMPUTED-A. NC2354.2
062400 CCVS-EXIT SECTION. NC2354.2
062500 CCVS-999999. NC2354.2
062600 GO TO CLOSE-FILES. NC2354.2
¤ Dauer der Verarbeitung: 0.47 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.
|
