*DATE type in command question

[bvining@xxxxxxxxxxxx]

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

>
>I have a command with a parameter type *DATE. I want to give it a default
>value of *CURRENT or *TODAY or whatever. I can't because the compiler says
>default values or special values (tried both) were not valid. Am I stuck? On
>the built-in job scheduler, special values are allowed for dates. Or did IBM
>do something weird?
>

+---
| 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
+---