Carlos, en principio hay que elegir un caracter que no se utilice
normalmente para que sirva de escape (1B), en mi caso se eligio el
caracter no logico ('�' = 5F), si deseas utilizar otro caracter solo tienes
que conseguirte el valor EBCDIC del caracter deseado y reemplazarlo en la
tabla que veras en el segundo paso a continuacion.
Ahora si entremos en materia; sigue esta secuencia:
1. Obten el fuente de un WSCST (en este caso lo hago para una LaserJet 4)
RTVWSCST DEVTYPE(*TRANSFORM) MFRTYPMDL(*HP4) SRCMBR(HP4)
SRCFILE(MYLIB/QTXTSRC) TEXT('WSCST para HPLJ 4')
2. Modifica el codigo del fuente que obtuviste; busca la etiqueta :EWSCST y
copia antes de ella el siguiente bloque:
:EBCASCTBL.
:EBCASCTBLE
EBCDICCP = 37
ASCIICP = 437
DATA =
/* -0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F */
'2020838485A0A68687A49B2E3C282B7C'X /* 4- */
'268288898AA18C8B8DE121242A293B1B'X /* 5- */
'2D2F833E85A0A68F80A57C2C255F3E3F'X /* 6- */
'6F9088898AA18C8B8D603A2340273D22'X /* 7- */
'ED616263646566676869AEAF647900F1'X /* 8- */
'F86A6B6C6D6E6F707172A6A791009200'X /* 9- */
'E67E737475767778797AADA844590000'X /* A- */
'5E9C9DFA001514ACAB005B5D00DB27DD'X /* B- */
'7B41424344454647484900939495A2A7'X /* C- */
'7D4A4B4C4D4E4F50515200968197A398'X /* D- */
'5CF6535455565758595AFD939995A2DC'X /* E- */
'3031323334353637383900969A97A300'X. /* F- */
:EEBCASCTBL.
Como te podras dar cuenta, en la posicion 5F se le puso el valor 1B,
que es el codigo <escape>.
3. Crea el objeto de personalizacion
CRTWSCST WSCST(QGPL/HP4) SRCFILE(MYLIB/QTXTSRC)
4. Crea el dispositivo, revisando los siguientes parametros:
Manufacturer type and model . . . : *WSCST
Workstation customizing object . . : HP4
Library . . . . . . . . . . . . : PRTFLIB
Si lo creas por algun emulador (Client access, Rally o Rumba) podras
indicarle estos valores desde la configuracion por medio del software.
En tus programas la secuencia debera armarse en el formato siguiente, ya
sea como constante o en elementos de tablas, te envio algunos ejemplos:
�&l2a0o1e0L�&a0L�*p0x90Y�(12U�&l <- Para fijar
tama�o de papel, orientacion
�(s1p14v1s2b4148T�&l8.00C <- Letra
Encabezado
�(s1p12v0s2b4148T <- Letra Subtitulo
�(s0p16.67h8.5v0s0b0T�&l6.00C�&k8.0H <- Letra
LinePrinter 8LPI 16.67CPI Cuerpo
�*p+10x+10Y�*t300R�*c2390a150.0b15g2P�*p-10x-10Y <- Sombreado
Encabezado
�*p+10x+10Y�*t300R�*c2390a150.0b15g2P�*p-10x-10Y <- Sombreado Pie
de Pagina
Y eso es todo, parece complicado pero no lo es tanto :o)
Saludos.
Jes�s Humberto Olague Alcal�
L�der de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
[EMAIL PROTECTED]
Enviado por: Para: [EMAIL PROTECTED]
forum.help400-request@ cc:
combios.es Asunto: Re: Secuencia de escape
Impresora con Valor en Decimal
20/06/2003 08:39
Por favor, responda a
forum.help400
Sip, solo necesitas un objeto de personalizacion (WSCST) modificado.
Aguantame un rato para armar algo de informacion y enviartela.
Saludos.
Jes�s Humberto Olague Alcal�
L�der de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
Carlos Iglesias
<[EMAIL PROTECTED] Para:
[EMAIL PROTECTED]
om> cc:
Enviado por: Asunto: Secuencia de
escape Impresora con Valor en Decimal
forum.help400-request@
combios.es
20/06/2003 05:20
Por favor, responda a
forum.help400
Hola,
lo dicho, �ser�a posible imprimir un spool que contiene secuencias de
escape de impresa con el valor decimal (no hexadecimal) ??
Gracias.
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo
electr�nico y que borre el presente mensaje y sus anexos de su computadora
sin retener copia de los mismos. No debe copiar este mensaje o usarlo para
cualquier prop�sito ni divulgar su contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the
intended recipient please immediately advise the sender by reply e-mail and
delete this message and its attachments from your computer without
retaining a copy. You should not copy it or use it for any purpose nor
disclose its contents to any other person. Thank you. "
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo
electr�nico y que borre el presente mensaje y sus anexos de su computadora
sin retener copia de los mismos. No debe copiar este mensaje o usarlo para
cualquier prop�sito ni divulgar su contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the
intended recipient please immediately advise the sender by reply e-mail and
delete this message and its attachments from your computer without
retaining a copy. You should not copy it or use it for any purpose nor
disclose its contents to any other person. Thank you. "
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
