Cobol en español
MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
Teoría sobre PowCobol-3
TEMARIOIntroducción
Consideraciones
El Menú de PowerCobol
Primer Cambio
La Primera Ventana
Objetos o Controles
Propiedades
Métodos
Impresión en Power

Impresión en Power

página(s) : 2/3
(1846 palabras totales en este texto)
(15641 Lecturas)   Versión Imprimible



Hace tiempo que pedí información a Fujitsu, sobre la posibilidad de escribir en Horizontal en un A4 y me enviaron una información que os puede resultar interesante.

En Fujitsu Cobol existe la posibilidad de mandar a la impresora una línea de control con diferente información, como la orientación, el espaciado vertical o el grosor de la fuente. Esto se realiza en varios pasos.

Primero hay que definir en la SPECIAL NAMES un mnemónico de la siguiente forma:
...
SPECIAL-NAMES
CTL IS ELCONTROL (ELCONTROL es el que yo he puesto, pero podeis poner lo que querais, será el nombre que defina al mnemónico).
...


En la WORKING definimos la línea de configuración, debeis respetar el tamaño de las variables.

...
WORKING-STORAGE SECTION.
01 LINEACONTROL GLOBAL.
       02 REC-ID PIC X(002) VALUE "I1".
       02 REC-MODE PIC X(001) VALUE "1".
       02 FOVL.
             03 FOVL-NAME PIC X(004) VALUE SPACE.
             03 FOVL-R PIC 9(003) VALUE 0.
       02 PAGE-COPY PIC 9(003) VALUE 0.
       02 FCB-NAME PIC X(004) VALUE SPACE.
       02 FORMAT-ID PIC X(008) VALUE SPACE.
       02 NOSE1 PIC X(030) VALUE SPACE.
       02 PAGE-FORM PIC X(002) VALUE SPACE.
       02 PAPER-SIZE PIC X(003) VALUE SPACE.
       02 NOSE2 PIC X(004) VALUE SPACE.
       02 PRINT-DUPLEX PIC X(001) VALUE SPACE.
       02 PRINT-POSITION PIC X(001) VALUE SPACE.
       02 NON-PRINT-AREA PIC X(001) VALUE SPACE.
       02 BIND-DIRECTION.
             03 PORT-FRONT PIC X(001) VALUE SPACE.
             03 PORT-BACK PIC X(001) VALUE SPACE.
             03 LAND-FRONT PIC X(001) VALUE SPACE.
             03 LAND-BACK PIC X(001) VALUE SPACE.
       02 BIND-WIDTH PIC X(004) VALUE SPACE.
       02 PRINT-OFFSET.
             03 FRONT-X PIC X(004) VALUE SPACE.
             03 FRONT-Y PIC X(004) VALUE SPACE.
             03 BACK-X PIC X(004) VALUE SPACE.
             03 BACK-Y PIC X(004) VALUE SPACE.
       02 DOCUMENT-NAME PIC X(004) VALUE SPACE.
       02 FILLER PIC X(005) VALUE SPACE.
...

Cada una de estas variables tiene un cometido, os explicaré las que conozco.
Si dejais el valor en espacios tomará siempre su valor por defecto.

Siempre deberéis respetar la longitud de cada campo y del registro en total.

La variable FOVL sirve para mas cosas, pero yo lo utilizo para especificar el espaciado vertical, ya sabeis que por defecto son 6 líneas por pulgada, pero podemos hacer que sean 8 y así imprimir mas líneas por página. Para conseguir esto debemos de incluir en el fichero de configuración (COBOL85.CBR) las siguiente líneas:

FCBDFLT=LPI((6,66)),CH1(4),SIZE(110)
FCBLT8L=LPI((8)),CH1(1),SIZE(120)

Estando estas líneas en el fichero podremos entonces especificar en la variables la opción que deseemos. Por ejemplo para imprimir a 8 LPI haremos lo siguiente:

MOVE "LT8L" TO FOVL-NAME.
MOVE 1 TO FOVL-R.
MOVE "LT8L" TO FCB-NAME.

la variable PAGE-COPY nos indicará el número de copias de cada página.

La variable PAGE-FORM es la que indicará con su valor (L=Apaisado ó P=Normal) si será apaisado o normal el listado.

la variable PRINT-DUPLEX indica si imprime en Single o Double mode, para ellos moveremos el valor F=normal, B=doble.

Una vez dados los valores necesarios, es cuando enviamos toda la información a la impresora y par ello, hacemos lo siguiente:

WRITE LINEA FROM LINEACONTROL AFTER ADVANCING ELCONTROL.

Como veis aquí utilizamos el mnemónico que describiamos anteriormente.
...
(continúa).

(1/3) Anterior |    Inicio de Página    | Siguiente (3/3)
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]