Re: need help with errors im getting

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

Thanks Dennis for you time and valuable sujjestions.

I have changed my code now but having error in one of the procedures to
get Employee Hired date.
-------------------------------------------------------------
Testing.Ads
-------------------------------------------------------------
with Date_pack; use Date_pack;

package testing is


type sex1 is (male, female);
subtype String20 is String(1..20);

type person is abstract tagged limited private;
procedure PersonDetails(p: in out Person ; name1: String20; dob: Date;
s: sex1);
procedure printName(person_name: Person);

type Employee is abstract tagged limited private;
procedure EmployeeDetails(e: in out Employee; name2: String20;
dob:Date; s: sex1);
procedure printDateHired(dh: Employee);

private
Year, Day : INTEGER;
MOnth : Month_name;

type person is abstract tagged limited

record
Name : String20;
BirthDate : Date := (January,1,1970);
Sex : Sex1;
end record;
---------------------------------------------------------------
Testing.Adb
--------------------------------------------------------------
with Ada.Text_IO; use Ada.Text_IO;
with Date_pack; use Date_pack;
--with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

--with testing; use testing;

package body testing is

procedure PersonDetails( p: in out Person;name1: String20; dob: Date;
s: sex1) is

begin
p.name := name1;
p.sex := s;
p.BirthDate:= dob;
end;

procedure printName(person_name: Person) is

begin
for i in 1..String20'Last loop
put(Person_name.name(i));
end loop;
end;

procedure EmployeeDetails(e: in out Employee; name2: String20;
dob:Date; s: sex1) is
begin
e.name := name2;
e.sex := s;
e.BirthDate := dob;
end;

procedure printDateHired(dh : Employee) is
begin
put(dh.DateHired);----- Getting error here"invalid parameter list in
call"
--put(dh);
--Put(Month,10);Put("/"); Put(Day,3);Put("/"); Put(Year,5);

end;

end testing;
------------------------------------------------------------
Error: "Invalid Parameter list in call" --marked as seen above  for
line
--------------------------------------------------------------------


If you wanna look at Date_pack

Date_pack.Ads
---------------------------------------------

package Date_pack is

type Month_name is (January, February, March, April, May, June, July,
August, September, October, November, December);
--subtype month_name is integer range 1..12;--to change it into
Jan,feb,mar,... refer page 51 of AdaTagged1.doc
subtype day_range is integer range 1..31;
subtype year_range is integer range 1800..2050;

type Date is

record
month: month_name;
day: day_range;--Integer range 1..31;
year: year_range;--Integer range 1800..2050;
end record;

procedure CreateADate;
procedure CreateADate(d: in out Date; mm : month_name; dd : day_range;
yy : year_range);
procedure SetDate(d: in out Date; mm : month_name; dd : day_range; yy :
year_range);
Procedure GetDate(d: in out Date);
procedure GetMonth(d: in out Date);
procedure GetDay(d: in out Date);
procedure GetYear(d: in out Date);

end Date_pack;

---------------------------------------------------------------
Im still working on Student package as i wanted to do using tasks,
Please help with it.
--------------------------------------------------------