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