Hola Fernando,
Yo he compilado el programa y aparentemente no me casca, esto es lo que veo en el log:
CALL PGM(TEMP/DATTST)
DSPLY 14.12.2005
DSPLY 14.12.2005
DSPLY 14.12.2005
DSPLY 14.12.2005
Estoy en V5R2 + C5123520 + Hiper 139 + Database 20
Saludos.
2005/12/13, Fernando Pérez <[EMAIL PROTECTED]>:
Saludos, foreros.
Hemos detectado un error en el manejo de fechas dentro de ds's. Antes de enviarselo a IBM, me gustaría que los que tengais v5r2 y v5r3 probeis el siguiente programa y me digais si os casca o no (tranquilos, no tiene virus ;) ).
En nuestro caso, CHAR se muestra en formato de fecha *iso, en lugar de *eur, y además el valor del campo fecha de la ds cambia tras la sentencia "CHAR = %char( P.Fecha: *eur) ;", quedando como una representación *eur, lo que hace que posteriormente el procedimiento principal casque.
Gracias anticipadas.
HDFTACTGRP(*NO)
HACTGRP(*CALLER)
*
Dds ds inz
Dcampo1 10a
Dfecha d
Dcampo2 10a
*
DPR PR
D P LIKEDS(DS)
*
/free
PR(DS);
//FECHA = %DATE ;
dsply %char( fecha: *eur) ;
*inlr = *on;
/end-free
*
PPR B
DPR PI
D P LIKEDS(DS)
DCHAR S 20A
/free
P.FECHA = %DATE ;
CHAR = %char( P.Fecha: *eur) ;
dsply char;
/END-free
PPR E
*
--
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
--
Marti Riera
