Contributed by: Doug Rickman, Global Hydrology and Climate Center, MSFC, NASA
This is aimed at beginning REXX users.
/*****************************************************************************/
/*************** Search LIBPath for DLL. ***************/
/* Search the LIBPath for a DLL. Returns:
first occurence if found,
-1 if Config.sys not found on "boot drive,"
0 if file not found along LIBPath.
Doug Rickman Sept. 9, 1998. */
procedure
parse arg Target .
BootDrive = substr(value('COMSPEC',,'OS2ENVIRONMENT'),1,1)
Config_Sys=BootDrive':\config.sys'
call SysFileTree Config_Sys, files.
if files.0=1 then nop
else return -1
do while lines(Config_Sys)>0
data=linein(Config_Sys)
parse var data v1 '=' LIBPath
if translate(v1)='LIBPATH' then leave
end /* end do while lines() ... */
do while LIBPath\=''
parse var LIBPath Directory ';' LIBPath
call SysFileTree Directory||'\'||Target, files.
if files.0=1 then return Directory
end /* end do while LIBPath ... */
return 0