CLPでの文字列の抽出 %SST に相当する命令がRPG にも SUBST として用意されている。
ソースコード
0001.00 C***************************************************** 0002.00 C* 文字フィールド STRING の P 桁目より L バイトの 0003.00 C* 文字を取り出して FLD5 に入れる。 0004.00 C* L には直接、長さを 10 のように指定しても良い。 0005.00 C***************************************************** 0006.00 C L SUBSTSTRING:P FLD5 5