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

	01  refm			pic x comp-x.
	01  p1.
		05              	pic x(16).
		05  ptr2-1        	usage pointer.
		05  ptr2-2        	usage pointer.

	    move ' ' 		to p1(1:16)
	    move ' ' 		to p1(1:17)
	    move ' ' 		to p1(refm:1)
	    move ' ' 		to p1(1:refm)
	    exit program
	    stop run.
