home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / tblcp2.zip / tblcop2e.bnd (.txt) < prev    next >
DB2 Bind  |  1993-10-28  |  540b  |  15 lines
  1. TBLCOP2EgAwXWcKJUSERID  0
  2. INCLUDE SQLDA
  3. BEGIN DECLARE SECTION
  4. END   DECLARE SECTION
  5. Declare C1 Cursor For S1
  6. Prepare S1 Into :psqlda  From :FAKESQLSTMT
  7. Prepare S1 Into :psqlda  From :FAKESQLSTMT
  8. Prepare S1 Into :psqlda  From :FAKESQLSTMT
  9. Open C1
  10. Close C1
  11. Fetch C1 Using Descriptor :psqlda 
  12. Fetch C1 Using Descriptor :psqlda 
  13. Commit
  14. FAKESQLSTMT
  15.