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
