PROC DATACLAS                                    
IF &DATACLAS='' AND &HLQ = 'SHR' THEN 
 SET &DATACLAS = 'DCPRUEBA'           
END