EBCDIC-ASCII Conversation

[Reinhard Burgmann]

Hello,

I have to convert a EBCDIC-File into an ASCII-Code in perl. Unfortunately
part's of the files are in packed format I have to do this in perl. I think
a solution with two arrays is possible but maybe somebody has a better idea?

Thanks in advance

Reinhard

 

[Lambik69]

Hello,

I have to convert a EBCDIC-File into an ASCII-Code in perl. Unfortunately
part's of the files are in packed format I have to do this in perl. I think
a solution with two arrays is possible but maybe somebody has a better idea?

http://search.cpan.org/~cxl/Convert-EBCDIC-0.06/lib/Convert/EBCDIC.pm


Thanks in advance

Reinhard

 

[James Willmore]

Hello,

I have to convert a EBCDIC-File into an ASCII-Code in perl. Unfortunately
part's of the files are in packed format I have to do this in perl. I think
a solution with two arrays is possible but maybe somebody has a better idea?

Thanks in advance

Reinhard

Convert::EBCDIC
(http://search.cpan.org/~cxl/Convert-EBCDIC-0.06/lib/Convert/EBCDIC.pm)

Encode::EBCDIC
(http://search.cpan.org/~dankogai/Encode-1.98/EBCDIC/EBCDIC.pm)

HTH

Jim

 

[Alan J. Flavell]

I have to convert a EBCDIC-File into an ASCII-Code in perl. Unfortunately
part's of the files are in packed format I have to do this in perl.

Clarification, please. Are you saying that these data records contain
"packed decimal" fields? Then a mere character code conversion from
EBCDIC to ASCII is not going to help. You need to know the format of
your records (i.e which ranges contain packed-decimal), and unpack
those into signed decimal format before continuing.

Presumably Perl can do that with an appropriate unpack() template, but
it's not something I've had reason to try (I was fresh out of IBM
mainframes around the time that I first met Perl, and anyway, in
scientific work we hardly ever had to deal with packed-decimal data in
practice).

 

[len v]

Clarification, please. Are you saying that these data records contain
"packed decimal" fields? Then a mere character code conversion from
EBCDIC to ASCII is not going to help. You need to know the format of
your records (i.e which ranges contain packed-decimal), and unpack
those into signed decimal format before continuing.

Presumably Perl can do that with an appropriate unpack() template, but
it's not something I've had reason to try (I was fresh out of IBM
mainframes around the time that I first met Perl, and anyway, in
scientific work we hardly ever had to deal with packed-decimal data in
practice).

Try Convert::IBM390.pm using the umpackeb() subroutine

http://search.cpan.org/~grommel/Convert-IBM390-0.15/IBM390.pm

Len

 

[Alan J. Flavell]

Try Convert::IBM390.pm using the umpackeb() subroutine

http://search.cpan.org/~grommel/Convert-IBM390-0.15/IBM390.pm

Makes sense to me - thanks for pointing it out. I particularly liked
this comment at the end:

| BUGS
|
| None, of course. What do you think this is -- Unix?