Quelle  sq140a.cob   Sprache: Cobol

000100000100 IDENTIFICATION.                                         SQ1404
00 .                                                      
0000     SQ140A000                                                           000*                                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1404.2
000500*                                                              *  SQ1404.2
000600*    VALIDATION FOR:-                                          *  SQ1404.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1404.2
000800*    USING CCVS85 VERSION 1.0 ISSUED IN JANUARY 1986.          *  SQ1404.2
000900*                             REVISED 1986, AUGUST             *  SQ1404.2
001000*                                                              *  SQ1404.2
001100*    CREATION DATE     /     VALIDATION DATE                   *  SQ1404.2
001200*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1404.2
001300*                                                              *  SQ1404.2
001400****************************************************************  SQ1404.2
001500*                                                              *  SQ1404.2
001600*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1404.2
001700*                                                              *  SQ1404.2
001800*            X-01   SEQUENTIAL MAGNETIC TAPE FILE.             *  SQ1404.2
001900*            X-55   SYSTEM PRINTER                             *  SQ1404.2
002000*            X-82   SOURCE-COMPUTER                            *  SQ1404.2
002100*            X-83   OBJECT-COMPUTER.                           *  SQ1404.2
002200*                                                              *  SQ1404.2
002300*                                                              *  SQ1404.2
002400****************************************************************  SQ1404.2
002500*                                                              *  SQ1404.2
002600*    SPLIT FROM SQ125A, THIS PROGRAM REPEATS THE SEQUENCE OF   *  SQ1404.2
002700*    FILE HANDLING ROUTINES IN ORDER TO CARRY OUT THE ISOLATED *  SQ1404.2
002800*    SPLIT TEST THAT CHECKS FOR THE CORRECT RESPONSE TO AN     *  SQ1404.2
002900*    OPEN FOR OUTPUT FOR A MAGNETIC TAPE FILE WHICH IS ALREADY *  SQ1404.2
003000*    OPEN IN THE OUTPUT MODE.  (SEE SQ125A).                   *  SQ1404.2
003100*                                                              *  SQ1404.2
003200****************************************************************  SQ1404.2
003300*                                                                 SQ1404.2
003400 ENVIRONMENT003200***003300*                                                                 SQ1404.2
03  .                                           .2
00SOURCE-COMPUTER                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003700     Card0130.030OBJECT-COMPUTERSQ1404.2
003800 OBJECT-COMPUTER.                                                 SQ1404.2
003900     Card0131.                                                    SQ1404.2
004000*                                                                 SQ1404.2
004100 INPUT-OUTPUT SECTION.                                                    
004200 FILE-CONTROL.                                                    SQ1404.2
004300     SELECT PRINT-FILE ASSIGN TO                                  0003     SELECT ASSIGN TOSQ1404.2
004400     "C0085" .                                                    SQ1404.2
004500*                                                                 SQ1404.2
004600     SELECT RAW-DATA   ASSIGN TO                                  70     C0098SQ1404400SELECTASSIGNTO.
004500*                                                                 SQ1404.2
8            ISQ1404
004900           ACCESS MODE  IS RANDOM                                 SQ1404.2
00 KEYRAW-DATA-KEY.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005100                                                                  SQ1404.2
02SELECT                                        2
0300     C00010 MODERANDOM                                SQ1404
050             STATUS .                         .2
005500*                                                                 SQ1404.2
005600*                                                                 SQ1404.2
005700 DATA DIVISION.                                                   SQ1404.2
50 FILE.                                                    
005900 FD40FILE IS.                         .2
006000     LABEL RECORDS                                                SQ1404.2
006100     Card0132                                                     SQ140470DATA.050 DIVISIONSQ1404.
RECORDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006300               .                                                  00LABEL                                                
04 00                                                          
006500 01  DUMMY-RECORD PICTURE060               2
0060SQ1404.2
006700 FD  RAW-DATA.                                                    SQ1404.2
008 0600   X2.                                 
006900     05  RAW-DATA-KEY        PIC X(6).                            SQ1404   .                                                    
007000     05  C-DATE0000                                                 
07100     05C-TIME 9(8.SQ1404
007200     05  NO-OF-TESTS         PIC      5NO-OF-TESTS          9.SQ1404
0700    5C-OK 9.SQ1404
007400     05  C-ALL               PIC 999.                             400C-ALL 9.                             .2
007005C-FAIL 999.SQ1404
007600     05  C-DELETED           PIC0     050705C-INSPECT9.SQ1404
00       C-INSPECT 92
007800     05  C-NOTE              090     5C-INDENT .SQ1404
00070005C-ALL05C-ABORT X).                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000005C-ABORT (8.SQ1404
008100*                                                                 SQ1404.2
020 FD                                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080     000  PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080                                                                 90     5C-INDENTPIC .                               .2
008500 01  SQ-FS1R1-F-G-120 PIC X(120).                                 SQ140480  SECTIONSQ14042
008600*                                                                 SQ1404.2
008700 WORKING-STORAGE SECTION.                                         008900***********00                                                             2
008800*                                                                 SQ1404.2
008900***************************************************************   SQ1404.2
009000*                                                             *   SQ1404.2
009100*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1404.2
009200*                                                             *   SQ1404.2
009300***************************************************************   SQ1404.2
009400*                                                                 SQ1404.2
008900*********************009000*                                                             *   SQ1404.2
009600   03  SQ-FS1-KEY-1   PIC009200*                                                             *   SQ1404010100*                                                                 SQ1404.2
009700   03  SQ-FS1-KEY-2   PIC X.                                      SQ1404180006   3    PIC.                                     .2
009800*                                                                 SQ1404.2
009900 01  DECL-EXEC-SW  PIC 9.                                         SQ1404.2
010000*                                                                 SQ1404.2
010100*                                                                 SQ1404.2
010200***************************************************************   SQ1404.2
010300*                                                             *   SQ1404.2
010400*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1404.2
010500*                                                             *   SQ1404.2
010600***************************************************************   SQ1404.2
010700*                                                                 SQ1404.2
010800 01  REC-SKEL-SUB   PIC 99.                                       SQ1404010900*                                                                 SQ1404.2
010900*                                                                 SQ1404.2
011000 01170             ,00ORG0 "      =0RECNO0UPDT  2
110      FILE-RECORD-INFO-SKELETONSQ1404
01010       1"RECKEY= . Q1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10             "=,RECORD=/,=0000UPDTSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011400        05 FILLER                 PICTURE X13             "ALTKEY2"            .
011500             ",ODO0180 5FILLER PICTUREX(7 VALUESQ1404.2
010190"=                             SQ1404
0026005FILE-RECORD-INFO-P1-120 SQ1404110",ALTKEY1 . SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10        5                  ( VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090,=                                          SQ1404
0210FILLERPIC8.SQ1404
012100             ",ALTKEY1= ".            SQ1404.2
.
",ALTKEY2= "            .2
012400        05020           7FILLER X()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
100           OCCURS0  java.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
0200 .                               .2
012700           07 FILLER              PIC X(5).                       SQ1404.2
01800           PIC600           0       PIC9)                       .
0300 REELUNIT-NUMBER91.                      .2
0130007         (                       .
0110 0 FILLER              PIC X(1).                       SQ1404.300                             X)                       2
013200           07 REELUNIT-NUMBER0160 07UPDATE-NUMBER        9java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013301807ODO-NUMBER)                       .
013400           0730           7FILLERX5).SQ1404
013500           07 00 PIC 2
0360           7UPDATE-NUMBER 9(2.                       SQ1404.2
013700           07 FILLER              PIC X(5).                       SQ1404.2
0180           0           PIC 9()                       SQ1404
0190                          1507              IC1                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100                   PIC)SQ1404
014100           7     X)SQ1404
4           XRECORD-LENGTH 9(6()8                PIC6.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04007FILLERPICX.SQ1404
01400      8 0 java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
0140 0                X1                       .51                         X()                       SQ14042
014600           07 XBLOCK-SIZE         PIC 9(4).                       SQ1404.2
014700           07 FILLER              PIC X(6).                       15054  FILLERPIC(8).                       SQ140422
01480           7 RECORDS-IN-FILE     PIC()                       .155007XRECORD-KEY         X(9)                      .2
014900           750XLABEL-TYPE X1.                      .2
015000           07 XFILE-ORGANIZATION  PIC150        5FILE-RECORD-INFO-P121-2400707      X9 SQ1404
0110           7 FILLERPICX6)                       .2
015200           07 XLABEL-TYPE590           07       PICX29.05400            FILLERPIC (8)                       .2
01300 .                             .2
01540 07 FILLERPICX160           0 FILLERPIC()SQ14042
015500           07 XRECORD-KEY         PIC X(29).                      SQ1404.2
0500           7F              PIC X(9).                       .2
015700           07 ALTERNATE-KEY1806201TEST-RESULTSSQ14042
015800           07 FILLER              PIC X(9).                       SQ1404.2
015900           07 ALTERNATE-KEY2      PIC X(29).                      SQ1404.2016000000            ILLER7.                      .2
016000           07 FILLER              PIC X(7).                       SQ140420600     0 .                                                
016100*                                                                 SQ1404.2
01064002  .SSQ1404
016300016500     03FILLER X(1)VALUE.             .2
0140     2PAR-NAME060      3DOTVALUE             99     VALUE.              .2
01500       03 17003 DOTVALUE            PIC VALUE              SQ1404
066003PARDOT-X           PIC190     0              PICX2)VALUE.               .2
703DOTVALUEPICVALUE.              .2
010     02 FILLERPIC       SPACE070 0FILLERX               .
100              PIC2)VALUE               .2
010002FILLERPIC       SPACE.               .2
071     0PIC5VALUESQ1404
02 (    SPACESQ1404.2
017300     10       X0   SPACE  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017400 01  TEST-COMPUTED.                                               SQ1404.2
1502 IC3 VALUE                             
0700  0   70     COMPUTED-AX(0  ALUE                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                                     .2
070     3 COMPUTED-A1700     0COMPUTED-N   9()9)        .
01900017900      COMPUTED-4V14COMPUTED-APIC949(4.       SQ1404
10      OMPUTED-0V18 COMPUTED-A IC.91)           .2
08100 COMPUTED-4V14EDEFINESPIC()914)      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03COMPUTED-14V4 REDEFINESCOMPUTED-APIC-9(14).9(4)01400       0                    PIC-91).            SQ1404
018300     03       CM-18V0 REDEFINES COMPUTED-A.                       SQ1404.2
14 0 OMPUTED-18V0PIC-9(1.SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018500        04 FILLER8700  .                                                .2
01800     3 FILLER X(0)  .                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0170 1  .018900     02 FILLER PIC 7 " =.SQ1404.2
018800     02 FILLER PIC X(30) VALUE SPACE.                             SQ14040860     100     2CORRECT-X                                                .2
0VALUE        CORRECT..2
019000     02 CORRECT-X.                                                9002FILLER X1)1     REDEFINES     PIC9.92
09100     3                   14003 REDEFINESI 4.()SQ1404
 CORRECT-A      -9(090       PIC)VALUE         2
190     3CORRECT-0V1810     Cjava.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
130    3C REDEFINESC.
019500     03 CORRECT-14V4 REDEFINES CORRECT-A09000 2 VALUE SPACESQ1404
01900     3CR-18V0CORRECT-ASQ1404
019700         04 CORRECT-18V020000     03 COR-ANSI-REFERENCE             PIC VALUE     2
019800         04 FILLER                           PIC X.               SQ14049700                       -9(8.S.2
019000 FILLERPICX210     0  X2 .                              .2
0000 0               X4 VALUES2
020100*                                                                 SQ1404.2
020200 01  CCVS-C-1.                                                    SQ1404220001CCVS-C-1                                                    SQ1404
020300     02 FILLER  PIC IS X        VALUE  SPACE.                     SQ1404.2
02   PIC05     2  PIC           SPACE                     .2
02050     2   PICIS700   PICXVALUE.                    2
00     0 FILLERP IS(4)VALUE FEATURE.0700  IS          SPACESQ1404
020700     02 FILLER  PIC00     2FILLERPIC X(      "200 2FILLER 9)VALUESPACE Q1404.2
0 0FILLERPICX5)                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000       P IS)     ALUE
021000     02 FILLER  PIC IS110 1CCVS-C-2SQ1404
02100  .                                                    .2
0100FILLERIC(9  SPACE.2
021300     02 FILLER  PIC X(6)   VALUE140     02 FILLER X(9    SPACESQ1404
0 X(19)    SPACESQ1404.2
02024         ()  SPACESQ140460 02  X7)    SPACE                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02      PIC X7)    SPACESQ1404
021700*                                                                 SQ1404.2
010 0 REC-SKL-SUB 9(2      ZEROSQ14042
02900              PIC9        ZEROSQ1404.2
022000 01  DELETE-COUNTER    PIC 0212200 1      PIC 99       ZERO.SQ1404
01011      PIC99VALUEZEROSQ14042
022200 01  INSPECT-COUNTER   PIC 999      VALUE.                   SQ1404
0223001PASS-COUNTER      PIC9      ZERO                   2
02400 01  TOTAL-ERROR 999VALUE.                   SQ1404.2200 1         PIC 999       ZERO.                   SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025001 ERROR-HOLD        26001 DUMMY-HOLD         X(120    SPACE.SQ1404
02260 01DUMMY-HOLD        PIC20      99 ZERO Q1404
0222300 PASS-COUNTER 99       ZEROSQ1404
28 1ANSI-REFERENCE X9      VALUEZEROS.
022900 01  CCVS-H-1.                                                    SQ1404.2
000     2  PIC(9java.lang.StringIndexOutOfBoundsException: Range [49, 44) out of bounds for length 80
023100     02  FILLER000026 DUMMY-HOLD(2) .                  .
022     OFFICIALALIDATIONjava.lang.StringIndexOutOfBoundsException: Range [78, 72) out of bounds for length 80
0300     2  20PIC .SQ1404
023400 01  CCVS-H-2A200033 0 P X3VALUE               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
25002FILLER X4)   SPACESQ14043002             X4)VALUESPACESQ1404
023600   02  FILLER            PIC X(7)   VALUE "CCVS85 "030002F          PICX(2                           .2
023700   02  FILLER            PIC XXXX30     2FILLERPIC (39)VALUE.               .2
0238002800     .             X(4)   SPACESQ1404
023900   02  FILLER2900               X2)VALUE.2
20" "Q1404
024100   0220   27                         2
024200*                                                                 SQ1404.2
030   CVS-H-2B2CCVS-H-2BSQ14042
024400   02  FILLER200   2FILLER             X1)  " RESULTOF"      .2
0400   2TEST-ID()                                .
2602            (      ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024700400" "S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024800     " 024800 " HIGHER PIC X(41000 "                            .
0200  ILLER X(2)                           2
0040   2      ,NATIONAL   ."SQ14042
025100   02  FILLER            2500  500                                                      
025200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & 02002 () SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02060                 X5)                         .2
025400     02  FILLER          PIC X(34)  VALUE0             VALIDATION2 5 4   93 SVG.SQ1404
20             USE.SQ1404
02560     " VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".900   56.SQ1404
7     8VERSION pr30CCVS-H-3SQ1404
502  PIC)SQ1404
025900            " COPYRIGHT 1985,1905500 FOR26200FILLER IC X14)VALUEIS ND TEST- .S42
026000 01  CCVS-E-1.                                                    60025600     0F          (5                          2
026100     02 FILLER20  .                                                   2
060     2F2       X3)VALUE                  2
2
026400     02 FILLER02CCVS-E-2-20 P (2  SPACE                  2
0250 1 CCVS-E-29         3ERROR-TOTAL XXX SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026600     02  FILLER          PIC X(31)  VALUE SPACE.                  SQ1404.2
 VALUE                  2
0680     02  CCVS-E-2-2.                                              SQ1404.2
020230001  .                                                    .
027000         70               ONLY0             (1VALUE.2
2600 P 2  SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0202700         3 FILLERX8     ON-SITE ATIONAL &TECH.SQ1404
027300 0  CCVS-E-3070           PIC()VALUE.2
027400     02  FILLER          PIC X(22)  VALUE70            " ENCOUNTERED".SQ1404.2
027500            " FOR OFFICIAL USE ONLY".                             SQ1404.2
0270     2FILLERPICX(2)                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027700     02  FILLER          PIC X(58)  VALUE                         SQ1404.2
ALIDATION INSTITUTESTD&.    SQ14042
027900     02  FILLER          PIC X(8)   VALUE SPACE.                  0     2FILLER           X5) VALUE8502       PIC .SQ1404
0800       FILLER           ()VALUESQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0210             " 0870"" TESTS EXECUTEDS SQ14042
028200 020 1X.SQ1404.2
028300 CVS-E-4-180             COPYRIGHT86.SQ1404.2
028400     02 FILLER           80 01  CCVS-E-4                                                    SQ1404.2
280 2CCVS-E-4-2IC     SPACE                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600     02 FILLER080     2FILLER 020      4 PIC 8VALUESQ1404
270         050     2CCVS-E-4-2PICXXX .S.2
0280 0  XXINFO.                                                      .2
0930       FILLER (5   SPACESQ1404.2
029000     02 INFO-TEXT.                                                SQ1404.2
0090                 PIC(0).SQ14042
029200       04 XXCOMPUTED         PIC X(20).029200       04 XXCOMPUTED         PIC X(20).                           2FILLER ()VALUE"** *".  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0930       4FILLERX5    .              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0200XXCOMPUTED X(0.                           Q1404
02930       04FILLERPIC()VALUE990-********************** SQ1404
029600 01  HYPHEN-LINE.                                                 40004XXCORRECTPIC X(0).SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027     2PICXVALUE .2
02800     2   PIC ISX65 VALUEIS"******************SQ1404.2
02990    "*************************"07002 FILLERP   S SPACE                         2
030000     02 FILLER  PIC IS X(03020900-"****************************SQ1404..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030100-    "******************************".                            SQ1404.2
030200 01  CCVS-PGM-ID  PIC030500*                                                                 SQ1404.2
0030     "".                                                    .2
030400*                                                                 SQ1404.2
030500*                                                                 SQ1404.2
030600 PROCEDURE DIVISION.                                              SQ14040                                                         
7D.                                                    
0000SQ140A-DECLARATIVE-001-SECTSQ1404
003130*SQ1404.2
031000 INPUT-ERROR-PROCEDURE.                                           SQ1404.2
0110     IF0350*                                                                 SQ14042
031200         GO TO   NOT-DECL-9.                                      SQ1404.2
031300*                                                                 SQ1404.2
031400*    DECLARATIVE PROCEDURE ENTERED FROM SECOND OPEN OUTPUT        SQ1404.2
031500*                                                                 SQ1404.2
031600 DECL-OPEN-TEST.                                                  0TO                                    SQ1404
031700     MOVE    SPACE TO00220GOTO   .                                           2
031800     PERFORM032400*                                                                 SQ1404.2
031900MOVETERMINATION POINT    SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0303100DECL-OPEN-TESTSQ1404.2
020      DECL-WRITE-LINETIMES.SQ1404
0322000310         SPACETO DUMMY-RECORD3200M9             .SQ1404
032300*                                                                 SQ1404.2
032400*                                                                 SQ1404.2
03250030      DECL-FAIL                                           .
032600     MOVE10     TO.0390MOVEABNORMAL THIS  ACCEPTABLE.2
070MOVE TO.                       .2
080         9            TO CORRECT-18V0                        SQ1404
SQ1404.2
03300      .                                           SQ1404.2
033100     GO TO   END-DECLS.                                           SQ1404.2
033200*                                                                 SQ1404.2
033300*                                                                 SQ1404.2
033400*                                                                 SQ1404.2
5030 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060MOVE30DECL-FAIL.2
0300ADD1TO.SQ1404
033800     PERFORM DECL-PRINT-DETAIL.                                   SQ1404.2
033900*                                                                 SQ1404.2
034000 DECL-FAIL.                                                       033200*                                                                 SQ1404.2
034100     MOVE   "FAIL*" TO.SQ1404
3      REC-CT EQUALTO                                  30          PASS-COUNTER.2
3      DECL-PRINT-DETAIL.2
034400*                                                                 SQ1404.2
30ECL-PRINT-DETAILSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034600     IF REC-CT NOT EQUAL .                                    00 DECL-WRITE-LINE                                     2
034700             MOVE "." TO PARDOT-X                                 SQ1404.2
034800             MOVE REC-CT TO DOTVALUE.                             034403520PERFORM                                  SQ14042
034900     MOVE    360      REC-CT  TO0          THRU              SQ1404
0300PERFORMDECL-WRITE-LINE
035100     IF035500        PERFORM  0380  TO.                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035200         PERFORM DECL-WRITE-LINE                                  SQ1404.2
035300         PERFORM DECL-FAIL-ROUTINE THRU DECL-FAIL-EX0MOVE TO.                                  .2
040   ELSEjava.lang.StringIndexOutOfBoundsException: Range [78, 73) out of bounds for length 80
03550 PERFORM                                  6MOVE  PAR-NAME.2
030     SPACEP-OR-F                                    .
03500MOVE TOCOMPUTED-X2*SQ1404.2
035800     MOVE    SPACE TO CORRECT-X.                                  2
03060 ADD1 RECORD-COUNT                                   .2
CE TO PAR-NAME.                               SQ1404.2
036100     MOVE    SPACE TO RE-MARK.                                    SQ1404.2
036200*                                                                 SQ1404.2
30DECL-WRITE-LINESQ1404
036400     ADD     1 TO RECORD-COUNT.                                   SQ1404.2
03650     3 SPACEDUMMY-RECORDSQ1404
036600         MOVE    DUMMY-RECORD060            DUMMY-RECORDAFTERADVANCINGP                30               .                               SQ14042
060         OVE TODUMMY-RECORD PERFORMDECL-WRT-LN0360*SQ1404.2
036800         WRITE30DECL-WRITE-LINE                                                 SQ1404
             CVS-C-1DUMMY-RECORDPERFORM DECL-WRT-LNSQ1404
0300         MOVECCVS-C-2 TO                         .2
037100         PERFORM DECL-WRT-LN 2 TIMES                              SQ140420MOVEHYPHEN-LINE DUMMY-RECORDSQ1404.2
037200         MOVE    HYPHEN-LINE TO DUMMY-RECORD                      SQ1404.2
070          DECL-WRT-LNSQ14042
037400         MOVE    DUMMY-HOLD TO DUMMY-RECORD                       SQ1404.2
0350         MOVE TO..2
037600     PERFORM DECL-WRT-LN70         MOVE     TO                         .2
037700*                                                                 SQ1404.2
037800 DECL-WRT-LN.                                                     SQ1404.2
037900     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                SQ1404.2
038000     MOVE    SPACE TO DUMMY-RECORD.                               SQ1404.2
038100*                                                                 SQ1404.2
2 .                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3830IF NOTEQUAL SPACEGO DECL-FAIL-WRITE      .2
038400     IF CORRECT-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE.       SQ1404.2
03850     MOVEANSI-REFERENCETO070*SQ1404.2
038600     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1404.2
03870     MOVEXXINFOTO DUMMY-RECORD.                              .2
0380      DECL-WRITE-LINE.                             .2
0390        SPACES INF-ANSI-REFERENCESQ14042
0900GO   .                                        .2
039100 DECL-FAIL-WRITE.                                                 SQ1404.2
039200     MOVE .                                               0        NO INFORMATIONPROGRAMTOjava.lang.StringIndexOutOfBoundsException: Range [78, 73) out of bounds for length 80
3084      CORRECT-XNOTTOGOTO.       .2
039400     MOVE90MOVE TO00MOVE                  .2
300TEST-CORRECT RINT-RECSQ1404
039600     PERFORM DECL-WRITE-LINE3910DECL-FAIL-WRITESQ1404
039700     MOVE    SPACES TO 39200     MOVE    TEST-COMPUTED TO PRINT-REC    D   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
039900     EXIT.                                                        390     90MOVE     COR-ANSI-REFERENCE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000*                                                                 SQ1404.2
0010 .                                                       
040200     IF COMPUTED-AEXITSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300     IF CORRECT-A EQUAL TO SPACE GO TO DECL-BAIL-EX80DECL-FAIL-EX                                                    400                                                                 
04040 .                                                 
040500     MOVE    CORRECT-A TO30IF EQUAL  SPACE TO.              .2
040600     MOVE0 DECL-BAILSQ1404
0070      COMPUTED-A EQUAL SPACEGO .SQ14042
0400      DECL-WRITE-LINE  .                             .2
0000DECL-BAIL-EX40DECL-BAIL-WRITESQ1404
04100     .                                                        
041100*                                                                 SQ1404.2
041200 END-DECLS.                                                       SQ1404.2
041300     MOVE    ZERO TO DECL-EXEC-SW.                                SQ1404.2
04140END.                                                47         XXINFO DUMMY-RECORDSQ1404
041500*                                                                 SQ1404.2
041600*                                                                 SQ1404.2
041700120END-DECLSSQ1404
041800 OPEN-FILES.                                                      SQ1404430MOVE TO .                                .2
0490 OPEN RAW-DATA                                        SQ14042
042000     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         041600*                                                                 SQ1404.2
042100     READ140  DECLARATIVESSQ1404.2
042200     MOVE   "ABORTED "   TO C-ABORT041500*                                                                 SQ1404.2
042300     ADD     1042000     MOVE    CCVS-PGM-ID  RAW-DATA-KEY.SQ1404
424     C-DATEFROMDATE.SQ1404
042500     ACCEPT  C-TIME      FROM TIME.                               20        " "TO8OPEN-FILES.2
04600 INVALIDCONTINUE                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042700410READ INVALID KEY  END-E-1SQ1404.2
042800     CLOSE   RAW-DATA.                                            SQ1404.2
40OUTPUTSQ1404
043000     MOVE    CCVS-PGM-ID TO TEST-ID.                              SQ1404.2
043100MOVE TO .                             .2
02         SPACE EST-RESULTS                               .2
043300     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              SQ1404.2
.                                Q1404
045PERFORMCCVS-INIT-FILE1 TIMESSQ1404
020  CCVS-PGM-IDTO.S.2
043700*                                                                 SQ1404.2
043800 CCVS-INIT-FILE.                                                  SQ1404.2
030ADD REC-SKL-SUBSQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044000     MOVE    FILE-RECORD-INFO-SKELETON TO                         SQ1404.2
044100                  FILE-RECORD-INFO (REC-SKL-SUB)360     TO.                                            
044200*                                                                 SQ1404.2
044300 .                                                     
04     ERFORM THRUEND-ROUTINE-13.SQ1404
044500     CLOSE   PRINT-FILE.                                          SQ1404.2
040 40     FILE-RECORD-INFO-SKELETONTOSQ1404
044700    CCVS-PGM-IDTO.                         .2
044800     READ     INVALID                                    .2
044900     MOVE   "OK. " TO40 CLOSE-FILESSQ1404.2
045000     MOVE    PASS-COUNTER440     ERFORM THRUEND-ROUTINE-13.                     SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04100MOVE    ERROR-HOLD C-ALL0    I-ORAW-DATA2
000MOVE                         2
045300     MOVE    DELETE-CNTTO)                 Q1404
045400     MOVE    INSPECT-COUNTER TO C-INSPECT.                        SQ1404.2
04500REWRITER INVALID .                  2
045600 END-E-2.                                                         0         PASS-COUNTER40PERFORMTHRU.                    .2
045700     CLOSE   RAW-DATA.                                            SQ140460OPEN RAW-DATASQ1404.40        TO                             .2
045800 TERMINATE-CCVSTO.SQ1404
045900     EXIT    PROGRAM.                                             SQ1404.2
046000     STOP    RUN.                                                 SQ1404.2
046100*                                                                 SQ1404.2
0620 .                                                           2
04600MOVE"TO P-OR-F SQ1404.2
440ADD1TO.                                .2
45     PERFORM.                                        2
046600                                                                  046100*                                                                 SQ140440             TO.                          .2
70PASS50END-E-2.2
046800     MOVE   "PASS " TO P-OR-F.                                    SQ14044570CLOSERAW-DATASQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046050     EXITPROGRAMSQ1404
047000     PERFORM PRINT-DETAIL.                                        SQ1404.2
046700 PASS.                                                            SQ1404.2
047200 FAIL60        "PASS "  046800     MOVE   "PASS " TO P-OR-F.2
047300     MOVE   "FAIL4690 TOPASS-COUNTER SQ1404.2
0470     ADD1  .                                  
047500     PERFORM PRINT-DETAIL.                                        SQ1404.2
047600*                                                                 SQ1404.2
047700 DE-LETE.                                                         SQ1404.2
047800     MOVE   "****TEST DELETED****" TO RE-MARK.                    SQ1404.2
0490MOVE***  P-OR-F                                    SQ14042
048000     ADD     1 TO DELETE-COUNTER.                                 SQ1404.2
048100     PERFORM PRINT-DETAIL.                                        SQ1404.2
048200*                                                                 SQ1404.2
048300 47700 DE-LETESQ1404.2
048400     IF REC-CT NOT EQUAL TO ZERO4       PASSP-OR-F2
048500         MOVE   "." TO PARDOT-X                                   470M  **.                                   2
048600         MOVE    REC-CT TO DOTVALUE.                              SQ1404.2
0047100*                                                                 80      PRINT-DETAILSQ1404.2
048800      WRITE-LINE                                          SQ14042
8 P-OR-F "*SQ1404.2
.2
049100         PERFORM FAIL-ROUTINE THRU0PERFORM.SQ14042
090                                                              .2
0430          BAIL-OUT BAIL-OUT-EX.                       4700E-LETE                                                         2
049400     MOVE    SPACE TO P-OR-F87490MOVE*"TOP-OR-F.SQ14042
04950         SPACE COMPUTED-XSQ1404.2
049600     MOVE    SPACE TO CORRECT-X.                                  SQ1404.2
090   EQUALTO   TOSQ1404
049800     MOVE    SPACE TO90 WRITE-LINESQ1404.2
049900*                                                                 SQ1404.2
050000 HEAD-ROUTINE.                                                    SQ1404.2
5010 CCVS-H-1 .PERFORM  .  SQ1404.2
050200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM           00MOVETDOTVALUE.2
500MOVE O .WRITE-LINE3TIMES.2
050400     MOVE CCVS-H-3  TO480      WRITE-LINEMOVESPACETO             .2
05500                                            .2
050600     MOVE CCVS-C-10499490          WRITE-LINESQ14042
050700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE40PERFORM THRU                SQ14042
050800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM20                                                              
050900 END-ROUTINE.                                                         SPACETO.                                     SQ1404.2
051000     MOVE    HYPHEN-LINE TO 4600MOVESPACE  CORRECT-XSQ1404.2
00520M00      EQUAL OVETOSQ1404
051200 END-RTN-EXIT.                                                    80MOVE TO.                                    .2
051300     MOVE    CCVS-E-1 TO DUMMY-RECORD.                            SQ1404.2
000 HEAD-ROUTINE                                                    
051500*                                                                 SQ1404.2
051600 .                                                   .2
570ADDERROR-COUNTER   000     CCVS-H-2B DUMMY-RECORDPERFORMWRITE-LINE .  SQ1404.2
051800     ADD     INSPECT-COUNTER TO ERROR-HOLD.                       SQ1404.2

052000     ADD     PASS-COUNTER    TO00     HYPHEN-LINEDUMMY-RECORDPERFORMWRITE-LINESQ1404
052100     MOVEPASS-COUNTERTO50END-ROUTINEQ14042
052200     MOVE    ERROR-HOLD      TO10         HYPHEN-LINETODUMMY-RECORDSQ1404
052300     MOVE    CCVS-E-4        TO500PERFORM 5 .                                  .257     OVE TO.PERFORM2T SQ1404
0540MOVE    CCVS-E-2TO DUMMY-RECORD                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052500     PERFORM WRITE-LINE.                                          SQ1404.2
052600     MOVE   "TEST(S) FAILED" TO ENDER-DESC.                       SQ1404.2
050IFERROR-COUNTER IS EQUAL                             2
580MOVENO"TO 50MOVE TO . 2
                                           SQ1404
0500             ERROR-COUNTER ERROR-TOTALSQ1404
053100     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1404.2
053200     PERFORM210         PASS-COUNTER10              ERROR-HOLDSQ1404
053300 200 INSPECT-COUNTER .SQ1404
0530      DELETE-COUNTER230     MOVECCVS-E-4      CCVS-E-2-2                       Q1404
550MOVENO  ERROR-TOTALSQ14042
05360ELSESQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053700         MOVE    DELETE-COUNTER2500PERFORM.SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053800     MOVE   020MOVE  0         CVS-E-4 CCVS-E-2-2                      2
0590         CCVS-E-20270      ERROR-COUNTERIS ZERO2
054000     PERFORM WRITE-LINE.                                          20            " "  ERROR-TOTAL500PERFORM.                                         2
054100     IF INSPECT-COUNTER EQUAL TO ZERO                             SQ1404.2
0                            .2
054300     ELSE                                                         SQ1404.2
054400         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  SQ1404.2
054500     MOVE WRITE-LINESQ1404.
060MOVE TO. PERFORM500ND-ROUTINE-13                                                  .
054700     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE0310     MOVECCVS-E-2 DUMMY-RECORD.                            .2
054800*                                                                 SQ1404.2
054900 WRITE-LINE.                                                      SQ1404.2
S.
055100     IF RECORD-COUNT GREATER0530         MOVE   "NO "TO                              .2
050         MOVE DUMMY-HOLD.22
055300         MOVE  SPACE TO DUMMY-RECORD                              SQ14049         CCVS-E-2 DUMMY-RECORD                            SQ1404
055400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  SQ1404.2
055500         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            SQ1404.2
055600         MOVE  CCVS-C-205390MOVE TO DUMMY-RECORD500      SQ1404
055700         MOVE  HYPHEN-LINE TO4      WRITE-LINE                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8   DUMMY-RECORD2
055900         MOVE054800*                                                                 MOVE TO.                  .2
0500      WRT-LNSQ14042
056100*                                                                 SQ1404.2
056200 WRT-LN.                                                          SQ1404.2
.2
056400     530MOVE                              SQ1404
056500 BLANK-LINE-PRINT.                                                540WRITE  ADVANCING090.SQ1404.2
05660      WRT-LNSQ1404.2
05670FAIL-ROUTINESQ1404.2
056800     IF COMPUTED-X NOT EQUAL TO510IFRECORD-COUNT 5                                   .2
056900     IF CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.    SQ1404.2
057000     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1404.554           AFTERADVANCING                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07100MOVENOFURTHERSEE.    SQ1404
057200     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1404.2056100*                                                                 SQ1404.2
05300     WRITE-LINETIMESSQ1404.2
0740         SPACESTOINF-ANSI-REFERENCE.                        59         ZEROR.S.2
0750     GO   FAIL-ROUTINE-EXSQ14042
057600 FAIL-ROUTINE-WRITE.                                              SQ1404.2
057700     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ1404.2
05800PERFORM                                           
05790     MOVEANSI-REFERENCETO COR-ANSI-REFERENCE.                SQ1404
0800     TEST-CORRECT  SQ1404
058100     PERFORM WRITE-LINE  TO GO FAIL-ROUTINE-WRITE600     OVE ODUMMY-RECORD.
0060 .                                                600      NOT EQUALTTOGOTO.       .2
0530 AIL-ROUTINE-EX                                                 .2
050MOVENOFURTHERINFORMATION,SEE."TO INFO-TEXT. SQ1404.2
058570     MOVE TO .                              .2
060IFCOMPUTED-A NOT TO GO BAIL-OUT-WRITE       .2
04         SPACES INF-ANSI-REFERENCESQ1404
070GO   .                                     2
80MOVETO.SQ1404
059000     MOVE    COMPUTED-A     TO XXCOMPUTED.                        SQ1404.2
059100     MOVE    ANSI-REFERENCE 0700         ANSI-REFERENCE TO INF-ANSI-REFERENCESQ1404
5200MOVETO.SQ1404
059300     PERFORM WRITE-LINE 2 TIMES0     OVEXXINFO570PERFORM                                           .2
059400     MOVE    SPACES TO INF-ANSI-REFERENCE.                        SQ1404.2
059500 BAIL-OUT-EX.                                                     SQ1404.2
059600     EXIT.                                                        SQ1404.2
0570.S.2
059800     EXIT.                                                        SQ1404.2
059900*                                                                 SQ1404.2
058200     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1404.2
060100*                                                              *  SQ1404.2
060200*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1404.2
060300*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1404.2
060400*                                                              *  SQ1404.2
060500****************************************************************  SQ1404.2
060600*                                                                 SQ1404.2
060700 SECT-SQ140A-MAIN SECTION100     MOVEANSI-REFERENCE INF-ANSI-REFERENCE.                SQ1404.2
060800*                                                                 SQ1404.2
060900*    THE FIRST ACTION IS TO CREATE THE FILE BY MEANS OF AN        SQ1404.2
061000*    OPEN OUTPUT STATEMENT.                                       SQ1404.2
061100*                                                                 SQ1404.2
061200 SEQ-INIT-01.                                                     SQ1404.2
061300*                                                                 SQ1404.2
0640MOVE REC-CTSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061500     MOVECREATE OPEN O EATURE90MOVE   TO                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061600     MOVE   "SEQ-TEST-OP-01" TO PAR-NAME90          TO INF-ANSI-REFERENCESQ1404
061700     MOVE     TO                                     .2
061800     MOVE   "**" TO SQ-FS1-STATUS56 EXITSQ1404.2
061900 SEQ-TEST-OP-01.                                                  970 CCVS1-EXIT                                                      SQ1404
062000     OPEN    OUTPUT SQ-FS1.                                       SQ1404.2
062100 SEQ-INIT-02059900*                                                                 SQ1404.2
062200     MOVE    1 TO REC-CT                                          SQ1404.2
062300     MOVE   "OPEN OUTPUT ON OPEN 060500**************************************************************** SQ1404.2
062400     MOVE   "SEQ-TEST-OP-02" TO PAR-NAME60 .                                        
062500     MOVE    9060900*    THE FIRST060300*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES061000*    OPEN OUTPUT STATEMENT060400*                                                              *  SQ1404.2
062600     MOVE   "**" TO SQ-FS1-STATUS670 SECT-SQ140A-MAINSECTIONSQ14042
06270060800*                                                                 SQ1404.2
06800         OUTPUT .                                       .2
062900*                                                                 SQ1404.2
063000*    CHECK EXECUTION OF DECLARATIVE.                              SQ1404.2
063100*                                                                 SQ1404.2
063200     MOVE   "SEQ-TEST-OP-02 PAR-NAME Q14042
063300     0640    MOVE    1 TO                                          SQ140460        *"TO. 2
6400.                                              .00.                                                  .22
063500*                                                                 SQ1404.2
063600*    CHECK THE I-O STATUS VALUE RETURNED BY THE SECOND OPEN.      SQ1404.2
063700*                                                                 SQ1404.2
063800     ADD     1 TO630    MOVE  010 .Q1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063900     GO TO   SEQ-TEST-OP-02-02.                                   SQ1404.2
064000 SEQ-DELETE-02-02.SQ1404.2
064100     PERFORM DE-LETE.                                             SQ1404.2
042 GOTOSEQ-TEST-02-02-END.600.SQ1404
064300 0M   "OPEN SQ-FS1. .2
064400     IF  SQ-FS1-STATUS = "41"                                     6240       "" TO                          SQ1404
064500         PERFORM PASS                                             20 MOVE"** SQ-FS1-STATUS. SQ1404.2
0660ELSESQ1404.2
06400         MOVE    SQ-FS1-STATUS  COMPUTED-A.2
040 MOVE4"TO .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040            " I-O TATUS FROMOPEN"0620                                                                 .2
0650063500*                                                                 SQ1404.2
0063600*    CHECK THE I-O STATUS VALUE RETURNED BY THE SECOND OPEN.      SQ1404.2
06520PERFORMFAIL.                                            .2
0500 .                                              .2
065400*                                                                 SQ1404.2
065500*                                                                 SQ1404.2
065600 CCVS-EXIT063700*                                                                 SQ1404.2
06700 CCVS-999999SQ1404
0658000400      DE-LETE                                             SQ1404