home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / GPF.ZIP / SAMPLE.SRC / SOURCES.ZIP / SAMPLE1.BND (.txt) < prev    next >
DB2 Bind  |  1991-04-02  |  1KB  |  33 lines
  1. SAMPLE1 fAr4RCEHUSERID  0
  2. INCLUDE SQLCA
  3. INCLUDE SQLDA
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. DECLARE CURSOR_10119 CURSOR FOR SELECT           DEPTNAME,           DEPTNUMB,           DIVISION,           LOCATION,           MANAGER           FROM ORG 
  7. OPEN CURSOR_10119
  8. FETCH CURSOR_10119 INTO      :ORG_DEPTNAME :ORG_DEPTNAME_N,      :ORG_DEPTNUMB,      :ORG_DIVISION :ORG_DIVISION_N,      :ORG_LOCATION :ORG_LOCATION_N,      :ORG_MANAGER :ORG_MANAGER_N
  9. CLOSE CURSOR_10119
  10. COMMIT WORK
  11. ORG_DEPTNAME
  12. ORG_DEPTNAME_N
  13. ORG_DEPTNUMB
  14. ORG_DIVISION
  15. ORG_DIVISION_N
  16. ORG_LOCATION
  17. ORG_LOCATION_N
  18. ORG_MANAGER
  19. ORG_MANAGER_N
  20. STAFF_COMM
  21. STAFF_COMM_N
  22. STAFF_DEPT
  23. STAFF_DEPT_N
  24. STAFF_ID
  25. STAFF_JOB
  26. STAFF_JOB_N
  27. STAFF_NAME
  28. STAFF_NAME_N
  29. STAFF_SALARY
  30. STAFF_SALARY_N
  31. STAFF_YEARS
  32. STAFF_YEARS_N
  33.