I strongly recommend that you use the SDSF/REXX API. Use the following as a model. The actual fields to use are described in the SDSF Users guide.
isfsysname='**' isfowner='' isfprefix='' call isfcalls 'ON' call syscalls 'ON' do 2 /* forever */ address SDSF "ISFEXEC DA" if rc<>0 then exit msgrtn do n=1 to jname.0 rec.n=left(jname.n,8), left(jtype.n,8), left(jobid.n,8), left(ownerid.n,8) end /*"execio" jname.0 "diskw output (stem rec.)" */ do n=1 to jname.0;say rec.n;end address syscall 'sleep 5' end return 0 msgrtn: if isfmsg<>"" then Say "isfmsg is:" isfmsg do ix=1 to isfmsg2.0 Say "isfmsg2."ix "is:" isfmsg2.ix end return 0 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN