/* REXX */                                                                      
PARSE UPPER ARG user_team user_num user_data .                                  
                                                                                
zrc = 0                                                                         
                                                                                
SELECT                                                                          
WHEN LENGTH(user_team) \= 4                                                     
THEN DO                                                                         
       SAY 'Teamid key field must be 4 characters.'                             
       zrc    = 20                                                              
     END                                                                        
WHEN LEFT(user_team,2) \= 'TR'                                                  
THEN DO                                                                         
       SAY 'Teamid key field must begin with "TR".'                             
       zrc    = 21                                                              
     END                                                                        
WHEN \DATATYPE(RIGHT(user_team,2),'W')                                          
THEN DO                                                                         
       SAY 'Teamid key field must end with 2 digit number.'                     
       zrc = 22                                                                 
     END                                                                        
OTHERWISE NOP                                                                   
END /* SELECT */                                                                
                                                                                
SELECT                                                                          
WHEN LENGTH(user_num) \= 2                                                      
THEN DO                                                                         
       SAY 'Number key field must be a 2 digit number.'                         
       zrc = 30                                                                 
     END                                                                        
WHEN \DATATYPE(user_num,'W')                                                    
THEN DO                                                                         
       SAY 'Number key field must be a 2 digit number.'                         
       zrc = 31                                                                 
     END                                                                        
OTHERWISE NOP                                                                   
END /* SELECT */                                                                
                                                                                
SELECT                                                                          
WHEN LENGTH(user_data) < 1                                                      
THEN DO                                                                         
       SAY 'Data field must be 1 to 8 characters.'                              
       zrc = 40                                                                 
     END                                                                        
WHEN LENGTH(user_data) > 8                                                      
THEN DO                                                                         
       SAY 'Data field must be 1 to 8 characters.'                              
       zrc = 41                                                                 
     END                                                                        
WHEN user_data = ' '                                                            
THEN DO                                                                         
       SAY 'Data field must not be spaces.'                                     
       zrc = 42                                                                 
     END                                                                        
OTHERWISE NOP                                                                   
END /* SELECT */                                                                
                                                                                
RETURN zrc