Re: CL problem

["Leif Svalgaard" <leif@xxxxxxxx>]

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