Mark, That would be great. Either or both (website or CBT Tape) would be acceptable. I was looking into writing something like this for our DR process.
Lizette > >I have something similar I wrote for DR. Instead of dumping the >spool and restoring to a test spool back at the home shop, or writing all >the output via external writer to a single data set, we use the program >at DR. It creates a flat file for each job in the spool using "ST" as >the list of jobs to process. Then we "reverse" mirror the output disk >volume so we have all the data back at the shop. People can easily >find the jobname / job number they are looking for. > >Below is the execution JCL that shows the options. The code was trivial >and developed from a sample. > >The nice thing about it is that is even catches all the output of running >STCs at >the time I run it. In other words, we don't have to worry about shutting >everything down (including VTAM) and running this to get the joblogs from >those active STCs. > > >//* >//* EXEC REXX CLIST IN BATCH >//* >//* PARM VALUE IS THE CLIST AND ARGUMENTS TO BE EXECUTED >//* SYSEXEC DD POINTS TO THE CLIST PDS >//* >//* 1ST ARG FOR s...@dr IS THE OUTPUT VOLSER (DEFAULT IS GOHOME) >//* 2ND ARG FOR s...@dr IS THE JOBNAME PREFIX (DEFAULT IS *) >//* 3RD ARG FOR s...@dr IS THE OUTPUT DSN HLQ (DEFAULT IS SYSDR) >//* 4TH ARG FOR s...@dr IS THE SMS STORCLAS (DEFAULT IS NONE USED) >//* >//* SAMPLE OUTPUT DATA SET NAME: >//* SYSDR.DR.SYSA.SYSLOG.STC00002.Y2010.D021 >//* >//* >//S1 EXEC PGM=IRXJCL,PARM='s...@dr' >//*S1 EXEC PGM=IRXJCL,PARM='s...@dr GOHOME' >//*S1 EXEC PGM=IRXJCL,PARM='s...@dr GOHOME * MYHLQ' >//*S1 EXEC PGM=IRXJCL,PARM='s...@dr GOHOME MYJOBS*' >//*S1 EXEC PGM=IRXJCL,PARM='s...@dr GOHOME MYJOBS* MYHLQ' >//*S1 EXEC PGM=IRXJCL,PARM='s...@dr GOHOME MYJOBS* MYHLQ NONSMS' >//SYSTSIN DD DUMMY >//SYSTSPRT DD SYSOUT=* >//SYSEXEC DD DSN=SYSDR.EXEC,DISP=SHR > > >Maybe I should add this to my web site / CBT file 434. > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html