home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: SysTools
/
SysTools.zip
/
backres.zip
/
ETCVAL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-01-20
|
910b
|
24 lines
/* -------------------------------------------------- */
/* Title: etcval.cmd */
/* */
/* Author: J.Cobb */
/* */
/* Change History: 20/01/1998 - Created JAC */
/* */
/* Function: Looks up the ETC path and sets*/
/* a variable in the FI object */
/* -------------------------------------------------- */
Parse arg featurehandle
/* Query the system functions */
if RxFuncQuery(RexxInstSetVariable) <> 0 then
if RxFuncAdd(RexxInstSetVariable,WPINSTAL,RexxInstSetVariable) <> 0 then Exit
etc_path = value( 'ETC',,'OS2ENVIRONMENT')
rc = RexxInstSetVariable(featurehandle,'etcpath',etc_path)
Exit