home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / w / wr06015.zip / WR06015.SPK / SQLUPEXP.BND (.txt) < prev    next >
DB2 Bind  |  1992-10-23  |  1KB  |  22 lines
  1. SQLPG1A0fBspSXKINULLID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. INCLUDE SQLCA
  5. COMMIT
  6. DECLARE tablecur CURSOR FOR                SELECT TYPE FROM SYSIBM.SYSTABLES WHERE                NAME=:sqlur_tname AND CREATOR=:sqlur_t_create
  7. OPEN tablecur
  8. FETCH tablecur INTO :sqlur_type
  9. CLOSE tablecur
  10. DECLARE indexcur CURSOR FOR               SELECT COLNAMES, COLCOUNT FROM SYSIBM.SYSINDEXES WHERE               NAME=:sqlur_iname AND TBNAME=:sqlur_tname AND               CREATOR=:sqlur_i_create AND TBCREATOR=:sqlur_t_create
  11. OPEN indexcur
  12. FETCH indexcur INTO :sqlur_columns, :sqlur_colnum
  13. CLOSE indexcur
  14. sqlur_columns
  15. sqlur_colnum
  16. sqlur_iname
  17. sqlur_tname
  18. sqlur_i_create
  19. sqlur_t_create
  20. sqlur_type
  21. sqlur_sql_string
  22.