home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 6 / IOPROG_06.ISO / trial / pb / server / pbibm5.bnd (.txt) < prev    next >
Encoding:
DB2 Bind  |  1996-04-19  |  1.1 KB  |  27 lines
  1. PBIBM5  WAAXRTEMPES500  3
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. PREPARE viewstmt FROM :cSQLBuffer
  6. DECLARE viewcur CURSOR FOR viewstmt
  7. OPEN viewcur USING :tabname_in, :owner_in
  8. FETCH viewcur INTO :seqno, :cSQLBuffer
  9. CLOSE viewcur
  10. PREPARE pbtab_query FROM :cSQLBuffer
  11. DECLARE pbtab_cursor CURSOR FOR pbtab_query
  12. OPEN pbtab_cursor USING :tabname_in, :owner_in
  13. FETCH pbtab_cursor INTO :tabname
  14. CLOSE pbtab_cursor
  15. PREPARE pbcol_query FROM :cSQLBuffer
  16. DECLARE pbcol_cursor CURSOR FOR pbcol_query
  17. OPEN pbcol_cursor USING :tabname_in, :owner_in, :colname_in
  18. FETCH pbcol_cursor INTO :tabname
  19. CLOSE pbcol_cursor
  20. cSQLBuffer
  21. tabname
  22. tabname_in
  23. owner
  24. owner_in
  25. colname_in
  26. seqno
  27.