59 lines
1.6 KiB
Plaintext
59 lines
1.6 KiB
Plaintext
|
*****************************************************************************
|
||
|
|
*
|
||
|
|
* GCI example program - input and output
|
||
|
|
*
|
||
|
|
* 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
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
***
|
||
|
|
*** Use a built-in GCI routine to transform a character string and
|
||
|
|
*** a number. The GCI routine, *gci3, must be cataloged.
|
||
|
|
*** It accepts 2 arguments:
|
||
|
|
*** str - the character string
|
||
|
|
*** num - the number
|
||
|
|
*** The values contained by these variables will be changed by *gci3.
|
||
|
|
*** See the GCI manual for more information.
|
||
|
|
***
|
||
|
|
*
|
||
|
|
* set up the variables
|
||
|
|
*
|
||
|
|
str = "this is a string"
|
||
|
|
num = 1960
|
||
|
|
|
||
|
|
*
|
||
|
|
* display the values
|
||
|
|
*
|
||
|
|
print "before the call...."
|
||
|
|
print "the variable str is '":str:"'"
|
||
|
|
print "the variable num is '":num:"'"
|
||
|
|
print
|
||
|
|
print
|
||
|
|
print
|
||
|
|
|
||
|
|
*
|
||
|
|
* call the cataloged gci routine
|
||
|
|
*
|
||
|
|
call *gci3(str, num)
|
||
|
|
|
||
|
|
*
|
||
|
|
* display the results
|
||
|
|
*
|
||
|
|
print
|
||
|
|
print
|
||
|
|
print "after the call...."
|
||
|
|
print "now the variable str is '":str:"'"
|
||
|
|
print "now the variable num is '":num:"'"
|