*******************************************************************************
*
*	CHARGE-TO verb simulator sub-routine definition
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************
*
* CHARGE-TO IS NOT A SUPPORTED UNI*VERSE COMMAND.  THIS PROGRAM IF
* 	CATALOGED, WILL GIVE THE APPEARANCE OF A CHARGE-TO LIKE VERB.
*	THE EFFECT OF  RUNNING THIS PROGRAM WILL BE TO CHANGE THE @WHO
*	VARIABLE TO CONTAIN THE ORIGINAL @WHO + "*" + SECOND ITEM ON
*	COMMAND LINE
*
********************************************************************************
DIM COMMAND(2)
WORK = TRIM(@SENTENCE)
MATPARSE COMMAND FROM WORK , ' '
EXECUTE "IAM ":@WHO:"*":COMMAND(2)
END