 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
