PROC STORGRP                                  
IF &STORGRP='' AND &HLQ = 'SHR' THEN
 SET &STORGRP = 'SGSHARE'           
END