PROC STORCLAS                                     
IF &STORCLAS='' AND (&HLQ='SHR' OR &HLQ='PR1' OR &HLQ='PR2') THEN
 SET &STORCLAS = 'SCPRUEBA'            
END