|
|
| Author |
Message |
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 7997
Location: 221 B Baker St
|
|
|
|
Hello,
| Quote: |
| Try ISPF option 11 - the 'ISPF workplace'. |
Might this be some add-on product? |
|
| Back to top |
|
 |
References
|
 Posted: Tue Jun 17, 2008 3:14 am Post subject: Re: |
|
|
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 399
Location: work
|
|
|
|
Surprise! You thought you knew everything about ISPF and then you find there is a whole other option! It has been there for several releases.
The ISPF Workplace is documented in ISPF User's Guide, vol 2.
If your ISPF panel does not have it, try ISPFWORK in the command line or make your own:
| Code: |
/*rexx */
Addres ISPEXEC "SELECT PGM(ISRUDA) PARM(ISRWORK) SCRNAME(WORK)" |
|
|
| Back to top |
|
|
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 7997
Location: 221 B Baker St
|
|
|
|
Hello Pedro,
| Quote: |
| You thought you knew everything about ISPF |
Not really, i use it fairly often, but am no expert.
| Quote: |
| and then you find there is a whole other option! |
Seems like our system support people left it off the menu. ISPFWORK brings it up, though.
Something new to look into, thanks 
d |
|
| Back to top |
|
|
genesis786
Active User
Joined: 28 Sep 2005
Posts: 85
Location: London
|
|
|
|
hi Pedro.. sorry, continuing in the old topic...
is there a way we can invoke a macro after MEMLIST, e.g. to sort the list with userid... etc... |
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 399
Location: work
|
|
|
|
Not really a macro, but with some trickery, you can issue one sort command.
Novices, please avert your eyes.
1. rexx program. Notice the 'mysort' variable. and the use of CONTROL service, and also the use of a customized panel.
| Code: |
/*REXX*/
DSN = 'PEDRO.JCL.CNTL'
Mem = 'ADR*'
Address ISPEXEC
"LMINIT DATAID(DID) DATASET('"DSN"') ENQ(SHRW)"
"LMOPEN DATAID("did")"
mysort = 'SORT CREATED'
"CONTROL NONDISPL ENTER"
"MEMLIST DATAID("did") CONFIRM(YES) MEMBER("Mem") PANEL(PSVUDSM)"
"LMFREE DATAID("did")" |
2. a customized panel, based on ISRUDSM panel of ISPF.
add as first part of )init section, set the zcmd variable:
| Code: |
)INIT
IF (&MYSORT NE &Z)
&ZCMD = &MYSORT |
and add as last line of )PROC, blank out the variable
So this is what happens:
* member list is displayed (not really) with your sort command at top
* because of previous CONTROL NONDISPL ENTER command, the sort is processed before you see the member list.
* when you finally see the list, your sort command has been processed. |
|
| Back to top |
|
|
genesis786
Active User
Joined: 28 Sep 2005
Posts: 85
Location: London
|
|
|
|
| great! thanks.. |
|
| Back to top |
|
|
|
|
