Article View: comp.lang.asm370
Article #1029Re: Need to locate unique task ID in MVS
From: bdissen
Date: Fri, 31 Mar 1995 00:00
Date: Fri, 31 Mar 1995 00:00
26 lines
1775 bytes
1775 bytes
In article <3l4iht$fqk@nova.voicenet.com>, <hanisco@omni.voicenet.com> writes: > > I don't have any mannuals in front of me at the moment, but I'm pretty > sure you can get the JES2 job number without CMS. Of course, this won't > work in a JES3 environment. > > If I remember correctly, you can pick up the JES2 job number from the JCT. > Now, there are 2 JCTs, an MVS one and a JES2 one, so be sure to pick up the > JES2 one. I don't remember the addressing flow, but it's no more than 3 > pointers off of the TCB. > > Mark > Sadly the JCT is in the JOBS private address space. However one can get the jobnumber of an executing job by using the STATUS/OUTPUT SSI call. This will give you the equivalent output as from a TSO STATUS command. I can probably hunt up the code if you need it - I wrote it for a presentation some 5-6 years ago. However this is not unique for a task. All tasks in the memory will use the same JOBID. The TTOKEN is unique.
Technical Details
Message-ID:
<NEWTNews.49.796699094.bdissen@binyamin.netvision.net.il>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<3l4iht$fqk@nova.voicenet.com>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fd4af,87427092a37afd55 X-Google-Attributes: gidfd4af,public X-Google-Thread: fcdcb,87427092a37afd55 X-Google-Attributes: gidfcdcb,public X-Google-Thread: f8131,87427092a37afd55 X-Google-Attributes: gidf8131,public From: bdissen@netvision.net.il Subject: Re: Need to locate unique task ID in MVS Date: 1995/03/31 Message-ID: <NEWTNews.49.796699094.bdissen@binyamin.netvision.net.il> X-Deja-AN: 100649574 distribution: inet references: <3l4iht$fqk@nova.voicenet.com> followup-to: comp.lang.asm370,bit.listserv.asm370,bit.listserv.ibm-main content-type: TEXT/PLAIN; charset=US-ASCII organization: NetVision USENET Site. mime-version: 1.0 newsgroups: comp.lang.asm370,bit.listserv.ibm-main,bit.listserv.asm370