how to take backup of jobs ran in SDSF(spool) into a PDS

[seemapandian]

I would like to take a back up of all job ran on daily basis into a pds as a member(each job as a different member).I tried to do the same in REXX,but not done 100%,Hope this topic has been discussed many times in this forum, Can anyone have the rexx executable codes for my request,please reply me.Thanks in advance!

[Robert Sample]

What you are asking is part of what a scheduler (such as CA-7 or Tivoli or Zeke) does. If there is a scheduler installed at your site, there is absolutely no reason for you to replicate the effort already done in the scheduler. If there is no scheduler installed at your site, what you are wanting is not necessarily a trivial task and could require much more effort than it is worth.

[seemapandian]

Thanks for your response.I need a Rexx code to take a spool backup,i am planning to automate the manual XDC process,for example,in my project we are running upto 30 jobs per day,At the end of day we couldnt take or we forgot to take the xdc (back up for later verification)of all jobs, after few days(2 to 3 days
) spool got deleted,So avoid this,i am looking for rexx code or jcl which fecth spool information into pds as a member.

[BillyBoyo]

Put a big notice over the light-switch in the office. "Last one out, RUN THE XDC OR ELSE"

[mongan]

Why don't you just change the jobs to put the output in a dataset or a GDG? If you do that you can not forget to do an XDC!

[NicC]

Hope this topic has been discussed many times in this forum

- why hope? Why not search to see?

[enrico-sorichetti]

what a shameless waste of resources...
most probably is a workaround to bend site rules ..
keep things hanging around for longer than they should

If a backup is really needed the JES2 dump facility is more than adequate

[seemapandian]

I have tried the below code.

/*REXX */
ADDRESS TSO
"ALLOC F(ISFIN) TRACKS SPACE(1) REU"
"ALLOC F(ISFOUT) NEW DELETE REU " ,
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('F5910DM.REXX.OUT') SHR"
/* SAY "ENTER THE JOBNAME NAME " */
PARSE UPPER PULL QUEUE "PRE "
QUEUE "PRE F5910DM*"
QUEUE "ST"
/* QUEUE "FILTER JOBID EQ " JOB22664 */
/* QUEUE "FILTER OWNER EQ " F5910EK */
/* QUEUE "FILTER JOBNAME EQ " F5910REX */
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT "
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
SAY SPOOL BACKUP DONE
"EXECIO" QUEUED()" DISKW ISFIN (FINIS"
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255')"
EXIT


When i execute this REXX, I faced the below error.
IKJ56246I DATA SET F5910DM.REXX.OUT1 NOT ALLOCATED, FILE IN USE

Can anyone help me to solve this error.

[Akatsukami]

The message gives you no hint? Try running your exec with TRACE R or TRACE I and see if this doesn't offer you additional clues.