home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / os2v423.exe / UNINSTAL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-02-27  |  1KB  |  23 lines
  1. /****************************************************************************
  2.  * Copyright Notice:                                                        *
  3.  *  (c) Copyright 1995 by Stardock Systems, Inc. ALL RIGHTS RESERVED.       *
  4.  *      This work protected by US Copyright Law.                            *
  5.  *  You may not create derived works from this material.                    *
  6.  ****************************************************************************
  7.  * Name:            OPEN.CMD                                                *
  8.  *                                                                          *
  9.  * Description:     Script file to open a specified view for an object      *
  10.  *                  (file or directory) using WPS open semantics.           *
  11.  ****************************************************************************/
  12.  
  13. /* Register REXX utility package. */
  14. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL','SysLoadFuncs'
  15. Call SysLoadFuncs
  16.  
  17. Dir = Directory()
  18. IF LENGTH(Dir) = 3 THEN
  19.   Dir = '-F'Dir'UNINST.INS'
  20. ELSE
  21.   Dir = '-F'Dir'\UNINST.INS'
  22. setup Dir
  23.