Re: creating a command with a return value

[CRPence <CRPbottle@xxxxxxxxx>]

  Poor REXX, the neglected stepchild ;-)  For completeness, probably 
adding *IREXX and *BREXX too? :-)

  I have always been frustrated by that error when creating commands in 
a somewhat ad hoc manner; e.g. 14=Create within PDM.  Until this moment, 
I had never given much thought to how the command-source compiler could 
be enhanced to be more usable.  Sure would be nice if the default value 
of *ALL for the "Where allowed to run (ALLOW)" parameter of the CRTCMD 
would be treated as a SEV(20) error, with the CPD0281 diagnosing 
instead, that the incompatible environments were dropped.  That is, 
/softening/ the effect, treated almost as if something like a Single 
Value *ALLALWRTN [all environments allowing RTNVAL(*YES)] both existed 
and had been specified, to indicate that *ALL special values for which 
RTNVAL(*YES) is allowed should be included; i.e. IIRC, all but 
*INTERACT, *BATCH, and *EXEC.

  I hardly expect anyone would complain about the former effect if 
changed [considering that is the most likely recovery intent; 
irrespective the recovery implemented].  But I doubt any change would 
ever come, unless implemented more like the latter, as a new single 
value for which CHGCMDDFT would be required, per dev fearing someone 
whining about the change in behavior.

Regards, Chuck

On 14-Nov-2013 15:23 -0800, Vernon Hamberg wrote:
> You might want to add *BMOD and *IMOD as well.
>
> Just in case it matters!!
>
> On 11/14/2013 2:46 PM, Gary Thompson wrote:
> > we just had success creating the cmd with (*BPGM *IPGM) and are
> > testing now . . .
> >
> > Alan Campin Thursday, November 14, 2013 1:37 PM wrote:
> > > 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 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.
> > > > <<SNIP>>
> > >