home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PRECOM.ZIP / SAMPLE.ZIP / SAMPLE.DEF < prev    next >
Text File  |  1992-10-02  |  1KB  |  61 lines
  1. DEFINITION MODULE Sample;
  2.  
  3. FROM Lists IMPORT StrElmt,GenList;
  4. FROM LstBox IMPORT ListBox;
  5.  
  6. TYPE
  7.  
  8. (****
  9. EXEC SQL BEGIN DECLARE SECTION;
  10. ***)
  11.  
  12.  
  13. CLASS Staff(StrElmt);    (* staff object *)
  14.   ID : CARDINAL;
  15.   Name: ARRAY[0..14] OF CHAR;
  16.   DeptNbr : CARDINAL;
  17.   Job : ARRAY[0..10] OF CHAR;
  18.   Years : CARDINAL;
  19.   Salary: LONGREAL;
  20.   Comm  : LONGREAL;
  21.  
  22.   NameNul : CARDINAL;
  23.   DeptNul : CARDINAL;
  24.   JobNul  : CARDINAL;
  25.   YearNul : CARDINAL;
  26.   SalNul  : CARDINAL;
  27.   ComNul  : CARDINAL;
  28.   PROCEDURE MakeDisplayLine();
  29.  
  30. END Staff;
  31.  
  32. CLASS Org(StrElmt);   (* Org unit object *)
  33.   DeptNbr : CARDINAL;
  34.   DeptName: ARRAY[0..40] OF CHAR;
  35.   Manager : CARDINAL;
  36.   Division: ARRAY[0..30] OF CHAR;
  37.   Location: ARRAY[0..30] OF CHAR;
  38.   MgrName : ARRAY[0..30] OF CHAR;
  39.   StaffLst: ListBox;
  40.   TotalSalary : LONGREAL;      (* summaries from staff records *)
  41.   AvgSalary   : LONGREAL;
  42.   MinSalary   : LONGREAL;
  43.   MaxSalary   : LONGREAL;
  44.   PROCEDURE GetStaffList();
  45.   PROCEDURE MakeDisplayLine();
  46. END Org;
  47.  
  48.  
  49. (****
  50. EXEC SQL END DECLARE SECTION;
  51. ***)
  52.  
  53. VAR
  54.   DispLine : ARRAY[0..80] OF CHAR;
  55.  
  56. PROCEDURE GetOrgLst(VAR TheList : GenList);
  57.  
  58.  
  59. END Sample.
  60.  
  61.