/* REXX */                                                                      
PARSE UPPER ARG tr_vsam user_team user_num tr_load .                            
                                                                                
tr_key       = "'"user_team''user_num"'"                                        
IF tr_load   = ''                                                               
THEN tr_load = SYSVAR("SYSUID")".REXXA.LOAD(TRDELETE)"                          
                                                                                
zrc = VSAMFILE(tr_vsam 'SHR')                                                   
IF zrc > 0                                                                      
THEN DO                                                                         
       SAY tr_vsam 'Record with key' tr_key 'not deleted.'                      
       SIGNAL Done                                                              
     END                                                                        
                                                                                
ADDRESS TSO "CALL '"tr_load"'" tr_key                                           
zrc = RC                                                                        
                                                                                
CALL VSAMFILE 'FREE'                                                            
                                                                                
Done:                                                                           
EXIT zrc