Archives of the TeradataForum

Message Posted: Mon, 24 Feb 2003 @ 20:06:19 GMT

	<Prev	Next>		<<First	<Prev	Next>	Last>>

The following Perl program, although rudimentary, will do the trick. Convert::IBM390 is available from CPAN.

#!/usr/bin/perl -w
#--- TERADATA UTILITY
# Take the hex digits shown in a FastLoad or MultiLoad error table
# and display them in characters, either as ASCII or as EBCDIC.
# NOTE: The printed characters will not necessarily be the same as
# the input; they may contain blanks where the original was null, etc.
#
# Syntax: $0 [-ae] [filename]
#   -a  Display records as ASCII (default)
#   -e  Display records as EBCDIC
#   filename  File containing the printed hex digits as shown in the
#             error table.  stdin may be used.
#

use Getopt::Std;
use Convert::IBM390 qw(eb2ascp);

$opt_e = '';
getopts('ae');
$charset = ($opt_e) ? 'ebcdic' : 'ascii';

while (<>) {
   chomp;
   $orig = pack('H*', $_);
   if ($charset eq 'ebcdic') { print eb2ascp($orig), "\n"; }
   else                      { print "$orig\n"; }
}

	<Prev	Next>		<<First	<Prev	Next>	Last>>