Definições CICS e Administração — CSD, CEDA e CEMT

CSD — o repositório de definições

O CSD (CICS System Dataset) é um VSAM KSDS que armazena todas as definições de recursos do CICS: transações, programas, arquivos, filas TD, terminais, conexões e outros. Toda instalação CICS tem um CSD — sem ele, o CICS não sobe.

Hierarquia de organização dentro do CSD:

Grupos e listas

Um grupo é uma unidade de instalação — você instala (INSTALL) um grupo inteiro de uma vez, ativando todas as definições contidas nele. Isso facilita a gestão de versões: ao subir uma nova versão de uma aplicação, você cria um novo grupo, define todos os recursos, e instala o grupo de uma só vez.

Uma lista referencia grupos. Quando o CICS inicializa, ele lê a lista definida no SIT e instala automaticamente todos os grupos dela. A lista padrão do CICS é DFHLIST (recursos do sistema). As aplicações criam suas próprias listas.

* ver o conteúdo de um grupo
CEDA DISPLAY GROUP(BANCGRP)

* ver os grupos de uma lista
CEDA DISPLAY LIST(BANCLIST)

* adicionar um grupo a uma lista
CEDA ADD GROUP(BANCGRP) LIST(BANCLIST)

* instalar todos os recursos de um grupo no CICS ativo
CEDA INSTALL GROUP(BANCGRP)

CEDA — criando e alterando definições

CEDA (CICS Execute Definition and Administration) é a transação interativa para gerenciar o CSD. Você a acessa digitando CEDA no terminal.

Alternativa em batch — o utilitário DFHCSDUP permite fazer as mesmas operações via JCL, útil para automação de deploy:

//* instalar definições via DFHCSDUP em batch
//CSDUPD   EXEC PGM=DFHCSDUP,REGION=4M
//STEPLIB  DD DSN=CICSTS.SDFHLOAD,DISP=SHR
//DFHCSD   DD DSN=CICSTS.DFHCSD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE TRANSACTION(CNTA)
         GROUP(BANCGRP)
         PROGRAM(PGMCONTA)
         TWASIZE(0)
         PROFILE(DFHCICST)

  DEFINE PROGRAM(PGMCONTA)
         GROUP(BANCGRP)
         LANGUAGE(COBOL)
         EXECKEY(USER)
         CONCURRENCY(THREADSAFE)

  ADD GROUP(BANCGRP) LIST(BANCLIST)
/*

Definindo uma TRANSACTION

A TRANSACTION é o ponto de entrada do usuário no CICS. O usuário digita o TRANSID (4 chars) no terminal e pressiona Enter — o CICS localiza a definição, identifica o programa associado e o executa.

CEDA DEFINE TRANSACTION(CNTA)
            GROUP(BANCGRP)
            PROGRAM(PGMCONTA)       * programa que será executado
            TWASIZE(0)              * Task Work Area — 0 se não usar
            PROFILE(DFHCICST)       * perfil de terminal
            STATUS(ENABLED)         * ENABLED=ativa, DISABLED=desativa
            TASKDATALOC(ANY)        * localização da Working-Storage: ANY ou BELOW
            TASKDATAKEY(USER)       * proteção de memória: USER ou CICS
            PRIORITY(1)             * prioridade de despacho (0-255)
            DTIMOUT(0)              * deadlock timeout em segundos (0=sem timeout)
            SPURGE(YES)             * pode ser purgada pelo operador
            TPURGE(YES)             * pode ser purgada por timeout de terminal

Definindo um PROGRAM

A definição de PROGRAM informa ao CICS onde encontrar o load module e como executá-lo.

CEDA DEFINE PROGRAM(PGMCONTA)
            GROUP(BANCGRP)
            LANGUAGE(COBOL)         * COBOL / ASSEMBLER / PLI / C
            EXECKEY(USER)           * USER=proteção normal, CICS=acesso ao núcleo
            CONCURRENCY(THREADSAFE) * QUASIRENT / THREADSAFE / REQUIRED
            STATUS(ENABLED)
            DATALOCATION(ANY)       * onde o programa pode alocar memória
            RELOAD(NO)              * YES=recarrega do disco a cada execução (dev)
            RESIDENT(NO)            * YES=mantém na memória permanentemente

Definindo um FILE

A definição de FILE associa um nome lógico (usado nos comandos EXEC CICS READ/WRITE) a um dataset VSAM físico.

CEDA DEFINE FILE(CNTFILE)
            GROUP(BANCGRP)
            DSNAME(BANCO.PROD.CNTFILE)  * dataset VSAM físico
            RLSACCESS(NO)               * Record Level Sharing (Sysplex)
            LSRPOOLID(1)                * Local Shared Resources pool
            STRINGS(3)                  * conexões simultâneas ao VSAM
            ADD(YES)                    * permite INSERT (WRITE de novo registro)
            BROWSE(YES)                 * permite STARTBR/READNEXT/ENDBR
            DELETE(YES)                 * permite DELETE
            READ(YES)                   * permite READ
            UPDATE(YES)                 * permite REWRITE após READ UPDATE
            DISPOSITION(SHARE)          * SHARE=acesso compartilhado
            STATUS(ENABLED)
            OPENSTATUS(OPEN)            * OPEN quando o CICS sobe

Definindo TDQUEUE

Como visto no artigo de TS/TD, filas Transient Data precisam ser definidas no CSD antes de uso.

* fila intrapartição com trigger
CEDA DEFINE TDQUEUE(ALOG)
            GROUP(BANCGRP)
            TYPE(INTRA)
            TRIGGERLEVEL(0)         * 0 = sem trigger automático
            SYSOUTCLASS(*)          * para filas que vão ao SPOOL

* fila extrapartição (dataset externo)
CEDA DEFINE TDQUEUE(RELAT)
            GROUP(BANCGRP)
            TYPE(EXTRA)
            DDNAME(RELDDIN)         * DD no JCL de startup do CICS
            OPENTIME(INITIAL)       * abre quando o CICS sobe
            RECORDFORMAT(VARIABLE)  * FIXED ou VARIABLE
            BLOCKFORMAT(UNBLOCKED)
            DISPOSITION(MOD)

CEMT — gerenciando em tempo de execução

CEMT (CICS Execute Master Terminal) é a transação de operação do CICS — permite consultar e alterar o estado de recursos em tempo real, sem modificar o CSD. É o painel de controle do operador.

* consultar status de uma transação
CEMT INQUIRE TRANSACTION(CNTA)

* desabilitar uma transação em produção
CEMT SET TRANSACTION(CNTA) DISABLED

* reabilitar
CEMT SET TRANSACTION(CNTA) ENABLED

* recarregar programa com nova versão do load module
CEMT SET PROGRAM(PGMCONTA) NEWCOPY

* fechar arquivo para manutenção
CEMT SET FILE(CNTFILE) CLOSED DISABLED

* reabrir arquivo
CEMT SET FILE(CNTFILE) OPEN ENABLED

* listar todas as tarefas ativas
CEMT INQUIRE TASK

* purgar (cancelar) uma tarefa pelo número
CEMT SET TASK(00123) PURGE

* ver status de todos os arquivos
CEMT INQUIRE FILE

* ver conexões DB2 ativas
CEMT INQUIRE DB2CONN

Segurança CICS e RACF

O CICS integra com o RACF (Resource Access Control Facility) do z/OS para controlar quem pode executar quais transações, acessar quais arquivos e usar quais filas. A segurança opera em múltiplos níveis:

Segurança de transação

O nível mais comum: controlar quem pode digitar qual TRANSID. No RACF, transações CICS são protegidas pela classe TCICSTRN:

* definir perfil de segurança para a transação CNTA
RDEFINE TCICSTRN CICSPROD.CNTA UACC(NONE)

* permitir acesso ao grupo BANCOPER
PERMIT CICSPROD.CNTA CLASS(TCICSTRN) ID(BANCOPER) ACCESS(READ)

* ativar a classe
SETROPTS CLASSACT(TCICSTRN) RACLIST(TCICSTRN)

Verificando autorizações no programa COBOL

O programa pode verificar se o usuário atual tem permissão sobre um recurso antes de prosseguir:

       WORKING-STORAGE SECTION.
       01  WS-USERID        PIC X(8).
       01  WS-RESP          PIC S9(8) COMP.

       PROCEDURE DIVISION.

       VERIFICAR-AUTORIZACAO.
           * obter o ID do usuário corrente
           EXEC CICS ASSIGN
                          USERID(WS-USERID)
           END-EXEC

           * verificar acesso a um recurso específico
           EXEC CICS QUERY SECURITY
                          RESTYPE('TCICSTRN')
                          RESIDLNG(15)
                          RESID('CICSPROD.CNTA')
                          LOGMESSAGE(NO)
                          READ(WS-PODE-LER)
                          RESP(WS-RESP)
           END-EXEC

           IF WS-PODE-LER = 'Y'
               PERFORM PROCESSAR
           ELSE
               MOVE 'ACESSO NAO AUTORIZADO' TO MENSAGEMO
               PERFORM ENVIAR-MENSAGEM
           END-IF.

Identificação do usuário na transação

Tabelas legadas — PCT, PPT e FCT

Antes do CSD (introduzido no CICS/VS 1.7), as definições eram feitas em tabelas montadas em assembler e linkeditadas ao núcleo do CICS. Você as encontrará em sistemas muito antigos ou em documentações históricas.