Ivviva, if you have SDSF or IOF it is possible to do anything to batch jobs via REXX, and here is an SDSF sample which should get you started;
queue "SET CONFIRM OFF"
queue "OWNER XYZ*"
queue "PREFIX *"
queue "I"
queue "++ALL"
queue "END"
"Alloc Fi(ISFIN) New Reu Unit(VIO) RecFm(F B) Lrecl(80) BlkSize(0) Space(1) Tracks"
"Alloc Fi(ISFOUT) New Reu Unit(VIO) RecFm(F B A) Lrecl(301) BlkSize(27993) Space(100) Cyl"
"Execio * DiskW ISFIN (Finis)"
PARM = "/ ++40,133"
Address 'LINKPGM' "SDSF PARM"
drop out.
"Execio * DiskR ISFOUT (Stem OUT. Finis)"
"Free Fi(ISFIN ISFOUT)"
do i = 1 to OUT.0
line = out.i
if index(line, 'SDSF INPUT QUEUE DISPLAY ALL CLASSES') >0 then do
parse var line . 'LINE' start '-' . '(' total ')' .
say 'There are a total of 'total' jobs on your input queue'
leave i
end
end
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.