16%macro irm_add_function_package(cmplib = ,
26 %
if %rsk_dsexist(&cmplib) %then
32 %
if &check_function ne %then
33 %
do i = 1 %to %sysfunc(countw(&check_function));
35 select count(*) into :func_found
37 where find(_key_,"%scan(&check_function,&i)",'i');
39 %if &func_found eq 0 %then
41 %put ERROR: The function %qupcase(%scan(&check_function,&i)) could not be found.;
49 length cmplib $32767.;
50 cmplib = getoption('cmplib');
51 cmplib = tranwrd(cmplib,"&cmplib",'');
52 cmplib = catx(' ',"&cmplib",translate(cmplib,'','(','',')'));
53 call symputx('cmpliblist',cmplib,'l');
56 options cmplib=(&cmpliblist);
58 %put NOTE: Adding function package to CMPLIB option.;
59 %put NOTE: CMPLIB = %sysfunc(getoption(cmplib));
66 %put ERROR: Could not locate the data set %qupcase(&cmplib).;
69%mend irm_add_function_package;