ODP: date conversion

[marcin.sagan@xxxxxx]

Try this, I hope will help
        
 *---------------------------------------
d DateMDY         S               D   DatFmt(*MDY)             
d DateCYMD        S              7  0                          
d aDateCYMD       S              7A                            
d aDateCYMDSep    S              9A                            
                                                               
                                                               
 * Moveing example date to variable 
c     *MDY          MOVE      112200        DateMDY            

 * Converting MMDDYY to CYYMMDD (numerical)
c     *CYMD         MOVE      DateMDY       DateCYMD           

 * Converting MMDDYY to CYYMMDD (character no separators)
c     *CYMD0        MOVE      DateMDY       aDateCYMD          

 * Converting MMDDYY to CYY/MM/DD (character with separarors)
c     *CYMD         MOVE      DateMDY       aDateCYMDSe
 *---------------------------------------


   
 Marcin Sagan           

> -----Oryginalna wiadomo¶æ-----
> Od:   Lewis Libman [SMTP:LLibman@behr.com]
> Wys³ano:      27 marca 2000 22:44
> Do:   rpg400-l@midrange.com
> Temat:        date conversion
> 
> I want to convert a 6 position date (mmddyy or yymmdd) in ILE to a 7
> position date (cyymmdd).  I must have missed some reading in the manual.
> I'm at a loss for the quick and proper date conversion.  Help.
> 
> 
> 
> Lewis Libman
> llibman@behr.com
> 714 545 7101 x2118
>  
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---