home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / misc / reqchang.run / ReqChange / Extra / GetEnv.Rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-02-02  |  254 b   |  13 lines
  1. /* GetEnv.Rexx. Returns the contents of the named global environment
  2. variable. Ignores any argument except the first one. */
  3.  
  4. name = arg( 1 )
  5. var = ""
  6.  
  7. if open( file, 'ENV:' || name, read ) then do
  8.     var = readln( file )
  9.     call close file
  10.     end
  11.  
  12. return var
  13.