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