O Customer Information Control System (CICS) é um monitor de transações que atua como middleware entre aplicações e recursos do mainframe, coordenando o processamento online de transações. Ele separa os programas de aplicação online dos demais, gerenciando diretamente a comunicação com terminais e dispositivos.
Transação é uma unidade de processamento iniciada por uma única requisição, geralmente de um usuário final, mas também pode vir de uma página web ou de outro sistema CICS. Cada transação recebe um identificador de 4 caracteres (TRANSID), definido na Program Control Table (PCT), que informa ao CICS qual programa deve ser executado primeiro.
Programa é o módulo de aplicação que executa a lógica de negócio. Uma transação pode consistir em um ou mais programas. A comunicação entre programas é feita via comandos LINK (similar ao CALL do COBOL) e XCTL, com dados passados pela COMMAREA.
Mapa é a definição da interface visual com o usuário, criada com Basic Mapping Support (BMS). Os mapas são agrupados em map sets e definidos por macros assembler como DFHMSD, DFHMDI e DFHMDF.
Exemplo de programa COBOL CICS:
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH PIC S9(4) COMP.
PROCEDURE DIVISION.
MOVE 'Hello World' TO WS-MESSAGE.
MOVE 12 TO WS-LENGTH.
EXEC CICS SEND TEXT FROM(WS-MESSAGE)
LENGTH(WS-LENGTH) END-EXEC.
EXEC CICS RETURN END-EXEC.
Este programa envia uma mensagem de texto para o terminal usando o comando EXEC CICS SEND TEXT e finaliza a tarefa.
Exemplo de definição de mapa BMS:
QCKSET DFHMSD TYPE=MAP,STORAGE=AUTO,MODE=OUT,
LANG=COBOL,TIOAPFX=YES
DFHMSD TYPE=FINAL
A macro DFHMSD define o map set como saída (MODE=OUT) e especifica que os programas que o utilizam são escritos em COBOL (LANG=COBOL).
Exemplo de acesso a arquivo via CICS:
EXEC CICS READ FILE('ACCTFIL')
RIDFLD(ACCTC)
INTO(ACCT-REC)
RESP(WS-RESP)
END-EXEC.
O comando READ lê um registro do arquivo ACCTFIL com base na chave ACCTC, com tratamento de resposta via RESP.
Dominar esses três pilares — transação, programa e mapa — é essencial para desenvolver aplicações CICS robustas e eficientes, integrando lógica de negócio, interface com o usuário e acesso a dados em um ambiente transacional confiável.
Entre em contato conosco para mais informações via whatsapp abaixo.
Doar para a “Future School EAD” é essencial para manter e expandir o acesso à educação gratuita em informática. Esta escola oferece cursos de alta qualidade sem custo, capacitando jovens e adultos com habilidades essenciais para o mercado de trabalho atual.
Sua contribuição permite que mais pessoas transformem suas vidas por meio do aprendizado digital, reduzindo desigualdades sociais e promovendo a inclusão digital. Apoiar a Future School EAD é investir em um futuro mais justo e tecnológico para todos.
Participe do grupo do WhatsAapp (11-98342.2503) no plantão de dúvidas (Sábados).
Você quer ajudar a manter este site?
PIX é celular (11-98342.2503) Favorecido: Jorge Gilberto.
Curso de Java
Curso de Lógica
Curso de TSO
Curso de JCL
Curso de Control_M
Curso de COBOL
Curso de CICS
Curso de QMF
Curso de ROSCOE
Curso de DB2
Curso de Assembly
Conteúdo Extra
© 2017/2024 Future School EAD. Todos os direitos reservados | Desenvolvido por Alberto Lima Soluções Digitais.
© 2017/2024 Future School EAD. Todos os direitos reservados | Desenvolvido por Alberto Lima Soluções Digitais.