Re: *DATE type in command question

On Tue, 22 Sep 98 08:08:34 CDT, bvining@VNET.IBM.COM wrote:

>The following definition works for me:
>
>             PARM       KWD(DATE) TYPE(*DATE) DFT(*CURRENT) +
>                          SPCVAL((*CURRENT 0000001)) PROMPT('Date +
>                          to test')
>
>where the CPP defines DATE as a character 7 field interpreted as CYYMMDD.
>If *CURRENT is used, the CPP receives '0000001'; if October 13 1955,
>the CPP receives '0551013' and if October 13 2055 '1551013'.
>
>Bruce Vining

...and Pete

That's what I was looking for. It didn't occur to me to try that. Thanks!!

Loyd
--  
"You can nail me, but not to a tree."
lgoodbar@watervalley.net  ICQ#504581  http://www.tecinfo.com/~lgoodbar/
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---