MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Question on REXX exec

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
jyoung
Beginner


Joined: 10 Nov 2005
Posts: 36
Topics: 2
Location: Flint, MI

PostPosted: Tue May 23, 2006 8:51 am    Post subject: Question on REXX exec Reply with quote

I have a basic REXX exec that bumps through members in a PDS library so that they can be updated. It works fine with the exception that if the individual wants to jump out of the exec or go back to a previous member they cant. Is there a way to do this? Here is an example of what I have:
Code:

***************************** Top of Data ******************
/* REXX EXEC TO UPDATE THE PARAMTERS FOR GENERAL LEDGER  */
/* POSTING AND REPORTING                                 */
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE211A)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE211C)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE213A)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE214A)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE217C)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE219A)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLE223F)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRN610A)')"   
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRNA1)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRNA2)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRNA3)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRNA4)')"     
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GLRNB1)')"     


If you could point me to some examples that would be great. Thank you.
Back to top
View user's profile Send private message
Phantom
Data Mgmt Moderator
Data Mgmt Moderator


Joined: 07 Jan 2003
Posts: 1056
Topics: 91
Location: The Blue Planet

PostPosted: Wed May 24, 2006 1:30 am    Post subject: Reply with quote

jyoung,

You can probably throw a panel showing all members inside your pds (Scrollable panel). Then the user can choose which member he would like to open.

Let me know if you need more information,

Thanks,
Phantom
Back to top
View user's profile Send private message
taltyman
JCL Forum Moderator
JCL Forum Moderator


Joined: 02 Dec 2002
Posts: 310
Topics: 8
Location: Texas

PostPosted: Wed May 24, 2006 7:17 am    Post subject: Reply with quote

How about something like.
Code:

/* REXX EXEC TO UPDATE THE PARAMTERS FOR GENERAL LEDGER  */
/* POSTING AND REPORTING                                 */
"ISPEXEC EDIT DATASET('PGLHU.GLPROD.PARMLIB(GL*)')"
return
     
Back to top
View user's profile Send private message
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Wed May 24, 2006 8:04 am    Post subject: Reply with quote

The usual way to do this (if one can say there is a usual way, I suppose), is to have an edit macro that sets a variable to indicate exiting, and then have the calling exec which invoked the editor check for that variable. That can get a little more friendly if your initial exec invokes the editor with a macro that redefines the cancel or end command to invoke yet another exec that asks the user if they want to proceed, but it doesn't have to be that complicated if you don't mind your own command in the editor.
Back to top
View user's profile Send private message Visit poster's website
jyoung
Beginner


Joined: 10 Nov 2005
Posts: 36
Topics: 2
Location: Flint, MI

PostPosted: Wed May 24, 2006 11:09 am    Post subject: Reply with quote

Thank you for your answers. Phantom, yes I would like more information. Some examples or links to documetation on how I would do that. Taltyman, I will try your examle and see how that works. Semigeezer do you have an example that I can work from? Again, thank you.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group