One addition for the archives for this thread: SMF 6 records written by PRINTWAY/INFOPRINT BASIC Mode contain JCTJOBID='PSnnnnnn'.
(which could be confused with type 6 records written by PSF, which contain PSFnnnnn). Barry Merrilly yours, Herbert W. Barry Merrill, PhD President-Programmer Merrill Consultants MXG Software 10717 Cromwell Drive technical questions: supp...@mxg.com Dallas, TX 75229 http://www.mxg.com admin questions: ad...@mxg.com tel: 214 351 1966 fax: 214 350 3694 -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Barry Merrill Sent: Wednesday, June 15, 2016 3:44 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where is format of Job ID documented? NO, but MXG has discovered these possibilities: /* THIS ROUTINE EXPECTS JCTJOBID AND JOB AS 8-BYTE CHARACTERS, */ /* AND SUBSYS AS A 4-BYTE CHARACTER AS INPUT. */ /* JCTJOBID OF ONE LETTER AND 7 DIGITS EXIST, BUT THE MAXIMUM */ /* JESNR IS 999999 BECAUSE THE 1ST WHEN SEVEN IS ALWAYS ZERO. */ /* IT CREATES THE 4-BYTE CHARACTER TYPETASK AND NUMERIC JESNR */ /* IT IS %INCLUDE-D AFTER JCTJOBID AND SUBSYS EXIST. */ TYPETASK=' '; JESNR=.; IF SUBSYS=' ' THEN SUBSYS=' '; /*EARLY ASIDS,TMNT */ IF JCTJOBID=JOB OR (JCTJOBID LE ' ' AND SUBSYS='STC') OR (JCTJOBID EQ 'MSTR' AND SUBSYS='SMS') 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=:'G' THEN TYPETASK='JOBG'; ELSE IF TYPETASK=:'S' THEN TYPETASK='STC '; ELSE IF TYPETASK=:'A' THEN TYPETASK=SUBSYS;/*ASCH-OR-OMVS:CH16.150*/ 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; &MACJESN; 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 Charles Mills Sent: Wednesday, June 15, 2016 3:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Where is format of Job ID documented? Yeah, I know, JOBnnnnn or Tnnnnnnn. Is there a formal description somewhere? Where? Charles ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
