01 field-1 PIC X(80) BASED. ALLOCATE field-1 *> use field-1 FREE field-1 *> further use of field-1 will cause memory corruption