9.148 LEFT
Þ Note: Built-In Function Rules.
Left aligns argument into return string.
For use with
|
Arguments
|
Return Values
|
Example
Left align and remove imbedded blanks from a requested string.
DEFINE FIELD(#INTEXT) TYPE(*CHAR) LENGTH(18)
DEFINE FIELD(#OUTEXT) TYPE(*CHAR) LENGTH(18)
**********
REQUEST FIELDS(#INTEXT)
USE BUILTIN(LEFT) WITH_ARGS(#INTEXT Y) TO_GET(#OUTEXT)
DISPLAY FIELDS(#OUTEXT)
Resulting displays would look something like the following.
FUN01 Left Example
*
In text . . . FR E D
*
CF1=Help
*
then,
FUN01 Left Example
*
Out text . . . FRED
*
CF1=Help
*