Thanks Lucas, this looks like NetView REXX (?). I have this part ready and waiting for the ASID-identifying bit :) I can now make it work with Roberto's snippet to get the JOBID.
– Vignesh Mainframe Infrastructure -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lucas Rosalen Sent: Thursday, February 04, 2016 2:04 PM To: [email protected] Subject: Re: Obtaining current ASID in REXX Maybe you could try this REXX with some adjustments: trace Off 'pipe MVS D A,CIC*', '! corrwait 5', '! sep', '! loc /A=/', '! stem result.' if result.0 > 0 then do i = 1 to result.0 say 'task:' word(result.i,1) 'asid:' word(result.i,6) => this "6" might change end return With small enhancements, this would let you get the "MVS C taskname,A=xxxx" command issued ------------------------------------------------------------------------------------------------------------------------------- *Lucas Rosalen* Emails: [email protected] / *[email protected] <[email protected]>* LinkedIn: http://br.linkedin.com/in/lrosalen Phone: +48 792 809 198 2016-02-04 14:55 GMT+01:00 Elardus Engelbrecht < [email protected]>: > Sankaranarayanan, Vignesh wrote: > > >Yup, I have a copy of Mark's program available. Was hoping to find a > simpler/shorter block of code that would work :) > > ;-D > > >2+3 won't work... why? > > Simply, because you initially said in your first post, if your program > is running in batch, it should shows the ASID of itself. Same for your > TSO session, it should says same for the TSO session. > > This will not work because you said ('Find if there are active > instances, apart from itself ') later you want all instances to get > rid of. Thus you need something to check all running ASIDs and then get rid > of them. > > >The XCOM bit works 99% of the time, there are just some times that it > doesn't work. The next run that happens within half an hour goes OK, > in most cases. > > If that is repeatable, you should check with the sysprogs and vendor. > They can't make their problem yours... > > Groete / Greetings > Elardus Engelbrecht > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN MARKSANDSPENCER.COM ________________________________ Unless otherwise stated above: Marks and Spencer plc Registered Office: Waterside House 35 North Wharf Road London W2 1NW Registered No. 214436 in England and Wales. Telephone (020) 7935 4422 Facsimile (020) 7487 2670 www.marksandspencer.com Please note that electronic mail may be monitored. This e-mail is confidential. If you received it by mistake, please let us know and then delete it from your system; you should not copy, disclose, or distribute its contents to anyone nor act in reliance on this e-mail, as this is prohibited and may be unlawful. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
