免费分配
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
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