Re: Command validation program

Hello Vanya,

Commands are a special form of message.  They are request messages (hence a 
program, such as QCMD, which 
processes commands is a request processor -- these sorts of programs are the 
ones that CNLRQS works on).

You should be able to retrieve the most recent *RQS message from the joblog.  
For example:

RCVMSG PGMQ(*PRV) MSGTYPE(*RQS) MSG(&CMD)
IF (%SST(&CMD 1 5) *EQ 'MYCMD') DO
   /* some stuff */
ENDDO

This will get the first new request message from the previous program queue 
which should be the one you are 
after.  You may need to loop forward, checking for the commands you are after 
but each processed request 
message should be marked old by its request processor.

I cannot test this for you at the moment but I have done this in the past so I 
know it works.  You may have to 
play with the various values for MSGTYPE and MSGKEY, 

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
 

//--- forwarded letter -------------------------------------------------------
> Date: Sun, 24 May 98 00:42:11 -0600
> From: jovic@calcna.ab.ca
> To: midrange-l@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Command validation program

>       Hi folks.
>       
>       Is there any (SIMPLE & ELEGANT) way for command validation program
> to receive a command name. In other words, I'd like to inform validation
> program about name of the command that invoked it. 
> 
>       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?
> 
>       Thanks in advance,
> Vanya

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