RE: Command validation program

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

On Sunday, May 24, 1998 11:38 PM, jovic@calcna.ab.ca 
[SMTP:jovic@calcna.ab.ca] wrote:
> > >   Passing command name as a parameter is not an option. So far, I
> > >tried sending messages to various system programs previously on the
> > >stack
> > >(QCMD, QUOCMD ...), but none was "willing" to return that 
information.
> > >
> > >However, sending ESCAPE message, returns command name to joblog, but
> > >than
> > >it's too late :))). Still, command name must be somewhere around. 
What
> > >am
> > >I missing?

Perhaps you could code one parameter as a CONSTANT?
PARM KWD(PARM) TYPE(*CHAR) LEN(10) CONSTANT('ABCDEFGHIJ')
and test that constant in your validation program...

hth,

Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

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