RPG

22.RPG内部での文字列の検索方法

SCAN命令は 文字列を柔軟に検索できる命令である。

ソースコード
0001.00      C*******************************************************
0002.00      C*   文字フィールド STRING の 1 桁目よりフィールド FIELD
0003.00      C*   の頭から L 文字分が一致する文字列があるかどうか
0004.00      C*   検索する。見つかれば標識 50 が ON になる。
0005.00      C*******************************************************
0006.00      C           FIELD:L   SCAN STRING:1  N              50