Re: Perl::DBI and TYPE of column

On 3/3/20 6:02 AM, Matthias Apitz wrote:
> Hello,
>
> We unload Sybase and Oracle data to migrate the database to PostgreSQL.
> The loading is done very fast with PostgreSQL's COPY command.
>
> During unload trailing blanks in all columns are discarded, because they
> would cause problems during loading for INT and DATE columns. The
> discarding is done like this after fetching the row into the array
> @row_ary:
>
> ...
> # SRP-25024: support for PostgreSQL: we remove on export trailing blanks
> foreach my $i (0..$#row_ary) {
> $row_ary[$i] =~ s/\s+$//;
> # but for CHAR columns we keep one
> # print $dba->{'sth'}->{NAME}->[$i] . " " . $dba->{'sth'}->{TYPE}->[$i] . "\n";
> # it seems that VARCHAR in Sybase is TYPE=1 and in Oracle TYPE=12
> # see also http://infocenter.sybase.com/help/index.jsp?topic=/com.sybase.infocenter.dc36273.1570/html/sprocs/CIHHGDBC.htm
> # and ftp://sqlstandards.org/SC32/SQL_Registry/
> #
> if ($dba->{'sth'}->{TYPE}->[$i] == 1 || $dba->{'sth'}->{TYPE}->[$i] == 12) {
> $row_ary[$i] =~ s/^$/ /;
> }
> }
>
> My question here is: How I could get a copy of the document
> ftp://sqlstandards.org/SC32/SQL_Registry/
>
> Any copy available here in this list? Thanks

All I could find:

https://grokbase.com/t/perl/dbi-users/074q99ddsn/registry-of-values-for-ansi-x3-135-and-iso-iec-9075-sql-standards

>
> matthias
>

--
Adrian Klaver
adrian(dot)klaver(at)aklaver(dot)com