sub type_info_all {
        my ($dbh) = @_;

        # Vales in $names and $ti are based on results of call
        # to DB2 SQLGetTypeInfo CLI function:

        my $names = { 
          TYPE_NAME => 0,
          DATA_TYPE => 1,
          COLUMN_SIZE => 2,
          LITERAL_PREFIX => 3,
          LITERAL_SUFFIX => 4,
          CREATE_PARAMS => 5,
          NULLABLE => 6,
          CASE_SENSITIVE => 7,
          SEARCHABLE => 8,
          UNSIGNED_ATTRIBUTE => 9,
          FIXED_PREC_SCALE => 10,
          AUTO_UNIQUE_VALUE => 11,
          LOCAL_TYPE_NAME => 12,
          MINIMUM_SCALE => 13,
          MAXIMUM_SCALE => 14,
          SQL_DATA_TYPE => 15,
          SQL_DATETIME_SUB => 16,
          NUM_PREC_RADIX => 17,
          INTERVAL_PRECISION => 18
        };
        my $ti = 
            [ $names,
              [ 'BLOB', -98, '2147483647', undef, undef, '(length)', 1, 1, 1,
                  undef, '0', undef, undef, undef, undef, -98, undef, undef, undef ],
              [ 'CLOB', -99, '2147483647', undef, undef, '(length)', 1, 1, 1,
                  undef, '0', undef, undef, undef, undef, -99, undef, undef, undef ],
              [ 'LONG VARCHAR FOR BIT DATA', -4, 32700, '\'', '\'', undef, 1, '0', '0',
                  undef, '0', undef, undef, undef, undef, -4, undef, undef, undef ],
              [ 'VARCHAR () FOR BIT DATA', -3, 4000, '\'', '\'', '(length) FOR BIT DATA', 1, 1, 3,
                  undef, '0', undef, undef, undef, undef, -3, undef, undef, undef ],
              [ 'CHARacter () FOR BIT DATA', -2, 254, '\'', '\'', '(length) FOR BIT DATA', 1, 1, 3,
                  undef, '0', undef, undef, undef, undef, -2, undef, undef, undef ],
              [ 'LONG VARCHAR', -1, 32700, undef, undef, undef, 1, '0', '0',
                  undef, '0', undef, undef, undef, undef, -1, undef, undef, undef ],
              [ 'CHARacter', 1, 254, '\'', '\'', '(length)', 1, 1, 3,
                  undef, '0', undef, undef, undef, undef, 1, undef, undef, undef ],
              [ 'NUMeric', 2, 31, undef, undef, '(precision,scale)', 1, '0', 2,
                  '0', '0', '0', undef, '0', 31, 2, undef, undef, undef ],
              [ 'DECimal', 3, 31, undef, undef, '(precision,scale)', 1, '0', 2,
                  '0', '0', '0', undef, '0', 31, 3, undef, undef, undef ],
              [ 'INTeger', 4, 10, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, 4, undef, undef, undef ],
              [ 'SMALLINT', 5, 5, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, 5, undef, undef, undef ],
              [ 'FLOAT', 6, 15, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, 6, undef, undef, undef ],
              [ 'REAL', 7, 7, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, 7, undef, undef, undef ],
              [ 'FLOAT', 8, 15, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, 8, undef, undef, undef ],
              [ 'DATE', 91, 10, '\'', '\'', undef, 1, '0', 2,
                  undef, '0', undef, undef, undef, undef, 9, 1, undef, undef ],
              [ 'TIME', 92, 8, '\'', '\'', undef, 1, '0', 2,
                  undef, '0', undef, undef, undef, undef, 9, 2, undef, undef ],
              [ 'TIMESTAMP', 93, 26, '\'', '\'', undef, 1, '0', 2,
                  undef, '0', undef, undef, 6, 6, 9, 3, undef, undef ],
              [ 'VARCHAR', 12, 4000, '\'', '\'', '(length)', 1, 1, 3,
                  undef, '0', undef, undef, undef, undef, 12, undef, undef, undef ],
              [ 'DATALINK', -400, 254, undef, undef, undef, 1, '0', '0',
                  '0', '0', '0', undef, undef, undef, -400, undef, undef, undef ],
              [ 'BIGINT', -5, 20, undef, undef, undef, 1, '0', 2,
                  '0', '0', '0', undef, undef, undef, -5, undef, undef, undef ],
            ];
        return $ti;
    }