Auxílios do VisualAge Generator

EZEDESTP

EZEDESTP altera o nome da impressora enquanto o programa está executando. Você pode alterar o nome do destino associado com o arquivo de impressão, movendo um item de dados ou literal que contém o novo destino da impressora para a palavra de função especial EZEDESTP. Para alguns tipos de arquivos, múltiplas impressoras podem ser abertas simultaneamente.

Usos

EZEDESTP pode ser utilizado como qualquer um dos seguintes:

As características de EZEDESTP são as seguintes:

Tipo de dados: Caractere
Comprimento dos dados em bytes: Varia por tipo de arquivo
Valor salvo pelos segmentos: Sim

Considerações sobre Definição

Para evitar a interposição de várias saídas de impressora, o arquivo de impressão é mantido aberto até que uma das seguintes situações ocorra:

A opção de E/S de CLOSE só fecha o arquivo para o valor atual de EZEDESTP. Uma impressora não é fechada apenas porque EZEDESTP foi usada para mudar o arquivo físico para o qual há um printout sendo direcionado. No caso de tipos de arquivo que não aceitam a abertura de arquivos de impressão múltiplos, a impressora será fechada quando se usar EZEDESTP para mudar o destino da impressão antes da execução da próxima DISPLAY de um mapa de impressão.

É preciso que o valor passado para EZEDESTP seja um nome de recurso de sistema válido para o ambiente de runtime e para o tipo do arquivo de impressão especificado quando o programa foi gerado. A seção sobre ambientes de destino descreve formatos de nome válidos por ambiente e por tipo.

O valor de EZEDESTP é exclusivo em cada programa. Se um programa passar o controle para outro, o valor de EZEDESTP será redefinido para seu valor padrão.

EZEDESTP é inicializada para o nome do recurso de sistema especificado durante a geração ou execução de teste.

Antes de ser usado, o valor de EZEDESTP é colocado em letra maiúscula. Contudo, seu valor dentro da palavra de função especial EZEDESTP permanece inalterado.

A palavra de função especial EZEDESTP vai dar verdadeiro quando comparada à versão em letra minúscula se tiver sido inicializada assim.

Ambientes de Destino

Ambiente Considerações de compatibilidade
VM CMS

SEQ
Não suportado.

SEQRS
O valor é um nome de arquivo CMS (fn ft fm), ou nome DD de 8 bytes correspondente a um arquivo seqüencial de sistema associado a um arquivo de impressão.

O nome DD é o valor de um comando FILEDEF ou DLBL especificado antes.

Se não tiver sido definido valor para EZEDESTP, o programa procurará ver primeiro se foi pré-alocado conjunto de dados que usa o nome do arquivo lógico como nome DD. Se não foi, o nome de recurso de sistema especificado na geração será usado para acessar o arquivo.

Quando se passa o nome de um conjunto de dados para EZEDESTP, o recurso é alocado dinamicamente para EZEPRINT por meio do comando CMS FILEDEF, o que obriga o conjunto de dados a ser regravado toda vez que é aberto para saída. A alocação é feita com a opção DISP definida para OLD,

Podem ser abertos vários arquivos ao mesmo tempo.


VM batch
GSAM
Não suportado.
SEQ
Não suportado.
SEQRS
Igual a VM CMS.

CICS para MVS/ESA Se a opção de geração /PRINTDEST for TERMID e o programa tiver sido iniciado com instrução CREATX em que o qualifier recip estava definido para zeros binários e especificava um qualifier prid, EZEDESTP será inicializada para o valor especificado para o qualifier prid. Se a opção de geração PRINTDEST for EZEP, EZEDESTP será inicializada para o valor associado a EZEPRINT na geração.

Em qualquer programa de batch que não tenha sido iniciado por CREATX, EZEDESTP assume por padrão o EIBTRMID CICS.

SPOOL
O valor é um nome de arquivo de saída correspondente a um arquivo JES SPOOL associado a um arquivo serial.

Nome do arquivo de saída: nodeid.userid.class O qualificador do id do nó é um ID do nó do sistema de 1 a 8 caracteres ou um asterisco (*). O qualifier userid é uma ID de usuário do sistema de 1 a 8 caracteres ou um asterisco (*). O qualifier class é uma classe de spool de 1 caractere. Class é opcional e assume por padrão o valor 'A'. Se não for especificada uma classe, a IdUsuário também será opcional e assumirá por padrão a ID de usuário de CICS (mesmo valor armazenado em EZEUSRID). O tamanho máximo do nome é de 19 bytes. Consulte o manual de personalização do CICS para saber mais a esse respeito.

Podem ser abertos vários arquivos ao mesmo tempo.

TRANSIENT
O valor é um nome DCT de 4 bytes para fila de dados transientes associada a arquivo serial. O nome da fila de dados transientes tem que ser definido para CICS.

Podem ser abertos vários arquivos ao mesmo tempo.

MVS/TSO

SEQ
Não suportado.

SEQRS
O valor é o nome de um conjunto de dados de 54 bytes ou um nome DD de 8 bytes correspondente a um arquivo seqüencial de sistema associado a um arquivo de impressão.

Podem ser abertos vários arquivos ao mesmo tempo.

Se EZEDESTP não tiver sido definida pelo programa e o tipo do arquivo for SEQRS, o programa procurará primeiro um arquivo alocado para EZEPRINT do nome DD. Em todos os outros casos, o nome do recurso de sistema especificado para EZEPRINT na geração será usado como valor inicial se EZEDESTP não for explicitamente definido pelo programa.

Quando se passa para EZEDESTP um nome de conjunto de dados que corresponde a um arquivo SEQRS, o arquivo é conectado dinamicamente por meio da alocação dinâmica SVC99. Quando a alocação dinâmica é feita, a opção DISP de SVC99 é definida para SHR, o que obriga o conjunto de dados a ser regravado toda vez que é aberto para saída.


MVS batch
GSAM
Não suportado.
SEQ
Não suportado.
SEQRS
Igual a SEQRS no MVS/TSO.

Podem ser abertos vários arquivos ao mesmo tempo.


IMS/VS

SMSGQ
O valor é o nome de um terminal lógico ou código de transação de 8 bytes correspondente a uma fila de mensagens de segmento único associada a um arquivo de impressão. O arquivo tem que ser associado a um PCB alternativo modificável ou PCB alternativo expresso modificável. O nome do terminal tem que ser definido para o sistema IMS. Podem ser abertos vários arquivos ao mesmo tempo. O valor de EZEDESTP não é colocado em letra maiúscula nesse tipo de arquivo.

IMS BMP
GSAM
Não suportado.
SEQ
Não suportado.
SEQRS
Igual a MVS/TSO.
SMSGQ
Igual a IMS/VS.

CICS para VSE
SPOOL
Igual a CICS para VSE SPOOL para EZEDEST.
TRANSIENT
Igual a CICS para MVS/ESA.

VSE batch
SEQ
Não suportado.
SPOOL
O formato do nome do recurso do sistema para um arquivo de saída SPOOL é:
    jobname.queue.class.disp.form.node.userid

ou

  jobname.queue.class.disp.form.node.userid.fcb.copy

nome do job
Igual a CICS para VSE.

fila
Asterisco (*) ou espaço em branco neste campo assumem por padrão a fila LST. PRT pode ser usado, mas o parâmetro fila será alterado para LST por Server for MVS, VSE, and VM.

class
O parâmetro class é uma classe spool de 1 caractere. A classe é opcional e assume por padrão o valor "A".

disp
Igual a CICS para VSE.

form
Igual a CICS para VSE.

node
Igual a CICS para VSE.

userid
Igual a CICS para VSE.

fcb
Nome de 1 a 8 caracteres que especifica a fase da imagem FCB que VSE/POWER tem que usar para imprimir a saída do job relacionado a ele. A fase indicada tem que ser catalogada numa sub-biblioteca definida como acessível a partir da partição de VSE/POWER.

copy
Número de cópias a serem impressas a partir da fila LST. O número válido varia de 0 a 255.

Os parâmetros FCB e COPY são posicionais e opcionais. Use um asterisco (*) para os valores-padrão. O nome da fase FCB é o que foi definido na configuração na hora do IPL e COPY padrão é 1.


CICS para OS/2

OS2COBOL
Valor do nome de arquivo OS/2 de 65 bytes correspondente a um arquivo de dados COBOL nativo associado a um arquivo de impressão. O compartilhamento de arquivos em arquivos de dados gerenciados pelo COBOL não é suportado. Sempre que é aberto, o arquivo recebe um bloqueio exclusivo que permanece até ele ser fechado.

TRANSIENT
Não suportado.

OS/400 O tipo do arquivo tem que ser SEQ. O valor pode ser passado para EZEDESTP usando-se FILE - *LIBL para localizar o arquivo.

O comando OVRPRTF é usado para suportar EZEDESTP no OS/400. Se o valor no EZEDESTP for modificado, será feito o seguinte durante a execução de uma opção de E/S DISPLAY:

  1. CLOSE o arquivo de impressora antigo
  2. Sobrepõe-se ao nome do novo arquivo de impressora em EZEDESTP (OVRPRTF)
  3. OPEN o novo arquivo de impressora

O valor definido em EZEDESTP é propagado a partir do nível da chamada, sendo alterado em todos os níveis de chamada subordinados a ele. A propagação porém não se dá se o arquivo tiver sido aberto antes pelo programa.

OS/2 (GUI) Não suportado.
Windows (GUI) Não suportado.
Java (GUI) Não suportado.
OS/2 (C++) O nome do arquivo depende do sistema.
AIX O nome do arquivo depende do sistema. No AIX, o comprimento máximo pode variar.
HP-UX O nome do arquivo depende do sistema. No HP/UX, o comprimento máximo pode variar.
CICS for AIX O valor de EZEDESTP é o nome de uma fila de dados transientes. O padrão é EZEP. Consulte o documento VisualAge Generator Server Guide for Workstation Platforms para saber como definir a fila e associá-la a uma transação que grava o conteúdo da fila numa impressora de terminal.
Solaris O nome do arquivo depende do sistema. No AIX, o comprimento máximo pode variar.
CICS para Solaris O valor de EZEDESTP é o nome de uma fila de dados transientes. O padrão é EZEP. Consulte o documento VisualAge Generator Server Guide for Workstation Platforms para saber como definir a fila e associá-la a uma transação que grava o conteúdo da fila numa impressora de terminal.
Windows NT Igual a OS/2 (C++).
CICS para Windows NT Igual a CICS for AIX.
Dispositivo de Teste Arquivos de impressão não são fechados em interrupção de segmentação.

Não se deve usar o mesmo nome de recurso de sistema em programa que está sendo executado tanto no dispositivo de teste quanto em programa COBOL gerado.

Exemplos

MOVE ITEM TO EZEDESTP;
 
MOVE 'ACCTRPT' TO EZEDESTP;
 
MOVE 'QUAL.PDSFILE(PART)' to EZEDESTP;


[ Início da Página | Página Anterior | Próxima Página | Índice ]