View previous topic :: View next topic |
Author |
Message |
jyoung Beginner
Joined: 10 Nov 2005 Posts: 36 Topics: 2 Location: Flint, MI
|
Posted: Tue May 23, 2006 8:51 am Post subject: Question on REXX exec |
|
|
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 |
|
 |
Phantom Data Mgmt Moderator

Joined: 07 Jan 2003 Posts: 1056 Topics: 91 Location: The Blue Planet
|
Posted: Wed May 24, 2006 1:30 am Post subject: |
|
|
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 |
|
 |
taltyman JCL Forum Moderator

Joined: 02 Dec 2002 Posts: 310 Topics: 8 Location: Texas
|
Posted: Wed May 24, 2006 7:17 am Post subject: |
|
|
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 |
|
 |
semigeezer Supermod
Joined: 03 Jan 2003 Posts: 1014 Topics: 13 Location: Atlantis
|
Posted: Wed May 24, 2006 8:04 am Post subject: |
|
|
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 |
|
 |
jyoung Beginner
Joined: 10 Nov 2005 Posts: 36 Topics: 2 Location: Flint, MI
|
Posted: Wed May 24, 2006 11:09 am Post subject: |
|
|
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 |
|
 |
|
|