*****************************************************************
* 							        *
* 	      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						        *
*   losborne   03/27/95 - Created oraca5.cbt                    *
*   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) COMP-5.
*
*    Flags which are setable by User.
*
	   05  ORACCHF		     PIC S9(9) COMP-5.
	   05  ORADBGF		     PIC S9(9) COMP-5.
	   05  ORAHCHF		     PIC S9(9) COMP-5.
	   05  ORASTXTF 	     PIC S9(9) COMP-5.
*
*    Saved len and text of current SQL stmt.
*
	   05  ORASTXT.
	       49 ORASTXTL	     PIC S9(4) COMP-5.
	       49 ORASTXTC	     PIC X(70).
*
*    Saved len and text of filename containing current SQL stmt.
*
	   05  ORASFNM.
	       49 ORASFNML	     PIC S9(4) COMP-5.
	       49 ORASFNMC	     PIC X(70).
*
*    Saved line nr in current filename containing SQL stmt.
*
	   05  ORASLNR		     PIC S9(9) COMP-5.
*
*    Cursor cache statistics.
*
	   05  ORAHOC		     PIC S9(9) COMP-5.
	   05  ORAMOC		     PIC S9(9) COMP-5.
	   05  ORACOC		     PIC S9(9) COMP-5.
	   05  ORANOR		     PIC S9(9) COMP-5.
	   05  ORANPR		     PIC S9(9) COMP-5.
	   05  ORANEX		     PIC S9(9) COMP-5.
*
*    END ORACA