IMAGECOPY PROBLEM
the job which is making the imagecopy is shown below.I have expanded this and -- steps shows you what the parms are doing.also i am posting the unload jcl as well.
JOB TRIGERRING IMAGECOPY
//YCI106P JOB (YCI1,P),P,MSGCLASS=P,CLASS=7,REGION=0M
#SCC,COND=(0,NE,*-SDBCOPYP)
#SCC,COND=(1-3,EQ,SDBCOPYP)
#SCC,COND=(4,LT,SDBCOPYP)
//*
//PROCLIB JCLLIB ORDER=(APPL.PFIX.PROCLIB,
// APPL.PROD.PROCLIB)
//*
//SETEM INCLUDE MEMBER=PRODY (set statements for database)
//*
//INCJLIB INCLUDE MEMBER=JLIBAPP
//*
//*
//*------------------------------------------------------------------*
//* DAILY IMAGE COPY OF SVC014 (CPIA VEHICLE) DATABASE. *
//*------------------------------------------------------------------*
//STEP01 EXEC SDBCOPYP,FPFX=S&ENV.ND,DB2LOAD=&DBENV, (YCIY1061)
--STEP01 EXEC SDBCOPYP,FPFX=SPND,DB2LOAD=PROD,
// DB2SYS=&DB2,UID='YCI106IM',UTPROC='NEW/RESET',
-- DB2SYS=DB2P,UID='YCI106IM',UTPROC='NEW/RESET',
// COND=(0,NE)
//SYSIN DD DSN=&SPNPFX..DB2.&DBENV..PARMLIB(YCI106C1),DISP=SHR
--SYSIN DD DSN=SPN.DB2.PROD.PARMLIB(YCI106C1),DISP=SHR
//SDBCOPYP PROC SOUT='*',
// FPFX=SDND,
// DB2LOAD=TEST,
// DB2SYS=DB2D,
// UID=,
// UTPROC=,
// MSGLVL='MSGLEVEL(1)',
// DBNAME='DB',
// TSNAME='TS',
// SYSCOPY='DUMMY,'
//SDBCOPYP EXEC PGM=ACPMAIN,
// REGION=0M,
// PARM='&DB2SYS,&UID,&UTPROC,&MSGLVL'
-- PARM='DB2P,YCI106IM,NEW/RESET,MSGLEVEL(1)'
//STEPLIB DD DISP=SHR,DSN=SYS3.BMCDB2.PROD.LOAD
// DD DISP=SHR,DSN=DB2.&DB2LOAD..SDSNLOAD
-- DD DISP=SHR,DSN=DB2.PROD.SDSNLOAD
//SYSPRINT DD SYSOUT=&SOUT
--SYSPRINT DD SYSOUT=*
//SYSCOPY DD &SYSCOPY.DISP=(,CATLG),UNIT=CART,
//SYSCOPY DD &SYSCOPY.DISP=(,CATLG),UNIT=CART,
--SYSCOPY DD DUMMY,DISP=(,CATLG),UNIT=CART,
// DSN=&FPFX..IMAGECP.&DBNAME..&TSNAME
-- DSN=SPND.IMAGECP.DB.TS
$/SYSIN DD DSN=&SPNPFX..DB2.&DBENV..PARMLIB(YCI106C1),DISP=SHR
--SYSIN DD DSN=SPN.DB2.PROD.PARMLIB(YCI106C1),DISP=SHR
----+----1----+----2----+----3----+----4----+----5----+----6----+----7
OUTPUT LPCOPY UNIT CART STACK YES
CATLG YES
MODELDCB NMC.DSCB
VOLCNT 99
DSNAME SPND.IMAGECP.&DB.&TS(+2)
OUTPUT RPCOPY UNIT CARTE STACK YES
CATLG YES
MODELDCB NMC.DSCB
VOLCNT 99
DSNAME SPND.DR1.IMAGECP.&DB.&TS(+2)
--- END OF STEP ---
--- END OF PROC ---
--- END OF JOB ---
UNLOAD JCL
//UNLOADC JOB (BMS9,B000000,1926),'UNLOAD',NOTIFY=BED066U,REGION=0M,
// MSGCLASS=X,CLASS=T,TIME=1440,
//*
/*ROUTE XEQ NFDG
//UTIL EXEC DSNUPROC,SYSTEM=DB2P,UID='UNLOADIC',UTPROC=''
//STEPLIB DD DSN=DB2.PROD.SDSNLOAD,DISP=SHR
//*
//*
//DSNUPROC.SYSREC DD DSN=BSA808U.SVC014.SVCV16D.UNLOAD1,
// DISP=(NEW,CATLG,DELETE),UNIT=TAPE
//DSNUPROC.PUNCH DD DSN=BSA808U.SVC014.SVCV16D.CNTL,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))
//DSNUPROC.SYSPRINT DD SYSOUT=*
//DSNUPROC.SYSIN DD *
UNLOAD TABLESPACE SVC014.SVCV16D
FROMCOPY SPND.IMAGECP.SVC014.SVCV16D.G9659V00
PUNCHDDN PUNCH UNLDDN SYSREC
/*