//_Header
//*******************************************************************
//    NOVA Central Controls  ---  Lawrence Livermore Laboratory
//*******************************************************************
//
//_Module_Name:  SQLSTUBS		_File:  [CCDB.PRAXIS]SQLSTUBS.PRX
//
//_Description:
//	THIS MODULE CONTAINS THE PRAXIS DATA TYPES AND SUBROUTINE
//	STUBS USED TO ACCESS THE ORACLE DATA BASE SYSTEM.
//_Call:
//	AS DEFINED BY THE INDIVIDUAL ROUTINES
//_Identifier: { none }
//*******************************************************************
//_Author:  DAVID MCGUIGAN		_Creation_Date:   2-SEP-1981
//_Revisions:
//  1.000   2-SEP-1981  DM	Initial Key-in.
//*******************************************************************
//_End
MODULE SQLSTUBS
//
	EXPORT
		LDA_TYPE,
		OLOGON,
		OOPEN,
		OSQL,
		ODSRBN,
		ONAME,
		ODFINN,
		OBIND,
		OBINDN,
		OEXEC,
		OFETCH,
		OCLOSE,
		OLOGOF,
		CURSOR_TYPE
//
//***************************************************************************************
//  DEFINE THE LOGON DATA AREA AND CURSOR TYPES
//
	DECLARE
		LDA_TYPE IS PACKED STRUCTURE
			x_RETURN_CODE : 16 BIT INTEGER
			x_ORACLE_SYSTEM_AREA : ARRAY [ 1..31 ] OF 16 BIT INTEGER
		ENDSTRUCTURE
//
		CURSOR_TYPE IS PACKED STRUCTURE
			RETURN_CODE : 16 BIT INTEGER
			FUNCTION_TYPE : 16 BIT INTEGER
			ROWS_PROCESSED : 32 BIT INTEGER
			PARSE_ERROR_OFFSET : 16 BIT INTEGER
			FUNCTION_CODE : 8 BIT INTEGER
			FILLER : 8 BIT INTEGER
			ORACLE_SYSTEM_AREA : ARRAY [ 1..27 ] OF 16 BIT INTEGER
		ENDSTRUCTURE
//
	ENDDECLARE
//
//*************************************************************************************
//  DEFINE THE ROUTINES
//
	PROCEDURE OLOGON ( 	LDA : INOUT REF LDA_TYPE,
				AREA_COUNT : optional in REF INTEGER INITIALLY 1 )
	ENDPROCEDURE
//
	PROCEDURE OOPEN (	
//				CURSOR : INOUT REF CURSOR_TYPE,
//				LDA : INOUT REF LDA_TYPE,
//				DATABASE_NAME : INOUT REF PACKED ARRAY [ 1..?N ] OF CHAR,
//				AREA_SIZE : optional in REF INTEGER INITIALLY 3,
				x_USER_ID : optional in REF PACKED ARRAY [ 1..?M ] OF CHAR INITIALLY " " )
	ENDPROCEDURE
//
	PROCEDURE OSQL (	CURSOR : INOUT REF CURSOR_TYPE,
				SQL_STATEMENT : INOUT REF GENERAL,		//  REALLY ARRAY OF CHAR, BUT I
				SQL_STATEMENT_LENGTH : INOUT REF INTEGER )	//  WANT CONTROL OVER THE LENGTH
	ENDPROCEDURE
//
	PROCEDURE ODSRBN (	CURSOR : INOUT REF CURSOR_TYPE,
				POSITION : INOUT REF INTEGER,
				DATABASE_SIZE : optional in REF INTEGER INITIALLY -1,
				DATABASE_TYPE : optional in REF INTEGER INITIALLY -1,
				FIELD_SIZE : optional in REF INTEGER INITIALLY -1 )
	ENDPROCEDURE
//
	PROCEDURE ONAME (	CURSOR : INOUT REF CURSOR_TYPE,
				POSITION : INOUT REF INTEGER,
				TBUF : INOUT REF PACKED ARRAY [ 1..30 ] OF CHAR,
				TBUFL : INOUT REF INTEGER,
				CBUF : INOUT REF PACKED ARRAY [ 1..30 ] OF CHAR,
				CBUFL : INOUT REF INTEGER )
	ENDPROCEDURE
//
	PROCEDURE ODFINN (	CURSOR : INOUT REF CURSOR_TYPE,
				POSITION : INOUT REF INTEGER,
				PROGRAM_VARIABLE : INOUT REF GENERAL,
				VARIABLE_LENGTH : INOUT REF INTEGER,
				VARIABLE_TYPE : optional in REF INTEGER INITIALLY -1,
				RETURN_CODE : optional in REF 16 BIT INTEGER INITIALLY -1 )
	ENDPROCEDURE
//
	PROCEDURE OBIND (	CURSOR : INOUT REF CURSOR_TYPE,
				SQL_VARIABLE : INOUT REF PACKED ARRAY [ 1..?N ] OF CHAR,
				PROGRAM_VARIABLE : INOUT REF GENERAL,
				VARIABLE_SIZE : INOUT REF INTEGER,
				VARIABLE_TYPE : optional in REF INTEGER INITIALLY -1 )
	ENDPROCEDURE
//
	PROCEDURE OBINDN (	CURSOR : INOUT REF CURSOR_TYPE,
				SQL_VARIABLE_NUMBER : INOUT REF INTEGER,
				ROGRAM_VARIABLE : INOUT REF GENERAL,
				VARIABLE_SIZE : INOUT REF INTEGER,
				VARIABLE_TYPE : optional in REF INTEGER INITIALLY -1 )
	ENDPROCEDURE
//
	PROCEDURE OEXEC (	CURSOR : INOUT REF CURSOR_TYPE )
	ENDPROCEDURE
//
	PROCEDURE OFETCH (	CURSOR : INOUT REF CURSOR_TYPE )
	ENDPROCEDURE
//
	PROCEDURE OCLOSE (	CURSOR : INOUT REF CURSOR_TYPE )
	ENDPROCEDURE
//
	PROCEDURE OLOGOF (	LDA : INOUT REF LDA_TYPE )
	ENDPROCEDURE
//
ENDMODULE