home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PRECOM.ZIP / SAMPLE.ZIP / SAMPLE.BND (.txt) < prev    next >
DB2 Bind  |  1992-09-28  |  2KB  |  37 lines
  1. sample  GAizMcJIED      0
  2. BEGIN DECLARE SECTION 
  3. END DECLARE SECTION 
  4. INCLUDE SQLDA 
  5. DECLARE GetOrgLst CURSOR FOR    SELECT * FROM ORG 
  6. DECLARE GetStaffLst CURSOR FOR    SELECT * FROM STAFF    WHERE DEPT=:DeptNbr 
  7. DECLARE GetOrg CURSOR FOR    SELECT * FROM ORG    WHERE DEPTNUMB = :DeptNbr 
  8. DECLARE GetStats CURSOR FOR    SELECT AVG(SALARY), MIN(SALARY),           MAX(SALARY),SUM(SALARY)    FROM STAFF    WHERE DEPT = :DeptNbr 
  9. OPEN  GetStaffLst 
  10. FETCH GetStaffLst INTO             :ID,:Name :NameNul,:DeptNbr :DeptNul,:Job :JobNul,:Years:YearNul,      :Salary:SalNul,:Comm:ComNul 
  11. CLOSE GetStaffLst 
  12. OPEN GetStats 
  13. FETCH GetStats INTO         :AvgSalary,:MinSalary,:MaxSalary,:TotalSalary 
  14. CLOSE GetStats 
  15. OPEN GetOrgLst 
  16. FETCH GetOrgLst INTO       :DeptNbr,:DeptName,:Manager,:Division,       :Location 
  17. CLOSE getOrgLst 
  18. DeptNbr
  19. Years
  20. Salary
  21. NameNul
  22. DeptNul
  23. JobNul
  24. YearNul
  25. SalNul
  26. ComNul
  27. DeptNbr
  28. DeptName
  29. Manager
  30. Division
  31. Location
  32. MgrName
  33. TotalSalary
  34. AvgSalary
  35. MinSalary
  36. MaxSalary
  37.