DISNEW a volume by batch



Help for IBM's record-oriented filesystem VSAM, ESDS, KSDS, RRDS, LDS and Storage management Subsystems

DISNEW a volume by batch

Postby samb01 » Tue Dec 18, 2018 6:42 pm

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.
samb01
 
Posts: 431
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 1 time
Been thanked: 0 time

Re: DISNEW a volume by batch

Postby enrico-sorichetti » Tue Dec 18, 2018 8:03 pm

cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 3006
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 165 times


Return to VSAM/SMS

 


  • Related topics
    Replies
    Views
    Last post