Hi
This is more or less a sample from the REXX SDSF book .
/* REXX
*/ .
/* trace ?i
*/ .
/* accesses sdsf ST panel, thn list the column variables
*/ .
/* This is an example taken from SDSF bookshelf
*/ .
arg jobname
ddname .
Say
'jobname:'jobname
.
Say
'ddname:'ddname
.
rc=isfcalls('ON')
.
/* access the ST panel
*/ .
/* Address SDSF "ISFEXEC ST"
*/ .
/* access the DA panel
*/ .
Address SDSF "ISFEXEC INPUT
ON" .
Say '1.
rc:'rc .
Address SDSF "ISFEXEC
DA" .
Say '2.
rc:'rc .
lrc=rc
.
if
lrc<>0
.
then
do
.
call
msgrtn .
exit
20 .
end
.
/* Loop for all running SYSLOG jobs
*/ .
do ix=1 to
JNAME.0 .
/*
.
Say
'JNAME.'ix':'JNAME.ix
.
Say
'TOKEN.'ix':'TOKEN.ix
.
*/
.
found = 1 /* if 1, then found
*/ .
if JNAME.ix <> jobname
then .
found =
0 .
if found >
0 .
then
do .
Say
'JNAME.'ix':'JNAME.ix .
Say
'STEPN.'ix':'STEPN.ix .
Say
'TOKEN.'ix':'TOKEN.ix .
/* Issue the ? (JDS) action agains the
*/ .
/* row to list the data sets in the job
*/ .
Address SDSF "ISFACT DA TOKEN('"TOKEN.ix"') PARM(NP ?)"
, .
"( prefix
jds_" .
lrc=rc
.
Say 'aha
lrc:'lrc .
if
lrc<>0 .
then
do .
call
msgrtn .
exit
20 .
end
.
/* Find the JESMSGLG data set and allocate it
*/ .
/* using the SA action character
*/ .
endindex =
jds_DDNAME.0 .
On 2/27/2012 4:03 PM, Thomas Berg wrote:
Regarding "even if the job is still running", is that true ? When I tried that
last time I couldn't get hold of the output as long as the job was running.
Exactly how do You do that ? (E g which ISF-commands etc.)
Regards,
Thomas Berg
_________________________________________
Thomas Berg Specialist A M SWEDBANK
-----Ursprungligt meddelande-----
Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För
Miklos Szigetvari
Skickat: den 27 februari 2012 15:52
Till: IBM-MAIN@bama.ua.edu
Ämne: Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ?
(JCL)
Hi
I used to say : "With the SDSF REXX interface you can process the
output in the next STEP", but lately we have tested this again, and got
some
error codes during processing the own job. (i.e "sfmsg is:JCT NOT
AVAILABLE ")
Anyhow if you submit a job to process the JES output from the previous
job, it would work, even if the job is still ruing.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
