/*
 * OLE_System
 *
 * USAGE: OLE_System
 *
 * This module let you setup some parameters used by the OLE server.
 *
 * $(C): (1994, Rocco Coluccelli, Bologna)
 * $VER: OLE 1.01 (08.Oct.1994)
 */

/*
 *	Setup arguments to pass to the OLE server:
 *
 *	caller address port
 *	screen name where you want the OLE server
 *	input module
 *	output module
 */

userport		= 'REXX'
userscreen		= 'Workbench'
inputmodule		= 'Config.ole'
outputmodule	= ''

/*
 *	Run the OLE server as separate process and exit.
 *
 *	CALL OLE(userport,userscreen,inputmodule,outputmodule)
 */
clip = UPPER(inputmodule || outputmodule)
CALL SETCLIP(clip,userport','userscreen','inputmodule','outputmodule)

cmd = 'Run >NIL: Rx "CALL Ole('clip')"'
ADDRESS COMMAND cmd


EXIT 0