Ooops, the year and data calculation was bad, this one works. Sorry.
zz=isfcalls('ON')
isfprefix='WJR*' /* <- jobname/prefix */
isfowner =userid()
Address SDSF "ISFEXEC ST (delayed)"
if rc<>0 then exit xmsg('ST bad rc' rc)
say 'Jobname Job-id Queue Retcode ',
'Date-time-read Date-time-start Date-time-end'
do jn=1 to jname.0 /* Loop for all rows returned */
st= l8(JNAME.jn) l8(jobid.jn) left(queue.jn,9),
l8(retcode.jn,0),
fdt(dater.jn,timer.jn) fdt(datee.jn,timee.jn)
if queue.jn='PRINT' then st=st fdt(daten.jn,timen.jn)
say st
end
exit 0
l8: return left(arg(1),8)
Fdt:
trace off
arg fdty'.'fdtj .,fdtt '.' .
if fdty<>'' & fdty<>'0000' then do
fdtd=date('b',fdty'0101','s')
fdtd=date('s',fdtd+fdtj-1,'b')
fdtd=nicedate(fdtd)
end
else fdtd=copies(' ',10)
return fdtd right(fdtt,8,0)
NiceDate: return Insert('-',Insert('-',word(arg(1) date('s'),1),6),4)---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
