Quelle  dml001.cob

IDENTIFICATION.
       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>                    
      *                                                              
      ****************************************************************


           EXEC      * TRANSLATED AUTOMATICALLY FROM EMBEDDED C BY CHRIS SCHANZLE
       01      *   THIS ROUTINE TESTS THE DECLARE CURSOR STATEMENT IN THE     
       01  EMPNM1      *           DECLARE <cursor name> CURSOR                       
       01  EMPNO      * REFERENCES                                                   
       01  HOUR1 PIC S9(      *              SECTION 8.3 <declare cursor>                    
       01  iii PIC           EXEC BEGIN SECTIONEND-EXEC
01uid X(18).
       01  uidx PIC.
           EXEC END DECLARESECTION END-EXEC
       01  SQLCODEHOUR1 PIC(9) DISPLAY  LEADING SEPARATEjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
       01  errcnt S9  SIGNSEPARATE.
       01  i PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  ii PIC S9 PIC(4) DISPLAY SIGN LEADING  SIGN.
       SQL-COD9DISPLAY LEADINGSEPARATE


      * date_time declaration *
       01TO-DAY)
       01  THE-TIME PIC
    
       PROCEDURE
       P0 PIC 9()java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29


MOVE TOuid
           CALL "AUTHID" USINGMOVE not ,"TOuidx
           MOVE "not logged in, not" TO uidx
            SQL 
                                   INTO : FROM HU END-EXEC
           if (uid NOTDISPLAYERROR  uid "expected"
             DISPLAY "ERROR: User " uid "             DISPLAY "Userconnected."
DISPLAY"ser"uidx."
             DISPLAY " "
             
           END-IF

           MOVE            SQL,V6 COBOL dml001
           DISPLAY
           "           59byteIDjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
           DISPLAY " "
           DISPLAY
           ACCEPTTHE-TIMEFROMTIME
           DISPLAY "TEd Version #"
 " "
      * date_time print *
           ACCEPT TO-DAY FROM DATE
           ACCEPT             0 TO
DISPLAYDate YYMMDD " at hhmmssff  java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71


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

 0  i

           DISPLAY "*       ='' java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
DISPLAYdeclare   >
      -    " "
           DISPLAYFOR EMPNUM
      -    " b)                WORKS
           DISPLAY "                  ORDER  BY EMPNUM DESC END-EXEC
DISPLAY   *   EMPNUM
           DISPLAY "   ***     FROM   WORKS "
           DISPLAY    *       PNUM
           DISPLAY 
           DISPLAY""

L DECLARE
             FOR SELECT           =,EMPNOi""
FROM
             WHERE  PNUM='P2'
             ORDER  BY EMPNUM(   =   E1)then
           EXECSQL  java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
MOVETO

           MOVE 1 TO ii  INSERT TESTREPORT
            P50 ii 14
           DISPLAY "          EMPNO=",               SQLCODE java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
           DISPLAYDISPLAY
           DISPLAY "             order by EMPNO DESC. "

           if (EMPNO   =   "E1"  AND  i  =EXEC INSERT TESTREPORT
             DISPLAY                     *"
             DISPLAY
             "=============================="
             EXEC
               DISPLAY""
MOVE TO
           else
             DISPLAY        .  * fail
                   ******************** END TEST0001 *******************
             "=======java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
EXEC INSERT TESTREPORT
               VALUES('0001','fail','PCO')            " with ORDER BY<unsignedinteger > ASC "
             ADD            b)
             MOVE SQLCODE TO      -------------------

           DISPLAY  " "
EXEC COMMIT END-EXEC
           MOVE SQLCODE TO SQL-CODPNUMjava.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49

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

           MOVE 0 TO SELECT,HOURS

           DISPLAY              WHEREPNUM
DISPLAYdeclareBY<unsigned"
           DISPLAY "reference X3.135-1989 section             SQL  Y END-EXEC
      -"b)java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
           DISPLAY       -- ----------------java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
           DISPLAY   *  SELECT "
            "   **     FROM   WORKS"
           DISPLAY "   ***     WHERE  PNUM='P2' "
DISPLAY   *       BY 2ASC
           DISPLAY  " "

           EXEC SQL DECLARE Y CURSOR
             FOR SELECT EMPNUM (    4    HOUR1    80 then
             FROM   WORKS
             WHERE  PNUM=========================
R  BY   END-EXEC
           EXEC SQL('0002''',PCO
           MOVE TOSQL-COD

           MOVE 1 TO ii
              "        .pco  *** fail ***"

           DISPLAY "             =============================
           DISPLAY" answer should be i = 4  "
           DISPLAY('0002','fail','PCO')END-EXEC
           if(    4    HOUR1then
             DISPLAY "                  *** pass ***"
             DISPLAY
           END-IF
             EXECDISPLAY""
                           SQLCOMMIT END-EXEC
             MOVE SQLCODE  SQL-COD
           else
             DISPLAY "
             DISPLAY
             "===      ******************** BEGIN TEST0003 *******************
             EXEC SQL           MOVE 0 TO
                          DISPLAY "                                      "
             ADD 1 TO errcnt
             MOVETO
           END-IF
SPLAY
           EXEC SQLDISPLAY     - -  -     -  - - "
           MOVE SQLCODE TO SQL-COD

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

           MOVE 0 TO i


           DISPLAY "                    TEST0003                  "
           DISPLAY "           DISPLAY "**FROM "
            "eference .- section 8. GeneralRules3)
      -    "             "  *     ORDER ,  java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61
           DISPLAY      -------------------java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63

DISPLAY   *  SELECT"
           DISPLAY "   ***                    BY  DESCEMPNUMDESC END-EXEC
           DISPLAY   *       PNUM
           DISPLAY "   ***     ORDER            SQLCODE TOSQL-COD
           DISPLAY  " "

           EXEC SQL DECLARE P48 ii14
                         " answer should bei= ; i  ",   java.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
             FROM   WORKS
             WHERE  ='P2'
             ORDER  BY 2 DESC,EMPNUM DESC              "                  * pass ***"
           EXEC OPENEND-EXEC
           MOVE SQLCODE TO SQL-COD

           EXEC INSERT INTO TESTREPORT
               VALUES,pass'PCO)END-EXEC

           DISPLAY "The answer should be i = 4; i =              MOVE SQLCODE  SQL-COD
SPLAYHOUR1.
           if (i  =  4  AND  EMPNO
             DISPLAY                  **pass
             DISPLAY
             "==========================              SQL INSERT INTOTESTREPORT
             EXEC SQL INSERT INTO TESTREPORT
               VALUES,'ass','PCO') END-EXEC
             MOVE SQLCODE TO SQL-CODADD1  errcnt
           else
             DISPLAY "                   END-IF
             DISPLAY
             "==============================java.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
             EXEC SQL
               VALUES(      ******************** BEGIN TEST0004 *******************
             ADD 1 TO
             MOVE SQLCODE TO SQL-COD "                    TEST0004"
           END-IF
           DISPLAY   java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
              WORK
           MOVE "        ----- -- --      "

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

           MOVE 0 TO             "**     FROM   WORKS"
            "                    TEST0004                  
           DISPLAY "               declare with UNION  "
           DISPLAYreference- section General2)java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
           DISPLAY "     - - - - - - - -            "  *        STAFF
           DISPLAY "   *** FOR SELECT             "**ORDER1DESC "
           DISPLAY "   ***     java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           DISPLAY "   *             FOR SELECT WORKSEMPNUM
           DISPLAY "   *** UNION  "
           DISPLAY**    SELECT
           DISPLAY "   ***     FROMUNION
          DISPLAY   *     WHERE=3 
           DISPLAY "   **             FROM   STAFF
           DISPLAY  " "

           EXEC DECLAREjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
              SELECT.EMPNUM
             FROM
             WHERE  WORKS  TOSQL-COD
             UNION
             SELECT.EMPNUM
             FROM P47 iijava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
              STAFF=13 
             ORDER BY 1             " answer should be i = 5  ORDERBY EMPNO."
           EXEC OPEN END-EXEC
           MOVE SQLCODE TO SQL-COD

           MOVE 1 TO ii
           PERFORM"==========================="

           DISPLAY "   i = ", i
uldbe   BY EMPNO."
           if (i  =  5  AND  EMPNO   =   "E1") then
             DISPLAY "                  *** pass ***"
             DISPLAY
             "=====           else
             EXEC   java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
               VALUES==========================
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY "        .pco  ** fail ***"
             DISPLAY
"============================"
             EXEC SQL INSERT INTO TESTREPORT
               VALUES(             MOVE SQLCODE TO
             ADD 1 TO errcntDISPLAY   "
             MOVE SQLCODETO
           END-IF
             ""
           EXEC SQL COMMIT WORK END-EXEC
           MOVE SQLCODE TO SQL-COD

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

           MOVE i

           DISPLAY "                    TEST0005
           DISPLAY "               declare with UNION ALL  "
           DISPLAY "reference X3.135-1989 section 8.DISPLAY "eference1989section  2"
           DISPLAY            "-- --  -   -- --- -   - -
           DISPLAY             "   **FORSELECT . java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
            "**FROMWORKS"
           DISPLAY "               "**SELECT"
            "  **UNIONALL "
           DISPLAY "   ***     SELECT STAFF.EMPNUM "
           DISPLAY   *        STAFF
           DISPLAY "   ***     WHERE           DISPLAY  "
           DISPLAY  " "

           EXEC SQL DECLARE B CURSOR
              SELECT.EMPNUM
FROM
             WHERE  WORKS.               WORKSPNUM='2java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
             UNION ALL    
             SELECT.EMPNUM
             FROMWHERE  .GRADE java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
             WHERE  STAFF.GRADE=            SQLCODE SQL-COD
EXEC OPEN
           MOVE SQLCODE TO            PERFORM UNTIL > 14

           MOVE 1 TO ii " correct answershouldhave some duplicate rows"
           PERFORM UNTIL > 14

           DISPLAY "      The correct answer should be i=6,i=", i " &"
           "=================================="
                         SQLINSERT INTOTESTREPORT
             DISPLAY "                  *** pass ***"
             DISPLAY
             "=================            MOVESQLCODE TOSQL-COD
             EXEC SQL INSERT INTO TESTREPORTDISPLAY        dml001***fail
               VALUES========================="
             MOVE SQLCODE TO SQL-COD
           else
             DISPLAY"        dml001.pco  *** fail ***"
             DISPLAY
             "=======================              1 TO errcnt
             EXEC SQL INTO
               VALUES           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
             ADD 1           EXEC  COMMIT  END-EXEC
             MOVE SQLCODE  SQL-COD
           END-IF
           DISPLAY      ******************** END TEST0005 *******************
           EXEC SQL java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           MOVEDISPLAY                                       "

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

           MOVE 0            DISPLAY "     - -         -     --"

           DISPLAY"**   FROM   STAFF,WORKS "
DISPLAY                with
            "eferenceX3.35-1989section8.   )java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
           DISPLAY "     - - - - - -            "**FROM,WORKS
           DISPLAY "   ***   SELECT EMPNAME,PNUM,HOURS "
           DISPLAY "   ***   FROM   STAFF,WORKS "
DISPLAY   *     STAFFEMPNUM =WORKS "
           DISPLAY "   *** UNION "
           DISPLAY "   ***   SELECT EMPNAME,PNUM,HOURS "
           DISPLAY    *    STAFF
           DISPLAY "   ***   WHERE            DISPLAY   "
           DISPLAY   *         SELECT
           DISPLAY "FORSELECTEMPNAME,PNUM,HOURS
           DISPLAY   *            .  .)"
           DISPLAY   java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

           EXEC DECLARE CURSOR
              SELECT,PNUM
             FROM   STAFF  NOT
             WHERE HOURS
             UNIONWHERE  STAFF. = WORKS) END-EXEC
              EMPNAME,HOURS
             FROM    TO java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
             WHERE  NOT EXISTS
             ( HOURS
             FROM   WORKS
                         "Thecorrectanswer should be i=21 i=,i
                       (i  =21) then
           MOVE              DISPLAY"                 **pass**"

           MOVE TO ii
           PERFORM P45 UNTIL ii > 29

                        EXECSQL INSERTINTO
           if i=21 java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             DISPLAY "                  *** pass ***"
             DISPLAY
             "====================================================="
             EXEC             ==========================="
               VALUES('0158','pass              SQL INSERT INTO TESTREPORT
             MOVE TO
           else
             DISPLAY"dml001.pco  *** fail***
             DISPLAY
             "===================================="
             EXEC SQL           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
               VALUES'fail,PCO)END-EXEC
             ADD 1 TO errcnt
             MOVE SQLCODETO
           END-IF
           DISPLAY  " "
           EXEC SQL COMMIT WORK END-EXEC
           MOVE SQLCODE TO SQL-COD

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

           MOVE 0 TO i

           DISPLAY "                    
           DISPLAY"declare  UNION   "
           DISPLAY "reference X3.135-1989 section 8.3 General Rules 2)"
           DISPLAY "     - - - - - - - - - - - - - - - - - - -"
           DISPLAY "   *** FOR SELECT PNUM,EMPNUM,HOURS "
           DISPLAY"**         "
           DISPLAY "   ***       WHERE HOURS=80 "
           DISPLAY   ** UNION
           DISPLAY "               "   **       FROM WORKS
           DISPLAY "   ***       FROM WORKS "
           DISPLAY "   ***       WHERE HOURS=40 "
           DISPLAY "   *** UNION "
           DISPLAY"   **      PNUM, EMPNUM, HOURS "
           DISPLAY "   ***       FROM WORKS "
           DISPLAY "   ***       WHERE HOURS=20 "
           DISPLAY   **ORDER, "

           EXEC DECLARECURSOR
             FOR SELECT PNUM,EMPNUM,HOURS
              WORKS
             WHERE "**     SELECTPNUM, EMPNUM, HOURS "
             UNION
             SELECTEMPNUM
             FROM WORKS    **WHERE"
             WHERE=40
             UNION
SELECT,EMPNUM
             FROM WORKS
             WHERE=20
             ORDER BY 31END-EXEC
           EXEC SQL OPEN D END-EXEC
           MOVE TOjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

           MOVE 1 TO ii
           PERFORM UNTIL > 39

           DISPLAY
           if PNUM,HOURS
              "** pass ***"
             DISPLAY
             "============================================
             EXEC INSERTINTO java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
               VALUES('0159','pass','PCO'
             MOVE TOSQL-COD
           else
             DISPLAY "        dml001.pco  *** fail ***"
            DISPLAY
             "==================            (i  =  10)then
             EXEC SQL INSERT INTO TESTREPORTDISPLAY"                  *pass ***"
               VALUES,fail''') END-EXEC
             ADD 1 TO
             MOVE SQLCODE('0159','','PCO')END-EXEC
           java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
           DISPLAY  " "

           EXEC SQL COMMITDISPLAY
           MOVE SQL-COD

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

           MOVE 0 TO i

           DISPLAY "                    TEST0160                  "END-IF
           DISPLAY "               declare with UNION   "
            reference  8   2"
           DISPLAY "     - - - - - - - - - - - - - - - - - - -"
           DISPLAY "   ***            MOVE SQLCODE TOSQL-COD
           DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 "  *UNION "
           DISPLAY "   ***     SELECT PNUM,EMPNUM,HOURS "
           DISPLAY "
DISPLAY   *WHERE
DISPLAY   *     UNION
            "**     SELECTPNUMEMPNUMHOURS"
DISPLAY   *       FROMjava.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
           DISPLAY "               "**        WORKS
           DISPLAY   **ORDER 21"

           EXEC            DISPLAY"**     SELECT PNUM,EMPNUM, "
             FOR (SELECT PNUM,EMPNUM,HOURS=80 java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50
             FROM "   *      PNUM,EMPNUM,HOURS "
             UNION
             SELECT PNUM,EMPNUM,HOURS
             FROM WORKS
             =)
             UNION ALL 
             SELECT PNUM,            SQL E CURSOR
             FROM
WHERE=java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
             ORDER BY 2,1 END-EXEC PNUM,HOURS

java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
           MOVE SQLCODE PNUMEMPNUMHOURS

           MOVE 1 TO ii
           PERFORM P43 UNTIL > 39

           DISPLAY "Thecorrectanswer should be i=14; i=", i" "
           if (i  =  14) thenORDER ,1 END-EXEC
             DISPLAY "                  *           EXEC SQL OPEN E END-EXEC
             DISPLAY
             "========================================
             EXECSQL INSERTINTO TESTREPORT
               VALUES('0160','pass','PCO'            P43 ii>39
MOVE TO
           else
             DISPLAY "        dml001.pco  *** fail ***"

             "=======================================DISPLAY
             EXEC SQL INSERT INTO TESTREPORT
             ===========================
              1TO
             MOVE                ('0160''pass,PCO)END-EXEC
           END-IF

           DISPLAY  " "
           EXEC SQL COMMITDISPLAY         .pco *"
           MOVE SQLCODE             =========================="

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

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

      *    ****  Procedures for PERFORM statements

        P50DISPLAY""
             EXEC SQL END-EXEC
             MOVE             SQLCODE SQL-COD
             if      ******************** END TEST0160 *******************
               MOVE ii       **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
               DISPLAY "           EMPNO=", EMPNO RUN
      -     *    ****  Procedures for PERFORM statements
             END-IF
           ADD               SQL X INTOEMPNO END-EXEC
           .

        P49 ii i
             EXEC SQL FETCH Y INTO :EMPNO,:HOUR1 END-EXEC
             MOVESQLCODE  SQL-COD
             if (SQLCODE             java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
               
               DISPLAY         =,EMPNOHOUR1 " "
                           SQLFETCHINTOEMPNO END-EXEC
           ADD1 TOii
           .

        P48.
             EXEC SQL FETCH Z INTO :EMPNO,:HOUR1 END-EXEC
             MOVE SQLCODE "        EMPNO"   and HOUR1="  " "
             if (SQLCODE  =  0) thenADD TOii
               MOVE ii TOP48.
               DISPLAY            =" EMPNO " and HOUR1"
      -    " "
                           SQLCODE SQL-COD
           ADD 1TOii
           .

        P47 "EMPNO"  "and HOUR1=", HOUR1
                   -   "java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
             MOVE SQLCODE TO SQL-COD
if  =  0) then
               MOVE ii TOMOVE  TOSQL-COD
               DISPLAY "                    EMPNO=", EMPNO " "
             END-IF
           ADD  ii
           .

        P46.
             EXEC SQLjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
             MOVE SQLCODE TO SQL-COD
             if (SQLCODEEXECSQL B INTO END-EXEC
               MOVEii i
               DISPLAY "EMPNO=", EMPNO " UNION               (SQLCODE  =0 then
          ""
             END-IF
           ADD 1 TO ii
           java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

        P45.
             EXECADD 1  ii
             MOVE SQLCODE
             if (SQLCODE              SQL CC :EMPNM1,PNO1 END-EXEC
               MOVE ii TO i
               DISPLAYempname ";pnum=,PNO1"hours
             HOUR1
             END-IF
           ADD 1 TODISPLAY "empname" EMPNM1=", PNO1 "hours
           .

        P44TO ii
             EXEC SQL FETCH
             MOVE SQLCODE              SQL D INTOPNO1,:HOUR1
             ifSQLCODEthen
               MOVE ii TO i
               DISPLAY "pnum=",             if  =  0)then
             HOUR1
             END-IF
           ADD 1 TO
           .

        P43.
             EXEC SQL FETCH E INTO .
             MOVEP43.
             if  =  0)then
               MOVE TO
               DISPLAY " pnum=", PNO1 "; empnum=", EMPNO ";                 ii TO i
             HOUR1
             END-IF
           ADD 1 TO ii
           .