In a COBOL program, use the cursor C1 to fetch the values from the first four columns of the EMPPROJACT table a row at a time and put them in the following host variables:
Finally, close the cursor.
EXEC SQL BEGIN DECLARE SECTION END-EXEC. 77 EMP PIC X(6). 77 PRJ PIC X(6). 77 ACT PIC S9(4) BINARY. 77 TIM PIC S9(3)V9(2) PACKED-DECIMAL. EXEC SQL END DECLARE SECTION END-EXEC. . . . EXEC SQL DECLARE C1 CURSOR FOR SELECT EMPNO, PROJNO, ACTNO, EMPTIME FROM EMPPROJACT END-EXEC. EXEC SQL OPEN C1 END-EXEC. EXEC SQL FETCH C1 INTO :EMP, :PRJ, :ACT, :TIM END-EXEC. IF SQLSTATE = '02000' PERFORM DATA-NOT-FOUND ELSE PERFORM GET-REST-OF-ACTIVITY UNTIL SQLSTATE IS NOT EQUAL TO '00000'. EXEC SQL CLOSE C1 END-EXEC. GET-REST-OF-ACTIVITY EXEC SQL FETCH C1 INTO :EMP, :PRJ, :ACT, :TIM END-EXEC. . . .
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.