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
|