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

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')

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


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Tuesday, October 25, 2005 1:56 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Unusual date / time stamp error when EXFMT is run

This almost sounds as if the date fields are blank, which are of course
invalid dates.  Just a quick test to see if this is the case:  eval the
fields to *loval before the exfmt.  If that works, at least you have
defined
your problem.  The solution is yours. 

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 10/25/05 15:36:02

To: RPG Group

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

 

I have a DSPF wherein the user can either enter in some information for
a

report, IE: start date, end date, class and cat of freight.  when they
hit

the enter key the program will process the data and then submit the
report

to batch.

 

The DSPF has two date fields which are defined as type L, DSTARTDATE and

DENDDATE, with a DATFMT(*USA) parameter.

 

If the user wishes to exit the program they simply strike the F12 key
which

in turn turns on *IN12 which is used to exit the program.

 

I set it up this way to allow the user to submit more than one report to

batch....it loops until the *IN12 is turned on.  However if a user
starts

the program and then decides before entering any dates to F12 out, it

generates an error when it tries to read the DSPF.....is there any way
to

avoid this problem?

 

 

 

If you bought it, it was hauled by a truck - somewhere, sometime.

 

--

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.

 

.