*****************************************************************************
*
*	GCI example program - more input/output transformations
*
*	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. 
*	02/19/90  --   DTW New file
*
*******************************************************************************
***
***	Call a GCI function (gci4) that will concatenate two strings
***	together.  The resulting string is returned in the third argument.
***	gci4 returns the length of the new string.
***	See the GCI manual for more information.
***
DECLARE GCI gci4

str1 = "what a wonderful "
str2 = "life this is?"
str3 = ""

*	display them before the call
print "Before the call to the GCI routine we have 3 strings, as so:"
print "str1 = ":str1
print "str2 = ":str2
print "str3 = ":str3
print
print

*	call the gci routine
x = gci4(str1, str2, str3)

*	display the results
print "After the call to the GCI routine we have 3 strings, as so:"
print "str1 = ":str1
print "str2 = ":str2
print "str3 = ":str3
print
print "the combined length, returned by the gci routine, is = ":x