SSL sq155a.cob

000100 IDENTIFICATION java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000200002200002500*    THIS002600*    A FILE OPEN002700*    STATUS 48 IS002800*    TERMINATION IS POSSIBLE BEFORE002800*    CODE IS ACCOMPLISHED.                                     *  SQ1554.2
000300     SQ155A.                                                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000400****************************************************************  SQ1554.2
000500*                                                              *  SQ1554.2
000600*    VALIDATION FOR:-                                          *  SQ1554.2
000700*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1554.2
000800*    USING CCVS85 VERSION 3.0.                                 *  SQ1554.2
000900*                                                              *  SQ1554.2
001000*    CREATION DATE     /     VALIDATION DATE                   *  SQ1554.2
001100*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".SQ1554.2
001200*                                                              *  SQ1554.2
001300****************************************************************  SQ1554.2
001400*                                                              *  SQ1554.2
001500*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  SQ1554.2
001600*                                                              *  SQ1554.2
001700*            X-01   SEQUENTIAL TAPE                            *  SQ1554.2
001800*            X-55   SYSTEM PRINTER                             *  SQ1554.2
001900*            X-82   SOURCE-COMPUTER                            *  SQ1554.2
002000*            X-83   OBJECT-COMPUTER                            *  SQ1554.2
002100*            X-84   LABEL RECORDS OPTION.                      *  SQ1554.2
002200*                                                              *  SQ1554.2
002300****************************************************************  SQ1554.2
002400*                                                              *  SQ1554.2
002500*    THIS PROGRAM CHECKS FOR THE CORRECT RESPONSE TO WRITING TO*  SQ1554.2
002600*    A FILE OPEN IN THE INPUT MODE.  THE TEST FOR CORRECT I-O  *  SQ1554.2
002700*    STATUS 48 IS IN THE MAIN LINE CODE, THEREFORE AN ABNORMAL *  SQ1554.2
002800*    TERMINATION IS POSSIBLE BEFORE THE TEST OF THE I-O STATUS *  SQ1554.2
002900*    CODE IS ACCOMPLISHED.                                     *  SQ1554.2
003000*                                                              *  SQ1554.2
003100****************************************************************  SQ1554.2
003200*                                                                 SQ1554.2
003300 ENVIRONMENT DIVISION.                                            SQ1554.2
003400 CONFIGURATION SECTION.                                           SQ1554.2
003500 SOURCE-COMPUTER.                                                 SQ1554.2
003600     Card0130.                                                    SQ1554.2
003700 OBJECT-COMPUTER.                                                 SQ1554.2
003800     Card0131.                                                    SQ1554.2
003900*                                                                 SQ1554.2
004000 INPUT-OUTPUT.                                            SQ15542
004100 FILE-CONTROL.                                                    SQ1554.2
004200     SELECT PRINT-FILE ASSIGN TO                                  SQ1554.2
004900*                                                                 SQ1554.005000  DIVISIONSQ1554
004400*                                                                 SQ1554.2
      SQ-FS1                                      .2
004600     "C0001"                                                      SQ1554.2
004700            FILE STATUS IS SQ-FS1-STATUS.                         SQ1554.2
004800*                                                                 SQ1554.2
004900*                                                                 SQ1554.2
005000 DATA DIVISION.                                                   SQ1554.2
005100 FILE SECTION.                                                    SQ1554.2
005200 FD  PRINT-FILE                                                   SQ1554.2
005300     LABEL RECORDS                                                SQ1554.2
005400     Card0132                                                     SQ1554.2
005500     DATA RECORD IS PRINT-REC DUMMY-RECORD                        SQ1554.2
005600               .                                                  SQ1554.2
005700 01  PRINT-REC    PICTURE X(120).                                 SQ1554.2
005800 01  DUMMY-RECORD PICTURE X(120).                                 SQ1554.2
005900*                                                                 SQ1554.2
006000 FD  SQ-FS1                                                       SQ1554.2
006100     LABEL RECORD IS STANDARD                                     SQ1554.2
006200                .                                                 SQ1554.2
006300 01  SQ-FS1R1-F-G-120 PIC X(120).                                 SQ1554.2
006400*                                                                 SQ1554.2
006500 WORKING-STORAGE SECTION.                                         SQ1554.2
006600*                                                                 SQ1554.2
006700***************************************************************   SQ1554.2
006800*                                                             *   SQ1554.2
006900*    WORKING-STORAGE DATA ITEMS SPECIFIC TO THIS TEST SUITE   *   SQ1554.2
007000*                                                             *   SQ1554.2
007100***************************************************************   SQ1554.2
007200*                                                                 SQ1554.2
007300 01  SQ-FS1-STATUS.                                               SQ1554.2
007400   03  SQ-FS1-KEY-1   PIC X.                                      SQ1554.2
007500   03  SQ-FS1-KEY-2   PIC X.                                      SQ1554.2
007600*                                                                 SQ1554.2
007700***************************************************************   SQ1554.2
007800*                                                             *   SQ1554.2
007900*    WORKING-STORAGE DATA ITEMS USED BY THE CCVS              *   SQ1554.2
008000*                                                             *   SQ1554.2
008100***************************************************************   SQ1554.2
008200*                                                                 SQ1554.2
008300 01  REC-SKEL-SUB   PIC 99.                                       SQ1554.2
008400*                                                                 SQ1554.2
008500 01  FILE-RECORD-INFORMATION-REC.                                 SQ1554.2
008600     03 FILE-RECORD-INFO-SKELETON.                                SQ1554.2
         FILLERPICTUREX48              SQ1554.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800             "=      ,ECORD      0RECNO000000UPDT=00".  SQ1554
008900        05 FILLER                 SQ1554
006200.SQ1554
009100        05 FILLER                 PICTURE X(26)       VALUE       SQ1554    PIC ()                                 .2
009200             ",LFIL=000000,ORG=  ,LBLR= ".                        SQ1554.2
009300        05 FILLER006900*    WORKING-STORAGE DATA ITEMS SPECIFIC007000*                                                             *   SQ1554.2
009400             ",RECKEY=                             ".             SQ1554.2
009500        05 FILLER                 PICTURE X(38)       VALUE       SQ1554.2
009600             ",ALTKEY1=                             ".               SQ-FS1-KEY-2SQ1554
009700        05 FILLER                 PICTURE X(38)       VALUE007700*******************007800*                                                             *   SQ1554.2
009800             ",ALTKEY2=                             ".            SQ1554.2
009900        05 FILLER                 PICTURE 01REC-SKEL-SUB 99.                                       .2
010000     03FILE-RECORD-INFOOCCURS10TIMES.2
010100        05 FILE-RECORD-INFO-P1-120.                               SQ1554.2
010200           07 FILLER              PIC X(5).                       SQ1554.2
010300           07 XFILE-NAME          PIC X(05FILLER                  X()VALUE.2
010400           07 FILLER ()                       .2
010500           07 XRECORD-NAMEFILLER                  X(7)VALUE.SQ1554
010600           07 FILLER              PIC X(1).                       SQ1554.2
010700           07 REELUNIT-NUMBER     PIC 9(1).                       SQ1554.2
010800           07 FILLER              PIC X(7).                       SQ1554.2
010900           07 XRECORD-NUMBER      PIC 9(6).                       SQ1554.2
011000           07 FILLER              PIC X(6).                       SQ1554.2
011100           07 UPDATE-NUMBER       PIC 9(2).                       SQ1554.2
011200           07 FILLER              PIC X(5).                       SQ1554.2
011300           07 ODO-NUMBER          PIC 9(4).                       SQ1554.2
011400           07 FILLER              PIC X(5).                       SQ1554.2
                   PIC X5)                       .2
011600           07 FILLERPIC X().                       SQ1554
011700           07 XRECORD-LENGTH      PIC 9(6).                       SQ1554.2
            FILLERPIC7.                       .2
011900           07 CHARS-OR-RECORDS    PIC X(2).                       SQ1554.2
01200007FILLERPIC)                       .2
012100           07 XBLOCK-SIZE         PIC 9(4).                       SQ1554.2
012200           07 FILLER01050007XRECORD-NAME         X(.SQ1554
012300           07 RECORDS-IN-FILE     PIC           REELUNIT-NUMBERPIC).2
012400           07 FILLER              PIC X(5).                       SQ1554.2
012500           07 XFILE-ORGANIZATION  PIC X(2).                       SQ1554.2
012600           07 FILLER              PIC X(6).                       SQ1554.01110007UPDATE-NUMBERPIC9)SQ1554
012700           07 XLABEL-TYPE         PIC X(1).                       SQ1554           PIC94                       .2
012800        05 FILE-RECORD-INFO-P121-240.                             SQ1554.2
012900           07 FILLER X(8).                       .2
013000           07 XRECORD-LENGTH      PIC 9()                       .2
013100           07 FILLER (..2
013200           07 ALTERNATE-KEY1      PIC X(29).                      SQ1554.2
                X)SQ1554
013400           07 ALTERNATE-KEY2      PIC X(29).                      SQ1554.2
                          PIC7)                       .2
013600*                                                                 SQ1554.2

013800     02 FILLER              PIC X      VALUE SPACE.               SQ1554
013900     02 FEATURE             PIC X012500              PIC X2).2
01400002 FILLERPICVALUE.               .2
014100     02 P-OR-F              PIC X(5)   VALUE SPACE.               SQ1554.2
014200     02 FILLER              PIC X      VALUE SPACE.               SQ1554.2
01430002  PAR-NAME.                                               SQ1554
014400       03 FILLER              PIC X(01290007FILLER X(8.SQ1554
014500       03013000            XRECORD-KEYPIC29.SQ1554
          PICVALUE.              SQ1554
014700     02 FILLER              PIC X(29)                      .2
014800     02 RE-MARK             PIC X(61).                            SQ1554.2
014900 01  TEST-COMPUTED.                                               SQ155407FILLER               X(7.                       SQ1554
015000   02 FILLER  PIC01370001  .                                                .2
015100   02 FILLER  PIC X(17)  VALUE "      COMPUTED =".                01390002FEATURE              X24)VALUE.SQ1554
015200   02 COMPUTED-X.                                                 SQ1554.201410002P-OR-F               X5    SPACESQ15542
015300     03 COMPUTED-A    PIC 01440003FILLER X14   SPACESQ15542
015400     03     REDEFINES PIC-)99)SQ1554
  REDEFINES  PIC-918.           SQ15542
015600     03 COMPUTED-4V14 REDEFINES COMPUTED-A PIC -9(4).9(14).       SQ1554.2
015700     03 COMPUTED-14V4 REDEFINES COMPUTED-A PIC -9(14).9(4).       SQ1554.2
015800             REDEFINES COMPUTED-A.2
015900        04 COMPUTED-18V0                   PIC -9(18).            SQ1554.2
016000        04 FILLER                          PIC X.                 SQ1554.2
016100     03 FILLER PIC02  PIC) SPACE.2
016200 02 )       SQ1554
016300   .                                                 .2
016400      FILLER X17  "        =".                .2
016500     02 CORRECT-X.                                                SQ1554.2
016600     03CORRECT-A ()VALUE         .2
016700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      SQ1554.2
016800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         SQ1554.2
016900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     015700  REDEFINES PIC 914.4.SQ15542
       REDEFINES     PIC(.2
017100     03      CR-18V0 REDEFINES CORRECT-A.                         SQ1554.2
017200          CORRECT-18V0                     PIC-(8.          SQ1554.2
017300         04 FILLER                           PIC X.               SQ1554.2
017400     03 FILLER X()  SPACE                              SQ15542
017500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     SQ1554.2
                                              SQ1554
017700     02 FILLER  PIC IS 016200   TEST-CORRECT                                                .
017800     02 FILLER  PIC IS X(98)    VALUE IS "FEATURE               PASQ1554.2
    SS2
018000-    "       REMARKS".                                            SQ1554.2
018100     02 FILLER           PIC                        PIC ()VALUE.         SQ15542
   .                                                    .
018300     02 016800     CORRECT-0V18  CORRECT-A -918.         SQ15542
018400     02 FILLER           PIC X(6)     VALUE "TESTED".             SQ1554.2
018500     02 FILLER           PIC ()    VALUE SPACE.               .2
018600     02 FILLER           PIC CORRECT-14V4REDEFINESCORRECT-A914.9()     .2
018700     02 FILLER X()    VALUE .                SQ1554
018800 01  REC-SKL-SUBCORRECT-18V0 -18.SQ1554
018900 01  REC-CT            PIC 99       VALUE ZERO01730004                            PIC X.SQ1554
019000 01  DELETE-COUNTER 999      VALUE.                   SQ1554.2
019100 01  ERROR-COUNTER     PIC 999      VALUE ZERO01750003 COR-ANSI-REFERENCE             PIC()VALUE SPACESQ1554
019200 01  INSPECT-COUNTER   PIC 999      VALUE ZERO.                   SQ1554.2
19300 01PASS-COUNTER 999      VALUE.                   SQ1554.2
019400 01  TOTAL-ERROR       PIC 999      VALUE ZERO.                   SQ1554.2
019500 01ERROR-HOLDVALUE                   .2
019600 01  DUMMY-HOLDSQ1554
019700 01  RECORD-COUNT      PIC 018000-"REMARKS.                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019800 01  ANSI-REFERENCE    PIC X(48)    VALUE SPACES018200 01CCVS-C-2SQ1554
019900 01  CCVS-H-102 FILLER XXXX SPACESQ1554
020000     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1554.2
020100     010900           07 XRECORD-NUMBER 9(6).                       SQ1554.2
020200     OFFICIALCOMPILERSYSTEMSQ1554
020300     02  FILLER          PIC X(39)    VALUE SPACES.               SQ1554.2
020400 01  CCVS-H-2A.                                                   SQ1554.2
   02  FILLER X(40)VALUE SPACESQ1554.2
020600   02  FILLER            PIC X(7)   VALUE "CCVS85 ".              SQ1554.2
020700   02  FILLERPIC XXXX                         .2
020800     ". "                                                      .2
020900   02  FILLER01150007 XPROGRAM-NAME        X(5)                       SQ1554
021000            " COPY - NOT FOR DISTRIBUTION".                       SQ1554           07XRECORD-LENGTH       9()                       .2
021100   02011900           CHARS-OR-RECORDS     X(2)                       .2
021200*                                                                 SQ1554.2
021300 01  CCVS-H-2B         PIC)                       .2
021400   02  FILLER            PIC X15  VALUE" RESULT OF "      SQ1554.
021500   02  TEST-ID     PIC96.SQ1554
021600   02  FILLER            01240007FILLER X(5)                       .2
SQ1554
021800     " HIGH       ".                                              SQ1554.2
021900   02  FILLER X(22) VALUESQ1554
022000            " LEVEL VALIDATION FOR ".                             SQ1554.2
022100   02  FILLER            PIC X(58)  VALUE                         SQ1554.2
022200     "ON-SITE VALIDATION, NATIONAL            XRECORD-KEY         PIC (9.                     SQ1554.2
022300 01CCVS-H-3.2
022400     02  FILLER          PIC X(34)  VALUE                         SQ1554.2
" OFFICIAL USE ONLY    "                         .2
022600     02  FILLER          PIC 07              PIC.SQ1554
022700     " 85VERSION42 Apr  1993 SSVG                      ".SQ1554.2
022800     02  FILLER X(28)  VALUE                         SQ1554
022900            "  COPYRIGHT   1985,1986013600*                                                                 SQ1554.2
023000 01  CCVS-E-1.                                                    SQ15542
023100     02 FILLER            PIC ZEROjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023200     02 FILLER      COMPUTED-X                                                 .2
023300     02ID-AGAIN9.SQ1554
023400     02 FILLER           PIC X(45)  VALUE01540003COMPUTED-N COMPUTED-A 99)()        .2
023500   .                                                    .2
             X) SPACE.2
023700     02  FILLER          PIC X(21)  VALUE SPACE.                  SQ1554 REDEFINES PIC14)94.       SQ15542
CVS-E-2-2                                              .2
          ERROR-TOTALPIC    VALUE.                SQ1554.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                   PICVALUE.                .2
024100         03 ENDER-DESC     PIC X(44)  VALUE                       SQ1554 PIC17  "        =".                SQ15542
024200            "ERRORS 016600     03CORRECT-A                  PIC X(20) VALUE .         SQ1554.2
   CCVS-E-3SQ1554.2
024400     02  FILLER          PIC X(22)  VALUE                         SQ1554.2
024500            " FOR OFFICIAL USE ONLY".                             SQ1554.2
024600     02  FILLER          PIC X(12)  VALUE SPACE.                  SQ1554.2
024700       FILLER X()                           SQ1554
024800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".SQ1554.2
024900     02  FILLER          PIC X(8)   VALUE SPACE.                  SQ1554.2
025000     02  FILLER          PIC X(20)  VALUE                         SQ1554.2
025100             " COPYRIGHT 1985,1986".                              SQ1554.2
025200 01  CCVS-E-4SQ1554.2
025300     02 CCVS-E-4-1       PIC XXX    VALUE SPACE.                  SQ1554.2
025400     02 FILLERPIC()   VALUEOF                 SQ1554.
025500     02 CCVS-E-4-2       PIC XXX    VALUE SPACE.                  SQ1554.2
025600     02 FILLER           PIC X(40)  VALUE                         SQ1554.2
025700      "  TESTS WERE EXECUTED SUCCESSFULLY".                       SQ1554.2
025800 01  XXINFO.                                                      SQ1554.2
02590002            PIC19  VALUE*  *"  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026000     02 INFO-TEXT.                                                SQ1554"REMARKS".                                            .2
026100       04018200 CCVS-C-2SQ15542
026200       04 XXCOMPUTED         PIC            XXXX.                SQ1554
       FILLERX)VALUE.SQ1554
026400       04 XXCORRECT          PIC X(20).                           SQ1554            X) SPACE.2
       PIC48                             .2
026600 01  HYPHEN-LINE.                                                 SQ1554.2
026700     02 FILLER  PIC IS X VALUE IS SPACE.                          SQ1554.2
 PIC) IS*********.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026900"************************.SQ1554java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027000     02 FILLER  PIC IS X(54)    VALUE IS     PIC999       ZERO.2
027100-    "**********************019400TOTAL-ERROR       PIC       ZERO.                   .2
02720001CCVS-PGM-ID ()VALUE.2
027300     "SQ155A".                                                    SQ1554.2
027400*                                                                 SQ1554.2
027500 PROCEDURE 019800    PIC SPACESjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027600 CCVS1 SECTION.                                                   SQ1554.2
027700 OPEN-FILES.                                                      SQ1554.2
027800     OPEN    OUTPUT PRINT-FILE.                                   SQ1554.2
027900         CCVS-PGM-ID TEST-IDSQ1554
028000     MOVE    CCVS-PGM-ID TO ID-AGAIN.                             SQ1554.2
028100     MOVE    SPACE TO TEST-RESULTS.                               SQ1554  .                                                   .2
028200     PERFORM HEAD-ROUTINEFILLER             X(    "CCVS85.SQ1554.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
         ZERO.                                SQ1554
      CCVS-INIT-FILE.                             SQ1554
028500     GO021000"COPY-NOTFORDISTRIBUTION.                       SQ1554.2
028600*                                                                 SQ1554.2
028700 CCVS-INIT-FILE.                                                  SQ1554.2
028800     ADD     1 TO REC-SKL-SUB.                                    SQ1554.202130001  CCVS-H-2B.                                                   .2
028900     MOVE TO                         .2
029000                  FILE-RECORD-INFO (02160002            PIC "  "                 .2
029100*                                                                 SQ1554.2
E-FILES.2
029300     PERFORM
029400     CLOSE   PRINT-FILE.                                             FORSQ1554
029500 TERMINATE-CCVS.                                                  SQ1554ON-SITE   ."SQ1554.2
029600     STOPPICSQ1554
029700*                                                                 SQ1554.2
INSPTSQ1554
029900     MOVE   "INSPT" TO P-OR-F.                                    SQ1554 .  SSVG
030000     ADD     1 TO INSPECT-COUNTER.                                           PIC SPACE.
030100     PERFORM PRINT-DETAIL(.                               .2
030200                                                                  SQ1554.2
                                                   .2
MOVE   PASS.SQ1554
030500     ADD     1 TO PASS-COUNTER.                                   SQ1554.2
PERFORM                                        .
030700*                                                                 SQ1554.2
SQ1554
030900     MOVE   "FAIL*"             "                                 2
031000     ADD     1 TO ERROR-COUNTER           X)                         SQ1554
031100      PRINT-DETAILSQ1554java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031200*                                                                 SQ1554.2
SQ1554
031400     MOVEPIC SPACE2
031500     MOVE   "*****" TO P-OR-F.                                    SQ1554.2
031600     ADD     1 TO025100"COPYRIGHT 19851986.SQ1554.2
     PERFORMPRINT-DETAIL.SQ1554
031800*                                                                 SQ1554.2
031900PRINT-DETAIL.2
032000     IF REC-CT NOT EQUAL TO ZERO                                  SQ1554.2025400      FILLERPIC X()VALUE ".SQ1554.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032100025600      FILLER           PICX(0) VALUE                         SQ15542
032200         MOVE    REC-CT TO DOTVALUE.                              SQ1554.2
032300     MOVETEST-RESULTSTO.                           SQ1554
032400PERFORM.                                          .2
032500     IF P-OR-F EQUAL TO "FAIL*"026000     02 INFO-TEXTSQ1554.2
032600         PERFORM WRITE-LINE                                       SQ1554.2
032700         PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                04XXCOMPUTED X20.SQ1554
032800     ELSE               X5    SPACE.
032900         PERFORM BAIL-OUT THRU BAIL-OUT-EX.                       SQ1554.2
033000     MOVE    SPACE HYPHEN-LINESQ1554
033100     MOVE    SPACE TO COMPUTED-X   PIC  X VALUE SPACE                          SQ1554
026800     02FILLER IS X()     IS "*************SQ1554.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033300     IF02700002   PICX) IS*********SQ1554
033400MOVE TO.                                    SQ1554
033500*                                                                 SQ1554.2
033600 HEAD-ROUTINE.                                                    SQ1554.2
033700     MOVE CCVS-H-1  TO027300     "".                                                    SQ1554.2
033800     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 027500PROCEDURE.                                              .2
033900     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM027700OPEN-FILESSQ1554
034000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  SQ1554.2
034100 COLUMN-NAMES-ROUTINE.                                            SQ1554.2
034200     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           SQ1554.2
034300     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   SQ1554.2
034400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        SQ1554.2
034500 END-ROUTINE                                                     SQ1554
034600     MOVE027900MOVE TO TEST-ID.SQ1554
034700     PERFORM028000MOVE TO.                             SQ1554
034800 END-RTN-EXIT.                                                    SQ1554.2
034900MOVE TO DUMMY-RECORD.                            SQ1554.2
035000     PERFORM WRITE-LINE 2 TIMES.                                  SQ1554.2
035100*                                                                 SQ1554.2
035200 END-ROUTINE-1.                                                   SQ1554.2
035300     ADD     ERROR-COUNTER   TO ERROR-HOLD                        SQ1554.2
035400     ADD     INSPECT-COUNTER TO ERROR-HOLD.                       SQ1554.028600*                                                                 SQ1554.2
035500     028800          1TO.                                    .2
035600     ADD     PASS-COUNTER    TO ERROR-HOLD.                       SQ1554.2
035700     MOVEPASS-COUNTER CCVS-E-4-1                       .2
035800     MOVE    ERROR-HOLD029100*                                                                 SQ1554.2
035900     MOVE        TO.                       SQ1554
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036100     PERFORM WRITE-LINE.                                          SQ1554.                                                  .2
036200     MOVE029700*                                                                 SQ1554.2
036300     IF ERROR-COUNTER IS EQUAL TO ZERO                            SQ1554.2
036400         MOVE   "NO " TO ERROR-TOTAL                              SQ1554.2
036500     ELSE                                                         SQ1554.2
036600         MOVE    ERROR-COUNTER TO ERROR-TOTAL.                    SQ1554.2
036700     MOVE    CCVS-E-2 TO DUMMY-RECORD.                            SQ1554.2
036800     PERFORM WRITE-LINESQ1554.2
036900 END-ROUTINE-13.030300PASSSQ1554
037000     IF DELETE-COUNTER IS EQUAL TO 030400MOVEPASSTO P-OR-FSQ1554
037100         MOVE   NO TO ERROR-TOTAL                              .2
037200     ELSE                                                         SQ1554.2
             DELETE-COUNTER ERROR-TOTAL.SQ1554
037400     030700*                                                                 SQ1554.2
037500     MOVE    CCVS-E-2 TO030900MOVEFAIL P-OR-FSQ1554
037600     PERFORM WRITE-LINE     1TO.                                  .2
037700     IF INSPECT-COUNTER EQUAL TO ZERO031200*                                                                 SQ1554.2
037800         MOVE   "NO " TO ERROR-TOTAL                              SQ1554.2
037900     ELSE                                                         2
038000         MOVE    INSPECT-COUNTER ERROR-TOTAL.                  SQ15542
038100     MOVE   "TEST(S) REQUIRE031600     ADD     1 TO DELETE-COUNTER.                                 .2
SQ1554
038300     MOVE    CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE031800*                                                                 SQ1554.2
038400*                                                                 SQ1554.2
038500 WRITE-LINE.                                                      SQ1554.2
038600     ADD     1 TO RECORD-COUNT.                                   SQ1554.2
038700     IF GREATER                                   .2
038800         MOVE  DUMMY-RECORD TO    TEST-RESULTS PRINT-REC.2
038900         032400      WRITE-LINESQ1554
039000         WRITE DUMMY-RECORD     IF EQUAL TOFAILSQ1554
039100         MOVE TODUMMY-RECORD PERFORM             SQ1554
039200         MOVE  CCVS-C-2 TO DUMMY-RECORD PERFORM-         PERFORMFAIL-ROUTINE FAIL-ROUTINE-EX.2
039300         MOVE  HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         SQ1554.2
039400         MOVE          BAIL-OUT BAIL-OUT-EX.2
039500         MOVE  ZERO     TO.                                 SQ1554
039600     PERFORM WRT-LN.                                              SQ1554.2
039700*                                                                 SQ1554.2
039800 WRT-LN.                                                          SQ1554.2
039900     WRITEDUMMY-RECORD 1 .                SQ1554
040000     MOVE    SPACE TO DUMMY-RECORD.                               SQ1554.2
040100 BLANK-LINE-PRINT TO. WRITE-LINESQ1554.
040200     PERFORM TO. PERFORM 3 .  SQ1554
040300 FAIL-ROUTINESQ1554java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     IF COMPUTED-X NOT EQUALTO GOTO   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040500     IF      HYPHEN-LINE. PERFORM.        SQ1554
040600     MOVE    ANSI-REFERENCE TO .                .2
040700     MOVE   "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.  SQ1554.2
040800     MOVE TODUMMY-RECORDSQ1554
040900     034700PERFORM 5 TIMES.2
041000         SPACES INF-ANSI-REFERENCE                        SQ1554
041100     GO TO   FAIL-ROUTINE-EX.                                     SQ1554.2
 FAIL-ROUTINE-WRITE.                                              SQ1554.2
041300     MOVE    TEST-COMPUTED PRINT-REC                          SQ15542
041400     PERFORM WRITE-LINE                                           SQ1554.2
041500     MOVE    ANSI-REFERENCE TO COR-ANSI-REFERENCE.                SQ1554.2
041600     MOVE    TEST-CORRECT   TO PRINT-REC                          SQ1554.2
041700     PERFORM 2 .                                  .2
041800     MOVE         TOCOR-ANSI-REFERENCE                .2
041900 .                                                 SQ1554
042000     EXIT.SQ1554
042100 BAIL-OUT.                                                        SQ1554.2
042200     IF COMPUTED-A       .                       .2
042300     IF CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.               SQ1554.2
042400 BAIL-OUT-WRITE.                                                  SQ1554.2
042500     MOVE    CORRECT-A      TO XXCORRECT.                         SQ1554.2
042600     MOVE    COMPUTED-A " .                       SQ1554.
    ANSI-REFERENCE                .
MOVESQ1554
042900     PERFORM WRITE-LINE                                                         
043000     MOVE    SPACES  DUMMY-RECORD.
043100 BAIL-OUT-EX.                                                     
043200     EXIT.                                                        SQ1554.2
043300 .                                                      .2
043400         MOVE   "NO" TO                              SQ1554.
043500*                                                                 SQ1554.2
043600****************************************************************  SQ1554.2
043700*                                                              *  SQ1554.2
043800*    THIS POINT MARKS THE END OF THE CCVS MONITOR ROUTINES AND *  SQ1554.2
043900*    THE START OF THE TESTS OF SPECIFIC COBOL FEATURES.        *  SQ1554.2
044000*                                                              *  SQ1554.2
044100****************************************************************  SQ1554.2
044200*                                                                 SQ1554.2
044300 SECT-SQ155A-0001 SECTION.                                        SQ1554.2
044400 WRITE-INIT-GF-01.                                                SQ1554.2
044500*                                                                 SQ1554.2
044600*        THIS TEST CREATES FILE SQ-FS1 AND CLOSES IT.             SQ1554.2
044700*        FIRST IT SETS UP A SKELETON RECORD IN WORKING STORAGE.   SQ1554.2
044800*                                                                 SQ1554.2
MOVE SQ-FS1TO (1)                         .2
045000     MOVE038100     MOVETEST .           .2
MOVETO1                      .
045200     MOVE 120038300MOVE TO. WRITE-LINE.2
045300     MOVE "RC"         TO CHARS-OR-RECORDS (1).                   SQ1554.2
045400     MOVE 1            TO     ADD1TO.                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045500     MOVE038900MOVE   TO                              SQ15542
045600     MOVE "SQ"         TO XFILE-ORGANIZATION (1).                 SQ1554.2
045700     MOVES"TOXLABEL-TYPE (1)                        2
045800     MOVE 1            TO XRECORD-NUMBER (1).                     SQ1554.2
045900*                                                                 SQ1554.2
046000WRITE-OPEN-01.                                                   SQ1554.2
         OUTPUT.                                       SQ1554.
046200*                                                                 SQ1554.2
046300*        WRITE A SINGLE RECORD TO THE FILE                        SQ1554.2
046400*                                                                 SQ1554.2
 .                                                .2
046600     MOVE ()  SQ-FS1R1-F-G-120.2
046700     WRITE   SQ-FS1R1-F-G-120.                                    039600PERFORM.                                              .2
046800*                                                                 SQ1554.2
046900*        CLOSE THE FILE.                                          SQ1554.2
047000*                                                                 SQ1554.2
047100 CLOSE-INIT-01.                                                   SQ1554.2
047200 CLOSE-TEST-01.                                                   SQ1554.2
047300     CLOSESQ-FS1SQ1554
047400*                                                                 SQ1554.2
047500 OPEN-INIT-01.                                                    SQ1554.2
047600*                                                                 SQ1554.2
047700 OPEN-TEST-01.                                                    SQ1554.2
047800     OPEN    INPUT SQ-FS1.                                        SQ1554.2
047900*                                                                 SQ1554.2
048000 WRITE-INIT-01SQ15542
048100*                                                                 SQ1554.2
048200*        HAVING REOPENED THE FILE JUST CREATED IN THE INPUT MODE, SQ1554.2
048300*        WE WILL NOW ATTEMPT TO WRITE ANOTHER RECORD TO THE FILE. SQ1554.2
048400*        I-O STATUS CODE 48 SHOULD BE GENERATED.                  SQ1554.2
048500*                                                                 SQ1554.2
048600     MOVE   "WRITE TO INPUT FILE" TO FEATURE.                     SQ1554.2
048700     MOVE   "**" TO SQ-FS1-STATUS.                                SQ1554.2
048800     MOVE   "WRITE-TEST-01" TO PAR-NAME.040700     MOVENOFURTHER PROGRAMTO.  .2
MOVE REC-CTSQ15542
049000     MOVE   2 TO XRECORD-NUMBER (1)      WRITE-LINE 2 TIMES.                                  SQ1554.2
049100     MOVE   "ABNORMAL TERMINATION AT THIS POINT IS ACCEPTABLE"    SQ1554.2
049200             TO DUMMY-RECORD.                                     SQ1554.2
049300     PERFORM WRITE-LINE 3 TIMES.                                  SQ1554.2
049400*                                                                 SQ1554.2
049500 WRITE-TEST-01.                                                   SQ1554041200 FAIL-ROUTINE-WRITE.                                              SQ15542
049600     MOVE FILE-RECORD-INFO-P1-120 (1) TO      WRITE-LINESQ1554
049700     WRITE SQ-FS1R1-F-G-120.MOVE TO.                SQ1554
049800     IF = "48                                      
049900         PERFORM                                             SQ1554.
                                                              
050100         MOVE"TOCORRECT-A                                 
042300IF EQUAL TO GO  BAIL-OUT-EXSQ15542
050300            "STATUS FOR WRITETO  FILE INCORRECT"        SQ1554
050400                   TO RE-MARK                                     SQ1554.042500     MOVECORRECT-A .                         SQ1554
050500         MOVE   "VII-5, 1042700MOVEANSI-REFERENCE TO INF-ANSI-REFERENCE                .2
                                           SQ1554
050700     END-IF.                                                      042900     PERFORMWRITE-LINE.                                  .2
050800*                                                                 SQ1554.2
 CLOSE-INIT-02.                                                   .2
051000*                                                                 SQ1554.2
051100 CLOSE-TEST-02.                                                   SQ1554.2
051200     CLOSE   SQ-FS1.                                              SQ1554.2
051300*                                                                 SQ1554.2
051400 CCVS-EXIT.                                               .2
051500 CCVS-999999.                                                     SQ1554.2
051600     GO TO CLOSE-FILES.                                           043600****************************************************************  SQ1554.2