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
