Re: CL problem

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Leif,

When you use RTNVAL(*YES), the command cannot be used interactively, because
you can't specify a variable for the return value.

The solution is to create the command so it is only allowed from within a
program, e.g.:

    CRTCMD CMD(MYPROG) PGM(MYPROGC) ALLOW(*BPGM *IPGM)

hth,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Leif Svalgaard" <leif@leif.org>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, July 09, 2001 4:34 PM
Subject: Re: CL problem


> Well, I'm not quite there yet.
> The following CMD source was submitted to compilation:
>
> CMD PROMPT('Test return')
>       PARM KWD(RETURN) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
>                    PROMPT('return value')
>
> I get the following compilation error: (severity 30)
> sev 30, RTNVAL(*YES) only valid in CL programs or REXX procedures
>
> what's going on?
> TIA
> Leif
>
> ----- Original Message -----
> From: Leif Svalgaard <leif@leif.org>
> To: <MIDRANGE-L@midrange.com>
> Sent: Monday, July 09, 2001 11:07 AM
> Subject: Re: CL problem
>
>
> > that it ! thanks Alexei. I knew there was a trick like that, but
> > it had just been too long ago I had to use it.
> >
> > ----- Original Message -----
> > From: Alexei Pytel <pytel@us.ibm.com>
> > To: <MIDRANGE-L@midrange.com>
> > Sent: Monday, July 09, 2001 10:37 AM
> > Subject: Re: CL problem
> >
> >
> > >
> > > If MYPROG is a CMD, then RESULT parameter should be declared as RTNVAL
> > > (*YES).
> > > Otherwise changes to parameter will not get to CL program.
> > >
> > >     Alexei Pytel
> > >
> > > "The better is the worst enemy of the good"
>
>
> +---
> | 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
> +---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

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