Page 1 of 1

DISNEW a volume by batch

PostPosted: Tue Dec 18, 2018 6:42 pm
by samb01
Heelo,
i'd like to DISNEW a volume by batch, but i have this error :

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                      
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 :


//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.

Re: DISNEW a volume by batch

PostPosted: Tue Dec 18, 2018 8:03 pm
by enrico-sorichetti