Auxílios do VisualAge Generator

CREATX

CREATX inicia uma transação assíncrona em um ambiente transacional e passa um registro para a transação sendo iniciada. Se a transação for um programa VisualAge Generator, o registro é usado para inicializar o memória de trabalho do programa.

>>-CREATX--solicitação----+------------+--;--------------------><
                          +-,prid------+
                          '-+--------+-'
                            '-,recip-'
 

Atributo Descrição
solicitação O nome de um registro de memória de trabalho. O registro de armazenamento de trabalho tem que ter o seguinte formato:
  • Os 2 primeiros bytes (binários) contém o comprimento dos dados a serem passados à transação iniciada, mais 10 para os campos de nome de transação e comprimento. Esses 2 bytes não são passados para a transação iniciada. O comprimento máximo não pode exceder 32767 bytes.
  • Os próximos 8 bytes (caracteres) contêm o nome da transação a ser iniciada. Esses 8 bytes não são passados para a transação iniciada.
    Nota:O nome da transação é dependente do sistema e é descrito nas considerações sobre compatibilidade. Se a transação chamar um programa VisualAge Generator, o programa deve ser do tipo principal.
  • A parte restante do registro de solicitação é passado para a transação iniciada.
prid Item binário opcional de 4 caracteres ou 4 bytes. Seu uso é dependente do sistema e está descrito na seção Ambientes de Destino. Quando se especifica recip, prid é obrigatório.
recip Item opcional de 4 caracteres que contém a ID do terminal a ser associado à transação que está sendo iniciada.

Considerações sobre Definição para CREATX

Pode-se usar o serviço CREATX em ambientes CICS para iniciar uma transação em sistema remoto e passar um registro à transação para ser processado. O programa remoto recebe o registro na área de armazenamento quando a transação é iniciada.

Na geração do programa, use a tabela de ligação para especificar que a instrução CREATX inicia uma transação em sistema remoto. A tabela de ligação também especifica como a localização do sistema remoto deve ser determinada e se os dados do registro de armazenamento de trabalho precisam ser convertidos entre o formato do mainframe e o da estação de trabalho. Consulte a seção sobre implementação do processamento cooperativo usando a rotina de serviço CREATX no documento VisualAge Generator Design Guide para saber mais a esse respeito.

Os argumentos prid e recip são ignorados se especificados em chamada CREATX a programa remoto. A transação iniciada não é associada a nenhum terminal.

Ambientes de Destino para CREATX

Ambiente Considerações de Compatibilidade
VM CMS Não suportado.
VM batch Não suportado.
CICS para MVS/ESA O código da transação CICS de 4 bytes deve ser seguido por 4 bytes de espaços em branco no campo de nome da transação do registro do pedido. Nem o comprimento de 2 bytes nem o campo de nome da transação são passados para a transação iniciada.

CREATX resulta na emissão de um comando START CICS para a transação indicada. O comando START é emitido com ou sem terminal associado a ele, dependendo do conteúdo de recip.

Se recip for omitido, a transação iniciada será associada ao terminal atual. O valor de prid é ignorado.

Se PRINTDEST=TERMID e recip forem definidos para zeros binários, o valor de prid se transformará no valor inicial de EZEDESTP na transação iniciada. O comando START CICS é emitido sem terminal associado a ele.

Se PRINTDEST=TERMID, EZEDESTP será inicializado assim:

  • Se programa de batch principal, EZEDESTP é inicializado para EIBTRMID
  • Se transação principal, EZEDESTP é inicializado para o destino associado a EZEPRINT na geração.
  • Se programa chamado, serão seguidas as mesmas orientações a menos que o chamador também exiba mapas de impressora, caso em que o programa chamado sempre é inicializado com o mesmo destino que o programa que faz a chamada.

Se PRINTDEST=EZEP, EZEDESTP será sempre inicializado para o destino associado a EZEPRINT na geração.

Se não for zeros binários, recip terá que conter a ID do terminal a ser associado à transação que está sendo iniciada. Tanto pode ser uma ID de terminal quanto de impressora. Não é recomendável que seja o terminal atual. Use XFER para iniciar a nova transação no terminal atual. O valor de prid é ignorado.

A transação iniciada tem que ter entradas PCT e PPT para o programa. Se não for um programa VisualAge Generator, a transação iniciada terá que emitir um RETRIVE CICS para obter a área de trabalho passada.

CICS para MVS/ESA (continuação) Se a opção REPLY estiver especificada em CALL, EZERT8 poderá conter os seguintes códigos de retorno:
Código
Descrição
00000000
CREATX bem-sucedida
00000203
Identificador de transação inválido
00000205
Identificador de terminal inválido
00000206
Parâmetros inválidos
00000207
Identificador de sistema inválido
00000208
Ligação desativada
ffrrrrrr
Outro erro de CICS em que ff é a representação hexadecimal do byte 0 de EIBFN e rrrrrr é a representação hexadecimal dos bytes 0 a 2 de EIBRCODE.
MVS/TSO Não suportado.
MVS batch Não suportado.
IMS/VS O campo de nome da transação no registro do pedido é o código da transação IMS de 8 bytes.

CREATX resulta numa inserção no PCB alternativo modificável. A área de trabalho indicada é passada como mensagem. O programa COBOL gerado adiciona automaticamente 2 bytes extras entre o comprimento e a transação e acrescenta 2 ao valor do comprimento. A transação é iniciada sem terminal associado a ela. Prid e recip são ignorados.

O comprimento máximo do registro do pedido é de 32765 bytes.

A transação que é iniciada tem que ser incluída no GEN do IMS e tem que ser definida como não-conversacional. Se não for programa VisualAge Generator, a transação iniciada terá que emitir uma chamada get unique ao PCB de E/S para recuperar a mensagem.

CREATX não é suportada nem de nem para programa que fica em sistema remoto.

Se a opção REPLY estiver especificada na chamada, EZERT8 poderá conter o valor:

Código
Descrição
00000203
Falha de CREATX. A causa mais provável é um identificador de transação inválido.
IMS BMP Igual a IMS/VS.
CICS para VSE Igual a CICS para MVS/ESA.
VSE batch Não suportado.
CICS para OS/2 É preciso que o código da transação CICS de 4 bytes seja seguido por 4 bytes de espaços em branco no campo de nome da transação do registro do pedido.

CREATX resulta na emissão de um comando START CICS para a transação indicada. O comando START é emitido com ou sem terminal associado a ele, dependendo do conteúdo de recip.

Se recip for omitido, a transação iniciada será associada ao terminal atual. O valor de prid é ignorado.

Se não for zeros binários, recip terá que conter a ID do terminal a ser associado à transação que está sendo iniciada. Tanto pode ser uma ID de terminal quanto de impressora. Não é recomendável que seja o terminal atual. Use XFER para iniciar a nova transação no terminal atual. O valor de prid é ignorado.

A transação iniciada tem que ter entrada PCT para o programa. Se não for um programa VisualAge Generator, a transação iniciada terá que emitir um RETRIVE CICS para obter a área de trabalho passada.

O argumento prid será ignorado se especificado.

CREATX resulta na emissão de um comando START CICS para a transação indicada. A transação é iniciada sem terminal associado a ela.

Consulte no CICS para MVS/ESA a lista de códigos de retorno de EZERT8 se a opção REPLY estiver especificada em CALL.

OS/400 VisualGen Host Services for OS/400 fornece suporte do OS/400 a CREATX por meio de programas de linguagem de comando (CL) (PGMs). Dois PGMs de CL no produto VisualGen Host Services for OS/400 suportam a função CREATX: CREATX e CREATXPP. CREATX obtém o número do job atual e envia os dados do usuário à fila de dados chamada VGCREATX. CREATX inicia então um novo job chamado CREATXJOB, que inicia o PGM CL CREATXPP. CREATXPP usa o número do job anterior como chave para recuperar os dados da fila de dados VGCREATX. CREATXPP chama então o PGM CL assíncrono especificado nos bytes de 3 a 11 do registro de dados do usuário.

Defina os argumentos de chamada de CREATX desta forma:

VG RECORD
O comprimento de registro máximo é de 4095 bytes para chamadas CREATX do OS/400.

Os bytes de 1 a 2 são o comprimento dos dados do VisualGen que estão sendo passados, mais 10 para o campo de comprimento e para o campo de nome do programa. Os bytes de 3 a 11 são o nome do programa assíncrono. Os bytes de 12 a 4095 são os verdadeiros dados do usuário do VisualGen.

PRID
Campo char de 4 bytes com o valor da fila de saída usada para o job assíncrono. O valor padrão é VGEN. (Essa fila de saída tem que ser definida antes da execução da primeira chamada de CREATX.)

RECIP
Este parâmetro não é usado no CREATX do AS/400, mas deve ser especificado para fins de compatibilidade com o ambiente.
OS/2 (GUI) Os argumentos prid e recip são ignorados se especificados.
Windows (GUI) Não suportado.
OS/2 (C++) Igual a OS/2 (GUI).
AIX Igual a OS/2 (GUI).
CICS for AIX É preciso que o código da transação CICS de 4 bytes seja seguido por 4 bytes de espaços em branco no campo de nome da transação do registro do pedido.

CREATX resulta na emissão de um comando START CICS para a transação indicada. O comando START é emitido com ou sem terminal associado a ele, dependendo do conteúdo de recip.

Se recip for omitido, a transação iniciada será associada ao terminal atual. O valor de prid é ignorado.

Se não for zeros binários, recip terá que conter a ID do terminal a ser associado à transação que está sendo iniciada. Tanto pode ser uma ID de terminal quanto de impressora. Não é recomendável que seja o terminal atual. Use XFER para iniciar a nova transação no terminal atual. O valor de prid é ignorado.

A transação iniciada tem que ter entrada PCT para o programa. Se não for um programa VisualAge Generator, a transação iniciada terá que emitir um RETRIVE CICS para obter a área de trabalho passada.

O argumento prid será ignorado se especificado.

CREATX resulta na emissão de um comando START CICS para a transação indicada. A transação é iniciada sem terminal associado a ela.

Consulte no CICS para MVS/ESA a lista de códigos de retorno de EZERT8 se a opção REPLY estiver especificada em CALL.

HP-UX Igual a OS/2 (GUI).
Solaris Igual a OS/2 (GUI).
CICS for Solaris É preciso que o código da transação CICS de 4 bytes seja seguido por 4 bytes de espaços em branco no campo de nome da transação do registro do pedido.

CREATX resulta na emissão de um comando START CICS para a transação indicada. O comando START é emitido com ou sem terminal associado a ele, dependendo do conteúdo de recip.

Se recip for omitido, a transação iniciada será associada ao terminal atual. O valor de prid é ignorado.

Se não for zeros binários, recip terá que conter a ID do terminal a ser associado à transação que está sendo iniciada. Tanto pode ser uma ID de terminal quanto de impressora. Não é recomendável que seja o terminal atual. Use XFER para iniciar a nova transação no terminal atual. O valor de prid é ignorado.

A transação iniciada tem que ter entrada PCT para o programa. Se não for um programa VisualAge Generator, a transação iniciada terá que emitir um RETRIVE CICS para obter a área de trabalho passada.

O argumento prid será ignorado se especificado.

CREATX resulta na emissão de um comando START CICS para a transação indicada. A transação é iniciada sem terminal associado a ela.

Consulte no CICS para MVS/ESA a lista de códigos de retorno de EZERT8 se a opção REPLY estiver especificada em CALL.

Windows NT Igual a OS/2 (GUI).
CICS para Windows NT Igual a CICS for AIX.
Dispositivo de Teste Nenhum.


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