MVS Jan 2005.p65 - CBT Tape

interpret 'trace' tracelvl
return
/*********** @REFRESH END SAYDD 2ØØ4/Ø3/29 23:48:37 *************/
/*********** @REFRESH BEGIN JOBINFO 2ØØ2/Ø9/11 Ø1:12:59 *************/
/* JOBINFO - Get job related data from control blocks */
/*-------------------------------------------------------------------*/
/* ITEM - Optional item number desired, default is all */
/*********************************************************************/
jobinfo: module = 'JOBINFO'
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'
parse arg sparms
push trace() time('L') module 'From:' sigl 'Parms:' sparms
call modtrace 'START' sigl
arg item
/*********************************************************************/
/* Chase control blocks */
/*********************************************************************/
tcb = ptr(54Ø)
ascb = ptr(548)
tiot = ptr(tcb+12)
jscb = ptr(tcb+18Ø)
ssib = ptr(jscb+316)
asid = c2d(stg(ascb+36,2))
jobtype = stg(ssib+12,3)
jobnum = strip(stg(ssib+15,5),'L',Ø)
stepname = stg(tiot+8,8)
procstep = stg(tiot+16,8)
program = stg(jscb+36Ø,8)
jobdata = jobtype jobnum stepname procstep program asid
/*********************************************************************/
/* Return job data */
/*********************************************************************/
if item '' & (datatype(item,'W') = 1) then
do
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return word(jobdata,item)
end
else
do
pull tracelvl . module . sigl . sparms
call modtrace 'STOP' sigl
interpret 'trace' tracelvl
return jobdata
end
/*********** @REFRESH END JOBINFO 2ØØ2/Ø9/11 Ø1:12:59 *************/
/*********** @REFRESH BEGIN PTR 2ØØ2/Ø7/13 15:45:36 *************/
/* PTR - Pointer to a storage location */
/*-------------------------------------------------------------------*/
70 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.