/* REXX */                                                                      
PARSE UPPER ARG action                                                          
                                                                                
zrc = 0                                                                         
                                                                                
SAY                                                                             
SAY 'SUBCOM DSNREXX...'          /* RC=0 does exist.     */                     
ADDRESS TSO 'SUBCOM DSNREXX'     /* RC=1 does not exist. */                     
                                                                                
SELECT                                                                          
WHEN ABBREV('ADD',action,0) & RC                                                
THEN DO                                                                         
       SAY 'Adding DSNREXX environment...'                                      
       zrc = RXSUBCOM('ADD','DSNREXX','DSNREXX')                                
       SAY 'zrc='zrc                                                            
     END                                                                        
WHEN ABBREV('ADD',action,0)                                                     
THEN   SAY 'DSNREXX environment already available.'                             
WHEN ABBREV('DELETE',action,1) & RC                                             
THEN   SAY 'DSNREXX environment already not available.'                         
WHEN ABBREV('DELETE',action,1)                                                  
THEN DO                                                                         
       SAY 'Deleting DSNREXX environment...'                                    
       zrc = RXSUBCOM('DELETE','DSNREXX','DSNREXX')                             
       SAY 'zrc='zrc                                                            
     END                                                                        
OTHERWISE                                                                       
       SAY 'DB2RXENV - Action must be ADD or DELETE.'                           
       zrc = 12                                                                 
END /* SELECT */                                                                
                                                                                
SAY                                                                             
RETURN zrc