home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / tblcp2.zip / tblcop2i.bnd (.txt) < prev    next >
DB2 Bind  |  1993-10-28  |  3KB  |  60 lines
  1. TBLCOP2IAAGYWcKJUSERID  0
  2. INCLUDE SQLDA
  3. BEGIN DECLARE SECTION
  4. END   DECLARE SECTION
  5. Prepare SINSERT From :FAKESQLSTMT
  6. Prepare SINSERT From :FAKESQLSTMT
  7. Prepare SUPDATE From :FAKEUSQLSTMT
  8. Prepare SUPDATE From :FAKEUSQLSTMT
  9. Execute Immediate :FAKESQLSTMT
  10. Execute Immediate :FAKESQLSTMT
  11. Commit
  12. Execute Immediate :FAKESQLSTMT
  13. Execute Immediate :FAKESQLSTMT
  14. Commit
  15. Execute Immediate :FAKESQLSTMT
  16. Execute Immediate :FAKESQLSTMT
  17. Commit
  18. Execute Immediate :FAKESQLSTMT
  19. Execute Immediate :FAKESQLSTMT
  20. Commit
  21. Commit
  22. Execute SINSERT Using Descriptor :psqlda 
  23. RollBack
  24. Execute SUPDATE Using Descriptor :pusqlda 
  25. RollBack
  26. Prepare SCHECKSTRUCT Into :pssqlda  From :FAKESQLSTMT
  27. Prepare SCHECKSTRUCT Into :pssqlda  From :FAKESQLSTMT
  28. Prepare S1 Into :psqlda  From :FAKESQLSTMT
  29. BEGIN DECLARE SECTION
  30. END   DECLARE SECTION
  31. BEGIN DECLARE SECTION
  32. END   DECLARE SECTION
  33. SELECT CREATOR, NAME      INTO   :idxcreator, :idxname      FROM   SYSIBM.SYSINDEXES      WHERE      TBCREATOR = :tbcreator             AND TBNAME    = :tbname             AND UNIQUERULE = 'P'
  34. SELECT CREATOR, NAME        INTO   :idxcreator, :idxname        FROM   SYSIBM.SYSINDEXES        WHERE      TBCREATOR = :tbcreator               AND TBNAME    = :tbname               AND UNIQUERULE = 'P'
  35. SELECT CREATOR, NAME          INTO   :idxcreator, :idxname          FROM   SYSIBM.SYSINDEXES          WHERE      TBCREATOR = :tbcreator                 AND TBNAME    = :tbname                 AND UNIQUERULE = 'U'
  36. Declare CGETKEYCOLS Cursor For SGETKEYCOLS
  37. Prepare SGETKEYCOLS From :FAKEKSQLSTMT
  38. Open CGETKEYCOLS Using Descriptor :pkasqlda 
  39. Fetch CGETKEYCOLS Into :colnames
  40. Close CGETKEYCOLS
  41. Commit
  42. Declare CGETKEYCOLS2 Cursor For SGETKEYCOLS2
  43. Prepare SGETKEYCOLS2 From :FAKEKSQLSTMT
  44. Open CGETKEYCOLS2 Using Descriptor :pkasqlda 
  45. Fetch CGETKEYCOLS2 Into :colname
  46. Fetch CGETKEYCOLS2 Into :colnames
  47. Close CGETKEYCOLS2
  48. Commit
  49. FAKESQLSTMT
  50. FAKEUSQLSTMT
  51. colnames
  52. colname
  53. idxname
  54. idxname2
  55. tbname
  56. idxcreator
  57. idxcreator2
  58. tbcreator
  59. FAKEKSQLSTMT
  60.