MINI MINI MANI MO

*****************************************************************
* 							      *
* 	      O  R  A  C  A				      *
* 							      *
* User setable flags:					      *
* 							      *
*   ORACCHF : .NE. 0 if "do cursor cache consistency check"     *
* 	    (note: ORADBGF must be .NZ.).		      *
*   ORADBGF : .NE. 0 if "do DEBUG checks". This is a "master"   *
* 	    debug flag used to turn all DEBUG options on      *
* 	    or off.					      *
*   ORAHCHF : .NE. 0 if "check heap consistency" (ORADBGF must  *
* 	    be .NZ.). Useful to help determine if someone     *
* 	    is erroneously clobbering memory that the PCC     *
* 	    "owns". MUST BE SET BEFORE 1ST CONNECT. Subsequent*
* 	    attempts to change ORAHCHF are ignored.	      *
*   ORASTXTF: Saved SQL stmt text flag. Used to control whether *
* 	    text of current SQL stmt is saved in ORASTXT.     *
* 	    (Note: ORASTXTF is independent of ORADBGF).       *
* 							      *
* 	    0 = Don't save SQL stmt (default).                *
* 	    1 = Save SQL stmt on SQLERROR.		      *
* 	    2 = Save SQL stmt on SQLWARNING/SQLERROR.	      *
* 	    3 = Always save SQL stmt.			      *
* 							      *
*   Cursor cache statistics. Set after COMMIT or ROLLBACK. Each *
*   CONNECT'd DATABASE has its own set of statistics.           *
* 							      *
*   ORAHOC  : Highest Max Open OraCursors requested. Highest    *
* 	    value for MAXOPENCURSORS by any CONNECT to this   *
* 	    DATABASE.					      *
*   ORAMOC  : Max Open OraCursors required. Specifies the max nr*
* 	    of OraCursors required to run this pgm. Can be    *
* 	    higher than ORAHOC if working set (MAXOPENCURSORS)*
* 	    was set too low, thus forcing the PCC to expand   *
* 	    the cache.					      *
*   ORACOC  : Current nr of OraCursors used.		      *
*   ORANOR  : Nr of OraCursor cache reassignments. Can show the *
* 	    degree of "thrashing" in the cache. Optimally,    *
* 	    this nr should be kept as low as possible (time   *
* 	    vs space optimization).			      *
*   ORANPR  : Nr of SQL stmt "parses".                          *
*   ORANEX  : Nr of SQL stmt "executes". Optimally, the rela-   *
* 	    tionship of ORANEX to ORANPR should be kept as    *
* 	    high as possible.				      *
* 							      *
* MODIFIED						      *
*   Clare      02/20/86 - Add heap consistency check.	      *
*   Clare      03/12/86 - ORACA cuc statistics.		      *
*****************************************************************
       01  ORACA.
	   05  ORACAID		     PIC X(8).
	   05  ORACABC		     PIC S9(9) COMPUTATIONAL.
*
*    Flags which are setable by User.
*
	   05  ORACCHF		     PIC S9(9) COMPUTATIONAL.
	   05  ORADBGF		     PIC S9(9) COMPUTATIONAL.
	   05  ORAHCHF		     PIC S9(9) COMPUTATIONAL.
	   05  ORASTXTF 	     PIC S9(9) COMPUTATIONAL.
*
*    Saved len and text of current SQL stmt.
*
	   05  ORASTXT.
	       49 ORASTXTL	     PIC S9(4) COMPUTATIONAL.
	       49 ORASTXTC	     PIC X(70).
*
*    Saved len and text of filename containing current SQL stmt.
*
	   05  ORASFNM.
	       49 ORASFNML	     PIC S9(4) COMPUTATIONAL.
	       49 ORASFNMC	     PIC X(70).
*
*    Saved line nr in current filename containing SQL stmt.
*
	   05  ORASLNR		     PIC S9(9) COMPUTATIONAL.
*
*    Cursor cache statistics.
*
	   05  ORAHOC		     PIC S9(9) COMPUTATIONAL.
	   05  ORAMOC		     PIC S9(9) COMPUTATIONAL.
	   05  ORACOC		     PIC S9(9) COMPUTATIONAL.
	   05  ORANOR		     PIC S9(9) COMPUTATIONAL.
	   05  ORANPR		     PIC S9(9) COMPUTATIONAL.
	   05  ORANEX		     PIC S9(9) COMPUTATIONAL.
*
*    END ORACA