Re: creating a command that returns a value

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Tim

Very cool!

Now, if you have more than one parameter that can be returned, be sure 
to put a test in for whether the parameter was actually set. Otherwise 
you have to include ALL the returned parameters, and this is not how 
IBM's RTV* commands work. There was a recent discussion on this - I tend 
to put in a MONMSG MCH3601 at the first touch of the parameter in 
question. If I get that message, I skip the processing.

Search for that message description in the archives - there was a 
suggestion to use an API to check the parameter, but someone mentioned 
problems with that approach.

HTH
Vern

tim wrote:
> Thanks all...working great!!!
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx
> Sent: Tuesday, October 27, 2009 1:08 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: creating a command that returns a value
>
> PARM       KWD(RTNMBR) TYPE(*CHAR) LEN(10) RTNVAL(*YES)
>
> be aware that any command that returns a value can't be run interactively 
> and you'll have to specify that when you compile the command.
>
>
> Thanks,
> Tommy Holden
>
>
>
> From:   "tim" <tim2006@xxxxxxxxxxx>
> To:     <midrange-l@xxxxxxxxxxxx>
> Date:   10/27/2009 11:59 AM
> Subject:        creating a command that returns a value
> Sent by:        midrange-l-bounces@xxxxxxxxxxxx
>
>
>
> Can someone show me how to return a value from a home grown command. 
>
>  
>
> Here is the command I crearted:
>
>  
>
> Spool File Name  . . . . . . . .                 Name
>
>
> Job  . . . . . . . . . . . . . .   *             Name, *
>
>
> User . . . . . . . . . . . . . .                 Character value
>
>
> Job Nbr  . . . . . . . . . . . .                 000000-999999
>
>
> Spool Nbr  . . . . . . . . . . .   *LAST         1-999999, *ONLY, *LAST
>
>
> Return member... 
>
>  
>
> I will be using the command as follows:
>
> SAVSPL2PF SPLF(QSYSPRT) rtnmbr(&mbr)
>
>  
>
>  
>
> I would like the command to process and return a value in the &mbr parm. 
> Is
> this possible?
>
>  
>
>