PIC X VARYING Data Type

Note: OpenESQL only

Syntax

PIC X(n) VARYING

Where n is an integer representing the length of the field that holds the data.

01 ename  PIC X(15) VARYING.

generates

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