home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / CL_JUN89.ZIP / DEWOLF < prev    next >
Encoding:
Text File  |  1989-05-24  |  1.3 KB  |  69 lines
  1. (LISTING 1)
  2.  
  3. Program test;
  4.  
  5. type
  6.  
  7. Employee_rec =  record
  8.    PayrollNumber:   integer;
  9.    Name:            record
  10.      LastName:   string[15];
  11.      FirstName:  string[15];
  12.      MiddleInitial:    char;
  13.      end;
  14.    StreetAddress:   record
  15.      Street:     string[20];
  16.      City:       string[20];
  17.      State:      string[2];
  18.      Zip:        string[5];
  19.      end;
  20.    DepartmentCode:  record
  21.      Division:   integer;
  22.      Department: integer;
  23.      end;
  24.    HireDAte:        record
  25.      Month:      (Jan,Feb,Mar,Apr,May,Jun,
  26.                       Jul,Aug,Sep,Oct,Nov,Dec);
  27.      Day:        1..31;
  28.      Year:       integer;
  29.      end;
  30. end;
  31.  
  32. var
  33.  
  34.     Employees: file of Employee_rec;
  35.     Employee_buff:     Employee_rec;
  36.  
  37.  
  38. (LISTING 2)
  39.  
  40. Program test(input,output);
  41.  
  42. type
  43.  
  44.   Employee_rec = record
  45.     PayrollNumber:  integer;
  46.     Name:  record
  47.       LastName:    string[15];
  48.       FirstName:   string[15];
  49.       MiddleInitial:     char;
  50.       end;
  51.   end;
  52.  
  53. var
  54.  
  55.   Employees:         file of Employee_rec;
  56.   Employee_buff:    Employee_rec;
  57.  
  58. Begin
  59.   Assign(Employees,'EX.DAT');
  60.   reset(Employees);
  61.   repeat
  62.     read(Employees,Employee_buff);
  63.     with Employee_buff
  64.       do writeln(Name.LastName,' ',PayrollNumber);
  65.   until eof(Employees);
  66.   close(Employees);
  67. end.
  68.  
  69.