      *> ooctrl(+p) required for COM and Java classes
      *> ooctrl(-f) used to preserve case of method names for Java
      $set ooctrl(+p) ooctrl(-f)

      ****************************************************************
      * Copyright (C) 1996 - 2000 Micro Focus International Ltd.     *
      * All Rights Reserved.                                         *
      ****************************************************************

       class-control.
	  arraydemo is class "$JAVA$arraydemo"
          .

       working-storage section.
       01 aJavaObj object reference.		     
       01 ret		pic x(4) comp-5.

      * trigger to run the Java array demo program.
       procedure division.
	 invoke arraydemo "new" returning aJavaObj
	 invoke aJavaObj "displayArray" returning ret
	 invoke aJavaObj "newArray" returning ret
         stop run.
