-- Copyright © Oracle Corporation 1995.  All Rights Reserved.
-- This SQL module provides the SQL procedures needed to start, execute, and 
-- terminate connections.
--

-------------------------------------------------------------------------------
-- Header information 
-------------------------------------------------------------------------------
MODULE sql$connections_f	-- Module name
LANGUAGE  FORTRAN		-- Language of calling program
PARAMETER COLONS                -- Parameters are prefixed by colons
-------------------------------------------------------------------------------
 DECLARE         ALIAS FILENAME personnel
 DECLARE ALIAS_1 ALIAS FILENAME personnel
 DECLARE ALIAS_2 ALIAS FILENAME personnel
 DECLARE ALIAS_3 ALIAS FILENAME personnel
-------------------------------------------------------------------------------
-- Procedure Section
-------------------------------------------------------------------------------
PROCEDURE DISCONNECT_D
	SQLCODE;
DISCONNECT DEFAULT;
	
PROCEDURE CONNECT_1 
	SQLCODE;
CONNECT TO 'ALIAS ALIAS_1 FILENAME personnel' AS 'A1';

PROCEDURE CONNECT_2
	SQLCODE;
CONNECT TO 'ALIAS ALIAS_2 FILENAME personnel' AS 'A2';

PROCEDURE CONNECT_3
	SQLCODE;
CONNECT TO 'ALIAS ALIAS_3 FILENAME personnel' AS 'A3';

PROCEDURE CONNECT_D
	SQLCODE;
SET CONNECT DEFAULT;

PROCEDURE INSERT_1 
	SQLCODE
	:EMPLOYEE_ID1  CHAR(5)
	:LAST_NAME1    CHAR(14);
INSERT INTO ALIAS_1.EMPLOYEES (EMPLOYEE_ID,LAST_NAME)
VALUES (:EMPLOYEE_ID1,:LAST_NAME1);

PROCEDURE SELECT_1
	SQLCODE
	:EMPLOYEE_ID1 CHAR(5)
	:LAST_NAME1   CHAR(14);
SELECT EMPLOYEE_ID, LAST_NAME INTO :EMPLOYEE_ID1,:LAST_NAME1
FROM ALIAS_1.EMPLOYEES WHERE EMPLOYEE_ID = '00301';

PROCEDURE INSERT_2
	SQLCODE
	:EMPLOYEE_ID2    CHAR(5)
	:DEGREE	        CHAR(14);
INSERT INTO ALIAS_2.DEGREES(EMPLOYEE_ID,DEGREE_FIELD)
VALUES (:EMPLOYEE_ID2,:DEGREE);

PROCEDURE SELECT_2
	SQLCODE
	:EMPLOYEE_ID2    CHAR(5)
	:DEGREE	        CHAR(14);

SELECT EMPLOYEE_ID, DEGREE_FIELD INTO :EMPLOYEE_ID2,:DEGREE
FROM ALIAS_2.DEGREES WHERE EMPLOYEE_ID = '00901';

PROCEDURE INSERT_3
	SQLCODE
	:EMPLOYEE_ID3    CHAR(5)
	:SUPERVISOR      CHAR(5);
INSERT INTO ALIAS_3.JOB_HISTORY (EMPLOYEE_ID,SUPERVISOR_ID)
VALUES (:EMPLOYEE_ID3,:SUPERVISOR);

PROCEDURE SELECT_3
	SQLCODE 
	:EMPLOYEE_ID3   CHAR(5)
	:SUPERVISOR     CHAR(5);
SELECT EMPLOYEE_ID, SUPERVISOR_ID INTO :EMPLOYEE_ID3,:SUPERVISOR
FROM ALIAS_3.JOB_HISTORY WHERE EMPLOYEE_ID = '01501';

PROCEDURE SELECT_D
	SQLCODE
	:EMPLOYEE_ID4   CHAR(5)
	:LAST_NAME4     CHAR(14);
SELECT EMPLOYEE_ID, LAST_NAME INTO :EMPLOYEE_ID4,:LAST_NAME4
FROM EMPLOYEES WHERE EMPLOYEE_ID = '00164';

PROCEDURE DISCONNECT_1
	SQLCODE;
	DISCONNECT 'A1';

PROCEDURE DISCONNECT_ALL
	SQLCODE;
	DISCONNECT ALL;