MVSFORUMS.com

Maximus · Beginner Joined: 17 Nov 2005 Posts: 21 Topics: 11

Hello,
I need to call external rexx program/external rexx routine from a rexx program. External routine is defined by dyanamically populating the variable in the calling routine. For eg

DSN = 'abcdef.abc.PS5106.UBE.U.A11208.B122'

PGM_NAME = SUBSTR(DSN,12,6)

STARTER_WFL = PGM_NAME || 'SW'

DSN = "'"DSN"'"

"CALL "STARTER_WFL" "DSN""

EXIT

While Executing this code I am getting this as message
DATA SET PS5106SW.LOAD NOT IN CATALOG OR CATALOG CAN NOT BE ACCESSED
MISSING DATA SET NAME+
MISSING DSNAME (MEMBER NAME)

But If we are hard coding the external calling routine, it is executing fine.
for say CALL PS5106SW DSN

Please suggest me that how to call dynamically.

Thanks

Maximus

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Will it work better if you code:

cmd = "%"STARTER_WFL" "DSN
cmd
EXIT

semigeezer · Posted: Wed Jan 30, 2008 11:12 am Post subject:

the TSO command CALL requires the full data set name as in:

superk · Advanced Joined: 19 Dec 2002 Posts: 684 Topics: 5

Maybe I'm misunderstanding the O/T. I'm under the impression that "PS5106SW" is another REXX exec or CLIST.

semigeezer · Posted: Wed Jan 30, 2008 2:30 pm Post subject:

I assumed that because CALL is in quotes, it is the CALL command which only calls load modules. For Rexx and CLIST it would be EXEC and for Rexx functions, even if they are implemented as load modules, it would be the built in rexx Call statement without quotes or an implicit call, eg PS5106SW()
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.

flatearther · Posted: Thu Jan 31, 2008 3:37 pm Post subject:

I may be missing the point, but I have a rexx "driver" that dynamically calls other rexx execs by doing the following :

(populate the runExec variable with the name of the rexx exec you want to run)

Interpret "Call " runExec

flatearther · Posted: Thu Jan 31, 2008 4:02 pm Post subject:

So instead of your line "CALL "STARTER_WFL" "DSN"" ...

... you would code :

Interpret "Call "STARTER_WFL "DSN"

I haven't tried passing a parameter but I think that will work.

Mickeyd · Beginner Joined: 02 Jan 2003 Posts: 27 Topics: 0

DSN = 'abcdef.abc.PS5106.UBE.U.A11208.B122'
PGM = SUBSTR(DSN,12,06)||'SW'

PGM "'"DSN"'"

EXIT 0

Terry_Heinze · Posted: Fri Feb 01, 2008 9:44 pm Post subject:

It's difficult to see the difference between single and double quotes in:
PGM "'"DSN"'"
so please use BBCode as in:

moyeenkhan · Beginner Joined: 04 Dec 2002 Posts: 64 Topics: 21

You can call an external routine in two way:-
1. Call MyExternalRoutine Parameters
2. xInfo=MyExternalRoutine(Parameters)

Your External Routine should have ARG paramter to accept Parameters that you pass.
You should pass back the results thru EXIT.

Ex:
MyResult:
/* EXternal Routine */
Arg I J K
OutCome= I * J * K
Exit OutCome

My Program
..................
..................
I=61
J=3
K=4
Call OutCOme I J K
MyResult=Rc

Or
MyResult=OutCome(I J K)

Hope this gives you enough to proceed