home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 29 Fixes_o
/
29-Fixes_o.zip
/
ip08410.zip
/
INSLANFP.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1998-10-16
|
870b
|
36 lines
/*****************************/
/* Setup to install a Fixpak */
/*****************************/
'@Echo off'
/***********************************/
/* Register all REXXUTIL functions */
/***********************************/
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs
curdir=Directory()
/*************************************/
/* Find current dir and change to */
/* tools dir. */
/*************************************/
Parse source . . me .
path=Filespec('DRIVE',me)||Filespec('PATH',me)
path=substr(path,1,length(path)-1)
'SET CSFCDROMDIR='path
trg=Directory('.')||'\TOOLS'
'SET CSFUTILPATH='trg
/*****************/
/* Start service */
/*****************/
Call Directory(trg)
'@START SERVICE'
/************/
/* Exit */
/************/
Done:
Call Directory curdir
Exit