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:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Martin Packer Sent: Wednesday, November 19, 2014 8:38 AM To: IBM-MAIN@LISTSERV.UA.EDU 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: martin_pac...@uk.ibm.com Twitter / Facebook IDs: MartinPacker Blog: https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker From: Lindy Mayfield <lindy.mayfi...@sas.com> To: IBM-MAIN@LISTSERV.UA.EDU Date: 19/11/2014 12:24 Subject: What are STC, JOB and TSU? Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> 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 lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN