RE: Unusual date / time stamp error when EXFMT is run

Again - and maybe I'm using too much of an "ol' school" approach but to
correct the issue we need to know exactly what's happening.   

Doug,
Send the exact error message and any messages sent to the joblog. If need be
change your job and get a better log. We get that, we can fix it.....

S. Ellsberry

-----Original Message-----
From: Marvin Radding [mailto:MRadding@xxxxxxxxxxxx] 
Sent: Tuesday, October 25, 2005 6:46 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Unusual date / time stamp error when EXFMT is run

I have tried and experiment.

The following code:
D date            s               d   datfmt(*usa)
d fulldate        s               d               
C                   eval      date  = *loval      
C                   eval      fulldate = *loval   
C                                                 
C                   eval      *inlr = *on         
C                   return                        
                                                  

Results in both date fields being set to 01-01-0001.  Fulldate will display
but date will not.  The valid range for date begins with 1940-01-01.

Marvin


-----Original Message-----
From: rpg400-l-bounces+mradding=dpi-west.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+mradding=dpi-west.com@xxxxxxxxxxxx] On Behalf Of
Michael Jacobsen
Sent: Tuesday, October 25, 2005 2:36 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Unusual date / time stamp error when EXFMT is run

rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/25/2005 04:22:51 PM:

> Eval a date field to *LOVAL does not work. It has to be a valid date 
> which *loval is not.  Make it a valid date as in
> 
> D #loval    s      d     inz(d:'0001-01-01')

I haven't been following this thread, but isn't *LOVAL = '0001-01-01' ?
I
was under the impression that *LOVAL is the lowest *valid* value of whatever
the field is defined as?


Michael Jacobsen
System Programmer, IT
First Financial Bank, NA
(812)  238-6319

> 
> Unless you have defined a date format such as *USA for the display
field
> then you have to use this:
> 
> D #loval     s    d   inz(d:'1940-01-01')
> 
> Marvin
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.