/****************************************************************************
 * Copyright Notice:                                                        *
 *  (c) Copyright 1995 by Stardock Systems, Inc. ALL RIGHTS RESERVED.       *
 *      This work protected by US Copyright Law.                            *
 *  You may not create derived works from this material.                    *
 ****************************************************************************
 * Name:            OPEN.CMD                                                *
 *                                                                          *
 * Description:     Script file to open a specified view for an object      *
 *                  (file or directory) using WPS open semantics.           *
 ****************************************************************************/

/* Register REXX utility package. */
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL','SysLoadFuncs'
Call SysLoadFuncs

Dir = Directory()
IF LENGTH(Dir) = 3 THEN
  Dir = '-F'Dir'UNINST.INS'
ELSE
  Dir = '-F'Dir'\UNINST.INS'
setup Dir
