MODULE record_example;

    TYPE name : OVERLAY
		    parts_of_name : RECORD
				    first : FIXED STRING (15),
				    middle : FIXED STRING (15),
				    last : FIXED STRING (30),
				END RECORD,
		    full_name : FIXED STRING (60),
		END OVERLAY;

    DECLARE marriage : RECORD
			   husband : name,
			   wife : name,
			   anniversary : FIXED STRING (21),
			   number_of_children : INTEGER,
			   any_pets: BOOLEAN,
		       END RECORD;

    PROCEDURE record_example MAIN;

    	marriage.husband.parts_of_name.last = 'Bush';
    	marriage.husband.parts_of_name.middle = '';
    	marriage.husband.parts_of_name.first = 'George';

	marriage.wife = marriage.husband;
    	marriage.wife.parts_of_name.first = 'Barbara';

	WRITE marriage.husband.full_name;
	WRITE marriage.wife.full_name;

    END PROCEDURE /* record_example */;

END MODULE /* record_example */;