Thanks Roberto, I can use JOBID to get this working too! – Vignesh Mainframe Infrastructure
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Roberto Halais Sent: Thursday, February 04, 2016 2:01 PM To: [email protected] Subject: Re: Obtaining current ASID in REXX /* REXX */ ascb = C2D(Storage(224,4)) assb = C2D(Storage(D2X(ascb+336),4)) jsab = C2D(Storage(D2X(assb+168),4)) jbnm = Storage(D2X(jsab+28),8) jbid = Storage(D2X(jsab+20),8) usid = Storage(D2X(jsab+44),8) Say 'JOBNAME='jbnm' JOBID='jbid' USERID='usid Maybe you can get from here. This is working code. On Thu, Feb 4, 2016 at 9:14 AM, Elardus Engelbrecht < [email protected]> wrote: > Sankaranarayanan, Vignesh wrote: > > > >I'm looking to add a REXX logic to the beginning of an ad-hoc STC. > >Runs twice in an hour. Problem is, sometimes some instances just hang > around due to an XCOM issue. > >Yes, the *real* answer is to fix the XCOM issue but I'm just handing > >one > thing at a time. > > XCOM? Hmmm, smells like a TCP/IP and/or a firewall problem. > > >So my idea of handling this is to add a starting step to the STC that > does the following in REXX: > >1. Issue D A,<jobname> > >2. Find if there are active instances, apart from itself 3. Cancel > >all active instances (sometimes, I found instances from many > days ago just hanging around doing nothing) > >4. REXX exits cleanly so that a new instance runs > > Good. Point 2+3 will not work for your attempt. > > Check Mark Zelden's website for his REXX utility which lists ALL ASIDs > currently running. Using the output will help you to locate ALL the > instances and get rid of them. > > HTH! > > Groete / Greetings > Elardus Engelbrecht > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > -- "I am as you, in you, for you. One as you in all, as all, forever. My call is your call." ---------------------------------------------------------------------- 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
