*.CLIST(WHOHAS)
PROC 1 D
CONTROL PROMPT NOSYMLIST NOLIST NOCONLIST NOCAPS MSG NOFLUSH
/* ADDED IF THEN SET TO WORK WITH ISPF 3.4 (QUOTES) MAS 10/18/2004 */
IF &SUBSTR(1:1,&D) EQ &STR(') THEN +
SET &D = &SUBSTR(2:&LENGTH(&D)-1,&D)
QCB SYSDSN/&D
WRITE QCB SYSDSN/&D
END /* PROC */
Writes to the TSO screen.
On Wed, Mar 13, 2013 at 1:35 PM, Roy Reynolds <[email protected]> wrote:
> I have a batch REXX process that attempts to allocate a dataset exclusive.
> Before attempting this I'd like to invoke a program that creates a list of
> userids allocated to the dataset and VPUTs the list to an ISPF shared
> variable pool. Then the calling REXX exec can VGET the list and parse it to
> write the User list in an email, explaining why the exclusive allocation will
> fail. In interactive ISPF I use JJ$LWA ( I don't have RACF operator auth)
> but I need a variation of it to put the list in an ISPF variable to be used
> as I've noted above. Does anyone have something like this I can use? I'm
> not a good assembler programmer or I'd do it myself. TIA, Roy
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
