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



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

Postby seemapandian » Fri Oct 21, 2011 3:25 pm

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!
seemapandian
 
Posts: 3
Joined: Fri Oct 21, 2011 3:17 pm
Has thanked: 0 time
Been thanked: 0 time

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

 

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

Postby Robert Sample » Fri Oct 21, 2011 4:01 pm

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.
Robert Sample
Global moderator
 
Posts: 3652
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 269 times

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

Postby seemapandian » Fri Oct 21, 2011 4:43 pm

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.
seemapandian
 
Posts: 3
Joined: Fri Oct 21, 2011 3:17 pm
Has thanked: 0 time
Been thanked: 0 time

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

Postby BillyBoyo » Fri Oct 21, 2011 5:10 pm

Put a big notice over the light-switch in the office. "Last one out, RUN THE XDC OR ELSE"
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

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

Postby mongan » Fri Oct 21, 2011 6:11 pm

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!
User avatar
mongan
 
Posts: 211
Joined: Tue Jan 11, 2011 8:32 pm
Has thanked: 1 time
Been thanked: 5 times

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

Postby NicC » Fri Oct 21, 2011 9:40 pm

Hope this topic has been discussed many times in this forum
- why hope? Why not search to see?
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3004
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

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

Postby enrico-sorichetti » Fri Oct 21, 2011 10:48 pm

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
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2927
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 154 times

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

Postby seemapandian » Mon Oct 24, 2011 10:10 am

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.
seemapandian
 
Posts: 3
Joined: Fri Oct 21, 2011 3:17 pm
Has thanked: 0 time
Been thanked: 0 time

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

Postby Akatsukami » Mon Oct 24, 2011 6:58 pm

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.
"You have sat too long for any good you have been doing lately ... Depart, I say; and let us have done with you. In the name of God, go!" -- what I say to a junior programmer at least once a day
User avatar
Akatsukami
Global moderator
 
Posts: 1058
Joined: Sat Oct 16, 2010 2:31 am
Location: Bloomington, IL
Has thanked: 6 times
Been thanked: 51 times


Return to FAQ