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

When you F12 to exit the program (turn on *IN12) it will say invalid date / 
time stamp which would be coming from the read of the DSPF.  No they are not 
initialized to any particular value.


On Tue, 25 Oct 2005 15:43:03 -0500, Ellsberry, Steve wrote
> 1.) What error are you getting?
> 2.) Do you initialize (INZ) the fields? If so how and to what?
> 
> -----Original Message-----
> From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxx] 
> Sent: Tuesday, October 25, 2005 4:25 PM
> 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.
> -- 
> 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.


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