/******************************************************************************/
/* Copyright 1995 (C) by Andreas Haack
** $Id: runagend.arx,v 1.3 1996/03/03 21:04:20 hak Exp $
*******************************************************************************
** run agenda
** $Log: runagend.arx,v $
** Revision 1.3  1996/03/03 21:04:20  hak
** release version
**
** Revision 1.2  1996/02/04 16:04:15  hak
** after restructering to dll target
**
** Revision 1.1  1996/01/28 03:44:51  hak
** Initial revision
**
** Revision 1.1  1996/01/23 22:00:53  hak
** Initial revision
**
*******************************************************************************/

/*******************************************************************************
* example running ibm works agenda from the bonus pack
*******************************************************************************/

call RxFuncAdd 'RxMessageBox', 'RexxUtil', 'RxMessageBox'

trace('O');

IbmWorks = value('IBMWORKS_INI',,'OS2ENVIRONMENT');
rc = stream(IbmWorks||'\FPWPIM.EXE', 'c' , 'QUERY EXIST');

if rc \= '' then
   address CMD 'start '||IbmWorks||'\FPWPIM.EXE -M';
else
   call RxMessageBox("IBMWORKS from bopnuspack not correctly installed!", "Error, could not load agenda", "OK", "HAND");

return 0;