文字列の一部を切り取って抽出するために RPG では SUBST 命令を使う人は
多いと思われる。例えば文字列 FLD80 の K桁目から 1バイトを取り出して
FLD1 に入れる場合には
1 SUBST FLD80:K FLD1
という使用が考えられる。しかし、この後で
FLD1 IFEQ '*'
:
END
と、いうように判断をするのであれば
IF %SUBST(FLD80:K:1) = '*'
:
END
というように %SUBST を使ってまとめて記述することができる。
%SUBST(フィールド名: 開始位置:長さ) によってサブ・ストリングを取り出すことができる。
%SUBST は V3R2M0 から使用可能である。