Well that's what I did (IIRC), but I didn't get the ds, I think I got an "in use" msg when doing the SA.
But if You can get this to work so must I be able to do. Will maybe try it again. Regards, Thomas Berg _________________________________________ Thomas Berg Specialist A M SWEDBANK > -----Ursprungligt meddelande----- > Från: IBM Mainframe Discussion List [mailto:[email protected]] För > Miklos Szigetvari > Skickat: den 27 februari 2012 16:19 > Till: [email protected] > Ämne: Re: SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime > ? (JCL) > > 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:[email protected]] För > >> Miklos Szigetvari > >> Skickat: den 27 februari 2012 15:52 > >> Till: [email protected] > >> Ä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 [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
