DEFINE RECORD PROB_RECORD.
PROB_RECORD STRUCTURE.
   ID_NUMBER		DATATYPE IS UNSIGNED NUMERIC
			SIZE IS 7 DIGITS.

   LAST_NAME		DATATYPE IS TEXT
			SIZE IS 15 CHARACTERS.

   FIRST_NAME		DATATYPE IS TEXT
			SIZE IS 10 CHARACTERS.

   MIDDLE_INTIAL	DATATYPE IS TEXT
			SIZE IS 1 CHARACTER.

   TITLE_OF_ADDRESS	DATATYPE IS TEXT
			SIZE IS 4 CHARACTERS.

   SENIORITY 		DATATYPE IS TEXT
			SIZE IS 4 CHARACTERS.

   ADDR			DATATYPE IS TEXT
			SIZE IS 15.

   CITY			DATATYPE IS TEXT	
			SIZE IS 12.

   STATE		DATATYPE IS TEXT	
			SIZE IS 2 CHARACTERS.

   ZIP_CODE		DATATYPE IS NUMERIC
			SIZE IS 5 DIGITS.   


END PROB_RECORD STRUCTURE.
END PROB_RECORD RECORD.