      * Copyright (C) 1984-2001 Micro Focus International Ltd.  
      * All rights reserved.
      * @(#)demo4.cbl	2.1
      $if P64 set
	78  78-ptrlen             value 8.
      $else 
	78  78-ptrlen             value 4.
      $end

	01  p1.
	   02  item1  occurs 2 indexed by i1.
	    05  item1-1         pic x(78-ptrlen).
	    05  item1-2		pic x(78-ptrlen) occurs 2 indexed by i2.
	    05  item1-3         pic x(78-ptrlen).
	01  p2 redefines p1.
		05              	pic x(78-ptrlen) occurs 4.
		05  ptr2-notmod-1    	usage pointer.
		05  ptr2-mod-1    	usage pointer.
		05  ptr2-mod-2    	usage pointer.
		05  ptr2-notmod-2 	usage pointer.

	    move ' ' 		to item1-1(1)
	    move ' ' 		to item1-2(1,1)
	    move ' ' 		to item1-2(1,2)
	    move ' ' 		to item1-3(1)
	    move ' ' 		to item1-2(2,1)
	    move ' ' 		to item1-2(i1, i2)
	    exit program
	    stop run.
