/* OpenPar.cmd  4 January 1993
 * REXX script to open parent folder from a folder's menu in OS/2 2.x
 * Written by Brian B. Mathewson   bbm@r2d2.eeap.cwru.edu
 */
 Arg drivedir
 parent=filespec(drive,drivedir)filespec(path,drivedir)
 parent=left(parent,length(parent)-1)
 Call RxFuncAdd 'SysSetObjectData', 'RexxUtil', 'SysSetObjectData'
 Call SysSetObjectData parent, 'OPEN=DEFAULT' /* opens parent folder */
 Call SysSetObjectData parent, 'OPEN=DEFAULT' /* brings it to foreground */
 Exit