PROC 1 FREE$DS CONTROL LIST /*CONLIST SYMLIST /* PURPOSE: "FREE" DATASET AND "WHOGOT" DATASET /* CONTRIBUTED: F. DAVID MCRITCHIE 1985/02/04 IF &SUBSTR(1:1,&FREE$DS.) = &STR(') THEN DO SET L = &LENGTH(&FREE$DS.) SET FREE$DS = &SUBSTR(2:&EVAL(&L - 1),&FREE$DS) END FREE DS('&FREE$DS') WHOGOT &FREE$DS