home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
cmplangm
/
1989_6
/
dewolf
< prev
next >
Wrap
Text File
|
1989-05-24
|
1KB
|
69 lines
(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.