Quelle  dml001.cob

        DIVISIONjava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
       PROGRAM-ID.  DML001.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * EMBEDDED COBOL (file "DML001.PCO")  

      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1987/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.
      *                                                              
      * DML001.PCO                                                    
      * WRITTEN BY: HU YANPING                                       
      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
      *                                                              
      *   THIS ROUTINE TESTS THE DECLARE CURSOR STATEMENT IN THE     
      * LANGUGE OF SQL. THE FORMAT:                                  
      *           DECLARE <cursor name> CURSOR                       
      *           FOR     <cursor specification>                     
      *                                                              
      * REFERENCES                                                   
      *         AMERICAN NATIONAL STANDARD database language - SQL   
      *                     X3.135-1989                              
      *                                                              
      *              SECTION 8.3 <declare cursor>                    
      *                                                              
      ****************************************************************


            SQL DECLARE END-EXEC
       01  PNO1           PIC
       01  EMPNM1  X(20).
       01            SQL DECLARE SECTIONEND-EXEC
       01  HOUR1 S9DISPLAYSIGNSEPARATE.
       01  iii PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  uid PIC X(18).
       01  uidx PIC X(18).
           EXEC SQL END DECLARE SECTION END-EXEC
       01  SQLCODE01  errcnt PIC(4)DISPLAY LEADING SEPARATEjava.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
       01  errcnt S9 SEPARATE.
       01  i PIC S9(9)DISPLAY LEADING SEPARATE
       01  ii01  SQL-COD PIC S9() DISPLAY SIGNLEADING SEPARATE.
       01  SQL-COD01   PIC 9(6)


      * date_time declaration *
               DIVISION.
       01  THE-TIME()
    
       PROCEDURE DIVISION.
       P0.


           MOVE "HU" TO uid
                       "HU" TO uid
           MOVE"not loggedin not  java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
           EXEC SELECT
USERuidx.ECCO
           if (uid NOT = uidx) then
              ": User"uid "expected.java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
             DISPLAY " uidx " connected."
             DISPLAY " "
                           "   " connected
           END-IF

           MOVE
           DISPLAY
" Test Suite .0, EmbeddedCOBOL, dml001.pco"
           DISPLAY " "
           DISPLAY
           "- "
           DISPLAY "TEd Version #"
           DISPLAY " "
      * date_time print *
           ACCEPT TO-DAY FROM DATE
            THE-TIME FROM java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAY


      ******************** BEGIN TEST0001 *******************

           MOVE i

           DISPLAY "                    TEST0001                  "            " runYYMMDD: " TO-DAY:"THE-TIME
           DISPLAY "declare with ORDER BY < column specification > DESC
      -    " "
           DISPLAY "reference X3.135-1989 section 8.3 General Rules 3)
      -    " b)"
           DISPLAY "     - - - - - - - - - - - - - - - - - - -"
           DISPLAY "   *** FOR SELECT java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           MOVETO
           DISPLAY "  **     WHEREPNUM'2 "
           DISPLAY "   ***     ORDER  BY EMPNUM DESC "
           DISPLAY  " "

           EXEC            "declare with ORDER BY <columnspecification DESC
              SELECT,HOURS
             FROM
             WHERE  PNUM='P2'
             ORDER EMPNUM
           EXEC SQL OPEN X             "**FORSELECTEMPNUM,HOURS "
           MOVE SQLCODE TO SQL-COD"**WHERE  PNUM='P2' "

           MOVE 1 TO   "
           PERFORM X CURSOR
           DISPLAY "EMPNO"  ", i=", i  "
           DISPLAY "The answer                WORKS
           DISPLAY "             order by EMPNO DESC. "

           if EMPNO""  AND  i  =  4 then
             DISPLAY            EXEC  OPENXEND-EXEC
             DISPLAY
             "=            SQLCODE  SQL-COD
             EXECSQL INTO
               VALUES           PERFORM UNTIL >14
MOVE TOSQL-COD
           else
             DISPLAY "        dml001.pco  *** fail ***"
             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
             "=======java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
              SQL INTOjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
               VALUESDISPLAY "***pass**"
             ADD 1 TO errcnt
             MOVE SQLCODE===========================
           END-IF
           DISPLAY   "
              SQLCODE SQL-COD
           MOVE "dml001pco** fail ***"

      ******************** END TEST0001 *******************
      ******************** BEGIN TEST0002 *******************

           MOVE 0 TO i

             EXEC SQL INTOjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
DISPLAYdeclare   integer
           DISPLAY "reference X3.135-1989 section 8.3 General Rules 3)
      -" b)java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
           DISPLAY"--                 "
           DISPLAY
           DISPLAY "   ***                 SQL COMMIT WORK END-EXEC
RE  ='P2' "
           DISPLAY "   ***     ORDER  BY 2 ASC "
           DISPLAY      ******************** END TEST0001 *******************

           EXEC SQL
             FOR EMPNUM
             FROM   WORKS
             WHERE  ='P2'
             ORDER  BY             " with ORDER BY  unsigned integer > ASC "
           EXECOPENjava.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
                      b"

           MOVE 1 TO           DISPLAY"--- -       -      "
           PERFORM "**FORSELECT EMPNUM,HOURS "

           DISPLAYDISPLAY   **     FROM java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
           DISPLAY "The            "**ORDER2  "
           DISPLAY "            order by HOUR1 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           ifi=4ANDHOUR1=80)then
             DISPLAY "                  *** pass ***"
             DISPLAY
             "================================
             EXECBY2ASC
               VALUES'pass,') END-EXEC
             MOVE SQLCODE java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
           else
             DISPLAYdml001fail
             DISPLAY
             "=============================
             EXEC SQLDISPLAY Thebe&"
               VALUESfail END-EXEC
             ADD 1 TO (  =4AND  =  80) then
             MOVE SQLCODE
           END-IF
             "
EXEC  WORK
           MOVE SQLCODE TOMOVESQLCODETO

      ******************** END TEST0002 *******************
      ******************** BEGIN TEST0003 *******************

           0 i


DISPLAYTEST0003
           DISPLAY "declare with ORDER BY < sort specification > ... "
           DISPLAY "reference X3              SQLCODE  SQL-COD
      -    "   " "
            "-- -----------------java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63

           DISPLAY******** END TEST0002 ************     ******************** BEGIN TEST0003 *******************
           DISPLAY   *        WORKS
           DISPLAYDISPLAY"eferenceX31351989section 83  Rules )
DISPLAY"**     ORDER  BY 2DESCEMPNUMDESC"
           DISPLAY  " "

           EXEC SQL DECLARE Z CURSOR
             FOR SELECT EMPNUM           DISPLAY"            -  - -     "
            "** FORSELECT EMPNUM,HOURS java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
             WHERE  PNUM='P2'
ORDER2, DESC
           EXEC SQL OPEN "**     WHEREPNUM='P2' "
MOVE java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

           MOVE 1 TO
           PERFORM UNTIL > 14

DISPLAYThe  4 i=",i"&"
           DISPLAY "             order by HOUR1 DESC, EMPNO DESC."
           if (i             WHEREPNUM
DISPLAY**pass
             DISPLAY
             "=====            SQL Z java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
                SQL INTOTESTREPORT
               ('0003',pass''' java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             MOVETO
           else
              "             order by  DESC, EMPNO DESC"
             DISPLAY
             "=              "                  *  ***"
EXEC  java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
               VALUES('0003','fail               ('0003''ass
              1TO
             MOVE SQLCODE TO
           END-IF
           DISPLAY  " "
           EXEC============================"
           MOVE SQLCODE TO SQL-COD

      ******************** END TEST0003 *******************
      ******************** BEGIN TEST0004 *******************

           MOVE  errcnt
           DISPLAY                                      
           DISPLAY           DISPLAY""
           DISPLAY "reference X3.135-1989EXECSQLCOMMITWORK END-EXEC
           DISPLAY-------    -- ------java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
           DISPLAY "   *** FOR SELECT WORKS.EMPNUM       ******************** BEGIN TEST0004 *******************
DISPLAY   *     FROM "
           DISPLAY "   ***     WHERE  WORKSDISPLAY                                      "
            " X3.1351989 8.3General Rules 2"
           DISPLAY "   ***     SELECT STAFF.EMPNUM "
DISPLAY"***FROM   STAFF "
           DISPLAY "   ***     WHERE  STAFF.GRADE=13 "
           DISPLAY   *   BY  DESC"
           DISPLAY  " "

           EXEC SQL DECLARE A CURSOR
             FOR . 
             FROM   WORKS
             WHERE  WORKS.PNUM "   **    SELECT STAFF.EMPNUM "
             
             SELECT STAFF.           "**     WHERE  STAFF.GRADE=3"
             FROMjava.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
                         SQL A CURSOR
             ORDERFOR WORKS 
                           WORKS
           MOVESQLCODE java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

           MOVE 1 TO STAFF  
           PERFORM UNTIL > 14

           DISPLAY "   i = ",WHERE.GRADE
           DISPLAYThe be5& BY DESC
           if (i  =  5  AND            SQL A END-EXEC
             DISPLAY "                  *** pass ***
             DISPLAY
             "=============================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             EXEC SQL INSERT INTO uld  i = 5& ORDER DESC"
               VALUES('0004','pass','PCO') END-EXEC
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY "                      SQLINSERTINTOTESTREPORT
             DISPLAY
             "===============================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             EXEC SQL INSERT INTO TESTREPORT        dml001dml001*fail
             ===========================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             ADD 1 TO errcnt
MOVE  SQL-COD
           END-IF
           DISPLAY"
           EXEC SQL COMMITMOVE SQLCODE  SQL-COD
           MOVE SQLCODEDISPLAY java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

      ******************** END TEST0004 *******************
      ******************** BEGIN TEST0005 *******************

           MOVE 0            0 TO

           DISPLAY "                    TEST0005                  "
           DISPLAY "               declare with UNION ALL  "
           "eference X3.135-1989  8.3 GeneralRules2)java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
DISPLAY       --------    ---- "
DISPLAY"   *  SELECTWORKSEMPNUM"
           DISPLAY "   ***     FROM   WORKS "
           DISPLAY "   ***     WHERE  WORKS.PNUM='P2' "
           DISPLAY   *         "
DISPLAY"   *      STAFF.EMPNUM "
           DISPLAY "   ***     FROM   STAFFDISPLAY "  *  ALLjava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
           DISPLAY "           DISPLAY "**     FROM "
           DISPLAY""

           EXEC SQL DECLARE B java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             FOR SELECT              FOR WORKS 
             FROM                WORKS
WHERE.PNUM=''
             UNION ALL    
             SELECT STAFF.EMPNUM  
             FROM   STAFF STAFF  
             WHERESTAFF=13END-EXEC
           EXEC SQL OPEN B END-EXEC
           MOVE TO

           MOVE            SQL B END-EXEC
            P46 ii14

           DISPLAY "      The correct 
           DISPLAYThe  have.
           if (i  =  6) then P46 ii
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY
             ====================="
EXEC INSERT java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
               VALUESDISPLAY
  
           else
              "dml001.pco  ***fail ***"
             DISPLAY
             "==============================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             EXEC         dml001*
java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
ADD1TO
             MOVE  INSERT TESTREPORT
END-IF
           DISPLAY  " "
           EXEC SQLWORK
           MOVE SQLCODE TO SQL-CODSQLCODETO

      ******************** END TEST0005 *******************
      ******************** BEGIN TEST0158 *******************

           MOVE 0 TO i

           DISPLAY"TEST0158                  "
           DISPLAY "               declare with UNION   "
           DISPLAY      ******************** BEGIN TEST0158 *******************
           DISPLAY"     - ---------------- --"
           DISPLAY "   ***   SELECT EMPNAME,PNUM,HOURS "
           DISPLAY    *   FROM,WORKS
           DISPLAY             "declare with UNION   "
           DISPLAYDISPLAY" X3.351989  8.GeneralRules2"
           DISPLAY "   ***   SELECT EMPNAME,PNUM,HOURS "
           DISPLAY   *    STAFF "
           DISPLAY "   ***   WHERE NOT EXISTS "
           DISPLAY "   ***         (SELECT HOURS "
           DISPLAY "   ***          FROM            "**WHERE.EMPNUM  .EMPNUMjava.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
           DISPLAY            DISPLAY"**FROMSTAFF,WORKS "
           DISPLAY" "

           EXEC SQL "**         ( HOURS "
               EMPNAME
             FROM "**WHERESTAFFEMPNUM=WORKSEMPNUM"
             WHERE  STAFF""
             UNION
             SELECT EMPNAME SQL CC
             FROMFOR EMPNAME,HOURS
             WHERE EXISTS
             (SELECT 
             FROM   WORKS
             WHERE  STAFFEMPNUM.EMPNUM
           EXEC SQLSELECT,PNUM
ODE SQL-COD

           MOVE 1 TO ii
           PERFORM P45 UNTIL ii(SELECT 

DISPLAY        answer;i" 
if    21) then
 "*  **"
             DISPLAY
                         1 TOjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
 SQL  TESTREPORT
               VALUES('0158',if(    )then
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY "        dml001.pco             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
             DISPLAY
             "===========================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
EXECINSERT TESTREPORT
               VALUES SQLCODE SQL-COD
             ADD 1 TO errcnt         .pco **
             MOVE SQLCODE TO========================"
END-IF
           DISPLAY  " "
           EXEC SQL COMMIT WORK('0158''''' java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
MOVESQLCODE  SQL-COD

      ******************** END TEST0158 *******************
      ******************** BEGIN TEST0159 *******************

           MOVE

           DISPLAY                with
           DISPLAY "               declare with UNION   "
           DISPLAY "reference X3.135-1989 section 8.3 General Rules 2)"
           DISPLAY "     - - - - - - - -               *FROMWORKS"
           DISPLAY "   *** "* "
DISPLAY*       FROM "
           DISPLAY "
           DISPLAY "   *** UNION "
           DISPLAY *SELECT java.lang.StringIndexOutOfBoundsException: Index 59 out of bounds for length 59
           DISPLAY "*  BY 31 "
           DISPLAY " SQLDECLARE D java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAYFROM
           DISPLAY   * ,EMPNUM
           DISPLAY "   ***       FROM WORKS              PNUM,,HOURS
           DISPLAY"**       HOURS=20 "
           DISPLAY              HOURS

           EXEC SQL DECLARE              PNUM,HOURS
             FOR SELECT PNUM,EMPNUM,HOURS HOURS
             ORDER BY , java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 27
             UNION SQLCODE SQL-COD
             SELECT PNUM,EMPNUM,HOURS
java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
             WHERE            P44 iijava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
             SELECT,EMPNUM
             FROMDISPLAY                  *pass
             WHERE HOURS=20

           EXEC SQL SQL INTOTESTREPORT
           MOVE SQLCODE TO SQL-COD

           MOVE 1 TO ii SQLCODE SQL-COD
           PERFORM P44 UNTIL ii > 39

           DISPLAY "      The correct answer should be i=10,i=",            
           if  =  10)java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             DISPLAY                   ** pass
             DISPLAY
               ('0159',fail,PCO
             EXEC SQL1  errcnt
               VALUESpass)END-EXEC
             MOVE SQLCODEEND-IF
           else
             DISPLAY "        dml001.pco  *** fail ***"
             
             "==================            SQLCODE TOSQL-COD
             
               VALUES('0159','fail','PCO*******************
             ADD 1 TO errcnt
             MOVE SQLCODE TO SQL-COD
           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
           DISPLAY  " "

           EXEC SQL           DISPLAY" X3.135-1989section8.3GeneralRules2)java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
MOVE java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

      ******************** END TEST0159 *******************
      ******************** BEGIN TEST0160 *******************

           MOVE            DISPLAY"**     UNION java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38

           DISPLAY             "**        HOURS=80) "
                       "**     UNION ALL "
                      DISPLAY   * ,, 
           DISPLAY            "**       FROM WORKS "
           DISPLAY "   *** FOR (SELECT PNUM,EMPNUM,HOURS "
DISPLAY   *       FROM "
           DISPLAY "   ***     UNION            "   *  BY 2, java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
           DISPLAY    *     SELECTHOURS
           DISPLAY "   ***       FROM WORKS "
RS80)"
           DISPLAY "   ***     UNION ALL "
           DISPLAY   **SELECTHOURS
           DISPLAY             java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
           DISPLAY "   ***       WHERE HOURS=12 "
           DISPLAY "   ***WHEREHOURS80java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28

EXEC DECLARE
             FOR (SELECT PNUM WORKS
             FROM WORKS              HOURS12
             UNION
             SELECT,EMPNUM
             FROM WORKS
                        EXEC SQL OPEN E END-EXEC
             UNION ALL 
             SELECT,EMPNUM,java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
             FROM WORKSP43 ii
             WHERE         answer  "
              BY2END-EXEC

SQL
           MOVE SQLCODE

                         SQL INTOTESTREPORT
PERFORM UNTIL >

                         SQLCODE SQL-COD
           if (i  =  14) then
             DISPLAY "                  *** pass ***"
            java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
"=============================
             EXECADD1  errcnt
VALUES,''' java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
             MOVE SQLCODE TO
           else
             DISPLAY"dml001pco  *** fail**"
             DISPLAY
             "============================"
             EXEC SQL INSERTjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               
             ADD 1 TO errcnt
             MOVE SQLCODE TO SQL-COD
           END-IF

           DISPLAY   "
           EXEC COMMIT WORK
MOVE TO

      ******************** END TEST0160 *******************

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

      *    ****  Procedures for PERFORM statements

        P50.
EXEC FETCH :,:HOUR1
             MOVE SQLCODE TO SQL-COD
             if
               MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
               DISPLAY "           EMPNO=", EMPNO SQLCODETO
      -""
             END-IF
           ADD 1 TO ii
           .

        P49 "EMPNO"  " and =", HOUR1
EXEC  Y  :,:HOUR1
             MOVE SQLCODE TO 1  
             java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               MOVE ii TO i
               DISPLAY"        EMPNO=,EMPNO"andHOUR1=,HOUR1
             END-IF
            1TO 
           .

        P48
             EXEC SQL FETCH"EMPNO",EMPNO =", HOUR1 java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
MOVE TO
             if (SQLCODE  =  0) then  TO ii
               MOVE
               DISPLAY           =",EMPNO"andHOUR1 "
      -   ""
             END-IF
           ADD 1 TO ii
           .

        P47.
             EXEC              (SQLCODE then
             MOVESQLCODE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
             if (SQLCODE  =  0) then
               MOVE ii             1TO
               DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             END-IF
           ADD 1 TO ii
           .

        P46.
             EXEC  FETCH  :EMPNO
             MOVE SQLCODE TO SQL-COD  TO
if  )then
               MOVE- java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
               DISPLAY "EMPNO=", EMPNO.
      -    " "
             END-IF
            1TO
           .

        P45.
EXEC FETCH INTOEMPNM1:,:HOUR1
             MOVE SQLCODE TO SQL-COD
             if (SQLCODE  =  0) then "=", EMPNM1=  "=",
               MOVE ii TO
               DISPLAY "empname=,EMPNM1 ";pnum"hours=",
             HOUR1
             END-IF
           ADD 1 TOii
           .

        P44.
EXEC FETCH :,:EMPNO END-EXEC
             MOVE SQLCODE TO SQL-COD (  =  0) java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
              (SQLCODE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
               MOVE iiHOUR1
               DISPLAY "pnum=", PNO1 "; empnum=", EMPNO  ii
             HOUR1
             END-IF
           ADD 1 TO ii
           

        P43.
             EXEC SQL FETCH              (SQLCODE)then
QLCODE SQL-COD
             if (SQLCODE  =  0) then
               MOVE i
               DISPLAY " pnum=", PNO1 "; empnum=", EMPNO "; hours=",
             HOUR1
             END-IF
           ADD 1 TO ii
           .