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
