/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                          REXX Exec : DC                           */         
/*                                                                   */         
/*  Description :  Allows DC to be typed on 3.4 panels for Delete    */         
/*                                                                   */         
/*  Created on : 9 May 2016                                          */         
/*  Created by : Kevin Ferguson                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.PROD.REXX(DC)                        */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :  IDCAMS DELETE CLUSTER                                   */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
parse upper arg dsn                                                             
dsn = strip(dsn,b,"'")                                                          
kf  = outtrap('on')                                                             
DSN_STATUS = LISTDSI(''''dsname'''' smsinfo)                                    
kf  = outtrap('off')                                                            
if sysdsorg = "VS" then do                                                      
   "DELETE '"dsn"' CLUSTER"                                                     
   if rc  = 0 then do                                                           
      ZEDSMSG = 'DC Successful'                                                 
      ZEDLMSG = dsn 'deleted'                                                   
      ZDLMSG = 'DC Successful'                                                  
      ZDLREF = 'Y'                                                              
      Address ISPEXEC "VPUT (ZDLMSG ZDLMSG) SHARED"                             
      address ISPEXEC "SETMSG MSG(ISRZ001)"                                     
   end                                                                          
end                                                                             
else do                                                                         
   "DELETE '"dsn"'"                                                             
   if rc = 0 then do                                                            
      ZEDSMSG = 'DC Successful'                                                 
      ZEDLMSG = dsn 'deleted'                                                   
      ZDLMSG = 'DC Successful'                                                  
      ZDLREF = 'Y'                                                              
      Address ISPEXEC "VPUT (ZDLMSG ZDLMSG) SHARED"                             
      address ISPEXEC "SETMSG MSG(ISRZ001)"                                     
   end                                                                          
end                                                                             
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                             End of DC                             */         
/*-------------------------------------------------------------------*/