Re: CL problem

["Leif Svalgaard" <leif@xxxxxxxx>]

yes both say and myprog work separately. My problem is to use them on a CL
program. &RETURN is (surprise) a return value and no initial value is called
for.

----- Original Message -----
From: Peter Dow <pcdow@yahoo.com>

> And presumably SAY works fine if you call it from the command line with
some
> text, e.g.
>     CALL SAY 'Hello'
> which means maybe it's a length problem, or maybe it's an initialization
> problem? Does MYPROG expect &RETURN to have an initial value?
>
> ----- Original Message -----
> From: "Leif Svalgaard" <leif@leif.org>
>
>
> > MYPROG has indeed its own CMD (it has 10 other parameters which allow
> > default values).
> > No problem with MYPROG. If I call MYPROG from anyother language than CL,
I
> > do  get a valid return value.
> >
> > ----- Original Message -----
> > From: Peter Dow <pcdow@yahoo.com>

> > > 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?
> > >
> > > ----- Original Message -----
> > > From: "Leif Svalgaard" <leif@leif.org>
> > >
> > > > 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)
> > > >    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
+---