CICS - Acesso as informações do sistema


Volta a página anterior

Volta ao Menu Principal


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

CICS - Acesso as informações do sistema

O CICS mantém acompanhamento de certos dados que o programa de aplicação pode necessitar durante a execução, dados tais como numero da tarefa, hora e data.

O CICS registra este tipo de dados internos em áreas que o programa de aplicação nao tem acesso direto.
Contudo, o CICS copia os dados num bloco de interface de execução (EIB) que é criado na hora em que a tarefa é iniciada. Existe um EIB por tarefa.
O tradutor de comandos automaticamente inclui uma copia do EIB no programa de aplicação.

O EIB para uma tarefa armazena informações que o programa de aplicação pode então pesquisar usando-se os nomes dos campos. segue os nomes de alguns campos e seus conteúdos.

Campo Tamanho Explicação
EIBDATE S9(007) Data em que teve inicio a tarefa.
Este campo está no formato decimal compactado com o seguinte layout: 00AADDD
EIBTIME S9(007) Hora em que teve inicio a tarefa.
Este campo está no formato decimal compactado com o seguinte layout: 0HHMMSS
EIBTRNID X(004) Identificação da tarefa
EIBTRMID X(004) Identificação do terminal que está associado a tarefa
EIBAID X(001) Contém a última tecla de 'função programada' digitada pelo operador
EIBPOSN S9(004) Posição do cursor na tela na hora da última entrada.
Este campo está no formato computational (COMP)
EIBCALEN S9(004) Contem o tamanho da area de comunicacao (COMMAREA) passada para a TASK.
Se nao foi passada nenhuma COMMAREA, este campo terá o valor igual a zeros.
Este campo está no formato computational (COMP)

Para a atualização da data e hora do sistema há o comando ASKTIME que atualiza os campos EIBTIME e EIBDATE do EIB, com a data e a hora em que o comando é executado.

Exemplo para programa COBOL:

    EXEC CICS
         ASKTIME    
    END-EXEC.