PROC STORCLAS                                     
IF &STORCLAS='' AND &HLQ = 'SHR' THEN  
 SET &STORCLAS = 'SCPRUEBA'            
END