Re: need help with errors im getting

["ramesh" <ramesh.mudedla@gmail.com>]

Hi can anybody help me with the linked attributes part, I have to
create a link attribute between Department and Faculty which has
Faculty's Title and salary.

Titles: Chair, Professor, Assistant Professor, Lecturer.

A department can have atmost 10 Faculty. A Faculty can work for no more
than 2 departments.

The Faculty has one more linked attribute of Faculty's Rating. The
chair is responsible for the rating.
chair(0..1) and Prof(0..9)

According to me the relation between Department and Faculty is m:n,
and relation between chair and prof is 1:m, i have no idea how to
acheive this.
i wrote a code right now for 1:1 relation ship

specification:

type Hire_data_type;
type Hire_Data_pointer is access Hire_Data_type;

type Hire_data_Type is record
JOb_title : JOb_Title_Type := none;
Salary : Money := 0.00;
Faculty_p : Faculty_ptr;
end record;

Body:

procedure Hire(aDepartment : in out Dept_ptr; aFaculty : in out
Faculty_ptr; aHire : in out Hire_Data_pointer; aTitle : in
Job_Title_Type;aSalary: Money) is
Hire_Data_Pt: Hire_Data_Pointer;
begin
Hire_Data_Pt := new Hire_Data_Type;
aDepartment.Faculty_pt := Hire_Data_pt;
Hire_Data_pt.Faculty_p := aFaculty;
Hire_Data_pt.Job_Title := aTitle;
Hire_Data_pt.salary := aSalary;
end Hire;

Can anybody help me how to proceed with this.

Thanks.