EXEC SQL DECLARE emp_cursor CURSOR FOR
    SELECT id, name FROM employees
END-EXEC.

EXEC SQL OPEN emp_cursor END-EXEC.

PERFORM UNTIL SQLCODE NOT = 0
    EXEC SQL FETCH emp_cursor INTO :WS-ID, :WS-NAME END-EXEC
    IF SQLCODE = 0
        PERFORM PROCESS-EMPLOYEE
    END-IF
END-PERFORM.

EXEC SQL CLOSE emp_cursor END-EXEC.