|
midrange.com
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"
"Leif Svalgaard"
<leif@leif.org> To: <MIDRANGE-L@midrange.com>
Sent by: cc:
owner-midrange-l@mi Subject: Re: CL problem
drange.com
07/06/2001 06:48 PM
Please respond to
MIDRANGE-L
argh, in my example I did use CALL MYPROG. In the real
world there is no call, because MYPROG is a CMD.
----- Original Message -----
From: Peter Dow <pcdow@yahoo.com>
To: <MIDRANGE-L@midrange.com>
Sent: Friday, July 06, 2001 6:34 PM
Subject: Re: CL problem
> Hi Leif,
>
> Sounds like a problem with MYPROG. BTW, it's
>
> CALL MYPROG PARM(&RETURN)
>
> unless you've made your own CALL command.
>
> Have you tried debugging it to make sure you're getting something back
from
> MYPROG?
>
> Regards,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
>
> ----- Original Message -----
> From: "Leif Svalgaard" <leif@leif.org>
> To: "List Midrange" <MIDRANGE-L@midrange.com>
> Sent: Friday, July 06, 2001 3:22 PM
> Subject: CL problem
>
>
> > It has been a while, but why doesn't this work? (it always returns a
> message
> > of blanks)
> >
> > PGM
> > DCL VAR(&RETURN) TYPE(*CHAR) LEN(10)
> > CALL MYPROG RESULT(&RETURN)
> > CALL SAY PARM(&RETURN)
> > ENDPGM
> >
> > MYPROG stuffs something in its parameter
> > SAY send a message with text given by its parameter
> >
> >
> >
> > +---
> > | 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
> +---
+---
| 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
+---
+---
| 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
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
