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).