EBCDIC - ASCII translation problems with the ! character

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

I am having problems in the translation of the ! character.  Here is the
scenario:

I have an ASCII file on the IFS.  I read the file into an RPG variable and
translate the ASCII character to EBCDIC using the following call:

 *
 * Translate from ASCII to EBCDIC
 *
C                   Eval      pworkfld = %Len(%Trimr($$Html32K))
C                   Call      'QDCXLATE'
C                   Parm                    pWorkFld
C                   Parm                    $$Html32K
C                   Parm                    AtoETable
C                   Parm                    XLateLib

The AtoETable is a constant with the value QEBCDIC and the XLateLib is a
constant with the value *LIBL.

The variable $$Html32K then contains EBCDIC characters.  There is one
character at this point that was a problem.  The exclamation point (!) was
translated incorrectly to a | character.  I do a an XLate to change the |
character back to a !.  I then do some manipulation of the file.  After the
manipulation, I convert the EBCDIC characters to ASCII characters using the
following call:

 *
 * Translate from EBCDIC to ASCII
 *
C                   Eval      pworkfld = %Len(%Trimr($$Html32K))
C                   Call      'QDCXLATE'
C                   Parm                    pWorkFld
C                   Parm                    $$Html32K
C                   Parm                    EtoATable
C                   Parm                    XLateLib

The EtoATable is a constant with the value QASCII.

When I look at the file using a text editor, the ! character was converted
to a ] character.

Any ideas on how to prevent the translation problem?

Thanks

Mike