On Wed, Aug 7, 2024 at 3:17 PM Tony Harminc <t...@harminc.net> wrote:
> The job ID is in JSABJBID (ASCBASSB -> ASSBJSAB). But I think the OP's
> question was about the *format *of the job ID, and whether there's anything
> other than parsing the beginning of it to see what kind of address space is
> running. JES2 (and presumably JES3, but I don't know it) have their own
> flags for STC and TSU, but I don't think those control blocks are shared
> between the two. And in theory anyone can write their own JES with its own
> internal conventions.
>
That was my challenge/interest. In the JES3 shop where I was working,
*everything* was "JOB#####", no "STC" or "TSU" prefix. I had the need to
determine whether an address space with an exclusive enqueue on a PROCLIB
data set was a TSO user or not. If it was a TSO user, the user was warned
via SEND command to get out of the data set, and if the user still had an
enqueue after a period of time, "bye bye, you were warned".
Ripping through ASVT to find a name matching the offending address space
allowed interrogating CHTRKID. I wrote a Rexx exec named "ASIDINFO" to
contain that logic, and accept arguments either as a command or function
for added flexibility:
/*-------------------------------------------------------------------*/
/* ASIDINFO is a automation procedure to return address space */
/* information given a job name or address space ID. */
/*-------------------------------------------------------------------*/
/* When called without a filtering option, the address space type, */
/* ID, and job name are returned: */
/* */
/* ASIDINFO TCPIP */
/* STC 003D TCPIP */
/* */
/* PARSE VALUE ASIDINFO('0001') WITH TYPE ASID JOBNAME */
/*-------------------------------------------------------------------*/
/* When called with an additional filtering option, a Boolean value */
/* is returned identifying whether the address space is of that */
/* type: */
/* */
/* ASIDINFO TCPIP STC */
/* 1 */
/* */
/* ASIDINFO 0001 TSO */
/* 0 */
/* */
/* IF ASIDINFO('RASP','STC') THEN CALL End_Of_World */
/*-------------------------------------------------------------------*/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
