      ****************************************************************
      * Copyright (C) 1997-2001 Micro Focus International Ltd.       *
      * All Rights Reserved.                                         *
      ****************************************************************
      *                                                              *
      * This program demonstrates how to read and update structures  *
      * in COBOL, passed via Java objects implementing the DataType  *
      * interface from mfcobol.lang.				     *
      *								     *
      *  Version History:                                            *
      *  1.0                        Created                          *
      *                                                              *
      ****************************************************************
       
       linkage Section.
       01 customerDetails.
         03 customerName       pic x(30).
         03 customerAddress    pic x(30).
         03 customerRef        pic 9(6).
       procedure division using by reference customerDetails.
         add 1 to customerRef
	 exit program.
