Re: Date format in V3R2?

[rob@xxxxxxxxx]

8,0 sounds like you are working with an existing application instead,
otherwise you would be using true date fields.  If so that application
should have some guidelines as to how dates are stored.  I think BPCS has a
system control file that says dates are stored in such-and-such a format.
You'd probably be better off to look there.

Rob Berendt

==================
Remember the Cole!


                                                                                
                                       
                    "Stone, Brad V                                              
                                       
                    (TC)"                    To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>                 
                    <bvstone@taylorco        cc:                                
                                       
                    rp.com>                  Subject:     Date format in V3R2?  
                                       
                    Sent by:                                                    
                                       
                    owner-rpg400-l@mi                                           
                                       
                    drange.com                                                  
                                       
                                                                                
                                       
                                                                                
                                       
                    05/16/01 09:37 AM                                           
                                       
                    Please respond to                                           
                                       
                    RPG400-L                                                    
                                       
                                                                                
                                       
                                                                                
                                       




Is there any way to get the date format used in the job in an RPG program?

Heres my dilema.  I am logging data and always want to store the date in
YYYYMMDD format in an 8,0 field.

So, with I do a TIME operation I get the date and time.  Now, I want to do
a
test(d) on the date to see if it's *USA, *ISO, or *EUR.  I'm seeing bugs in
the way it works, though.

Does anyone have any suggestions on a good way to do this?  It has to be
compliant with V3R2.  Here's what I have that doesn't work:

     D                 DS
     D TimeStamp               1     14  0
     D  OperTime               1      6  0 INZ
     D  OperDate               7     14  0 INZ
      *
     D ISODate         S               D   DATFMT(*ISO)
     D USADate         S               D   DATFMT(*USA)
     D EURDate         S               D   DATFMT(*EUR)
      *
     C                   TIME                    TimeStamp
     C     *USA          TEST(d)                 OperDate               99
     C     *EUR          TEST(d)                 OperDate               98
     C     *ISO          TEST(d)                 OperDate               97
      *
     C                   select
     C                   when      (not *IN99)
     C                   MOVE      OperDate      USADate
     C                   MOVE      USADate       ISODate
     C                   MOVE      ISODate       MYDATE
     C                   when      (not *IN98)
     C                   MOVE      OperDate      EURDate
     C                   MOVE      EURDate       ISODate
     C                   MOVE      ISODate       MYDATE
     C                   other
     C                   MOVE      OperDate      MYDATE
     C                   endsl

Example of error is:

20010304
20010304
20010304
20011004 Looks like october 4, should be April 10th.
20011004 Looks like october 4, should be April 10th.
20011004 Looks like october 4, should be April 10th.
+---
| 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
+---