release an hold job by rexx

[ivviva]

Hi,
I have a job helded in SDSF and I want to release it by rexx. Is it possible?
Thank you.
Ivana

 

[rexxhead]

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

 

[KiwiREXXDude]

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