RPG

81. サブ・ストリングを取り出す %SUBST

文字列の一部を切り取って抽出するために RPG では SUBST 命令を使う人は
多いと思われる。例えば文字列 FLD80 の K桁目から 1バイトを取り出して
FLD1 に入れる場合には

          1       SUBST   FLD80:K     FLD1

という使用が考えられる。しかし、この後で

          FLD1    IFEQ    '*'
                   :
                  END

と、いうように判断をするのであれば

                  IF   %SUBST(FLD80:K:1) = '*'
                   :
                  END

というように %SUBST を使ってまとめて記述することができる。
%SUBST(フィールド名: 開始位置:長さ) によってサブ・ストリングを取り出すことができる。
%SUBST は V3R2M0 から使用可能である。