* Copyright © Oracle Corporation 1995.  All Rights Reserved. 
IDENTIFICATION DIVISION.
PROGRAM-ID.   DEPTS.                                                     
*
*	Loads DEPARTMENT Relation to PERSONNEL database
*
*
AUTHOR.   DWT.
INSTALLATION.                                                            
                                                                         
ENVIRONMENT DIVISION.

CONFIGURATION SECTION.
SOURCE-COMPUTER. VAX-11.                                                 
OBJECT-COMPUTER. VAX-11.                                                 
INPUT-OUTPUT SECTION.
FILE-CONTROL.
                                                                         
        SELECT DEPT-FILE  ASSIGN TO "rdm$demo:DEPTS.DAT"
        ORGANIZATION IS SEQUENTIAL                                       
        ACCESS MODE IS SEQUENTIAL                                        
        .
DATA DIVISION.

FILE SECTION.

FD DEPT-FILE                                                             
LABEL RECORDS ARE STANDARD                                               
RECORD CONTAINS 45  CHARACTERS.

01  DEPT-REC.
	02 D-CODE		PIC X(4).
	02 FIL			PIC X(3).
	02 D-NAME		PIC X(30).
	02 FIL			PIC X(3).
	02 D-MANAGER_ID		PIC X(5).

WORKING-STORAGE SECTION.

01 STAT				PIC S9(9) USAGE IS COMP.
01 FLAGS			PIC X.
	88 END-OF-FILE		VALUE "Y".
	88 NOT-END-OF-FILE	VALUE "N".

*	Invoke the database

&RDB& 	INVOKE DATABASE FILENAME 'PERSONNEL'

PROCEDURE DIVISION.
	
*	Program DEPTS reads new Department data and STORES it
*	in the Department Relation of PERSONNEL database

START-UP.

	SET NOT-END-OF-FILE TO TRUE.
	OPEN INPUT DEPT-FILE .
	DISPLAY "Program: Loading DEPARTMENTS ".

&RDB& 	START_TRANSACTION READ_WRITE RESERVING 
&RDB&	DEPARTMENTS FOR EXCLUSIVE WRITE

*	Start Program: DEPTS
	.

MAIN-LINE.

	PERFORM LOAD THRU LOAD-EXIT UNTIL END-OF-FILE.

999-EOJ.

*	End of Program: DEPTS

	DISPLAY "Program: DEPARTMENTS Loaded. Normal End-of-Job".
*	Now commit the transaction

&RDB& 	COMMIT

	CLOSE DEPT-FILE .

	STOP RUN.

*****************************************************************
*                    <<< Subroutines >>>                        *
*****************************************************************

LOAD.
	PERFORM READ-DEPTS THRU READ-DEPTS-EXIT.
	PERFORM STORE-DEPTS THRU STORE-DEPTS-EXIT.
	PERFORM CLEAR-IT THRU CLEAR-IT-EXIT.

LOAD-EXIT.

READ-DEPTS.

	READ DEPT-FILE AT END SET END-OF-FILE TO TRUE
		GO TO LOAD-EXIT.

READ-DEPTS-EXIT.
	EXIT.

STORE-DEPTS.
	
&RDB& 	STORE D IN DEPARTMENTS
&RDB&        USING 
&RDB&	 	D.DEPARTMENT_CODE 	= D-CODE;
&RDB&        	D.DEPARTMENT_NAME 	= D-NAME;
&RDB&        	D.MANAGER_ID 		= D-MANAGER-ID;
&RDB&	 END_STORE
	.

STORE-DEPTS-EXIT.
	EXIT.
CLEAR-IT.

*	Clear out input record area before next read

	MOVE SPACES TO DEPT-REC.

CLEAR-IT-EXIT.
	EXIT.