Quelle  sq140a.cob   Sprache: Cobol

 DIVISION.2
000200 PROGRAM-ID00010 IDENTIFICATION02 PROGRAM-IDSQ14042 .2
0030SQ140A.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 ENVIRONMENT001700*                                                              001900*            X-55   SYSTEM PRINTER                             00002000*            X-82   SOURCE-COMPUTER                            *  SQ1404.2001900*            X-55   002100*            X-83   OBJECT-COMPUTER002000*            X-82   SOURCE-COMPUTER                            *  SQ1404.2
3  SECTIONSQ140400 .                                                 .2
003600 SOURCE-COMPUTER.03600 SOURCE-COMPUTER.                                                 
003700     Card0130.                                                    SQ140430 .SQ1404.2
080 OBJECT-COMPUTER.                                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
090     .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004000*                                                                 SQ1404.2
004100 INPUT-OUTPUT SECTION.                                            SQ1404" SQ1404.2
004200 FILE-CONTROL.                                                    004500460SELECT   ASSIGN TOSQ1404
00400 ASSIGNTOSQ1404
004400     "C0085" .                                                    SQ1404.2
004500*                                                                 SQ1404.2
0400           ORGANIZATIONIS                                .2
004700     "C0098"                                                      04900           ACCESS MODE  IS RANDOM                                 SQ1404050RECORDISAW-DATA-KEYSQ1404
004800           ORGANIZATION IS INDEXED020 0200 SQ-FS1ASSIGN                                      .
00490ACCESS  IS RANDOM                                .2
0050540FILE ISSQ-FS1-STATUSSQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005100                                                                  SQ1404.2
005200     SELECT SQ-FS1 ASSIGN TO                                      SQ1404.2
005300     "C0001"                                                      SQ14040054000   SECTION.2
0050             STATUS SQ-FS1-STATUSSQ1404
005500*                                                                 SQ1404.2
005600*                                                                 SQ1404.2
0050  DIVISION07DATA.SQ14042
005800 FILE SECTION.                                                    0 DATA ISPRINT-REC DUMMY-RECORDSQ1404
005900 FD  PRINT-FILE                                                   SQ1404.2
00600LABEL                                                
060Card0132SQ1404
006200     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1404.2
00630030                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
    PICTURE(20.                                .2
060 1DUMMY-RECORD ()SQ14042
006600                                                                  SQ1404.2
006700 FDRAW-DATASQ1404.2
006800 01  RAW-DATA-SATZ.                                               SQ1404.2
006900     05  RAW-DATA-KEY        PIC X(6).                            SQ1404.2
0701..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007107                PIC9()                            .2
0072000  NO-OF-TESTS         PIC9                              .2
0030     0  C-OK                PIC99                             .2
00700     5                 PIC99                             SQ1404
SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007600     05  C-DELETED50     5                PIC...2
070              9.SQ1404
0078000300     00705            PIC SQ1404
07000              PICX                               .2
00005               PIC(8 SQ14042
008100*                                                                 SQ1404.2
0020 80                    PIC)                            .2
008300     LABEL RECORD IS STANDARD                                     0702 DSQ14042
0080030078 05C-NOTE1.SQ1404
008500 01  SQ-FS1R1-F-G-120 PIC X(120)040.                                                 SQ140405            XSQ1404
008000     05  C-ABORT             PIC X(8).                            SQ1404.2
00870WORKING-STORAGE.                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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.                                               SQ1404.2
009600   03  SQ-FS1-KEY-1   PIC X.                                      SQ1404.2
090 0 SQ-FS1-KEY-2 X                                      SQ1404.2
009800*                                                                 SQ1404.2
009900 01  DECL-EXEC-SW009400*                                                                 SQ1404.2
010000*                                                                 SQ1404.2
010100*                                                                 SQ1404.2
010200***************************************************************   SQ1404.2
010300*                                                             *   SQ1404.2
010400*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1404.2
010500*                                                             *   SQ1404.2
010600***************************************************************   SQ1404.2
010700*                                                                 SQ1404.2
0080 109003   PICX                                      .
010900*                                                                 SQ1404.2
011000 01  FILE-RECORD-INFORMATION-REC.                                 000  DECL-EXEC-SW   9.                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011100     03 FILE-RECORD-INFO-SKELETON.                                SQ1404010100*                                                                 SQ1404.2
011200        05 FILLER                 PICTURE X(48)       VALUE       SQ1404.2
011300             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  010600***************************************************************   SQ1404.2
011400        05 FILLER                 PICTURE X(46)       VALUE010500*                                                             *   SQ14041001REC-SKEL-SUB0160***********010*SQ1404.2
011500             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =100 FILE-RECORD-INFORMATION-REC..2
01100 .                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0170",LFIL=0000,0113 FILE= RECORD ,=00000,=0".SQ1404
011800        05011003FILE-RECORD-INFO-SKELETON.                                .2
010             RECKEY                             .            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012000        05 FILLER                 PICTURE X(38)0160        5FILLER X(6VALUE.2
       2
012200        05 FILLER                 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     .               SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0230030                 PIC(0VALUE.                  32FILLER (4   .                 .2
010       ILLER X4)VALUESQ1404
0220     OFFICIALCOMPILER" SQ14042
02300            PIC X)     SPACESSQ1404270002 ILLERPIC XXXX                         SQ1404
0240 01CCVS-H-2ASQ1404.2
023500   02  FILLER            PICX(40  VALUE.                  .2
023600   02  FILLER            PIC X(7)   024000            000"-NOT FOR DISTRIBUTION.SQ1404.2
037   02  FILLERPIC   VALUEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023800     "4.2 ".                                                      SQ140402400 01CCVS-H-2B.                                                   24301CCVS-H-2B                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023900   02  FILLER            PIC X(28)  VALUE20 0  PIC4VALUEI" SQ1404.22
024000            " COPY07 280 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ER(1)5"LVALIDATION.SQ1404
024200*                                                                 SQ1404.2
.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
240020     VALIDATION  OF TECH.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040   2250 1CCVS-H-3.2
04600   0              PIC4    "IN ".SQ1404
70              X1  VALUE2
024800     " HIGH ".                                              SQ1404.2
0900               (22                         2
02500"LEVEL FOR ".                             50      .Apr9SSVG".SQ1404.2
0210                X(5050  OFFICIAL .
25200ON-SITE0"COPYRIGHT95186" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
20 1CCVS-H-3                                                    
500  ILLER          (4                           .2
20            "FOR62 2 FILLER IC(1)VALUE "OF Q4.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2          PIC8) SQ1404
050     "COBOL 5VERSION42 199SSVG "SQ1404.2
02560001                                                    SQ1404
025900            " COPYRIGHT 1985,1986 02620 0 ILLER06600 FILLERPIC (3) VALUESPACE.SQ14042
0600 1CCVS-E-1SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
260     2           X5VALUESQ1404
026200     02 FILLER  06500 CCVS-E-260ERROR-TOTALPIC VALUE.SQ1404
0230    2ID-AGAINPIC().                                .2
026400     02 FILLER           PIC X(45)  VALUE SPACES.                 070     PICX)   SPACE.2
026500 01  CCVS-E-2.                                                    .2
026600     02  FILLER          PIC X(31)  VALUE24002FILLERPIC X(22 VALUE                        .2
02670java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 80
026800     02  CCVS-E-2-2.                                              SQ1404
020700           X1   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00          PIC 20"VALIDATION NATIONAL INSTITUTEOF &. "SQ1404
02100ENDER-DESC4A                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0220            ERRORS                                 .
                         SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027400     02  FILLER2600  FILLER           X(1SQ1404
070            "FOROFFICIAL USEONLY. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
260     0  FILLER NATIONALOF & "..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0277000  FILLERPIC(8 VALUE5                 SPACE.2
" VALIDATION, INSTITUTE OF STD 20 2X2 2
027900     080             8      TESTS..
028000     28                                                         
01              818.                              
0220.                                                    
0230    2CCVS-E-4-1PIC25    02       ICXXXVALUE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02400            PIC100              X() .              2
80      CVS-E-4-2    SQ1404
0286801.SQ1404
028700      " TESTS WERE2004FILLERPIC 5VALUE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028800 01  XXINFO0400 XXCORRECT X(20                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028900     0  PIC1)VALUE*INFORMATION*" .2
0900     0 INFO-TEXT.                                                .2
020004               ()VALUESPACE              SQ14042
092       PIC2)S.2
0               X5   ALUE****************.                 .2
0290                  PIC2)                           2
0290     2 INF-ANSI-REFERENCE X2900F   IS   SPACESQ1404
029600 01  90FILLER  ()     **********.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
202IX S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029800     02 FILLER  PIC IS X(65)    VALUE IS "************************SQ1404.2
90    ****************.SQ1404
030000     02 FILLER030400*                                                                 SQ1404.2
SQ1404     java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
030500*                                                                 SQ1404.2
33     ".SQ14042
030400*                                                                 SQ1404.2
030500*                                                                 SQ1404.2
03000 SECTION2
030700 DECLARATIVES0*                                                                 
030800 SQ140A-DECLARATIVE-001-SECT 310IF10                                                                 .
0USE   .030900     USE AFTER STANDARD EXCEPTION PROCEDURE SQ-FS1.               
00 .                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031100     IF020      DECL-WRITE-LINETIMESSQ1404
032     TO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031300*                                                                 SQ1404.2
031400*    DECLARATIVE PROCEDURE ENTERED FROM SECOND OPEN OUTPUT        SQ1404.2
031500*                                                                 SQ1404.2
6 .                                                  SQ1404
03170MOVE TODUMMY-RECORD2                     TO                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031800     PERFORM DECL-WRITE-LINE                                      200 .SQ1404
01     " TERMINATIONATTHIS POINTIS"" SQ14042
032000               0320         DECL-EXEC-SW COMPUTED-18V0SQ1404
0020MOVETO.                        .2
032200     GO TO   END-DECLS.                                           .2
032300*                                                                 SQ1404.2
032400*                                                                 SQ1404.2
032500 NOT-DECL-9.                                                      SQ1404.2
032600     MOVE   "0360MOVE"PASS"TO P-OR-F0340* .
0327000330            PASS-COUNTERSQ1404.
03280003350330     PERFORMSQ14042
032900     MOVE   "UNEXPECTED ENTRY TO DECLARATIVES" TO RE-MARK.        SQ1404.2
033000     PERFORM DECL-FAIL.                                           3300    MOVE   "PASS " TO40.                                                       
033100033900*                                                                 SQ1404.2
033200*                                                                 SQ1404.2
033300*                                                                 SQ1404.2
033400*                                                                 SQ1404.2
033500 DECL-PASS                                                       .2
033600     MOVE   "PASS " TO P-OR-F.                                    SQ1404.2
30ADD1  PASS-COUNTER                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03380348OVE5 .SQ14042
033900*                                                                 SQ1404.2
0340 .                                                       
OR-F00     D.                                     .2
03420           TO.                                  .2
034300     PERFORM DECL-PRINT-DETAIL.                                   SQ1404.2
034400*                                                                 SQ1404.2
034500 DECL-PRINT-DETAIL.                                               SQ1404.2
0400IF NOTEQUAL330 DECL-FAIL-ROUTINE .2
034700             MOVE "3500 DECL-WRITE-LINE. SQ1404.2
030             REC-CT DOTVALUE                             2
0390     MOVE     TO.                           .2
035000PERFORM.                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0300                                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0320         DECL-WRITE-LINE360             SPACESQ1404
035300         PERFORM310MOVE50MOVE TO SQ14042
0354037         SPACE .3600                                                                 
035500         PERFORM DECL-BAIL THRU DECL-BAIL-EX.                     SQ140456     TO.                                   
035600     MOVE    SPACE TOP-OR-F                                     .2
05700MOVE TOCOMPUTED-XSQ1404.360*SQ1404.2
035800     MOVE    SPACE TO 0360 DECL-WRITE-LINE.                                                 .2
035900     IF REC-CT EQUAL TO ZERO                                      SQ14040     30MOVE  DUMMY-RECORDSQ1404
030MOVETOPAR-NAMEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036100     MOVE    SPACE TO RE-MARK.                                    SQ1404.2
036200*                                                                 SQ1404.2
0360 .                                                 .2
03400         MOVE   PERFORM    .2
036500     070             CCVS-C-2  DUMMY-RECORDSQ1404
D TO                       SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036700         MOVE    SPACE TO DUMMY-RECORD                            SQ1404.2
0380            DUMMY-RECORD 370ERFORMDECL-WRT-LN                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0390MOVE00              TOSQ14042
0300MOVE    CCVS-C-2 DUMMY-RECORDSQ1404
037100PERFORM 2 TIMES037700*                                                                 SQ1404.2
037200         MOVE    HYPHEN-LINE3760     PERFORM DECL-WRT-LN.SQ1404.2
037300         PERFORM DECL-WRT-LN                                      037700*                                                                 SQ1404.2
037400         MOVE    DUMMY-HOLD70     WRITEDUMMY-RECORD DVANCINGLINES.                .2
037500         MOVE    ZERO TO RECORD-COUNT.                            SQ1404.280      COMPUTED-X  TOSPACE  TODECL-FAIL-WRITE.SQ1404
037600     PERFORM DECL-WRT-LN.                                         SQ1404.2
037700*                                                                 SQ1404.2
037800 DECL-WRT-LN.                                                     SQ1404.0     TOSQ1404
037900     WRITE   DUMMY-RECORD80 MOVE TO.                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038000     MOVE    SPACE TO DUMMY-RECORD.                               SQ1404.2
038100*                                                                 SQ1404.2
038200 DECL-FAIL-ROUTINE                                               0     MOVEF  SEE" .SQ1404.2
038300     IF COMPUTED-X NOT EQUAL070         XXINFO DUMMY-RECORDSQ1404
34     IFCORRECT-X   TOSPACEjava.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80
0380ANSI-REFERENCEINF-ANSI-REFERENCE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0090MOVE P                            .2
00310 ..                                                 2
0380  ECL-WRITE-LINE.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0890MOVE0980 .                                                    2
03000GO0MOVE TOCOR-ANSI-REFERENCESQ14042
039100 DECL-FAIL-WRITE.                                                 SQ1404.2
090         TEST-COMPUTED PRINT-RECSQ1404
039300     PERFORM DECL-WRITE-LINE                                      SQ1404.2
039400     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1404.2
400DECL-BAILSQ1404.2
039600     PERFORM DECL-WRITE-LINE3980 .                                                    
039700     MOVE    SPACES TO COR-ANSI-REFERENCE.                        SQ1404.2
03900 .                                                    000*SQ1404.2
039900     EXIT.                                                        4010 DECL-BAIL                                                       SQ1404
040000*                                                                 SQ1404.2
04010.                                                       .2
IF     GO DECL-BAIL-WRITE.2
040300     IF CORRECT-A EQUAL800PERFORMDECL-WRITE-LINE 2TIMESSQ1404
00 DECL-BAIL-WRITE.2
040500     MOVE    CORRECT-A0EXIT                                                        SQ1404.2
04060         COMPUTED-ATO XXCOMPUTED.                            .2
040700     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1404.2
040800     PERFORM DECL-WRITE-LINE 2 TIMES.                             SQ140410  DECLARATIVES                                                470MOVEXXINFO TODUMMY-RECORD                              .2
0400 .                                                    
400EXITSQ14042
041100*                                                                 SQ1404.2
420 .                                                       .2
010         ZERODECL-EXEC-SWSQ1404
041400 END DECLARATIVES.                                                SQ1404.2
041500*                                                                 SQ1404.2
041600*                                                                 SQ1404.2
041700 CCVS1 SECTION.                                                   SQ1404.2
041800 OPEN-FILES.                                                      SQ1404.2
041900     OPEN    I-O RAW-DATA.                                        SQ1404.2
0TORAW-DATA-KEY.                         .2
04100     READ00             DATE.                               
0420 MOVEABORTED    040 SQ1404
042300     ADD     1           TO C-NO-OF-TESTS.                        SQ140410         I-O.                                        400      RAW-DATA-SATZ KEY.                  .2
042400     ACCEPT  C-DATE      FROM DATE.                               SQ1404.2
004200   "ABORTED "   TO020OPEN PRINT-FILE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042600     REWRITE0         CCVS-PGM-ID ID-AGAINSQ1404
0270 END-E-1400MOVETEST-RESULTSSQ1404
042800     CLOSE   RAW-DATA.                                            SQ1404.2
042900     OPEN042500ACCEPTC-TIME      FROM SUBS.2
40      0 .                             2
        TOID-AGAINSQ1404
043200     MOVE    SPACE TO TEST-RESULTS800     CLOSERAW-DATA                                            SQ1404
0300     PERFORM HEAD-ROUTINE COLUMN-NAMES-ROUTINE491TOEC-SKL-SUB                                    .
043400     MOVE    ZERO TO REC-SKEL-SUB.                                SQ1404.2
043500     PERFORM4300MOVECCVS-PGM-ID TEST-IDSQ1404
0460 GO CCVS1-EXIT.2
043700*                                                                 SQ1404.2
043800 CCVS-INIT-FILE.                                                  SQ1404.2
043900     ADD     1 TO REC-SKL-SUB.                                    SQ1404.2030         ZERO 040PERFORM END-ROUTINE END-ROUTINE-13                     .2
000     TO2
044100                  FILE-RECORD-INFO (REC-SKL-SUB     MOVECCVS-PGM-ID  RAW-DATA-KEYSQ1404
044200*                                                                 SQ1404.2
0430 .                                                     
04440P END-ROUTINE END-ROUTINE-13.2
044500     CLOSE   PRINT-FILE.                                          SQ1404.2
046                                                  .
044700     490ADD    TO.                                    .2
044800     READ    RAW-DATA INVALID KEY GO TO END-E-2.                  SQ1404     C-DELETED.2
04490430C.                                                      AW-DATA-SATZ.Q1404
04500MOVE040                        SQ1404
045100     MOVEERROR-HOLD    TO.                              .2
020MOVE  .SQ1404
045300     MOVE    DELETE-CNT    TO C-DELETED.                          SQ1404.2
SPECT-COUNTER C-INSPECT.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00480     READ   RAW-DATA KEY TO.                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045600 END-E-2046100*                                                                 SQ1404.2
045700     CLOSE   RAW-DATA.                                            SQ1404.2
SQ1404
060            INSPECT-COUNTERSQ1404
046000     STOP060 PRINT-DETAIL                                        .
046100*                                                                 SQ1404.2
046200 INSPT.                                                           50     OVE     TO.                        SQ1404
046300     MOVE   "INSPT" TO P-OR-F.                                    0460 .                                                            6.SQ1404
480TERMINATE-CCVSSQ1404.2
046500     PERFORM PRINT-DETAIL.                                        SQ1404.2
046600                                                                  SQ1404.2
046700 PASS.                                                            SQ1404.2
0480MOVEPASS TO                                     2
90       SQ1404
047000     PERFORM PRINT-DETAIL.                                        40          TOERROR-COUNTERSQ1404.2
047100*                                                                 SQ1404.2
047200 FAIL.                                                            SQ1404.2
047300     MOVE   "FAIL*" TO P-OR-F.                                    SQ1404.2
047400     ADD     1 TO .                                  470   SQ1404
047500     PERFORM PRINT-DETAIL.                                        SQ1404.2
047600*                                                                 SQ1404.2
0.                                                         
04780040MOVE"TO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
790      "** .S2
048000     ADD     1 TO DELETE-COUNTER.                                 SQ1404.24700      PRINT-DETAIL                                        .2
0410PERFORM.                                        2
048200*                                                                 SQ1404.2
048300 PRINT-DETAIL.                                                    SQ1404.2
048400     IF REC-CT04900     IF EQUAL TO"FAIL*"                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0485420ELSESQ1404
048600         MOVE    REC-CT TO DOTVALUE900PERFORM THRU.SQ14040 .                                                         
047070   * TO.
048800     PERFORM WRITE-LINE.                                          SQ14040MOVE TO.                                 
048900     IF  EQUALTOFAIL9REC-CTEQUALTOZEROSPACE..
0400         PERFORM                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049100         PERFORMFAIL-ROUTINE FAIL-ROUTINE-EXSQ1404
049200     ELSE                                                         SQ1404.2
049300         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       SQ1404.2
04940         SPACE 00      TDUMMY-RECORDPERFORMWRITE-LINE TIMES.2
049500     MOVESPACE6         REC-CT  .SQ14042
80      TO. PERFORM 3 .SQ14042
  MOVE  .S.2
090 00 .SQ1404
049900*                                                                 SQ1404.2
0.                                                    
050100     MOVE CCVS-H-1  TO9         SPACETO.                                 .2
000     00     REC-CTTO  SPACE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1404.2
050400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3000..2
05050 COLUMN-NAMES-ROUTINE0510*                                                                 
050600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           010          ERROR-COUNTER   TO3MOVE .java.lang.StringIndexOutOfBoundsException: Range [50, 43) out of bounds for length 80
050700     MOVECCVS-C-2TODUMMY-RECORDPERFORM 2 TIMES.SQ1404
0     MOVETO WRITE-LINE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0090 .S.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05000MOVE TO .                         .2
0510      WRITE-LINE TIMESSQ14040000M CCVS-C-2TO . WRITE-LINE IMES  2
051200 END-RTN-EXIT.                                                    SQ1404.2
051300     MOVE    CCVS-E-1 TO DUMMY-RECORD.                            SQ14042
051400     PERFORM WRITE-LINE 2 TIMES.                                  SQ1404.2
051500*                                                                 SQ1404.2
10 .20     ERROR-COUNTERIST ZERO.
0520            " ERROR-TOTALS010MOVE DUMMY-RECORD.
2
051900     ADD     DELETE-COUNTER  TO ERROR-HOLD30         MOVE TO.                    .2
056 END-ROUTINE-1SQ1404.2
0500MOVEPASS-COUNTER0DDTO                        2
05258           OERROR-HOLD                      .
05230          TO                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052400     MOVE    CCVS-E-260     LSE                                                         2
0520      WRITE-LINE                                          2
05260      "230MOVECCVS-E-4TO SQ1404java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0270IF ISEQUAL                             .
0580MOVE"NO"TO                              25     WRITE-LINESQ1404
020      SQ1404.
053000         MOVE    ERROR-COUNTER ERROR-COUNTER QUAL SQ1404
030MOVE  DUMMY-RECORDjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ORM.                                          2
0330ESQ1404
053400     IF DELETE-COUNTER IS EQUAL TO ZERO                           SQ1404.2
053500         MOVE   "NO " TO ERROR-TOTAL520      WRITE-LINESQ1404.2
053600     ELSESQ1404.2
053700         MOVE    DELETE-COUNTER TO ERROR-TOTAL.                   SQ1404 ISE TO                                2
50   TEST ENDER-DESC5            TOSQ1404
05300MOVE TO.                            .2
054000     PERFORM WRITE-LINE.                                          SQ140430MOVE    DELETE-COUNTER ERROR-TOTALSQ1404
5100     IF  EQUALT                              .2
054200         MOVE   "NO " TO ERROR-TOTAL                              SQ1404.2
05430ELSE.2
054400         MOVE    INSPECT-COUNTER TO ERROR-TOTAL.                  SQ1404.2
SQ14042
054600     MOVE    CCVS-E-2 TO DUMMY-RECORD04100     IF  EQUAL TO                             .2
054700     MOVE    CCVS-E-340     500          DUMMY-HOLD DUMMY-RECORDSQ1404
054800*                                                                 SQ1404.2
590WRITE-LINESQ1404.
055000     060     PERFORM.                                              .2
055100     IF RECORD-COUNT GREATER 50                                   SQ1404.2
050  DUMMY-RECORD DUMMY-HOLDSQ1404
0550           SPACE TO DUMMY-RECORD                              .2
050          DUMMY-RECORDAFTERADVANCING 500WRITE-LINE                                                      
055500         MOVE  CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            70 .                                                    
055600         MOVE5520         MOVE DUMMY-RECORD DUMMY-HOLDSQ1404
055700         MOVE  HYPHEN-LINE0         MOVESPACE DUMMY-RECORDSQ1404.2
00500 DUMMY-RECORD  PAGESQ1404
055900         050           CCVS-C-1 DUMMY-RECORD WRT-LN.2
0050           CCVS-C-2TO PERFORM 2     SQ14040     " FURTHERINFORMATION PROGRAM OINFO-TEXT 2
056100*                                                                 SQ1404.2
056200 WRT-LN.                                                          SQ1404.2
540MOVE  INF-ANSI-REFERENCE                        50  TO                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056400     MOVE    SPACE TO DUMMY-RECORD.                               SQ1404.2
05070      WRITE-LINESQ1404.2
00          TO.2
060 FAIL-ROUTINE0MOVETO                         .2
056800     IF COMPUTED-X NOTEQUALTO SPACE TO050     SPACEDUMMY-RECORDSQ1404
0590IFORRECT-X      SQ1404
057000         80 AIL-ROUTINE-EXSQ1404
0710        "NO INFORMATION PROGRAM." TOINFO-TEXT
0720    XXINFO DUMMY-RECORDSQ1404
057300     PERFORM WRITE-LINE 2 TIMES056700 580      COMPUTED-A  EQUAL SPACE TO.SQ1404
70MOVE TO.                        .2
5750      TOFAIL-ROUTINE-EXSQ1404.2
00590     IFCORRECT-X NOT EQUAL TO SPACE GOTOFAIL-ROUTINE-WRITE05890MOVECORRECT-A XXCORRECT                         .2
057700     MOVE0XXINFO.
0570                                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057900         ANSI-REFERENCE COR-ANSI-REFERENCESQ1404
05000MOVE    PRINT-REC                          .2
058100     PERFORM WRITE-LINE50 FAIL-ROUTINE-WRITE                                              970CCVS1-EXITQ1404
058200     MOVE    SPACES         TO COR-ANSI-REFERENCE.                SQ1404.2
058300 FAIL-ROUTINE-EX.                                                 SQ1404.2
009MOVE TO.                
05850 .                                                        .2
058600     IF COMPUTED-A NOT810WRITE-LINE .                                  SQ1404
058700     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1404.2
058800 BAIL-OUT-WRITE.                                                  060200*    THIS80     EXITSQ14042
058900M640*                                                              *  SQ1404
060500*********************060I  NOT  SPACETO.SQ140400*SQ1404.2
0590     TOSQ1404
059200     MOVE    XXINFO TO DUMMY-RECORD.                              SQ1404.2
0930      010*     OUTPUT.                                       
059405900MOVE      TO XXCORRECT                         SQ1404
0900BAIL-OUT-EXSQ1404.2
059600     EXIT.                                                        SQ1404.2
059700 CCVS1-EXIT.                                                      SQ1404.2
059800     EXIT.                                                           " FILE, OUTPUT"TF                 50   TO.SQ1404
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
0070 SECT-SQ140A-MAINSECTIONSQ1404.2
060800*                                                                 SQ1404.2
060900*    THE FIRST ACTION IS TO CREATE THE FILE BY MEANS OF AN        SQ1404.2
061000*    OPEN OUTPUT STATEMENT.                                       SQ1404.2
061100*                                                                 SQ1404.2
061200 SEQ-INIT-01.                                                     060600*                                                                 SQ1404.2
061300*                                                                 SQ1404.2
061400     MOVE    1 TO REC-CT                                          060900*    0280OPENOUTPUTSQ-FS1SQ1404
061500     MOVE   "CREATE061100* SQ1404.2
061600     MOVE   "SEQ-TEST-OP-01" TO PAR-NAME                          SQ1404SEQ-INIT-01SQ14042
061700     MOVE    061300*                                                                 "TO PAR-NAME.S.
010M   "** SQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
10 SEQ-TEST-OP-01SQ1404
062000     OPEN    OUTPUT SQ-FS1.                                       10MOVESEQ-TEST-OP-01 PAR-NAMESQ1404.2
0610 .                                                     
06220     MOVE  REC-CTSQ1404.2
0620        "OPENOUTPUTO6900SEQ-TEST-OP-01 SQ1404.2
020MOVE" PAR-NAMESQ1404.2
062500     MOVE    9 TO DECL-EXEC-SW                                    SQ1404.2
062600     MOVE   "**" TO SQ-FS1-STATUS.                                SQ1404.2
270                                                   
UTSQ-FS1SQ1404
062900*                                                                 SQ1404.2
063000*    CHECK EXECUTION OF DECLARATIVE.                              SQ1404.2
063100*                                                                 SQ1404.2
063200     MOVE   "SEQ-TEST-OP-02" TO40                                                              
063300     MOVE    680           "1 TOCORRECT-ASQ14042
063400 SEQ-TEST-02-01-END.                                              690MOVEUNEXPECTEDS CODE  OUTPUT690*SQ1404
063500*                                                                 SQ1404.2
063600*    CHECK THE I-O STATUS VALUE RETURNED BY THE SECOND OPEN.      SQ1404.2
063700*                                                                 SQ1404.2
60 java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
063900     GO TO   SEQ-TEST-OP-02-02.                                   SQ1404063500*                                                                 SQ1404.2
50CCVS-999999.2
01     PERFORM.                                             .2
064200     GO TO   SEQ-TEST-02-02-END.                                  SQ1404.2
064300 SEQ-TEST-OP-02-02.                                               SQ1404640      DE-LETESQ1404
0440     FSQ-FS1-STATUS "1 .2
064500         6300SEQ-TEST-OP-02-02SQ1404.2
064600     ELSE                                                         SQ1404.2
064700         MOVESQ-FS1-STATUS TOCOMPUTED-A                      .2
064800         MOVE   "41" TO CORRECT-A                                 40          PASSSQ1404.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064900         MOVE   "0470MOVE SQ-FS1-STATUSTO COMPUTED-ASQ1404.2
050 TO                                    SQ14042
065100         MOVE   "VII-4, 1.5.3(4)A"60         MOVE   UNEXPECTED  ODEFROM OUTPUTSQ1404
065200PERFORMFAIL                                            SQ1404.2
065300 SEQ-TEST-02-02-END.                                              SQ1404.2
065400*                                                                 SQ1404.2
065500*                                                                 SQ1404.2
0500          FAILSQ14042
065700 CCVS-999999.                                                     SQ1404.2
065800     GO TO   CLOSE-FILES.                                         SQ1404.2