Hi Do You the reason why the default for SYSSYM is DISALLOW? //Lasse
-----Ursprungligt meddelande----- Från: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> För Lizette Koehler Skickat: den 14 oktober 2020 20:38 Till: IBM-MAIN@LISTSERV.UA.EDU Ämne: Re: INTRDR and submitted JobID I think System Symbols are only available when the JES2 Class says SYSSYM=ALLOW Otherwise I think they are not available to a batch job. They are probably available to an STC Lizette -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sri h Kolusu Sent: Wednesday, October 14, 2020 11:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: INTRDR and submitted JobID > I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract a > job's own JobID. Is there a simpler way? Gil, How about using system symbols &SYSJOBID and &SYSJOBNM ? Something like this? //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTOUT DD SYSOUT=(*,INTRDR) //SYSIN DD * OPTION COPY //* //SORTIN DD DATA,DLM=$$ //SYMSUBJ JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID, // MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID /* // EXPORT SYMLIST=* // SET SYSJOBNM=&SYSJOBNM,SYSJOBID=&SYSJOBID /* //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD *,SYMBOLS=JCLONLY JOBNAME FOR THIS JOB IS : &SYSJOBNM JOBID FOR THIS JOB IS : &SYSJOBID //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY /* $$ Thanks, Kolusu ---------------------------------------------------------------------- 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
