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          &nbnbsp;   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
           .