home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Backup / Backup.zip / bacrest.zip / etcval.cmd < prev    next >
OS/2 REXX Batch file  |  1999-10-05  |  910b  |  24 lines
  1. /* -------------------------------------------------- */
  2. /* Title:               etcval.cmd                    */
  3. /*                                                    */
  4. /* Author:              J.Cobb                        */
  5. /*                                                    */
  6. /* Change History:      20/01/1998 - Created JAC      */
  7. /*                                                    */
  8. /* Function:            Looks up the ETC path and sets*/
  9. /*                      a variable in the FI object   */
  10. /* -------------------------------------------------- */
  11.  
  12.  
  13. Parse arg featurehandle
  14.  
  15. /* Query the system functions */
  16. if RxFuncQuery(RexxInstSetVariable) <> 0 then
  17.    if RxFuncAdd(RexxInstSetVariable,WPINSTAL,RexxInstSetVariable) <> 0 then Exit
  18.  
  19. etc_path = value( 'ETC',,'OS2ENVIRONMENT')                   
  20.  
  21. rc = RexxInstSetVariable(featurehandle,'etcpath',etc_path)
  22.  
  23. Exit
  24.