> 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 [email protected] with the message: INFO IBM-MAIN
