:

Program.         Group-Life.
Author.          J.P.E. Hodgson
Date.            2000/02/01

Narrative.

This program reads a file of information on
insurance policies. For each policy holder who
has a group life policy it prints the name of the holder,
effective data, expiration date, rate, and policy premium.

At he end of the file it  prints the total of all Group life
premiums.


Initialization.

	Open files
        set total-premiums to zero
	Read first record

Processing.

	DO while more data remains
	   IF policy holder has a GL policy
              DO
                 calculate GL policy premium
                 write name, effective date, expiration date, rate,
                      and premium
                 add premium to total-premiums
              ENDO
           ENDIF
           read next record
       ENDO

Termination

	write total-premiums
        close files
        stop run.