View previous topic :: View next topic |
Author |
Message |
Ramkumar Beginner
Joined: 04 Apr 2005 Posts: 19 Topics: 10
|
Posted: Wed Sep 21, 2005 11:01 pm Post subject: Invoking a CLIST Program |
|
|
Hi,
How can I invoke a CLIST program using REXX exec.
Thanks in advance,
Ramkumar. |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Thu Sep 22, 2005 4:46 am Post subject: |
|
|
Ramkumar,
Try this. Lets assume that you want to invoke clist name MYCLIST
Code: |
LIB = "PDS.HAVING.CLIST"
"EXEC '"LIB"(MYCLIST)' CLIST"
EXIT
|
Hope this helps...
Cheers
Kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
Ramkumar Beginner
Joined: 04 Apr 2005 Posts: 19 Topics: 10
|
Posted: Thu Sep 22, 2005 6:14 am Post subject: |
|
|
Hi Kolusu,
Thanks a lot. If I want to pass the data while invoking the CLIST program, what can I do?
Thanks in advance,
Ramkumar. |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12376 Topics: 75 Location: San Jose
|
Posted: Thu Sep 22, 2005 7:43 am Post subject: |
|
|
Ramkumar,
Sure you can . try this
Your clist MYCLIST:
Code: |
/* MYCLIST -CLIST */
PROC 0 STRING('')
|
Code: |
/*REXX*/
LIB = "YOUR CLIST PDS"
"EXEC '"LIB"(MYCLIST)' 'STRING(''I am passing this message'')' CLIST"
..
|
Hope this helps...
Cheers
kolusu _________________ Kolusu
www.linkedin.com/in/kolusu |
|
Back to top |
|
|
|
|