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
 
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: 10375
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: 2088
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: 2088
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
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 12 Sun Nov 19, 2017 7:59 pm

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