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: 662
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. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm


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