      * Copyright (C) 1984-2001 Micro Focus International Ltd.  
      * All rights reserved.
      * @(#)demo2.cbl	2.1

	01  ptr				usage pointer.
	procedure division.

	    call 'CBL_ALLOC_MEM'     using ptr
				  by value 256   *> Size
				  	   0.    *> Flags
	    call 'CBL_FREE_MEM'	     using by value ptr.

