From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f8c833a73601bbf9,start
X-Google-Attributes: gid103376,public
From: Dennis East <solution@erols.com>
Subject: New to ADA
Date: 1997/11/06
Message-ID: <346261AE.1B1F@erols.com>#1/1
X-Deja-AN: 287542212
X-Complaints-To: abuse@erols.com
X-Trace: winter.news.erols.com 878866769 21574 207.172.206.82 (7 Nov 1997
 01:39:29 GMT)
Organization: Dynamic Solutions Inc.
Reply-To: solution@erols.com
Newsgroups: comp.lang.ada
Date: 1997-11-06T00:00:00+00:00
List-Id: <comp.lang.ada>


Need some assistance getting started in ADA
In the following procedure I am getting 
"invalid parameter list in call" 
just trying to get a 3 character month string, and have made several
changes but seem to get one error followed by another.

-- Procedure to get the date in the format dd,mmm,yyyy

with gnat.io; use gnat.io;
procedure get_date is

type month_name;
type month_name is (Jan, Feb, Mar, Apr, May, Jun, Jly
   , Aug, Sep, Oct, Nov, Dec);
mon: month_name;

type date_record;
type date_ptr is access all date_record;
type date_record is
   record
      day: integer range 1..31;
      month: month_name;
      year: integer;
   end record;

D,date_rec: date_ptr;   

begin
   put("Please enter the desired date ");
   date_rec := new date_record;
   D := date_rec;
   get(D.all.day);
   put("Enter Month ");
   get(D.all.month);	-- Error occurs here
   D.all.month:=mon;
   put("Enter Year ");
   get(D.all.year);
   new_line;
   put("Date entered is ");
   put(D.all.day);
   put("-");
   put("D.all.month");
   put("-");
   put(D.all.year);
   new_line;
end get_date;

It is possible I'm overlooking the obvious, so another solution could be
used also.  In final package I will need to input name strings into a
linked list record, so I need something similar that works.

Thanks for any assistance.. Dennis