Re: creating a command with a return value

Gary

You might want to add *BMOD and *IMOD as well.

Just in case it matters!!

Vern

On 11/14/2013 2:46 PM, Gary Thompson wrote:

Alan and Tim, Thanks!
we just had success creating
the cmd with (*BPGM *IPGM)
and are testing now . . .

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Campin
Sent: Thursday, November 14, 2013 1:37 PM
To: Midrange Systems Technical Discussion
Subject: Re: creating a command with a return value

When you did the CRTCMD did you specify that the command can only run in a program?

ALLOW(*BPGM *IPGM *IMOD *BMOD)



On Thu, Nov 14, 2013 at 1:32 PM, Gary Thompson <gthompson@xxxxxxxxxxx>wrote:

We are stumped attempting to create a command which returns a value.

when we attempt to create the command, we get compile errors:

* CPD0281 3700 30 RTNVAL(*YES) valid only
in CL programs or REXX procedures.
* CPD0283 3700 10 Default value of null
pointer assumed.
* CPD029D 3700 20 Parameter with
KEYPARM(*YES) follows a parameter with KEYPARM(*NO).
KEYPARM(*NO) assumed.
* CPD029B 3700 20 Parameters with
KEYPARM(*YES) found but no prompt override program specified.
KEYPARM(*NO) assumed.

So, is it the case that the command definition does NOT use RTNVAL,
and RTNVAL only applies to the command processing program ?

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.