Antwort: convert 8 digit date to ISO date

[martin.nageler@xxxxxxxxxxxxx]

d numeric s    8p 0 inz(20010201)
d date         s    d            dtafmt(*iso)


c    *iso move numeric        date

nb: *iso is used to format the content of the numeric field, not for the
date-field. format of date field defines the d-statement.


hth,

martin


                                                                                
                                       
                    "Ray, Adam"                                                 
                                       
                    <aray@fhp.org>           An:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>                 
                    Gesendet von:            Kopie:                             
                                       
                    owner-rpg400-l@mi        Thema:  convert 8 digit date to 
ISO date                                  
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    01.02.2001 15:56                                            
                                       
                    Bitte antworten                                             
                                       
                    an RPG400-L                                                 
                                       
                                                                                
                                       
                                                                                
                                       



This may be a silly question and I'm hoping it has a simple answer.
What is the easiest way to convert an 8 digit numeric date (defined as 8P
0)
in the format CCYYMMDD to an ISO format date field (defined as 10D)?
I need to do some date calculations using the SUBDUR command.
TIA
Adam Ray




+---
| 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
+---