9.126 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                            
*      
  • No labels