Hola Fernando

Las imágenes adjuntas a tu correo no las puedo ver, no sé decirte si es por
un fallo en el envío u otro motivo

Personalizar un WSCST es una labor complicada, yo antes probaría con el
WSCST  QWPLEXMRKC como indica el Doc de IBM

Y según ese doc el WSCST que has personalizado estás indicando para DATA=,
yo creo que incorrectamente, que el CODEPAGE 1250 es UTF-8

UTF-8 (Unicode) 18N 18N Ec(18N '1B2831384E'X

Para Latin-2 es otro valor para DATA=

ISO 8859/2 Latin 2 2N Ec(2N '1B28324E'X
En las "peleas" que he tenido con impresoras muchas veces, se soluciona
activando el volcado en hexadecimal de todo lo que imprime e investigando
las secuencias hex a cambiar

El mar, 21 feb 2023 a las 23:43, Fernando Idem (<[email protected]>)
escribió:

> Buenas tardes a todos;
>
>
>
> Estoy intentando imprimir unas etiquetas en esloveno, en el que la
> descripción del producto está en su idioma.
>
>
>
> Ya tengo unas etiquetas para un cliente con descripciones en griego. He
> intentado seguir la misma dinámica, y según he visto es la siguiente;
>
>
>
> Me he creado un fichero donde el campo descripción este en CCSID 870
>
>
>
>
>
> Según he visto la configuración tanto en esloveno, o checo, que es Latin-2
>
>
>
> CPYFRMIMPF FROMSTMF('/home/FILEOUTPUT/Etiquetas_Eslovenia.csv')
>
> TOFILE(LEXOBJ/MESLOVENO) MBROPT(*REPLACE) FROMCCSID(1208) TOCCSID(870)
>
> RCDDLM(*CRLF)
> FLDDLM(';')
>
>
>
>
>
> Al imprimir la etiqueta el acento no lo lleva
>
>
>
>
>
> Me he creado un objeto WSCST, para la impresora
>
>
>
> Me lo he generado en base a esta página -- Printing National Language
> Support (NLS) Characters using Host Print Transform (HPT) (ibm.com)
> <https://www.ibm.com/support/pages/printing-national-language-support-nls-characters-using-host-print-transform-hpt>
>
>
>
> :WSCST DEVCLASS=TRANSFORM.
>
>     :TRNSFRMTBL.
>
>     :INITPRT
>
>       DATA =''X.
>
>     :SPACE
>
>       DATA ='20'X.
>
>     :CARRTN
>
>       DATA =''X.
>
>     :FORMFEED
>
>       DATA ='0C'X.
>
>     :LINEFEED
>
>       DATA ='0D0A'X.
>
>     :EBCASCTBL.
>
>     :EBCASCTBLE
>
>       EBCDICCP = 870
>
>       ASCIICP  = 1208
>
>       DATA =''X.
>
>     :EEBCASCTBL.
>
>     :ASCCPINFO.
>
>     :CODEPAGE
>
>       CODEPAGE= 1250
>
>       DATA ='1B2831384E'X.
>
>     :EASCCPINFO.
>
> :EWSCST.
>
>
>
> En el CL he puesto esta línea;
>
>
>
> CHGJOB LANGID(CSY) CNTRYID(CZ) CCSID(870)
>
>
>
> Si lo tengo hecho, para imprimir etiquetas en griego y me salen bien
>
>
>
> No sé si alguien me puede echar una mano en esto.
>
>
>
> Saludos
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.

Reply via email to