Re: Where is format of Job ID documented?

[Charles Mills]

Thank you, Doctor.

Charles

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Barry Merrill
Sent: Wednesday, June 15, 2016 1: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?

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN