/*
 * A database entry.
 */
dcl 1 entry union based,
    2 entry_string char(266),
    2 fields,
	3 name union,
	    4 full_name char(65),
	    4 pieces,
		5 last character(32),
		5 space character(1),
		5 first character(32),
	3 address1 character(60),
	3 address2 character(60),
	3 city character(32),
	3 state character(2),
	3 zip character(5),
	3 home_phone union,
	    4 full character(10),
	    4 parts,
		5 area_code character(3),
		5 exchange character(3),
		5 number character(4),
	3 office_phone union,
	    4 full character(10),
	    4 parts,
		5 area_code character(3),
		5 exchange character(3),
		5 number character(4),
	3 extension character(4),
	3 birthdate union,
	    4 full character(9),
	    4 parts,
		5 date_union union,
		    6 date character(5),
		    6 fields,
			7 day character(2),
			7 month character(3),
		5 year character(4),
	3 anniversary union,
	    4 full character(9),
	    4 parts,
		5 date_union union,
		    6 date character(5),
		    6 fields,
			7 day character(2),
			7 month character(3),
		5 year character(4);