IDENTIFICATION DIVISION.
       PROGRAM-ID. EJEMPLO.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       FILE SECTION.

       WORKING-STORAGE SECTION.
      *
           EXEC SQL INCLUDE SQLCA END-EXEC.

       01 R-TABLA.
          02 CAMPO1          PIC X.
          02 CAMPO2          PIC X(10).
          02 CAMPO3          PIC X.
          02 CAMPO4          PIC X.
          02 CAMPO5          PIC S9(13) COMP-3.
          02 CAMPO6          PIC X(70).

       77 EOF-TABLA   PIC 1.
       77 W-CONSULTA  PIC X(400).

      *----------------------------------------------------------------
       PROCEDURE DIVISION.
      *----------------------------------------------------------------
       INICIO.
           PERFORM ABRIR-CONSULTA.

           PERFORM LEER-TABLA.
           PERFORM UNTIL EOF-TABLA = B"1"
               PERFORM PROCESO-QUE-SEA
               PERFORM LEER-TABLA
           END-PERFORM.

           PERFORM CLOSE-CONSULTA.
           GOBACK.

      *------------------------
       PROCESO-QUE-SEA.
      *------------------------
           DISPLAY "CAMPO1: " CAMPO1.
       F-PROCESO-QUE-SEA. EXIT.

      *------------------------
       ABRIR-CONSULTA.
      *------------------------
     
           MOVE "Select * from Tabla" TO W-CONSULTA.
      *
           EXEC SQL   PREPARE CONSUL FROM :W-CONSULTA
           END-EXEC.
      *
           EXEC SQL   DECLARE CONSULTA CURSOR FOR CONSUL
           END-EXEC.

           EXEC SQL   OPEN CONSULTA
           END-EXEC.

       F-ABRIR-CONSULTA. EXIT.

      *------------------------
       LEER-TABLA.
      *------------------------
           MOVE B"0" TO EOF-TABLA.
           EXEC SQL   FETCH CONSULTA INTO :R-TABLA
           END-EXEC.

           IF SQLCODE NOT = 0
              MOVE B"1" TO EOF-TABLA
           END-IF.
       F-LEER-TABLA. EXIT.

      *------------------------
       CLOSE-CONSULTA.
      *------------------------
           EXEC SQL   CLOSE CONSULTA
           END-EXEC.
       F-CLOSE-CONSULTA. EXIT.