9.183 RIGHT

注意： 9.1 組み込み関数の規則利用オプション

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

引数

番号

タイプ

必須/任意

記述

最小長

最大長

最小小数桁数

最大小数桁数

1

A

必須

右揃えにする文字列

1

256

2

A

任意

埋め込みブランク削除フラグ (Y/N)

値：
Y：削除する
N：削除しない

デフォルト：N

1

戻り値

番号	タイプ	必須/任意	記述	最小長	最大長	最小小数桁数	最大小数桁数
1	A	必須	戻される右揃え文字列	1	256

例

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

     DEFINE     FIELD(#INTEXT)  TYPE(*CHAR) LENGTH(18)
     DEFINE     FIELD(#OUTEXT)  TYPE(*CHAR) LENGTH(18)
     **********
     REQUEST    FIELDS(#INTEXT)
     USE        BUILTIN(RIGHT) WITH_ARGS(#INTEXT Y) TO_GET(#OUTEXT)
     DISPLAY    FIELDS(#OUTEXT)

画面に表示すると以下のようになります。

       FUN01          Right Example       
                                               
       In text . . .     FR   E     D                                                 

       CF1=Help

出力結果です。

       FUN01          Right Example         
                                               
       Out text . . .                   FRED                                                

       CF1=Help