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 / SQLUPGSI.BND (.txt) < prev    next >
DB2 Bind  |  1992-10-23  |  2KB  |  32 lines
  1. SQLPC1A0JBAqSXKINULLID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. INCLUDE SQLCA
  7. SELECT FID, TYPE INTO :sqluigsi_fid, :sqluigsi_type FROM           SYSIBM.SYSTABLES WHERE NAME=:sqluigsi_table AND           CREATOR=:sqluigsi_creator
  8. DECLARE cindex CURSOR FOR               SELECT NAME, CREATOR FROM SYSIBM.SYSINDEXES WHERE               TBNAME=:sqluigsi_table AND TBCREATOR=:sqluigsi_creator
  9. OPEN cindex
  10. FETCH cindex INTO :sqluigsi_iname,                             :sqluigsi_icreate
  11. EXECUTE IMMEDIATE :sqluigsi_drop_str
  12. CLOSE cindex
  13. SELECT TYPE, CHILDREN, SELFREFS INTO             :sqluiref_type, :sqluiref_children:sqluiref_children_ind,             :sqluiref_selfrefs:sqluiref_selfrefs_ind FROM             SYSIBM.SYSTABLES WHERE NAME=:sqluiref_table AND             CREATOR=:sqluiref_creator
  14. SELECT BTYPE, BCREATOR, BNAME INTO                   :sqluiref_type, :sqluiref_creator, :sqluiref_table                   FROM SYSIBM.SYSVIEWDEP WHERE DNAME=:sqluiref_dtable                   AND  DCREATOR=:sqluiref_dcreator
  15. SELECT CHILDREN, SELFREFS INTO                   :sqluiref_children:sqluiref_children_ind,                   :sqluiref_selfrefs:sqluiref_selfrefs_ind FROM                   SYSIBM.SYSTABLES WHERE NAME=:sqluiref_table AND                   CREATOR=:sqluiref_creator
  16. sqluigsi_drop_str
  17. sqluigsi_table
  18. sqluigsi_creator
  19. sqluigsi_fid
  20. sqluigsi_type
  21. sqluigsi_iname
  22. sqluigsi_icreate
  23. sqluiref_table
  24. sqluiref_creator
  25. sqluiref_dtable
  26. sqluiref_dcreator
  27. sqluiref_type
  28. sqluiref_children
  29. sqluiref_children_ind
  30. sqluiref_selfrefs
  31. sqluiref_selfrefs_ind
  32.