/*************************************************************************/
/* Licensed Materials - Property of IBM                                  */
/*                                                                       */
/* XXXX-XXX                                                              */
/*                                                                       */
/* (C) Copyright IBM Corp. 1995.  All Rights Reserved.                   */
/*                                                                       */
/* US Government Users Restricted - Use, duplication, or                 */
/* disclosure restricted by GSA ADP Schedule Contract with IBM Corp.     */
/*                                                                       */
/*************************************************************************/

call RxFuncAdd 'SysMkDir', 'RexxUtil', 'SysMkDir'

/* To be filled in by makeresp... */
FFSTWorkstationID = ''
wsdir = ''
cidsrvpath = ''
routnum = ''
client = ''

ffstlogsdir = wsdir'\logs\ffst'

/* Create the logs directory */
call SysMkDir ffstlogsdir

logname = ffstlogsdir'\'client'.log'

/* Set up the program invocation */
instprog = 'FFSTINST ',
           ' /S:'cidsrvpath'\FFST ',
           ' /L1:'logname' ',
           ' /ROUT:'routnum

/* WS Id is optional.  If it's not there, don't add it */
if ffstworkstationid \= '' then
   instprog = instprog || ' /WSID:'FFSTWorkstationID

/* Save the current directory */
currdir = directory()

/* CD to the install directory */
call directory cidsrvpath'\FFST'

/* Invoke the installation */
'call 'instprog

/* Go back to where you started */
call directory currdir 

RETURN 0

