Auxílios do VisualAge Generator

AUDIT

A AUDIT grava o registro no diário do CICS ou no log do IMS log.

Usos

O programa pode usar a AUDIT para gravar informações de rastreamento no diário ou no log do sistema.

>>-AUDIT--registro----+------+--;------------------------------><
                      '-,jid-'
 

Atributo Descrição
registro O nome de um registro a ser gravado em um arquivo de auditoria. Os primeiros 2 bytes contêm o comprimento do registro a ser gravado. Os próximos 2 bytes contêm um código fornecido pelo usuário identificando a fonte do registro de auditoria. O primeiro byte so código do usuário tem que situar-se dentro do intervalo de X'A0' a X'FF'.

Além de conter o comprimento do registro e o código identificador do registro, os primeiros 28 bytes estão reservados para uso do sistema. Eles não deveriam conter dados de usuário porque os dados são sobrepostos quando eles são escritos no terminal. Os bytes de 29 a 32767 estão disponíveis para dados de auditoria do usuário.

jid Um parâmetro opcional que especifica a ID (1-99) do arquivo de auditoria para no qual a rotina de serviço grava o registro. Se jid for omitido, o registro é gravado, por padrão, na auditoria do sistema. O parâmetro é um número binário de 2 bytes.

Ambientes de Destino para AUDIT

Ambiente Considerações de Compatibilidade
VM CMS Não suportado.
VM batch Não suportado.
CICS para MVS/ESA Se a opção REPLY estiver especificada em CALL, EZERT8 conterá depois de CALL um destes códigos:

Código
Descrição

000
Concluído sem erros

201
Erro de comprimento

202
Erro de código-fonte

204
Erro no identificador do diário

803
Erro de E/S
MVS/TSO Não suportado.
MVS batch Não suportado a menos que seja especificado um PSB para o programa e que pelo menos uma destas duas opções seja verdadeira para o programa:
  • Ele usa EZEDLPSB ou EZEDLPCB em alguma instrução
  • Ele tem bancos de dados DL/I que não são ELAWORK ou ELAMSG na definição do PSB
  • UsosCSPTDLI
  • Associa pelo menos um arquivo ou EZEPRINT ao GSAM.

Se houver um PSB especificado e uma das duas opções acima for verdadeira, igual a IMS/VS.

IMS/VS O registro é automaticamente convertido para o formato do log do IMS pelo VisualAge Generator somando-se 2 ao comprimento e inserindo-se 2 bytes de zeros binários depois do campo de comprimento. Só o primeiro byte do código identificador do registro é usado. O segundo é ignorado.

O parâmetro jid é ignorado.

O IMS/VS tem um limite máximo de 32765.

IMS BMP Igual a IMS/VS.
CICS para VSE Igual a CICS para MVS/ESA.
VSE batch Não suportado.
CICS para OS/2 Não suportado.
OS/400 Não suportado.
OS/2 (GUI) Não suportado.
Windows (GUI) Não suportado.
OS/2 (C++) Não suportado.
AIX Não suportado.
CICS for AIX Não suportado.
HP-UX Não suportado.
Solaris Não suportado.
CICS for Solaris Não suportado.
Windows NT Não suportado.
CICS para Windows NT Não suportado.
Dispositivo de Teste Nenhum.

Exemplos para AUDIT

Neste exemplo, a estrutura de dados, WRKSTG, é mostrada na tabela a seguir:

Name Nível Ocorrências Tipo Comprimento Bytes
WHOLE 05 1 CHA 32765 32765 /*WHOLE RECORD
HEADER 10 1 CHA 28 28 /*HEADER
COMPRIMENTO 15 1 BIN 4 2 /*RECORD LENGTH (BINARY)
CODE 15 1 CHA 2 2 /*2 CHARACTER CODE
RSRVD1 15 1 CHA 24 24 /*RESERVED
DATA 10 1 CHA 32737 32737 /*USER SUPPLIED DATA
JRNLID 77 1 BIN 4 2 /*JOURNAL ID (BINARY LEVEL-77)

O código a seguir mostra a estrutura de dados gravada no arquivo de auditoria número 2:

MOVE 32765 TO LENGTH;
MOVE 'A' TO CODE;
MOVE 2 TO JRNLID;
MOVE 'THIS IS THE DATA TO BE WRITTEN TO JOURNAL NUMBER 2' TO DATA;
AUDIT WRKSTG,JRNLID;


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