A AUDIT grava o registro no diário do CICS ou no log do IMS log.
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. |
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:
|
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:
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. |
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;