[Duda] Diferencia resultados consulta en MariaDB y PWC9

[Kuk]

@Josber, es raro que te funcione con UTF8.... Por cierto cómo accedes a la base, vía SQL embebido o el AdoDB?

Estoy mirando unos pequeños ejemplos de hace años cuando el asunto no fue más allá de unos tests (yo siempre he usado ficheros indexados) y me está petando por todas partes


Acabo de hacer la prueba y a mi con el Power 10.1, el RCS=ASCII y la DB en latin1_general_ci me funciona todo.... Algo debe estar mal con tu BBDD

[Josber]

Uso SQL Embebido, quería haber usado ADO pero, no he encontrado ningún ejemplo claro de cómo hacer las cosas, lo poquito que hay por el foro, no me ha aclarado nada y los ejemplos de PWC, aún menos

Aprovecho por si alguien tiene la "bondad", sólo necesito de ADO, un ejemplo claro, bien explicado y sencillo de:

 - Un OPEN
 - SELECT ...
 - SELECT con FETCH
 - INSERT INTO ...
 - UPDATE SET ...

y poquito más, no me importa en éstos momentos del proyecto, cambiar a ADO, y si no me da problemas, ya ni te cuento, así es que, si hay algún alma caritativa, que quiera perder un poquito de su tiempo, haciendo el ejemplo, se lo agradecería en el alma.

Un salu2.-

[Kuk]

@Josber, yo creo que la mejor opción sería pasar por el OCX que facilitó @Nitzer, que por lo visto es una maravilla: https://www.cobolforo.es/showthread....ara-SQL-nativo

[Josber]

Anda, es verdad, no me acordaba, éste finde lo pruebo.

Gracias.-

[Fito]

Hola Amigos:

Yo tengo unos procesos que suben info desde mis archivos cobol a un SQL Server. Lo hacía con ADO y Power 8. Más o menos como un ejemplo que puse acá hace mucho. El tema con ADO es que hay que programar mucho, asimismo no he tenido problemas, solamente hice volcado de datos hacia la BBDD, usé DROP TABLE, CREATE TABLE e INSERT.

Por ahora solamente he necesitado hacer volcado de grandes cantidades de datos. Nada de un trabajo interactico con la BBDD como ABMs y Listados.

Ahora para un nuevo cliente que tenía que hacer la misma tarea, me puse a probar el ocx de Andres. Pero repito, solamente volcado de datos, así que usé solamente el comando EXECUTE pasando ahí el string con el comando. Y funciona de maravilla.

Ya con más tiempo voy a empezar a usarlo "profesionalmente", para decirlo de alguna manera.

Lo único que no maneja transacciones, que es algo que me interesaría mucho. Tendría que ver si con el comando EXECUTE se podría hacer. Pero es todo para investigar y probar.

Lo que sí que para poder hacer cosas con ese ocx lo veo realmente muy sencillo.

Saludos.

Fito...

[Josber]

¿Alguien podría subir varios ejemplos?, porque lo estoy intentando usar, pero no consigo nada, no sé ni siquiera si se conecta bien a la BD, (es a través de ODBC),, ejemplos con conexión a la BD, contar registros, (que en mis pruebas, siempre me da 0), etc. las cosas normales que se hacen con una BD y también, muy importante, el tema de controlar los errores, lo que explica Andrés, (nuestro estimado @Nitzer), de la opción DIAGNOTICRECORD, que supongo que será parecido a SQLMSG, pero que no hay manera.

Me haría un gran favor, ahora que me he decidido a pasar del SQL EMBEBIDO ..

Muchas gracias

[Fito]

Hola:

Acá paso el código de lo que dije anteriormente. Necesito exportar a una BBDD los datos de artículos, en este caso. Para eso creo un archivo .CSV y con la instrucción BULK INSERT de Sql Server lo importo.

 ENVIRONMENT     DIVISION.
 
 input-output section.
 file-control.
     select optional archivo-csv assign to "C:\ARTI.CSV"
        organization is line sequential.
     
 DATA            DIVISION.
 file section.
 fd  archivo-csv label records standard.
 01  reg-csv     pic x(280).
 
 WORKING-STORAGE SECTION.
 
 01  registro.
     02 csv-articulo     pic z(6).
     02                  pic x value ";".
     02 csv-denominacion pic x(100).
     02                  pic x value ";".
     02 csv-rubro        pic x(35).
     02                  pic x value ";".
     02 csv-cant-uni     pic zzzz9,999.
     02                  pic x value ";".
     02 csv-faccionado   pic xx.
     02                  pic x value ";".
     02 csv-kgfle        pic zzzz9,999.
     02                  pic x value ";".
     02 csv-porcaja      pic zzzz9,999.
     02                  pic x value ";".
     02 csv-porpallet    pic zzzz9,999.
     02                  pic x value ";".
     02 csv-desprom      pic zzzz9,999.
     02                  pic x value ";".
     02 csv-hasprom      pic zzzz9,999.
     02                  pic x value ";".
     02 csv-asociado     pic z(6).
     02                  pic x value ";".
     02 csv-suspendido   pic xx.
     02                  pic x value ";".
     02 csv-preciolibre  pic xx.
     02                  pic x value ";".
     02 csv-costo        pic z(9)9,99.
     02                  pic x value ";".
     02 csv-cosfec       pic x(10).
     02                  pic x value ";".
     02 csv-publico      pic z(9)9,99.
     02                  pic x value ";".
     02 csv-mayor        pic z(9)9,99.
     02                  pic x value ";".
     02 csv-iva          pic z9,99.
     
 01  wfraccionado        pic xx.
 01  wprelibre           pic xx.
 01  wsus                pic xx.
 01  wcosto              pic 9(12)v99.
 01  xfecha              pic 9999/99/99.
 01  redefines xfecha.
     02 wfecha           pic x(10).
 01  wpublico            pic 9(12)v99.
 01  wmayor              pic 9(12)v99.
       
 01 RETORNO      PIC S9(9) COMP-5.
 01 COMANDO      PIC x(4096).
 
 PROCEDURE       DIVISION.
 
 #include "copys\declara-com.cpy".
 
 comienzo.
     *> paso el string de conexión - tengo un origen de datos configurado por ODBC
     move "DSN=POWERBI;UID=sa;PWD=**********"  to "ConnectionString" of BD.
     
     *> conecto a la BBDD
     invoke BD "Connect" returning RETORNO.
     
     *> Elimino la BBDD
     move spaces                   to comando.
     move 'DROP TABLE IF EXISTS dbo."Articulos"'    to comando.
     INVOKE BD "Execute" USING comando RETURNING RETORNO.
 
     *> Creo la BBDD
     move spaces                   to comando.
     string 'CREATE TABLE  dbo."Articulos"'         delimited by size
            ' ( '                                   delimited by size
            'articulo     integer, '                delimited by size
            'denominacion character varying(100), ' delimited by size
            'rubro        character varying(35), '  delimited by size
            'cant_uni     numeric(8,3), '           delimited by size
            'faccionado   character varying(2), '   delimited by size
            'kgfle        numeric(8,3), '           delimited by size
            'porcaja      numeric(8,3), '           delimited by size
            'porpallet    numeric(8,3), '           delimited by size
            'desprom      numeric(8,3), '           delimited by size
            'hasprom      numeric(8,3), '           delimited by size
            'asociado     integer, '                delimited by size
            'suspendido   character varying(2), '   delimited by size
            'preciolibre  character varying(2), '   delimited by size
            'costo        numeric(12,2), '          delimited by size
            'cosfec       date, '                   delimited by size
            'publico      numeric(12,2), '          delimited by size
            'mayor        numeric(12,2), '          delimited by size
            'iva          numeric(5,2) '            delimited by size
            ')'                                     delimited by size
        into comando
     end-string.
     INVOKE BD "Execute" USING comando RETURNING RETORNO.
 
     open input arti nivel output archivo-csv.
 
     move spaces           to reg-csv.
     string 'articulo;'                delimited by size
            'denominacion;'            delimited by size
            'rubro;'                   delimited by size
            'cant_uni; '               delimited by size
            'faccionado; '             delimited by size
            'kgfle; '                  delimited by size
            'porcaja; '                delimited by size
            'porpallet; '              delimited by size
            'desprom; '                delimited by size
            'hasprom; '                delimited by size
            'asociado; '               delimited by size
            'suspendido; '             delimited by size
            'preciolibre; '            delimited by size
            'costo; '                  delimited by size
            'cosfec'                   delimited by size
            'publico'                  delimited by size
            'mayor; '                  delimited by size
            'iva'                      delimited by size
        into reg-csv
     end-string.
     write reg-csv.
     
     initialize artcla.
     start arti key is not < artcla invalid go sale.
     
 leo.
     read arti next at end go sale.
 
     initialize nivcla.
     move artniv1         to nivniv1.
     read nivel invalid move spaces to nivdenom.
     
     if artfracc-s
        move "SI"         to wfraccionado
     else
        move "NO"         to wfraccionado
     end-if.
 
     if artsus-s
        move "SI"         to wsus
     else
        move "NO"         to wsus
     end-if.
     if artpreciolibre-s
        move "SI"         to wprelibre
     else
        move "NO"         to wprelibre
     end-if.
     move artcos          to wcosto.
 
     move artcos-fec      to fecha-amd.
     perform amd-to-dma.
     perform valida-fecha.
     if error-fecha = 1 or artcos-fec = zeros
        move 20000101       to fecha-amd
     end-if   
     move fecha-amd         to xfecha.
     compute wpublico rounded = artpre1 * (1 + artiva-ins / 100).
     compute wmayor   rounded = artpre2 * (1 + artiva-ins / 100).
 
     move articulo          to csv-articulo.
     move artdenom          to csv-denominacion.
     move nivdenom          to csv-rubro.
     move artcant-uni       to csv-cant-uni.
     move wfraccionado      to csv-faccionado.
     move artkgfle          to csv-kgfle.
     move artporcaja        to csv-porcaja.
     move artporpallet      to csv-porpallet.
     move artdesprom        to csv-desprom.
     move zeros             to csv-hasprom.
     move artasociado       to csv-asociado.
     move wsus              to csv-suspendido.
     move wprelibre         to csv-preciolibre.
     move wcosto            to csv-costo.
     move wfecha            to csv-cosfec.
     move wpublico          to csv-publico.
     move wmayor            to csv-mayor.
     move artiva-ins        to csv-iva.
     
     inspect csv-denominacion replacing all ";" by " ".
     inspect csv-rubro        replacing all ";" by " ".
 
     inspect registro         replacing all "," by ".".
 
     write reg-csv from registro.
     
     go leo.
     
 sale.
     close arti nivel.
 
     move spaces            to comando.
     
     string "BULK INSERT dbo.Articulos "
        'FROM "c:\ARTI.CSV" '
        'WITH ( '
        '  FIRSTROW = 2 '
        ", FIELDTERMINATOR = ';' "
        ", ROWTERMINATOR = '0x0a'); "
        DELIMITED BY SIZE INTO comando
     end-string.   
     INVOKE BD "Execute" USING comando RETURNING RETORNO.
     
     INVOKE BD "Disconnect" RETURNING RETORNO.
               
     exit program.

Cuando avance más con esto, voy pasando. Pero el ejemplo que pone Andres en el pdf que pasó, está excelentemente explicado.

Saludos.

Fito...

[Josber]

Gracias @Fito, no digo que lo que ha puesto @Nitzer no esté bien explicado, (creo que explica muy bien las cosas), lo que digo es que faltan "casos", como por ejemplo, poder leer los errores que da una BD y que devuelve en las variables SQLMSG y SQLSTATE, (por lo menos cuando es SQLEmbebido), y que, según comenta, se gestionan con DIAGNOTICRECORD, pero no dice cómo y es algo muy importante, sobre todo, cuando estás haciendo el programa, te da un error y no sabes exactamente que es, y quizás sea una simple coma olvidada en la instrucción SQL, un paréntesis, una variable mal escrita ..., algún ejemplo más de un COUNT, SELECT, etc, para poder comparar con los otros que tiene puesto, etc.

Un salu2.-

[Fito]

Holaaa.

Quedé muy impresionado con la instrucción BULK INSERT de SqlServer:

Comienzo                   05 00 00 86  13/06/2024                                                                      
 Baja Artículos            05 00 20 85  13/06/2024                                                                      
 Baja CtaCtes              05 00 32 25  13/06/2024                                                                      
 Baja Ventas               05 00 46 32  13/06/2024                                                                      
 Baja Stock                05 02 22 19  13/06/2024         
   Artículos               05 03 06 06  13/06/2024          2.380 registros                                                  
   Clientes                05 03 06 51  13/06/2024         22.801 registros                                                           
   Stock                   05 03 07 14  13/06/2024      2.159.529 registros                                                                
   Ventas                  05 03 24 29  13/06/2024     28.504.015 registros                                                                 
Finaliza                   05 07 57 45  13/06/2024                                                                      

Este es el log que genero con el proceso. Fíejnse los tiempos, impresionante. Cuando lo hacía con INSERT uno por uno, tardaba varias horas cargar tantos registros. Tambien tengan en cuenta que dentro de ese tiempo está la generación del archivo CSV, no es sólo la importación.

Lo que si es que ese de Ventas que es más grande solamente me cargaba 3.159.999 registros, no sé si la limitación esa es los registros que puede manejar, o de acuerdo al tamaño del registro, la cantidad de caracteres. Es decir, si en registro fuera más largo, importaría menos lineas. Por eso los estoy subiendo cada tres millones de registros. Esa cantodad de ahi son 10 inserts.

Una maravilla...

Saludos

Fito...

[Josber]

No sé si es que el OCX no funciona bien con MariaDB, o es que estoy haciéndolo mal, como prueba, estoy haciendo esto desde PWC (versión 9 sobre Win 10, para más info)

     STRING 'DRIVER=MARIADB ODBC 3.0 Driver; '
            'Server=localhost; '
            'Port=3306; '
            'Database=braulio; '
            'Uid=*******; '
            'Pwd=*******;' DELIMITED BY SIZE INTO WS_SQL
     END-STRING.
 
     MOVE WS_SQL TO "ConnectionString" OF Bd.
 
     INVOKE Bd "Connect" RETURNING RETORNO.
 
     INITIALIZE WS_SQL.
     MOVE "SELECT COUNT(CLICOD) FROM CLIENTES WHERE CLIELI <> 'S'" TO WS_SQL.
     INVOKE Bd "OpenQuery" USING WS_SQL RETURNING RETORNO.

La conexión, supongo que la hace bien, puesto que si cambio algún parámetro para que sea incorrecta, me abre una ventana pidiendo datos de conexión, según @Nitzer (Andrés), la función OpenQuery, devuelve en RETORNO, el número de registros, sé que el número es 308, (es lo que me da, si hago la consulta directamente a la Bd), pero siempre me devuelve 0, si ésta instrucción no funciona, el resto de funciones, ya me da lo mismo, esta se usa mucho para saber si hay registros con ciertas condiciones.

¿Alguien ve si es que estoy haciendo algo mal?

Mil gracias