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

       Identification Division.
       Program-ID. "Memory Management" External.
       Working-Storage Section.
	01 mf-os-length		pic	x(4)	comp-5	typedef.
	01 mf-flags		pic	x(4)	comp-5	typedef.
	01 mf-status		pic	x(2)	comp-5	typedef.
       Linkage Section.
       78 CBL-ALLOC-MEM		VALUE "CBL_ALLOC_MEM".
       78 CBL-FREE-MEM		VALUE "CBL_FREE_MEM".
       78 CBL-DUMMY-ALLOC-MEM	VALUE "CBL_DUMMY_ALLOC_MEM".
       01 MEM-FLAGS	    mf-flags.
       01 MEM-PTR	    usage pointer.
       01 MEM-DUMMY-PTR-G.
          05  MEM-DUMMY-PTR usage pointer.
       01 MEM-SIZE	    mf-os-length.
       01 MEM-STATUS	    mf-status.

       Entry CBL-ALLOC-MEM Using
       		BY REFERENCE	MEM-PTR
       		BY VALUE	MEM-SIZE
       		BY VALUE	MEM-FLAGS
       		RETURNING 	MEM-STATUS.
       Entry CBL-FREE-MEM Using
       		BY VALUE	MEM-PTR
       		RETURNING 	MEM-STATUS.
       Entry CBL-DUMMY-ALLOC-MEM Using
       		BY REFERENCE	MEM-DUMMY-PTR-G
       		BY VALUE	MEM-SIZE
       		BY VALUE	MEM-FLAGS
       		RETURNING 	MEM-STATUS.
       End Program "Memory Management".
