home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / blackb10.zip / BLACKB.BND (.txt) next >
DB2 Bind  |  1995-01-30  |  5KB  |  79 lines
  1. BLACKBSQDAKTLeBLDECKKH  0
  2. INCLUDE SQLCA
  3. WHENEVER SQLERROR      CONTINUE
  4. WHENEVER SQLWARNING    CONTINUE
  5. WHENEVER NOT FOUND     CONTINUE
  6. BEGIN DECLARE SECTION
  7. END DECLARE SECTION
  8. connect to :database
  9. connect reset
  10. DECLARE c1 CURSOR FOR    select projname,descr,owner , projts    from blackb.projects    order by projname    for fetch only
  11. OPEN c1
  12. FETCH c1 INTO :projname,:descr,:owner,:projts 
  13. CLOSE c1
  14. commit work
  15. update       blackb.tables      set tbdescr = :descr               where tbname = :table and          tbcreator = :creator
  16. insert into        blackb.tables        values(:creator,:table,:descr)
  17. delete from blackb.columns         where tbcreator = :creator and               tbname = :table
  18. insert into    blackb.projtab    values(:xco,:yco,:foreigntable,:projname,:creator,:table)
  19. commit work
  20. delete from    blackb.projects    where      projname = :projname
  21. commit work
  22. insert into    blackb.columns    values(:column,:descr,:primarykey,:notnull,:datatype,:colVS,:creator,:table,:colforname)
  23. update blackb.columns      set coldescr   = :descr,          colprim    = :primarykey,          colnotnull = :notnull,          coltype    = :datatype,          colvs      = :colVS,          colforname = :colforname      where          tbcreator = :creator and         tbname = :table
  24. commit work
  25. delete from     blackb.projtab     where projname = :projname
  26. DECLARE c2 CURSOR FOR    select a.tbcreator,a.tbname,a.tbdescr,b.xpos,b.ypos,b.foreigntable    from blackb.tables a,         blackb.projtab b    where       b.projname = :projname and       b.tbcreator = a.tbcreator and       b.tbname = a.tbname    for fetch only
  27. OPEN c2
  28. FETCH c2 INTO :creator,:table,:descr,:xco,:yco ,:foreigntable
  29. CLOSE c2
  30. commit work
  31. DECLARE c3 CURSOR FOR    select colname,coldescr,colprim,colnotnull,coltype,colvs,colforname    from blackb.columns    where       tbcreator = :creator and       tbname = :table    for fetch only
  32. OPEN c3
  33. FETCH c3 INTO :column,:descr,:primarykey,:notnull,:datatype,:colVS,:colforname
  34. CLOSE c3
  35. update blackb.rels    set relcar = :cardiality,        reldr = :deleterule    where       tbcreator = :creator and      tbname = :table and      tbrefcreator = :reftablecreator and      tbrefname = :reftablename
  36. insert into    blackb.rels    values(:reftablecreator,            :reftablename,           :cardiality,           :deleterule,           :creator,           :table)
  37. delete from  blackb.rels    where      tbcreator = :creator and      tbname = :table and      tbrefcreator = :reftablecreator and      tbrefname = :reftablename
  38. commit work
  39. DECLARE c4 CURSOR FOR    select tbrefcreator,tbrefname,relcar,reldr    from blackb.rels    where       tbcreator = :creator and       tbname = :table    for fetch only
  40. OPEN c4
  41. FETCH c4 INTO :reftablecreator,:reftablename,:cardiality,:deleterule
  42. CLOSE c4
  43. delete from    blackb.tables    where      tbcreator = :creator and      tbname = :table
  44. insert into       blackb.projects       values(:projname,:descr,:projectlog,:owner,current timestamp)
  45. update blackb.projects      set descr = :descr,          owner = :owner,          log =:projectlog,          projts = current timestamp      where        projname = :projname
  46. select log into :projectlog    from blackb.projects    where projname = :projname
  47. select count(*) into :tblcnt    from blackb.tables    where      tbcreator = :creator and      tbname = :table
  48. commit work
  49. insert into blackb.datatypes    values(:dtname,:dtdef,current timestamp,:projname)
  50. update blackb.datatypes      set dtdef = :dtdef ,          ts = current timestamp      where dtname = :dtname
  51. commit work
  52. DECLARE c5 CURSOR FOR    select dtname    from blackb.datatypes    where       projname = :projname    for fetch only
  53. OPEN c5
  54. FETCH c5 INTO :dtname
  55. CLOSE c5
  56. commit work
  57. dtname
  58. dtdef
  59. database
  60. projectlog
  61. colVS
  62. projname
  63. datatype
  64. descr
  65. owner
  66. creator
  67. table
  68. reftablename
  69. reftablecreator
  70. projts
  71. column
  72. colforname
  73. primarykey
  74. notnull
  75. cardiality
  76. deleterule
  77. tblcnt
  78. foreigntable
  79.