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
 

 

CUT and PASTE using REXX MACRO

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Thu Apr 19, 2012 10:23 pm    Post subject: CUT and PASTE using REXX MACRO
Reply with quote

Hi,

My requirement is to cut all the details from one PDS member and paste it in another PDS member. I have coded the below Macro. But the objective is not met. I am getting RC(4) in CUT ALL and RC(12) in PASTE ALL. Could you please let me know how this can be achieved?

Macro 1:

Code:

ADDRESS ISPEXEC                                               
        "CONTROL ERRORS RETURN"                               
        "VGET (INP1) SHARED"                                 
        "VGET (INP5) SHARED"                                 
                                                             
ADDRESS ISPEXEC "EDIT DATASET('"JCL"("MEM")') MACRO(RXCUTALL)"
                                                             
ADDRESS ISREDIT                                               
        "MACRO (RXJCLMCR)"                                   
        "PASTE ALL"                                           
        "SAVE"                                               
ADDRESS ISREDIT "END"                                         


RXCUTALL MACRO:

Code:

ADDRESS ISPEXEC                       
        "CONTROL ERRORS RETURN"       
                                     
ADDRESS ISREDIT                       
        "MACRO (RXCUTALL)"           
        "CUT ALL"                     
        "SAVE"                       
ADDRESS ISREDIT "END"                 
Back to top
View user's profile Send private message

srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Thu Apr 19, 2012 10:37 pm    Post subject:
Reply with quote

I used LMCOPY to achieve this. Thanks. Please let me know if there are any other options.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 646
Location: Pennsylvania

PostPosted: Thu Apr 19, 2012 10:44 pm    Post subject:
Reply with quote

Try:
Code:
"ISREDIT CUT .ZF .ZL"

"ISREDIT PASTE"


Instead of cut and paste, Better yet (why do I bother?):
Code:
"ISREDIT COPY'"JCL"("MEM"')' AFTER .ZF"
Back to top
View user's profile Send private message
srajendran2

New User


Joined: 13 May 2008
Posts: 43
Location: Chennai

PostPosted: Thu Apr 19, 2012 11:22 pm    Post subject:
Reply with quote

Thanks for the suggesstions Dave
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
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 REXX DB2: Dynamic allocation of DB2.D... BHAS CLIST & REXX 3 Mon Dec 19, 2016 8:26 pm
No new posts find particular member name in PDS us... ravi243 CLIST & REXX 10 Mon Dec 19, 2016 6:44 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm


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