Gracias a todos los que habéis respondido. Evidentemente nos faltan
ptf's.
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
Marti Riera escribió:
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
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
|
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard
