C Copyright © Oracle Corporation 1995.  All Rights Reserved.
************************************************************************
*      sql_connections_f.for
*
* User sessions 1,2,3 and  DEFAULT use the same database, personnel
*
* Required files : Requires personnel database and sql_connections_for.sqlmod
*
* Compile with the /CONN or -conn switch
*************************************************************************
	PROGRAM sql$connection
	IMPLICIT NONE
	CHARACTER*5 EMPLOYEE_ID1,EMPLOYEE_ID2,EMPLOYEE_ID3,EMPLOYEE_ID4
	CHARACTER*14 LAST_NAME1,LAST_NAME4,DEGREE
	CHARACTER*6  SUPERVISOR
	INTEGER*4    SQLCODE
 	TYPE*,'******* Disconnect from default ************'
 	CALL DISCONNECT_D (SQLCODE)
	EMPLOYEE_ID1 = '00301'
	LAST_NAME1   = 'FELDMAN'
	TYPE*,'********* Establish connection 1 **********'
	CALL CONNECT_1 (SQLCODE)

	TYPE*,'********* Inserting record 301 through CONN 1 '
	CALL INSERT_1(SQLCODE,EMPLOYEE_ID1,LAST_NAME1)
	EMPLOYEE_ID1 = ' '
	LAST_NAME1   = ' '
	TYPE*, '********* Retrieving Record 301 **********'
	CALL SELECT_1 (SQLCODE,EMPLOYEE_ID1,LAST_NAME1)
	WRITE(6,100)EMPLOYEE_ID1,LAST_NAME1

	EMPLOYEE_ID2  = '00901'
	DEGREE = 'MASTERS'
	TYPE*,'********* Establish Connection 2 **********'
	CALL CONNECT_2(SQLCODE)
	TYPE*,'******** Inserting record 901 @ CONN 2 ******' 
	CALL INSERT_2(SQLCODE,EMPLOYEE_ID2,DEGREE)
	EMPLOYEE_ID2 = ' '
	DEGREE = ' '
	TYPE*,'******* Retrieving record 901 ******'
	CALL SELECT_2(SQLCODE,EMPLOYEE_ID2,DEGREE)
	WRITE(6,100)EMPLOYEE_ID2,DEGREE
*********
	EMPLOYEE_ID3 = '01501'
	SUPERVISOR   = 'JACOB'
	TYPE*,'********* Establish Connection 3 **********'
	CALL CONNECT_3(SQLCODE)
	TYPE*,'******** iNSERTING RECORD 1501 @ conn 3 ******'
	CALL INSERT_3(SQLCODE,EMPLOYEE_ID3,SUPERVISOR)
	EMPLOYEE_ID3 = ' '
	SUPERVISOR = ' '
	TYPE*,'******** Retrieving record 1501 ***** '
	CALL SELECT_3(SQLCODE,EMPLOYEE_ID3,SUPERVISOR)
	WRITE(6,100)EMPLOYEE_ID3,SUPERVISOR
	EMPLOYEE_ID4 = ' '
	LAST_NAME4   = ' '
	TYPE*,'************ eSTABLISH dEFAULT CONNECTION ******** '
	CALL CONNECT_D (SQLCODE)
	TYPE*,'******** Selecting record from default conn *****'	
	CALL SELECT_D(SQLCODE,EMPLOYEE_ID4,LAST_NAME4)
	WRITE(6,100)EMPLOYEE_ID4,LAST_NAME4
	TYPE*,'***** Disconnect 1 & default then try to find ***'
	TYPE*,'******* Uncommitted then Committed records ********'
	CALL DISCONNECT_1(SQLCODE)
	CALL DISCONNECT_D(SQLCODE)
	CALL CONNECT_1(SQLCODE)
	TYPE*,'***********  Retrieve Record 901 *************'
	TYPE*,'******* Record was not committed ==> no data ****'
	EMPLOYEE_ID1 = ' '
	LAST_NAME1   = ' '
	CALL SELECT_1(SQLCODE,EMPLOYEE_ID1,LAST_NAME1)
	TYPE*,'Employee_id & last_name :',employee_id1,last_name1
	EMPLOYEE_ID4 = ' '
	LAST_NAME4   = ' '
	CALL CONNECT_D(SQLCODE)
	CALL SELECT_D(SQLCODE,EMPLOYEE_ID4,LAST_NAME4)
	TYPE*,'****** Record 00164 is a Committed Record *****'
	WRITE(6,100)EMPLOYEE_ID4,LAST_NAME4
	TYPE*,'****** Disconnect all connections  *********'
	CALL DISCONNECT_ALL(SQLCODE)
100	FORMAT(A5,2X,A14)
	END