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 。