🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.asm370
Article #1029

Re: Need to locate unique task ID in MVS

#1029
From: bdissen
Date: Fri, 31 Mar 1995 00:00
26 lines
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-mail
References: <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