Batch job?
At our site, the JOBNAME and JOBID are used to name temporary SYSOUT datasets, so the following code works nicely without all of the peeking around.
//JOBNAME JOB (ACCTINFO),'DUMMYJOB '
//STEP1OF1 EXEC SASMVS,SASLOG='*',SASLIST='*'
//JOBINFO DD SYSOUT=* /* DO NOT CHANGE...USED TO GET JOBID */
//SYSIN DD *
PROC SQL NOPRINT;
SELECT SCAN(XPATH,2,'.'),SCAN(XPATH,3,'.') INTO
:JOBNAME SEPARATED BY ' ',
:JOBID SEPARATED BY ' '
FROM DICTIONARY.EXTFILES
WHERE FILEREF = 'JOBINFO';
QUIT;
%PUT !&JOBNAME!&JOBID!;
Just checked...works for interactive SAS on TSO, too.
... View more