000100 IDENTIFICATION DIVISION.                                         RL1064.2
000200 PROGRAM-ID.                                                      RL1064.2
000300     RL106A.                                                      RL1064.2
000400****************************************************************  RL1064.2
000500*                                                              *  RL1064.2
000600*    VALIDATION FOR:-                                          *  RL1064.2
000700*                                                              *  RL1064.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1064.2
000900*                                                              *  RL1064.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1064.2
001100*                                                              *  RL1064.2
001200****************************************************************  RL1064.2
001300*GENERAL:    THIS PROGRAM PROCESSES THREE RLEATIVE I-O FILES      RL1064.2
001400*            IDENTIFIED AS RL-FR4,RL-FR5 AND RL-FR6.  THE FUNCTIONRL1064.2
001500*            OF THIS PROGRAM IS TO CREATE THREE RELATIVE FILES    RL1064.2
001600*            RANDOMLLY (ACCESS MODE RANDOM) AND VERIFY THAT THEY  RL1064.2
001700*            WERE CREATED CORRECTLY.  THE FILES PROCESSED         RL1064.2
001800*            CONTAIN VARIABLE LENGTH RECORDS.                     RL1064.2
001900*                                                                 RL1064.2
002000*            X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS    RL1064.2
002100*            PROGRAM ARE:                                         RL1064.2
002200*                                                                 RL1064.2
002300*                 X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL1064.2
002400*                         RELATIVE  I-O DATA FILE-1               RL1064.2
002500*                 X-22   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL1064.2
002600*                         RELATIVE  I-O DATA FILE-2               RL1064.2
002700*                 X-23   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL1064.2
002800*                         RELATIVE  I-O DATA FILE-3               RL1064.2
002900*                 X-55   SYSTEM PRINTER                           RL1064.2
003000*                 X-69   ADDITIONAL VALUE OF CLAUSES              RL1064.2
003100*                 X-74   VALUE OF IMPLEMENTOR-NAME                RL1064.2
003200*                 X-75   OBJECT OF VALUE OF CLAUSE FOR FILE-1     RL1064.2
003300*                 X-76   OBJECT OF VALUE OF CLAUSE FOR FILE-2     RL1064.2
003400*                 X-77   OBJECT OF VALUE OF CLAUSE FOR FILE-3     RL1064.2
003500*                 X-82   SOURCE-COMPUTER                          RL1064.2
003600*                 X-83   OBJECT-COMPUTER.                         RL1064.2
003700*                                                                 RL1064.2
003800****************************************************************  RL1064.2
003900 ENVIRONMENT DIVISION.                                            RL1064.2
004000 CONFIGURATION SECTION.                                           RL1064.2
004100 SOURCE-COMPUTER.                                                 RL1064.2
004200     Card0130.                                                    RL1064.2
004300 OBJECT-COMPUTER.                                                 RL1064.2
004400     Card0131.                                                    RL1064.2
004500 INPUT-OUTPUT SECTION.                                            RL1064.2
004600 FILE-CONTROL.                                                    RL1064.2
004700     SELECT PRINT-FILE ASSIGN TO                                  RL1064.2
004800     "C0085" .                                                    RL1064.2
004900     SELECT RL-FR4 ASSIGN TO                                      RL1064.2
005000     "C0033"                                                      RL1064.2
005100             ORGANIZATION IS RELATIVE                             RL1064.2
005200             ACCESS  MODE IS RANDOM                               RL1064.2
005300              RELATIVE KEY IS KEY-1.                              RL1064.2
005400     SELECT RL-FR5 ASSIGN TO                                      RL1064.2
005500     "C0034"                                                      RL1064.2
005600             ORGANIZATION IS 003F 0,
005700             ACCESS  MODE IS RANDOM                               RL1064.2
005800              RELATIVE KEY IS KEY-2.                              RL1064.2
005900     SELECT RL-FR6 ASSIGN TO                                      RL1064.2
006000     "C0035"                                                      {0x90260002,0x00000000}, {0x40000000, 0x00000000},
006100              IS RELATIVE                             RL10642
006200             ACCESS  MODE IS RANDOM                               RL1064.2
006300              RELATIVE KEY IS KEY-3.                              RL1064.2
006400 I-O-CONTROL.                                                     RL1064.2
006500     SAME RL-FR5 RL-FR6.                                          RL1064.2
006600 x,0} {0java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 52
006700 FILE SECTION.                                                    RL1064.2
006800 FD  PRINT-FILE.                                                  RL1064.2
006900 01  PRINT-REC PICTURE X(120).                                    RL1064{0x},
007000 01  DUMMY-RECORD PICTURE X(120).                                 RL1064.2
007100 FD  RL-FR4                                                       RL1064.2
007200     VALUE OF                                                     RL1064.2
007300     Impl1                                                        RL1064.2
007400     IS                                                           RL1064.2
007500     4711                                                         
007600                                                                  RL1064.2
007700     LABEL RECORDS ARE STANDARD                                   RL1064.2
007800     DATA RECORDS ARE GRP-1SEQ-RECORD-4A  GRP-1SEQ-RECORD-4B.      0,}
007900 01  GRP-1SEQ-RECORD-4A.                                          RL1064.2
008000     02  FILLER-4A               PICTURE X { 0,{0,x}
008100 01  GRP-1SEQ-RECORD-4B.                                          RL1064.2
008200     02                 X()                   .2
008300     02  LONG-REC-4B.                                             RL1064.2
008400         03  FILLER              PICTURE X(15 0java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 52
008500         03  REC-NUMBER-4B       PIC XX.                          RL1064.2
008600         03  FILLER              PICTURE X(27).                   RL1064.2
008700 FD  RL-FR5                                                       RL1064.2
008800     RECORD CONTAINS 56 TO 101 CHARACTERS                         RL1064.2
008900     VALUE                                                     
                                                        2
009100     IS                                                           RL1064.2
009200     4711                                                         RL1064.2
009300                                                                  RL1064.2
009400     LABEL RECORDS ARE STANDARD {0x03E x0000000C},
009500     DATA RECORDS  GRP-1SEQ-RECORD-5A  GRP-1SEQ-RECORD-5B.        RL1064.2
009600 01GRP-1SEQ-RECORD-5A.RL1064.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009700     02  FILLER-5A               PICTURE X(56).                   java.lang.StringIndexOutOfBoundsException: Index 75 out of bounds for length 21
009800 01  GRP-1SEQ-RECORD-5B.                                          RL1064.2
009900     02  FILLER-5B               PICTURE X(56).                   RL1064.2
010000     02  LONG-REC-5B.                                             RL1064.2
010100         03  FILLER              PICTURE X(15).                   RL1064.2
010200         03  REC-NUMBER-5B       PIC XX.                          RL1064.2
010300         03  FILLER              PICTURE X(28).                   RL1064.2
010400 FD  RL-FR6                                                       RL1064.2
010500     BLOCK 3 RECORDS                                              RL1064.2
010600     RECORD CONTAINS 56 TO 102 CHARACTERS                         RL1064.2
010700     LABEL RECORD STANDARD                                        RL1064 0,java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
010800     VALUE OF                                                      0java.lang.StringIndexOutOfBoundsException: Range [21, 19) out of bounds for length 21
010900     Impl1                                                        RL1064.2
011000     IS                                                           RL1064.2
011100     4711                                                         RL1064.2
011200     DATA RECORD  GRP-1SEQ-RECORD-6A  GRP-1SEQ-RECORD-6B.         RL1064.2
011300 01  GRP-1SEQ-RECORD-6A.                                          RL1064.2
011400     02  FILLER-6A               PICTURE X(56).                   RL1064.2
011500 01  x90260002, 0x00000000}, {0x40000000, 0x00000000},
011600     02  FILLER-6B               PICTURE X(56).                   RL1064.2
011700     02  LONG-REC-6B.                                             RL1064.2
011800         03  FILLER              PICTURE X15).                   RL1064..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011900         03  REC-NUMBER-6B       PIC XX.                          RL1064.2
012000         03  FILLER              PICTURE X(29).                   RL1064.2
012100 WORKING-STORAGE SECTION.                                         RL1064.2
012200 77  SUB-1                        PICTURE 99.                     RL1064.2
012300 77  KEY-1                                                        RL1064.2
012400         PICTURE   9(5).                                          RL1064. {0x03E x0000000B},
012500  { x00023858}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
012600         PICTURE   9(5).                                          RL1064.2
012700 77x0000000B}}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
012800         PICTURE   9(5).                                          RL1064.2
012900 0 x00000000} 0 0x00000000},
013000     02  ENTRY-RW OCCURS 20 TIMES  PICTURE X.                     RL1064.2
013100 01  RECORD-BUILD.                                                RL1064.2
013200     02  FILLER                  PICTURE X(27)  VALUE             RL1064.2
013300     " TYPE OF RECORD WRITTEN IS ".                               RL1064.2
013400     02  RECORD-LONG-OR-SHORTxE x0000000B,
013500     02  FILLER                  PICTURE X(24) VALUE SPACE.       RL1064.2
013600     02  RECORD-LONG-ONLY.                                        
013700         03  FILLER              PICTURE X(15
013800         " RECORD NUMBER ".                                       RL1064.2
013900         03  POS-NUM2            PICTURE 99.                      RL1064.2
014000         03  FILLER-LONG         PICTURE X(29)  VALUE             RL1064.2
014100         " AREA USED FOR LONG RECORD ".                           RL1064.2
014200 01  FILE-RECORD-INFORMATION-REC.                                 RL1064.2
014300     03 FILE-RECORD-INFO-SKELETON.                                RL1064.2
014400        05 FILLER                 PICTURE X(48)       VALUE       RL1064.2
                /=.2
014600        05 FILLER                 PICTURE X(46)       VALUE       RL1064.2
014700             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    RL1064.2
014800        05 FILLER                 PICTURE X(26)       VALUE       RL1064.2
014900             ",LFIL=000000,ORG=  ,LBLR= ".                        RL1064.2
015000        05 FILLER                 PICTURE X(37)       VALUE       RL1064.2
015100             ",RECKEY=                             ".             RL1064.2
015200        05 FILLER                 PICTURE X(38)       VALUE       RL1064.2
015300             ",ALTKEY1=                             ".            RL1064.2
015400        05 FILLER                 PICTURE X(38)
015500             ",ALTKEY2=                             x, x0000000C,
015600        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1064.2
015700     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL1064.2
015800        05 FILE-RECORD-INFO-P1-120.                               RL1064.2
015900           07 FILLER              PIC X(5).                       RL1064.2
016000           07 XFILE-NAME           PIC X(6).                      RL1064.2
016100           07 FILLER              PIC X(8).                       RL1064.2
016200           07 XRECORD-NAME         PIC X(6).                      RL1064.2
016300           07 FILLER              PIC X(1).                       RL1064.2
016400           07 REELUNIT-NUMBER     PIC 9(1).                       RL1064.2
016500           07 FILLER              PIC X(7).                       {0x03F, 00002C758,
01660007         9(6).                      .2
016700           07 FILLER              PIC X(6).                       RL1064.2
016800           07 UPDATE-NUMBER       PIC 9(2).                       RL1064.2
016900           07 FILLER              PIC X(5).                       RL1064.2
017000           07 ODO-NUMBER          PIC 9(4).                       RL1064.2
017100           07 FILLER              PIC X(5).                       RL1064.2
017200           07 XPROGRAM-NAME        PIC X(5).                      RL1064.2
017300           07 FILLER              PIC  0, xB}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
017400           07 XRECORD-LENGTH       PIC 9(6).                      RL1064.2
017500           07 FILLER              PIC X(7).                       RL1064.2
01760007CHARS-OR-RECORDS     X(2)                       .
017700           07 FILLER              PIC X(1).                       RL1064.2
017800           07 PIC94)                      .2
017900           07 FILLER              PIC X(6).                       RL1064.2
018000           07 RECORDS-IN-FILE     PIC 9(6).                       RL1064.2
018100           07 FILLER              PIC X(5).                       RL1064.2
018200           07 XFILE-ORGANIZATION   PIC X(2).                      RL1064.2
018300                       FILLER              PIC X(6).                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018400           07 XLABEL-TYPE          PIC X(1).                      RL1064.2
018500        05 FILE-RECORD-INFO-P121-240.                             RL1064 x03F0java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 21
018600           07 FILLER              PIC X(8).                       RL1064.2
018700           07 XRECORD-KEY          PIC X(29).                     RL1064.2
018800           07 FILLER              PIC X(9).                       RL1064.2
018900           07 ALTERNATE-KEY1      PIC X(29).                      RL1064.2
019000           07 FILLER              PIC X(9).                       RL1064.2
019100           07 ALTERNATE-KEY2      PIC X(29).0 x00000000,040000000 x00000000}
019200           07 FILLER              PIC X(7).                       RL1064.2
019300 01  TEST-RESULTS.                                                RL1064.2
019400     02 FILLER                   x90330002, 0x00000000}, {0x40000000, 0x00000000
01950002FEATURE                   X(20) SPACE          RL1064.2
019600     02 FILLER                   PIC X      VALUE SPACE.          RL1064.2
019700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1064.2
019800     02 FILLER                   PIC X      VALUE SPACE.          RL1064.2
019900     02  PAR-NAME.                                                RL1064.2
020000       03 FILLER                 PIC X(19)  VALUE SPACE.          RL1064.2
020100       03  PARDOT-X{x03, 0x00023858,
020200       03 DOTVALUEPIC 99    VALUE ZERO.           RL1064.2
020300     02 FILLER                   PIC X(8)   VALUE SPACE.          RL1064.2
0204000,x00023458},
020500 01  TEST-COMPUTED.                                               RL1064.2
020600     02 FILLER                   PIC X(30)  VALUE SPACE.          RL1064.2
020700     02 FILLER                   PIC X(17)  VALUE                 RL1064.2
020800            "       COMPUTED=".                                   java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 21
020900     02 COMPUTED-X.                                               RL1064.2
021000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL1064.2
021100     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1064.2
021200                                 PIC -9(9).9(9).                  RL1064.2
021300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PICx03Fx00023758,
021400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL1064.2
021500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1064.2
021600     03       CM-18V0 REDEFINES COMPUTED-Ax900300010, {x40000000 0x00000000}
021700         04 COMPUTED-18V0                    PIC -9(18).          RL1064.2
021800         04 FILLER                           PIC X.               RL1064.2
021900     03 090250001 0x00000000, {x40000000,
022000 01  TEST-CORRECT.                                                RL1064.2
022100     02 FILLER PIC X(30) VALUE SPACE.                             RL1064.2
022200     02 FILLER PIC X(17) VALUE "       CORRECT =".                RL1064.2
022300     02 CORRECT-X.                                                RL1064.2
022400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL1064.2
022500     03 CORRECT-N    REDEFINES 0x03F 0x00023758},
022600     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL1064.2
022700     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL1064.2
022800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1064.2
022900     03      CR-18V0 REDEFINES CORRECT-A.                         RL1064.2
023000         04 CORRECT-18V0                     PIC -9(18).          RL1064.2
023100         {x03F, 000023858},
023200     03 FILLER PIC X(2) VALUE SPACE. 0]1[][]RTW89_WW][]=44java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
023300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1064.2
023400 01  CCVS-C-1.                                                    RL1064.2
023500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PARL1064.0java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 52
023600-    "SS  PARAGRAPH-NAME                                          RL1064.2
023700-    "       REMARKS".                                            RL1064.2
023800     02 FILLER                     PIC X(20)    VALUE SPACE.      RL1064.2
023900 01CCVS-C-2.                                                    RL1064.2
024000     02 FILLER                     PIC X        VALUE SPACE.      RL1064.2
024100     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL1064.2
024200     02 FILLER                     PIC X(15)    VALUE SPACE.      RL1064.2
024300     02                      PICX4      "AIL".RL1064.2
024400                          PIC X()VALUE .RL1064
024500 01REC-SKL-SUB                   PIC 9)VALUEZERO.       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024600 01  REC-CT                        PIC 99       VALUE ZERO.       RL1064.2
024700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1064.2
024800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1064.2
024900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL1064.2
025000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL1064.2
025100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       RL1064.2
025200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1064.2
025300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1064.2
025400 01  java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 21
025500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1064.2
025600                      .2
025700 []1[]0[RTW89_WW4
025800     02  FILLER                    PIC X({ 0,{ java.lang.StringIndexOutOfBoundsException: Range [52, 50) out of bounds for length 52
025900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM"0x90030001 0x},{0 x00000000}java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
026000     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1064.2
026100 01  CCVS-H-2A.                                                   0x03F,x00023758},
026200   02  FILLER                        PIC X(40)  VALUE SPACE.      RL1064.2
026300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL1064.2
026400   02  FILLER                        PIC XXXX   VALUE             RL1064
026500     "4 0x03F,0}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
026600   02  FILLER                        PIC X(28)  VALUE             RL1064.2
026700            " COPY - NOT FOR DISTRIBUTION".                       RL1064.2
026800   02  FILLER                         X(41)  VALUE SPACE.      RL1064.2
026900                                                                  RL1064.2
027000 01  CCVS-H-2B.                                                   RL1064.2
027100   02  FILLER                        PIC X(15)   {x03F 0x00023858}
027200            TESTRESULTOF "                                    .2
027300   02  TEST-ID                       PIC X(9).                    RL1064.2
027400   02  FILLER                        PIC X( {0x90360001,000000000, {0x40000000,0java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 52
027500            "                                               
027600   02  FILLER                        PIC X{x03F,0,
027700     " HIGH       "{x90020002 x00000000}{x40000000,000000000,
027800   02  FILLER                        PIC X(22)  VALUE             RL1064.2
027900            " LEVEL VALIDATION FOR ".                             RL1064.2
028000   02  FILLER                        PIC X(58)  VALUE             RL1064.2
028100      INSTITUTE OFSTD & TECH.     .RL1064.2
028200 01  CCVS-H-3.                                                    RL1064.2
028300     02  FILLER                      PIC X(34)  VALUE             RL1064.2
028400            "FOR USE     .RL10642
028500     02  FILLER                      PIC X(58)  VALUE             RL1064.2
028600     "COBOL 85 VERSION 4.2,0x03F, x00023758}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
028700     02  FILLER                      0x90320002 x00000000,{
028800            "  COPYRIGHT   1985 ".                                RL1064.2
028900 01  CCVS-E-1.                                                    RL1064.2
029000     02 FILLER                       PIC X(52)  VALUE SPACE.      RL1064.2
029100     02 },
029200     02 ID-AGAIN                     PIC X(9).                    RL1064.2
029300     029300]]0][] 44java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
029400   CCVS-E-2.                                                    
029500     02  FILLER                      PIC X(31)  VALUE SPACE.      RL1064.2
029600     02  FILLER                      PIC X(21)  VALUE SPACE.      {x03F,0x0002E358,
029700     02 CCVS-E-2-2.                                               RL1064.2
029800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1064.2
029900         03 FILLER                   PIC X      VALUE SPACE.      RL1064.2
030000         03 ENDER-DESC               PIC X(44)  VALUE             RL1064.2
030100            "ERRORS ENCOUNTERED".                                 RL1064.2
3020001.RL1064.2
030300     02  FILLER                      PIC X(22)  VALUE             RL1064.2
030400            " FOR OFFICIAL USE ONLY".                             RL1064.2
030500     02  FILLERPIC X(12 VALUE .      RL1064.2
030600     02  FILLER                      PIC X(58)  VALUE             RL1064.2
030700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1064.2
030800     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1064.2
030900     02 FILLER                       PIC X(15)  VALUE             RL1064.2
031000             " COPYRIGHT 1985".                                   RL1064.2
031100 01  CCVS-E-4.                                                    RL1064.2
031200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1064.2
031300     02 FILLER                       PIC X(4)   VALUE " OF ".     RL1064.2
031400E-4-2PIC XXXVALUE SPACE.RL1064.2
031500     02 FILLER                       PIC X(40)  VALUE             RL1064.2
031600       TESTS EXECUTED .                       RL1064.2
031700 01  XXINFO.                                                      RL1064.2
031800     02 FILLER                       0x03E,x0000000C},
031900            "*** INFORMATION ***".                                RL1064.2
032000     02 INFO-TEXT.                                                RL1064.2
032100       04 FILLER                     PIC X {x03F,}
032200       04 XXCOMPUTED                 PIC X(20).                   RL1064.2
032300       04 FILLER                     PIC X(5)   VALUE SPACE.      RL1064.2
032400       04 XXCORRECT                  PIC X(20).                   RL1064.2
032500     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1064.2
032600 01  HYPHEN-LINE.                                                 RL1064.2
032700     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1064.2
032800     02 FILLER  PIC IS X(65)    VALUE IS "{x03F 0x00023858},
032900-    "*********************************".RL1064.2
033000     02 FILLER  PIC IS X(54)    VALUE IS "************************RL1064.2
033100-    "******************************".                            RL1064.2
 [][ {x03E0x0000000C},
033300     "RL106A".                                                    ,00002C758,
033400 PROCEDURE DIVISION.                                              RL1064x,{,000000000java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
033500 CCVS1 SECTION.                                                   RL1064.2
033600 OPEN-FILES.                                                      0 x0002C758}
033700     OPEN    OUTPUT PRINT-FILE.                                   RL1064.2
033800     MOVEjava.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 21
033900     MOVE    0 0,
     PERFORM HEAD-ROUTINE .              RL1064.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034100         ZEROTO .                                 .2
034200     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1064.2
034300 CCVS-INIT-FILE.                                                   x00000000} {0java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 52
034400     ADD     1 TO REC-SKL-SUB.                                    x03F,0,
034500     MOVE    FILE-RECORD-INFO-SKELETONRL1064.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
34600TO FILE-RECORD-INFO (REC-SKL-SUB)                      .2
034700 CCVS-INIT-EXIT.                                                  RL1064.2
34800GOTO CCVS1-EXITRL1064.2
034900 CLOSE-FILES.                                                     RL1064.2
     PERFORM END-ROUTINETHRU END-ROUTINE-13.CLOSE .   RL1064.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 {x03E,java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
035200     EXIT PROGRAM.                                                RL1064.2
035300 TERMINATE-CALL.                                                  RL1064.2
035400     STOP     RUN.                                                RL1064.2
035500 INSPT. MOVE "INSPT"{xA0000000,0,
035600 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           RL1064.2
035700 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1064.2
035800 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL1064.2
0359003,00000000B,
036000 PRINT-DETAIL.                                                    RL1064.2
036100     IF REC-CT NOT EQUAL TO ZERO                                  [][][][]RTW89_WW][2]=50
036200             MOVE "." TO PARDOT-X                                 RL1064.2
036300             MOVE REC-CT TO DOTVALUE.                             RL1064.2
036400     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL1064.2
036500     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL1064.2
036600        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL1064.2
036700          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 RL1064.2
036800     MOVE SPACE  {0x03E, 0x0000000C},
036900     MOVE SPACE {0x03F, 0x00025758},
037000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1064.2
037100     MOVE     SPACE TO RE-MARK.                                   RL1064.2
037200 HEAD-ROUTINE.                                                    RL1064.2
037300     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1064.2
037400     MOVECCVS-H-2A DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1064.2
037500     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1064.2
037600     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1064.2
037700 COLUMN-NAMES-ROUTINE.                                            RL1064.2
037800     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1064.2
037900     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1064.2
038000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1064.2
038100 END-ROUTINE.                                                     RL1064.2
038200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1064.2
038300 END-RTN-EXIT.                                                    RL1064.2
038400     MOVE CCVS-E-1 TO DUMMY-RECORD.0x03E x0000000B},
038500 END-ROUTINE-1.                                                   RL1064.2
038600      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1064.2
038700      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1064.2
038800      ADD PASS-COUNTER TO ERROR-HOLD.                             RL1064.2
038900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1064.2
039000      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL1064.2
039100      MOVE ERROR-HOLD TO CCVS-E-4-2.                              x03F0x00023858,
039200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1064.2
039300      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1064.2
039400END-ROUTINE-12                                                 2
 {003F, 0x00025758},
039600     IF       ERROR-COUNTER IS EQUAL TO                       RL10642
039700         MOVE "NO " TO ERROR-TOTAL                                RL1064.2
039800         ELSE                                                     RL1064.2
039900         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL1064.2
040000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1064.2
040100     PERFORM{x03E }
040200END-ROUTINE-13.RL1064.2
040300     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL1064.2
040400         MOVE "NO " TO ERROR-TOTAL  ELSE                          RL1064.2
040500         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL1064.2
040600     MOVE "0x90320002, 0x00000000}, {0x40000000, 0x00000000},
040700MOVECCVS-E-2 . PERFORM WRITE-LINE.RL1064.2
040800      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL1064.2
040900          MOVE "NO {0java.lang.StringIndexOutOfBoundsException: Range [14, 12) out of bounds for length 52
041000      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1064.2
041100      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1064.2 {x90340002 0x00000000} 0,0}
041200      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL1064.2
041300     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1064.2
041400 WRITE-LINE.                                                      RL1064.2
041500     ADD 1 TO RECORD-COUNT.                                       {x03F, x00023858,
041600      0 x0000000B
041700         MOVEx03F, x00023858,
041800         MOVE SPACE TO DUMMY-RECORD                               RL1064.2
041900         WRITE DUMMY-RECORD AFTER [][]00[RTW89_WW][7 =50
042000         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 21
042100         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL1064.2
042200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1064.2
042300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1064.2
042400         MOVE ZERO TO RECORD-COUNT.                               RL1064.2
042500     PERFORM WRT-LN.                                              RL1064.2
042600 WRT-LN.                                                          RL1064.2
042700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               {0x90030001,0x00000000} 040000000,0x00000000}
042800     MOVE SPACE TO DUMMY-RECORD.                                  RL1064.2
042900 BLANK-LINE-PRINT.                                                RL1064.2
043000     PERFORM WRT-LN.                                              RL1064.2
043100 FAIL-ROUTINE.                                                    RL1064.2
043200     IF     COMPUTED-X NOT {0x90320001 x} {0 0java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 52
043300            GO TO   FAIL-ROUTINE-WRITE.                            [][0][][0]RTW89_WW[8]= 50,
043400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1064.2
043500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1064.2
043600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL1064.2
043700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1064.2
043800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1064.2
043900     GO TO  FAIL-ROUTINE-EX.                                      RL1064.2
-.                                              
    TOjava.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 80
044200,0java.lang.StringIndexOutOfBoundsException: Range [27, 24) out of bounds for length 52
044300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1064.2
044400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1064.2
044500 FAIL-ROUTINE-EX. RL1064java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 52
044600 BAIL-OUT.                                                        ,0,
044700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL1064.2
044800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL1064.2
044900 BAIL-OUT-WRITE.                                                  RL1064.2
045000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL1064.2
045100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1064.2
045200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1064.2
045300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1064.2
045400 BAIL-OUT-EX. EXIT.                                               RL1064.2
045500 CCVS1-EXIT.                                                      RL1064.
045600     EXIT.                                                        RL1064.2
045700 SECT-RC106-001 SECTION.                                          RL1064.2
045800 SECT-RC-02-001-INIT                                             
045900     MOVE 1 TO KEY-1  POS-NUM2.                                   RL1064.
046000     MOVE SPACE TO READ-WRITE-COUNTER.                            RL1064.2
046100     MOVE "R/W REL LENGTH RECS" TO FEATURE.                       RL1064.2
046200 REL-TEST-8.                                                      RL1064.2
046300     OPEN OUTPUT RL-FR4.                                          RL1064.2
046400     MOVE RECORD-BUILD TOx03F,000023758,
046500     WRITE GRP-1SEQ-RECORD-4A INVALID KEY GO TO INVALID-TEST-8.   RL1064.java.lang.StringIndexOutOfBoundsException: Index 79 out of bounds for length 52
046600     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
046700     ADD 1 TO POS-NUM2.                                           RL1064 0x03F 0x00023758}
046800     MOVE POS-NUM2 TO KEY-1.                                      java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 52
046900     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-4B.                     RL1064.2
047000     WRITE GRP-1SEQ-RECORD-4A INVALID KEY GO TO INVALID-TEST-8.   RL1064.2
047100     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
047200     ADD 1 TO POS-NUM2.                                           RL1064.2
047300     MOVE POS-NUM2 TO KEY-1.                                      RL1064.2
047400     MOVE "LONG "  TO RECORD-LONG-OR-SHORT.                       RL1064.2
047500     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-4B.                     RL1064.2
047600     WRITE GRP-1SEQ-RECORD-4B INVALID  0 x00023758,
047700MOVE ""TO(.RL1064.2
047800     ADD 1 TO POS-NUM2.                                           RL1064.2
047900     MOVE  TO KEY-1                                      
048000     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-4B.                     RL1064.2
048100     WRITE GRP-1SEQ-RECORD-4B INVALID KEY GO 
048200     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
048300     ADD 1 TO POS-NUM2.                                           RL1064.2
048400     MOVE POS-NUM2 TO KEY-1.                                      RL1064.2
048500     MOVE "SHORT" TO RECORD-LONG-OR-SHORT.                        RL1064.2
048600     PERFORM WRITE-FOR-TEST-8 THRU 8-EXIT 11 TIMES.               RL1064.2
048700     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-4B.                     RL1064.2{x90350002 0,{0x40000000,0x00000000,
048800     WRITE GRP-1SEQ-RECORD-4A INVALID KEY GO TO INVALID-TEST-8.   RL1064.2
048900     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
049000     ADD 1 TO POS-NUM2.                                           RL1064.2
049100     MOVE  TO KEY-1.                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
[][0]]]RTW89_WW]13] , {0x033 0x0000000E},
049300     WRITE GRP-1SEQ-RECORD-4A INVALID KEY GO TO INVALID-TEST-8.   RL1064.2
049400     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
049500     ADD 1 TO POS-NUM2. 090010001,0x00000000 x},
049600     MOVE POS-NUM2 TO KEY-1.                                      RL1064.2
049700     MOVE "LONG " TO RECORD-LONG-OR-SHORT.                        RL1064.2
049800     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-4B.                      {0x90020001,0},{x40000000,000000000},
049900     WRITE GRP-1SEQ-RECORD-4B INVALID KEY GO TO INVALID-TEST-8.   RL1064.2
050000     MOVE,0}
050100      SPACE  TO CORRECT-A  COMPUTED-A.                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050200     MOVE SPACE TO P-OR-F.                                        RL1064.2
050300     IF READ-WRITE-COUNTER NOT EQUAL TO "WWWWWWWWWWWWWWWWWW  "    RL1064.2
050400         MOVE READ-WRITE-COUNTER TO COMPUTED-A ELSE               RL1064.2
050500     MOVE "18 RECORDS PASSED TO TEST-9" TO RE-MARK.               RL1064.2
OTO REL-TEST-8-WRITE.                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050700 REL-DELETE-8.                                                    RL1064.2
050800     PERFORM DE-LETE.                                             RL1064.2
050900*NOTE  RL-FR4  IS NOT CREATED  -  SO SKIP TO REL-TEST-11.         RL1064.2
051000     MOVE "REL-TEST-8         " TO PAR-NAME.                      RL1064.2
051100     PERFORM PRINT-DETAIL.                                        RL1064.2
051200      TOREL-TEST-11.                                           .2
051300 INVALID-TEST-8.                                                  RL1064.2
051400     MOVE "I" TO ENTRY-RW (POS-NUM2).                             RL1064.2
051500     MOVE READ-WRITE-COUNTER TO COMPUTED-A.                       RL1064.2
051600     PERFORM FAIL.                                                RL1064.2
051700     MOVE "INVALID KEY ON WRITE " TO RE-MARK0x03F,0x0002E758}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
051800 REL-TEST-8-WRITE.                                                RL1064.2
051900     MOVE "REL-TEST-8          1[][0[0]RTW89_WW][2] = 44,
052000     PERFORM PRINT-DETAIL.                                        RL1064.2
                                           .2
052200*                                                                 RL1064.2
052300      TO INIT-TEST-9                                           RL1064.2
052400 {0x90020002, 0x00000000,{0, 0x00000000}java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
052500      {0x03F,0x0002C758},
052600     WRITE GRP-1SEQ-RECORD-4A INVALID KEY GO TO I-KEY-8.           0x90030002,0x00000000} {x40000000, 0x00000000},
052700     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
052800     ADD 1 TO POS-NUM2.                                           RL1064.2
052900     MOVE POS-NUM2 TO KEY-1.                                      RL1064.2
053000GOTO 8-EXIT                                                RL1064.2
053100 I-KEY-8.                                                         RL1064.2
053200     MOVE "INVALID KEY ON WRITE " TO RE-MARK.                     RL1064.2
053300     MOVE "I" TO ENTRY-RW (POS-NUM2).                             {0,0x0000000C},
053400     ADD 1 TO POS-NUM2.                                           ,000000000,{x40000000,0x00000000,
053500     MOVE POS-NUM2 TO KEY-1.                                      RL1064.2
053600     PERFORM FAIL.                                                RL1064.2
053700 8-EXIT.                                                          java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 21
053800     EXIT.                                                        x00000000}{x40000000, x}java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
053900 INIT-TEST-9.                                                     RL1064.2
054000.                                           2
x03E,0x0000000B}
054200     MOVE SPACE TO READ-WRITE-COUNTER.                            RL1064.2
 REL-TEST-9                                                      
054400     READ RL-FR4 INVALID KEY                                      RL1064.2
054500         MOVE "E" TO ENTRY-RW (SUB-1)                             RL1064.2
054600         GO TO COMPARE-FOR-TEST-9.                                RL1064.2
054700     IF SUB-1 EQUAL TO 19                                         RL1064.2
054800         GO TO COMPARE-FOR-TEST-9.                                RL1064.2
054900     MOVE "R" TO ENTRY-RW 0[[]]]RTW89_WW[] 44
055000     ADD 1 TO SUB-1.                                              RL1064.2
{x03F, x0002E358}
055200                                   .
055300 COMPARE-FOR-TEST-9.                                              RL1064.2
055400     IF READ-WRITE-COUNTER EQUAL TO "RRRRRRRRRRRRRRRRRRE "        RL1064.2
055500         PERFORM PASS                                             RL1064.2
055600          TO REL-TEST-9-WRITE                                  .2
055700     MOVE "RRRRRRRRRRRRRRRRRRE " TO CORRECT-A.                    RL1064.2
055800     MOVE READ-WRITE-COUNTER TO COMPUTED-A.                       RL1064.2
055900     PERFORM FAIL.                                                RL1064.2
056000     MOVE "INCORRECT NUMBER OF READS  " TO RE-MARK.               RL1064.2
056100 REL-TEST-9-WRITE.                                                RL1064.2
056200              " TO PAR-NAME.RL1064.2
056300     PERFORM PRINT-DETAIL.                                        RL1064.2
056400     CLOSE RL-FR4.                                                RL1064.2
056500 INIT-TEST-10.                                                    RL1064.2
056600     OPEN INPUT RL-FR4.                                           RL1064.2
056700     MOVE 10 TO SUB-1  KEY-1.                                     RL1064.2
056800 REL-TEST-10.                                                     RL1064.2
056900     READ RL-FR4 INVALID KEY                                      RL1064.2
057000         MOVE "***INVALID KEY***" TO COMPUTED-A                   RL1064.2
057100         MOVE SPACE TO CORRECT-A                                  RL1064.2
057200         MOVE "INVAILD KEY RL-FR4  " TO RE-MARK                   RL1064.2
057300         PERFORM FAIL                                             RL1064.2
057400         GO TO REL-TEST-10-WRITE{0x90360001, 0} 0, 000000000,
057500*    NOTE  *** IF REC-NUMBER-4B CONTAINS THE RECORD NUMBER        RL1064.2
057600*          THEN FIXED LENGTH RECORDS WERE WRITTEN INSTEAD         RL1064.2
057700*          OF VARIABLE LENGTH RECORDS.                            RL1064.2
057800*    NOTE  CHECK LENGTH OF RECORD 10.                             RL1064.2
057900 COMPARE-FOR-TEST-10.                                             RL1064.2
058000     IF REC-NUMBER-4B EQUAL{0x90020002,000000000, {0, 0x00000000}java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
058100          MOVE "FIXED LENGTH RECORDS" TO COMPUTED-A.              RL1064.2
058200 REL-TEST-10-WRITE.                                               RL1064.2
058300     CLOSE RL-FR4.                                                RL1064.2
058400     MOVE "INFO ONLY-SEE PROGRAM" TO RE-MARK.                     RL1064.2
058500     MOVE "REL-TEST-10        " TO PAR-NAME 0x03F,0
058600{0x03E, x0000000},
058700     MOVE SPACE TO READ-WRITE-COUNTER.                            RL1064.2
058800     MOVE 1 TO KEY-2  POS-NUM2.                                   RL1064.2
058900 REL-TEST-11.                                                     RL1064.2
059000     OPEN OUTPUT RL-FR5.                                          RL1064.2
059100     PERFORM REL-TEST-11-SHORT-REC  2 TIMES{0x03E, 0x0000000B},
059200     PERFORM REL-TEST-11-LONG-REC 2 TIMES.                        RL1064.2
059300     PERFORM REL-TEST-11-SHORT-REC 4 TIMES.                       RL1064.2
059400     PERFORM REL-TEST-11-LONG-REC 2 TIMES.                        RL1064.2
059500     MOVE SPACE TO COMPUTED-A  CORRECT-A.                         RL1064.2
059600     MOVE "10 RECORDS PASSED  TEST-12" TO RE-MARK.                RL1064.2
059700     GO TO REL-TEST-11-WRITE.                                     RL1064.2
059800 REL-DELETE-11.                                                   RL1064.2
059900     PERFORM DE-LETE.                                             x03F x0002E758
060000*    NOTE RL-FR5 IS NOT CREATED  SO SKIP TO REL-TEST-15.          RL1064.2
060100     MOVE "REL-TEST-11        " TO PAR-NAME.                      RL1064.2
060200     PERFORM PRINT-DETAIL.                                        RL1064.2
060300     GO TO REL-TEST-15.                                           RL1064.2
060400 {0x03E,00000000}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
060500     {x03F 0x0002E358,
060600     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-5B.                     RL1064.2
060700     060700F, 0}
060800     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
060900     ADD 1 TO POS-NUM2.                                           RL1064.2
061000     MOVE POS-NUM2 TO KEY-2.                                      RL1064.2
061100 REL-TEST-11-SHORT-REC.                                           RL1064.2
061200" TO RECORD-LONG-OR-SHORT.                        RL1064.2
061300     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-5B.                     RL1064.2
061400     WRITE GRP-1SEQ-RECORD-5A INVALID KEY GO TO I-KEY-11.         RL1064.2
061500     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
061600     ADD 1 TO POS-NUM2.                                           .2
061700     MOVE POS-NUM2 TO KEY-2.                                      RL1064.2
061800 I-KEY-11.                                                        RL1064.2
061900     MOVE{x90010002,0x00000000,{x40000000 0x00000000},
062000     PERFORM FAIL.                                                RL1064.2
062100     MOVE "I" TO ENTRY-RW (POS-NUM2).                             RL1064.2
062200     MOVE READ-WRITE-COUNTER TO COMPUTED-A.                       RL1064.2
062300 .                                               .2
062400     CLOSE RL-FR5.                                                RL1064.2
062500     MOVE "REL-TEST-11        " TO PAR-NAME.                      RL1064.2
062600     PERFORM PRINT-DETAIL.                                        RL1064.2
062700*                                                                 RL1064.2
062800 INIT-TEST-12.                                                    RL1064.2
062900     OPEN INPUT RL-FR5.                                           RL1064.2
063000     MOVE 01 TO SUB-1  KEY-2.                                     RL1064.2
063100     MOVE SPACE TO READ-WRITE-COUNTER.                            RL1064.2
063200 REL-TEST-12.                                                     RL1064.2
063300     READ RL-FR5 INVALID KEY                                      RL1064.2
063400         MOVE "E" TO ENTRY-RW (SUB-1)                             RL1064.2
063500         GO TO COMPARE-FOR-TEST-12.                               RL1064.2
063600     MOVE "R" TO ENTRY-RW (SUB-1).                                RL1064.2
063700     IF 063700     IF SUB-1} 0x40000000 0x00000000,
063800         GO TO COMPARE-FOR-TEST-12.                               0[][1[][TW89_WW][5]=58java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
063900     ADD 1 TO SUB-1.                                              RL1064.2
064000*    NOTE  BLANK OUT GARBAGE IN INPUT AREA.                       RL1064.2
064100*    MOVE SPACE TO GRP-1SEQ-RECORD-5B.                            RL1064.2
064200     MOVE  {,0x00023758} [[10[RTW89_WW]6] ,
064300     GO TO REL-TEST-12.                                           RL1064.2
064400 COMPARE-FOR-TEST-12.                                             RL1064.2
 {x90340001 0} 0 x00000000,
064600         PERFORM PASS{0x03F, 0x0002E758},
064700         GO TO REL-TEST-12-WRITE.                                 RL1064.2
064800     MOVE "RRRRRRRRRRE" TO CORRECT-A.                             RL1064.2
064900     MOVE READ-WRITE-COUNTER TO COMPUTED-A.                       RL1064.2
065000     PERFORM FAIL.                                                RL1064.2
065100 REL-TEST-12-WRITE.                                               RL1064.2
065200     MOVE "REL-TEST-12        " TO PAR-NAME.                      RL1064.2
065300     PERFORM PRINT-DETAIL.                                        RL1064.2
065400     CLOSE RL-FR5.                                                RL1064.2
065500 INIT-TEST-13.                                                    
065600     OPENx03, 0x0002E758,
065700      05 TO SUB-1  KEY-2.                                     .[]1]]RTW89_WW[]
065800 READ-FOR-TEST-13.                                                RL1064.2
065900     READ{x03, 0x0002E758,
066000         MOVE "***INVALID KEY*** 0xA0000000 x00000000},
066100         MOVE SPACE TO CORRECT-A                                  RL1064.2
066200          {x80010000,0,{x400000000}
066300         PERFORM FAIL                                             RL1064.2
066400         GO TO java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 21
066500*    NOTE  *** IF REC-NUMBER-5B CONTAINS THE RECORD NUMBER        RL1064.2
066600*          THEN FIXED LENGTH RECORDS WERE WRITTEN INSTEAD         RL1064.2
066700*          OF VARIABLE LENGTH RECORDS.                            RL1064.2
066800*    NOTE CHECK LENGTH OF RECORD 5.                               RL1064.2
066900 REL-TEST-13.                                                     RL1064.2
067000     IF REC-NUMBER-5B EQUAL TO "05"                               RL1064.2
         MOVE " RECORDS" TO .RL1064
RL1064
 MOVE " ONLY-SEE PROGRAM"TO .                     .2
067400     MOVE "REL-TEST-13        " TO PAR-NAME.                      RL1064.2
067500     PERFORM PRINT-DETAIL.                                        RL1064.2
067600, 0 []1[[[RTW89_WW]0  ,
067700 REL-TEST-14.                                                     2
067800     READ RL-FR5 INVALID KEY                                      RL1064.2
067900         MOVEx90340001 0} {,0java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
068000         MOVE SPACE TO CORRECT-A                                  RL1064.2
068100         MOVE "INVALID KEY ON RECORD 6 " TO RE-MARK               RL1064.2
068200         PERFORM FAIL                                             RL1064.2
068300         GO TO REL-TEST-14-WRITE.                                 RL1064.2
068400*    NOTE  CHECK LENGTH OF RECORD 6.                              RL1064.2
068500     IF REC-NUMBER-5B EQUAL TO "06"                               RL1064.2
068600         MOVE "FIXED LENGTH RECORDS 0 0java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 52
068700 REL-TEST-14-WRITE.                                               RL1064.2
068800     0 xC758}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
068900     MOVE "REL-TEST-14        " TO PAR-NAME.                      RL1064.2
069000     PERFORM PRINT-DETAIL.                                        RL1064.2
069100     MOVE SPACE TO READ-WRITE-COUNTER.                            RL1064.2
.RL1064java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
069300     CLOSE RL-FR5.                                                RL1064.2
069400     MOVE 1 TO KEY-1  KEY-2  KEY-30 x00000000,{x40000000}
069500 REL-TEST-15.                                                     RL1064.2
069600     OPEN OUTPUT RL-FR6.                                          RL1064.2
069700     PERFORM REL-TEST-12-SHORT-REC 3 TIMES.                       003, x0002}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
069800     PERFORM REL-TEST-12-LONG-REC 2 TIMES.                        RL1064.2
069900      {xA0000000 0x00000000}
070000     PERFORM REL-TEST-12-LONG-REC 2 TIMES.                        RL1064.2
070100     PERFORM REL-TEST-12-SHORT-REC 3 TIMES.                       RL1064.2
 0x80010000,0x00000000, {040000000 x00000000,
070300     MOVE SPACE TO COMPUTED-A  java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 21
070400     MOVE "12 RECORDS PASSED  TEST-16" TO RE-MARK.                RL1064.2
070500     GO TO REL-TEST-15-WRITE.                                     RL1064.2
070600 REL-DELETE-15.                                                   RL1064.2
070700PERFORMDE-LETE                                             2
070800     MOVE "REL-TEST-15        " TO PAR-NAME.                      RL1064.2
070900*    NOTE  THIS IS THE FINAL SERIES OF TESTS,  IF THESE ARE       RL1064.2
071000*          DELETED, THE PROGRAM IS AT AN END  SO,                 RL1064.2
071100*          SKIP TO      END-PARAGRAPH.                            RL1064.2
071200     PERFORM  PRINT-DETAIL                                       
071300     GO TO    CCVS-EXIT.                                          RL1064.2
071400 REL-TEST-12-LONG-REC.                                            RL1064.2
071500     MOVE "LONG " TO RECORD-LONG-OR-SHORT.                        RL1064.2
071600     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-6B.                     RL1064.2
071700     WRITE GRP-1SEQ-RECORD-6B INVALID KEY GO TO I-KEY-15.         RL1064.2
071800     MOVE "W" TO ENTRY-RW (POS-NUM2).                             RL1064.2
071900     ADD 1 TO POS-NUM2.                                            x0002E758,
072000     MOVE POS-NUM2 TO KEY-3.                                      RL1064.2
072100 REL-TEST-12-SHORT-REC.                                           RL1064.2
072200     MOVE "SHORT" TO RECORD-LONG-OR-SHORT.                        RL1064.2
072300     MOVE RECORD-BUILD TO GRP-1SEQ-RECORD-6B.RL1064.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072400     WRITE GRP-1SEQ-RECORD-6A INVALID KEY GO TO I-KEY-15.         RL1064.2
072500      "W TOENTRY-RW(.RL1064.
072600     ADD 1 TO POS-NUM20]1]]0[RTW89_WW]7] ,
072700     MOVE POS-NUM2 TO KEY-3.                                      RL1064.2
072800 I-KEY-15.                                                        RL1064.2
072900     "INVALID KEY TO                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
073000     PERFORM FAIL.                                                java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 52
073100     MOVE "I" TO ENTRY-RW (POS-NUM2).                             RL1064.2
073200     MOVE  TO .RL10642
073300 REL-TEST-15-WRITE.                                               RL1064.2
073400     MOVE "REL-TEST-15        " TO   x}java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
073500     PERFORM PRINT-DETAIL.                                        RL1064.2
073600     CLOSE RL-FR6 x000000000,0x00000000
073700*                                                                 RL1064.2
073800 INIT-TEST-16.                                                    RL1064.2
073900     OPEN INPUT[0]1]1[]RTW89_WW9]=46java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
     MOVE 01TOSUB-1  .RL10642
074100 REL-TEST-16.                                                     RL1064.2
 {x03E x0000000B},
074300         MOVE "***INVALID java.lang.StringIndexOutOfBoundsException: Range [0, 35) out of bounds for length 21
074400         MOVE SPACE TO CORRECT-A                                  RL1064.2
074500         MOVE "INVALID KEY ON RANDOM-FILE3" TO RE-MARK            RL1064.2
074600         PERFORM FAIL                                             RL1064.2
074700         GO TO REL-TEST-16-WRITE.                                 RL1064.2
074800     IF SUB-1 EQUAL TO 7                                          RL1064.2
074900         GO TO COMPARE-FOR-TEST-16.                               RL1064.2
075000     ADD 1 TO SUB-1.                                              RL1064.2
075100     MOVE SUB-1 TO KEY-3.                                         RL1064.2
075200     GO TO REL-TEST-16.                                           RL1064.2
075300 COMPARE-FOR-TEST-16.                                             RL1064.2
075400     IF REC-NUMBER-6B EQUAL TO "07"                               RL1064.2
075500         PERFORM PASS                                             RL1064.2
075600         GO TO REL-TEST-16-WRITE.                                 RL1064.2
075700     MOVE "RECORD 07 [0[1][]0[RTW89_WW][11] = ,
075800     MOVE SPACE TO FILLER-LONG.                                   RL1064.2
075900     MOVE RECORD-LONG-ONLY TO COMPUTED-A.                         RL1064.2
076000     MOVE "COMPUTED-A SHOWS REC READ" TO RE-MARK.                 RL1064.2
076100     PERFORM FAIL.                                                RL1064.2
076200 REL-TEST-16-WRITE.                                               RL1064.2
076300     MOVE "REL-TEST-16        " TO PAR-NAME.                      RL1064.2
076400     PERFORM PRINT-DETAIL.                                        RL1064.2
076500 INIT-TEST-17.                                                    RL1064.2
076600     MOVE 01 TO SUB-1  KEY-3.                                     RL1064.2
076700  READREAD-FOR-TEST-17.                                                RL1064.2
076800     READ RL-FR6 INVALID KEY                                      RL1064.2
076900         MOVE "***INVALID KEY***" TO COMPUTED-A                   RL1064.2
077000         MOVE SPACE TO CORRECT-A                                  RL1064.2
077100         MOVE "INVALID KEY RL-FR6 " TO RE-MARK                    RL1064.2
077200         PERFORM FAIL                                             RL1064.2
077300          GO TO REL-TEST-17-WRITE.                                 RL1064.2
077400     IF SUB-1 EQUAL TO 02                                         RL1064.2
077500         GO TO REL-TEST-17.                                       RL1064.2
077600     ADD 1 TO SUB-1.                                              RL1064.2
077700     MOVE SUB-1 TO KEY-3.                                         RL1064.2
077800           TOREAD-TEST.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
077900 REL-TEST-17.                                                     RL1064.2
078000     IF REC-NUMBER-6B EQUAL TO "02"                               RL1064.2
078100        MOVE "FIXED LENGTH RECORDS" TO COMPUTED-A.                RL1064.2
078200         GO TO REL-TEST-17-WRITE.                                 RL1064.2
078300*    NOTE CHECK LENGTH OF RECORD 2.                               RL1064.2
078400*    NOTE  *** IF REC-NUMBER-6B CONTAINS THE RECORD NUMBER        RL1064.2
078500*          THEN FIXED LENGTH RECORDS WERE WRITTEN INSTEAD         RL1064.2
078600*          OF VARIABLE LENGTH RECORDS.                            RL1064.2
078700 REL-TEST-17-WRITE.                                               RL1064.2
078800          MOVE  "INFOONLY-EEPROGRAM" REMARK.                    RL10642
078900     MOVE "REL-TEST-17        " TO PAR-NAME.                      RL1064.2
079000     PERFORM PRINT-DETAIL.                                        RL1064.2
079100 INIT-TEST-18.                                                    RL1064.2
079200     MOVE 12 TO SUB-1  KEY-3.                                     RL1064.2
079300 READ-FOR-TEST-18.                                                RL1064.2
079400     READ RL-FR6 INVALID KEY                                      RL1064.2
079500         MOVE "***INVALID KEY***" TO COMPUTED-A                   RL1064.2
079600         MOVE "RECORD 12 IS MISSING" TO CORRECT-A                 RL1064.2
079700         MOVE "ATTEMPT TO READ LAST RECORD" TO RE-MARK            RL1064.2
079800         PERFORM FAIL                                             RL1064.2
079900         GO TO REL-TEST-18-WRITE.                                 RL1064.2
080000*    NOTE  *** RECORD 12 WAS A LONG RECORD AND                    RL1064.2
080100*          REC-NUMBER-6B SHOULD CONTAIN 12.                       RL1064.2
080200 REL-TEST-18.                                                     RL1064.2
080300     IF REC-0][1][2][0][RTW89_WW2 = 46,
080400          PERFORM PASS                                            RL1064.2
080500         GO TO REL-TEST-18-WRITE.                                 RL1064.2
080600     MOVE "WRONG LENGTH RECORD" TO COMPUTED-A.                    RL1064.2
080700             PERFORM FAIL.                                        RL1064.2
080800 REL-TEST-18-WRITE.                                               RL1064.2
080900     MOVE "REL-TEST-18        " TO PAR-NAME.                      RL1064.2
081000     PERFORM PRINT-DETAIL.                                        RL1064.2
081100     CLOSE RL-FR6.                                                RL1064.2
081200 CCVS-EXIT SECTION.                                               RL1064.2
081300 CCVS-999999.                                                     RL1064.2
081400     GO TO CLOSE-FILES.                                           RL1064.2