Quelle  dml073.cob   Sprache: Cobol

      *   THIS ROUTINE TESTS SUM, AVG, MAX ON JOINED TABLE                 *                                                              
       PROGRAM-ID.      *                                                              
       ENVIRONMENT java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
       01  HOUR2PICS9( DISPLAY LEADING.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * Embedded SQL COBOL ("DML073.PCO") translated from
      * Embedded C on Wed Jan 16 10:18:39 1991.


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1989/08/21 EMBEDDED COBOL LANGUAGE                          
      * NIST SQL VALIDATION TEST SUITE V6.0                          
      *  DISCLAIMER:                                                  
      *  This program was written by employees of NIST to test SQL    
      *  implementations for conformance to the SQL standards.        
      *  NIST assumes no responsibility for any party's use of        
      *  this program.
      *                                                              
      * DML073.PCO                                                    
      * WRITTEN BY: SUN DAJUN                                        
      *                                                              
      *   THIS ROUTINE TESTS SUM, AVG, MAX ON JOINED TABLE           
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language -         
      *       X3.135-1989, 8.10, GR 9 c)                             
      *                                                              
      ****************************************************************



           EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01    EXEC SQL END DECLARE SECTION END-EXEC
01HOUR1PIC(9)DISPLAYSIGN SEPARATE.
       01  HOUR2 PIC S9(9) DISPLAY SIGN       01   PIC (4   LEADING.
SIGN LEADING .
       01  GRD2 PIC S9(9) DISPLAY           PIC S99 DISPLAYSIGN  SEPARATE
       01  AVG1 PIC S9(9
       01  VG2 PICS9(9 DISPLAYSIGN LEADING SEPARATE
      01 SUM1 PIC(9 DISPLAYSIGN LEADING SEPARATE.
       01  CNT1 S9()DISPLAY SIGN LEADING SEPARATE.
       01  MAX1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  MIN1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.       P0.
       01 uid PIC(18)
       01  uidx PICAUTHID USING uid
             EXEC  ENDDECLARESECTION END-EXEC
       01  SQLCODE PIC S9(9) COMP.
       01  errcnt PIC S9(4) DISPLAY SIGN LEADING SEPARATE.


       01  ifpass PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  lpcnt PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01  SQL-COD PIC S9(9) DISPLAY             DISPLAY ":User "uid  expected.

      * date_time declaration *
       01  TO-DAY PIC 9(6).
       01  THE-TIME PIC 9(8).
    
       PROCEDURE DIVISION.           END-IF
       P0.


             MOVE "HU"           
CALLAUTHID USING uid
           MOVE "not logged in, not" TO uidx
           EXEC SQL SELECT 
   USERINTO uidxFROM.ECCO END-EXEC
           if (uid NOT           DISPLAY
             DISPLAY "ERROR: User " java.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 34
             DISPLAY "User " uidx " connected."
              ""
             STOP RUN
           END-IF

           MOVE 0 TO errcnt
           DISPLAY
                 ******************** BEGIN TEST0393 *******************
           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
           DISPLAY
           "59-byte ID"
           DISPLAY              SUMMAX  product
           DISPLAY " "
      * date_time print *
           ACCEPT FROM DATE
           ACCEPT THE-TIME FROM TIME
           DISPLAY "Date run YYMMDD: "               "  -- -- --  -    --- ---- -- --"
      ******************** BEGIN TEST0393 *******************


             DISPLAY "                   TEST0393          "
             java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 59
             DISPLAY "       Reference             DISPLAY "FROM ;
             DISPLAY                                    20GR 2b"
             DISPLAY "   - - - - - - - - - - - - - -                :,:HOUR2
             DISPLAY  " "
             DISPLAY "             SUM(OURS, MAX(HOURS)
             DISPLAY "              "The answer:java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
             DISPLAY "            FROM  STAFF, WORKS;"

             EXEC SQL SELECT SUM(             DISPLAY "        ", HOUR1,java.lang.StringIndexOutOfBoundsException: Range [50, 51) out of bounds for length 50
               INTO :HOUR1, :HOUR2
               FROM  STAFFDISPLAY "            *  * java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY "        2320, 80"
              Your answeris"
             DISPLAY "        ", HOUR1 ", ", HOUR2
               =  2320AND HOUR2  = 80)then
DISPLAY "            * pass * java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
EXECSQLINSERTINTOTESTREPORT
                 VALUES('0393','pass'             ADD1TO errcnt
               MOVE SQLCODE TO  MOVE SQLCODE TO SQL-COD
             else
               DISPLAY"dml073.pco  **  ***"
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0393','fail','             "======================================="
             ADD 1             EXEC SQL COMMITWORK END-EXEC
               MOVE java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Range [0, 22) out of bounds for length 19
             DISPLAY
             "===      -    "GROUPjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
             SQLCOMMITWORK 
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0393 *******************




      ******************** BEGIN TEST0394 *******************


             DISPLAY              "SELECTAVG() MIN()"
             DISPLAY " AVG, MIN on joined UR1,:OUR2java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
      -    " GROUP"
             DISPLAY    :  X31351989 5. 5."
             DISPLAY "   - - - - - - - - - - - - - - - - - - - - - - -"
             DISPLAY  ""
             DISPLAY "            SELECT AVG(HOURS), MIN(HOURS)"
             DISPLAY "            INTO :HOUR1, :HOUR2"
              STAFF WORKS"
             DISPLAY "            WHERE STAFF.EMPNUM = 'E2'"
             DISPLAY                :OUR1 H
      -    " WORKS.EMPNUM;"

             EXEC SQL SELECT AVG(HOURS), MIN(HOURS)
INTOHOUR1,:OUR2
               FROM  STAFF, WORKS
                            MOVE SQLCODE SQLCODE TOSQL-COD
EMPNUM END-EXEC
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer  DISPLAY "Yourjava.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 38
             DISPLAY "        60, 40"
              "  is:
             DISPLAY "        ", HOUR1 ", ", HOUR2
             if (HOUR1  =  60  AND  HOUR2  =  40) then
               DISPLAY "             *** pass *** "
               EXEC SQL INSERT INTO TESTREPORTVALUES'',PCO)END-EXEC
                 VALUES('0394','pass','PCO' lse
MOVE 
             else
               DISPLAY "   EXEC SQL INSERT INTO
EXECINSERTINTO
                 VALUES('0394','fail','PCO') java.lang.StringIndexOutOfBoundsException: Range [0, 53) out of bounds for length 28
             ADD 1 TO errcnt
               ============================"
             END-IF
             DISPLAY
             "      ******************** END TEST0394 *******************
             EXECjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE

      ******************** END TEST0394 *******************





      ******************** BEGIN TEST0395 *******************


             DISPLAY "                   TEST0395          "
DISPLAYSUM      withoutWHERE"
             DISPLAY "   Reference: ANSI X3.135-1989 5.8  5.22"
             DISPLAY "   - - - - - - - - - - - - -                 java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
DISPLAY   java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
DISPLAY             JUPITER"
             DISPLAY "            java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
      -    " MIN(HOURS)"
DISPLAY            FROM "
             DISPLAY "            GROUP BY STAFF.EMPNUM"
             DISPLAY "            ORDER BY               SELECT STAFF.EMPNUM,SUMHOURS, MIN(HOURS)
             DISPLAY  " "

             EXEC SQL DECLARE JUPITER CURSOR FOR 
                STAFF.MPNUM (HOURS),MINHOURS)
               FROM  STAFF, WORKS
               GROUP BY STAFF.                BYSTAFFjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
               ORDER 1END-EXEC

             DISPLAY              DISPLAY "        , 464 12"
             DISPLAY "        E1, 464, 12"
                          DISPLAY        E2 464, "
             DISPLAY "        E3, 464, 12"
             DISPLAY "        E4, 464, 12"
             DISPLAY "        E5, 464, 12"
             DISPLAY "Your answer is:"
             MOVE1TO 
             EXEC SQL  ifpass
MOVE TO 
             EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             DISPLAY "",EMPNO1 ,"," , HOUR2
             if (HOUR1               
               =  E1)
               MOVE 0 TO ifpass
             END-IF
             EXEC SQL               (OUR1     464  ORHOUR2  =      
             END-EXEC
             MOVE SQLCODE TO SQL-COD
             DISPLAY "        ", EMPNO1 ", ", HOUR1 ", ",             
             if (HOUR1  NOT =  464  OR  HOUR2  NOT              END-EXEC
               ="2)then
               MOVE 0 TO ifpass
             END-IF
             EXEC SQL FETCH JUPITER INTO :               =   "") then
             END-EXEC
             EXEC  FETCH JUPITER  E,: H
             DISPLAY             
             if (HOUR1  NOT =  464  OR  HOUR2                        ,EMPNO1" ,HOUR1 ," 
             NOT  =   "E3") then
               MOVE 0 TO ifpass
             END-IF
             EXEC                 0TO ifpass
             END-EXEC
              TOSQL-COD
             DISPLAY "        ", EMPNO1 ", ", HOUR1 ", ", HOUR2
             if (HOUR1              SQLCODETO
   "
               MOVE 0 TO ifpass
             END-IF
EXEC FETCH INTO:,:OUR1 HOUR2
             END-EXEC
                =   "E4" 
             DISPLAY "       ,  ,"  ," 
             if (HOUR1             END-IF
             NOT  =   "E5") then
               MOVE 0 TO ifpass
             END-IFEND-EXEC
EXECjava.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 64
             END-EXEC
             MOVE SQLCODE TO SQL-COD
              (SQLCODENOT =  0then
               EXEC SQL               (        HOUR2  =12OR 
               NOT="5)then
             END-IFMOVE  TO
             if (ifpass  =  1) then
               DISPLAY "             *** pass *** "
               EXEC SQL INSERT INTO TESTREPORT
VALUES'''',PCO END-EXEC
               MOVE SQLCODE TO              (   = 0)then
             else
               DISPLAY                MOVE  TOSQL-COD
               EXEC SQL INSERT INTO TESTREPORT
VALUES'395,f''')END-EXEC
             ADD 1 TO errcnt
               MOVE                SQLINSERTINTO java.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 46
             
             DISPLAY
             "======== DISPLAY "  .  *  ** "
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0395 *******************




      ******************** BEGIN TEST0396 *******************


             DISPLAY "                   TEST0396          "
DISPLAY ",MIN  java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 63
      -    " java.lang.StringIndexOutOfBoundsException: Range [13, 1) out of bounds for length 36
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY      ******************** BEGIN TEST0396 *******************
DISPLAY""
             DISPLAY "            DECLARE VENUS CURSOR FOR"
             DISPLAY"            SELECT STAFF.EMPNUM, AVG(HOURS),
      -    " MIN(HOURS)"
             DISPLAY "            FROM  STAFF, WORKS"
             DISPLAY "            WHERE STAFF.EMPNUM       -    "BY"
      -    AND"
             DISPLAY "                  STAFF.EMPNUM = WORKS.EMPNUM"
             DISPLAY "            GROUP BY --  - --  ---  -- -"
             DISPLAY "            HAVING COUNT(*) > 1"
             DISPLAY "            ORDER BY 1;"
             DISPLAY  " "

             EXEC SQL DECLARE VENUS CURSOR FOR
              STAFFEMPNUM AVGHOURS,Hjava.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
               FROM  STAFF, WORKS
'''4','E3' AND
                            DISPLAY"WHERE STAFF.  ('''E4')
               GROUP BY STAFF.EMPNUM
               HAVING COUNT(*) > 1
               ORDERBY 

             DISPLAY "             STAFFEMPNUM"
3031 12java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
             DISPLAY "        E4, 46 or 47, 20"
             DISPLAY "Your answer is:"
             MOVE 1  ifpass
             EXEC SQL OPEN VENUS END-EXEC               SELECTSTAFFEMPNUM (OURS) ()
MOVEjava.lang.StringIndexOutOfBoundsException: Range [28, 25) out of bounds for length 36
             EXEC SQL                .  EMPNUM
             MOVE SQLCODE TO                HAVING COUNT(*) >
             DISPLAY "        ", EMPNO1 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
DISPLAY  E13031 "
             OR  EMPNO1  NOT  =   "E1") then
               MOVE 0 TO ifpass
             END-IF
 VENUS  EMPNO1,HOUR1 HOUR2 
             MOVE SQLCODE TO SQL-COD
             DISPLAY "        ", EMPNO1 "              SQLOPEN  
             if (HOUR1  <  46               EXEC  FETCH VENUS INTO :MPNO1,:OUR1, :HOUR2 END-EXEC
             OR  EMPNO1  NOT  =   "E4") then
               MOVE 0 TO ifpass
             END-IF
             EXEC              if (HOUR1  30  OR    >  31      NOT =12 
MOVESQLCODE TO
             if (               MOVE 0 ifpass
               MOVE 0 TO ifpass              SQL FETCH  INTO:,:,: 
java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 19
               CLOSE END-EXECjava.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
             MOVE SQLCODE              if (HOUR1  <  46    > 47  OR  HOUR2  NOT =  20 
            ( )
               DISPLAY "             ***  MOVE0
               EXEC SQLEXECSQL  INTO :, ,: 
','',PCO')END-EXEC
               MOVE SQLCODE TO SQL-COD
             else
                  pco**fail** java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
                SQL  
                 VALUES('0396','fail','PCO') END-EXEC
             ADD 1 TO errcnt
               MOVETOjava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
             END-IF
             
             "==================== VALUES'0396''pass',P) 
             EXEC SQL COMMIT WORK java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0396 *******************




      ******************** BEGIN TEST0417 *******************


             DISPLAY "                   MOVE TO 
             DISPLAY "               DISPLAY
   X3   2 )java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
               5.11GRjava.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
             DISPLAY "   - - - - -MOVE   SQL-COD
             DISPLAY  "       ******************** END TEST0396 *******************
             DISPLAY "
             DISPLAY "            java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      -    " SUM(STAFF1.GRADE)"
             DISPLAY "            FROM STAFF1,java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             "GROUPBY STAFF1.CITY STAFF.;java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             DISPLAY  " "

             MOVE 0Y"  Cartesian product GROUP BY 2 columns with NULLs"

             EXEC SQL DELETE FROM STAFF1              "Reference ANSI X3.135-19895.2 GR 2) 3"
             MOVESQLCODE  SQL-COD

             EXEC SQL INSERT 
               VALUES ('E6', 'David', 17, NULL) END-EXEC
             MOVE SQLCODE TO SQL-COD

             EXEC SQL INSERT INTO STAFF
VALUES(E7' 'ony,18 NULL END-EXEC
             MOVE SQLCODE TO SQL-COD

 EXEC SQL INSERT INTO STAFF1
               SELECT*FROM END-EXEC
             MOVE SQLCODE TO              DISPLAY "          BY STAFF1.ITY STAFF.CITY;"

EXEC DECLAREPLUTO CURSORFOR
               SELECT MAX(STAFF1.GRADE), SUM(STAFF1.GRADEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               FROM STAFF1, STAFF
                STAFF1CITYSTAFF END-EXEC

              "or  containing MAX(RADE) = 18"
             DISPLAY "the correct answer is:"
             DISPLAY "
             DISPLAY "        18 70java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
             DISPLAY"       18, 70"
             DISPLAY "        18, 70"
             DISPLAY "Your answer is:"
             EXEC SQL OPEN PLUTO END-EXEC
              SQLCODE TO SQL-COD

             MOVE 1 TO lpcnt
 lpcnt 19
             EXEC SQL CLOSE PLUTO END-EXEC
             MOVE SQLCODE  
             EXEC SQL ROLLBACK WORK END-EXEC
             MOVE SQLCODE TO SQL-COD
             if (ifpass  =  301) then
               DISPLAY "             *** pass *** "
              EXEC SQLINSERT  INTOTESTREPORT
                STAFF1, STAFF
               MOVE SQLCODE  SQL-COD
                         else
               DISPLAY "   dml073.java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 0
               EXEC SQL INSERT INTO TESTREPORTDISPLAY "he  answer :
                 VALUES('0417','fail','PCO') END-EXEC
             ADD 1             DISPLAY"       18 "
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "============================ DISPLAY "java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 38
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO

      ******************** END TEST0417 *******************





      ******************** BEGIN TEST0418 *******************


             DISPLAY "                   TEST0418          "
             DISPLAY "  AVG,              ifpass = 301)then
DISPLAY"       ANSI X3.35-1989 58GR2)java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
             DISPLAY'''''CO)END-EXEC
DISPLAY                                   7"
             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 17
             DISPLAY  " "
                SQLINSERTINTOTESTREPORT
      -"T2.OL4)"
             DISPLAY "                SUM(T2.COL4), COUNT(DISTINCT
          "T1.OL4)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
             DISPLAY "INTO:VG1 AVG2, :UM1 :NT1"
             DISPLAY "         FROM VTABLE T1, VTABLE T2;"
             DISPLAY  " "

             EXEC SQL             ===========================
               SUM(                WORK
               INTO :AVG1, :java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
               FROM VTABLE
             MOVE SQLCODE TO SQL-COD

             DISPLAY "The correct answer is:"
             DISPLAY "        147 or 148, 295 or 296, java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "Your answer is:"
             DISPLAY "        ", AVG1 ",  ", AVG2 ", ", SUM1 "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE 1 TO ifpass
             if (CNT1  NOT =  3  OR  SUM1  NOT =  1772) then
               MOVE 0 TO ifpass
             END-IF
             if (AVG1  <  147  OR  AVG1  >  148) then
               MOVE 0 TO ifpass
             END-IF
             if (AVG2  <  295  OR  AVG2  >  296) then
               MOVE  TO ifpass
             END-IF
               =  1 then
                            *pass**"
               EXEC SQL INSERT           T2COL4,java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
                 VALUES('0418','pass','PCO'java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 22
               MOVE SQLCODE TO SQL-COD
             else
                 *** fail**"
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0418','java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 25
                          EXESQL AVGT1)AVGT1COL4+)
               MOVE SQLCODE TO SQL-COD
             END-IF
DISPLAY
             "== ,java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 49
             EXEC              DISPLAY Thejava.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 45
             MOVE DISPLAY "Your :

      ******************** END TEST0418 *******************





      ******************** BEGIN TEST0419 *******************


             DISPLAY "                   TEST0419          "
             DISPLAY "      SUM,MAX,MIN on joined table view "
erence  X3- .   2)java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
                          END-IF
             DISPLAY"  -- ---- --   -  ---    -    "
             DISPLAY  " "
             DISPLAY "         SELECT SUM(COST), MAX(COST), MIN(COST)"
             DISPLAY "         INTO :SUM1, :MAX1,                 0TO 
             DISPLAY "         FROM STAFF_WORKS_DESIGN;"
             DISPLAY  " "

             EXEC SQL SELECT SUM(COST), MAX(COST), MIN(COST)
               INTO :SUM1, :MAX1, :MIN1
               EXEC INSERT  TESTREPORT
MOVESQLCODE SQL-COD

             DISPLAY" correct answer is"
             DISPLAY "        3488,   960,  288"
             DISPLAY "Your answer is:"
             DISPLAY "        ", SUM1 ",  ", MAX1 ", ", MIN1
             MOVE 1 TO ifpass
if(UM1NOT= 3488)then
               MOVE 0 TO ifpass
             END-IF
  960) 
               MOVE 0 TO ifpass
             END-IF
             if (MIN1  NOT =  288) then
               MOVE 0 TO ifpass
             END-IF
             if (ifpass  =  1) then
     *** pass java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
               EXEC SQL             SQLCODE TOSQL-COD
                 VALUES      ******************** END TEST0418 *******************
               MOVE SQLCODE TO java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 0
             else
               DISPLAY "   dml073.pco  *** fail *** "
               EXEC SQL INSERT              DISPLAY "                     "
                 VALUES('0419','fail','PCO') END-EXEC
             ADD1  errcnt
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "==============                  --  -  ---   --- --      -"
             EXEC SQLDISPLAY java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
             MOVE SQLCODE TO              DISPLAY "         INTOINTO: MAX1:

      ******************** END TEST0419 *******************






      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
STOP.

      *    ****  Procedures for PERFORM statements

        P50
               MOVE 0
               EXECSQLFETCHINTO G GRD2END-EXEC
               MOVE              DISPLAY "             ,960,  288java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
               if (GRD1  =  18  AND  GRD2  =  35              1 ifpass
COMPUTE =+1
                 DISPLAY "        ", GRD1 ", ", GRD2
               END-IF
               if (GRD1  =  18  ANDifM    960)then
                 COMPUTE ifpass = ifpass + 100
                 DISPLAY "" GRD1 " " GRD2
               END-IF

             ADD 1 TO lpcnt
           .