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 / SQLUPMPM.BND (.txt) < prev    next >
DB2 Bind  |  1992-10-23  |  882b  |  22 lines
  1. SQLPF1A0ZBvqSXKINULLID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END  DECLARE SECTION
  5. PREPARE DELETETBL FROM :sqlui_del_string
  6. EXECUTE IMMEDIATE :sqlui_lock_table
  7. EXECUTE IMMEDIATE :sqlui_lock_table
  8. EXECUTE IMMEDIATE :sqlui_lock_table
  9. PREPARE SELNAME  INTO :sqlda  FROM :sqlui_xx
  10. PREPARE selname INTO :sqlda  FROM :sqlui_xx
  11. EXECUTE IMMEDIATE :sqlui_del_string
  12. PREPARE insname FROM :sqlui_xx
  13. EXECUTE insname USING DESCRIPTOR :sqlda 
  14. PREPARE insname FROM :sqlui_xx
  15. EXECUTE insname USING DESCRIPTOR :sqlda 
  16. COMMIT
  17. ROLLBACK
  18. sqlui_xx
  19. deletetable
  20. sqlui_del_string
  21. sqlui_lock_table
  22.