Re: CL problem

[thomas@xxxxxxxxxxx]

Leif:

Looks like it's been a LONG time for you since creating prototypes... er,... I 
mean, command definitions in CL.

On Mon, 09 July 2001, "Leif Svalgaard" wrote:

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

I suspect you're missing something like restricting to ALLOW(*BPGM *IPGM) on 
the CRTCMD command.

Tom Liotta


-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788
Fax  253-872-7904
http://www.400Security.com


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/




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