Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How can i call the rexx from different data set ?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 106
Location: windsor

PostPosted: Thu Nov 13, 2014 2:45 am    Post subject: How can i call the rexx from different data set ?
Reply with quote

Hi,

I had the rexx A and this program will call other rexx . If i want to put REXX A in the sys2.clistlib and other rexx program are in different data set (My own rexx libary). How can i make it work ?

REXX A
Code:
MYARG=userid()                         
call WHO                               
name=result                           
ADDRESS ISPEXEC                       
DO WHILE RC=0                         
"DISPLAY PANEL (PANEL)"               
 IF RC <> 8 THEN DO                   
  SELECT                               
    WHEN option='1' THEN rc=REX2CA()   
    WHEN option='2' THEN rc=REX2CRP() 
    WHEN option='3' THEN rc=REX2DIF() 
    WHEN option='4' THEN rc=REX2FAST()
    WHEN option='5' THEN rc=REX2JCLP()
    WHEN option='6' THEN rc=REX2PKZ() 
    WHEN option='7' THEN rc=REX2SS()   
    WHEN option='T' THEN rc=REX2TEST()
    WHEN option='R' THEN rc=REXRMAIN()


Thanks
Back to top
View user's profile Send private message

Paul Voyner

New User


Joined: 26 Nov 2012
Posts: 51
Location: Switz

PostPosted: Thu Nov 13, 2014 1:02 pm    Post subject: Reply to: How can i call the rexx from different data set ?
Reply with quote

Well, there are several ways. This is one of them.

Code:
mylib = 'UID.MY.EXEC'

Act:
Address "TSO"
"ALLOC FILE(SYSUEXEC)  DA('"mylib"') SHR REUSE"
"ALTLIB ACTIVATE APPLICATION (EXEC) FILE(SYSUEXEC)  "
... your code ....
Deact:
"ALTLIB DEACTIVATE APPLICATION(EXEC)"
"FREE FILE(SYSUEXEC )
Back to top
View user's profile Send private message
jackzhang75

Active User


Joined: 09 Jun 2014
Posts: 106
Location: windsor

PostPosted: Thu Nov 13, 2014 7:34 pm    Post subject:
Reply with quote

Thank you very much !

It works perfect !
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 0 Mon Jan 02, 2017 11:16 am
No new posts JES2 JEC: Use UNIX Pipes to Pass Data... Virendra Shambharkar JCL & VSAM 21 Tue Dec 20, 2016 6:55 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us