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

	01  ptrnum-g.
	    05  ptrnum			pic x(4) comp-5.
	
	procedure division.

	    call 'CBL_ALLOC_MEM'     using ptrnum-g
				  by value 256   *> Size
				  	   0.    *> Flags
	    call 'CBL_FREE_MEM'	     using by value ptrnum-g.

	    call 'CBL_DUMMY_ALLOC_MEM'	using ptrnum-g

	    add 1			to ptrnum.
