PIC X VARYING データ型

注意: OpenESQL のみのサポートです。

構文

PIC X(n) VARYING

ここで、 n データを保持するフィールドの長さを表す整数値です。

01 ename  PIC X(15) VARYING.

という記述は以下を生成します。

01  ename. 
     05  ename-len  PIC S9(4) COMP.
     05  ename-ARR  PIC X(15).