Bellacosa Mainframe e o comando CALL e subprogramas em COBOL

Chamando Subprogramas em COBOL – Tipos de comandos CALL

Um dos recursos mais importantes do COBOL é a capacidade de dividir uma aplicação em vários módulos menores chamados:

Subprogramas

Isso permite reutilização de código, manutenção mais simples e melhor organização das aplicações Mainframe.

---

O que é um Subprograma?

É um programa COBOL que é chamado por outro programa.

---

Estrutura

Programa Principal
        ↓
     CALL
        ↓
   Subprograma
        ↓
     GOBACK
        ↓
Programa Principal

---

Exemplo Simples

Programa Principal:

CALL 'CALCULA'.

---

Subprograma:

IDENTIFICATION DIVISION.
PROGRAM-ID. CALCULA.

PROCEDURE DIVISION.

DISPLAY 'ENTREI NO SUBPROGRAMA'.

GOBACK.

---

Resultado:

ENTREI NO SUBPROGRAMA

---

Tipos de CALL

Existem vários tipos de chamada.

---

1. CALL Estático

O nome do programa é conhecido durante a compilação.

CALL 'CALCULA'

---

Características:

✅ Mais rápido

✅ Verificação na Linkedição

✅ Muito usado em Batch

---

Fluxo:

MAIN
 ↓
CALL 'CALCULA'
 ↓
CALCULA

---

2. CALL Dinâmico

O nome do programa está em uma variável.

01 WS-PGM PIC X(8).

MOVE 'CALCULA' TO WS-PGM.

CALL WS-PGM.

---

Características:

✅ Flexibilidade

✅ Escolha em tempo de execução

✅ Muito usado em frameworks

---

Fluxo:

WS-PGM
   ↓
CALCULA
VALIDA
CONSULTA

---

Exemplo

IF TIPO = 'A'

   MOVE 'CALCA' TO WS-PGM

ELSE

   MOVE 'CALCB' TO WS-PGM

END-IF

CALL WS-PGM

---

3. Nested Program Call

Programa interno chamando outro.

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

PROCEDURE DIVISION.

CALL 'SUB1'.

---

PROGRAM-ID. SUB1.

CALL 'SUB2'.

---

Fluxo:

MAIN
 ↓
SUB1
 ↓
SUB2

---

4. CALL Recursivo

Um programa chama ele próprio.

Necessário:

RECURSIVE PROGRAM

---

Exemplo:

IDENTIFICATION DIVISION.
PROGRAM-ID. FATORIAL
RECURSIVE.

---

Fluxo:

FATORIAL
    ↓
FATORIAL
    ↓
FATORIAL

---

5. CALL para Módulos LE

Chamada de rotinas do Language Environment.

Exemplo:

CALL 'CEE3ABD'

---

Usado para:

• ABEND controlado

• Datas

• Hora

• Serviços LE

---

6. CALL para Rotinas Assembler

Muito comum em Mainframe.

CALL 'ROTASM01'

---

Fluxo:

COBOL
 ↓
ASSEMBLER
 ↓
COBOL

---

7. CALL para CICS

Em CICS normalmente usamos:

EXEC CICS LINK
     PROGRAM('PROG2')
END-EXEC.

---

Ou

EXEC CICS XCTL
     PROGRAM('PROG2')
END-EXEC.

---

LINK x XCTL

LINK

Retorna ao chamador.

PROG1
 ↓
LINK
 ↓
PROG2
 ↓
Retorna

---

XCTL

Não retorna.

PROG1
 ↓
XCTL
 ↓
PROG2

---

Passagem de Parâmetros

O mais comum.

---

Programa Principal

CALL 'CALCULA'
USING WS-VALOR.

---

Subprograma

LINKAGE SECTION.

01 LK-VALOR PIC 9(5).

PROCEDURE DIVISION USING LK-VALOR.

---

Fluxo

MAIN
 ↓
USING
 ↓
LINKAGE

---

Múltiplos Parâmetros

Programa Principal:

CALL 'CALCULA'

USING

   WS-NOME
   WS-SALDO
   WS-DATA.

---

Subprograma:

PROCEDURE DIVISION USING

   LK-NOME
   LK-SALDO
   LK-DATA.

---

BY REFERENCE

Padrão do COBOL.

Passa endereço.

CALL 'PROG1'

USING BY REFERENCE WS-NOME.

---

Pode alterar o valor original.

---

BY CONTENT

Passa cópia.

CALL 'PROG1'

USING BY CONTENT WS-NOME.

---

Não altera a variável original.

---

BY VALUE

Passa valor diretamente.

Muito usado em integração com C.

CALL 'PROG1'

USING BY VALUE WS-CODIGO.

---

Exemplo

MOVE 100 TO WS-VALOR

CALL 'TESTE'

USING BY CONTENT WS-VALOR

---

Subprograma altera:

MOVE 500 TO LK-VALOR

---

Resultado:

WS-VALOR = 100

---

CANCEL

Remove programa da memória.

CANCEL 'CALCULA'

---

Muito usado após CALL dinâmico.

---

Fluxo

CALL
 ↓
Executa
 ↓
CANCEL
 ↓
Memória liberada

---

CALL e Load Modules

O programa chamado precisa estar:

STEPLIB
JOBLIB
LINKLIST
LPA

---

Erros Comuns

S806

Programa não encontrado.

S806

---

U4038

Erro interno.

---

S0C4

Parâmetro incorreto.

---

Boas Práticas

✅ Usar GOBACK nos subprogramas

✅ Validar parâmetros recebidos

✅ Documentar USING

✅ Evitar excesso de níveis CALL

✅ Utilizar COPYBOOK para parâmetros

---

Exemplo Corporativo

MAIN
 │
 ├── VALIDA
 │
 ├── CONSULTA-DB2
 │
 ├── CALCULA-JUROS
 │
 ├── GERA-ARQUIVO
 │
 └── LOG-ERRO

Cada módulo é um subprograma especializado.

---

Resumo Rápido

Tipo	Característica
CALL Estático	Nome fixo
CALL Dinâmico	Nome variável
Nested	Programa dentro de programa
Recursivo	Chama a si próprio
LINK CICS	Retorna
XCTL CICS	Não retorna
BY REFERENCE	Passa endereço
BY CONTENT	Passa cópia
BY VALUE	Passa valor
CANCEL	Remove da memória

---

Conclusão

O comando CALL é o mecanismo que permite a modularização das aplicações COBOL. Através dele, programas podem compartilhar regras de negócio, reutilizar código e organizar grandes sistemas corporativos em componentes menores. Dominar CALL estático, dinâmico, parâmetros USING, BY REFERENCE, BY CONTENT, BY VALUE, LINK, XCTL e CANCEL é essencial para qualquer programador COBOL que deseje atuar em ambientes Mainframe modernos.

 

Bellacosa Mainframe e o comando Goback em Cobol

O que é o comando GOBACK em COBOL?

O comando GOBACK é utilizado para encerrar a execução de um programa ou retornar o controle para o programa chamador.

Ele é considerado uma das instruções mais importantes do COBOL moderno e, em muitos ambientes, substitui o uso de STOP RUN.

---

Definição Simples

O GOBACK significa:

Volte para quem me chamou

ou, se não existir programa chamador:

Termine a execução

---

Sintaxe

GOBACK.

---

Exemplo Simples

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

PROCEDURE DIVISION.

DISPLAY 'OLA MUNDO'.

GOBACK.

Resultado:

OLA MUNDO

Programa finalizado.

---

Como Funciona?

O comportamento depende da forma como o programa foi executado.

---

Programa Principal

Executado por JCL:

//STEP1 EXEC PGM=PROG1

Fluxo:

JCL
 ↓
PROG1
 ↓
GOBACK
 ↓
Fim da execução

---

Subprograma

Programa principal:

CALL 'SUBROT1'.

Subprograma:

DISPLAY 'ENTREI'.

GOBACK.

Fluxo:

MAIN
 ↓
CALL SUBROT1
 ↓
GOBACK
 ↓
MAIN continua

---

Exemplo Completo

Programa Principal:

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.

PROCEDURE DIVISION.

DISPLAY 'ANTES'.

CALL 'SUB1'.

DISPLAY 'DEPOIS'.

GOBACK.

---

Subprograma:

IDENTIFICATION DIVISION.
PROGRAM-ID. SUB1.

PROCEDURE DIVISION.

DISPLAY 'SUBPROGRAMA'.

GOBACK.

---

Saída:

ANTES
SUBPROGRAMA
DEPOIS

---

GOBACK x STOP RUN

Essa é a comparação mais importante.

GOBACK	STOP RUN
Retorna ao chamador	Finaliza tudo
Seguro para subprogramas	Perigoso em subprogramas
Recomendado atualmente	Uso tradicional
Funciona em programas chamados	Encerra toda aplicação

---

Exemplo Visual

GOBACK

MAIN
 ↓
SUB1
 ↓
GOBACK
 ↓
MAIN continua

---

STOP RUN

MAIN
 ↓
SUB1
 ↓
STOP RUN
 ↓
Tudo termina

---

Uso em Batch

Muito comum.

OPEN INPUT ARQCLI

PERFORM PROCESSA

CLOSE ARQCLI

GOBACK.

---

Uso em Subprogramas

É a principal recomendação.

CALL 'CALCULO'

CALL 'VALIDA'

GOBACK.

---

Uso em Programas DB2

Também é amplamente utilizado.

IF SQLCODE NOT = 0

   DISPLAY SQLCODE

   GOBACK

END-IF.

---

GOBACK e Return Code

Pode ser combinado com:

MOVE 8 TO RETURN-CODE.

GOBACK.

Resultado:

CC=0008

---

GOBACK e Language Environment

No ambiente LE (Language Environment), o GOBACK é tratado de forma inteligente.

Se existir chamador:

Retorna ao chamador

Se não existir:

Finaliza execução

---

EXIT PROGRAM x GOBACK

Outro comando relacionado.

---

EXIT PROGRAM

EXIT PROGRAM.

Retorna apenas ao chamador.

---

GOBACK

GOBACK.

Retorna ao chamador ou termina a aplicação.

---

Comparação

Comando	Função
EXIT PROGRAM	Retorna ao chamador
GOBACK	Retorna ou termina
STOP RUN	Finaliza tudo

---

Exemplo com EXIT PROGRAM

IDENTIFICATION DIVISION.
PROGRAM-ID. SUB1.

PROCEDURE DIVISION.

DISPLAY 'SUB'.

EXIT PROGRAM.

---

Boas Práticas

✅ Utilize GOBACK em subprogramas

✅ Utilize GOBACK em programas novos

✅ Defina RETURN-CODE quando necessário

✅ Evite STOP RUN em módulos chamados

✅ Padronize o encerramento dos programas

---

Erros Comuns

STOP RUN em subprograma

CALL 'SUB1'

SUB1:

STOP RUN.

Resultado:

Aplicação inteira termina

---

Não retornar código

GOBACK.

Sem:

MOVE 8 TO RETURN-CODE

Pode dificultar automação.

---

Curiosidades

1. O GOBACK foi introduzido para simplificar o retorno de programas chamados

2. É amplamente recomendado pela IBM para novos desenvolvimentos

3. Funciona perfeitamente com Language Environment (LE)

4. É um dos comandos mais encontrados em aplicações COBOL modernas

5. Em muitos padrões corporativos, STOP RUN é proibido em subprogramas

---

Resumo Rápido

Conceito	Função
GOBACK	Retorna ao chamador ou termina
STOP RUN	Finaliza toda aplicação
EXIT PROGRAM	Retorna ao chamador
CALL	Chama subprograma
RETURN-CODE	Código retorno
LE	Language Environment
Batch	Uso comum
Subprograma	Comando recomendado

---

Conclusão

O GOBACK é o comando de encerramento mais flexível do COBOL moderno. Ele permite que um subprograma retorne ao programa chamador sem interromper toda a aplicação e, quando executado em um programa principal, encerra normalmente a execução. Por isso, é considerado a melhor prática para o desenvolvimento COBOL em ambientes z/OS, CICS, IMS e DB2.

  

Bellacosa Mainframe e o comando Stop Run em Cobol

O que é o comando STOP RUN em COBOL?

O comando STOP RUN é uma das instruções mais conhecidas da linguagem COBOL.

Sua função é:

Encerrar a execução do programa

Quando o COBOL encontra um STOP RUN, ele finaliza o programa e devolve o controle ao sistema operacional (z/OS), ao CICS, ao Job Batch ou ao ambiente que executou o programa.

---

Sintaxe

STOP RUN.

---

Exemplo Simples

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

PROCEDURE DIVISION.

DISPLAY 'OLA MUNDO'.

STOP RUN.

Resultado:

OLA MUNDO

O programa termina logo após o DISPLAY.

---

Fluxo de Execução

Início Programa
       ↓
Comandos COBOL
       ↓
STOP RUN
       ↓
Fim Programa
       ↓
Retorno ao z/OS

---

O que acontece internamente?

Quando executado:

STOP RUN.

o COBOL:

✅ Fecha arquivos abertos

✅ Libera memória

✅ Finaliza o Language Environment (LE)

✅ Retorna ao sistema operacional

✅ Define o Return Code

---

Exemplo em Batch

DISPLAY 'PROCESSAMENTO OK'.

STOP RUN.

JCL:

//STEP1 EXEC PGM=FIN001

Resultado:

CC 0000

(Job encerrado com sucesso)

---

STOP RUN e Return Code

Podemos definir um código de retorno.

Exemplo:

MOVE 8 TO RETURN-CODE.

STOP RUN.

Resultado:

CC 0008

No SDSF:

RC=0008

---

Exemplo de Erro

IF SQLCODE NOT = 0

   MOVE 16 TO RETURN-CODE

   STOP RUN

END-IF.

Resultado:

CC=0016

---

STOP RUN x GOBACK

Uma das dúvidas mais comuns.

---

STOP RUN

Finaliza completamente a aplicação.

STOP RUN.

---

GOBACK

Retorna ao programa chamador.

GOBACK.

---

Exemplo

Programa principal:

CALL 'SUBROT1'.

---

Subprograma:

GOBACK.

Retorna ao programa principal.

---

Se usar:

STOP RUN.

todo o processo termina.

---

Exemplo Visual

Com GOBACK

MAIN
 ↓
SUB1
 ↓
GOBACK
 ↓
MAIN continua

---

Com STOP RUN

MAIN
 ↓
SUB1
 ↓
STOP RUN
 ↓
Tudo termina

---

Uso em Subprogramas

Normalmente:

❌ Evita-se STOP RUN

✅ Usa-se GOBACK

---

Exemplo Incorreto

PROGRAM-ID. SUBROT1.

DISPLAY 'SUB'.

STOP RUN.

Se chamado por:

CALL 'SUBROT1'

todo o JOB poderá terminar.

---

Exemplo Correto

PROGRAM-ID. SUBROT1.

DISPLAY 'SUB'.

GOBACK.

---

STOP RUN em CICS

Programas CICS não devem usar:

STOP RUN

Normalmente utilizam:

EXEC CICS RETURN
END-EXEC

---

STOP RUN em IMS

Em IMS TM também não é recomendado.

Utilizam-se comandos específicos do ambiente.

---

STOP RUN em Batch

É onde aparece com maior frequência.

---

Exemplo:

OPEN INPUT ARQENT.

PERFORM PROCESSA-ARQUIVO.

CLOSE ARQENT.

STOP RUN.

---

STOP RUN e Arquivos

Antes do STOP RUN é boa prática:

CLOSE ARQENT.
CLOSE ARQSAI.

STOP RUN.

---

Embora...

O runtime normalmente feche os arquivos automaticamente.

---

STOP RUN e Language Environment

O LE (Language Environment) interpreta:

STOP RUN

como:

Fim da aplicação

Executando rotinas de limpeza.

---

Evolução Histórica

Nas versões antigas:

STOP RUN

era praticamente obrigatório.

Hoje:

GOBACK

é mais utilizado em muitos ambientes.

---

Boas Práticas

✅ Use STOP RUN em programas principais Batch

✅ Use GOBACK em subprogramas

✅ Defina RETURN-CODE quando necessário

✅ Feche arquivos antes de terminar

---

Erros Comuns

Usar STOP RUN em subprograma

Pode encerrar toda a aplicação.

---

Usar STOP RUN em CICS

Pode gerar problemas de execução.

---

Não definir RETURN-CODE

Dificulta automação e controle do Scheduler.

---

Exemplo Completo

IDENTIFICATION DIVISION.
PROGRAM-ID. TESTE.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 WS-TOTAL PIC 9(5).

PROCEDURE DIVISION.

MOVE 100 TO WS-TOTAL.

DISPLAY 'TOTAL = ' WS-TOTAL.

MOVE 0 TO RETURN-CODE.

STOP RUN.

---

Curiosidades

1. STOP RUN existe desde as primeiras versões do COBOL

2. É um dos comandos mais executados do mundo corporativo

3. Milhões de JOBs Batch terminam diariamente através dele

4. Em aplicações modernas, GOBACK costuma substituir STOP RUN em muitos cenários

---

Resumo Rápido

Comando	Função
STOP RUN	Finaliza o programa
GOBACK	Retorna ao chamador
RETURN-CODE	Define código de retorno
CLOSE	Fecha arquivos
EXEC CICS RETURN	Finaliza transação CICS
Batch	Uso comum de STOP RUN
Subprograma	Preferir GOBACK

---

Conclusão

O STOP RUN é o comando responsável por encerrar a execução de um programa COBOL e devolver o controle ao ambiente que o executou. Em programas Batch ele é amplamente utilizado, enquanto em subprogramas normalmente é substituído por GOBACK, que retorna o controle ao programa chamador sem finalizar toda a aplicação.