ALLOCATE 声明

01 pointer-var         usage POINTER.
01 character-field     pic x(80) BASED value "Sample".

ALLOCATE 1024 characters returning pointer-var
ALLOCATE character-field
ALLOCATE character-field INITIALIZED RETURNING pointer-var

有关更多详细信息，请参见 http://open-cobol.sourceforge.net/faq/index.html#allocate 。