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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,cdc097a86b9c8e55,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-12-03 15:00:20 PST
Path: 
 bga.com!news.sprintlink.net!hookup!newshost.marcam.com!news.kei.com!bloom-beacon.mit.edu!news.bu.edu!acs3.bu.edu!heiser
From: heiser@acs3.bu.edu (Bill Heiser)
Newsgroups: comp.lang.ada
Subject: passing an array
Date: 3 Dec 1994 22:52:56 GMT
Organization: Boston University, Boston, MA, USA
Distribution: world
Message-ID: <3bqss8$2v2@news.bu.edu>
NNTP-Posting-Host: acs3.bu.edu
Originator: heiser@acs3.bu.edu
Date: 1994-12-03T22:52:56+00:00
List-Id: <comp.lang.ada>

Given a setup like the following in one procedure:

  type employee is
    record
      id: integer;
      name: string(1..5);
      dept: string(1..5);
      salary: float;
    end record;

  emprec: employee;
  emp_a: array(1..50) of employee;


How can I pass the emp_a array to another function so that in the
called procedure I can change emp_a records by referencing them
as emp_a(n).id and so forth?

Thanks in advance.
Bill
-- 
Bill Heiser    heiser@acs.bu.edu, heiser@world.std.com
               Boston University, Boston MA