Answer Posted / ed
Use the new JES/SDSF interface:
/* REXX */
IsfRC = isfcalls( "ON" )
if IsfRC <> 0
then do
say "RC" IsfRC "returned from isfcalls( ON )"
exit IsfRC
end
isfprefix = '*'
isfowner = 'BCA0I53'
isfcols = 'jobid tgnum tgpct pname'
isfsort = 'tgnum d'
address SDSF "ISFEXEC ST (ALTERNATE DELAYED"
say rc isfmsg
say isfmsg2.0
say isfmsg2.1
say isfmsg2.2
say isfmsg2.3
say isfmsg2.4
say isfmsg2.5
say isfrows 'rows returned from SDSF STATUS'
SAY isfcols
do i = 1 to 10
say i '-' jname.i'/'jobid.i tgnum.i tgpct.i pname.i
end
IsfRC = isfcalls( "OFF" )
exit
| Is This Answer Correct ? | 5 Yes | 0 No |
Post New Answer View All Answers
how to access data held on the jes spool?
what if I need to have the same application running on multiple platforms, such as unix and the mainframe? Does that mean I have to maintain two separate sources?
does uni-rexx give me any capabilities designed specifically for the unix environment?
how to pass parms to ispf edit macro?
Can I combine uni-REXX with a compiled language in my application? What application programming interfaces are available? For example, can I share variables between uni-REXX and a compiled language?
If I have limited experience with Rexx or it's been a long time since I've used it, what kind of help is available to get me started?
how long does the install of oorexx take?
is oorexx compatible with ibm object rexx?
what is uni-rexx?
What is the difference between ooRexx and IBM's Object REXX for Windows?
is oorexx compatible with rexx?
Enlist the features of rexx as a programming language.
Is it possible to port existing applications from the mainframe or os/2? Are there major changes required to do this?
why is there no os/2 (ecs) port of oorexx?
can oorexx run normal rexx programs?