× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Good morning, Leif. 
What does SAY do ? SNDPGMMSG or something like this ? 
Could it be a program queue problem ? 
Sincerely

Domenico Finucci
Fiditalia , Milano, 02- 4301-2494


-----Messaggio originale-----
Da: Leif Svalgaard [mailto:leif@leif.org]
Inviato: sabato 7 luglio 2001 02.58
A: MIDRANGE-L@midrange.com
Oggetto: Re: CL problem


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


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.