8.128 LEFT

引数を左揃えにして文字列で戻します。

 

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

左揃えにする文字列

1

256

 

 

2

A

任意

埋め込みブランク削除フラグ (Y/N)
値:
Y:削除する
N:削除しない
デフォルト:N

1

1

 

 

 

戻り値

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

戻される左揃え文字列

1

256

 

 

 

要求された文字列を左揃えにして埋め込みブランクを削除します。

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)
 

処理の結果、以下のように表示されます。

        FUN01          Left Example          
*                                                
        In text . . .    FR   E    D         
*                                               
        CF1=Help                              
*                                               
 

出力結果です。

        FUN01          Left Example          
*                                                
        Out text . . . FRED                  
*                                                
        CF1=Help                              
*