And SUBSYS helps; this is the MXG Software logic to define the TYPETASK
and extract the JESNR from the JCTJOBID and SUBSYS fields
in the job-related SMF records.
/* COPYRIGHT (C) 2002,2013 MERRILL CONSULTANTS, DALLAS, TEXAS, USA */
/* LAST UPDATED: JUN 4, 2013. CHANGE 31.106. */
/* THIS ROUTINE EXPECTS JCTJOBID AND JOB AS 8-BYTE CHARACTERS, */
/* AND SUBSYS AS A 4-BYTE CHARACTER AS INPUT. */
/* IT CREATES THE 4-BYTE CHARACTER TYPETASK AND NUMERIC JESNR */
/* VARIABLES TYPETASK AND JESNR NEED TO BE LABELED IN INVOKER. */
TYPETASK=' ';
JESNR=.;
IF SUBSYS=' ' THEN SUBSYS=' '; /*EARLY ASIDS,TMNT */
IF JCTJOBID=JOB OR (JCTJOBID LE ' ' AND SUBSYS='STC') THEN DO;
JESNR=.;
TYPETASK='STC';
END;
ELSE DO;
IF INPUT(SUBSTR(JCTJOBID,2,7),?? 7.) GT . THEN DO;
JESNR=INPUT(SUBSTR(JCTJOBID,2,7),?? 7.);
TYPETASK=SUBSTR(JCTJOBID,1,1);
END;
ELSE IF INPUT(SUBSTR(JCTJOBID,3,6),?? 6.) GT . THEN DO;
JESNR=INPUT(SUBSTR(JCTJOBID,3,6),?? 6.);
TYPETASK=SUBSTR(JCTJOBID,1,2);
END;
ELSE IF INPUT(SUBSTR(JCTJOBID,4,5),?? 5.) GT . THEN DO;
JESNR=INPUT(SUBSTR(JCTJOBID,4,5),?? 5.);
TYPETASK=SUBSTR(JCTJOBID,1,3);
END;
ELSE IF INPUT(SUBSTR(JCTJOBID,5,4),?? 4.) GT . THEN DO;
JESNR=INPUT(SUBSTR(JCTJOBID,5,4),?? 4.);
TYPETASK=SUBSTR(JCTJOBID,1,4);
END;
IF SUBSYS='TCP ' THEN TYPETASK='TCP ';
ELSE IF SUBSYS='PSF ' THEN TYPETASK='PSF ';
ELSE IF SUBSYS='VPS ' THEN TYPETASK='VPS ';
ELSE IF TYPETASK=:'J' THEN DO;
IF SUBSYS='TSO ' THEN TYPETASK='TSU ';
ELSE IF SUBSYS='JES2' THEN TYPETASK='JOB ';
ELSE IF SUBSYS='JES3' THEN TYPETASK='JOB ';
ELSE IF SUBSYS='STC ' THEN TYPETASK='STC ';
ELSE IF SUBSYS='OMVS' THEN TYPETASK='OMVS';
ELSE TYPETASK='JOB ';
END;
ELSE IF TYPETASK=:'O' OR SUBSYS='OMVS' THEN TYPETASK='OMVS';
ELSE IF TYPETASK=:'S' THEN TYPETASK='STC ';
ELSE IF TYPETASK=:'A' THEN TYPETASK=SUBSYS;
ELSE IF TYPETASK=:'T' THEN TYPETASK='TSU ';
ELSE IF TYPETASK=:'I' AND SUBSYS='STC' THEN TYPETASK='STC ';
ELSE DO;
IF SUBSYS='STC ' THEN TYPETASK='STC ';
ELSE IF SUBSYS='TSO ' THEN TYPETASK='TSU ';
ELSE IF SUBSYS='JES2' THEN TYPETASK='JOB ';
ELSE IF SUBSYS='JES3' THEN TYPETASK='JOB ';
ELSE IF SUBSYS='STC ' THEN TYPETASK='STC ';
ELSE IF SUBSYS='OMVS' THEN TYPETASK='OMVS';
ELSE DO;
IF PRODUCT=' ' THEN PRODUCT=' ';;
IF SUBTYPE=. THEN SUBTYPE=.;
IF PRODUCT='PERFMON ' AND SUBTYPE=3 THEN DO;
TYPETASK='STC';
SUBSYS='PERFMON';
END;
END;
END;
IF TYPETASK=' ' THEN DO;
BADVJESN+1;
IF BADVJESN LE 2 THEN
PUT '*** WARNING - TYPETASK NOT DECODED: ' / +10
_N_= SYSTEM= ID= SUBTYPE= JOB=
JCTJOBID= SUBSYS= TYPETASK= JESNR= ;
END;
END;
/* END OF MEMBER VGETJESN - GET JESNR AND TYPETASK FROM JCTJOBID */
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Martin Packer
Sent: Wednesday, November 19, 2014 8:38 AM
To: [email protected]
Subject: Re: What are STC, JOB and TSU?
Don't forget ASCH and OMVS. And for 7-digit Ids expect to see eg J1234567.
Cheers, Martin
Martin Packer,
zChampion, Principal Systems Investigator, Worldwide Banking Center of
Excellence, IBM
+44-7802-245-584
email: [email protected]
Twitter / Facebook IDs: MartinPacker
Blog:
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker
From: Lindy Mayfield <[email protected]>
To: [email protected]
Date: 19/11/2014 12:24
Subject: What are STC, JOB and TSU?
Sent by: IBM Mainframe Discussion List <[email protected]>
Hi group,
I'm having a bit of a problem identifying what classification those names are.
I know what started tasks and TSO users and batch jobs are, but if I were to
say:
"On MVS there are three <blank> (or three types of <blank>) which can be
derived from the JES job ID. J or JOB means batch, S or STC means started task
and T or TSU means a TSO user."
(My best guess was 'job type')
Are there more than these three? I'm simply writing some high-level
documentation, and I've already used up my quota of writing "thingy" when I
don't know what it is. MVS has a lot of thingies.
Thanks for your help.
Lindy
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number
741598.
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU
----------------------------------------------------------------------
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
