Ver Mensaje Individual
  #3
Antiguo 8 de noviembre de 2015, 00:45
Hrmcobol
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por implicación en la vida del Foro 
Última Actividad 01.03.2022 02:59
Posts Posts: 323
Likes enviados Enviados: 102
Likes recibidos Recibidos: 120

Hola Reacato, yo hago lo siguiente:
1-Creo una ODBC que apunte al SqlSever.
2-Con DB Acces Control busco la odbc y le punto a la tabla que deseo leer.
3-Ejecuto el procedimiento siguiente,


Código COBOL:
  1.      INVOKE SQL-INFORMES "OpenDB" RETURNING ReturnValue
  2.      MOVE WL-CONDICION-DE-BUSQUEDA  TO "Condition" OF SQL-INFORMES
  3.      INVOKE SQL-INFORMES "SelectRecords" RETURNING ReturnValue
  4.      IF ReturnValue >= ZEROS
  5.         MOVE 1 TO ReturnValue
  6.         PERFORM UNTIL ReturnValue NOT = 1
  7.                 INVOKE SQL-INFORMES "ReadNextRecord" RETURNING ReturnValue
  8.                 IF ReturnValue = 1
  9.                    ADD 1 TO WL-LEI
  10.                    PERFORM PROCESO-00
  11.                       THRU PROCESO-99
  12.                 END-IF
  13.         END-PERFORM
  14.      END-IF
  15.      INVOKE SQL-INFORMES     "CloseDB"  

Para grabar o regrabar uso Writerecord o Rewriterecord,
No uso OLE no Sql Embebido porque no se hacerlo, aparte tampoco tuve la necesidad de hacerlo. Este método me permite trabajar con bases Access y SqlServer al mismo tiempo
Espero te sirva.
Saludos
Hrmcobol is offline   Responder Con Cita