Quelle  sq140a.cob   Sprache: Cobol

00  000 PROGRAM-ID.2
00000PROGRAM-ID.                                                      SQ14040030     .                                                      .SQ140400040050*                                                              *SQ14042
000300     SQ140A.                                                      SQ1404.2
000400****************************************************************  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 ENVIRONMENT003500CONFIGURATION SECTIONSQ1404
00500CONFIGURATIONSECTION.                                           0360SOURCE-COMPUTERSQ1404
0SQ1404.2
003700     Card0130.                                                    SQ1404.2
00800OBJECT-COMPUTER                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003900     Card0131SQ1404.2
004000*                                                                 SQ1404.2
00390Card0131SQ14042
004200 FILE-CONTROL.                                                    SQ1404.2
0430     SELECT PRINT-FILETO                                  
004400     "C0085" .                                                    
004500*                                                                 SQ1404.2
0060      RAW-DATAASSIGNTO                                  .2
004700     "C0098"                                                      0430      PRINT-FILE                                    2
004800           ORGANIZATION IS INDEXED                                SQ1404.20040           ORGANIZATIONIS NDEXEDSQ1404
0.2
005000           RECORD050           RECORD    RAW-DATA-KEY.                          .22
005100                                                                  SQ1404.2
050     SELECT5      SQ-FS1TOSQ1404
005300     "C0001"                                                      SQ1404053""                                                                 MODE                                  
008 FILE SECTIONSQ1404
005500*                                                                 SQ1404.2
005600*                                                                 SQ1404.2
00                                                    2
005800FILE IS PRINT-REC                        .2
005900 FD  PRINT-FILE                                                   SQ1404.2
00600     LABEL RECORDSSQ1404.2
006100     Card0132                                                     0      RECORDSSQ1404.2
006200     DATA RECORD IS0600010     Card0132                                                     .2
063.SQ14042
006400 01  PRINT-REC660                                                                  
006500 01  006400 01  PRINT-REC X1) SQ1404
0000600 10060 0   PICTURE10                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
006700 FD  RAW-DATA.                                                    SQ1404.2
 01RAW-DATA-SATZSQ14042
006900     05  RAW-DATA-KEY        PIC X(6).                            SQ1404.2
007000     05  C-DATE              PIC 9(6).                            2
.                            2
00720     070       PIC9.                             .2
07300     57700 C-INSPECTPIC99.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0040       80        8 2
007500     05  C-FAIL              PIC 99980 000             X.
06820FSQ-FS1.2
007700     05  C-INSPECT           PIC 999.                             SQ1404.2
78                   X(13)                           2
007905  java.lang.StringIndexOutOfBoundsException: Range [35, 23) out of bounds for length 80
008000     05  C-ABORT             PIC X(8).                            SQ1404.2
008100*                                                                 SQ1404.2
00820008800*                                                                 SQ1404.2
0090**   SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008400                .                                                 SQ1404.2
008009400*                                                                 SQ1404.2
008600*                                                                 SQ1404.2
008700 000070  3    PIC.                                     
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
009500 01  SQ-FS1-STATUS.010700*                                                                 SQ1404.2
0960 SQ-FS1-KEY-1 X SQ1404
009700   03 SQ-FS1-KEY-2PIC X.SQ14042
009800*                                                                 SQ1404.2
0990 1DECL-EXEC-SW  PICSQ1404.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
0080 0     PIC00*************1070                                                                 
010900*                                                                 SQ1404.2
0100 1  FILE-RECORD-INFORMATION-REC                                 SQ1404
110     3FILE-RECORD-INFO-SKELETONSQ14042
011200        05 FILLER                 PICTURE X(48)       VALUE       SQ1404.2
01130            FILE,RECORD/,RECNO000,00". .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0140 0590,RECKEY" S2
011500             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    SQ1404.2
0100 FILLER                 PICTURE2)              SQ140401300             FILE            0RECNO000,011300             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT
0110             ,=00,  ,BLR.SQ1404
10        0                   X3)              SQ1404
0190,RECKEY". .2
012000        05 FILLER                 PICTURE X(38)       VALUE       SQ1404.2
0210             ,=" .2
0120        5FILLERPICTUREX(8)       10         X(3        .2
012300             ",ALTKEY2= ".            SQ1404.2
012400        05 FILLER                 PICTURE X(7)        VALUE SPACE.SQ1404102007               ()                       .2
02
01260012300             ,=.            2
01700               PIC(5.                       SQ14042
012800           07 XFILE-NAME              PIC203FILE-RECORD-INFO  1.              .2
0129000               PIC60        5.                               
01137FILLER 7.SQ1404
013100           1200           7XFILE-NAME X(3           0XRECORD-NUMBERPIC6.2
0120           7     PIC ().                      SQ1404
PIC).SQ1404
013400           07 XRECORD-NUMBER      PIC 9(6).                       300          7  5.
300 FILLERPIC6.                       .2
0130           UPDATE-NUMBER       PIC(2).                       SQ1404.2
013700           07 FILLER              PIC X(5).                       SQ1404.2
030           07           PIC 9(4.                       SQ14042
01390           07               PIC (5)                       .2
014000        X(5.SQ1404
014100           07 FILLER              PIC X(7).                       SQ1404.2
014200           07 XRECORD-LENGTH      PIC 9(6).                       SQ1404.2
014300           07 FILLER              PIC X(7).                       SQ1404.2
014400           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1404.2
05000 P X()SQ14042
014600           07 XBLOCK-SIZE         PIC 9(4).                       SQ1404.2
014700           07 FILLER              PIC X(6).                       SQ1404040           7FILLER               00007XPROGRAM-NAME (.                       .2
040           07 PIC96..2
014900           07 FILLER              1600X         PIC4.                      .2
015000           40           7CHARS-OR-RECORDSPIC100         RECORDS-IN-FILEPIC9(66)                       .2
0150 0 FILLERPIC6 SQ14042
015200           07 XLABEL-TYPE         PIC X(1).                       SQ1404.2
015300        05 FILE-RECORD-INFO-P121-240.                             SQ1404.2
540                         PIC X)                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0550           7 XRECORD-KEY         PIC9).SQ1404
015600           07 FILLER00 PIC                      
50  PIC29).                     2
500                (.SQ1404
0150ALTERNATE-KEY2 (9)050PIC).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016000           07 FILLER50          7                X57FILLER..2
016100*                                                                 SQ1404.2
020  .                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063     2100  PIC                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
402..
000              X4   SPACE.
016600       03 PARDOT-X            PIC640                                                  
100             ICVALUESQ1404
016800     02 FILLER              6016003            9ZERO
09     java.lang.StringIndexOutOfBoundsException: Range [22, 21) out of bounds for length 80
017000     02 FILLER              0680FILLER               XVALUE10     PICXVALUE.SQ1404
01710690     FEATURE X(2   SPACE               SQ1404
017070                     XVALUESQ1404
017300     02 RE-MARK1100                X(   S.               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01740 1  .                                               
0750   02FILLERPIC(3)VALUE10 0  TEST-COMPUTEDSQ1404
017600   1750   0 FILLERPIC(0   SPACESQ1404
01770070  2FILLER  PIC070 0 FILLERP(0 .                             .2
018     3    PIC(  SPACE.2
017900080     3C    PICXSQ14042
01800    PIC70     3    COMPUTED-A-(9)(.SQ1404
03 REDEFINES 9)(4).SQ1404
018200     03 11080OMPUTED-0V18..
13R -.(4.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
8 4COMPUTED-18V0 -(8.2
018500        04 FILLER                          PIC X.                 SQ1404.2
01860003 FILLERPICX51804C                   (8            Q14042
0180 1TEST-CORRECTSQ1404
018800     02 FILLER PIC X(30) 018400        04 COMPUTED-18V0    -91)            SQ140463FILLER X(5 VALUE2
X()        " SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
09000 .                                                2
019100     03 CORRECT-A                  PIC X(20) VALUE SPACE80     2  PIC3)018900     02 FILLER PIC X(17) "CORRECT =. SQ1404.22
01920003    REDEFINESCORRECT-A-(9(.SQ1404
019300     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         SQ1404.2
094003CORRECT-4V14  CORRECT-A     -()9(1.SQ14042
019500     03 CORRECT-14V4 019200     03 CORRECT-N    REDEFINESPIC91     3ORRECT-A 20) SPACE.2
060     03R-18V0 CORRECT-A.2
019700         04 CORRECT-18V0                     PIC -9(18).          SQ1404.2
14FILLER                            X.SQ1404
()VALUE                              
0(8 VALUE..
020100*                                                                 SQ1404.2
020200 011800                           XSQ14049     3FILLER PIC (9       X( ALUESQ1404
020300     02 FILLER  PIC IS X        VALUE  00000               X(82000     3COR-ANSI-REFERENCEPICX(8  PACEQ1404
020400     02 FILLER00300   PICX         SPACESQ1404
02200     PIC (7     " SQ1404.2
020600     02 FILLER  PIC IS X020400     0FILLER IS205     FILLER ISX       VALUE.SQ1404
020002FILLER            SPACE.SQ1404
020800     02 FILLER00602   IC X24     IS"".               SQ1404072 FILLERPICISXVALUE  .                     2
000PICX)      .SQ1404
021000     02 FILLER  PIC IS X(62)00     2FILLER00         ()VALUEPASS.2
021100 01  CCVS-C-2000   PIC X()VALUE" 020 2F ICX(9 java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 80
021200     02 FILLER  PIC210 1CCVS-C-2SQ1404
0210002 FILLER 22    2   ICX1)VALUESQ1404
02100  PIC19)VALUE.                          .2
021500     02 FILLER  21400     02 FILLER  PIC)VALUE.                          
0260    2 PIC(2VALUE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700*                                                                 SQ1404.2
021800 01  REC-SKL-SUB021700*                                                                 SQ1404.2
021900 01  REC-CT            PIC10 1 REC-CT 9VALUE.                   
0200  DELETE-COUNTER99VALUEZERO                   .2
20 01  ERROR-COUNTER 99 .                   SQ14042
 ZERO.2
020            01        9 ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
22400 0  java.lang.StringIndexOutOfBoundsException: Range [23, 22) out of bounds for length 80
022500 01  ERROR-HOLD        PIC 999      VALUE ZERO.                   SQ1404.2
000java.lang.StringIndexOutOfBoundsException: Range [21, 12) out of bounds for length 80
022700 01  RECORD-COUNT      PIC 9(5)     VALUE ZERO200 1  UMMY-HOLDPIC2200 INSPECT-COUNTER 9      ..S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022800 01  ANSI-REFERENCE    PIC X(0200 01      PICX9VALUE .                   Q14042
022900 01  CCVS-H-1250 1ERROR-HOLD 9       ZERO.2200     02           X)V SPACES.               .2
02300     26 1         X10)VALUES2
030 02            02320" OMPILERV .SQ14042
023200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 23300  0800 0       X4)VALUE                 2
02300    2 FILLER          IC()SPACESSQ14042
023400 01  CCVS-H-2A.                                                   SQ1404.2
020    PIC40                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030" COBOL VALIDATION SYSTEM".java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020    F            PIC   VALUE.2
0230"42 ".                                                      23000  .                                                   2
0390   2FILLERPIC(28                           SQ1404
040            COPYFORDISTRIBUTION                       
0410   00700  FILLER             XXXXSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024200*                                                                 SQ1404.2
0230 0  .                                                   2
024   0  FILLER            PIC(5  VALUETEST  .SQ1404
024500   02  TEST-ID250   0  TEST-ID           PIC X9).SQ1404.2
0460  FILLER X)   "N"                 .
024700   02  FILLER            PIC X(12)  VALUE                         SQ1404.2
040      HIGH     .SQ1404.2
024900   02  FILLER            PIC X(22)  VALUE                         SQ1404.2
20             LEVEL FOR                             2
025100   02  FILLER290   2FILLER            PICX(2)VALUESQ1404
0500"ON-SITEVALIDATION, NATIONALINSTITUTEOFSTD & . .SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050 1.SQ1404
02602FILLER            X()VALUE ". SQ1404.2
050240   0FILLERPIC2                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0250002FILLERPIC (8  VALUESQ14042400   2FILLERPICX22  VALUESQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0270"COBOL8VERSION2,Apr19 SVG                      .SQ1404
025800     02  FILLER          PIC50002  FILLERPIC(58)50"FOR ONLY "                        2
05              COPYRIGHT18,98 .                          .2
02602500     "COBOL 5 VERSION 4.2,Apr 10500 . SQ1404SQ1404..2
0024     F          X3)VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0202FILLERPIC(1)  " TEST-".              140java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02630025600       ILLERX(5)VALUE.2
026400     270     COBOL8  .,Apr9 SVG.SQ1404.22
0500 1CCVS-E-2                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
002            X31  SPACE.2
0267002000  .                                                    
026800       .0261002FILLERIC() SPACE.                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0200     PICXXX    SPACE                2
027000         03 FILLER60 0           X9)                                SQ1404
0210         03 ENDER-DESC X1  .SQ1404
0272280SQ1404
7 1CCVS-E-3SQ14042
020                 )  SQ1404
0250"FOR OFFICIALUSE".                             0     2  FILLERPICX21)   SPACE.                  SQ1404.2
60     2FILLERIC()  VALUE.                  SQ1404.2
027700     02  FILLER          PIC X(58)  VALUE                         SQ1404.2
02800" ,NATIONAL OF STD . "SQ1404.2
027900     02  FILLER          PIC X(8)   VALUE1.                                                    3    PIC X4  ALUESQ1404
028000     02  FILLER          PIC X(20)  VALUE.2
028100             " COPYRIGHT 1985,1986".                              SQ1404.2
                                2
028300     02 CCVS-E-4-1250               " SQ14042
028400070     0FILLER,    STD& TECH    ".SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02500 CCVS-E-4-2       XXXVALUE                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028600027800     ON-SITE, NATIONAL STD200     0PIC(0                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
270      " TESTSWERE UCCESSFULLY"                       
080 0XINFOSQ1404
028900     02 FILLER0     2C       PIC20" 195,9"                              
029000     02 INFO-TEXT.                                                SQ140480 0         XXX0800       CCVS-E-4-2P  VALUESPACESQ14042
290      0 FILLERPIC()   SPACE.
029200       040870" TESTSWERE2500 XXXVALUESPACE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30               X5)    .java.lang.StringIndexOutOfBoundsException: Range [78, 73) out of bounds for length 80
204XXCORRECT0..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
SQ1404           X9   "* ****.SQ14042
0200     2 .SQ1404
0290900 PICVALUE2
029800     0204           0                           
0290    "******************"                 
030000     02 FILLER  PIC IS X(54)    VALUE500 PIC(2900 ILLER   IS.                         SQ1404
030100-    "******************************".                            SQ14040-    ***********************".9 02FILLER IC IS VALUEIS SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020-"*****************. 22
030300     "SQ140A".                                                    SQ1404.2
030400*                                                                 SQ1404.2
030500*                                                                 SQ1404.2
030600 PROCEDURE DIVISION.                                              330     SQ140ASQ14042
030700 DECLARATIVES.                                                    SQ1404.2
030800 SQ140A-DECLARATIVE-001-SECT SECTION.                             SQ1404.2
03000     "SQ140A"".
031000 INPUT-ERROR-PROCEDURE.                                           SQ1404.2
031100     IF DECL-EXEC-SW NOT 03000 ECLARATIVESSQ1404.2
0300SQ140A-DECLARATIVE-001-SECT.                             .2
031300*                                                                 SQ1404.2
031400*    DECLARATIVE PROCEDURE ENTERED FROM SECOND OPEN OUTPUT        SQ1404.2
031500*                                                                 SQ1404.2
031600 DECL-OPEN-TEST.                                                  SQ1404.2
031700     MOVE    SPACE03900      AFTER STANDARDEXCEPTIONPROCEDURESQ-FS1SQ1404.2
031800     PERFORM DECL-WRITE-LINE3100INPUT-ERROR-PROCEDURESQ1404.2
031900     MOVE   "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"    SQ1404.2
032000                DUMMY-RECORD.2
03100     PERFORMDECL-WRITE-LINE 3 .                             .2
320 TOEND-DECLSSQ1404
032300*                                                                 SQ1404.2
032400*                                                                 SQ1404.2
031400*    DECLARATIVE1        "ABNORMAL TERMINATION AT THIS IS ACCEPTABLE".2
032600     MOVE   "NOT-DECL-9"  TO PAR-NAME.                            SQ1404.2
032700     MOVE    310PERFORM 3 TIMES                             .2
038OVECORRECT-18V0SQ14042
032900     MOVE   "UNEXPECTED ENTRY TO DECLARATIVES" TO032300*                                                                 SQ1404.2
300PERFORM                                           2
0330 GO   END-DECLS010   ABNORMAL   POINTACCEPTABLESQ1404
033200*                                                                 SQ1404.2
033300*                                                                 SQ1404.2
033400*                                                                 SQ1404.2
033500 DECL-PASS.                                                       0PERFORMDECL-FAIL                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
360        PASS " 30 SQ14042
0370ADD1TO.                                   .2
3800PERFORMDECL-PRINT-DETAIL                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033900*                                                                 SQ1404.2
00 DECL-FAILSQ1404
034100     MOVE   330            PASS-COUNTER                                   .2
034200     ADD     1 TO ERROR-COUNTER.                                  SQ1404.2
034300     PERFORM DECL-PRINT-DETAIL.                                   SQ1404.2
034400*                                                                 SQ1404.2
034500 DECL-PRINT-DETAIL.                                               SQ1404.2
04600IFREC-CT NOT  ZERO07          1TO.SQ14042
034700             MOVE 04300PERFORM.                                   SQ1404
800             OVE 030D                                               2
034900     MOVE    TEST-RESULTS TO PRINT-REC.                           SQ1404400DECL-FAILSQ1404.2
0500PERFORM ECL-WRITE-LINESQ1404
035100     IF P-OR-F EQUAL TO "FAIL*"                                   0     ADD    1TO ERROR-COUNTERSQ1404
320          DECL-WRITE-LINESQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050PERFORM DECL-FAIL-EXSQ1404
035400     ELSE                                                         SQ1404.2
0 PERFORMDECL-BAIL4MOVETODOTVALUESQ1404
035600     MOVE400MOVETEST-RESULTS PRINT-RECSQ1404
035700     MOVE    SPACE      DECL-WRITE-LINESQ14042
03580         SPACE CORRECT-XSQ1404
035900     IF REC-CT EQUAL TO ZERO                                      5 ELSESQ1404.2
000             TO.                               
0610     OVE360     .                                    
036200*                                                                 SQ1404.2
SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
360     TOSQ1404
036500     IF RECORD-COUNTSQ1404      .SQ1404
037         SPACE .                                 0320                                                                 
070            TO                            .2
0380WRITE  ADVANCING AGE60         SPACEPAR-NAME.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
390M    CCVS-C-1 DUMMY-RECORDPERFORM      SQ140420                                                                 
037000         MOVE    CCVS-C-2 TO DUMMY-RECORD                         064         CTOPERFORM     2
037100         PERFORM DECL-WRT-LN DUMMY-HOLD.2
03700             HYPHEN-LINE TO                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037060WRITE 030PRFORMjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037400         60         OVE70             ZERO RECORD-COUNT                            2
037500         MOVE    ZERO TO          DECL-WRT-LN
0600PERFORM                                         
037700*                                                                 SQ1404.2
037800 DECL-WRT-LN.                                                     SQ1404.2
0390    AFTERA 1 LINESSQ1404
038003800DECL-FAIL-ROUTINESQ14042
038100*                                                                 SQ1404.2
038200 DECL-FAIL-ROUTINE.                                               SQ14040          TO370                                                                 
038300     IF COMPUTED-X NOT EQUAL TO SPACE GO TO800PERFORM 2 TIMESSQ1404
038400     IF CORRECT-X NOT EQUAL TO SPACE GO TO DECL-FAIL-WRITE030      TODECL-FAIL-EX                                        SQ1404
038500     MOVE    ANSI-REFERENCE TO INF-ANSI-REFERENCE.                SQ1404.2
03860     MOVE" URTHER ,SEE PROGRAM. TOINFO-TEXT .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
080MOVE TO.                              .2
0880300IFCORRECT-X NOTEQUAL    DECL-FAIL-WRITESQ1404
0380         SPACES INF-ANSI-REFERENCE350         TO.SQ1404
05         TO                           
3910DECL-FAIL-WRITE                                                 .
0                           80PERFORM 2TIMESSQ14042
039300     PERFORM DECL-WRITE-LINE                                      SQ1404.0380         39DECL-FAIL-EXSQ1404.2
034     ANSI-REFERENCETOCOR-ANSI-REFERENCE.                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039500     MOVE    TEST-CORRECT TO PRINT-REC020MOVE TOPRINT-REC                           .2
039600     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1404.2
039700     MOVE    SPACES TO COR-ANSI-REFERENCE.                        SQ1404.2
0300DECL-FAIL-EXSQ1404.2
039900     .                                                        2
040000*                                                                 SQ1404.2
00DECL-BAIL.                                                       .2
040200     IF COMPUTED-A NOT EQUAL TO SPACE GO TO DECL-BAIL-WRITE00DECL-BAIL-WRITESQ1404.2
04000      CORRECT-A TO GO DECL-BAIL-EXSQ1404040000*                                                                 SQ1404.2
040400 DECL-BAIL-WRITE.                                                 40      NOT TOGOTO      2
040500     MOVE    CORRECT-A TO XXCORRECT49 .40 .                                                 
040600     MOVE    COMPUTED-A TO XXCOMPUTED041100*                                                                 SQ140440MOVE TOSQ1404
0000     OVEXXINFO.                              
040800     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ1404.2
040900 DECL-BAIL-EX.                                                    SQ140490DECL-BAIL-EXSQ1404.2
0041500*                                                                 SQ14040410     .                                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041100*                                                                 SQ1404.2
041200 END-DECLS10        I-O.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041300     MOVE    ZERO TO DECL-EXEC-SW.                                SQ1404.2
0440END.                                                
041500*                                                                 SQ1404.2
041600*                                                                 SQ1404.2
041700 CCVS1 SECTION.                                                   SQ14042    420ACCEPTC-DATEFROMDATE..2
010 .                                                     
0490OPEN RAW-DATASQ1404200REWRITE   CONTINUESQ1404
042000     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         SQ1404.2
040         RAW-DATA GOTO.                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2     MOVEABORTED C-ABORT09         OUTPUT.                                   2
042300     ADD     1           TO C-NO-OF-TESTS.                        SQ1404.2
042400     ACCEPT  C-DATE4200 .3          TO.                               
2       C-TIME.2
042600     REWRITE030PERFORM  TIMES.2
470MOVECCVS-PGM-IDTO                              
042     CLOSE   .                                            .2
042900     OPEN    OUTPUT PRINT-FILE.                                   SQ1404043 THRU0           .                                    2
030          TO.                              .2
SQ1404
043200     MOVE    SPACE TO TEST-RESULTS.                               SQ1404.2
043300     PERFORM HEAD-ROUTINE CLOSE-FILESSQ1404.2
0440MOVE TO40java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 80
043500     PERFORM CCVS-INIT-FILE0604MOVE TO                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043600     GO TO CCVS1-EXIT.                                            RAW-DATA SQ1404
043700*                                                                 SQ1404.2
05     OVE    TO40OPEN.SQ1404
030      1  REC-SKL-SUBSQ1404
04400         FILE-RECORD-INFO-SKELETON TOSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
-SKL-SUBS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044200*                                                                 SQ1404.2
0440 LOSE-FILESSQ14045     REWRITEAW-DATA-SATZ KEYCONTINUES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
400      END-ROUTINE END-ROUTINE-13                    SQ1404
04    ERROR-HOLD     C-ALLSQ1404
0440         I-O.                                        50 ERROR-COUNTER C-FAIL
044700     MOVE    CCVS-PGM-ID TO RAW-DATA-KEY.                         SQ1404.80  TO                        2
0480     INVALID GO END-E-2SQ1404.2
044900     MOVE   "OK. " TO C-ABORT.                                SQ1404.2
045000     MOVE    PASS-COUNTER  TO C-OK.4600INSPTSQ1404.
045100     MOVE    ERROR-HOLD    TO C-ALL30        "INSPT SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045200     MOVE    ERROR-COUNTERSTOP    60PERFORMPRINT-DETAIL                                        SQ1404
0530     MOVEDELETE-CNT C-DELETEDSQ1404
04540MOVEINSPECT-COUNTER C-INSPECT                        .2
045500     REWRITE RAW-DATA-SATZ INVALID KEY CONTINUE.                  SQ1404.2
040                                                          
050        .                                            2
050 .                                                  
490EXIT    .                                             .2
046000     STOP    RUN.                                                 SQ1404.2
046100*                                                                 SQ1404.2
                                     SQ1404.2
0600ADD1 .                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046400     ADD     1 TO INSPECT-COUNTER.                                SQ1404.2
046500     PERFORM PRINT-DETAIL.                                        047600*                                                                 SQ1404.2
046600                                                                  TOERROR-COUNTER40     "**"TO.                                    .2
046700 PASS.                                                            SQ1404.2
080 " P-OR-F SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04790OVE**"TOP-OR-F. Q1404.
070PERFORM.SQ1404
047100*                                                                 SQ1404.2
047200 FAILPERFORM.                                          .2
047300     MOVE   "FAIL*" TO P-OR-F.                                    SQ1404.2
047400     ADD     1 TO ERROR-COUNTER.                                  SQ14042
04750      PRINT-DETAIL                                        .
047600*                                                                 SQ1404.2
04770DE-LETESQ1404.
047800     MOVE   "****TEST DELETED****" TO RE-MARK.                    SQ1404.2
40     "*** . SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048000     ADD     1 TO DELETE-COUNTER.                                 SQ1404.2
048100     PERFORM PRINT-DETAIL.                                        P-OR-F  "490 IF TO ZEROMOVE PAR-NAME. .22
048200*                                                                 SQ1404.2
048300 PRINT-DETAIL.                                                    PERFORM  THRU                .2
048400     IF REC-CT NOT EQUAL TO ZERO                                  SQ1404.2
048500         MOVE   "."490     MOVE TO001MOVE TO.  2TIMESSQ14042
480    O                              2
040030MOVECCVS-H-2BDUMMY-RECORD  WRITE-LINE  SQ14042
0800PERFORM ZERO SPACEPAR-NAME             Q1404
008000COLUMN-NAMES-ROUTINE                                           
0900         PERFORM                                       .
0410          FAIL-ROUTINE FAIL-ROUTINE-EX.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
04900ELSESQ1404.2
049300         PERFORM BAIL-OUT05000 HEAD-ROUTINESQ1404.2
049400     MOVESPACE  P-OR-F                                     
04900MOVESPACE  COMPUTED-XSQ1404
0960         SPACETO.                                  2
097     IF   ZEROM   PAR-NAME             2
049800         SPACE RE-MARKSQ14042
049900*                                                                 SQ1404.2
5000SQ1404
0501000COLUMN-NAMES-ROUTINE50SQ1404.2
050200     MOVE CCVS-H-2AEND-ROUTINE-1SQ1404
050 TO   3TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050400     MOVE CCVS-H-3   .  WRITE-LINE   .2
05580        . .        2
050600     MOVE CCVS-C-1 TO DUMMY-RECORD        TO900 .                                                     2
0     CCVS-C-2DUMMY-RECORD   .  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05520                 TO                      SQ1404.2
050900 END-ROUTINE.                                                     SQ1404.2
051000     MOVE    HYPHEN-LINE TO DUMMY-RECORD.                         SQ1404.2
051100     PERFORM WRITE-LINE 5 TIMES.                                  SQ1404.2
051200 END-RTN-EXIT.                                                    SQ140405600END-ROUTINE-12      ERROR-COUNTER IS O SQ1404
530         CCVS-E-1  DUMMY-RECORDSQ1404
051400     PERFORM 052900     ELSE              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051500*                                                                 SQ1404.2
05100 .                                                   
05170AERROR-COUNTER ERROR-HOLD                        .2
10ADDT 2
051040IF IS0300MOVE        .S2
052000     ADD     PASS-COUNTER    TO030            " "TO                              .2
052100     MOVE    PASS-COUNTER    TO CCVS-E-4-1.                       SQ1404.2
052200     MOVE    ERROR-HOLD      TO CCVS-E-4-2.                       SQ1404.2
53                 TO..
052400     MOVE    CCVS-E-2        TO DUMMY-RECORD                      SQ140405300MOVECCVS-E-2050     ERROR-COUNTER  TOSQ1404
0550                                           .
052600     MOVE   "TEST(S) FAILED" TO ENDER-DESC590ELSE                                                        2
052700     IF ISE TO 54200         MOVE   "NO " TO ERROR-TOTAL  
052800         MOVE05310         CCVS-E-2 TO.                            SQ1404.2
052900     ELSE                                                         SQ1404.2
540         CCVS-E-2 DUMMY-RECORDPERFORM30 .                                                  2
050          TOSQ1404
0320PERFORM.                                          
050                                                         
053400     IF DELETE-COUNTER QUALQ1404
0350  ERROR-TOTALSQ1404
053600     ELSE03800     MOVE"(S) DELETED " TO.520         DUMMY-RECORDTO                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0570              TO.                   .2
053800     MOVE   "TEST(S) DELETED " TO ENDER-DESC.                 SQ1404.40 INSPECT-COUNTER OZEROSQ1404
00         CCVS-E-2.530                                                        
05000PERFORM.                                          
05     IFINSPECT-COUNTER  ZEROSQ1404
054200         MOVE   "NO " TO ERROR-TOTAL                              SQ1404.2
0530     0550         MOVEDUMMY-HOLD TO                         .
054400             INSPECT-COUNTER ERROR-TOTALSQ1404
054500     MOVE   "TEST(S) REQUIRE INSPECTION"0490 .                                                      2
054600     MOVE    CCVS-E-2 TO DUMMY-RECORD.056100*                                                                 SQ1404.2
054700     MOVE    520         MOVE TO                         
054800*                                                                 SQ1404.2
590 .                                                      
055000     ADD     1 TO RECORD-COUNT600PERFORM.                                              
0550       GREATER 0SQ14042
0520           TO                         .2
05530            TO                              
040WRITE PAGE.2
550MOVE TO PERFORM            SQ1404
0550MOVE  DUMMY-RECORD WRT-LN TIMES510        NO ,PROGRAM"TINFO-TEXT. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055700         MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ1404.2
055800         MOVE730PERFORM 2 TIMES.                                  
05500MOVE  ECORD-COUNT                              Q1404
056000     PERFORM WRT-LN.                                              550      TO.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056100*                                                                 SQ1404.2
056200 WRT-LN.                                                          SQ1404.2
056300     WRITE   DUMMY-RECORD AFTER ADVANCING 1 LINES.                570500            PRINT-REC
04M    T .                               2
0550BLANK-LINE-PRINTSQ1404     C NOT  SPACE FAIL-ROUTINE-WRITE2
056600     PERFORM WRT-LN.                                              0MOVE0F.                                                 
       2
056800     50    java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
560  NOTTO  FAIL-ROUTINE-WRITE90              TO                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
500MOVE .                .2
092           DUMMY-RECORD                              2
05720MOVE    XXINFO780PWRITE-LINESQ1404
057300     PERFORM WRITE-LINE 2 TIMES.                                  SQ1404.2
05740007MOVE TO.                .2
800        TEST-CORRECTTOPRINT-REC                          SQ1404
0560 .                                              7                                                       
057700     MOVE    TEST-COMPUTED  TO PRINT-REC                          SQ1404.2
057800     PERFORM WRITE-LINE                                           SQ1404.2
05700         ANSI-REFERENCE COR-ANSI-REFERENCE                SQ1404.2
058000     MOVE    TEST-CORRECT   TO PRINT-REC80BAIL-OUTSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05800     PERFORM  2TIMES.2
058200     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1404.2
058300 FAIL-ROUTINE-EX.                                                 SQ1404.2
0540     .                                                        .2
058500 BAIL-OUT59     000*                                                              .2
0580     FCOMPUTED-A EQUALTO GO  BAIL-OUT-WRITE       .660                                                                 
058700     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1404.2
058800 BAIL-OUT-WRITE060900*    THE FIRST ACTION IS 530PERFORMWRITE-LINE 2600*OPEN STATEMENTSQ1404.2
800         CORRECT-AXXCORRECT.                         .2
059000     0550 .                                                     
059100     MOVE    ANSI-REFERENCE TO610         1 TO                                          2
020        XXINFO DUMMY-RECORD2
059300     PERFORM WRITE-LINE 2 TIMES.                                  SQ1404.2
0540MOVESPACES .                        .2
059500 BAIL-OUT-EX.                                                     1TODECL-EXEC-SWSQ1404
0900    .                                                        
0590 CCVS1-EXIT.                                                      .2
059800     EXIT.                                                        SQ1404.2
059900*                                                                 SQ1404.2
060000****************************************************************  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
000 .                                        .
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 .                                                     .2
061300*                                                                 SQ1404.2
0610     MOVE REC-CT80     OVE*SQ-FS1-STATUS2
061500     MOVE   "CREATE FILE, OPEN OUTPUT" TO034 SEQ-TEST-02-01-ENDSQ1404690 SEQ-TEST-OP-01SQ1404.
0660        "" TO                          
061700     MOVE    1 TO DECL-EXEC-SW                                    SQ1404020SEQ-INIT-02SQ1404.2
06620    1TO                                          
9S2
062000     OPEN    OUTPUT SQ-FS1.                                       640        "SEQ-TEST-OP-02"TO                          
062100 SEQ-INIT-02.                                                                                                     
062200     MOVE6400        070SEQ-TEST-OP-02.2
06230     OVEUTSQ-FS1                                       
0240 MOVESEQ-TEST-OP-02 PAR-NAME.2
062500     MOVE    9 TO DECL-EXEC-SW                                    SQ1404.2
0660       *"TOjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062700 SEQ-TEST-OP-02.                                                  SQ1404470SQ-FS1-STATUS TO                      SQ1404
062800     OPEN    OUTPUT SQ-FS1.                                       SQ1404.2
062900*                                                                 SQ1404.2
063000*    CHECK EXECUTION OF DECLARATIVE.                              SQ1404.2
063100*                                                                 SQ1404.2
063200     MOVE   "SEQ-TEST-OP-02"60          SQ1404
063300     MOVE030 SEQ-TEST-02-02-ENDSQ1404
063400 SEQ-TEST-02-01-END.                                              SQ1404.2
063500*                                                                 SQ1404.2
063600*    CHECK THE I-O STATUS VALUE RETURNED BY THE SECOND OPEN.      SQ1404.2
063700*                                                                 SQ1404.2
063800     ADD     06670 ..                                                     
063900     GO TO   SEQ-TEST-OP-02-02.                                   SQ1404.2
064000 SEQ-DELETE-02-02.                                                SQ1404.2
0610PERFORM.                                             .2
064200     GO TO   SEQ-TEST-02-02-END.60I   = 4"SQ14042
040 .                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064400     IF  SQ-FS1-STATUS = "41"                                                  SQ-FS1-STATUS COMPUTED-ASQ1404
06500PERFORM                                             .2
064600     ELSE                                                         SQ1404.2
070                                     
064800         MOVE   "41" TO600                    RE-MARK.2
6490MOVE"UNEXPECTED I-OSTATUSC OPEN"     .2
065000                    TO RE-MARK                                    SQ1404          .                                            
065100         MOVE   "VII-4065500* SQ1404.2
652PERFORM.                                            .2
065300 SEQ-TEST-02-02-END.                                              SQ1404.2
065400*                                                                 SQ1404.2
065500*                                                                 SQ1404.2
065600 CCVS-EXIT SECTION.                                               SQ1404.2
065700 CCVS-999999.                                                     SQ1404.2
065800     GO TO   CLOSE-FILES.                                         SQ1404.2