Nice, simple clist, but where is the source for the QCB command (which is not a standard TSO command here, anyway)? That would probably help the OP more.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Mike Schwab Sent: Wednesday, March 13, 2013 5:29 PM To: [email protected] Subject: Re: jj$lwa - list of allocated userids *.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 > -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
