Terminates input processing matching the DLM=$$ What does the "$$" after the "/*" do?
-----Original Message----- From: Paul Gilmartin <[email protected]> To: [email protected] Sent: Wed, Oct 14, 2020 2:06 pm Subject: Re: INTRDR and submitted JobID On Wed, 14 Oct 2020 11:01:38 -0700, Sri h Kolusu wrote: >> I've used an IKJEFT TSO ISPF step or SDSF screen scraping to extract >> a job's own JobID. Is there a simpler way? > >How about using system symbols &SYSJOBID and &SYSJOBNM ? Something like >this? > Thanks. I had been looking at some old JCL, perhaps older than &SYSJOBID or SYMBOLS= where I had done: address ISPEXEC 'vget ( ZSEQ ) shared' '... JOB'ZSEQ /* (depends on prefix length.) */ (I would have used IEBGENER. "New Hammer" phenomenon.) What does the "$$" after the "/*" do? >//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 again, gil ---------------------------------------------------------------------- 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
