class TestIbmDb2 < Test::Unit::TestCase

  def test_064
    assert_expect {
      conn = DB2::connect db,user,password
      create = 'CREATE TABLE t.t1( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t2( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t3( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t4( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      result = DB2::tables conn, NULL, "T"
      for i in (0 ... DB2::num_fields(result))
        print "#{DB2::field_name(result, i)}, "
      end
      print "\n\n"
      while (row=DB2::fetch_array(result))
        for i in (0 ... DB2::num_fields(result))
         print "#{row[i]}, "
        end
        puts ""
      end
      
      DB2::free_result result
    }
  end

end

__END__
TABLE_CAT, TABLE_SCHEM, TABLE_NAME, TABLE_TYPE, REMARKS, 

, T, T1, TABLE, , 
, T, T2, TABLE, , 
, T, T3, TABLE, , 
, T, T4, TABLE, ,