home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / GPF.ZIP / SAMPLE.SRC / SOURCES.ZIP / SAMPLE.BND (.txt) < prev    next >
DB2 Bind  |  1991-04-02  |  1KB  |  33 lines
  1. SAMPLE  2AQ2RCEHUSERID  0
  2. INCLUDE SQLCA
  3. INCLUDE SQLDA
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. DECLARE CURSOR_10055 CURSOR FOR SELECT           ID,           NAME,           DEPT,           JOB,           SALARY,           COMM           FROM STAFF 
  7. OPEN CURSOR_10055
  8. FETCH CURSOR_10055 INTO      :STAFF_ID,      :STAFF_NAME :STAFF_NAME_N,      :STAFF_DEPT :STAFF_DEPT_N,      :STAFF_JOB :STAFF_JOB_N,      :STAFF_SALARY :STAFF_SALARY_N,      :STAFF_COMM :STAFF_COMM_N
  9. CLOSE CURSOR_10055
  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.