Procedimientos: gestión de impresoras

Abrir una impresora


A través de este procedimiento, asigunaremos un número de canal y nonbre de impresora para gestionar los registros de impresión.

Variables a configurar:
Num_Asign_Imp -> se le indicará al procedimiento el número de canal de la impresora
Nombre_fic_Imp -> se le indicará al prpcedimiento el nombre que se decida para la impresora

Procedimientos adjuntos:

VerError -> lo encontraremos en la sercción de "procedimientos de interface de usuario".
FicheroBloqueado -> lo encontraremos en la sercción de "procedimientos de interface de usuario".

PROC AbreImp(num_assign_Imp#,nombre_fic_Imp$=8,long_datos_Imp#,K=long_clave_Imp#)

dcl orror# ; numero de error
dcl aqui$=40 ; descripcion del error


ASSIGN=num_assign_Imp,nombre_fic_Imp,WR,SI:next,orror
aqui=" Assign "+nombre_fic_Imp
DO
OPEN=num_assign_Imp:next,orror
aqui=" OPEN "+nombre_fic_Imp
SELECT orror
CASE 0 :: BREAK
CASE 40
CFILE=num_assign_Imp,D=long_datos_Imp,K=long_clave_Imp:next,orror
IF orror<>0 : VerError(orror,aqui)
CASE 44
FicheroBloqueado(nombre_fic_Imp)
DEFAULT :: VerError(orror,aqui)
ENDSEL
LOOP
ENDPROC

Sintaxis

AbreImp(255,"TICKETS",125,K=2)

Donde:
-> 255 es el número de canal que le asignaremos a la impresora para imprimir "print=255"
-> "TICKETS" es el nombre de la impresora
-> 125 es la longitud que mide el fichero de impresras
-> 2 es la clave del fichero de impresoras.