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
