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
 

 

Rexx ISREDIT macro waiting for PF3 key to execute

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

New User


Joined: 17 Jun 2012
Posts: 20
Location: INDIA

PostPosted: Sat Aug 04, 2012 1:41 pm    Post subject: Rexx ISREDIT macro waiting for PF3 key to execute
Reply with quote

Hi,

I'm trying to execute edit macro on all members in a PDS

BELOW IS THEREXX CODE IN CSTEP2



Code:
/*    REXX */                                 
PULL INPUT                           
X=OUTTRAP('ML.')                               
"LISTDS "INPUT" MEMBERS"                       
X=OUTTRAP('OFF')                               
DO N=7  TO ML.0                               
   PARSE VAR ML.N MEMBER                       
   MEMBER=STRIP(MEMBER)                       
   ADDRESS TSO                                 
   CPSR = ''INPUT'('MEMBER')'                 
   "ALLOC DDN(SRM) DSN('"CPSR"') SHR"         
   RC1 = RC                                   
   ADDRESS ISPEXEC                             
   "EDIT DATASET('"CPSR"') MACRO(CMAC)"     
ADDRESS TSO                             
   "FREE FI(SRM)"                           
END


tHE CMAC is as below

Code:
/*    REXX   */                               

ADDRESS ISPEXEC                                 
"ISREDIT MACRO"                               
"ISREDIT "C ALL ',NOTIFY=&SYSUID' ''" "       
"ISREDIT "C ALL 'NOTIFY=&SYSUID,' ''" "       
"ISREDIT "C ALL 'DT1G,' 'DP1G'" "             
"ISREDIT "C ALL 'REGION=99M,' 'REGION=99M'" "   
ADDRESS ISREDIT "END"         


The macro is running perfectly on a single member but i have to press PF3 key to make it execute on rest of members.

Suppose if i have 200 members and if i need to execute this macro on that i need to press PF3 key 200 times . icon_sad.gif

Is there a way to escape pressing PF3 key ?

Coded - Anuj
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sat Aug 04, 2012 3:08 pm    Post subject:
Reply with quote

Please learn to use BBcode Tags, I 've edited your post to add them. For your query, have a look at this earlier thread:

http://ibmmainframes.com/about9012.html
Back to top
View user's profile Send private message
southee

New User


Joined: 17 Jun 2012
Posts: 20
Location: INDIA

PostPosted: Sat Aug 04, 2012 4:05 pm    Post subject:
Reply with quote

Anuj Dhawan wrote:
Please learn to use BBcode Tags, I 've edited your post to add them. For your query, have a look at this earlier thread:

http://ibmmainframes.com/about9012.html


Hi Anuj,

The earlier post says to use "ADDRESS ISREDIT 'END'" at the end of macro.

I used the same one with no luck.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10211
Location: italy

PostPosted: Sat Aug 04, 2012 4:10 pm    Post subject: Reply to: Rexx ISREDIT macro waiting for PF3 key to execute
Reply with quote

see here
http://ibmmainframes.com/viewtopic.php?t=25947&highlight=
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2025
Location: Silicon Valley

PostPosted: Mon Aug 06, 2012 7:41 pm    Post subject: Reply to: Rexx ISREDIT macro waiting for PF3 key to execute
Reply with quote

Show us the trace.

What is on the screen when you have to press PF3?

Perhaps add a SAVE also.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2025
Location: Silicon Valley

PostPosted: Mon Aug 06, 2012 9:26 pm    Post subject: Reply to: Rexx ISREDIT macro waiting for PF3 key to execute
Reply with quote

Not the source of your problem, but...

1. You do not need ALLOCATE and FREE commands... they are not used for
anything and they are sort of expensive.

2. I question the use of single quotes as dataset name delimiters. Not used in LISTDS command; Are used in Allocate command; Are used in EDIT statement; not sure in CPSR assignment. I am not sure it will work correctly when PROFILE PREFIX is used.

3. you should probably check the third line of the LISTDS response to make sure that DSORG=PO.
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