Good Day
I am performing of a selective backup of various volumes for certain high
level qualifiers. My problem is that the job puts out a cond code 0008
(ADR321E)
because either the "No data set names found" or "Not on volume...."
Can I force a return code of 0004? If not, can I bypass these empty files?
Below are the error messages and my input cards:
0ADR321E (001)-ADDXT(01), DATA SET DMTD.BAS.IMPCNTR.FLBASONA.G0147V00
0ADR321E (001)-ADDXT(01), DATA SET DMTD.LOS.IMPCNTR.FLBGLONA.G0147V00
0ADR321E (001)-ADDXT(01), DATA SET DMTD.PAS.IMPCNTR.FLBSMONA.G0147V00
0ADR321E (001)-ADDXT(01), DATA SET DMTD.NAS.IMPCNTR.FLPMEANG.G0233V00
ADR321E (001)-ADDXT(01), DATA SET DMTD.DAS.IMPCNTR.PRQCANG.G0658V00 NOT ON
VOLUME TDD904
ADR321E (001)-ADDXT(01), DATA SET DMTD.CAF.IMPCNTR.PRONANG.G0658V00 NOT ON
VOLUME TDD904
ADR321E (001)-ADDXT(01), DATA SET DMTD.CAD.IMPCNTR.ACONANG.G0802V00 NOT ON
VOLUME TDD907
//STEP1 EXEC PGM=ADRDSSU,REGION=4096K,TIME=1440
//SYSPRINT DD DSN=ZROD.BKUP.GLE.BKUP1.LIST(+1),
// DISP=(,CATLG,DELETE),UNIT=SYSALLDA,
// DCB=(PROD.MODLDSCB,RECFM=FBA,LRECL=121,BLKSIZE=32670,DSORG=PS),
// SPACE=(TRK,(30,15),RLSE)
//SYSUDUMP DD SYSOUT=*
//VO1 DD UNIT=SYSALLDA,VOL=SER=TDD919,DISP=SHR
//VO2 DD UNIT=SYSALLDA,VOL=SER=TDDCD1,DISP=SHR
//VO3 DD UNIT=SYSALLDA,VOL=SER=TDD901,DISP=SHR
//VO4 DD UNIT=SYSALLDA,VOL=SER=TDD902,DISP=SHR
//VO5 DD UNIT=SYSALLDA,VOL=SER=TDD903,DISP=SHR
MORE VOLUME DD STATEMENTS
//V24 DD UNIT=SYSALLDA,VOL=SER=D38P03,DISP=SHR
//V25 DD UNIT=SYSALLDA,VOL=SER=D38P04,DISP=SHR
//V26 DD UNIT=SYSALLDA,VOL=SER=D38P06,DISP=SHR
//V27 DD UNIT=SYSALLDA,VOL=SER=TDMTL2,DISP=SHR
//V28 DD UNIT=SYSALLDA,VOL=SER=TDMTL1,DISP=SHR
//TAPE DD DSN=ZROD.BKPUB.DFDSS.INCRE(+1),DCB=PROD.MODLDSCB,
// DISP=(,CATLG,DELETE),
// UNIT=(CART),VOL=(,,,99),TRTCH=COMP
//SYSIN DD *
DUMP DATASET(INCLUDE(POMTL*.** -
WEDU*.** -
VIE*.** -
PROV*.** -
TDMTL*.** -
WIGS*.** -
WIST*.** -
WMVS*.** -
WMBM*.**) -
BY((DSCHA,EQ,YES))) -
LOGINDDNAME(VO1,VO2,VO3,VO4,VO5,VO6,VO7,VO8,VO9,V10,V11,V12,V13,V14, -
V15,V16,V17,V18,V19,V20,V21,V22,V23,V24,V25,V26,V27,V28) -
OUTDD(TAPE) OPT(4) ALLDATA(*) ALLEXCP -
SPHERE -
SELECTMULTI(FIRST) -
TOL(ENQF)
Send instant messages to your online friends http://au.messenger.yahoo.com
----------------------------------------------------------------------
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
