* Copyright © Oracle Corporation 1995.  All Rights Reserved. 
IDENTIFICATION DIVISION.
PROGRAM-ID.   NEWCOL.                                                     

*	Loads College Relation in PERSONNEL database

AUTHOR.   DWT/CJM.
INSTALLATION.                                                            
                                                                         
ENVIRONMENT DIVISION.

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

FILE SECTION.

FD COLL-FILE                                                             
LABEL RECORDS ARE STANDARD                                               
RECORD CONTAINS 68 CHARACTERS.

01  COLL-REC.
	02 COL-CODE			PIC X(4).
	02 FIL				PIC X(3).
	02 COL-NAME			PIC X(25).
	02 FIL				PIC X(3).
	02 CITY				PIC X(20).
	02 FIL				PIC X(3).
	02 STATE			PIC X(2).
	02 FIL				PIC X(3).
	02 POSTAL_CODE			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 NEWCOL reads new College data and stores it
*	in the COLLEGES Relation of PERSONNEL database

START-UP.

	SET NOT-END-OF-FILE TO TRUE.
	OPEN INPUT COLL-FILE .

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

*	Start Program: COLLEGES

	DISPLAY "Program: Loading COLLEGES ".

MAIN-LINE.

        READ COLL-FILE AT END GO TO 999-EOJ.

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

999-EOJ.

*	End of Program: COLLEGES

	DISPLAY "Program: COLLEGES Loaded. Normal End-of-Job".

&RDB&	COMMIT

	CLOSE COLL-FILE.

	STOP RUN.

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

LOAD.

&RDB&	STORE C IN COLLEGES
&RDB&	USING 
&RDB&	C.COLLEGE_CODE	= COL-CODE;
&RDB&	C.COLLEGE_NAME 	= COL-NAME;
&RDB&	C.CITY		= CITY;
&RDB&	C.STATE		= STATE;
&RDB&	C.POSTAL_CODE	= POSTAL_CODE;
&RDB&	END_STORE

*	Clear input record area before next read

	MOVE SPACES TO COLL-REC.

	READ COLL-FILE AT END SET END-OF-FILE TO TRUE.

LOAD-EXIT.
	EXIT.