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
See http://open-cobol.sourceforge.net/faq/index.html#allocate for more details.