Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 683
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
No new posts exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us