Thank you Willy for the code, I appreciate it. -- Radoslaw Skorupka Lodz, Poland
W dniu 09.09.2024 o 14:46, Willy Jensen pisze:
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
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
