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