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     p;         PICTURE X(38)       VALUE       SQ1404.2
0200",= .SQ14042
012400        05 FILLER                 PICTURE X(7)        VALUE170"LFIL0000ORG=,BLR= "                        .2
012500     03016010                                          2
160         FILE-RECORD-INFO-P1-120.                              .2
012700           07 FILLER200                   X3080        0FILLERPICTURE7)     SQ1404
012800           1190             "RECKEY= ".             SQ1404.2
09           7FILLER             X.SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013000           07 XRECORD-NAME        PIC X(6).                       012200        05 FILLER                 PICTURE X(38)       VALUE       SQ14040"ALTKEY2="            SQ1404
013100           07 FILLERPIC X(1050      FILE-RECORD-INFOOCCURS0TIMESSQ1404
013200           07 REELUNIT-NUMBER     PIC 9(1).                       SQ140490           7FILLERPIC00        5FILE-RECORD-INFO-P1-120SQ14042
0300           0 FILLER              PICX()                       .2
040           07 XRECORD-NUMBER 9(6                       SQ1404
013500           07 FILLER              PIC X(6).                       SQ1404.2
013600           07 UPDATE-NUMBER       PIC 9(2).                       SQ1404130            XRECORD-NAME X7.                      2
0170           7FILLERPICPIC().                       SQ1404
013800           07 ODO-NUMBER          PIC 9(4).                       SQ1404.0150           07               PIC X().SQ1404
0           7XPROGRAM-NAME()                      .
01600        PIC)                       SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014100           0130           7ODO-NUMBER 94..2
014200           07 XRECORD-LENGTH      PIC39007FILLER450           FILLERIC..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014300 FILLERPIC400        X5SQ1404
014400           07 CHARS-OR-RECORDSPIC(2.                       .2
014500           070120007 XRECORD-LENGTH      PIC 9610            RECORDS-IN-FILE () SQ14042
0400           0 BLOCK-SIZE 9() SQ1404
0170                           (6)                       .2
048 7      (6.SQ1404
014900           07 FILLER              PIC X(5).                       SQ140450          7FILLERPIC().SQ1404507FILLER (.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051400007               ()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015100           07 FILLER              PIC X(6).                       SQ140400 RECORDS-IN-FILE 96.SQ14045007XRECORD-KEY X2)                      .2
01200          7X         X(1)                       SQ1404
0130        0 .                             100           0ALTERNATE-KEY1PIC(2.                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1007                X)                       SQ1404
015500           07 XRECORD-KEY         PIC X(29).                      SQ140450        5FILE-RECORD-INFO-P121-240SQ1404
000 FILLER               X9                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015700           07 ALTERNATE-KEY1      PIC X(291600 ILLER )                       SQ1404
01580100java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 80
015900           07 ALTERNATE-KEY2      PIC X(29).                      SQ1404.2
607F               X() SQ1404
016100*                                                                 SQ1404.2
0160010      PAR-NAMESQ14042
016300     02 FILLER              PIC16500       3 FILLER              PIC X(1)VALUE.             SQ1404.2
140     PAR-NAME.2
0 3               PIC(4   SPACESQ1404
0160     0  .                                                SQ14047  DOTVALUEPIC      ZERO
0160       3DOTVALUE 9     .              .2
016800     02 FILLER              PIC X      VALUE SPACE.010                    60     02FEATURE X(4   SPACESQ1404
016900     02 FEATURE             PIC X(24)  VALUE01600       3 DOTVALUE             99      ZEROSQ1404
10     02                      SPACE2
017100     02 P-OR-F              PIC X(5)   VALUE SPACE12PIC.               
11     2P-OR-FX) PACE.2
017300     02 RE-MARK             PIC X01720     0 FILLER              PICX9)   VALUE.               0001TEST-COMPUTEDSQ1404
017401                                                 .2
070   2   X3)VALUE.                             .2
160 0 FILLER 00  F  X3)  SPACESQ1404
017700   0076   2FILLER10     03     2)ALUE .SQ1404
070     0 OMPUTED-A (2                                     .2
0790      REDEFINESPIC99).9        2
070     0    PIC-(.14.SQ1404.2
0180     080003C REDEFINESCOMPUTED-AP -.9(8.SQ14042
01100     3  REDEFINES COMPUTED-A 94.144       SQ14042
018300018200      COMPUTED-14V4REDEFINES   -       (00        -1)SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                PIC(8.            06     03 PIC5)SPACESQ1404
018500        8000TEST-CORRECT1 VALUECORRECT.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
01600000CORRECT-XSQ1404
018700 01  TEST-CORRECT.                                                SQ1404.2
01800     0FILLER X(30)0VALUE      ".2
0180     2  PIC(7) VALUE0 CORRECT-N ORRECT-A 99)99      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0190110     03CORRECT-A940     3CORRECT-4V14 CORRECT-APC94.4.     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1000C                  X(0)  .SQ1404
0019300  REDEFINES90     0       REDEFINES.                         SQ1404
0900    0 ORRECT-0V18 09800         0 FILLERPICX               2
040     3CORRECT-4V14VALUE .S.2
019500     03 CORRECT-14V4 REDEFINES CORRECT-A01600       REDEFINES .                         .2
0X4) VALUE SPACESQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0170         4CORRECT-18V0PIC918          Q1404
0980         4 FILLERPIC .               .2
090     3FILLERPIC2VSPACESQ1404
0200     3COR-ANSI-REFERENCEPICX4)00    COR-ANSI-REFERENCE) S.     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020100*                                                                 SQ1404.2
022 1  .                                                    .2
0200     2FILLER IS  VALUE.                     SQ1404.2
004002 FILLER   ISX1)VALUE"PARAGRAPH-NAME.SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02050     0 java.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 80
020600     02 FILLER50 FILLER IS200     2   IS        SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070        XVALUE                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02800 FILLER   ISX5)VALUE290 PIS(9VALUE.Q1404
02900 02802  IS5V "".SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02100     2FILLER IS(62     "REMARKS.900 ILLER PIC X9V SPACE. SQ1404.2
021000  .                                                    .2
021200     02 FILLER  PIC X(19)  VALUE  SPACE3     2  PIC 02P (1 VALUE .                          
021300     02 FILLER  PIC X(6)   VALUE "TESTED".                        SQ1404.2
010002FILLERPICX19  VALUE.                          .01000FILLER (2VALUESPACESQ14042
021500     02 FILLER  PIC2160002FILLER  IC(2  VALUE.                          .2
021600     02 FILLER  PIC X(72)  VALUE  2801        PIC)VALUE.                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700*                                                                 SQ1404.2
021800 01  REC-SKL-SUB       PIC 9(2)     VALUE ZERO210       9       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2190 01  REC-CT20 1  PASS-COUNTER       9VALUESQ1404
022000 01  DELETE-COUNTER    PIC 999      2 1         PIC       ZERO020 TOTAL-ERRORVALUE                   SQ1404.2
022100 01  ERROR-COUNTER     PIC220  ERROR-HOLDPIC2  DUMMY-HOLD        PIC(20)VALUE                  .2
020 1PIC99VALUE.                  .2
020 1       PIC9      VALUE.                   .2
java.lang.StringIndexOutOfBoundsException: Range [47, 43) out of bounds for length 80
0200          PIC99     VALUE.                   SQ140430     FILLER 3    ALUE               SQ1404
02200  PICX0   SPACEQ1404
0227210    2FILLER200"COBOLC SYSTEM"                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 1ANSI-REFERENCE(8    SPACES                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02290 130      FILLERPIC (9     .          :red'>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