Category : Files from Magazines
Archive   : CL-JUN89.ZIP
Filename : DEWOLF

(LISTING 1)

Program test;

type

Employee_rec = record
PayrollNumber: integer;
Name: record
LastName: string[15];
FirstName: string[15];
MiddleInitial: char;
end;
StreetAddress: record
Street: string[20];
City: string[20];
State: string[2];
Zip: string[5];
end;
DepartmentCode: record
Division: integer;
Department: integer;
end;
HireDAte: record
Month: (Jan,Feb,Mar,Apr,May,Jun,
Jul,Aug,Sep,Oct,Nov,Dec);
Day: 1..31;
Year: integer;
end;
end;

var

Employees: file of Employee_rec;
Employee_buff: Employee_rec;


(LISTING 2)

Program test(input,output);

type

Employee_rec = record
PayrollNumber: integer;
Name: record
LastName: string[15];
FirstName: string[15];
MiddleInitial: char;
end;
end;

var

Employees: file of Employee_rec;
Employee_buff: Employee_rec;

Begin
Assign(Employees,'EX.DAT');
reset(Employees);
repeat
read(Employees,Employee_buff);
with Employee_buff
do writeln(Name.LastName,' ',PayrollNumber);
until eof(Employees);
close(Employees);
end.