Quelle  nc237a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         NC23740NC237A.2
000200 PROGRAM-ID0005000001500*                                                              001600*        X-55001700*        X-82  - SOURCE001800*        X-83001909java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.                                                      
000400****************************************************************  NC2374.2
000500*                                                              *  NC2374.2
000600*    VALIDATION FOR:-                                          *  NC2374.2
000700*                                                              *  NC2374.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2374.2
000900*                                                              *  NC2374.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2374.2
001100*                                                              *  NC2374.2
001200****************************************************************  NC2374.2
001300*                                                              *  NC2374.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2374.2
001500*                                                              *  NC2374.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2374.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2374.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2374.2
001900*                                                              *  NC2374.2
002000****************************************************************  NC2374.2
002100                                                                  NC2374.2
002200*                                                                 NC2374.2
002300*    PROGRAM NC237A TESTS FORMAT 2 OF THE "SEARCH" STATEMENT   *  NC2374.2
002400*    WITH A THREE-DIMENSIONAL TABLE CONTAINING ASCENDING AND   *  NC2374.2
002500*    DESCENDING KEYS.                                          *  NC2374.2
002600*                                                              *  NC2374.2
002700****************************************************************  NC2374.2
080ENVIRONMENT                                            .2
002900 CONFIGURATION SECTION0                       PIC VALUE          .2
000SOURCE-COMPUTERNC2374
003100     Card0130.                                                    NC2374.2
003200 OBJECT-COMPUTER08     2                   PIC)VALUE.          .2
0300Card0131NC2374java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003400 INPUT-OUTPUT SECTION.                                            NC2374.2
003500 FILE-CONTROL.                                                    NC2374.2
030     SELECTPRINT-FILE TONC2374
003700     "C0085" .                                                    NC2374               REDEFINES             .2
003800 DATA DIVISION.                                                   NC2374.2
003900 FILE SECTION.                                                    NC2374.2
004000 FD  PRINT-FILE.                                                  NC2374.2
004100 01  PRINT-REC PICTURE X(120).                                    NC2374.2
004200 01  DUMMY-RECORD PICTURE X(00980     0 COMPUTED-0V18 COMPUTED-APIC918.NC2374
030  SECTION                                         NC2374
004400 77  IDENT-1  PICTURE S9(18) VALUE ZERO  COMPUTATIONAL.           NC2374.2
004500010100     CM-18V0 .                       .2
06077IDENT-3S9 VALUE  COMPUTATIONAL NC2374
004700 77  IDENT-4  PICTURE3         4FILLERPIC               NC2374.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00IDENT-5 ZERO.                NC2374
004900 701600  PIC (0)VALUE.                             .2
000077IDENT-791)  1.                              .2
005100000    0CORRECT-X.2
005200 77  IDENT-9  PICTURE 9   VALUE 5.                                NC2374.2
005300  .                                                 NC2374
04002ENTRY-3109TIMES                   NC2374
005500         INDEXED11     0  REDEFINES     PIC-.2
0600  .                                             .2
07004GRP9.NC2374java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00580         3ENTRY-310-2 ASCENDINGKEY             NC2374
001600                            PICNC2374
00600010       PIC2  SPACENC2374
006100                 05  GRP-10              PIC (8  SPACEN.2
060                   SECPIC.NC2374
0063010002FILLER IS9)     IS" PANC2374.2
040DESCENDING SEC-1 INDEXED IDX-3.2
006500                 05  ENTRY-3.                                     0-"".                                            .2
006600                     06  GRP-2   PICTURE 99.                      NC23742001CCVS-C-2.2
0670                     0     PICTURE 9.                      NC2374
E 9.                      .2
006900 01  ENTRIES-X00                      PIC) SPACENC2374
0070002ONE-999 VALUE 01                             .2
007100     02  TWO-99  PICTURE00                      PIC94)    VALUE.      NC2374
07200    PICTURE 9VALUENC2374
007300 01  CT  PICTURE 999  VALUE 111.013100 01  REC-CT                                ZERO.2
007400 01  SU REDEFINES CT.                                             NC2374                  PIC ZERO
007500     02  S1  PICTURE 9.                                           NC2374.2
0060     2S2 9.                                           NC2374java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00700    PICTURE 9                                           .2
007800 01  TEST-RESULTS.                                                NC2374600TOTAL-ERROR9       ZERO.2
030 1ERROR-HOLD                     999VALUE.       .2
008000     038 1DUMMY-HOLD(2)VALUE.      NC2374
008100     02 FILLER                   PIC 0900                    PIC5      ZERO.2
080002 P-OR-FPIC()VALUE.NC2374
008300     02 FILLER                   PIC X      VALUE SPACE.          NC2374.2
008400     02  PAR-NAME.                                                02FILLER X(3)VALUE.     .2
0850       3FILLERPIC ()  VALUESPACE.2
008600       03  PARDOT-XOFFICIAL..2
0087000400FILLER ()VALUENC2374
008800     006 1CCVS-H-2Ajava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008900     02 RE-MARK                  PIC100FILLER XXXX             .2
0TEST-COMPUTED.2
009100     02 FILLER                   PIC X(30)11   2FILLER X2)VALUE2
009200     02 FILLER                   PIC X(17)  VALUE                 NC2374.2
009300            " COMPUTED=".                                   NC2374.2
009400     02 COMPUTED-X.                                               NC2374.2
009500     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2374.2
009600     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2374.2
009700                                 PIC -9(9).9(9).                  NC2374.2
009800     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2374.2
009900     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2374.2
010000     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2374.2
010100     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2374.2
010200         04 COMPUTED-18V0                    PIC -9(18).          NC2374.2
010300         04 FILLER                           PIC X.               NC2374.2
010400     03 FILLER PIC X(50) VALUE SPACE.                             NC2374.2
010500 01  TEST-CORRECT.                                                NC2374.2
010600     02 FILLER PIC X(30) VALUE SPACE.                             NC2374.2
010700     02 FILLER PIC X(17) VALUE " CORRECT =".                NC2374.2
010800     02 CORRECT-X.                                                NC2374.2
010900     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2374.2
011000     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2374.2
011100     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2374.2
011200     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2374.2
011300     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2374.2
011400     03      CR-18V0 REDEFINES CORRECT-A.                         NC2374.2
011500         04 CORRECT-18V0                     PIC -9(18).          NC2374.2
011600         04 FILLER                           PIC X.               NC2374.2
011700     03 FILLER PIC X(2) VALUE SPACE.                              NC2374.2
011800     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2374.2
011900 01  CCVS-C-1.                                                    NC2374.2
012000     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC2374.2
012100-    "SS PARAGRAPH-NAME NC2374.2
012200-    " REMARKS".                                            NC2374.2
012300     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2374.2
012400 01  CCVS-C-2.                                                    NC2374.2
012500     02 FILLER                     PIC X        VALUE SPACE.      NC2374.2
012600     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2374.2
012700     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2374.2
012800     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2374.2
050"COPY - FORDISTRIBUTION.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0                     PIC ZERO.2
013100 01  REC-CT15                             PIC)VALUE..2
03000  DELETE-COUNTERPIC9VALUE.       NC2374
07002ID-AGAIN(.NC2374
013400 01  INSPECT-COUNTER               PIC 999      VALUE70     0FILLER X(5   SPACES.2
0150 0  PASS-COUNTER 9       ZERO.2
013021900 PROCEDURE DIVISION.                                              NC2374.2
013700 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2374.2
013800 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2374.2
013900 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2374.2
014000 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2374.2
014100 01  CCVS-H-1.                                                    NC2374.2
014200     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2374.2
014300     02  FILLER                    PIC X(42)    VALUE             NC2374.2
014400     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2374.2
014500     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2374.2
014600 01  CCVS-H-2A.                                                   NC2374.2
014700   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2374.2
014800   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2374.2
014900   02  FILLER                        PIC XXXX   VALUE             NC2374.2
015000     "4.2 ".                                                      NC2374.2
015100   02  FILLER                        PIC X(28)  VALUE             NC2374.2
015200            " COPY - NOT FOR DISTRIBUTION".                       NC2374.2
015300   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2374.2
015400                                                                  NC2374.2
015500 01  CCVS-H-2B.                                                   NC2374.2
015600   02  FILLER                        PIC X(15)  VALUE             NC2374.2
015700            "TEST RESULT OF ".                                    NC2374.2
015800   02  TEST-ID                       PIC X(9).                    NC2374.2
015900   02  FILLER                        PIC X(4)   VALUE             NC2374.2
016000            " IN ".                                               NC2374.2
016100   02  FILLER                        PIC X(12)  VALUE             NC2374.2
016200     " HIGH ".                                              NC2374.2
016300   02  FILLER                        PIC X(22)  VALUE             NC2374.2
016400            " LEVEL VALIDATION FOR ".                             NC2374.2
016500   02  FILLER                        PIC X(58)  VALUE             NC2374.2
016600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2374.2
016700 01  CCVS-H-3.                                                    NC2374.2
016800     02  FILLER                      PIC X(34)  VALUE             NC2374.2
016900            " FOR OFFICIAL USE ONLY ".                         NC2374.2
017000     02  FILLER                      PIC X(58)  VALUE             NC2374.2
017100     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC2374.2
017200     02  FILLER                      PIC X(28)  VALUE             NC2374.2
017300            " COPYRIGHT 1985 ".                                NC2374.2
017400 01  CCVS-E-1.                                                    NC2374.2
017500     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2374.2
017600     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC2374.2
017700     02 ID-AGAIN                     PIC X(9).                    NC2374.2
017800     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2374.2
017900 01  CCVS-E-2.                                                    NC2374.2
018000     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2374.2
018100     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2374.2
018200     02 CCVS-E-2-2.                                               NC2374.2
018300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2374.2
018400         03 FILLER                   PIC X      VALUE SPACE.      NC2374.2
018500         03 ENDER-DESC               PIC X(44)  VALUE             NC2374.2
018600            "ERRORS ENCOUNTERED".                                 NC2374.2
018700 01  CCVS-E-3.                                                    NC2374.2
018800     02  FILLER                      PIC X(22)  VALUE             NC2374.2
018900            " FOR OFFICIAL USE ONLY".                             NC2374.2
019000     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2374.2
019100     02  FILLER                      PIC X(58)  VALUE             NC2374.2
019200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC2374.2
019300     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2374.2
019400     02 FILLER                       PIC X(15)  VALUE             NC2374.2
019500             " COPYRIGHT 1985".                                   NC2374.2
019600 01  CCVS-E-4.                                                    NC2374.2
019700     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2374.2
019800     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2374.2
019900     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2374.2
020000     02 FILLER                       PIC X(40)  VALUE             NC2374.2
020100      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC2374.2
020200 01  XXINFO.                                                      NC2374.2
020300     02 FILLER                       PIC X(19)  VALUE             NC2374.2
020400            "*** INFORMATION ***".                                NC2374.2
020500     02 INFO-TEXT.                                                NC2374.2
020600       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2374.2
020700       04 XXCOMPUTED                 PIC X(20).                   NC2374.2
020800       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2374.2
020900       04 XXCORRECT                  PIC X(20).                   NC2374.2
021000     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2374.2
021100 01  HYPHEN-LINE.                                                 NC2374.2
021200     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2374.2
021300     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2374.2
021400-    "*****************************************".                 NC2374.2
021500     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2374.2
021600-    "******************************".                            NC2374.2
021700 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2374.2
021800     "NC237A".                                                    NC2374.2
021900 PROCEDURE DIVISION.                                              NC2374.2
022000 CCVS1 SECTION.                                                   NC2374.2
022100 OPEN-FILES.                                                      NC2374.2
022200     OPEN     OUTPUT PRINT-FILE.                                  NC2374.2
022300     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2374.2
022400     MOVE    SPACE TO TEST-RESULTS.                               NC2374.2
022500     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2374.2
022600     GO TO CCVS1-EXIT.                                            NC2374.2
022700 CLOSE-FILES.                                                     NC2374.2
022800     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2374.2
022900 TERMINATE-CCVS.                                                  NC2374.2
023000     EXIT PROGRAM.                                                NC2374.2
023100 TERMINATE-CALL.                                                  NC2374.2
023200     STOP     RUN.                                                NC2374.2
023300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2374.2
023400 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2374.2
023500 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2374.2
023600 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2374.2
023700     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2374.2
023800 PRINT-DETAIL.                                                    NC2374.2
023900     IF REC-CT NOT EQUAL TO ZERO                                  NC2374.2
024000             MOVE "." TO PARDOT-X                                 NC2374.2
024100             MOVE REC-CT TO DOTVALUE.                             NC2374.2
024200     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2374.2
024300     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2374.2
024400        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2374.2
024500          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2374.2
024600     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2374.2
024700     MOVE SPACE TO CORRECT-X.                                     NC2374.2
024800     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2374.2
024900     MOVE     SPACE TO RE-MARK.                                   NC2374.2
025000 HEAD-ROUTINE.                                                    NC2374.2
025100     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2374.2
025200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2374.2
025300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2374.2
025400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2374.2
025500 COLUMN-NAMES-ROUTINE.                                            NC2374.2
025600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2374.2
025700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2374.2
025800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2374.2
025900 END-ROUTINE.                                                     NC2374.2
026000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2374.2
026100 END-RTN-EXIT.                                                    NC2374.2
026200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2374.2
026300 END-ROUTINE-1.                                                   NC2374.2
026400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2374.2
026500      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2374.2
026600      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2374.2
026700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2374.2
026800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2374.2
026900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2374.2
027000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2374.2
027100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2374.2
027200  END-ROUTINE-12.                                                 NC2374.2
027300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2374.2
027400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2374.2
027500         MOVE "NO " TO ERROR-TOTAL                                NC2374.2
027600         ELSE                                                     NC2374.2
027700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2374.2
027800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2374.2
027900     PERFORM WRITE-LINE.                                          NC2374.2
028000 END-ROUTINE-13.                                                  NC2374.2
028100     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2374.2
028200         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2374.2
028300         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2374.2
028400     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC2374.2
028500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2374.2
028600      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2374.2
028700          MOVE "NO " TO ERROR-TOTAL                               NC2374.2
028800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2374.2
028900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2374.2
029000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2374.2
029100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2374.2
029200 WRITE-LINE.                                                      NC2374.2
029300     ADD 1 TO RECORD-COUNT.                                       NC2374.2
029400     IF RECORD-COUNT GREATER 50                                   NC2374.2
029500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2374.2
029600         MOVE SPACE TO DUMMY-RECORD                               NC2374.2
029700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2374.2
029800         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             NC2374.2
029900         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2374.2
030000         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2374.2
030100         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2374.2
030200         MOVE ZERO TO RECORD-COUNT.                               NC2374.2
030300     PERFORM WRT-LN.                                              NC2374.2
030400 WRT-LN.                                                          NC2374.2
030500     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2374.2
030600     MOVE SPACE TO DUMMY-RECORD.                                  NC2374.2
030700 BLANK-LINE-PRINT.                                                NC2374.2
030800     PERFORM WRT-LN.                                              NC2374.2
030900 FAIL-ROUTINE.                                                    NC2374.2
031000     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2374.2
031100     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2374.2
031200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2374.2
031300     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2374.2
031400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2374.2
031500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2374.2
031600     GO TO  FAIL-ROUTINE-EX.                                      NC2374.2
031700 FAIL-ROUTINE-WRITE.                                              NC2374.2
031800     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2374.2
031900     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2374.2
032000     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2374.2
032100     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2374.2
032200 FAIL-ROUTINE-EX. EXIT.                                           NC2374.2
032300 BAIL-OUT.                                                        NC2374.2
032400     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2374.2
032500     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2374.2
032600 BAIL-OUT-WRITE.                                                  NC2374.2
032700     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2374.2
032800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2374.2
032900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2374.2
033000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2374.2
033100 BAIL-OUT-EX. EXIT.                                               NC2374.2
033200 CCVS1-EXIT.                                                      NC2374.2
033300     EXIT.                                                        NC2374.2
033400 SECT-NC237A-001 SECTION.                                         NC2374.2
033500 TH-10-001.                                                       NC2374.2
033600*                                                                 NC2374.2
033700 BUILD-3DEM-TABLE.                                                NC2374.2
033800     MOVE "PERFORM VARYING" TO FEATURE.                           NC2374.2
033900     SET IDX-1, IDX-2, IDX-3 TO 1.                                NC2374.2
034000     PERFORM BUILD-TABLE THRU BUILD-EXIT VARYING ONE-99 FROM 1    NC2374.2
034100         BY 1 UNTIL ONE-99 EQUAL TO 10 AFTER TWO-99 FROM 9 BY -1  NC2374.2
034200         UNTIL TWO-99 EQUAL TO 0 AFTER THREE-99 FROM 1 BY 1       NC2374.2
034300         UNTIL THREE-99 EQUAL TO 10.                              NC2374.2
034400     GO TO IDX-INIT-GF-1.                                         NC2374.2
034500*                                                                 NC2374.2
034600 BUILD-TABLE.                                                     NC2374.2
034700     MOVE ONE-99 TO GRP (IDX-1), GRP-1 (IDX-1, IDX-2),            NC2374.2
034800         GRP-2 (IDX-1, IDX-2, IDX-3).                             NC2374.2
034900     MOVE TWO-99 TO SEC (IDX-1, IDX-2) SEC-1 (IDX-1, IDX-2, IDX-3)NC2374.2
035000     MOVE THREE-99 TO ELEM (IDX-1, IDX-2, IDX-3).                 NC2374.2
035100     IF CT = 999                                                  NC2374.2
035200          MOVE 0 TO CT                                            NC2374.2
035300     ELSE                                                         NC2374.2
035400          ADD 1 TO CT.                                            NC2374.2
035500     IF S3 EQUAL TO 0 ADD 1 TO S3.                                NC2374.2
035600     IF S2 EQUAL TO 0 ADD 1 TO S2.                                NC2374.2
035700     IF S1 EQUAL TO 0 ADD 1 TO S1.                                NC2374.2
035800     SET IDX-1 TO S1.                                             NC2374.2
035900     SET IDX-2 TO S2.                                             NC2374.2
036000     SET IDX-3 TO S3.                                             NC2374.2
036100 BUILD-EXIT.                                                      NC2374.2
036200     EXIT.                                                        NC2374.2
036300*                                                                 NC2374.2
036400 IDX-INIT-GF-1.                                                   NC2374.2
036500     MOVE "IDX-TEST-GF-1" TO PAR-NAME.                            NC2374.2
036600     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
036700     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
036800 IDX-TEST-GF-1.                                                   NC2374.2
036900     IF ENTRY-3 (9, 9, 9) EQUAL TO 090109                         NC2374.2
037000         PERFORM PASS                                             NC2374.2
037100         MOVE "TABLE BUILT CORRECTLY" TO RE-MARK                  NC2374.2
037200         GO TO IDX-WRITE-GF-1.                                    NC2374.2
037300     GO TO IDX-FAIL-GF-1.                                         NC2374.2
037400 IDX-DELETE-GF-1.                                                 NC2374.2
037500     PERFORM DE-LETE.                                             NC2374.2
037600     GO TO IDX-WRITE-GF-1.                                        NC2374.2
037700 IDX-FAIL-GF-1.                                                   NC2374.2
037800     MOVE "TABLE CREATED INCORRECTLY" TO RE-MARK.                 NC2374.2
037900     PERFORM FAIL.                                                NC2374.2
038000 IDX-WRITE-GF-1.                                                  NC2374.2
038100     PERFORM PRINT-DETAIL.                                        NC2374.2
038200*                                                                 NC2374.2
038300 IDX-INIT-GF-2.                                                   NC2374.2
038400     MOVE "IDX-TEST-GF-2 " TO PAR-NAME.                           NC2374.2
038500     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
038600     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
038700     MOVE 7 TO IDENT-1.                                           NC2374.2
038800     SET IDX-1  IDX-2  IDX-3 TO IDENT-1.                          NC2374.2
038900     SET IDX-1  IDX-3 DOWN BY IDENT-6.                            NC2374.2
039000 IDX-TEST-GF-2.                                                   NC2374.2
039100     IF ENTRY-3 (IDX-1, IDX-2, IDX-3) EQUAL TO 040304             NC2374.2
039200         PERFORM PASS                                             NC2374.2
039300         GO TO IDX-WRITE-GF-2.                                    NC2374.2
039400     GO TO IDX-FAIL-GF-2.                                         NC2374.2
039500 IDX-DELETE-GF-2.                                                 NC2374.2
039600     PERFORM DE-LETE.                                             NC2374.2
039700     GO TO IDX-WRITE-GF-2.                                        NC2374.2
039800 IDX-FAIL-GF-2.                                                   NC2374.2
039900     MOVE "040304" TO CORRECT-A.                                  NC2374.2
040000     MOVE ENTRY-3 (IDX-1, IDX-2, IDX-3) TO COMPUTED-A.            NC2374.2
040100     PERFORM FAIL.                                                NC2374.2
040200 IDX-WRITE-GF-2.                                                  NC2374.2
040300     PERFORM PRINT-DETAIL.                                        NC2374.2
040400*                                                                 NC2374.2
040500 IDX-INIT-GF-3.                                                   NC2374.2
040600     MOVE "IDX-TEST-GF-3" TO PAR-NAME.                            NC2374.2
040700     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
040800     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
040900     MOVE 4 TO IDENT-1.                                           NC2374.2
041000     SET IDX-1 TO IDENT-7.                                        NC2374.2
041100     SET IDX-1 UP BY IDENT-1.                                     NC2374.2
041200 IDX-TEST-GF-3.                                                   NC2374.2
041300     IF ENTRY-1 (IDX-1) EQUAL TO "05"                             NC2374.2
041400         PERFORM PASS                                             NC2374.2
041500         GO TO IDX-WRITE-GF-3.                                    NC2374.2
041600     GO TO IDX-FAIL-GF-3.                                         NC2374.2
041700 IDX-DELETE-GF-3.                                                 NC2374.2
041800     PERFORM DE-LETE.                                             NC2374.2
041900     GO TO IDX-WRITE-GF-3.                                        NC2374.2
042000 IDX-FAIL-GF-3.                                                   NC2374.2
042100     MOVE ENTRY-1 (IDX-1) TO COMPUTED-A.                          NC2374.2
042200     MOVE "05" TO CORRECT-A.                                      NC2374.2
042300     PERFORM FAIL.                                                NC2374.2
042400 IDX-WRITE-GF-3.                                                  NC2374.2
042500     PERFORM PRINT-DETAIL.                                        NC2374.2
042600*                                                                 NC2374.2
042700 IDX-INIT-GF-4.                                                   NC2374.2
042800     MOVE "IDX-TEST-GF-4" TO PAR-NAME.                            NC2374.2
042900     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
043000     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
043100     MOVE 1 TO IDENT-1.                                           NC2374.2
043200     SET IDX-1  IDX-2 TO IDENT-1.                                 NC2374.2
043300     SET IDX-2 UP BY IDENT-9.                                     NC2374.2
043400     SET IDX-2 UP BY IDENT-6.                                     NC2374.2
043500 IDX-TEST-GF-4.                                                   NC2374.2
043600     IF ENTRY-2 (IDX-1, IDX-2) EQUAL TO "0101"                    NC2374.2
043700         PERFORM PASS                                             NC2374.2
043800         GO TO IDX-WRITE-GF-4.                                    NC2374.2
043900     GO TO IDX-FAIL-GF-4.                                         NC2374.2
044000 IDX-DELETE-GF-4.                                                 NC2374.2
044100     PERFORM DE-LETE.                                             NC2374.2
044200     GO TO IDX-WRITE-GF-4.                                        NC2374.2
044300 IDX-FAIL-GF-4.                                                   NC2374.2
044400     MOVE "0101" TO CORRECT-A.                                    NC2374.2
044500     MOVE ENTRY-2 (IDX-1, IDX-2) TO COMPUTED-A.                   NC2374.2
044600     PERFORM FAIL.                                                NC2374.2
044700 IDX-WRITE-GF-4.                                                  NC2374.2
044800     PERFORM PRINT-DETAIL.                                        NC2374.2
044900*                                                                 NC2374.2
045000 IDX-INIT-GF-5.                                                   NC2374.2
045100     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
045200     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
045300     MOVE "IDX-TEST-GF-5" TO PAR-NAME.                            NC2374.2
045400     MOVE 1 TO IDENT-1.                                           NC2374.2
045500     SET IDX-1 TO IDENT-6.                                        NC2374.2
045600     SET IDX-1 UP BY IDENT-1.                                     NC2374.2
045700 IDX-TEST-GF-5.                                                   NC2374.2
045800     IF ENTRY-1 (IDX-1) EQUAL TO 04                               NC2374.2
045900         PERFORM PASS                                             NC2374.2
046000         GO TO IDX-WRITE-GF-5.                                    NC2374.2
046100     GO TO IDX-FAIL-GF-5.                                         NC2374.2
046200 IDX-DELETE-GF-5.                                                 NC2374.2
046300     PERFORM DE-LETE.                                             NC2374.2
046400     GO TO IDX-WRITE-GF-5.                                        NC2374.2
046500 IDX-FAIL-GF-5.                                                   NC2374.2
046600     MOVE "04" TO CORRECT-A.                                      NC2374.2
046700     MOVE ENTRY-1 (IDX-1) TO COMPUTED-A.                          NC2374.2
046800     PERFORM FAIL.                                                NC2374.2
046900 IDX-WRITE-GF-5.                                                  NC2374.2
047000     PERFORM PRINT-DETAIL.                                        NC2374.2
047100*                                                                 NC2374.2
047200 IDX-INIT-GF-6.                                                   NC2374.2
047300     MOVE "IDX-TEST-GF-6" TO PAR-NAME.                            NC2374.2
047400     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
047500     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
047600     SET IDX-3 TO 4.                                              NC2374.2
047700     SET IDX-1  IDX-2 TO IDX-3.                                   NC2374.2
047800     SET IDX-1  IDX-2  IDX-3 DOWN BY IDENT-7.                     NC2374.2
047900     MOVE 4 TO IDENT-1.                                           NC2374.2
048000     SET IDX-1  IDX-2  IDX-3 UP BY IDENT-1.                       NC2374.2
048100 IDX-TEST-GF-6.                                                   NC2374.2
048200     IF ENTRY-3 (IDX-1, IDX-2, IDX-3) EQUAL TO "070307"           NC2374.2
048300         PERFORM PASS                                             NC2374.2
048400         GO TO IDX-WRITE-GF-6.                                    NC2374.2
048500     GO TO IDX-FAIL-GF-6.                                         NC2374.2
048600 IDX-DELETE-GF-6.                                                 NC2374.2
048700     PERFORM DE-LETE.                                             NC2374.2
048800     GO TO IDX-WRITE-GF-6.                                        NC2374.2
048900 IDX-FAIL-GF-6.                                                   NC2374.2
049000     MOVE ENTRY-3 (IDX-1, IDX-2, IDX-3) TO COMPUTED-A.            NC2374.2
049100     MOVE "070307" TO CORRECT-A.                                  NC2374.2
049200     PERFORM FAIL.                                                NC2374.2
049300 IDX-WRITE-GF-6.                                                  NC2374.2
049400     PERFORM PRINT-DETAIL.                                        NC2374.2
049500*                                                                 NC2374.2
049600 IDX-INIT-GF-7.                                                   NC2374.2
049700     MOVE "IDX-TEST-GF-7" TO PAR-NAME.                            NC2374.2
049800     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
049900     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
050000     MOVE 3 TO IDENT-1  IDENT-2  IDENT-4.                         NC2374.2
050100     SET IDX-1 TO IDENT-1.                                        NC2374.2
050200     SET IDX-2 TO IDENT-2.                                        NC2374.2
050300     SET IDX-3 TO IDENT-4.                                        NC2374.2
050400     SET IDX-1  IDX-2  IDX-3 UP BY IDENT-7.                       NC2374.2
050500 IDX-TEST-GF-7.                                                   NC2374.2
050600     IF ENTRY-3 (IDX-1, IDX-2, IDX-3) EQUAL TO "040604"           NC2374.2
050700         PERFORM PASS                                             NC2374.2
050800         GO TO IDX-WRITE-GF-7.                                    NC2374.2
050900     GO TO IDX-FAIL-GF-7.                                         NC2374.2
051000 IDX-DELETE-GF-7.                                                 NC2374.2
051100     PERFORM DE-LETE.                                             NC2374.2
051200     GO TO IDX-WRITE-GF-7.                                        NC2374.2
051300 IDX-FAIL-GF-7.                                                   NC2374.2
051400     MOVE "040604" TO CORRECT-A.                                  NC2374.2
051500     MOVE ENTRY-3 (IDX-1, IDX-2, IDX-3) TO COMPUTED-A.            NC2374.2
051600     PERFORM FAIL.                                                NC2374.2
051700 IDX-WRITE-GF-7.                                                  NC2374.2
051800     PERFORM PRINT-DETAIL.                                        NC2374.2
051900*                                                                 NC2374.2
052000 IDX-INIT-GF-8.                                                   NC2374.2
052100     MOVE "IDX-TEST-GF-8" TO PAR-NAME.                            NC2374.2
052200     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
052300     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
052400     MOVE 9 TO IDENT-1.                                           NC2374.2
052500     SET IDX-1, IDX-2, IDX-3 TO IDENT-1.                          NC2374.2
052600     SET IDX-1, IDX-2, IDX-3 DOWN BY 5.                           NC2374.2
052700 IDX-TEST-GF-8.                                                   NC2374.2
052800     IF ENTRY-3 (IDX-1, IDX-2, IDX-3) EQUAL TO "040604"           NC2374.2
052900         PERFORM PASS                                             NC2374.2
053000         GO TO IDX-WRITE-GF-8.                                    NC2374.2
053100     GO TO IDX-FAIL-GF-8.                                         NC2374.2
053200 IDX-DELETE-GF-8.                                                 NC2374.2
053300     PERFORM DE-LETE.                                             NC2374.2
053400     GO TO IDX-WRITE-GF-8.                                        NC2374.2
053500 IDX-FAIL-GF-8.                                                   NC2374.2
053600     MOVE "040604" TO CORRECT-A.                                  NC2374.2
053700     MOVE ENTRY-3 (IDX-1, IDX-2, IDX-3) TO COMPUTED-A.            NC2374.2
053800     PERFORM FAIL.                                                NC2374.2
053900 IDX-WRITE-GF-8.                                                  NC2374.2
054000     PERFORM PRINT-DETAIL.                                        NC2374.2
054100*                                                                 NC2374.2
054200 IDX-INIT-F2-9.                                                   NC2374.2
054300     MOVE "IDX-TEST-F2-9" TO PAR-NAME.                            NC2374.2
054400     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
054500     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
054600     SET IDX-1 TO 05.                                             NC2374.2
054700 IDX-TEST-F2-9.                                                   NC2374.2
054800     SEARCH ALL ENTRY-310-2 END                                   NC2374.2
054900         GO TO IDX-FAIL-F2-9                                      NC2374.2
055000     WHEN GRP-1 (IDX-1, IDX-2) EQUAL TO "05" AND                  NC2374.2
055100         SEC (IDX-1, IDX-2) EQUAL TO "07"                         NC2374.2
055200         PERFORM PASS                                             NC2374.2
055300         GO TO IDX-WRITE-F2-9.                                    NC2374.2
055400 IDX-DELETE-F2-9.                                                 NC2374.2
055500     PERFORM DE-LETE.                                             NC2374.2
055600     GO TO IDX-WRITE-F2-9.                                        NC2374.2
055700 IDX-FAIL-F2-9.                                                   NC2374.2
055800     MOVE ENTRY-2 (05, 03) TO COMPUTED-A                          NC2374.2
055900     MOVE "0507" TO CORRECT-A                                     NC2374.2
056000     MOVE "SUBSCRIPT USED FOR COMPUTED" TO RE-MARK                NC2374.2
056100     PERFORM FAIL.                                                NC2374.2
056200 IDX-WRITE-F2-9.                                                  NC2374.2
056300     PERFORM PRINT-DETAIL.                                        NC2374.2
056400*                                                                 NC2374.2
056500 IDX-INIT-F2-10.                                                  NC2374.2
056600     MOVE "IDX-TEST-F2-10" TO PAR-NAME.                           NC2374.2
056700     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
056800     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
056900     SET     IDX-1  IDX-2 TO 9.                                   NC2374.2
057000 IDX-TEST-F2-10.                                                  NC2374.2
057100     SEARCH  ALL ENTRY-310-3 END                                  NC2374.2
057200             PERFORM PASS                                         NC2374.2
057300             GO TO   IDX-WRITE-F2-10                              NC2374.2
057400             WHEN    GRP-2 (IDX-1, IDX-2, IDX-3) EQUAL "09"       NC2374.2
057500                 AND SEC-1 (IDX-1, IDX-2, IDX-3) EQUAL "01"       NC2374.2
057600                 AND ELEM  (IDX-1, IDX-2, IDX-3) EQUAL "10"       NC2374.2
057700                     GO TO   IDX-FAIL-F2-10.                      NC2374.2
057800 IDX-DELETE-F2-10.                                                NC2374.2
057900     PERFORM DE-LETE.                                             NC2374.2
058000     GO TO IDX-WRITE-F2-10.                                       NC2374.2
058100 IDX-FAIL-F2-10.                                                  NC2374.2
058200     MOVE  "090110" TO COMPUTED-A                                 NC2374.2
058300     MOVE  "ENTRY SHOULD NOT BE FOUND" TO RE-MARK                 NC2374.2
058400     PERFORM FAIL.                                                NC2374.2
058500 IDX-WRITE-F2-10.                                                 NC2374.2
058600     PERFORM PRINT-DETAIL.                                        NC2374.2
058700*                                                                 NC2374.2
058800 IDX-INIT-F2-11.                                                  NC2374.2
058900     MOVE "IDX-TEST-F2-11" TO PAR-NAME.                           NC2374.2
059000     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
059100     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
059200     SET IDX-1 TO 09.                                             NC2374.2
059300 IDX-TEST-F2-11.                                                  NC2374.2
059400     SEARCH ALL ENTRY-310                                      ENDNC2374.2
059500         GO TO IDX-FAIL-F2-11                                     NC2374.2
059600     WHEN GRP (IDX-1) EQUAL TO "07"                               NC2374.2
059700         PERFORM PASS                                             NC2374.2
059800         GO TO IDX-WRITE-F2-11.                                   NC2374.2
059900 IDX-DELETE-F2-11.                                                NC2374.2
060000     PERFORM DE-LETE.                                             NC2374.2
060100     GO TO IDX-WRITE-F2-11.                                       NC2374.2
060200 IDX-FAIL-F2-11.                                                  NC2374.2
060300     MOVE ENTRY-1 (07) TO COMPUTED-A                              NC2374.2
060400     MOVE "07" TO CORRECT-A                                       NC2374.2
060500     PERFORM FAIL                                                 NC2374.2
060600     MOVE "SUBSCRIPT USED FOR COMPUTED" TO RE-MARK.               NC2374.2
060700 IDX-WRITE-F2-11.                                                 NC2374.2
060800     PERFORM PRINT-DETAIL.                                        NC2374.2
060900*                                                                 NC2374.2
061000 IDX-INIT-F2-12.                                                  NC2374.2
061100     MOVE "IDX-TEST-F2-12" TO PAR-NAME.                           NC2374.2
061200     MOVE "VI-121 6.21.2" TO ANSI-REFERENCE.                      NC2374.2
061300     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
061400     MOVE 04 TO IDENT-1.                                          NC2374.2
061500     SET IDX-1, IDX-2, IDX-3 TO IDENT-1.                          NC2374.2
061600     SET IDX-1 UP BY 1.                                           NC2374.2
061700 IDX-TEST-F2-12.                                                  NC2374.2
061800     SEARCH ALL ENTRY-310-3 AT END                                NC2374.2
061900         GO TO IDX-FAIL-F2-12                                     NC2374.2
062000     WHEN GRP-2 (IDX-1, IDX-2, IDX-3) EQUAL TO "05" AND           NC2374.2
062100         SEC-1 (IDX-1, IDX-2, IDX-3) EQUAL TO "06" AND            NC2374.2
062200             ELEM (IDX-1, IDX-2, IDX-3) EQUAL TO "03"             NC2374.2
062300         PERFORM PASS                                             NC2374.2
062400         GO TO IDX-WRITE-F2-12.                                   NC2374.2
062500 IDX-DELETE-F2-12.                                                NC2374.2
062600     PERFORM DE-LETE.                                             NC2374.2
062700     GO TO IDX-WRITE-F2-12.                                       NC2374.2
062800 IDX-FAIL-F2-12.                                                  NC2374.2
062900     MOVE ENTRY-3 (05, 04, 03) TO COMPUTED-A02200 CCVS1.                                                   NC2374.2
063000     MOVE "SUBSCRIPT USED FOR COMPUTED" TO RE-MARK                NC2374.2
063100     MOVE "050603" TO CORRECT-A                                   NC2374.2
063200     PERFORM FAIL.                                                NC2374.2
063300 IDX-WRITE-F2-12.                                                 NC2374.2
6300     PRINT-DETAIL                                        NC2374
063500*                                                                 NC2374.2
063600 IDX-INIT-F2-13.                                                  NC2374270CLOSE-FILESNC2374.2
063700     MOVEIDX-TEST-F2-13  PAR-NAME.NC23742
063800     MOVE "VI-121 6.21.2" TO 0290 .                                                  NC2374
063900     MOVE "SET AND SEARCH-ALL" TO FEATURE.                        NC2374.2
064000     SET IDX-1 TO220STOP.                                                NC2374.2
06400IDX-TEST-F2-13NC2374.2
064200     SEARCH ALL ENTRY-310-2 AT END                                NC2374.2
064300         GO TO IDX-FAIL-F2-13                                     NC2374.2
064400     WHEN GRP-1 (IDX-1, IDX-2) EQUALDE-LETE* P-OR-F DELETE-COUNTER.2
064500         (IDX-1, IDX-2) EQUAL TO "01"                             NC2374.2
064600          NOT EQUAL  ZERONC2374
0470          TO.                                   NC2374
064800 IDX-DELETE-F2-13.                                                NC2374.2
064900     PERFORM.                                             .2
600      TO                                       
065100 IDX-FAIL-F2-13.                                                  NC2374.2
065200     MOVE ENTRY-2 (09, 09) TO COMPUTED-A                          NC2374.2
065300MOVESUBSCRIPT COMPUTED RE-MARKNC2374
065400     MOVE "0901" TO CORRECT-A                                     NC2374.2
065500     PERFORM FAIL.                                                NC2374.2
065600 IDX-WRITE-F2-13.                                                 NC2374.2
065700     PERFORM PRINT-DETAIL.                                        NC2374.2
065800*                                                                 NC2374.2
065900 CCVS-EXIT SECTION.                                               NC2374.2
0660CCVS-999999NC2374
066100     GO TO CLOSE-FILES.                                           NC2374.2