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: 47
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: 47
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: 710
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: 47
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. GDG gen check using REXX raghuraman123 CLIST & REXX 6 Wed Apr 18, 2018 9:18 pm
No new posts How to control Panel Attributes throu... rsshanmugam CLIST & REXX 3 Mon Feb 26, 2018 9:51 pm
No new posts Find a string in PS file opened in br... mukkas CLIST & REXX 3 Sat Feb 24, 2018 2:15 pm
This topic is locked: you cannot edit posts or make replies. how to get Job information from IOF u... rsshanmugam CLIST & REXX 13 Mon Feb 05, 2018 4:22 pm
No new posts attchmvs from rexx subroutine that re... harisukumaran CLIST & REXX 1 Fri Jan 19, 2018 5:29 am

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