Bruce, 'Search the archives for earlier posts on DF/DSS using the older SVC26 interface to retrieve CATALOG data'
I have tried various keywords but sill can not find the thread. Can you give more hints? 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
