mirror of
https://github.com/sasjs/core.git
synced 2025-12-10 22:14:35 +00:00
40 lines
1017 B
SAS
40 lines
1017 B
SAS
/**
|
|
@file
|
|
@brief Returns an unused libref
|
|
@details Use as follows:
|
|
|
|
libname mclib0 (work);
|
|
libname mclib1 (work);
|
|
libname mclib2 (work);
|
|
|
|
%let libref=%mf_getuniquelibref();
|
|
%put &=libref;
|
|
|
|
which returns:
|
|
|
|
> mclib3
|
|
|
|
@param prefix= first part of libref. Remember that librefs can only be 8 characters,
|
|
so a 7 letter prefix would mean that maxtries should be 10.
|
|
@param maxtries= the last part of the libref. Provide an integer value.
|
|
|
|
@version 9.2
|
|
@author Allan Bowe
|
|
**/
|
|
|
|
|
|
%macro mf_getuniquelibref(prefix=mclib,maxtries=1000);
|
|
%local x libref;
|
|
%let x=0;
|
|
%do x=0 %to &maxtries;
|
|
%if %sysfunc(libref(&prefix&x)) ne 0 %then %do;
|
|
%let libref=&prefix&x;
|
|
%let rc=%sysfunc(libname(&libref,%sysfunc(pathname(work))));
|
|
%if &rc %then %put %sysfunc(sysmsg());
|
|
&prefix&x
|
|
%*put &sysmacroname: Libref &libref assigned as WORK and returned;
|
|
%return;
|
|
%end;
|
|
%end;
|
|
%put unable to find available libref in range &prefix.0-&maxtries;
|
|
%mend mf_getuniquelibref; |