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