CICS - COBOL Basics

Os programas CICS são escritos em linguagem COBOL em Mainframes. Estaremos discutindo sobre como escrever um programa COBOL-CICS simples, compilá-lo e, em seguida, executá-lo.

Programa CICS

Estaremos escrevendo um programa COBOL-CICS simples que exibe algumas mensagens na tela de saída do CICS. Este programa demonstra as etapas envolvidas na execução de um programa COBOL-CICS. A seguir estão as etapas para codificar um programa simples -

Passo 1

Faça login em Mainframes e abra uma sessão TSO.

Passo 2

Crie um novo PDS no qual codificaremos nosso programa.

etapa 3

Crie um novo membro dentro do PDS e codifique o seguinte programa -

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH  PIC S9(4) COMP.
PROCEDURE DIVISION.
A000-MAIN-PARA.
   MOVE 'Hello World' TO WS-MESSAGE
   MOVE '+12' TO WS-LENGTH
   EXEC CICS SEND TEXT 
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)  
   END-EXEC
   EXEC CICS RETURN
   END-EXEC.

Passo 4

Depois de codificar o programa, precisamos compilá-lo. Podemos compilar o programa usando o seguinte JCL -

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C  
//CICSCOB  EXEC CICSCOB,                                                
//COPYLIB = ABC.XYZ.COPYLIB,                            
//LOADLIB = ABC.XYZ.LOADLIB 
//LIB        JCLLIB ORDER = CICSXXX.CICS.XXXPROC                
//CPLSTP     EXEC DFHEITVL                                
//TRN.SYSIN  DD DSN = ABC.XYZ.PDS(HELLO),DISP = SHR     
//LKED.SYSIN DD *                                        
   NAME HELLO(R)                                          
//

Etapa 5

Abra uma sessão CICS.

Etapa 6

Vamos agora instalar o programa usando o seguinte comando -

CEMT SET PROG(HELLO) NEW.

Etapa 7

Execute o programa usando o ID de transação associado. O ID da transação é fornecido pelo administrador. Ele mostrará a seguinte saída -

Compilação de programa

O fluxograma a seguir mostra as etapas usadas na compilação de um programa COBOL-CICS -

Tradutor

A função de um tradutor é verificar se há erros de sintaxe nos comandos CICS. Ele os traduz em instruções COBOL equivalentes.

Compilador

A função de um compilador é expandir os livros de cópias COBOL. Ele compila o código após verificar se há erros de sintaxe no código-fonte.

Editor de ligação

A função de um Linkage Editor é vincular diferentes módulos de objetos para criar um único módulo de carregamento.