Luis, una vez que recuperaste el objeto de personalizacion mas adecuado, busca la ultima linea del fuente y justo antes de ella inserta las siguientes lineas:
:EBCASCTBLE
EBCDICCP = 37
ASCIICP = 437
DATA =""
/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
'404142434445464748494A4B4C4D4E4F'X /* 4 */
'505152535455565758595A5B5C5D5E5F'X /* 5 */
'606162636465666768696A6B6C6D6E6F'X /* 6 */
'707172737475767778797A7B7C7D7E7F'X /* 7 */
'808182838485868788898A8B8C8D8E8F'X /* 8 */
'909192939495969798999A9B9C9D9E9F'X /* 9 */
'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'X /* A */
'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'X /* B */
'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'X /* C */
'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'X /* D */
'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'X /* E */
'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'X. /* F */
:EEBCASCTBL.
EBCDICCP = 37
ASCIICP = 437
DATA =""
/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
'404142434445464748494A4B4C4D4E4F'X /* 4 */
'505152535455565758595A5B5C5D5E5F'X /* 5 */
'606162636465666768696A6B6C6D6E6F'X /* 6 */
'707172737475767778797A7B7C7D7E7F'X /* 7 */
'808182838485868788898A8B8C8D8E8F'X /* 8 */
'909192939495969798999A9B9C9D9E9F'X /* 9 */
'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'X /* A */
'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'X /* B */
'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'X /* C */
'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'X /* D */
'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'X /* E */
'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'X. /* F */
:EEBCASCTBL.
Cambia por 1B la posicion correspondiente al valor Hexadecimal de la arroba (@), si no me equivoco es 7C, particularmente te recomiendo mas utilizar otro caracter, nosotros usamos el no logico (¬), cuyo valor hex es 5F, que es un caracter menos usado que el que pretendes usar; utilizando la arroba imaginate que pasaria si quieres imprimir un listado de direcciones de correo electronico.
Es recomendable que el parametro EBCDICCP contenga el mismo valor que Code Page en el valor del sistema QCHRID.
Saludos.
--
Jesús Olague
Zacatecas, México
