10 lines
305 B
Plaintext
10 lines
305 B
Plaintext
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')
|