Re: Error en tratamiento de fechas

Juan Antonio Wed, 14 Dec 2005 01:30:56 -0800

Title: RE: Error en tratamiento de fechas

Se me olvidaba, estoy en V5R3

----- Original Message -----

From: Juan Carlos Paredes

To: forum.help400@combios.es

Sent: Wednesday, December 14, 2005 8:56 AM

Subject: RE: Error en tratamiento de fechas

Fernando, a mí me funciona correctamente. Estoy en V5R3

Saludos.
Juan Carlos.

-----Mensaje original-----
De:     [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED] En nombre de Fernando Pérez
Enviado el:     martes, 13 de diciembre de 2005 19:28
Para:   Foro 400
Asunto: Error en tratamiento de fechas

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

--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.13.13/199 - Release Date: 13/12/2005

<<Archivo: fperez.vcf>>

--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.13.13/199 - Release Date: 13/12/2005

Re: Error en tratamiento de fechas

Responder a