C Copyright © Oracle Corporation 1995.  All Rights Reserved.
C This subroutine, called by the program SQL$DIST_TRANS.FOR, adds 
C employee records to the Oracle CODASYL DBMS database.

	SUBROUTINE dbms_add (
	1		employee_id,
	2		last_name,
	3		first_name,
	4		tid)

	CHARACTER employee_id*5,last_name*14,first_name*10
	INTEGER*4 id,tid(4)

	INVOKE(subschema = partss4,
	1	schema = parts, 
	2	database = 2pcdbms)

* Put the data into the record.
	READ (employee_id, '(i5)') id

 	EMP_ID = id
 	EMP_LAST_NAME = last_name
 	EMP_FIRST_NAME = first_name
 	EMP_PHONE = '5551234'
 	EMP_LOC = '99999'

	ready (concurrent, update, transaction=tid)

	PRINT *, '  Storing the record in 2pcdbms database'
	store (record = EMPLOYEE)

	RETURN
	END