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 [email protected] with the message: INFO IBM-MAIN
