RE: Passing Blank Date ?

[michael@xxxxxxxxxxxxxxxxxx]

A blank date is not valid. *LOVAL is what you see...0001-01-01. Try a
character variable if the date is *LOVAL or null.

> -------- Original Message --------
> Subject: Passing Blank Date ?
> From: "Luqman" <pearlsoft@xxxxxxxxxxxx>
> Date: Fri, January 13, 2006 6:33 am
> To: rpg400-l@xxxxxxxxxxxx
> 
> How can I pass a Blank Date Literals to a Variable in RPG ?
> 
> For example:
> 
> D myDate               S                            D        INZ
> D myDate2             S                            D        INZ
> C                                 EVAL      myDate2=myDate
> C          myDate2         DSPLY    <------------------------This line 
> displaying 0001-01-01
> 
> The above code displaying 00001-01-01, but I need this to display a Blank 
> Date with Literals   like --->     '  /  /  '
> 
> 
> Any idea please ?
> 
> Best Regards,
> 
> Luqman
> 
> 
> 
> 
> -- 
> 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.