Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
release an hold job by rexx
- Thread starter ivviva
- Start date
REXX is a scripting language. It relies for most of its ability on facilities available in host environments.
So, the question is "Do I have a host environment which can release a held job?"
If you have SDSF, the answer is probably 'yes', but exactly how is less of a REXX question than an SDSF question.
It may be time to Read The Fine Manual...
Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
So, the question is "Do I have a host environment which can release a held job?"
If you have SDSF, the answer is probably 'yes', but exactly how is less of a REXX question than an SDSF question.
It may be time to Read The Fine Manual...
Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
KiwiREXXDude
Programmer
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
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
- Status
