/* 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
