Cobol - Duda sobre SQL En Cobol

set sql (DBMAN=ADO, TARGETDB=MSSQLSERVER, BEHAVIOR=ANSI)

       program-id. Program1 as "SQL.Program1".

       data division.

       working-storage section.

         exec sql include sqlca end-exec.

      *   exec ado include "Tabla1" end-exec.

         01 col1 PIC  X(100).

         01 tecla pic x.

       procedure division.

          EXEC SQL  CONNECT TO

                 Base1 END-EXEC

               EXEC SQL  DECLARE c1 CURSOR FOR SELECT * FROM Tabla1

        END-EXEC

         EXEC SQL OPEN  c1 END-EXEC

           EXEC SQL  FETCH c1 INTO :col1 END-EXEC

           PERFORM UNTIL  SQLCODE not = 0

            DISPLAY  "Datos =" col1

                 EXEC  SQL FETCH c1 INTO :col1 END-EXEC

           END-PERFORM

           evaluate sqlcode

             when 0

             when 100

               continue

             when other

               display "Error sql code = " sqlcode

           end-evaluate

           EXEC SQL  DISCONNECT CURRENT END-EXEC

           EXEC SQL close  c1 END-EXEC

             accept tecla