Bruce, Thanks a lot!!!!!!!
I must say, it's a great idea. We have lots of job runing hours to backup data sets both in production and test environment and they all use generic filter. The possible performance gain is well worth doing and I will work on it right now. The rexx requires some work cause I don't want to change the way other people use DSS. So my rexx must be able to process any data set list syntax DSS recognizes. Thanks. On Wed, Apr 30, 2008 at 2:01 PM, Bruce Hewson <[EMAIL PROTECTED]> wrote: > Hello Johnny, > > Does your backup job use generic dataset masks for the INCLUDE list? > > Search the archives for earlier posts on DF/DSS using the older SVC26 > interface to retrieve CATALOG data. > > In one case here a job took 2 hours to build the dataset list before > mounting > the first output tape. Changing the job by adding build-include-list step, > before calling ADRDSSU, which uses REXX to call the IGGCSI00 Catalog > Search > Interface and built an explicit filter list (FILTERDD), reduced that wait > time to > 2 minutes. > > If you need to ENQUEUE on the dataset, just add > > //DD001 DD DISP=SHR,DSN=dataset1 > etc > > to your backup JCL. > > On Wed, 30 Apr 2008 11:08:56 +0800, Johnny Luo > <[EMAIL PROTECTED]> wrote: > > >Hi, > > > >We encountered a problem on our production system. > > > >A job was using DSS to backup a lot of data sets (logical dump) and we > got > >ADR321E for one extended format PS data set: the data set was not on the > >supposed volume. > > > >This job will run more than 3 hours and we found out that another job > will > >delete the data set and re-create it during that time (1.5 hours after > the > >dump job starts). It might be the cause of ADR321E. > > > <snip> > >Best Regards, > >Johnny Luo > > > > > Regards > Bruce Hewson > > > //MYUSERBLD JOB (ACCT#),'BUILD FILTER LIST', > // CLASS=I, > // MSGCLASS=X, > // NOTIFY=&SYSUID > //* > //* > //BGTSO EXEC PGM=IKJEFT01,DYNAMNBR=100 > //* > //MASKLIST DD * > SA%%.CICS.%%.DFHCSD > SE%%.CICS.%%.DFHCSD > SC%%.CICS.%%.DFHCSD > /* > //SYSTSIN DD * > %BILDFILT MASKLIST > /* > //* > //FILTERDD DD DISP=(NEW,PASS), > // SPACE=(TRK,(1,1)), > // DSORG=PS,LRECL=80,RECFM=FB,BLKSIZE=0, > // DSN=&&FILTERDD > //* > //* > //SYSTSPRT DD SYSOUT=* > //SYSPRINT DD SYSOUT=* > //SYSPROC DD DISP=SHR,DSN=MYUSER.USER.CMDPROC > //* > //* > //DUMP EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' > //FILTERDD DD DISP=(OLD,DELETE), > // DSN=&&FILTERDD > //SYSPRINT DD UNIT=SYSDA,DISP=(NEW,CATLG),SPACE=(CYL,(2,1),RLSE), > // DSN=MYUSER.DFDSS.TESTRUN.SYSPRINT,DCB=DSCB, > // RECFM=VFB,LRECL=137,DSORG=PS > //BACKUP DD DSN=MYUSER.DFDSS.TESTRUN.BACKUP, > // UNIT=3390,SPACE=(CYL,(100,20),RLSE), > // DISP=(,CATLG,DELETE) > //SYSIN DD * > DUMP DATASET( - > FILTERDD(FILTERDD) - > ) - > OUTDDNAME(BACKUP) - > TOLERATE(ENQFAILURE) - > SPHERE - > CONCURRENT - > SHARE > /* > //* > // > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > -- Best Regards, Johnny Luo ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
