Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
21
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 1
Trucos
TEMARIONúmeros Aleatorios
Sec. Escape a Impresoras
Imp. ¿Pantalla o Impresora?
Dibujar Cuadros o Líneas
Años Bisiestos
Ventana de Opciones
Campos Tipo Hora
Busqueda de Cadenas
Mandar un e-mail
Pequeño Editor Texto
Día de la Semana
Registros / Fichero
ListBox en modo caracter

Sec. Escape a Impresoras

(1130 palabras totales en este texto)
(17222 Lecturas)   Versión Imprimible



Para controlar las impresoras solemos enviarles las secuencias de escape correspondientes en cada caso. Estas se pueden enviar con variables alfanuméricas o binarias. Veamos como enviaríamos la secuencia de letra comprimida a una impresora HP.

Para enviar la secuencia hexadecimal, primero la definimos en la Working-Storage Section como tal y luego en la Procedure Division, donde deseemos que empiece con el formato de comprimido la mandamos a la impresora.

WORKING-STORAGE SECTION.
01  COMPRIMIDA PIC X(5) VALUE H"1B266B3253".
..
PROCEDURE DIVISION.
INICIO.
     WRITE
nombre_registro_impresora FROM COMPRIMIDA AFTER 0.

A partir de éste momento todas las líneas que escribiéramos tomarían el formato que hemos dado, hasta que de nuevo se le mande otra orden que la cancele.
Para hacerlo de forma binaria, crearíamos en la Working-Storage una variable para la conversión de números decimales a binarios y otra donde guardaríamos el resultado.
A continuación se asignarán los valores decimales y se irán guardando en binario. Vamos a pasar primero de hexadecimal a decimal. Los valores serían:
1B=027, 26=038, 6B=107, 32=050, 53=083.

01  VALORES PIC X(5).
01  VALOR REDEFINES VALORES.
      02  TVAL PIC X OCCURS 5 TIMES.

01  HEXA.
     02  SC-BIN PIC 9(4) COMP-1.
     02  SC-REDEF REDEFINES SC-BIN.
          03  FILLER PIC X.
          03  SC-CH PIC X.
..
PROCEDURE DIVISION.
INICIO.
     MOVE 27 TO SC-BIN MOVE SC-CH TO TVAL (1).
     MOVE 38 TO SC-BIN MOVE SC-CH TO TVAL (2).
     MOVE 107 TO SC-BIN MOVE SC-CH TO TVAL (3).
     MOVE 50 TO SC-BIN MOVE SC-CH TO TVAL (4).
     MOVE 83 TO SC-BIN MOVE SC-CH TO TVAL (5).
     ...
     WRITE
nombre_registro_impresora FROM VALORES AFTER 0.
En ambos casos, el nombre_registro_impresora, corresponderá al nombre con el que hemos designado al registro de la impresora en la FD.
Y el hecho de incluir la opción AFTER 0, es para que no produzca el avance de una línea al insertar la secuencia.

Algunos ejemplos de secuencias muy utilizadas:
ORDEN  EPSON, IBM, CANON PCL-5 (HP)
SALTO DE PAGINA 012 027 038 108 048 072
SUBRAYADO 027 045 001 027 038 100 048 068
QUITAR SUBRAYADO 027 045 000 027 038 100 064
NEGRITA 027 069 027 040 115 051 066
NORMAL 027 070 027 040 115 048 066
ITALICA 027 052  027 040 115 049 083
QUITAR ITALICA 027 053 027 040 115 048 083

   Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]