Re: Date conversion

[Walter_Hesius@xxxxxx]

Peter,

Try this:
Not a procedure, but you'll get the point.
 

     d Indate          s              8p 0
     d OutDate         s              8p 0
     d IsoDate         s               d
     d CharDate        s              8a
     c     *Entry        Plist
     c                   Parm                    outdate

      /free

        Indate = 20030729;
        Monitor;
         IsoDate = %Date(Indate:*ISO);
         CharDate = %Char(IsoDate:*Eur0);
         OutDate =  %Int(CharDate);

        // Any Error returns Zero

        On-error;
          OutDate = 0; 
        EndMon;

          Return;

      /end-free

Groetjes,

Walter

Walter Hesius
Senior Application developer Iseries (as/400)
Walter_Hesius@xxxxxx

MSP n.v.
Mechelsesteenweg 186
2650 Edegem
Tel : +32 (0)3 454 27 28
Fax: +32 (0)3 454 27 88
www.msp.be - info@xxxxxx

The information contained in this transmission is proprietary and 
confidential and is intented only for use of the individual or entity 
named above. If the reader of this message is not the intended recipient, 
the reader is notified that any consideration, dissemination or 
duplication of this communication is strictly prohibited.