Impressum nc217a.cob

000100 IDENTIFICATION DIVISION.                                         NC2174.2
000200 PROGRAM-ID.                                                      NC2174.2
000300     NC217A.                                                      NC2174.2
000400****************************************************************  NC2174.2
000500*                                                              *  NC2174.2
000600*    VALIDATION FOR:-                                          *  NC2174.2
000700*                                                              *  NC2174.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2174.2
000900*                                                              *  NC2174.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2174.2
001100*                                                              *  NC2174.2
001200****************************************************************  NC2174.2
001300*                                                              *  NC2174.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC2174.2
001500*                                                              *  NC2174.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC2174.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC2174.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC2174.2
001900*                                                              *  NC2174.2
002000****************************************************************  NC2174.2
002100*                                                              *  NC2174.2
002200*    PROGRAM NC217A TESTS THE USE OF THE "STRING" STATEMENT,   *  NC2174.2
002300*    INCLUDING THE OPTIONAL PHRASES "POINTER", "OVERFLOW",     *  NC2174.2
002400*    "NOT OVERFLOW" AND "END-STRING".                          *  NC2174.2
002500*                                                              *  NC2174.2
002600*                                                              *  NC2174.2
002700****************************************************************  NC2174.2
002800 ENVIRONMENT DIVISION.                                            NC2174.2
002900 CONFIGURATION SECTION.                                           NC2174.2
003000 SOURCE-COMPUTER.                                                 NC2174.2
003100     Card0130.                                                    NC2174.2
003200 OBJECT-COMPUTER.                                                 NC2174.2
003300     Card0131.                                                    NC2174.2
003400 INPUT-OUTPUT SECTION.                                            NC2174.2
003500 FILE-CONTROL.                                                    NC2174.2
003600     SELECT PRINT-FILE ASSIGN TO                                  NC2174.2
003700     "C0085" .                                                    NC2174.2
003800 DATA DIVISION.                                                   NC2174.2
003900 FILE SECTION.                                                    NC2174.2
004000 FD  PRINT-FILE.                                                  NC2174.2
004100 01  PRINT-REC PICTURE X(120).                                    NC2174.2
004200 01  DUMMY-RECORD PICTURE X(120).                                 NC2174.2
004300 WORKING-STORAGE SECTION.                                         NC2174.2
004400 01  WRK-XN-00001-1     PIC X.                                    NC2174.2
004500 01  WRK-XN-00001-2     PIC X.                                    NC2174.2
004600 01  WRK-XN-00001-3     PIC X.                                    NC2174.2
004700 01  ID8-DU-2V0 PIC 99.                                           NC2174.2
004800 01  ISUB-DU-2V0 PIC 99.                                          NC2174.2
004900 01  MY-BOSS-DU-2V0 PIC 99 VALUE ZERO.                            NC2174.2
005000 01  ID1-DS-LS-4 PIC S9(4) VALUE +1001 SIGN IS LEADING SEPARATE.  NC2174.2
005100 01  ID1-DS-TS-4 PIC S9(4) VALUE +1001 SIGN IS TRAILING SEPARATE. NC2174.2
005200 01  ID1-XN-25 PIC X(25) VALUE                                    NC2174.2
005300     "A2345B2345C2345D2345E2345".                                 NC2174.2
005400 01  ID1-XN-X-25 REDEFINES ID1-XN-25.                             NC2174.2
005500     10 ID1-1 PIC X OCCURS 5 TIMES.                               NC2174.2
005600     10 ID1-2 PIC X OCCURS 5 TIMES.                               NC2174.2
005700     10 ID1-3 PIC X OCCURS 5 TIMES.                               NC2174.2
005800     10 ID1-4 PIC X OCCURS 5 TIMES.                               NC2174.2
005900     10 ID1-5 PIC X OCCURS 5 TIMES.                               NC2174.2
006000 01  ZEROX-XN-1 PIC X VALUE ZERO.                                 NC2174.2
006100 01  A-XN-1 PIC X VALUE "A".                                      NC2174.2
006200 01  B-XN-1 PIC X VALUE "B".                                      NC2174.2
006300 01  AB-XN-2 PIC XX VALUE "AB".                                   NC2174.2
006400 01  ID7-XN-5 PIC X(5).                                           NC2174.2
006500 01  ASTER-XN-5 PIC X(5) VALUE "*****".                           NC2174.2
006600 01  ANS-XN-5-1.                                                  NC2174.2
006700     10 FILLER PIC X VALUE LOW-VALUE.                             NC2174.2
006800     10 FILLER PIC X(4) VALUE "ABCD".                             NC2174.2
006900 01  ANS-XN-5-2.                                                  NC2174.2
007000     10 FILLER PIC X VALUE HIGH-VALUE.                            NC2174.2
007100     10 FILLER PIC X(4) VALUE "****".                             NC2174.2
007200 01  DELIM-TABLE-XN-5 PIC X(5) VALUE "CDEFF".                     NC2174.2
007300 01  DELIM-XN-X-1 REDEFINES DELIM-TABLE-XN-5.                     NC2174.2
007400     10 ID3-XN-1 PIC X OCCURS 5 TIMES.                            NC2174.2
007500 01  ABCDEFG-XN-7 PIC X(7) VALUE "ABCDEFG".                       NC2174.2
007600 01  ID7-XN-15  PIC X(15) VALUE SPACES.                           NC2174.2
007700 01  WISH-LIST-XN-37 PIC X(37) VALUE SPACES.                      NC2174.2
007800 01  ANS-XN-37 PIC X(37) VALUE                                    NC2174.2
007900     "GEE I WISH I WAS A FORTRAN PROGRAMMER".                     NC2174.2
008000 01  TEST-21-GROUP.                                               NC2174.2
008100   03  TEST-21-A                 PIC XX.                          NC2174.2
008200   03  TEST-21-B                 PIC XX.                          NC2174.2
008300   03  TEST-21-C                 PIC X.                           NC2174.2
008400                                                                  NC2174.2
008500 01  TEST-RESULTS.                                                NC2174.2
008600     02 FILLER                   PIC X      VALUE SPACE.          NC2174.2
008700     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC2174.2
008800     02 FILLER                   PIC X      VALUE SPACE.          NC2174.2
008900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC2174.2
009000     02 FILLER                   PIC X      VALUE SPACE.          NC2174.2
009100     02  PAR-NAME.                                                NC2174.2
009200       03 FILLER                 PIC X(19)  VALUE SPACE.          NC2174.2
009300       03  PARDOT-X              PIC X      VALUE SPACE.          NC2174.2
009400       03 DOTVALUE               PIC 99     VALUE ZERO.           NC2174.2
009500     02 FILLER                   PIC X(8)   VALUE SPACE.          NC2174.2
009600     02 RE-MARK                  PIC X(61).                       NC2174.2
009700 01  TEST-COMPUTED.                                               NC2174.2
009800     02 FILLER                   PIC X(30)  VALUE SPACE.          NC2174.2
009900     02 FILLER                   PIC X(17)  VALUE                 NC2174.2
010000            "       COMPUTED=".                                   NC2174.2
010100     02 COMPUTED-X.                                               NC2174.2
010200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC2174.2
010300     03 COMPUTED-N               REDEFINES COMPUTED-A             NC2174.2
010400                                 PIC -9(9).9(9).                  NC2174.2
010500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC2174.2
010600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC2174.2
010700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC2174.2
010800     03       CM-18V0 REDEFINES COMPUTED-A.                       NC2174.2
010900         04 COMPUTED-18V0                    PIC -9(18).          NC2174.2
011000         04 FILLER                           PIC X.               NC2174.2
011100     03 FILLER PIC X(50) VALUE SPACE.                             NC2174.2
011200 01  TEST-CORRECT.                                                NC2174.2
011300     02 FILLER PIC X(30) VALUE SPACE.                             NC2174.2
011400     02 FILLER PIC X(17) VALUE "       CORRECT =".                NC2174.2
011500     02 CORRECT-X.                                                NC2174.2
011600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC2174.2
011700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC2174.2
011800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC2174.2
011900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC2174.2
012000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC2174.2
012100     03      CR-18V0 REDEFINES CORRECT-A.                         NC2174.2
012200         04 CORRECT-18V0                     PIC -9(18).          NC2174.2
012300         04 FILLER                           PIC X.               NC2174.2
012400     03 FILLER PIC X(2) VALUE SPACE.                              NC2174.2
012500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC2174.2
012600 01  CCVS-C-1.                                                    NC2174.2
012700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PANC2174.2
012800-    "SS  PARAGRAPH-NAME                                          NC2174.2
012900-    "       REMARKS".                                            NC2174.2
013000     02 FILLER                     PIC X(20)    VALUE SPACE.      NC2174.2
013100 01  CCVS-C-2.                                                    NC2174.2
013200     02 FILLER                     PIC X        VALUE SPACE.      NC2174.2
013300     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC2174.2
013400     02 FILLER                     PIC X(15)    VALUE SPACE.      NC2174.2
013500     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC2174.2
013600     02 FILLER                     PIC X(94)    VALUE SPACE.      NC2174.2
013700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC2174.2
013800 01  REC-CT                        PIC 99       VALUE ZERO.       NC2174.2
013900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC2174.2
014000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC2174.2
014100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC2174.2
014200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC2174.2
014300 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC2174.2
014400 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC2174.2
014500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC2174.2
014600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC2174.2
014700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC2174.2
014800 01  CCVS-H-1.                                                    NC2174.2
014900     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2174.2
015000     02  FILLER                    PIC X(42)    VALUE             NC2174.2
015100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC2174.2
015200     02  FILLER                    PIC X(39)    VALUE SPACES.     NC2174.2
015300 01  CCVS-H-2A.                                                   NC2174.2
015400   02  FILLER                        PIC X(40)  VALUE SPACE.      NC2174.2
015500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC2174.2
015600   02  FILLER                        PIC XXXX   VALUE             NC2174.2
015700     "4.2 ".                                                      NC2174.2
015800   02  FILLER                        PIC X(28)  VALUE             NC2174.2
015900            " COPY - NOT FOR DISTRIBUTION".                       NC2174.2
016000   02  FILLER                        PIC X(41)  VALUE SPACE.      NC2174.2
016100                                                                  NC2174.2
016200 01  CCVS-H-2B.                                                   NC2174.2
016300   02  FILLER                        PIC X(15)  VALUE             NC2174.2
016400            "TEST RESULT OF ".                                    NC2174.2
016500   02  TEST-ID                       PIC X(9).                    NC2174.2
016600   02  FILLER                        PIC X(4)   VALUE             NC2174.2
016700            " IN ".                                               NC2174.2
016800   02  FILLER                        PIC X(12)  VALUE             NC2174.2
016900     " HIGH       ".                                              NC2174.2
017000   02  FILLER                        PIC X(22)  VALUE             NC2174.2
017100            " LEVEL VALIDATION FOR ".                             NC2174.2
017200   02  FILLER                        PIC X(58)  VALUE             NC2174.2
017300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2174.2
017400 01  CCVS-H-3.                                                    NC2174.2
017500     02  FILLER                      PIC X(34)  VALUE             NC2174.2
017600            " FOR OFFICIAL USE ONLY    ".                         NC2174.2
017700     02  FILLER                      PIC X(58)  VALUE             NC2174.2
017800     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC2174.2
017900     02  FILLER                      PIC X(28)  VALUE             NC2174.2
018000            "  COPYRIGHT   1985 ".                                NC2174.2
018100 01  CCVS-E-1.                                                    NC2174.2
018200     02 FILLER                       PIC X(52)  VALUE SPACE.      NC2174.2
018300     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              NC2174.2
018400     02 ID-AGAIN                     PIC X(9).                    NC2174.2
018500     02 FILLER                       PIC X(45)  VALUE SPACES.     NC2174.2
018600 01  CCVS-E-2.                                                    NC2174.2
018700     02  FILLER                      PIC X(31)  VALUE SPACE.      NC2174.2
018800     02  FILLER                      PIC X(21)  VALUE SPACE.      NC2174.2
018900     02 CCVS-E-2-2.                                               NC2174.2
019000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC2174.2
019100         03 FILLER                   PIC X      VALUE SPACE.      NC2174.2
019200         03 ENDER-DESC               PIC X(44)  VALUE             NC2174.2
019300            "ERRORS ENCOUNTERED".                                 NC2174.2
019400 01  CCVS-E-3.                                                    NC2174.2
019500     02  FILLER                      PIC X(22)  VALUE             NC2174.2
019600            " FOR OFFICIAL USE ONLY".                             NC2174.2
019700     02  FILLER                      PIC X(12)  VALUE SPACE.      NC2174.2
019800     02  FILLER                      PIC X(58)  VALUE             NC2174.2
019900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC2174.2
020000     02  FILLER                      PIC X(13)  VALUE SPACE.      NC2174.2
020100     02 FILLER                       PIC X(15)  VALUE             NC2174.2
020200             " COPYRIGHT 1985".                                   NC2174.2
020300 01  CCVS-E-4.                                                    NC2174.2
020400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC2174.2
020500     02 FILLER                       PIC X(4)   VALUE " OF ".     NC2174.2
020600     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC2174.2
020700     02 FILLER                       PIC X(40)  VALUE             NC2174.2
020800      "  TESTS WERE EXECUTED SUCCESSFULLY".                       NC2174.2
020900 01  XXINFO.                                                      NC2174.2
021000     02 FILLER                       PIC X(19)  VALUE             NC2174.2
021100            "*** INFORMATION ***".                                NC2174.2
021200     02 INFO-TEXT.                                                NC2174.2
021300       04 FILLER                     PIC X(8)   VALUE SPACE.      NC2174.2
021400       04 XXCOMPUTED                 PIC X(20).                   NC2174.2
021500       04 FILLER                     PIC X(5)   VALUE SPACE.      NC2174.2
021600       04 XXCORRECT                  PIC X(20).                   NC2174.2
021700     02 INF-ANSI-REFERENCE           PIC X(48).                   NC2174.2
021800 01  HYPHEN-LINE.                                                 NC2174.2
021900     02 FILLER  PIC IS X VALUE IS SPACE.                          NC2174.2
022000     02 FILLER  PIC IS X(65)    VALUE IS "************************NC2174.2
022100-    "*****************************************".                 NC2174.2
022200     02 FILLER  PIC IS X(54)    VALUE IS "************************NC2174.2
022300-    "******************************".                            NC2174.2
022400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC2174.2
022500     "NC217A".                                                    NC2174.2
022600 PROCEDURE DIVISION.                                              NC2174.2
022700 CCVS1 SECTION.                                                   NC2174.2
022800 OPEN-FILES.                                                      NC2174.2
022900     OPEN     OUTPUT PRINT-FILE.                                  NC2174.2
023000     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC2174.2
023100     MOVE    SPACE TO TEST-RESULTS.                               NC2174.2
023200     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC2174.2
023300     GO TO CCVS1-EXIT.                                            NC2174.2
023400 CLOSE-FILES.                                                     NC2174.2
023500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC2174.2
023600 TERMINATE-CCVS.                                                  NC2174.2
023700     EXIT PROGRAM.                                                NC2174.2
023800 TERMINATE-CALL.                                                  NC2174.2
023900     STOP     RUN.                                                NC2174.2
024000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC2174.2
024100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC2174.2
024200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC2174.2
024300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC2174.2
024400     MOVE "****TEST DELETED****" TO RE-MARK.                      NC2174.2
024500 PRINT-DETAIL.                                                    NC2174.2
024600     IF REC-CT NOT EQUAL TO ZERO                                  NC2174.2
024700             MOVE "." TO PARDOT-X                                 NC2174.2
024800             MOVE REC-CT TO DOTVALUE.                             NC2174.2
024900     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC2174.2
025000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC2174.2
025100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC2174.2
025200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC2174.2
025300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC2174.2
025400     MOVE SPACE TO CORRECT-X.                                     NC2174.2
025500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC2174.2
025600     MOVE     SPACE TO RE-MARK.                                   NC2174.2
025700 HEAD-ROUTINE.                                                    NC2174.2
025800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2174.2
025900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC2174.2
026000     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2174.2
026100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC2174.2
026200 COLUMN-NAMES-ROUTINE.                                            NC2174.2
026300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2174.2
026400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2174.2
026500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC2174.2
026600 END-ROUTINE.                                                     NC2174.2
026700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC2174.2
026800 END-RTN-EXIT.                                                    NC2174.2
026900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2174.2
027000 END-ROUTINE-1.                                                   NC2174.2
027100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC2174.2
027200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC2174.2
027300      ADD PASS-COUNTER TO ERROR-HOLD.                             NC2174.2
027400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC2174.2
027500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC2174.2
027600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC2174.2
027700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC2174.2
027800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC2174.2
027900  END-ROUTINE-12.                                                 NC2174.2
028000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC2174.2
028100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC2174.2
028200         MOVE "NO " TO ERROR-TOTAL                                NC2174.2
028300         ELSE                                                     NC2174.2
028400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC2174.2
028500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC2174.2
028600     PERFORM WRITE-LINE.                                          NC2174.2
028700 END-ROUTINE-13.                                                  NC2174.2
028800     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC2174.2
028900         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC2174.2
029000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC2174.2
029100     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   NC2174.2
029200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2174.2
029300      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC2174.2
029400          MOVE "NO " TO ERROR-TOTAL                               NC2174.2
029500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC2174.2
029600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC2174.2
029700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC2174.2
029800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC2174.2
029900 WRITE-LINE.                                                      NC2174.2
030000     ADD 1 TO RECORD-COUNT.                                       NC2174.2
030100     IF RECORD-COUNT GREATER 50                                   NC2174.2
030200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC2174.2
030300         MOVE SPACE TO DUMMY-RECORD                               NC2174.2
030400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC2174.2
030500         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             NC2174.2
030600         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     NC2174.2
030700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC2174.2
030800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC2174.2
030900         MOVE ZERO TO RECORD-COUNT.                               NC2174.2
031000     PERFORM WRT-LN.                                              NC2174.2
031100 WRT-LN.                                                          NC2174.2
031200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC2174.2
031300     MOVE SPACE TO DUMMY-RECORD.                                  NC2174.2
031400 BLANK-LINE-PRINT.                                                NC2174.2
031500     PERFORM WRT-LN.                                              NC2174.2
031600 FAIL-ROUTINE.                                                    NC2174.2
031700     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. NC2174.2
031800     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC2174.2
031900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2174.2
032000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC2174.2
032100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2174.2
032200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2174.2
032300     GO TO  FAIL-ROUTINE-EX.                                      NC2174.2
032400 FAIL-ROUTINE-WRITE.                                              NC2174.2
032500     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC2174.2
032600     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC2174.2
032700     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC2174.2
032800     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC2174.2
032900 FAIL-ROUTINE-EX. EXIT.                                           NC2174.2
033000 BAIL-OUT.                                                        NC2174.2
033100     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC2174.2
033200     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC2174.2
033300 BAIL-OUT-WRITE.                                                  NC2174.2
033400     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC2174.2
033500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC2174.2
033600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC2174.2
033700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC2174.2
033800 BAIL-OUT-EX. EXIT.                                               NC2174.2
033900 CCVS1-EXIT.                                                      NC2174.2
034000     EXIT.                                                        NC2174.2
034100 SECT-NC217A-001 SECTION.                                         NC2174.2
034200 STR-INIT-GF-1.                                                   NC2174.2
034300     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
034400     MOVE   "STR-TEST-GF-1" TO PAR-NAME.                          NC2174.2
034500     MOVE   "LIT DEL BY SIZE" TO FEATURE.                         NC2174.2
034600     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
034700     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
034800     MOVE    1 TO REC-CT.                                         NC2174.2
034900 STR-TEST-GF-1.                                                   NC2174.2
035000     STRING "ABCDEF" DELIMITED BY SIZE INTO ID7-XN-5              NC2174.2
035100         WITH POINTER ID8-DU-2V0.                                 NC2174.2
035200     GO TO STR-TEST-GF-1-1.                                       NC2174.2
035300 STR-DELETE-GF-1.                                                 NC2174.2
035400     PERFORM DE-LETE.                                             NC2174.2
035500     PERFORM PRINT-DETAIL.                                        NC2174.2
035600     GO      TO STR-INIT-GF-2.                                    NC2174.2
035700 STR-TEST-GF-1-1.                                                 NC2174.2
035800     IF ID7-XN-5 = "ABCDE"                                        NC2174.2
035900         PERFORM PASS                                             NC2174.2
036000         GO TO STR-WRITE-GF-1-1                                   NC2174.2
036100     ELSE                                                         NC2174.2
036200         GO TO STR-FAIL-GF-1-1.                                   NC2174.2
036300 STR-DELETE-GF-1-1.                                               NC2174.2
036400     PERFORM DE-LETE.                                             NC2174.2
036500     GO TO STR-WRITE-GF-1-1.                                      NC2174.2
036600 STR-FAIL-GF-1-1.                                                 NC2174.2
036700     PERFORM FAIL                                                 NC2174.2
036800     MOVE ID7-XN-5 TO COMPUTED-A                                  NC2174.2
036900     MOVE "ABCDE" TO CORRECT-A.                                   NC2174.2
037000 STR-WRITE-GF-1-1.                                                NC2174.2
037100     PERFORM PRINT-DETAIL.                                        NC2174.2
037200*                                                                 NC2174.2
037300 STR-TEST-GF-1-2.                                                 NC2174.2
037400     ADD 1 TO REC-CT.                                             NC2174.2
037500     IF ID8-DU-2V0 = 6                                            NC2174.2
037600         PERFORM PASS                                             NC2174.2
037700         GO TO STR-WRITE-GF-1-2                                   NC2174.2
037800     ELSE                                                         NC2174.2
037900         GO TO STR-FAIL-GF-1-2.                                   NC2174.2
038000 STR-DELETE-GF-1-2.                                               NC2174.2
038100     PERFORM DE-LETE.                                             NC2174.2
038200     GO TO STR-WRITE-GF-1-2.                                      NC2174.2
038300 STR-FAIL-GF-1-2.                                                 NC2174.2
038400     PERFORM FAIL                                                 NC2174.2
038500     MOVE ID8-DU-2V0 TO COMPUTED-N                                NC2174.2
038600     MOVE 6 TO CORRECT-N.                                         NC2174.2
038700 STR-WRITE-GF-1-2.                                                NC2174.2
038800     PERFORM PRINT-DETAIL.                                        NC2174.2
038900*                                                                 NC2174.2
039000 STR-INIT-GF-2.                                                   NC2174.2
039100     MOVE   "STR-TEST-GF-2" TO PAR-NAME.                          NC2174.2
039200     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
039300     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
039400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
039500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
039600     MOVE    1 TO REC-CT.                                         NC2174.2
039700 STR-TEST-GF-2-0.                                                 NC2174.2
039800     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
039900             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
040000             ON OVERFLOW PERFORM PASS                             NC2174.2
040100                         GO TO STR-WRITE-GF-2-1.                  NC2174.2
040200     GO      TO STR-FAIL-GF-2-1.                                  NC2174.2
040300 STR-DELETE-GF-2.                                                 NC2174.2
040400     PERFORM DE-LETE.                                             NC2174.2
040500     PERFORM PRINT-DETAIL.                                        NC2174.2
040600     GO      TO STR-INIT-GF-3.                                    NC2174.2
040700 STR-TEST-GF-2-1.                                                 NC2174.2
040800*    THIS IS THE BLOCK TO WHICH CONTROL WILL BE SENT BY           NC2174.2
040900*    PARAGRAPH "STR-TEST-GF-2-0".                                 NC2174.2
041000 STR-DELETE-GF-2-1.                                               NC2174.2
041100*    GO TO STR-DELETE-GF-2.                                       NC2174.2
041200 STR-FAIL-GF-2-1.                                                 NC2174.2
041300     PERFORM FAIL.                                                NC2174.2
041400     MOVE    "OVERFLOW SHOULD OCCUR" TO RE-MARK.                  NC2174.2
041500 STR-WRITE-GF-2-1.                                                NC2174.2
041600     PERFORM PRINT-DETAIL.                                        NC2174.2
041700*                                                                 NC2174.2
041800 STR-TEST-GF-2-2.                                                 NC2174.2
041900     ADD 1 TO REC-CT.                                             NC2174.2
042000     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
042100          PERFORM PASS                                            NC2174.2
042200          GO TO STR-WRITE-GF-2-2                                  NC2174.2
042300     ELSE                                                         NC2174.2
042400          GO TO STR-FAIL-GF-2-2.                                  NC2174.2
042500 STR-DELETE-GF-2-2.                                               NC2174.2
042600     PERFORM DE-LETE.                                             NC2174.2
042700     GO TO STR-WRITE-GF-2-2.                                      NC2174.2
042800 STR-FAIL-GF-2-2.                                                 NC2174.2
042900     PERFORM FAIL                                                 NC2174.2
043000     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
043100     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
043200 STR-WRITE-GF-2-2.                                                NC2174.2
043300     PERFORM PRINT-DETAIL.                                        NC2174.2
043400*                                                                 NC2174.2
043500 STR-TEST-GF-2-3.                                                 NC2174.2
043600     ADD     1 TO REC-CT.                                         NC2174.2
043700     IF      ID8-DU-2V0 = 6                                       NC2174.2
043800          PERFORM PASS                                            NC2174.2
043900          GO TO STR-WRITE-GF-2-3                                  NC2174.2
044000     ELSE                                                         NC2174.2
044100          GO TO STR-FAIL-GF-2-3.                                  NC2174.2
044200 STR-DELETE-GF-2-3.                                               NC2174.2
044300     PERFORM DE-LETE.                                             NC2174.2
044400     GO TO STR-WRITE-GF-2-3.                                      NC2174.2
044500 STR-FAIL-GF-2-3.                                                 NC2174.2
044600     PERFORM FAIL                                                 NC2174.2
044700     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
044800     MOVE    6 TO CORRECT-N.                                      NC2174.2
044900 STR-WRITE-GF-2-3.                                                NC2174.2
045000     PERFORM PRINT-DETAIL.                                        NC2174.2
045100*                                                                 NC2174.2
045200 STR-INIT-GF-3.                                                   NC2174.2
045300     MOVE   "STR-TEST-GF-3" TO PAR-NAME.                          NC2174.2
045400     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
045500     MOVE    "ID DEL BY QUAL ID" TO FEATURE.                      NC2174.2
045600     MOVE "*****" TO ID7-XN-5.                                    NC2174.2
045700     MOVE 1 TO ID8-DU-2V0.                                        NC2174.2
045800     MOVE    5 TO ISUB-DU-2V0.                                    NC2174.2
045900     MOVE 1 TO REC-CT.                                            NC2174.2
046000*                                                                 NC2174.2
046100 STR-TEST-GF-3.                                                   NC2174.2
046200     STRING  ABCDEFG-XN-7 DELIMITED BY ID3-XN-1 (ISUB-DU-2V0)     NC2174.2
046300             INTO ID7-XN-5 POINTER ID8-DU-2V0.                    NC2174.2
046400     GO      TO STR-TEST-GF-3-1.                                  NC2174.2
046500 STR-DELETE-GF-3.                                                 NC2174.2
046600     PERFORM DE-LETE.                                             NC2174.2
046700     PERFORM PRINT-DETAIL.                                        NC2174.2
046800     GO      TO STRING-INIT-4.                                    NC2174.2
046900*                                                                 NC2174.2
047000 STR-TEST-GF-3-1.                                                 NC2174.2
047100     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
047200          PERFORM PASS                                            NC2174.2
047300          GO TO STR-WRITE-GF-3-1                                  NC2174.2
047400     ELSE                                                         NC2174.2
047500          GO TO STR-FAIL-GF-3-1.                                  NC2174.2
047600 STR-DELETE-GF-3-1.                                               NC2174.2
047700     PERFORM DE-LETE.                                             NC2174.2
047800     GO TO STR-WRITE-GF-3-1.                                      NC2174.2
047900 STR-FAIL-GF-3-1.                                                 NC2174.2
048000     PERFORM FAIL                                                 NC2174.2
048100     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
048200     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
048300 STR-WRITE-GF-3-1.                                                NC2174.2
048400     PERFORM PRINT-DETAIL.                                        NC2174.2
048500*                                                                 NC2174.2
048600 STR-TEST-GF-3-2.                                                 NC2174.2
048700     ADD     1 TO REC-CT.                                         NC2174.2
048800     IF      ID8-DU-2V0 = 6                                       NC2174.2
048900          PERFORM PASS                                            NC2174.2
049000          GO TO STR-WRITE-GF-3-2                                  NC2174.2
049100     ELSE                                                         NC2174.2
049200          GO TO STR-FAIL-GF-3-2.                                  NC2174.2
049300 STR-DELETE-GF-3-2.                                               NC2174.2
049400     PERFORM DE-LETE.                                             NC2174.2
049500     GO TO STR-WRITE-GF-3-2.                                      NC2174.2
049600 STR-FAIL-GF-3-2.                                                 NC2174.2
049700     PERFORM FAIL                                                 NC2174.2
049800     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
049900     MOVE    6 TO CORRECT-N.                                      NC2174.2
050000 STR-WRITE-GF-3-2.                                                NC2174.2
050100     PERFORM PRINT-DETAIL.                                        NC2174.2
050200*                                                                 NC2174.2
050300 STRING-INIT-4.                                                   NC2174.2
050400     MOVE    "STR-TEST-GF-4" TO PAR-NAME.                         NC2174.2
050500     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
050600     MOVE    "SUBSCRIPTED IDS" TO FEATURE.                        NC2174.2
050700     MOVE "*****" TO ID7-XN-5.                                    NC2174.2
050800     MOVE 1 TO ID8-DU-2V0.                                        NC2174.2
050900     MOVE    ZERO TO REC-CT.                                      NC2174.2
051000     MOVE    "**** " TO P-OR-F.                                   NC2174.2
051100*                                                                 NC2174.2
051200 STRING-TEST-4.                                                   NC2174.2
051300*    STRING  ID1-1 OF ID1-XN-X-25 (ID8-DU-2V0)                    NC2174.2
051400*            ID1-2 OF ID1-XN-X-25 (ID8-DU-2V0)                    NC2174.2
051500*            ID1-3 OF ID1-XN-X-25 (ID8-DU-2V0)                    NC2174.2
051600*            ID1-4 OF ID1-XN-X-25 (ID8-DU-2V0)                    NC2174.2
051700*            ID1-5 OF ID1-XN-X-25 (ID8-DU-2V0)                    NC2174.2
051800*            DELIMITED BY SIZE INTO ID7-XN-5                      NC2174.2
051900*            POINTER ID8-DU-2V0.                                  NC2174.2
052000*    GO      TO STRING-TEST-4-1.                                  NC2174.2
052100 STRING-DELETE-4.                                                 NC2174.2
052200     PERFORM DE-LETE.                                             NC2174.2
052300     MOVE    "*DELETED - ANSC INTERPRETATION*" TO RE-MARK.        NC2174.2
052400     PERFORM PRINT-DETAIL.                                        NC2174.2
052500     GO      TO STR-INIT-GF-5.                                    NC2174.2
052600 STRING-TEST-4-1.                                                 NC2174.2
052700     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
052800     PERFORM PASS                                                 NC2174.2
052900     PERFORM PRINT-DETAIL                                         NC2174.2
053000     ELSE                                                         NC2174.2
053100     PERFORM FAIL                                                 NC2174.2
053200     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
053300     MOVE    "ABCDE" TO CORRECT-A                                 NC2174.2
053400     PERFORM PRINT-DETAIL.                                        NC2174.2
053500     ADD     1 TO REC-CT.                                         NC2174.2
053600 STRING-TEST-4-2.                                                 NC2174.2
053700     IF      ID8-DU-2V0 = 6                                       NC2174.2
053800     PERFORM PASS                                                 NC2174.2
053900     PERFORM PRINT-DETAIL                                         NC2174.2
054000     ELSE                                                         NC2174.2
054100     PERFORM FAIL                                                 NC2174.2
054200     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
054300     MOVE    6 TO CORRECT-N                                       NC2174.2
054400     PERFORM PRINT-DETAIL.                                        NC2174.2
054500*                                                                 NC2174.2
054600 STR-INIT-GF-5.                                                   NC2174.2
054700     MOVE    "STR-TEST-GF-5" TO PAR-NAME.                         NC2174.2
054800     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
054900     MOVE    "IMMEDIATE OVERFLOW" TO FEATURE.                     NC2174.2
055000     MOVE "*****" TO ID7-XN-5.                                    NC2174.2
055100     MOVE "*****" TO ASTER-XN-5.                                  NC2174.2
055200* NOTE THAT THE POINTER IS SET TO A VALUE GREATER THAN            NC2174.2
055300*    THE LENGTH OF THE RECEIVING ITEM ID7-XN-5..........          NC2174.2
055400     MOVE    7 TO ID8-DU-2V0.                                     NC2174.2
055500     MOVE    1 TO REC-CT.                                         NC2174.2
055600*                                                                 NC2174.2
055700 STR-TEST-GF-5-1.                                                 NC2174.2
055800     STRING  "ABCDE" DELIMITED BY ABCDEFG-XN-7 INTO ID7-XN-5      NC2174.2
055900             POINTER ID8-DU-2V0                                   NC2174.2
056000                     ON OVERFLOW PERFORM PASS                     NC2174.2
056100                                 GO TO STR-WRITE-GF-5-1.          NC2174.2
056200     GO      TO STR-FAIL-GF-5-1.                                  NC2174.2
056300 STR-DELETE-GF-5-1.                                               NC2174.2
056400     PERFORM DE-LETE.                                             NC2174.2
056500     PERFORM PRINT-DETAIL.                                        NC2174.2
056600     GO TO STR-INIT-GF-6.                                         NC2174.2
056700 STR-FAIL-GF-5-1.                                                 NC2174.2
056800     PERFORM FAIL.                                                NC2174.2
056900     MOVE    "OVERFLOW SHOULD OCCUR" TO RE-MARK.                  NC2174.2
057000 STR-WRITE-GF-5-1.                                                NC2174.2
057100     PERFORM PRINT-DETAIL.                                        NC2174.2
057200*                                                                 NC2174.2
057300 STR-TEST-GF-5-2.                                                 NC2174.2
057400     ADD 1 TO REC-CT.                                             NC2174.2
057500     IF      ID7-XN-5 = ASTER-XN-5                                NC2174.2
057600          PERFORM PASS                                            NC2174.2
057700          GO TO STR-WRITE-GF-5-2                                  NC2174.2
057800     ELSE                                                         NC2174.2
057900          GO TO STR-FAIL-GF-5-2.                                  NC2174.2
058000 STR-DELETE-GF-5-2.                                               NC2174.2
058100     PERFORM DE-LETE.                                             NC2174.2
058200     GO TO STR-WRITE-GF-5-2.                                      NC2174.2
058300 STR-FAIL-GF-5-2.                                                 NC2174.2
058400     PERFORM FAIL                                                 NC2174.2
058500     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
058600     MOVE    "*****" TO CORRECT-A.                                NC2174.2
058700 STR-WRITE-GF-5-2.                                                NC2174.2
058800     PERFORM PRINT-DETAIL.                                        NC2174.2
058900*                                                                 NC2174.2
059000 STR-TEST-GF-5-3.                                                 NC2174.2
059100     ADD     1 TO REC-CT.                                         NC2174.2
059200     IF      ID8-DU-2V0 = 7                                       NC2174.2
059300          PERFORM PASS                                            NC2174.2
059400          GO TO STR-WRITE-GF-5-3                                  NC2174.2
059500     ELSE                                                         NC2174.2
059600          GO TO STR-FAIL-GF-5-3.                                  NC2174.2
059700 STR-DELETE-GF-5-3.                                               NC2174.2
059800     PERFORM DE-LETE.                                             NC2174.2
059900     GO TO STR-WRITE-GF-5-3.                                      NC2174.2
060000 STR-FAIL-GF-5-3.                                                 NC2174.2
060100     PERFORM FAIL                                                 NC2174.2
060200     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
060300     MOVE    7 TO CORRECT-N.                                      NC2174.2
060400 STR-WRITE-GF-5-3.                                                NC2174.2
060500     PERFORM PRINT-DETAIL.                                        NC2174.2
060600*                                                                 NC2174.2
060700 STR-INIT-GF-6.                                                   NC2174.2
060800     MOVE    "STR-TEST-GF-6" TO PAR-NAME.                         NC2174.2
060900     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
061000     MOVE    "SPACE LIT OVERFLOWS" TO FEATURE.                    NC2174.2
061100     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
061200     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
061300     MOVE    1 TO REC-CT.                                         NC2174.2
061400*                                                                 NC2174.2
061500 STR-TEST-GF-6-1.                                                 NC2174.2
061600     STRING  SPACE "ABCDE" DELIMITED BY " ABCDE"                  NC2174.2
061700             INTO ID7-XN-5 OVERFLOW PERFORM PASS                  NC2174.2
061800                                    GO TO STR-WRITE-GF-6-1.       NC2174.2
061900     GO      TO STR-FAIL-GF-6-1.                                  NC2174.2
062000 STR-DELETE-GF-6-1.                                               NC2174.2
062100     PERFORM DE-LETE.                                             NC2174.2
062200     PERFORM PRINT-DETAIL.                                        NC2174.2
062300     GO      TO STR-INIT-GF-7.                                    NC2174.2
062400 STR-FAIL-GF-6-1.                                                 NC2174.2
062500     PERFORM FAIL.                                                NC2174.2
062600     MOVE    "OVERFLOW SHOULD OCCUR" TO RE-MARK.                  NC2174.2
062700 STR-WRITE-GF-6-1.                                                NC2174.2
062800     PERFORM PRINT-DETAIL.                                        NC2174.2
062900*                                                                 NC2174.2
063000 STR-TEST-GF-6-2.                                                 NC2174.2
063100     ADD 1 TO REC-CT.                                             NC2174.2
063200     IF      ID7-XN-5 = " ABCD"                                   NC2174.2
063300          PERFORM PASS                                            NC2174.2
063400          GO TO STR-WRITE-GF-6-2                                  NC2174.2
063500     ELSE                                                         NC2174.2
063600          GO TO STR-FAIL-GF-6-2.                                  NC2174.2
063700 STR-DELETE-GF-6-2.                                               NC2174.2
063800     PERFORM DE-LETE.                                             NC2174.2
063900     GO TO STR-WRITE-GF-6-2.                                      NC2174.2
064000 STR-FAIL-GF-6-2.                                                 NC2174.2
064100     PERFORM FAIL                                                 NC2174.2
064200     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
064300     MOVE    " ABCD" TO CORRECT-A.                                NC2174.2
064400 STR-WRITE-GF-6-2.                                                NC2174.2
064500     PERFORM PRINT-DETAIL.                                        NC2174.2
064600*                                                                 NC2174.2
064700 STR-INIT-GF-7.                                                   NC2174.2
064800     MOVE    "STR-TEST-GF-7" TO PAR-NAME.                         NC2174.2
064900     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
065000     MOVE    "LITERAL SERIES" TO FEATURE.                         NC2174.2
065100     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
065200     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
065300     MOVE    1 TO REC-CT.                                         NC2174.2
065400*                                                                 NC2174.2
065500 STR-TEST-GF-7-1.                                                 NC2174.2
065600     STRING  "A" "B" "C" "D" "E" DELIMITED "ABCDE" INTO ID7-XN-5  NC2174.2
065700             POINTER ID8-DU-2V0 OVERFLOW GO TO STR-FAIL-GF-7-1.   NC2174.2
065800     PERFORM PASS.                                                NC2174.2
065900     GO TO STR-WRITE-GF-7-1.                                      NC2174.2
066000 STR-DELETE-GF-7-1.                                               NC2174.2
066100     PERFORM DE-LETE.                                             NC2174.2
066200     PERFORM PRINT-DETAIL.                                        NC2174.2
066300     GO      TO STR-INIT-GF-8.                                    NC2174.2
066400 STR-FAIL-GF-7-1.                                                 NC2174.2
066500     PERFORM FAIL.                                                NC2174.2
066600     MOVE    "OVERFLOW SHOULD NOT OCCUR" TO RE-MARK.              NC2174.2
066700 STR-WRITE-GF-7-1.                                                NC2174.2
066800     PERFORM PRINT-DETAIL.                                        NC2174.2
066900*                                                                 NC2174.2
067000 STR-TEST-GF-7-2.                                                 NC2174.2
067100     ADD     1 TO REC-CT.                                         NC2174.2
067200     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
067300          PERFORM PASS                                            NC2174.2
067400          GO TO STR-WRITE-GF-7-2                                  NC2174.2
067500     ELSE                                                         NC2174.2
067600          GO TO STR-FAIL-GF-7-2.                                  NC2174.2
067700 STR-DELETE-GF-7-2.                                               NC2174.2
067800     PERFORM DE-LETE.                                             NC2174.2
067900     GO TO STR-WRITE-GF-7-2.                                      NC2174.2
068000 STR-FAIL-GF-7-2.                                                 NC2174.2
068100     PERFORM FAIL                                                 NC2174.2
068200     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
068300     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
068400 STR-WRITE-GF-7-2.                                                NC2174.2
068500     PERFORM PRINT-DETAIL.                                        NC2174.2
068600*                                                                 NC2174.2
068700 STR-TEST-GF-7-3.                                                 NC2174.2
068800     ADD     1 TO REC-CT.                                         NC2174.2
068900     IF      ID8-DU-2V0 = 6                                       NC2174.2
069000          PERFORM PASS                                            NC2174.2
069100          GO TO STR-WRITE-GF-7-3                                  NC2174.2
069200     ELSE                                                         NC2174.2
069300          GO TO STR-FAIL-GF-7-3.                                  NC2174.2
069400 STR-DELETE-GF-7-3.                                               NC2174.2
069500     PERFORM DE-LETE.                                             NC2174.2
069600     GO TO STR-WRITE-GF-7-3.                                      NC2174.2
069700 STR-FAIL-GF-7-3.                                                 NC2174.2
069800     PERFORM FAIL                                                 NC2174.2
069900     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
070000     MOVE    6 TO CORRECT-N.                                      NC2174.2
070100 STR-WRITE-GF-7-3.                                                NC2174.2
070200     PERFORM PRINT-DETAIL.                                        NC2174.2
070300*                                                                 NC2174.2
070400 STR-INIT-GF-8.                                                   NC2174.2
070500     MOVE    "STR-TEST-GF-8" TO PAR-NAME.                         NC2174.2
070600     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
070700     MOVE    "LOW-VALUE OVERFLOW" TO FEATURE.                     NC2174.2
070800     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
070900     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
071000     MOVE    1 TO REC-CT.                                         NC2174.2
071100*                                                                 NC2174.2
071200 STR-TEST-GF-8-1.                                                 NC2174.2
071300     STRING  LOW-VALUE "ABCDE" DELIMITED BY SIZE INTO ID7-XN-5    NC2174.2
071400             WITH POINTER ID8-DU-2V0                              NC2174.2
071500                  ON OVERFLOW PERFORM PASS                        NC2174.2
071600                              GO TO STR-WRITE-GF-8-1.             NC2174.2
071700     GO      TO STR-FAIL-GF-8-1.                                  NC2174.2
071800 STR-DELETE-GF-8-1.                                               NC2174.2
071900     PERFORM DE-LETE.                                             NC2174.2
072000     PERFORM PRINT-DETAIL.                                        NC2174.2
072100     GO      TO STR-INIT-GF-9.                                    NC2174.2
072200 STR-FAIL-GF-8-1.                                                 NC2174.2
072300     PERFORM FAIL.                                                NC2174.2
072400     MOVE    "OVERFLOW SHOULD OCCUR" TO RE-MARK.                  NC2174.2
072500 STR-WRITE-GF-8-1.                                                NC2174.2
072600     PERFORM PRINT-DETAIL.                                        NC2174.2
072700*                                                                 NC2174.2
072800 STR-TEST-GF-8-2.                                                 NC2174.2
072900     ADD     1 TO REC-CT.                                         NC2174.2
073000     IF      ID7-XN-5 = ANS-XN-5-1                                NC2174.2
073100          PERFORM PASS                                            NC2174.2
073200          GO TO STR-WRITE-GF-8-2                                  NC2174.2
073300     ELSE                                                         NC2174.2
073400          GO TO STR-FAIL-GF-8-2.                                  NC2174.2
073500 STR-DELETE-GF-8-2.                                               NC2174.2
073600     PERFORM DE-LETE.                                             NC2174.2
073700     GO TO STR-WRITE-GF-8-2.                                      NC2174.2
073800 STR-FAIL-GF-8-2.                                                 NC2174.2
073900     PERFORM FAIL                                                 NC2174.2
074000     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
074100     MOVE    ANS-XN-5-1 TO CORRECT-A.                             NC2174.2
074200 STR-WRITE-GF-8-2.                                                NC2174.2
074300     PERFORM PRINT-DETAIL.                                        NC2174.2
074400*                                                                 NC2174.2
074500 STR-TEST-GF-8-3.                                                 NC2174.2
074600     ADD     1 TO REC-CT.                                         NC2174.2
074700     IF      ID8-DU-2V0 = 6                                       NC2174.2
074800          PERFORM PASS                                            NC2174.2
074900          GO TO STR-WRITE-GF-8-3                                  NC2174.2
075000     ELSE                                                         NC2174.2
075100          GO TO STR-FAIL-GF-8-3.                                  NC2174.2
075200 STR-DELETE-GF-8-3.                                               NC2174.2
075300     PERFORM DE-LETE.                                             NC2174.2
075400     GO TO STR-WRITE-GF-8-3.                                      NC2174.2
075500 STR-FAIL-GF-8-3.                                                 NC2174.2
075600     PERFORM FAIL                                                 NC2174.2
075700     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
075800     MOVE    6 TO CORRECT-N.                                      NC2174.2
075900 STR-WRITE-GF-8-3.                                                NC2174.2
076000     PERFORM PRINT-DETAIL.                                        NC2174.2
076100*                                                                 NC2174.2
076200 STR-INIT-GF-9.                                                   NC2174.2
076300     MOVE    "STR-TEST-GF-9" TO PAR-NAME.                         NC2174.2
076400     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
076500     MOVE    "HIGH-VALUE DEL SIZE" TO FEATURE.                    NC2174.2
076600     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
076700     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
076800     MOVE    1 TO REC-CT.                                         NC2174.2
076900*                                                                 NC2174.2
077000 STR-TEST-GF-9-1.                                                 NC2174.2
077100     STRING  HIGH-VALUE DELIMITED BY SIZE INTO ID7-XN-5           NC2174.2
077200             POINTER ID8-DU-2V0                                   NC2174.2
077300                   OVERFLOW GO TO STR-FAIL-GF-9-1.                NC2174.2
077400     PERFORM PASS.                                                NC2174.2
077500     GO TO STR-WRITE-GF-9-1.                                      NC2174.2
077600 STR-DELETE-GF-9-1.                                               NC2174.2
077700     PERFORM DE-LETE.                                             NC2174.2
077800     PERFORM PRINT-DETAIL.                                        NC2174.2
077900     GO      TO STR-INIT-GF-10.                                   NC2174.2
078000 STR-FAIL-GF-9-1.                                                 NC2174.2
078100     PERFORM FAIL.                                                NC2174.2
078200     MOVE    "OVERFLOW SHOULD NOT OCCUR" TO RE-MARK.              NC2174.2
078300 STR-WRITE-GF-9-1.                                                NC2174.2
078400     PERFORM PRINT-DETAIL.                                        NC2174.2
078500*                                                                 NC2174.2
078600 STR-TEST-GF-9-2.                                                 NC2174.2
078700     ADD     1 TO REC-CT.                                         NC2174.2
078800     IF      ID7-XN-5 = ANS-XN-5-2                                NC2174.2
078900          PERFORM PASS                                            NC2174.2
079000          GO TO STR-WRITE-GF-9-2                                  NC2174.2
079100     ELSE                                                         NC2174.2
079200          GO TO STR-FAIL-GF-9-2.                                  NC2174.2
079300 STR-DELETE-GF-9-2.                                               NC2174.2
079400     PERFORM DE-LETE.                                             NC2174.2
079500     GO TO STR-WRITE-GF-9-2.                                      NC2174.2
079600 STR-FAIL-GF-9-2.                                                 NC2174.2
079700     PERFORM FAIL                                                 NC2174.2
079800     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
079900     MOVE    ANS-XN-5-2 TO CORRECT-A.                             NC2174.2
080000 STR-WRITE-GF-9-2.                                                NC2174.2
080100     PERFORM PRINT-DETAIL.                                        NC2174.2
080200*                                                                 NC2174.2
080300 STR-TEST-GF-9-3.                                                 NC2174.2
080400     ADD     1 TO REC-CT.                                         NC2174.2
080500     IF      ID8-DU-2V0 = 2                                       NC2174.2
080600          PERFORM PASS                                            NC2174.2
080700          GO TO STR-WRITE-GF-9-3                                  NC2174.2
080800     ELSE                                                         NC2174.2
080900          GO TO STR-FAIL-GF-9-3.                                  NC2174.2
081000 STR-DELETE-GF-9-3.                                               NC2174.2
081100     PERFORM DE-LETE.                                             NC2174.2
081200     GO TO STR-WRITE-GF-9-3.                                      NC2174.2
081300 STR-FAIL-GF-9-3.                                                 NC2174.2
081400     PERFORM FAIL                                                 NC2174.2
081500     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
081600     MOVE    2 TO CORRECT-N.                                      NC2174.2
081700 STR-WRITE-GF-9-3.                                                NC2174.2
081800     PERFORM PRINT-DETAIL.                                        NC2174.2
081900*                                                                 NC2174.2
082000 STR-INIT-GF-10.                                                  NC2174.2
082100     MOVE    "STR-TEST-GF-10" TO PAR-NAME.                        NC2174.2
082200     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
082300     MOVE    "LIT DEL ZERO" TO FEATURE.                           NC2174.2
082400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
082500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
082600     MOVE    1 TO REC-CT.                                         NC2174.2
082700*                                                                 NC2174.2
082800 STR-TEST-GF-10-0.                                                NC2174.2
082900     STRING  "A0" "B0D" "C0LKJSD" "D0321" "E0987LKJALKJKLLKJSD"   NC2174.2
083000             DELIMITED BY ZERO INTO ID7-XN-5 POINTER ID8-DU-2V0.  NC2174.2
083100     GO      TO STR-TEST-GF-10-1.                                 NC2174.2
083200 STR-DELETE-GF-10.                                                NC2174.2
083300     PERFORM DE-LETE.                                             NC2174.2
083400     PERFORM PRINT-DETAIL.                                        NC2174.2
083500     GO      TO STR-INIT-GF-11.                                   NC2174.2
083600*                                                                 NC2174.2
083700 STR-TEST-GF-10-1.                                                NC2174.2
083800     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
083900             PERFORM PASS                                         NC2174.2
084000             GO TO STR-WRITE-GF-10-1                              NC2174.2
084100     ELSE                                                         NC2174.2
084200             GO TO STR-FAIL-GF-10-1.                              NC2174.2
084300 STR-DELETE-GF-10-1.                                              NC2174.2
084400     PERFORM DE-LETE.                                             NC2174.2
084500     GO TO STR-WRITE-GF-10-1.                                     NC2174.2
084600 STR-FAIL-GF-10-1.                                                NC2174.2
084700     PERFORM FAIL                                                 NC2174.2
084800     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
084900     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
085000 STR-WRITE-GF-10-1.                                               NC2174.2
085100     PERFORM PRINT-DETAIL.                                        NC2174.2
085200*                                                                 NC2174.2
085300 STR-TEST-GF-10-2.                                                NC2174.2
085400     ADD     1 TO REC-CT.                                         NC2174.2
085500     IF      ID8-DU-2V0 = 6                                       NC2174.2
085600             PERFORM PASS                                         NC2174.2
085700             GO TO STR-WRITE-GF-10-2                              NC2174.2
085800     ELSE                                                         NC2174.2
085900             GO TO STR-FAIL-GF-10-2.                              NC2174.2
086000 STR-DELETE-GF-10-2.                                              NC2174.2
086100     PERFORM DE-LETE.                                             NC2174.2
086200     GO TO STR-WRITE-GF-10-2.                                     NC2174.2
086300 STR-FAIL-GF-10-2.                                                NC2174.2
086400     PERFORM FAIL                                                 NC2174.2
086500     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
086600     MOVE    6 TO CORRECT-N.                                      NC2174.2
086700 STR-WRITE-GF-10-2.                                               NC2174.2
086800     PERFORM PRINT-DETAIL.                                        NC2174.2
086900*                                                                 NC2174.2
087000 STR-INIT-GF-11.                                                  NC2174.2
087100     MOVE    "STR-TEST-GF-11" TO PAR-NAME.                        NC2174.2
087200     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
087300     MOVE    "LIT DEL BY QUOTE" TO FEATURE.                       NC2174.2
087400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
087500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
087600     MOVE    1 TO REC-CT.                                         NC2174.2
087700*                                                                 NC2174.2
087800 STR-TEST-GF-11.                                                  NC2174.2
087900     STRING  "A""" "B""KJHSF" "C""321654987LLKJHAF" "D""=,l."     NC2174.2
088000             "E""********" DELIMITED BY QUOTE INTO ID7-XN-5       NC2174.2
088100             POINTER ID8-DU-2V0.                                  NC2174.2
088200     GO      TO STR-TEST-GF-11-1.                                 NC2174.2
088300 STR-DELETE-GF-11-0.                                              NC2174.2
088400     PERFORM DE-LETE.                                             NC2174.2
088500     PERFORM PRINT-DETAIL.                                        NC2174.2
088600     GO      TO STR-INIT-GF-12.                                   NC2174.2
088700*                                                                 NC2174.2
088800 STR-TEST-GF-11-1.                                                NC2174.2
088900     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
089000             PERFORM PASS                                         NC2174.2
089100             GO TO STR-WRITE-GF-11-1                              NC2174.2
089200     ELSE                                                         NC2174.2
089300             GO TO STR-FAIL-GF-11-1.                              NC2174.2
089400 STR-DELETE-GF-11-1.                                              NC2174.2
089500     PERFORM DE-LETE.                                             NC2174.2
089600     GO TO STR-WRITE-GF-11-1.                                     NC2174.2
089700 STR-FAIL-GF-11-1.                                                NC2174.2
089800     PERFORM FAIL                                                 NC2174.2
089900     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
090000     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
090100 STR-WRITE-GF-11-1.                                               NC2174.2
090200     PERFORM PRINT-DETAIL.                                        NC2174.2
090300     ADD     1 TO REC-CT.                                         NC2174.2
090400*                                                                 NC2174.2
090500 STR-TEST-GF-11-2.                                                NC2174.2
090600     IF      ID8-DU-2V0 = 6                                       NC2174.2
090700             PERFORM PASS                                         NC2174.2
090800             GO TO STR-WRITE-GF-11-2                              NC2174.2
090900     ELSE                                                         NC2174.2
091000             GO TO STR-FAIL-GF-11-2.                              NC2174.2
091100 STR-DELETE-GF-11-2.                                              NC2174.2
091200     PERFORM DE-LETE.                                             NC2174.2
091300     GO TO STR-WRITE-GF-11-2.                                     NC2174.2
091400 STR-FAIL-GF-11-2.                                                NC2174.2
091500     PERFORM FAIL                                                 NC2174.2
091600     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
091700     MOVE    6 TO CORRECT-N.                                      NC2174.2
091800 STR-WRITE-GF-11-2.                                               NC2174.2
091900     PERFORM PRINT-DETAIL.                                        NC2174.2
092000*                                                                 NC2174.2
092100 STR-INIT-GF-12.                                                  NC2174.2
092200     MOVE    "STR-TEST-GF-12" TO PAR-NAME.                        NC2174.2
092300     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
092400     MOVE    "ZERO ID DEL SIZE" TO FEATURE.                       NC2174.2
092500     MOVE    0 TO REC-CT.                                         NC2174.2
092600     MOVE    ALL "*" TO ID7-XN-15.                                NC2174.2
092700*                                                                 NC2174.2
092800 STR-TEST-GF-12-1.                                                NC2174.2
092900     STRING  ZERO ABCDEFG-XN-7 DELIMITED BY SIZE ZERO ABCDEFG-XN-7NC2174.2
093000             DELIMITED BY SIZE INTO ID7-XN-15.                    NC2174.2
093100     IF      ID7-XN-15 = "0ABCDEFG0ABCDEF"                        NC2174.2
093200             PERFORM PASS                                         NC2174.2
093300             GO TO STR-WRITE-GF-12-1                              NC2174.2
093400     ELSE                                                         NC2174.2
093500             GO TO STR-FAIL-GF-12-1.                              NC2174.2
093600 STR-DELETE-GF-12-1.                                              NC2174.2
093700     PERFORM DE-LETE.                                             NC2174.2
093800     GO TO STR-WRITE-GF-12-1.                                     NC2174.2
093900 STR-FAIL-GF-12-1.                                                NC2174.2
094000     PERFORM FAIL                                                 NC2174.2
094100     MOVE    ID7-XN-15 TO COMPUTED-A                              NC2174.2
094200     MOVE    "0ABCDEFG0ABCDEF" TO CORRECT-A.                      NC2174.2
094300 STR-WRITE-GF-12-1.                                               NC2174.2
094400     PERFORM PRINT-DETAIL.                                        NC2174.2
094500*                                                                 NC2174.2
094600 STR-INIT-GF-13.                                                  NC2174.2
094700     MOVE    "STR-TEST-GF-13" TO PAR-NAME.                        NC2174.2
094800     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
094900     MOVE    "LITERAL SERIES" TO FEATURE.                         NC2174.2
095000     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
095100*                                                                 NC2174.2
095200 STR-TEST-GF-13.                                                  NC2174.2
095300     STRING  "A" "B" "C" DELIMITED BY SIZE "D" "E" "F"  DELIMITED NC2174.2
095400             BY SIZE INTO ID7-XN-5.                               NC2174.2
095500     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
095600             PERFORM PASS                                         NC2174.2
095700             GO TO STR-WRITE-GF-13                                NC2174.2
095800     ELSE                                                         NC2174.2
095900             GO TO STR-FAIL-GF-13.                                NC2174.2
096000 STR-DELETE-GF-13.                                                NC2174.2
096100     PERFORM DE-LETE.                                             NC2174.2
096200     GO TO STR-WRITE-GF-13.                                       NC2174.2
096300 STR-FAIL-GF-13.                                                  NC2174.2
096400     PERFORM FAIL                                                 NC2174.2
096500     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
096600     MOVE    "ABCDE" TO CORRECT-A.                                NC2174.2
096700 STR-WRITE-GF-13.                                                 NC2174.2
096800     PERFORM PRINT-DETAIL.                                        NC2174.2
096900*                                                                 NC2174.2
097000 STR-INIT-GF-14.                                                  NC2174.2
097100     MOVE    "STR-TEST-GF-14" TO PAR-NAME.                        NC2174.2
097200     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
097300     MOVE    "IDENTIFIER SERIES" TO FEATURE.                      NC2174.2
097400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
097500*                                                                 NC2174.2
097600 STR-TEST-GF-14.                                                  NC2174.2
097700     STRING  AB-XN-2 AB-XN-2 AB-XN-2 DELIMITED BY B-XN-1          NC2174.2
097800     AB-XN-2 AB-XN-2 DELIMITED BY B-XN-1 INTO ID7-XN-5.           NC2174.2
097900     IF      ID7-XN-5 = "AAAAA"                                   NC2174.2
098000             PERFORM PASS                                         NC2174.2
098100             GO TO STR-WRITE-GF-14                                NC2174.2
098200     ELSE                                                         NC2174.2
098300             GO TO STR-FAIL-GF-14.                                NC2174.2
098400 STR-DELETE-GF-14.                                                NC2174.2
098500     PERFORM DE-LETE.                                             NC2174.2
098600     GO TO STR-WRITE-GF-14.                                       NC2174.2
098700 STR-FAIL-GF-14.                                                  NC2174.2
098800     PERFORM FAIL                                                 NC2174.2
098900     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
099000     MOVE "AAAAA" TO CORRECT-A.                                   NC2174.2
099100 STR-WRITE-GF-14.                                                 NC2174.2
099200     PERFORM PRINT-DETAIL.                                        NC2174.2
099300*                                                                 NC2174.2
099400 STR-INIT-GF-15.                                                  NC2174.2
099500     MOVE    "STR-TEST-GF-15" TO PAR-NAME.                        NC2174.2
099600     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
099700     MOVE    "SIGN LEADING" TO FEATURE.                           NC2174.2
099800     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
099900     MOVE    +1001 TO ID1-DS-LS-4.                                NC2174.2
100000     MOVE    ZERO TO ZEROX-XN-1.                                  NC2174.2
100100     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
100200     MOVE    1 TO REC-CT.                                         NC2174.2
100300*                                                                 NC2174.2
100400 STR-TEST-GF-15-0.                                                NC2174.2
100500     STRING  ID1-DS-LS-4 DELIMITED BY ZEROX-XN-1 SPACE DELIMITED  NC2174.2
100600             BY SIZE ID1-DS-LS-4 DELIMITED "0" INTO               NC2174.2
100700             ID7-XN-5 POINTER ID8-DU-2V0.                         NC2174.2
100800     GO      TO STR-TEST-GF-15-1.                                 NC2174.2
100900 STR-DELETE-GF-15.                                                NC2174.2
101000     PERFORM DE-LETE.                                             NC2174.2
101100     PERFORM PRINT-DETAIL.                                        NC2174.2
101200     GO      TO STR-INIT-GF-16.                                   NC2174.2
101300*                                                                 NC2174.2
101400 STR-TEST-GF-15-1.                                                NC2174.2
101500     IF      ID7-XN-5 = "+1 +1"                                   NC2174.2
101600             PERFORM PASS                                         NC2174.2
101700             GO TO STR-WRITE-GF-15-1                              NC2174.2
101800     ELSE                                                         NC2174.2
101900             GO TO STR-FAIL-GF-15-1.                              NC2174.2
102000 STR-DELETE-GF-15-1.                                              NC2174.2
102100     PERFORM DE-LETE.                                             NC2174.2
102200     GO TO STR-WRITE-GF-15-1.                                     NC2174.2
102300 STR-FAIL-GF-15-1.                                                NC2174.2
102400     PERFORM FAIL                                                 NC2174.2
102500     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
102600     MOVE    "+1 +1" TO CORRECT-A.                                NC2174.2
102700 STR-WRITE-GF-15-1.                                               NC2174.2
102800     PERFORM PRINT-DETAIL.                                        NC2174.2
102900*                                                                 NC2174.2
103000 STR-TEST-GF-15-2.                                                NC2174.2
103100     ADD     1 TO REC-CT.                                         NC2174.2
103200     IF      ID8-DU-2V0 = 6                                       NC2174.2
103300             PERFORM PASS                                         NC2174.2
103400             GO TO STR-WRITE-GF-15-2                              NC2174.2
103500     ELSE                                                         NC2174.2
103600             GO TO STR-FAIL-GF-15-2.                              NC2174.2
103700 STR-DELETE-GF-15-2.                                              NC2174.2
103800     PERFORM DE-LETE.                                             NC2174.2
103900     GO TO STR-WRITE-GF-15-2.                                     NC2174.2
104000 STR-FAIL-GF-15-2.                                                NC2174.2
104100     PERFORM FAIL                                                 NC2174.2
104200     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
104300     MOVE 6 TO CORRECT-N.                                         NC2174.2
104400 STR-WRITE-GF-15-2.                                               NC2174.2
104500     PERFORM PRINT-DETAIL.                                        NC2174.2
104600*                                                                 NC2174.2
104700 STR-INIT-GF-16.                                                  NC2174.2
104800     MOVE    "STR-TEST-GF-16" TO PAR-NAME.                        NC2174.2
104900     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
105000     MOVE    "SIGN LEADING" TO FEATURE.                           NC2174.2
105100     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
105200     MOVE    +1001 TO ID1-DS-LS-4.                                NC2174.2
105300     MOVE    ZERO TO ZEROX-XN-1.                                  NC2174.2
105400     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
105500     MOVE    1 TO REC-CT.                                         NC2174.2
105600*                                                                 NC2174.2
105700 STR-TEST-GF-16-0.                                                NC2174.2
105800     STRING  ID1-DS-LS-4 DELIMITED "0" " " DELIMITED BY SIZE      NC2174.2
105900             ID1-DS-LS-4 DELIMITED BY ZEROX-XN-1 INTO ID7-XN-5    NC2174.2
106000             POINTER ID8-DU-2V0.                                  NC2174.2
106100     GO      TO STR-TEST-GF-16-1.                                 NC2174.2
106200 STR-DELETE-GF-16.                                                NC2174.2
106300     PERFORM DE-LETE.                                             NC2174.2
106400     PERFORM PRINT-DETAIL.                                        NC2174.2
106500     GO      TO STR-INIT-GF-17.                                   NC2174.2
106600*                                                                 NC2174.2
106700 STR-TEST-GF-16-1.                                                NC2174.2
106800     IF      ID7-XN-5 = "+1 +1"                                   NC2174.2
106900             PERFORM PASS                                         NC2174.2
107000             GO TO STR-WRITE-GF-16-1                              NC2174.2
107100     ELSE                                                         NC2174.2
107200             GO TO STR-FAIL-GF-16-1.                              NC2174.2
107300 STR-DELETE-GF-16-1.                                              NC2174.2
107400     PERFORM DE-LETE.                                             NC2174.2
107500     GO TO STR-WRITE-GF-16-1.                                     NC2174.2
107600 STR-FAIL-GF-16-1.                                                NC2174.2
107700     PERFORM FAIL                                                 NC2174.2
107800     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
107900     MOVE    "+1 +1" TO CORRECT-A.                                NC2174.2
108000 STR-WRITE-GF-16-1.                                               NC2174.2
108100     PERFORM PRINT-DETAIL.                                        NC2174.2
108200*                                                                 NC2174.2
108300 STR-TEST-GF-16-2.                                                NC2174.2
108400     ADD     1 TO REC-CT.                                         NC2174.2
108500     IF      ID8-DU-2V0 = 6                                       NC2174.2
108600             PERFORM PASS                                         NC2174.2
108700             GO TO STR-WRITE-GF-16-2                              NC2174.2
108800     ELSE                                                         NC2174.2
108900             GO TO STR-FAIL-GF-16-2.                              NC2174.2
109000 STR-DELETE-GF-16-2.                                              NC2174.2
109100     PERFORM DE-LETE.                                             NC2174.2
109200     GO TO STR-WRITE-GF-16-2.                                     NC2174.2
109300 STR-FAIL-GF-16-2.                                                NC2174.2
109400     PERFORM FAIL                                                 NC2174.2
109500     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
109600     MOVE    6 TO CORRECT-N.                                      NC2174.2
109700 STR-WRITE-GF-16-2.                                               NC2174.2
109800     PERFORM PRINT-DETAIL.                                        NC2174.2
109900*                                                                 NC2174.2
110000 STR-INIT-GF-17.                                                  NC2174.2
110100     MOVE    "STR-TEST-GF-17" TO PAR-NAME.                        NC2174.2
110200     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
110300     MOVE    "SIGN TRAILING" TO FEATURE.                          NC2174.2
110400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
110500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
110600     MOVE    +1001 TO ID1-DS-TS-4.                                NC2174.2
110700     MOVE    1 TO REC-CT.                                         NC2174.2
110800*                                                                 NC2174.2
110900 STR-TEST-GF-17-0.                                                NC2174.2
111000     STRING  ID1-DS-TS-4 DELIMITED BY SIZE SPACE DELIMITED SIZE   NC2174.2
111100             ID1-DS-TS-4 DELIMITED BY SIZE                        NC2174.2
111200             INTO ID7-XN-5 POINTER ID8-DU-2V0.                    NC2174.2
111300     GO      TO STR-TEST-GF-17-1.                                 NC2174.2
111400 STR-DELETE-GF-17.                                                NC2174.2
111500     PERFORM DE-LETE.                                             NC2174.2
111600     PERFORM PRINT-DETAIL.                                        NC2174.2
111700     GO      TO STR-INIT-GF-18.                                   NC2174.2
111800*                                                                 NC2174.2
111900 STR-TEST-GF-17-1.                                                NC2174.2
112000     IF      ID7-XN-5 = "1001+"                                   NC2174.2
112100             PERFORM PASS                                         NC2174.2
112200             GO TO STR-WRITE-GF-17-1                              NC2174.2
112300     ELSE                                                         NC2174.2
112400             GO TO STR-FAIL-GF-17-1.                              NC2174.2
112500 STR-DELETE-GF-17-1.                                              NC2174.2
112600     PERFORM DE-LETE.                                             NC2174.2
112700     GO TO STR-WRITE-GF-17-1.                                     NC2174.2
112800 STR-FAIL-GF-17-1.                                                NC2174.2
112900     PERFORM FAIL                                                 NC2174.2
113000     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
113100     MOVE    "1001+" TO CORRECT-A.                                NC2174.2
113200 STR-WRITE-GF-17-1.                                               NC2174.2
113300     PERFORM PRINT-DETAIL.                                        NC2174.2
113400*                                                                 NC2174.2
113500 STR-TEST-GF-17-2.                                                NC2174.2
113600     ADD     1 TO REC-CT.                                         NC2174.2
113700     IF      ID8-DU-2V0 = 6                                       NC2174.2
113800             PERFORM PASS                                         NC2174.2
113900             GO TO STR-WRITE-GF-17-2                              NC2174.2
114000     ELSE                                                         NC2174.2
114100             GO TO STR-FAIL-GF-17-2.                              NC2174.2
114200 STR-DELETE-GF-17-2.                                              NC2174.2
114300     PERFORM DE-LETE.                                             NC2174.2
114400     GO TO STR-WRITE-GF-17-2.                                     NC2174.2
114500 STR-FAIL-GF-17-2.                                                NC2174.2
114600     PERFORM FAIL                                                 NC2174.2
114700     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
114800     MOVE    6 TO CORRECT-N.                                      NC2174.2
114900 STR-WRITE-GF-17-2.                                               NC2174.2
115000     PERFORM PRINT-DETAIL.                                        NC2174.2
115100*                                                                 NC2174.2
115200 STR-INIT-GF-18.                                                  NC2174.2
115300     MOVE    "STR-TEST-GF-18" TO PAR-NAME.                        NC2174.2
115400     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
115500     MOVE    "NEG LEADING SEPARATE" TO FEATURE.                   NC2174.2
115600     MOVE    -1001 TO ID1-DS-LS-4.                                NC2174.2
115700     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
115800     MOVE    ZERO TO ZEROX-XN-1.                                  NC2174.2
115900     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
116000     MOVE    1 TO REC-CT.                                         NC2174.2
116100*                                                                 NC2174.2
116200 STR-TEST-GF-18-0.                                                NC2174.2
116300     STRING  ID1-DS-LS-4 DELIMITED BY ZEROX-XN-1 SPACE DELIMITED  NC2174.2
116400             BY SIZE ID1-DS-LS-4 DELIMITED BY "0" INTO            NC2174.2
116500             ID7-XN-5 POINTER ID8-DU-2V0.                         NC2174.2
116600     GO      TO STR-TEST-GF-18-1.                                 NC2174.2
116700 STR-DELETE-GF-18.                                                NC2174.2
116800     PERFORM DE-LETE.                                             NC2174.2
116900     PERFORM PRINT-DETAIL.                                        NC2174.2
117000     GO      TO STR-INIT-GF-19.                                   NC2174.2
117100*                                                                 NC2174.2
117200 STR-TEST-GF-18-1.                                                NC2174.2
117300     IF      ID7-XN-5 = "-1 -1"                                   NC2174.2
117400             PERFORM PASS                                         NC2174.2
117500             GO TO STR-WRITE-GF-18-1                              NC2174.2
117600     ELSE                                                         NC2174.2
117700             GO TO STR-FAIL-GF-18-1.                              NC2174.2
117800 STR-DELETE-GF-18-1.                                              NC2174.2
117900     PERFORM DE-LETE.                                             NC2174.2
118000     GO TO STR-WRITE-GF-18-1.                                     NC2174.2
118100 STR-FAIL-GF-18-1.                                                NC2174.2
118200     PERFORM FAIL                                                 NC2174.2
118300     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
118400     MOVE    "-1 -1" TO CORRECT-A.                                NC2174.2
118500 STR-WRITE-GF-18-1.                                               NC2174.2
118600     PERFORM PRINT-DETAIL.                                        NC2174.2
118700*                                                                 NC2174.2
118800 STR-TEST-GF-18-2.                                                NC2174.2
118900     ADD     1 TO REC-CT.                                         NC2174.2
119000     IF      ID8-DU-2V0 = 6                                       NC2174.2
119100             PERFORM PASS                                         NC2174.2
119200             GO TO STR-WRITE-GF-18-2                              NC2174.2
119300     ELSE                                                         NC2174.2
119400             GO TO STR-FAIL-GF-18-2.                              NC2174.2
119500 STR-DELETE-GF-18-2.                                              NC2174.2
119600     PERFORM DE-LETE.                                             NC2174.2
119700     GO TO STR-WRITE-GF-18-2.                                     NC2174.2
119800 STR-FAIL-GF-18-2.                                                NC2174.2
119900     PERFORM FAIL                                                 NC2174.2
120000     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
120100     MOVE    6 TO CORRECT-N.                                      NC2174.2
120200 STR-WRITE-GF-18-2.                                               NC2174.2
120300     PERFORM PRINT-DETAIL.                                        NC2174.2
120400*                                                                 NC2174.2
120500 STR-INIT-GF-19.                                                  NC2174.2
120600     MOVE    "STR-TEST-GF-19" TO PAR-NAME.                        NC2174.2
120700     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
120800     MOVE    "NEGATIVE SIGN TRAIL" TO FEATURE.                    NC2174.2
120900     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
121000     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
121100     MOVE    -1001 TO ID1-DS-TS-4.                                NC2174.2
121200     MOVE    1 TO REC-CT.                                         NC2174.2
121300*                                                                 NC2174.2
121400 STR-TEST-GF-19-0.                                                NC2174.2
121500     STRING  ID1-DS-TS-4 DELIMITED BY SIZE SPACE DELIMITED SIZE   NC2174.2
121600             ID1-DS-TS-4 DELIMITED BY SIZE INTO ID7-XN-5          NC2174.2
121700             POINTER ID8-DU-2V0.                                  NC2174.2
121800     GO      TO STR-TEST-GF-19-1.                                 NC2174.2
121900 STR-DELETE-GF-19.                                                NC2174.2
122000     PERFORM DE-LETE.                                             NC2174.2
122100     PERFORM PRINT-DETAIL.                                        NC2174.2
122200     GO      TO STR-INIT-GF-20.                                   NC2174.2
122300*                                                                 NC2174.2
122400 STR-TEST-GF-19-1.                                                NC2174.2
122500     IF      ID7-XN-5 = "1001-"                                   NC2174.2
122600             PERFORM PASS                                         NC2174.2
122700             GO TO STR-WRITE-GF-19-1                              NC2174.2
122800     ELSE                                                         NC2174.2
122900             GO TO STR-FAIL-GF-19-1.                              NC2174.2
123000 STR-DELETE-GF-19-1.                                              NC2174.2
123100     PERFORM DE-LETE.                                             NC2174.2
123200     GO TO STR-WRITE-GF-19-1.                                     NC2174.2
123300 STR-FAIL-GF-19-1.                                                NC2174.2
123400     PERFORM FAIL                                                 NC2174.2
123500     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
123600     MOVE    "1001-" TO CORRECT-A.                                NC2174.2
123700 STR-WRITE-GF-19-1.                                               NC2174.2
123800     PERFORM PRINT-DETAIL.                                        NC2174.2
123900*                                                                 NC2174.2
124000 STR-TEST-GF-19-2.                                                NC2174.2
124100     ADD     1 TO REC-CT.                                         NC2174.2
124200     IF      ID8-DU-2V0 = 6                                       NC2174.2
124300             PERFORM PASS                                         NC2174.2
124400             GO TO STR-WRITE-GF-19-2                              NC2174.2
124500     ELSE                                                         NC2174.2
124600             GO TO STR-FAIL-GF-19-2.                              NC2174.2
124700 STR-DELETE-GF-19-2.                                              NC2174.2
124800     PERFORM DE-LETE.                                             NC2174.2
124900     GO TO STR-WRITE-GF-19-2.                                     NC2174.2
125000 STR-FAIL-GF-19-2.                                                NC2174.2
125100     PERFORM FAIL                                                 NC2174.2
125200     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
125300     MOVE 6 TO CORRECT-N.                                         NC2174.2
125400 STR-WRITE-GF-19-2.                                               NC2174.2
125500     PERFORM PRINT-DETAIL.                                        NC2174.2
125600*                                                                 NC2174.2
125700 STR-INIT-GF-20.                                                  NC2174.2
125800     MOVE    "STR-TEST-GF-20" TO PAR-NAME.                        NC2174.2
125900     MOVE   "VI-130 6.24.3+4" TO ANSI-REFERENCE.                  NC2174.2
126000     MOVE    "LITERAL SERIES" TO FEATURE.                         NC2174.2
126100     MOVE ALL "*" TO WISH-LIST-XN-37.                             NC2174.2
126200     MOVE "GEE I WISH I WAS A FORTRAN PROGRAMMER" TO ANS-XN-37.   NC2174.2
126300     MOVE    1 TO MY-BOSS-DU-2V0.                                 NC2174.2
126400     MOVE    1 TO REC-CT.                                         NC2174.2
126500*                                                                 NC2174.2
126600 STR-TEST-GF-20-1.                                                NC2174.2
126700     STRING  "GEE" SPACE "I WISH I" SPACES "WAS A FORTRAN" " "    NC2174.2
126800             "PROGRAMMER"                                         NC2174.2
126900             DELIMITED BY SIZE INTO WISH-LIST-XN-37               NC2174.2
127000             WITH POINTER MY-BOSS-DU-2V0                          NC2174.2
127100             ON OVERFLOW GO TO STR-FAIL-GF-20-1.                  NC2174.2
127200     PERFORM PASS.                                                NC2174.2
127300     GO TO STR-WRITE-GF-20-1.                                     NC2174.2
127400 STR-DELETE-GF-20.                                                NC2174.2
127500     PERFORM DE-LETE.                                             NC2174.2
127600     PERFORM PRINT-DETAIL.                                        NC2174.2
127700     GO TO   STR-INIT-GF-21.                                      NC2174.2
127800 STR-FAIL-GF-20-1.                                                NC2174.2
127900     PERFORM FAIL.                                                NC2174.2
128000     MOVE    "OVERFLOW SHOULD NOT OCCUR" TO RE-MARK.              NC2174.2
128100 STR-WRITE-GF-20-1.                                               NC2174.2
128200     PERFORM PRINT-DETAIL.                                        NC2174.2
128300*                                                                 NC2174.2
128400 STR-TEST-GF-20-2.                                                NC2174.2
128500     MOVE    "STR-TEST-GF-20" TO PAR-NAME.                        NC2174.2
128600     MOVE    1 TO REC-CT.                                         NC2174.2
128700     IF      WISH-LIST-XN-37 = ANS-XN-37                          NC2174.2
128800             PERFORM PASS                                         NC2174.2
128900             GO TO STR-WRITE-GF-20-2                              NC2174.2
129000     ELSE                                                         NC2174.2
129100             GO TO STR-FAIL-GF-20-2.                              NC2174.2
129200 STR-DELETE-GF-20-2.                                              NC2174.2
129300     PERFORM DE-LETE.                                             NC2174.2
129400     GO TO STR-WRITE-GF-20-2.                                     NC2174.2
129500 STR-FAIL-GF-20-2.                                                NC2174.2
129600     PERFORM FAIL                                                 NC2174.2
129700     MOVE    WISH-LIST-XN-37 TO COMPUTED-A                        NC2174.2
129800     MOVE    ANS-XN-37 TO CORRECT-A.                              NC2174.2
129900 STR-WRITE-GF-20-2.                                               NC2174.2
130000     PERFORM PRINT-DETAIL.                                        NC2174.2
130100*                                                                 NC2174.2
130200 STR-TEST-GF-20-3.                                                NC2174.2
130300     ADD     1 TO REC-CT.                                         NC2174.2
130400     IF      MY-BOSS-DU-2V0 = 38                                  NC2174.2
130500             PERFORM PASS                                         NC2174.2
130600             GO TO STR-WRITE-GF-20-3                              NC2174.2
130700     ELSE                                                         NC2174.2
130800             GO TO STR-FAIL-GF-20-3.                              NC2174.2
130900 STR-DELETE-GF-20-3.                                              NC2174.2
131000     PERFORM DE-LETE.                                             NC2174.2
131100     GO TO STR-WRITE-GF-20-3.                                     NC2174.2
131200 STR-FAIL-GF-20-3.                                                NC2174.2
131300     PERFORM FAIL                                                 NC2174.2
131400     MOVE    MY-BOSS-DU-2V0 TO COMPUTED-N                         NC2174.2
131500     MOVE    38 TO CORRECT-N.                                     NC2174.2
131600 STR-WRITE-GF-20-3.                                               NC2174.2
131700     PERFORM PRINT-DETAIL.                                        NC2174.2
131800*                                                                 NC2174.2
131900*                                                                 NC2174.2
132000 STR-INIT-GF-21.                                                  NC2174.2
132100*    ===-->  INTO GROUP FIELD  <--===                             NC2174.2
132200     MOVE   "VI-130 6.24.3 GR4" TO ANSI-REFERENCE.                NC2174.2
132300     MOVE   "STR-TEST-GF-21" TO PAR-NAME.                         NC2174.2
132400     MOVE   "LIT DEL BY SIZE" TO FEATURE.                         NC2174.2
132500     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
132600     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
132700     MOVE    1 TO REC-CT.                                         NC2174.2
132800*                                                                 NC2174.2
132900 STR-TEST-GF-21-0.                                                NC2174.2
133000     STRING "ABCDEF" DELIMITED BY SIZE INTO TEST-21-GROUP         NC2174.2
133100             WITH POINTER ID8-DU-2V0.                             NC2174.2
133200     GO TO   STR-TEST-GF-21-1.                                    NC2174.2
133300 STR-DELETE-GF-21.                                                NC2174.2
133400     PERFORM DE-LETE.                                             NC2174.2
133500     PERFORM PRINT-DETAIL.                                        NC2174.2
133600     GO TO   STR-INIT-GF-22.                                      NC2174.2
133700*                                                                 NC2174.2
133800 STR-TEST-GF-21-1.                                                NC2174.2
133900     IF      TEST-21-GROUP = "ABCDE"                              NC2174.2
134000             PERFORM PASS                                         NC2174.2
134100             GO TO STR-WRITE-GF-21-1                              NC2174.2
134200     ELSE                                                         NC2174.2
134300             GO TO STR-FAIL-GF-21-1.                              NC2174.2
134400 STR-DELETE-GF-21-1.                                              NC2174.2
134500     PERFORM DE-LETE.                                             NC2174.2
134600     GO TO STR-WRITE-GF-21-1.                                     NC2174.2
134700 STR-FAIL-GF-21-1.                                                NC2174.2
134800     PERFORM FAIL                                                 NC2174.2
134900     MOVE    TEST-21-GROUP TO COMPUTED-A                          NC2174.2
135000     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
135100 STR-WRITE-GF-21-1.                                               NC2174.2
135200     PERFORM PRINT-DETAIL.                                        NC2174.2
135300*                                                                 NC2174.2
135400 STR-TEST-GF-21-2.                                                NC2174.2
135500     ADD 1 TO REC-CT.                                             NC2174.2
135600     IF      ID8-DU-2V0 = 6                                       NC2174.2
135700             PERFORM PASS                                         NC2174.2
135800             GO TO STR-WRITE-GF-21-2                              NC2174.2
135900     ELSE                                                         NC2174.2
136000             GO TO STR-FAIL-GF-21-2.                              NC2174.2
136100 STR-DELETE-GF-21-2.                                              NC2174.2
136200     PERFORM DE-LETE.                                             NC2174.2
136300     GO TO STR-WRITE-GF-21-2.                                     NC2174.2
136400 STR-FAIL-GF-21-2.                                                NC2174.2
136500     PERFORM FAIL                                                 NC2174.2
136600     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
136700     MOVE    6 TO CORRECT-N.                                      NC2174.2
136800 STR-WRITE-GF-21-2.                                               NC2174.2
136900     PERFORM PRINT-DETAIL.                                        NC2174.2
137000*                                                                 NC2174.2
137100 STR-INIT-GF-22.                                                  NC2174.2
137200*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
137300     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
137400     MOVE   "STR-TEST-GF-22" TO PAR-NAME.                         NC2174.2
137500     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
137600     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
137700     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
137800     MOVE    1 TO REC-CT.                                         NC2174.2
137900*                                                                 NC2174.2
138000 STR-TEST-GF-22-1.                                                NC2174.2
138100     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
138200             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
138300         NOT ON OVERFLOW GO TO STR-FAIL-GF-22-1.                  NC2174.2
138400     PERFORM PASS.                                                NC2174.2
138500     GO TO STR-WRITE-GF-22-1.                                     NC2174.2
138600 STR-DELETE-GF-22.                                                NC2174.2
138700     PERFORM DE-LETE.                                             NC2174.2
138800     PERFORM PRINT-DETAIL.                                        NC2174.2
138900     GO      TO STR-INIT-GF-23.                                   NC2174.2
139000 STR-FAIL-GF-22-1.                                                NC2174.2
139100     PERFORM FAIL.                                                NC2174.2
139200     MOVE    "NOT ON OVERFLOW SHOULD NOT OCCUR" TO RE-MARK.       NC2174.2
139300 STR-WRITE-GF-22-1.                                               NC2174.2
139400     PERFORM PRINT-DETAIL.                                        NC2174.2
139500*                                                                 NC2174.2
139600 STR-TEST-GF-22-2.                                                NC2174.2
139700     ADD     1 TO REC-CT.                                         NC2174.2
139800     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
139900             PERFORM PASS                                         NC2174.2
140000             GO TO STR-WRITE-GF-22-2                              NC2174.2
140100     ELSE                                                         NC2174.2
140200             GO TO STR-FAIL-GF-22-2.                              NC2174.2
140300 STR-DELETE-GF-22-2.                                              NC2174.2
140400     PERFORM DE-LETE.                                             NC2174.2
140500     GO TO STR-WRITE-GF-22-2.                                     NC2174.2
140600 STR-FAIL-GF-22-2.                                                NC2174.2
140700     PERFORM FAIL.                                                NC2174.2
140800     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
140900     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
141000 STR-WRITE-GF-22-2.                                               NC2174.2
141100     PERFORM PRINT-DETAIL.                                        NC2174.2
141200*                                                                 NC2174.2
141300 STR-TEST-GF-22-3.                                                NC2174.2
141400     ADD     1 TO REC-CT.                                         NC2174.2
141500     IF      ID8-DU-2V0 = 6                                       NC2174.2
141600             PERFORM PASS                                         NC2174.2
141700             GO TO STR-WRITE-GF-22-3                              NC2174.2
141800     ELSE                                                         NC2174.2
141900             GO TO STR-FAIL-GF-22-3.                              NC2174.2
142000 STR-DELETE-GF-22-3.                                              NC2174.2
142100     PERFORM DE-LETE.                                             NC2174.2
142200     GO TO STR-WRITE-GF-22-3.                                     NC2174.2
142300 STR-FAIL-GF-22-3.                                                NC2174.2
142400     PERFORM FAIL                                                 NC2174.2
142500     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
142600     MOVE    6 TO CORRECT-N.                                      NC2174.2
142700 STR-WRITE-GF-22-3.                                               NC2174.2
142800     PERFORM PRINT-DETAIL.                                        NC2174.2
142900*                                                                 NC2174.2
143000 STR-INIT-GF-23.                                                  NC2174.2
143100*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
143200     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
143300     MOVE   "STR-TEST-GF-23" TO PAR-NAME.                         NC2174.2
143400     MOVE   "LITERAL SERIES" TO FEATURE.                          NC2174.2
143500     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
143600     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
143700     MOVE    1 TO REC-CT.                                         NC2174.2
143800*                                                                 NC2174.2
143900 STR-TEST-GF-23-1.                                                NC2174.2
144000     STRING "A" "B" "C" "D" "E" DELIMITED "ABCDE" INTO ID7-XN-5   NC2174.2
144100             POINTER ID8-DU-2V0                                   NC2174.2
144200         NOT ON OVERFLOW PERFORM PASS                             NC2174.2
144300                         GO TO   STR-WRITE-GF-23-1.               NC2174.2
144400     GO TO   STR-FAIL-GF-23-1.                                    NC2174.2
144500 STR-DELETE-GF-23.                                                NC2174.2
144600     PERFORM DE-LETE.                                             NC2174.2
144700     PERFORM PRINT-DETAIL.                                        NC2174.2
144800     GO TO   STR-INIT-GF-24.                                      NC2174.2
144900 STR-FAIL-GF-23-1.                                                NC2174.2
145000     PERFORM FAIL.                                                NC2174.2
145100     MOVE   "NOT ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK.    NC2174.2
145200 STR-WRITE-GF-23-1.                                               NC2174.2
145300     PERFORM PRINT-DETAIL.                                        NC2174.2
145400*                                                                 NC2174.2
145500 STR-TEST-GF-23-2.                                                NC2174.2
145600     ADD     1 TO REC-CT.                                         NC2174.2
145700     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
145800             PERFORM PASS                                         NC2174.2
145900             GO TO STR-WRITE-GF-23-2                              NC2174.2
146000     ELSE                                                         NC2174.2
146100             GO TO STR-FAIL-GF-23-2.                              NC2174.2
146200 STR-DELETE-GF-23-2.                                              NC2174.2
146300     PERFORM DE-LETE.                                             NC2174.2
146400     GO TO STR-WRITE-GF-23-2.                                     NC2174.2
146500 STR-FAIL-GF-23-2.                                                NC2174.2
146600     PERFORM FAIL                                                 NC2174.2
146700     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
146800     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
146900 STR-WRITE-GF-23-2.                                               NC2174.2
147000     PERFORM PRINT-DETAIL.                                        NC2174.2
147100*                                                                 NC2174.2
147200 STR-TEST-GF-23-3.                                                NC2174.2
147300     ADD     1 TO REC-CT.                                         NC2174.2
147400     IF      ID8-DU-2V0 = 6                                       NC2174.2
147500             PERFORM PASS                                         NC2174.2
147600             GO TO STR-WRITE-GF-23-3                              NC2174.2
147700     ELSE                                                         NC2174.2
147800             GO TO STR-FAIL-GF-23-3.                              NC2174.2
147900 STR-DELETE-GF-23-3.                                              NC2174.2
148000     PERFORM DE-LETE.                                             NC2174.2
148100     GO TO STR-WRITE-GF-23-3.                                     NC2174.2
148200 STR-FAIL-GF-23-3.                                                NC2174.2
148300     PERFORM FAIL                                                 NC2174.2
148400     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
148500     MOVE    6 TO CORRECT-N.                                      NC2174.2
148600 STR-WRITE-GF-23-3.                                               NC2174.2
148700     PERFORM PRINT-DETAIL.                                        NC2174.2
148800*                                                                 NC2174.2
148900 STR-INIT-GF-24.                                                  NC2174.2
149000*    ===-->  BOTH "OVERFLOW" PHRASES  <--===                      NC2174.2
149100     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
149200     MOVE   "STR-TEST-GF-24" TO PAR-NAME.                         NC2174.2
149300     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
149400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
149500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
149600     MOVE    1 TO REC-CT.                                         NC2174.2
149700*                                                                 NC2174.2
149800 STR-TEST-GF-24-1.                                                NC2174.2
149900     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
150000             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
150100             ON OVERFLOW PERFORM PASS                             NC2174.2
150200                         GO TO STR-WRITE-GF-24-1                  NC2174.2
150300         NOT ON OVERFLOW GO TO STR-FAIL-GF-24-1.                  NC2174.2
150400 STR-DELETE-GF-24.                                                NC2174.2
150500     PERFORM DE-LETE.                                             NC2174.2
150600     PERFORM PRINT-DETAIL.                                        NC2174.2
150700     GO      TO STR-INIT-GF-25.                                   NC2174.2
150800 STR-FAIL-GF-24-1.                                                NC2174.2
150900     PERFORM FAIL.                                                NC2174.2
151000     MOVE    "NOT ON OVERFLOW SHOULD NOT OCCUR" TO RE-MARK.       NC2174.2
151100 STR-WRITE-GF-24-1.                                               NC2174.2
151200     PERFORM PRINT-DETAIL.                                        NC2174.2
151300*                                                                 NC2174.2
151400 STR-TEST-GF-24-2.                                                NC2174.2
151500     ADD     1 TO REC-CT.                                         NC2174.2
151600     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
151700             PERFORM PASS                                         NC2174.2
151800             GO TO STR-WRITE-GF-24-2                              NC2174.2
151900     ELSE                                                         NC2174.2
152000             GO TO STR-FAIL-GF-24-2.                              NC2174.2
152100 STR-DELETE-GF-24-2.                                              NC2174.2
152200     PERFORM DE-LETE.                                             NC2174.2
152300     GO TO STR-WRITE-GF-24-2.                                     NC2174.2
152400 STR-FAIL-GF-24-2.                                                NC2174.2
152500     PERFORM FAIL                                                 NC2174.2
152600     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
152700     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
152800 STR-WRITE-GF-24-2.                                               NC2174.2
152900     PERFORM PRINT-DETAIL.                                        NC2174.2
153000*                                                                 NC2174.2
153100 STR-TEST-GF-24-3.                                                NC2174.2
153200     ADD     1 TO REC-CT.                                         NC2174.2
153300     IF      ID8-DU-2V0 = 6                                       NC2174.2
153400             PERFORM PASS                                         NC2174.2
153500             GO TO STR-WRITE-GF-24-3                              NC2174.2
153600     ELSE                                                         NC2174.2
153700             GO TO STR-FAIL-GF-24-3.                              NC2174.2
153800 STR-DELETE-GF-24-3.                                              NC2174.2
153900     PERFORM DE-LETE.                                             NC2174.2
154000     GO TO STR-WRITE-GF-24-3.                                     NC2174.2
154100 STR-FAIL-GF-24-3.                                                NC2174.2
154200     PERFORM FAIL                                                 NC2174.2
154300     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
154400     MOVE    6 TO CORRECT-N.                                      NC2174.2
154500 STR-WRITE-GF-24-3.                                               NC2174.2
154600     PERFORM PRINT-DETAIL.                                        NC2174.2
154700*                                                                 NC2174.2
154800 STR-INIT-GF-25.                                                  NC2174.2
154900*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
155000     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
155100     MOVE   "STR-TEST-GF-25" TO PAR-NAME.                         NC2174.2
155200     MOVE   "LITERAL SERIES" TO FEATURE.                          NC2174.2
155300     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
155400     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
155500     MOVE    ZERO TO REC-CT.                                      NC2174.2
155600*                                                                 NC2174.2
155700 STR-TEST-GF-25-1.                                                NC2174.2
155800     STRING "A" "B" "C" "D" "E" DELIMITED "ABCDE" INTO ID7-XN-5   NC2174.2
155900             POINTER ID8-DU-2V0                                   NC2174.2
156000             ON OVERFLOW GO TO STR-FAIL-GF-25-1                   NC2174.2
156100         NOT ON OVERFLOW PERFORM PASS                             NC2174.2
156200                         GO TO STR-WRITE-GF-25-1.                 NC2174.2
156300 STR-DELETE-GF-25-1.                                              NC2174.2
156400     PERFORM DE-LETE.                                             NC2174.2
156500     PERFORM PRINT-DETAIL.                                        NC2174.2
156600     GO TO   STR-INIT-GF-26.                                      NC2174.2
156700 STR-FAIL-GF-25-1.                                                NC2174.2
156800     PERFORM FAIL.                                                NC2174.2
156900     MOVE   "ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK.    NC2174.2
157000 STR-WRITE-GF-25-1.                                               NC2174.2
157100     PERFORM PRINT-DETAIL.                                        NC2174.2
157200*                                                                 NC2174.2
157300 STR-TEST-GF-25-2.                                                NC2174.2
157400     MOVE   "STR-TEST-GF-25-1" TO PAR-NAME.                       NC2174.2
157500     MOVE    1 TO REC-CT.                                         NC2174.2
157600     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
157700             PERFORM PASS                                         NC2174.2
157800             GO TO STR-WRITE-GF-25-2                              NC2174.2
157900     ELSE                                                         NC2174.2
158000             GO TO STR-FAIL-GF-25-2.                              NC2174.2
158100 STR-DELETE-GF-25-2.                                              NC2174.2
158200     PERFORM DE-LETE.                                             NC2174.2
158300     GO TO STR-WRITE-GF-25-2.                                     NC2174.2
158400 STR-FAIL-GF-25-2.                                                NC2174.2
158500     PERFORM FAIL                                                 NC2174.2
158600     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
158700     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
158800 STR-WRITE-GF-25-2.                                               NC2174.2
158900     PERFORM PRINT-DETAIL.                                        NC2174.2
159000*                                                                 NC2174.2
159100 STR-TEST-GF-25-3.                                                NC2174.2
159200     ADD     1 TO REC-CT.                                         NC2174.2
159300     IF      ID8-DU-2V0 = 6                                       NC2174.2
159400             PERFORM PASS                                         NC2174.2
159500             GO TO STR-WRITE-GF-25-3                              NC2174.2
159600     ELSE                                                         NC2174.2
159700             GO TO STR-FAIL-GF-25-3.                              NC2174.2
159800 STR-DELETE-GF-25-3.                                              NC2174.2
159900     PERFORM DE-LETE.                                             NC2174.2
160000     GO TO STR-WRITE-GF-25-3.                                     NC2174.2
160100 STR-FAIL-GF-25-3.                                                NC2174.2
160200     PERFORM FAIL                                                 NC2174.2
160300     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
160400     MOVE    6 TO CORRECT-N.                                      NC2174.2
160500 STR-WRITE-GF-25-3.                                               NC2174.2
160600     PERFORM PRINT-DETAIL.                                        NC2174.2
160700*                                                                 NC2174.2
160800 STR-INIT-GF-26.                                                  NC2174.2
160900*    ===-->  EXPLICIT SCOPE TERMINATOR  <--===                    NC2174.2
161000     MOVE   "VI-132 6.24.4 GR11" TO ANSI-REFERENCE.               NC2174.2
161100     MOVE   "STR-TEST-GF-26" TO PAR-NAME.                         NC2174.2
161200     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
161300     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
161400     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
161500     MOVE    1 TO REC-CT.                                         NC2174.2
161600     MOVE    SPACE TO WRK-XN-00001-1.                             NC2174.2
161700     MOVE    SPACE TO WRK-XN-00001-2.                             NC2174.2
161800     MOVE    SPACE TO WRK-XN-00001-3.                             NC2174.2
161900*                                                                 NC2174.2
162000 STR-TEST-GF-26-0.                                                NC2174.2
162100     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
162200             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
162300             ON OVERFLOW                                          NC2174.2
162400             MOVE "A" TO WRK-XN-00001-1                           NC2174.2
162500             MOVE "B" TO WRK-XN-00001-2                           NC2174.2
162600         NOT ON OVERFLOW                                          NC2174.2
162700             MOVE "C" TO WRK-XN-00001-1                           NC2174.2
162800             MOVE "D" TO WRK-XN-00001-2                           NC2174.2
162900     END-STRING                                                   NC2174.2
163000     MOVE   "Z" TO WRK-XN-00001-3.                                NC2174.2
163100     GO TO   STR-TEST-GF-26-1.                                    NC2174.2
163200 STR-DELETE-GF-26.                                                NC2174.2
163300     PERFORM DE-LETE.                                             NC2174.2
163400     PERFORM PRINT-DETAIL.                                        NC2174.2
163500     GO      TO STR-INIT-GF-27.                                   NC2174.2
163600*                                                                 NC2174.2
163700 STR-TEST-GF-26-1.                                                NC2174.2
163800     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
163900             PERFORM PASS                                         NC2174.2
164000             GO TO STR-WRITE-GF-26-1                              NC2174.2
164100     ELSE                                                         NC2174.2
164200             GO TO STR-FAIL-GF-26-1.                              NC2174.2
164300 STR-DELETE-GF-26-1.                                              NC2174.2
164400     PERFORM DE-LETE.                                             NC2174.2
164500     GO TO STR-WRITE-GF-26-1.                                     NC2174.2
164600 STR-FAIL-GF-26-1.                                                NC2174.2
164700     PERFORM FAIL                                                 NC2174.2
164800     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
164900     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
165000 STR-WRITE-GF-26-1.                                               NC2174.2
165100     PERFORM PRINT-DETAIL.                                        NC2174.2
165200*                                                                 NC2174.2
165300 STR-TEST-GF-26-2.                                                NC2174.2
165400     ADD     1 TO REC-CT.                                         NC2174.2
165500     MOVE   "STR-TEST-GF-26-2" TO PAR-NAME.                       NC2174.2
165600     IF      ID8-DU-2V0 = 6                                       NC2174.2
165700             PERFORM PASS                                         NC2174.2
165800             GO TO STR-WRITE-GF-26-2                              NC2174.2
165900     ELSE                                                         NC2174.2
166000             GO TO STR-FAIL-GF-26-2.                              NC2174.2
166100 STR-DELETE-GF-26-2.                                              NC2174.2
166200     PERFORM DE-LETE.                                             NC2174.2
166300     GO TO STR-WRITE-GF-26-2.                                     NC2174.2
166400 STR-FAIL-GF-26-2.                                                NC2174.2
166500     PERFORM FAIL                                                 NC2174.2
166600     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
166700     MOVE    6 TO CORRECT-N.                                      NC2174.2
166800 STR-WRITE-GF-26-2.                                               NC2174.2
166900     PERFORM PRINT-DETAIL.                                        NC2174.2
167000*                                                                 NC2174.2
167100 STR-TEST-GF-26-3.                                                NC2174.2
167200     ADD     1 TO REC-CT.                                         NC2174.2
167300     IF      WRK-XN-00001-1 = "A"                                 NC2174.2
167400             PERFORM PASS                                         NC2174.2
167500             GO TO STR-WRITE-GF-26-3                              NC2174.2
167600     ELSE                                                         NC2174.2
167700             GO TO STR-FAIL-GF-26-3.                              NC2174.2
167800 STR-DELETE-GF-26-3.                                              NC2174.2
167900     PERFORM DE-LETE.                                             NC2174.2
168000     GO TO STR-WRITE-GF-26-3.                                     NC2174.2
168100 STR-FAIL-GF-26-3.                                                NC2174.2
168200     MOVE    WRK-XN-00001-1 TO COMPUTED-X                         NC2174.2
168300     MOVE   "A" TO CORRECT-X                                      NC2174.2
168400     MOVE   "ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK         NC2174.2
168500     PERFORM FAIL.                                                NC2174.2
168600 STR-WRITE-GF-26-3.                                               NC2174.2
168700     PERFORM PRINT-DETAIL.                                        NC2174.2
168800*                                                                 NC2174.2
168900 STR-TEST-GF-26-4.                                                NC2174.2
169000     ADD     1 TO REC-CT.                                         NC2174.2
169100     IF      WRK-XN-00001-2 = "B"                                 NC2174.2
169200             PERFORM PASS                                         NC2174.2
169300             GO TO STR-WRITE-GF-26-4                              NC2174.2
169400     ELSE                                                         NC2174.2
169500             GO TO STR-FAIL-GF-26-4.                              NC2174.2
169600 STR-DELETE-GF-26-4.                                              NC2174.2
169700     PERFORM DE-LETE.                                             NC2174.2
169800     GO TO STR-WRITE-GF-26-4.                                     NC2174.2
169900 STR-FAIL-GF-26-4.                                                NC2174.2
170000     MOVE    WRK-XN-00001-2 TO COMPUTED-X                         NC2174.2
170100     MOVE   "B" TO CORRECT-X                                      NC2174.2
170200     MOVE   "ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK         NC2174.2
170300     PERFORM FAIL.                                                NC2174.2
170400 STR-WRITE-GF-26-4.                                               NC2174.2
170500     PERFORM PRINT-DETAIL.                                        NC2174.2
170600*                                                                 NC2174.2
170700 STR-TEST-GF-26-5.                                                NC2174.2
170800     ADD     1 TO REC-CT.                                         NC2174.2
170900     IF      WRK-XN-00001-3 = "Z"                                 NC2174.2
171000             PERFORM PASS                                         NC2174.2
171100             GO TO STR-WRITE-GF-26-5                              NC2174.2
171200     ELSE                                                         NC2174.2
171300             GO TO STR-FAIL-GF-26-5.                              NC2174.2
171400 STR-DELETE-GF-26-5.                                              NC2174.2
171500     PERFORM DE-LETE.                                             NC2174.2
171600     GO TO STR-WRITE-GF-26-5.                                     NC2174.2
171700 STR-FAIL-GF-26-5.                                                NC2174.2
171800     MOVE    WRK-XN-00001-3 TO COMPUTED-X                         NC2174.2
171900     MOVE   "Z" TO CORRECT-X                                      NC2174.2
172000     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2174.2
172100     PERFORM FAIL.                                                NC2174.2
172200 STR-WRITE-GF-26-5.                                               NC2174.2
172300     PERFORM PRINT-DETAIL.                                        NC2174.2
172400*                                                                 NC2174.2
172500 STR-INIT-GF-27.                                                  NC2174.2
172600*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
172700     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
172800     MOVE   "STR-TEST-GF-27" TO PAR-NAME.                         NC2174.2
172900     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
173000     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
173100     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
173200     MOVE    ZERO TO REC-CT.                                      NC2174.2
173300     MOVE    SPACE TO WRK-XN-00001-1.                             NC2174.2
173400     MOVE    SPACE TO WRK-XN-00001-2.                             NC2174.2
173500     MOVE    SPACE TO WRK-XN-00001-3.                             NC2174.2
173600*                                                                 NC2174.2
173700 STR-TEST-GF-27-0.                                                NC2174.2
173800     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
173900             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
174000             ON OVERFLOW                                          NC2174.2
174100             MOVE "A" TO WRK-XN-00001-1                           NC2174.2
174200             MOVE "B" TO WRK-XN-00001-2                           NC2174.2
174300     END-STRING                                                   NC2174.2
174400     MOVE   "Z" TO WRK-XN-00001-3.                                NC2174.2
174500     GO TO   STR-TEST-GF-27-1.                                    NC2174.2
174600 STR-DELETE-GF-27.                                                NC2174.2
174700     PERFORM DE-LETE.                                             NC2174.2
174800     PERFORM PRINT-DETAIL.                                        NC2174.2
174900     GO TO   STR-INIT-GF-28.                                      NC2174.2
175000*                                                                 NC2174.2
175100 STR-TEST-GF-27-1.                                                NC2174.2
175200     MOVE    1 TO REC-CT.                                         NC2174.2
175300     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
175400             PERFORM PASS                                         NC2174.2
175500             GO TO STR-WRITE-GF-27-1                              NC2174.2
175600     ELSE                                                         NC2174.2
175700             GO TO STR-FAIL-GF-27-1.                              NC2174.2
175800 STR-DELETE-GF-27-1.                                              NC2174.2
175900     PERFORM DE-LETE.                                             NC2174.2
176000     GO TO STR-WRITE-GF-27-1.                                     NC2174.2
176100 STR-FAIL-GF-27-1.                                                NC2174.2
176200     PERFORM FAIL                                                 NC2174.2
176300     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
176400     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
176500 STR-WRITE-GF-27-1.                                               NC2174.2
176600     PERFORM PRINT-DETAIL.                                        NC2174.2
176700*                                                                 NC2174.2
176800 STR-TEST-GF-27-2.                                                NC2174.2
176900     ADD     1 TO REC-CT.                                         NC2174.2
177000     IF      ID8-DU-2V0 = 6                                       NC2174.2
177100             PERFORM PASS                                         NC2174.2
177200             GO TO STR-WRITE-GF-27-2                              NC2174.2
177300     ELSE                                                         NC2174.2
177400             GO TO STR-FAIL-GF-27-2.                              NC2174.2
177500 STR-DELETE-GF-27-2.                                              NC2174.2
177600     PERFORM DE-LETE.                                             NC2174.2
177700     GO TO STR-WRITE-GF-27-2.                                     NC2174.2
177800 STR-FAIL-GF-27-2.                                                NC2174.2
177900             PERFORM FAIL                                         NC2174.2
178000             MOVE    ID8-DU-2V0 TO COMPUTED-N                     NC2174.2
178100             MOVE    6 TO CORRECT-N.                              NC2174.2
178200 STR-WRITE-GF-27-2.                                               NC2174.2
178300             PERFORM PRINT-DETAIL.                                NC2174.2
178400*                                                                 NC2174.2
178500 STR-TEST-GF-27-3.                                                NC2174.2
178600     ADD     1 TO REC-CT.                                         NC2174.2
178700     IF      WRK-XN-00001-1 = "A"                                 NC2174.2
178800             PERFORM PASS                                         NC2174.2
178900             GO TO STR-WRITE-GF-27-3                              NC2174.2
179000     ELSE                                                         NC2174.2
179100             GO TO STR-FAIL-GF-27-3.                              NC2174.2
179200 STR-DELETE-GF-27-3.                                              NC2174.2
179300     PERFORM DE-LETE.                                             NC2174.2
179400     GO TO STR-WRITE-GF-27-3.                                     NC2174.2
179500 STR-FAIL-GF-27-3.                                                NC2174.2
179600     MOVE    WRK-XN-00001-1 TO COMPUTED-X                         NC2174.2
179700     MOVE   "A"    TO CORRECT-X                                   NC2174.2
179800     MOVE   "ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK         NC2174.2
179900     PERFORM FAIL.                                                NC2174.2
180000 STR-WRITE-GF-27-3.                                               NC2174.2
180100     PERFORM PRINT-DETAIL.                                        NC2174.2
180200*                                                                 NC2174.2
180300 STR-TEST-GF-27-4.                                                NC2174.2
180400     ADD     1 TO REC-CT.                                         NC2174.2
180500     IF      WRK-XN-00001-2 = "B"                                 NC2174.2
180600             PERFORM PASS                                         NC2174.2
180700             GO TO STR-WRITE-GF-27-4                              NC2174.2
180800     ELSE                                                         NC2174.2
180900             GO TO STR-FAIL-GF-27-4.                              NC2174.2
181000 STR-DELETE-GF-27-4.                                              NC2174.2
181100     PERFORM DE-LETE.                                             NC2174.2
181200     GO TO STR-WRITE-GF-27-4.                                     NC2174.2
181300 STR-FAIL-GF-27-4.                                                NC2174.2
181400     MOVE    WRK-XN-00001-2 TO COMPUTED-X                         NC2174.2
181500     MOVE   "B" TO CORRECT-X                                      NC2174.2
181600     MOVE   "ON OVERFLOW SHOULD HAVE EXECUTED" TO RE-MARK         NC2174.2
181700     PERFORM FAIL.                                                NC2174.2
181800 STR-WRITE-GF-27-4.                                               NC2174.2
181900     PERFORM PRINT-DETAIL.                                        NC2174.2
182000*                                                                 NC2174.2
182100 STR-TEST-GF-27-5.                                                NC2174.2
182200     ADD     1 TO REC-CT.                                         NC2174.2
182300     IF      WRK-XN-00001-3 = "Z"                                 NC2174.2
182400             PERFORM PASS                                         NC2174.2
182500             GO TO STR-WRITE-GF-27-5                              NC2174.2
182600     ELSE                                                         NC2174.2
182700             GO TO STR-FAIL-GF-27-5.                              NC2174.2
182800 STR-DELETE-GF-27-5.                                              NC2174.2
182900     PERFORM DE-LETE.                                             NC2174.2
183000     GO TO STR-WRITE-GF-27-5.                                     NC2174.2
183100 STR-FAIL-GF-27-5.                                                NC2174.2
183200     MOVE    WRK-XN-00001-3 TO COMPUTED-X                         NC2174.2
183300     MOVE   "Z" TO CORRECT-X                                      NC2174.2
183400     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2174.2
183500     PERFORM FAIL.                                                NC2174.2
183600 STR-WRITE-GF-27-5.                                               NC2174.2
183700     PERFORM PRINT-DETAIL.                                        NC2174.2
183800*                                                                 NC2174.2
183900 STR-INIT-GF-28.                                                  NC2174.2
184000*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
184100     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
184200     MOVE   "STR-TEST-GF-28" TO PAR-NAME.                         NC2174.2
184300     MOVE   "LITERAL SERIES" TO FEATURE.                          NC2174.2
184400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
184500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
184600     MOVE    ZERO TO REC-CT.                                      NC2174.2
184700     MOVE    SPACE TO WRK-XN-00001-1.                             NC2174.2
184800     MOVE    SPACE TO WRK-XN-00001-2.                             NC2174.2
184900     MOVE    SPACE TO WRK-XN-00001-3.                             NC2174.2
185000*                                                                 NC2174.2
185100 STR-TEST-GF-28-0.                                                NC2174.2
185200     STRING "A" "B" "C" "D" "E" DELIMITED "ABCDE" INTO ID7-XN-5   NC2174.2
185300             POINTER ID8-DU-2V0                                   NC2174.2
185400             ON OVERFLOW                                          NC2174.2
185500             MOVE "A" TO WRK-XN-00001-1                           NC2174.2
185600             MOVE "B" TO WRK-XN-00001-2                           NC2174.2
185700     END-STRING                                                   NC2174.2
185800     MOVE   "Z" TO WRK-XN-00001-3.                                NC2174.2
185900     GO TO   STR-TEST-GF-28-1.                                    NC2174.2
186000 STR-DELETE-GF-28.                                                NC2174.2
186100     PERFORM DE-LETE.                                             NC2174.2
186200     PERFORM PRINT-DETAIL.                                        NC2174.2
186300     GO TO   STR-INIT-GF-29.                                      NC2174.2
186400*                                                                 NC2174.2
186500 STR-TEST-GF-28-1.                                                NC2174.2
186600     MOVE    1 TO REC-CT.                                         NC2174.2
186700     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
186800             PERFORM PASS                                         NC2174.2
186900             GO TO STR-WRITE-GF-28-1                              NC2174.2
187000     ELSE                                                         NC2174.2
187100             GO TO STR-FAIL-GF-28-1.                              NC2174.2
187200 STR-DELETE-GF-28-1.                                              NC2174.2
187300     PERFORM DE-LETE.                                             NC2174.2
187400     GO TO STR-WRITE-GF-28-1.                                     NC2174.2
187500 STR-FAIL-GF-28-1.                                                NC2174.2
187600     PERFORM FAIL                                                 NC2174.2
187700     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
187800     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
187900 STR-WRITE-GF-28-1.                                               NC2174.2
188000     PERFORM PRINT-DETAIL.                                        NC2174.2
188100*                                                                 NC2174.2
188200 STR-TEST-GF-28-2.                                                NC2174.2
188300     ADD     1 TO REC-CT.                                         NC2174.2
188400     IF      ID8-DU-2V0 = 6                                       NC2174.2
188500             PERFORM PASS                                         NC2174.2
188600             GO TO STR-WRITE-GF-28-2                              NC2174.2
188700     ELSE                                                         NC2174.2
188800             GO TO STR-FAIL-GF-28-2.                              NC2174.2
188900 STR-DELETE-GF-28-2.                                              NC2174.2
189000     PERFORM DE-LETE.                                             NC2174.2
189100     GO TO STR-WRITE-GF-28-2.                                     NC2174.2
189200 STR-FAIL-GF-28-2.                                                NC2174.2
189300     PERFORM FAIL                                                 NC2174.2
189400     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
189500     MOVE    6 TO CORRECT-N.                                      NC2174.2
189600 STR-WRITE-GF-28-2.                                               NC2174.2
189700     PERFORM PRINT-DETAIL.                                        NC2174.2
189800*                                                                 NC2174.2
189900 STR-TEST-GF-28-3.                                                NC2174.2
190000     ADD     1 TO REC-CT.                                         NC2174.2
190100     IF      WRK-XN-00001-1 = SPACE                               NC2174.2
190200             PERFORM PASS                                         NC2174.2
190300             GO TO STR-WRITE-GF-28-3                              NC2174.2
190400     ELSE                                                         NC2174.2
190500             GO TO STR-FAIL-GF-28-3.                              NC2174.2
190600 STR-DELETE-GF-28-3.                                              NC2174.2
190700     PERFORM DE-LETE.                                             NC2174.2
190800     GO TO STR-WRITE-GF-28-3.                                     NC2174.2
190900 STR-FAIL-GF-28-3.                                                NC2174.2
191000     MOVE    WRK-XN-00001-1 TO COMPUTED-X                         NC2174.2
191100     MOVE    SPACE TO CORRECT-X                                   NC2174.2
191200     MOVE   "ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK     NC2174.2
191300     PERFORM FAIL.                                                NC2174.2
191400 STR-WRITE-GF-28-3.                                               NC2174.2
191500     PERFORM PRINT-DETAIL.                                        NC2174.2
191600*                                                                 NC2174.2
191700 STR-TEST-GF-28-4.                                                NC2174.2
191800     ADD     1 TO REC-CT.                                         NC2174.2
191900     IF      WRK-XN-00001-2 =  SPACE                              NC2174.2
192000             PERFORM PASS                                         NC2174.2
192100             GO TO STR-WRITE-GF-28-4                              NC2174.2
192200     ELSE                                                         NC2174.2
192300             GO TO STR-FAIL-GF-28-4.                              NC2174.2
192400 STR-DELETE-GF-28-4.                                              NC2174.2
192500     PERFORM DE-LETE.                                             NC2174.2
192600     GO TO STR-WRITE-GF-28-4.                                     NC2174.2
192700 STR-FAIL-GF-28-4.                                                NC2174.2
192800     MOVE    WRK-XN-00001-2 TO COMPUTED-X                         NC2174.2
192900     MOVE    SPACE TO CORRECT-X                                   NC2174.2
193000     MOVE   "ON OVERFLOW SHOULD NOT HAVE EXECUTED" TO RE-MARK     NC2174.2
193100     PERFORM FAIL.                                                NC2174.2
193200 STR-WRITE-GF-28-4.                                               NC2174.2
193300     PERFORM PRINT-DETAIL.                                        NC2174.2
193400*                                                                 NC2174.2
193500 STR-TEST-GF-28-5.                                                NC2174.2
193600     ADD     1 TO REC-CT.                                         NC2174.2
193700     IF      WRK-XN-00001-3 = "Z"                                 NC2174.2
193800             PERFORM PASS                                         NC2174.2
193900             GO TO STR-WRITE-GF-28-5                              NC2174.2
194000     ELSE                                                         NC2174.2
194100             GO TO STR-FAIL-GF-28-5.                              NC2174.2
194200 STR-DELETE-GF-28-5.                                              NC2174.2
194300     PERFORM DE-LETE.                                             NC2174.2
194400     GO TO STR-WRITE-GF-28-5.                                     NC2174.2
194500 STR-FAIL-GF-28-5.                                                NC2174.2
194600     MOVE    WRK-XN-00001-3 TO COMPUTED-X                         NC2174.2
194700     MOVE   "Z" TO CORRECT-X                                      NC2174.2
194800     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2174.2
194900     PERFORM FAIL.                                                NC2174.2
195000 STR-WRITE-GF-28-5.                                               NC2174.2
195100     PERFORM PRINT-DETAIL.                                        NC2174.2
195200*                                                                 NC2174.2
195300 STR-INIT-GF-29.                                                  NC2174.2
195400*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
195500     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
195600     MOVE   "STR-TEST-GF-29" TO PAR-NAME.                         NC2174.2
195700     MOVE   "LIT DEL BY LIT" TO FEATURE.                          NC2174.2
195800     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
195900     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
196000     MOVE    ZERO TO REC-CT.                                      NC2174.2
196100     MOVE    SPACE TO WRK-XN-00001-1.                             NC2174.2
196200     MOVE    SPACE TO WRK-XN-00001-2.                             NC2174.2
196300     MOVE    SPACE TO WRK-XN-00001-3.                             NC2174.2
196400*                                                                 NC2174.2
196500 STR-TEST-GF-29.                                                  NC2174.2
196600     STRING "ABCDEF" DELIMITED BY "ABCDEFG"                       NC2174.2
196700             INTO ID7-XN-5 WITH POINTER ID8-DU-2V0                NC2174.2
196800         NOT ON OVERFLOW                                          NC2174.2
196900             MOVE "A" TO WRK-XN-00001-1                           NC2174.2
197000             MOVE "B" TO WRK-XN-00001-2                           NC2174.2
197100     END-STRING                                                   NC2174.2
197200     MOVE   "Z" TO WRK-XN-00001-3.                                NC2174.2
197300     GO TO   STR-TEST-GF-29-1.                                    NC2174.2
197400 STR-DELETE-GF-29.                                                NC2174.2
197500     PERFORM DE-LETE.                                             NC2174.2
197600     PERFORM PRINT-DETAIL.                                        NC2174.2
197700     GO TO   STR-INIT-GF-30.                                      NC2174.2
197800*                                                                 NC2174.2
197900 STR-TEST-GF-29-1.                                                NC2174.2
198000     MOVE    1 TO REC-CT.                                         NC2174.2
198100     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
198200             PERFORM PASS                                         NC2174.2
198300             GO TO STR-WRITE-GF-29-1                              NC2174.2
198400     ELSE                                                         NC2174.2
198500             GO TO STR-FAIL-GF-29-1.                              NC2174.2
198600 STR-DELETE-GF-29-1.                                              NC2174.2
198700     PERFORM DE-LETE.                                             NC2174.2
198800     GO TO STR-WRITE-GF-29-1.                                     NC2174.2
198900 STR-FAIL-GF-29-1.                                                NC2174.2
199000     PERFORM FAIL                                                 NC2174.2
199100     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
199200     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
199300 STR-WRITE-GF-29-1.                                               NC2174.2
199400     PERFORM PRINT-DETAIL.                                        NC2174.2
199500*                                                                 NC2174.2
199600 STR-TEST-GF-29-2.                                                NC2174.2
199700     ADD     1 TO REC-CT.                                         NC2174.2
199800     IF      ID8-DU-2V0 = 6                                       NC2174.2
199900             PERFORM PASS                                         NC2174.2
200000             GO TO STR-WRITE-GF-29-2                              NC2174.2
200100     ELSE                                                         NC2174.2
200200             GO TO STR-FAIL-GF-29-2.                              NC2174.2
200300 STR-DELETE-GF-29-2.                                              NC2174.2
200400     PERFORM DE-LETE.                                             NC2174.2
200500     GO TO STR-WRITE-GF-29-2.                                     NC2174.2
200600 STR-FAIL-GF-29-2.                                                NC2174.2
200700     PERFORM FAIL                                                 NC2174.2
200800     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
200900     MOVE    6 TO CORRECT-N.                                      NC2174.2
201000 STR-WRITE-GF-29-2.                                               NC2174.2
201100     PERFORM PRINT-DETAIL.                                        NC2174.2
201200*                                                                 NC2174.2
201300 STR-TEST-GF-29-3.                                                NC2174.2
201400     ADD     1 TO REC-CT.                                         NC2174.2
201500     IF      WRK-XN-00001-1 = SPACE                               NC2174.2
201600             PERFORM PASS                                         NC2174.2
201700             GO TO STR-WRITE-GF-29-3                              NC2174.2
201800     ELSE                                                         NC2174.2
201900             GO TO STR-FAIL-GF-29-3.                              NC2174.2
202000 STR-DELETE-GF-29-3.                                              NC2174.2
202100     PERFORM DE-LETE.                                             NC2174.2
202200     GO TO STR-WRITE-GF-29-3.                                     NC2174.2
202300 STR-FAIL-GF-29-3.                                                NC2174.2
202400     MOVE    WRK-XN-00001-1 TO COMPUTED-X                         NC2174.2
202500     MOVE    SPACE TO CORRECT-X                                   NC2174.2
202600     MOVE   "NOT ON OVERFLOW SHOULD NOT HAVE EXECUTED"            NC2174.2
202700          TO RE-MARK                                              NC2174.2
202800     PERFORM FAIL.                                                NC2174.2
202900 STR-WRITE-GF-29-3.                                               NC2174.2
203000     PERFORM PRINT-DETAIL.                                        NC2174.2
203100*                                                                 NC2174.2
203200 STR-TEST-GF-29-4.                                                NC2174.2
203300     ADD     1 TO REC-CT.                                         NC2174.2
203400     IF      WRK-XN-00001-2 = SPACE                               NC2174.2
203500             PERFORM PASS                                         NC2174.2
203600             GO TO STR-WRITE-GF-29-4                              NC2174.2
203700     ELSE                                                         NC2174.2
203800             GO TO STR-FAIL-GF-29-4.                              NC2174.2
203900 STR-DELETE-GF-29-4.                                              NC2174.2
204000     PERFORM DE-LETE.                                             NC2174.2
204100     GO TO STR-WRITE-GF-29-4.                                     NC2174.2
204200 STR-FAIL-GF-29-4.                                                NC2174.2
204300     MOVE    WRK-XN-00001-2 TO COMPUTED-X                         NC2174.2
204400     MOVE    SPACE TO CORRECT-X                                   NC2174.2
204500     MOVE   "NOT ON OVERFLOW SHOULD NOT HAVE EXECUTED"            NC2174.2
204600          TO RE-MARK                                              NC2174.2
204700     PERFORM FAIL.                                                NC2174.2
204800 STR-WRITE-GF-29-4.                                               NC2174.2
204900     PERFORM PRINT-DETAIL.                                        NC2174.2
205000*                                                                 NC2174.2
205100 STR-TEST-GF-29-5.                                                NC2174.2
205200     ADD     1 TO REC-CT.                                         NC2174.2
205300     IF      WRK-XN-00001-3 = "Z"                                 NC2174.2
205400             PERFORM PASS                                         NC2174.2
205500             GO TO STR-WRITE-GF-29-5                              NC2174.2
205600     ELSE                                                         NC2174.2
205700             GO TO STR-FAIL-GF-29-5.                              NC2174.2
205800 STR-DELETE-GF-29-5.                                              NC2174.2
205900     PERFORM DE-LETE.                                             NC2174.2
206000     GO TO STR-WRITE-GF-29-5.                                     NC2174.2
206100 STR-FAIL-GF-29-5.                                                NC2174.2
206200     MOVE    WRK-XN-00001-3 TO COMPUTED-X                         NC2174.2
206300     MOVE   "Z" TO CORRECT-X                                      NC2174.2
206400     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2174.2
206500     PERFORM FAIL.                                                NC2174.2
206600 STR-WRITE-GF-29-5.                                               NC2174.2
206700     PERFORM PRINT-DETAIL.                                        NC2174.2
206800*                                                                 NC2174.2
206900 STR-INIT-GF-30.                                                  NC2174.2
207000*    ===--> "NOT ON OVERFLOW" PHRASE  <--===                      NC2174.2
207100     MOVE   "VI-132 6.24.4 GR9, 10" TO ANSI-REFERENCE.            NC2174.2
207200     MOVE   "STR-TEST-GF-30" TO PAR-NAME.                         NC2174.2
207300     MOVE   "LITERAL SERIES" TO FEATURE.                          NC2174.2
207400     MOVE    "*****" TO ID7-XN-5.                                 NC2174.2
207500     MOVE    1 TO ID8-DU-2V0.                                     NC2174.2
207600     MOVE    ZERO TO REC-CT.                                      NC2174.2
207700     MOVE    SPACE TO WRK-XN-00001-1.                             NC2174.2
207800     MOVE    SPACE TO WRK-XN-00001-2.                             NC2174.2
207900     MOVE    SPACE TO WRK-XN-00001-3.                             NC2174.2
208000*                                                                 NC2174.2
208100 STR-TEST-GF-30.                                                  NC2174.2
208200     STRING "A" "B" "C" "D" "E" DELIMITED "ABCDE" INTO ID7-XN-5   NC2174.2
208300             POINTER ID8-DU-2V0                                   NC2174.2
208400         NOT ON OVERFLOW                                          NC2174.2
208500             MOVE "A" TO WRK-XN-00001-1                           NC2174.2
208600             MOVE "B" TO WRK-XN-00001-2                           NC2174.2
208700     END-STRING                                                   NC2174.2
208800     MOVE   "Z" TO WRK-XN-00001-3.                                NC2174.2
208900     GO TO   STR-TEST-GF-30-1.                                    NC2174.2
209000 STR-DELETE-GF-30.                                                NC2174.2
209100     PERFORM DE-LETE.                                             NC2174.2
209200     PERFORM PRINT-DETAIL.                                        NC2174.2
209300     GO TO   CCVS-EXIT.                                           NC2174.2
209400*                                                                 NC2174.2
209500 STR-TEST-GF-30-1.                                                NC2174.2
209600     MOVE    1 TO REC-CT.                                         NC2174.2
209700     IF      ID7-XN-5 = "ABCDE"                                   NC2174.2
209800             PERFORM PASS                                         NC2174.2
209900             GO TO STR-WRITE-GF-30-1                              NC2174.2
210000     ELSE                                                         NC2174.2
210100             GO TO STR-FAIL-GF-30-1.                              NC2174.2
210200 STR-DELETE-GF-30-1.                                              NC2174.2
210300     PERFORM DE-LETE.                                             NC2174.2
210400     GO TO STR-WRITE-GF-30-1.                                     NC2174.2
210500 STR-FAIL-GF-30-1.                                                NC2174.2
210600     PERFORM FAIL                                                 NC2174.2
210700     MOVE    ID7-XN-5 TO COMPUTED-A                               NC2174.2
210800     MOVE   "ABCDE" TO CORRECT-A.                                 NC2174.2
210900 STR-WRITE-GF-30-1.                                               NC2174.2
211000     PERFORM PRINT-DETAIL.                                        NC2174.2
211100*                                                                 NC2174.2
211200 STR-TEST-GF-30-2.                                                NC2174.2
211300     ADD     1 TO REC-CT.                                         NC2174.2
211400     IF      ID8-DU-2V0 = 6                                       NC2174.2
211500             PERFORM PASS                                         NC2174.2
211600             GO TO STR-WRITE-GF-30-2                              NC2174.2
211700     ELSE                                                         NC2174.2
211800             GO TO STR-FAIL-GF-30-2.                              NC2174.2
211900 STR-DELETE-GF-30-2.                                              NC2174.2
212000     PERFORM DE-LETE.                                             NC2174.2
212100     GO TO STR-WRITE-GF-30-2.                                     NC2174.2
212200 STR-FAIL-GF-30-2.                                                NC2174.2
212300     PERFORM FAIL                                                 NC2174.2
212400     MOVE    ID8-DU-2V0 TO COMPUTED-N                             NC2174.2
212500     MOVE    6 TO CORRECT-N.                                      NC2174.2
212600 STR-WRITE-GF-30-2.                                               NC2174.2
212700     PERFORM PRINT-DETAIL.                                        NC2174.2
212800*                                                                 NC2174.2
212900 STR-TEST-GF-30-3.                                                NC2174.2
213000     ADD     1 TO REC-CT.                                         NC2174.2
213100     IF      WRK-XN-00001-1 = "A"                                 NC2174.2
213200             PERFORM PASS                                         NC2174.2
213300             GO TO STR-WRITE-GF-30-3                              NC2174.2
213400     ELSE                                                         NC2174.2
213500             GO TO STR-FAIL-GF-30-3.                              NC2174.2
213600 STR-DELETE-GF-30-3.                                              NC2174.2
213700     PERFORM DE-LETE.                                             NC2174.2
213800     GO TO STR-WRITE-GF-30-3.                                     NC2174.2
213900 STR-FAIL-GF-30-3.                                                NC2174.2
214000     MOVE    WRK-XN-00001-1 TO COMPUTED-X                         NC2174.2
214100     MOVE   "A"    TO CORRECT-X                                   NC2174.2
214200     MOVE   "NOT ON OVERFLOW SHOULD HAVE EXECUTED"                NC2174.2
214300          TO RE-MARK                                              NC2174.2
214400     PERFORM FAIL.                                                NC2174.2
214500 STR-WRITE-GF-30-3.                                               NC2174.2
214600     PERFORM PRINT-DETAIL.                                        NC2174.2
214700*                                                                 NC2174.2
214800 STR-TEST-GF-30-4.                                                NC2174.2
214900     ADD     1 TO REC-CT.                                         NC2174.2
215000     IF      WRK-XN-00001-2 =  "B"                                NC2174.2
215100             PERFORM PASS                                         NC2174.2
215200             GO TO STR-WRITE-GF-30-4                              NC2174.2
215300     ELSE                                                         NC2174.2
215400             GO TO STR-FAIL-GF-30-4.                              NC2174.2
215500 STR-DELETE-GF-30-4.                                              NC2174.2
215600     PERFORM DE-LETE.                                             NC2174.2
215700     GO TO STR-WRITE-GF-30-4.                                     NC2174.2
215800 STR-FAIL-GF-30-4.                                                NC2174.2
215900     MOVE    WRK-XN-00001-2 TO COMPUTED-X                         NC2174.2
216000     MOVE   "B"    TO CORRECT-X                                   NC2174.2
216100     MOVE   "NOT ON OVERFLOW SHOULD HAVE EXECUTED"                NC2174.2
216200          TO RE-MARK                                              NC2174.2
216300     PERFORM FAIL.                                                NC2174.2
216400 STR-WRITE-GF-30-4.                                               NC2174.2
216500     PERFORM PRINT-DETAIL.                                        NC2174.2
216600*                                                                 NC2174.2
216700 STR-TEST-GF-30-5.                                                NC2174.2
216800     ADD     1 TO REC-CT.                                         NC2174.2
216900     IF      WRK-XN-00001-3 = "Z"                                 NC2174.2
217000             PERFORM PASS                                         NC2174.2
217100             GO TO STR-WRITE-GF-30-5                              NC2174.2
217200     ELSE                                                         NC2174.2
217300             GO TO STR-FAIL-GF-30-5.                              NC2174.2
217400 STR-DELETE-GF-30-5.                                              NC2174.2
217500     PERFORM DE-LETE.                                             NC2174.2
217600     GO TO STR-WRITE-GF-30-5.                                     NC2174.2
217700 STR-FAIL-GF-30-5.                                                NC2174.2
217800     MOVE    WRK-XN-00001-3 TO COMPUTED-X                         NC2174.2
217900     MOVE   "Z" TO CORRECT-X                                      NC2174.2
218000     MOVE   "SCOPE TERMINATOR IGNORED" TO RE-MARK                 NC2174.2
218100     PERFORM FAIL.                                                NC2174.2
218200 STR-WRITE-GF-30-5.                                               NC2174.2
218300     PERFORM PRINT-DETAIL.                                        NC2174.2
218400*                                                                 NC2174.2
218500 CCVS-EXIT SECTION.                                               NC2174.2
218600 CCVS-999999.                                                     NC2174.2
218700     GO TO CLOSE-FILES.                                           NC2174.2