/* REXX */                                                                      
PARSE UPPER ARG isolation                                                       
                                                                                
zrc = 0                                                                         
                                                                                
SAY                                                                             
SELECT                                                                          
WHEN isolation \= 'RR' & isolation \= 'RS',                                     
   & isolation \= 'CS' & isolation \= 'UR'                                      
THEN DO                                                                         
       SAY 'DB2RXISO - Isolation Level must be RR, RS, CS or UR.'               
       zrc = 12                                                                 
     END                                                                        
OTHERWISE                                                                       
       /***********************************************************/            
       /*  Isolation Levels:                                      */            
       /*  DSNREXRR - Repeatable Read  (RR)                       */            
       /*  DSNREXRS - Read Stability   (RS)                       */            
       /*  DSNREXCS - Cursor Stability (CS)                       */            
       /*  DSNREXUR - Uncommitted Read (UR)                       */            
       /***********************************************************/            
       SAY 'SET ISOLATION LEVEL' isolation'...'                                 
       ADDRESS DSNREXX "EXECSQL SET CURRENT",                                   
                       "PACKAGESET='DSNREX"isolation"'"                         
       IF sqlcode \= 0                                                          
       THEN DO                                                                  
              SAY 'SET ISOLATION LEVEL failed.'                                 
              SAY 'sqlcode='sqlcode                                             
              SAY 'sqlerrmc='sqlerrmc                                           
              zrc = 8                                                           
            END                                                                 
       ELSE SAY 'Ok.'                                                           
END /* SELECT */                                                                
                                                                                
SAY                                                                             
RETURN zrc