/* -------------------------------------------------- */
/* 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
