i'd like to DISNEW a volume by batch, but i have this error :
Code: Select all
TYPE() STATUSALL(DISNEW) STATUS() UPDHLVLSCDS() ADDVOL
ACBQVAI1 SCDS('SMS.SCDS.SCDS') SG(SGXDEL) VOL(XDU001) FROM() TO() SUF()
TYPE() STATUSALL(DISNEW) STATUS() UPDHLVLSCDS() ADDVOL
ACBQVAI1 SCDS('SMS.SCDS.SCDS') SG(SGXDEL) VOL(XDU001) FROM() TO() SUF()
TYPE() STATUSALL(DISNEW) STATUS() UPDHLVLSCDS() ADDVOL
SMSZ.SCDS2.SCDS; APPLICATION(DGT6 - SG)
XDU001 already exists in the specified CDS
APPLICATION(DGT6 - SG); FUNCTION(VOLUME)
SMS.SCDS.SCDS
RETURN CODE(0008); REASON CODE(3265)
Session £ 1 -------------------------------------------------------
to do this, i used this job :
Code: Select all
//ADDVOL1 EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB'
//* TABL2=USER.ISPF.ISPTABL
//SYSUDUMP DD SYSOUT=*
//TEMPFILE DD DSN=&&VOLADDS,DISP=(NEW,KEEP),
// SPACE=(CYL,(15,15)),LRECL=300,RECFM=F,BLKSIZE=300
//SYSTSIN DD *
PROFILE PREFIX(USER)
ISPSTART CMD(ACBQBAI9) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//VOLADD DD *
UPDHLVLSCDS()
SCDSNAME('SMS.SCDS.SCDS') VOL(XDU001) SG(SGXDEL) STATUSALL(DISNEW)
//VOLALT DD *
/*
//VOLDEL DD *
/*
//ADDVOL2 EXEC ACBJBAOB,
// PLIB1='SYS1.DGTPLIB'
//* TABL2=USER.ISPF.ISPTABL
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD DSN=&&VOLADDS,DISP=(OLD,DELETE)
Thank's for your help.