FD T-FILE.
01 T-REC1 PIC X(10).
01 T-REC2 PIC X(30).
FD T-FILE RECORD VARYING IN SIZE FROM 1 TO 30
DEPENDING ON L-REC.
01 T-REC PIC X(30).
FD T-FILE.
01 T-REC.
02 T-RECD PIC X OCCURS 30 TIMES DEPENDING ON L-REC.