/* REXX */                                                                      
PARSE UPPER ARG action ssid                                                     
                                                                                
zrc = 0                                                                         
                                                                                
SAY                                                                             
SELECT                                                                          
WHEN ssid = '' & ABBREV('CONNECT',action,0)                                     
THEN DO                                                                         
       SAY 'DB2RXCON - No DB2 SSID passed.'                                     
       zrc = 16                                                                 
     END                                                                        
WHEN ABBREV('CONNECT',action,0)                                                 
THEN DO                                                                         
       SAY 'CONNECT' ssid'...'                                                  
       ADDRESS DSNREXX 'CONNECT' ssid                                           
       IF sqlcode \= 0                                                          
       THEN DO                                                                  
              SAY 'CONNECT failed.'                                             
              SAY 'sqlcode='sqlcode                                             
              SAY 'sqlerrmc='sqlerrmc                                           
              zrc = 8                                                           
            END                                                                 
       ELSE SAY 'Connected.'                                                    
     END                                                                        
WHEN ABBREV('DISCONNECT',action,1)                                              
THEN DO                                                                         
       SAY 'DISCONNECT...'                                                      
       ADDRESS DSNREXX 'DISCONNECT'                                             
       IF sqlcode \= 0                                                          
       THEN DO                                                                  
              SAY 'DISCONNECT failed.'                                          
              SAY 'sqlcode='sqlcode                                             
              SAY 'sqlerrmc='sqlerrmc                                           
              zrc = 4                                                           
            END                                                                 
       ELSE SAY 'Disconnected.'                                                 
     END                                                                        
OTHERWISE                                                                       
       SAY 'DB2RXCON - Action must be CONNECT or DISCONNECT.'                   
       zrc = 12                                                                 
END /* SELECT */                                                                
                                                                                
SAY                                                                             
RETURN zrc