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

        01  ppg.
	    05  pp			usage procedure-pointer.
	procedure division.
	    set pp			to entry "foobar"
	    move low-values  		to ppg.

