home *** CD-ROM | disk | FTP | other *** search
/ Power GUI Programming with VisualAge C++ / powergui.iso / trialva / ibmcppw / bnd / cppwacl2.bnd (.txt)
Encoding:
DB2 Bind  |  1996-02-22  |  3.6 KB  |  62 lines
  1. BIND V02
  2. DAXSCL2 FAf2FXCMNULLID  0
  3. NULLID  
  4. INCLUDE SQLCA
  5. INCLUDE SQLDA
  6. BEGIN DECLARE SECTION
  7. END DECLARE SECTION
  8. WHENEVER SQLERROR GO TO error
  9. CONNECT TO :db_name IN SHARE MODE USER :user_name USING :auth_name
  10. CONNECT TO :db_name IN EXCLUSIVE MODE  USER :user_name USING :auth_name
  11. WHENEVER SQLERROR CONTINUE
  12. BEGIN DECLARE SECTION
  13. END DECLARE SECTION
  14. WHENEVER SQLERROR GO TO error
  15. DISCONNECT :db_name2
  16. WHENEVER SQLERROR CONTINUE
  17. BEGIN DECLARE SECTION
  18. END DECLARE SECTION
  19. WHENEVER SQLERROR GO TO ext
  20. EXECUTE IMMEDIATE :hostvar
  21. WHENEVER SQLERROR CONTINUE
  22. BEGIN DECLARE SECTION
  23. END DECLARE SECTION
  24. WHENEVER SQLERROR GO TO ext
  25. PREPARE PSTMT1_NAME FROM :pstmt1_str
  26. DESCRIBE PSTMT1_NAME INTO :minsqlda
  27. DESCRIBE PSTMT1_NAME INTO :fulsqlda 
  28. EXECUTE PSTMT1_NAME USING DESCRIPTOR :fulsqlda 
  29. WHENEVER SQLERROR CONTINUE
  30. BEGIN DECLARE SECTION
  31. END DECLARE SECTION
  32. WHENEVER SQLERROR GO TO ext
  33. PREPARE PSTMT2_NAME FROM :pstmt2_str
  34. DECLARE DYN_CURSOR CURSOR FOR PSTMT2_NAME
  35. DESCRIBE PSTMT2_NAME INTO :minsqlda
  36. DESCRIBE PSTMT2_NAME INTO :fulsqlda 
  37. OPEN DYN_CURSOR
  38. FETCH DYN_CURSOR USING DESCRIPTOR :fulsqlda 
  39. CLOSE DYN_CURSOR
  40. WHENEVER SQLERROR CONTINUE
  41. CLOSE DYN_CURSOR
  42. BEGIN DECLARE SECTION
  43. END DECLARE SECTION
  44. WHENEVER NOT FOUND GO TO ext
  45. WHENEVER SQLERROR GO TO error
  46. PREPARE PSTMT3_NAME FROM :pstmt3_str
  47. DECLARE DYN_CURSOR2 CURSOR FOR PSTMT3_NAME
  48. DESCRIBE PSTMT3_NAME INTO :minsqlda
  49. DESCRIBE PSTMT3_NAME INTO :fulsqlda 
  50. OPEN DYN_CURSOR2
  51. FETCH DYN_CURSOR2 USING DESCRIPTOR :fulsqlda 
  52. WHENEVER SQLERROR CONTINUE
  53. CLOSE DYN_CURSOR2
  54. db_name
  55. user_name
  56. auth_name
  57. db_name2
  58. hostvar
  59. pstmt1_str
  60. pstmt2_str
  61. pstmt3_str
  62.