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: 669
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
No new posts REXX to get the all datasets name parasmalik20 CLIST & REXX 5 Tue Jul 18, 2017 9:10 pm
No new posts How system know which REXX to excute? jackzhang75 CLIST & REXX 14 Thu Jul 06, 2017 1:09 am
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts Convert CLIST to REXX cvnlynn CLIST & REXX 12 Tue Jun 27, 2017 2:06 am


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