PROC MGMTCLAS                                   
IF &MGMTCLAS='' AND &HLQ = 'SHR' THEN  
 SET &MGMTCLAS = 'MCPRUEBA'            
END