[PowerCOBOL] SQlite3 con PowerCobol

[Josber]

❞ Hola, Como implementar un loop en PowerCobol? Ejemplo de lista de todos los registros de "MyTable": SELECT * FROM MyTable Creo que tienes que usar "sqlite3_prepare" y "sqlite3_step", o implementar una "devolución de llamada" (callback), 01 CALLBACK USAGE PROCEDURE-POINTER. ... pero no lo estoy consiguiendo. Gracias, Jose

A ver, yo con SQLLite, no lo sé, porque no lo he usado nunca pero, con SQL_Embebido o SQL normal, lo que se hace para hacer un bucle es, lo primero, crear un cursor y lo segundo es un FETCH a ese cursor, hasta que SQLSTATE, sea "02000", que indica un "fin_de_fichero", por lo que me supongo que en este caso, será muy parecido, es que otra manera de hacerlo, me parece rara

En PWC, con SQL_Embebido, sería algo así:

EXEC SQL
        DECLARE  cursor_consulta CURSOR FOR
                       SELECT * FROM CLIENTES
                                   WHERE .....
                                   ORDER BY .....
END-EXEC.
 
INITIALIZE SQLSTATE.
 
EXEC SQL
         OPEN cursor_consulta
END-EXEC.
 
PERFORM WITH NO LIMIT
               EXEC SQL
                       FETCH cursor_consulta
                                 INTO .....
               END-EXEC
               IF SQLSTATE = "02000"
                   EXEC SQL
                            CLOSE cursor_consulta
                   END-EXEC
                   EXIT PERFORM
               END-IF
END-PERFORM.

por lo menos, esa es la manera con la que yo hago un bucle. Lo puedes hacer con un PREPARE también pero, es más lioso, y se usa si tienes que montar la consulta armando un STRING, pero ese es otro tema.

Un salu2.-

[Joseg]

❞ @Joseg La funcion sqlite3_step espera el valor por value no por reference seria asi : working-storage. 01 stmt-handle   PIC 9(9) COMP-5. 01 redefines stmt-handle.     05  pStmt usage pointer.      call "sqlite3_step"  & X"00" WITH  STDCALL  LINKAGE            using  by value stmt-handle            returning BD-STATUS      end-call Saludos...

Ok, la función "sqlite3_step" ya está bien.
La función "sqlite3_column_count" también está bien.

La siguiente función siempre devuelve NULL (5)

     move 1 to wnum-columns
     call "sqlite3_column_type"  & X"00"  WITH  STDCALL  LINKAGE
                           using 
                                   by value stmt-handle
                                   by value wnum-columns
                                   returning BD-COLUMNA-TIPO
     end-call

¿Puede publicar una parte del código que se repite desde una tabla hasta que los datos se puedan consultar en PowerCobol?

Gracias por la ayuda.
Jose

[fastpho]

Hola @Joseg como recorrer la tabla para saber que tipo valor se puede almacenar por columnas

*-------------------------------------------------------------------------       
*>STEP 
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_step      ".
  
     PERFORM DB-STEP.
     evaluate bd-status
     when  SQLITE_ROW  
        perform muestro-cabecera
     when  SQLITE_DONE
        display "termino"
        continue
     when other
        display "error" 
        exit program
     end-evaluate.
*-------------------------------------------------------------------------     
*>FINALIZE
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_finalize".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_finalize"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
          DISPLAY "ERROR "
     
     ELSE
          DISPLAY "OK"
     END-IF.
*-------------------------------------------------------------------------     
*>CLOSE_V2
*-------------------------------------------------------------------------
     DISPLAY "------------------".
     DISPLAY "sqlite3_close_v2".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_close_v2"      TO FUNCIONES-SQLITE3-LIB.    
     
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   BD-HANDLE
                           returning  BD-STATUS
 
     end-call.          
    
     IF BD-STATUS NOT = SQLITE_OK then
             CALL "BD-ERROR"
          EXIT PROGRAM
     ELSE
          DISPLAY "OK"
     END-IF.
          
     
     EXIT PROGRAM.
 
*-------------------------------------------------------------------------
 MUESTRO-CABECERA.
*------------------------------------------------------------------------- 
 
     PERFORM  DB-CANTIDAD-COLUMNAS.
     
     MOVE ZEROS TO BD-COLUMNA-NUMERO.
     PERFORM VARYING BD-COLUMNA-NUMERO  FROM 0 BY 1  UNTIL BD-COLUMNA-NUMERO = BD-COLUMNA-CANTIDAD 
     *>sqlite3_column_type
*          DISPLAY "--------------------"
*          DISPLAY "sqlite3_column_type"
 
           MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB
           MOVE "sqlite3_column_type"   TO FUNCIONES-SQLITE3-LIB    
 
           call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   stmt-handle
                          BY VALUE   BD-COLUMNA-NUMERO *> COMIENZA DE 0 LAS COLUMNAS HASTA sqlite3_column_count - 1
                          returning  BD-COLUMNA-TIPO   *> RETORNA EL TIPO DE COLUMNA
           end-call          
 
          DISPLAY "--------------------"
          DISPLAY " COL NRO : " , BD-COLUMNA-NUMERO  , " es  COLUMNA-TIPO  " , BD-COLUMNA-TIPO   
          DISPLAY "--------------------"
     END-PERFORM.
 
*-------------------------------------------------------------------------
 DB-CANTIDAD-COLUMNAS.
*------------------------------------------------------------------------- 
 *>sqlite3_column_count
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_column_count".
 
     MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_count"  TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
              USING        BY VALUE   stmt-handle
                           returning  BD-COLUMNA-CANTIDAD
 
     end-call.          
 
*     DISPLAY "BD-COLUMNA-CANTIDAD : " , BD-COLUMNA-CANTIDAD.
 
*-------------------------------------------------------------------------
 DB-STEP.
*------------------------------------------------------------------------- 
 *>sqlite3_step
*    DISPLAY "--------------------".
*    DISPLAY "sqlite3_step".
 
     MOVE SPACES TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_step"          TO FUNCIONES-SQLITE3-LIB.    
 
     call     FUNCIONES-SQLITE3-LIB  WITH STDCALL LINKAGE 
              USING        BY VALUE   stmt-handle 
                           returning  BD-STATUS
 
     end-call.      
*    DISPLAY BD-STATUS.     
     
 
 

Saludos ...

[Joseg]

❞ Hola @Joseg como recorrer la tabla para saber que tipo valor se puede almacenar por columnas *-------------------------------------------------------------------------       *>STEP *-------------------------------------------------------------------------      DISPLAY "------------------".      DISPLAY "sqlite3_step      ".        PERFORM DB-STEP.      evaluate bd-status      when  SQLITE_ROW           perform muestro-cabecera      when  SQLITE_DONE         display "termino"         continue      when other         display "error"         exit program      end-evaluate. *-------------------------------------------------------------------------     *>FINALIZE *-------------------------------------------------------------------------      DISPLAY "------------------".      DISPLAY "sqlite3_finalize".        MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.      MOVE "sqlite3_finalize"      TO FUNCIONES-SQLITE3-LIB.                call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE               USING        BY VALUE   stmt-handle                            returning  BD-STATUS        end-call.                    IF BD-STATUS NOT = SQLITE_OK then           DISPLAY "ERROR "            ELSE           DISPLAY "OK"      END-IF. *-------------------------------------------------------------------------     *>CLOSE_V2 *-------------------------------------------------------------------------      DISPLAY "------------------".      DISPLAY "sqlite3_close_v2".        MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.      MOVE "sqlite3_close_v2"      TO FUNCIONES-SQLITE3-LIB.                call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE               USING        BY VALUE   BD-HANDLE                            returning  BD-STATUS        end-call.                    IF BD-STATUS NOT = SQLITE_OK then              CALL "BD-ERROR"           EXIT PROGRAM      ELSE           DISPLAY "OK"      END-IF.                      EXIT PROGRAM.   *-------------------------------------------------------------------------  MUESTRO-CABECERA. *-------------------------------------------------------------------------        PERFORM  DB-CANTIDAD-COLUMNAS.            MOVE ZEROS TO BD-COLUMNA-NUMERO.      PERFORM VARYING BD-COLUMNA-NUMERO  FROM 0 BY 1  UNTIL BD-COLUMNA-NUMERO = BD-COLUMNA-CANTIDAD     *>sqlite3_column_type *          DISPLAY "--------------------" *          DISPLAY "sqlite3_column_type"              MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB            MOVE "sqlite3_column_type"   TO FUNCIONES-SQLITE3-LIB                  call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE              USING        BY VALUE   stmt-handle                           BY VALUE   BD-COLUMNA-NUMERO *> COMIENZA DE 0 LAS COLUMNAS HASTA sqlite3_column_count - 1                           returning  BD-COLUMNA-TIPO   *> RETORNA EL TIPO DE COLUMNA            end-call                       DISPLAY "--------------------"           DISPLAY " COL NRO : " , BD-COLUMNA-NUMERO  , " es  COLUMNA-TIPO  " , BD-COLUMNA-TIPO             DISPLAY "--------------------"      END-PERFORM.   *-------------------------------------------------------------------------  DB-CANTIDAD-COLUMNAS. *------------------------------------------------------------------------- *>sqlite3_column_count *    DISPLAY "--------------------". *    DISPLAY "sqlite3_column_count".        MOVE SPACES                  TO FUNCIONES-SQLITE3-LIB.      MOVE "sqlite3_column_count"  TO FUNCIONES-SQLITE3-LIB.            call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE               USING        BY VALUE   stmt-handle                            returning  BD-COLUMNA-CANTIDAD        end-call.             *     DISPLAY "BD-COLUMNA-CANTIDAD : " , BD-COLUMNA-CANTIDAD.   *-------------------------------------------------------------------------  DB-STEP. *------------------------------------------------------------------------- *>sqlite3_step *    DISPLAY "--------------------". *    DISPLAY "sqlite3_step".        MOVE SPACES TO FUNCIONES-SQLITE3-LIB.      MOVE "sqlite3_step"          TO FUNCIONES-SQLITE3-LIB.            call     FUNCIONES-SQLITE3-LIB  WITH STDCALL LINKAGE               USING        BY VALUE   stmt-handle                            returning  BD-STATUS        end-call.       *    DISPLAY BD-STATUS.               Saludos ...

Muchas gracias. Tu ayuda ha sido muy importante.
Mi ultima duda es como convertir un puntero en texto o una fecha o un campo numerico o incluso un "BLOB",
ser consultable en powercobol.

ejemplo:

          evaluate  BD-COLUMNA-TIPO
             when 3
                call "sqlite3_column_text" & X"00" WITH  STDCALL  LINKAGE
                            using
                                 by value stmt-handle,
                                 by value BD-COLUMNA-NUMERO
                                 returning TEXT-POINTER
                end-call
          end-evaluate 

Saludos
José

[fastpho]

Hola @Joseg con respecto a los tipos de datos
yo estoy trabajando en Android(B4A) con:

      88  SQL_INTEGER         VALUE 1.  
      88  SQL-REAL               VALUE 2.   
      88  SQL_TEXT              VALUE 3.  

*Tema: Tipo dato Entero*

Para pwcobol es un PIC 9(1...13) dependiendo el uso.

evaluate  BD-COLUMNA-TIPO
             when 1
                perform DB-COLUMNA-INT
 end-evaluate 
 
 DB-COLUMNA-INT.
*>Columna tipo Integer
     MOVE SPACES               TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_int" TO FUNCIONES-SQLITE3-LIB.
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   BD-HANDLE-STMT
                          BY VALUE   BD-COLUMNA-NUMERO
                          returning  BD-INT
     end-call.          
     *>DEVUELVE BD-INT.

*Tema : Tipo de dato Fecha*
en Android represento las fechas en ticks(type Long)

DateTime.DateFormat="dd-MM-yyyy"
Dim SomeTime As Long
SomeTime = DateTime.DateParse("16/05/2023")

Para sqlite es un SQL_INTEGER (SomeTime)
Para pwcobol la paso a PIC X(13) (SomeTime)

LINKAGE SECTION.
 01  sqlite3-value-text     PIC X(256).
 
 evaluate  BD-COLUMNA-TIPO
             when 3 *>Date Ticks
               perform DB-COLUMNA-TEXT
 end-evaluate 
 
 DB-COLUMNA-TEXT.
     *>Columna tipo TEXT
     MOVE SPACES                TO FUNCIONES-SQLITE3-LIB.
     MOVE "sqlite3_column_text" TO FUNCIONES-SQLITE3-LIB.
     MOVE SPACES          TO BD-TEXT.
     call     FUNCIONES-SQLITE3-LIB WITH  STDCALL  LINKAGE
             USING        BY VALUE   BD-HANDLE-STMT
                          BY VALUE   BD-COLUMNA-NUMERO
                          returning  BD-TEXT-POINTER
     end-call.          
     SET ADDRESS OF sqlite3-value-text TO BD-TEXT-POINTER.
     STRING
            sqlite3-value-text delimited by low-value
            into BD-TEXT
     END-STRING.
     SET  BD-TEXT-POINTER TO NULL.
     *>DEVUELVE BD-TEXT.

*Tema : Tipo de dato Real*
Tambien lo trato con sqlite3_column_text y lo muevo a

 01 importe-text   pic X(13)

y luego lo convierto a numerico

    evaluate  BD-COLUMNA-TIPO
             when 2 *>Real
               perform DB-COLUMNA-TEXT
      end-evaluate 

*Tema : Tipo de dato Blob*

No lo he implementado en android
Pero creo que lo mejor es guardar la direccion de la
imagen fisica del archivo de la memoria del celular o
mobil y no la imagen como tal.

*Tema : Tipo de dato Text*

simplemente como text PIC X(1...256)

Espero que te ayude y se entienda.
Saludos...

[Joseg]

Gracias por la ayuda. Todo está funcionando ahora.

Abrazo.
José

[Nitzer]

El problema de todo esto, es la cantidad de código y lo poco explícito que parece para acceder a los datos.
YO ya os dije que utilizo un activex que me hicieron para acceder y ejecutar y es tremendamente sencillo y claro.

Llevo muchos años trabajando practicamente solo con bases de datos y estoy encantado

[Joseg]

❞ El problema de todo esto, es la cantidad de código y lo poco explícito que parece para acceder a los datos. YO ya os dije que utilizo un activex que me hicieron para acceder y ejecutar y es tremendamente sencillo y claro. Llevo muchos años trabajando practicamente solo con bases de datos y estoy encantado

No encontré ningún OCX con posibilidad de conectarse a la Base de Datos (pero sería interesante)..
La idea de acceder a SQLITE directamente, sin ODBC, es facilitar la instalación de la aplicación por parte de "no informáticos".

[Nitzer]

❞ No encontré ningún OCX con posibilidad de conectarse a la Base de Datos (pero sería interesante).. La idea de acceder a SQLITE directamente, sin ODBC, es facilitar la instalación de la aplicación por parte de "no informáticos".

@Joseg, no se que pasó en mi anterior mensaje, se me cortó toda la parte final del mismo. Se ha quedado un texto que parece que esté regañando ajajajajaj

En algún mensaje expliqué como empecé con las bases de datos en Power.
Ya sabemos que power tiene varios controles para ello, el primero DbAccess, es por donde empecé para ir comprendiendo , pero pronto te das cuenta que no es lo que buscas.
Luego continué con sql embebido y la configuración de cobol85, que tampoco me terminaba de convencer, aunque hacía su función.
Lo siguiente y con lo que mas he estado ha sido utilizado el control ADO, con ese casi todo lo puedes hacer, la pena es que no hay mucha información enPower, pero a fin de cuentas es ADO, y de ado hay muuuuucha información en internet, empecé a ver todos los métodos, funciones, etc ... y aplicarlas en power, unas iban bien y otras no , me quedé con las que funcionaban y así he estado varios años completamente satisfecho.

Pero mi interés por la sql seguía creciendo y necesitaba aplicar consultas mas grandes, procedimientos almacenados, funciones, etc ... en ese momento empecé a buscar por internet, pero no encontré gran cosa.
Pero conocía a una empresa que tenía varios ocx y con la que ya había contactado , la empresa es FathSowtware, que por cierto hace unos meses cerró y ya no hay manera de encontrar sus productos, pero Admir que es quien llevaba la empresa, lo había conocido e intercamabiado correos, así que le dije si me podía hacer un activex para acceder nativamente a sqlserver y .... tras 27 prototipos y 200 dolares , conseguí lo que buscaba

Desde entonces todo ha cambiado.
Si queréis le puedo preguntar si estaría dispuesto a venderlo o regalarlo o lo que sea, es un ocx sencilla,se registra y se distribuye y por ahora y tras varios años, todo perfecto.

Y siento si el mensaje anterior se malinterpretó, admiro el trabajo de cada uno de vosotros.

[Joseg]

Todo bien.
Estamos aquí para ayudarnos unos a otros.
Este OCX parece interesante, pero comprar un producto aparentemente descatalogado no sería buena idea. Como producto gratuito/de código abierto, me gustaría probarlo.

Saludos