Cobol Foro - [Compilador] Powercobol & ADO

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Compilador] Powercobol & ADO (https://www.cobolforo.es/showthread.php?t=860)

Powercobol & ADO

Alguém neste foro usa esta dupla e que possa disponibilizar um exemplo CRUD de uma tabela, com uma coluna tipo "Date" (YYYMMDD).
Não estou a conseguindo fazer o "Update" da-me sempre erro, com as outras colunas não tenho problemas.
Não sei se é um bug da versão 7 do Pwoercobol.

Gracias,
José
Powercobol v7

Yo no encontré la manera de que funcionase un campo DATE en MySql/MariaDB, siempre me daba error al grabar igual que a tí, al final tuve que cambiarlo por campos VARCHAR(8), ni en PWC7 ni en PWC9.

Un saludo.-

Joseg, Josber, el tipo Date en las bases de datos es un binario Integer.
En Unix Date el campo contiene segundos a partir del 1 de Enero de 1970: Tiempo Unix - Wikipedia, la enciclopedia libre
Si no me equivoco, en las BD provenientes de la familia Unix, se usa este sistema. Y es el motor de la BD que lo presenta en un formato u otro, el que deseemos.

En DB2 la cosa cambia: IBM Knowledge Center

Cita:

Citación del post de IBM

Internally to DB2, the date is represented as a 4 byte field, with each byte containing 2 packed decimal digits stored in the format yyyymmdd.

Externally, as returned by an SQL SELECT statement, the date is represented by a character field. The format of the string is dependant on the DATE parameter in the DB2 DSNHDECP installation module (the DB2 installation option specified on the installation panel DSNTIP4). Table 24 shows valid DB2 date formats. The length of the date field is 10 bytes, except where the DB2 Installation Date format is LOCAL, in which case the length is installation-dependent and in the range 10 to 254 bytes. The date value must be in the range 0001-01-01 to 9999-12-31 (ISO format).

Y aquí información para MySQL: MySQL :: MySQL Internals Manual :: 10.9 Date and Time Data Type Representation

Cita:

DATE - 3 bytes, little endian
TIMESTAMP - 4 bytes, little endian

O sea que el tipo DATE de MySQL no es posible usarlo con Fujitsu ya que trabaja con binarios byte-oriented: Binary or COMP Format, a Description and Discussion
Es decir, no podemos declarar un binario de 3 bytes en Fujitsu. En Micro Focus sí podemos.

Conclusión: Usar campos de tiempo Timestamp que son de 4 bytes PIC S9(9) COMP-5.

Tentei este exemplo:

Código COBOL:

 01  xx-fecha.
     02 xx-fecha-aa      pic 9999.
     02 xx-fecha-g1      pic x value "-".
     02 xx-fecha-mm      pic 99.
     02 xx-fecha-g2      pic x value "-".
     02 xx-fecha-dd      pic 99.
 01  redefines xx-fecha.
     02 ww-fecha         pic x(10).

[Sintaxis] PowerCOBOL Microsoft ADO - COBOL Foro

mas também da erro.

Fiz também um pequeno teste sem programação, apnas com os controls do PowerCobol:

CmADODataSource1 ----> Ligado a uma BD em MariaDB
CmEdit1 (ADO) ligada a uma coluna tipo "Fecha" de uma tabela MariaDB
CmCommand1 com o seguinte código:

Código COBOL:

     INVOKE CmEdit1 "UpdateRecord"
     INVOKE "Recordset" OF CmADODataSource1 "MoveNext"

Sempre que se altera CmEdit1 da o erro referido aqui:
Grupos do Google

Não consigo resolver isto :(

Con SQL Server, lo solucionaba pasando una variable PIC 9(8) a 9999/99/99 al campo directamente.

Faz algo parecido com isto?

Código COBOL:

01  wdate  pic 9999/99/99. 
move 20180605 to wdate
move wdate to "Value" OF "Item"("ModifDate") OF "Fields" OF "Recordset" OF ADOC
INVOKE "Recordset" OF ADOC "MoveNext"

Pode colocar aqui essa parte do código?
Gracias,
Jose

Joseg, lo que cuenta es la BD, el ADO no es otra cosa que "un puente". Dependiendo del motor BD, le tienes que pasar el campo de tipo que corresponde con esa BD. El hecho de que haya funcionado un formato concreto, no quiere decir que dicho formato funcionará con otro motor BD.

Cita:

Citación del post de Joseg (Mensaje 4290)

Faz algo parecido com isto?

Código COBOL:

01  wdate  pic 9999/99/99. 
move 20180605 to wdate
move wdate to "Value" OF "Item"("ModifDate") OF "Fields" OF "Recordset" OF ADOC
INVOKE "Recordset" OF ADOC "MoveNext"

Pode colocar aqui essa parte do código?
Gracias,
Jose

Sí, así es.

No funciona :( me da siempre este mensaje:
"Row cannot be located for updating. Some values may have been changed since it was last read."

A coluna é do tipo 133 (adDBDate).
DataTypeEnum | Microsoft Docs

O resultado dos meus testes sao iguais em: MariaDB, Sqlite e Hyperfile.

Gracias

Hola Amigos:

Aportando desde la ignorancia.

Joseg, probaste de usar guiones en vez de barras como separador de fecha?

Código COBOL:

01  wfecha.
    02 waa           pic 9999.
    02               pic x value "-".
    02 wmm           pic 99.
    02               pic x value "-".
    02 wdd           pic 99.
01  redefines wfecha.
    02 wdate         pic x(10).

Saludos.

Fito...