O COBOL (Common Business Oriented Language) é uma linguagem de programação amplamente utilizada em sistemas de negócios, especialmente em ambientes corporativos e financeiros. Um dos recursos essenciais dessa linguagem é a capacidade de modularizar programas, permitindo que códigos sejam organizados em subprogramas reutilizáveis. O comando CALL é fundamental nesse contexto, pois permite a invocação de programas ou subprogramas externos, facilitando a manutenção e a escalabilidade do software. Neste artigo, vamos explorar a estrutura e a sintaxe do comando CALL e apresentar exemplos práticos de seu uso em programas COBOL.
Comando COBOL: Estrutura e Sintaxe do CALL
O comando CALL em COBOL é utilizado para invocar um programa ou subprograma que foi previamente definido. A estrutura básica do comando é simples, consistindo na palavra-chave CALL seguida do nome do programa ou subprograma a ser chamado, podendo ser passado um parâmetro opcional. A sintaxe básica é a seguinte:
CALL 'nome_do_programa' [USING parametro1, parametro2, ...].É importante ressaltar que o nome do programa pode ser especificado entre aspas simples caso se trate de um programa externo. Já a cláusula USING é utilizada para passar parâmetros entre o programa chamador e o chamado, permitindo uma comunicação eficiente entre eles. Essa modularização é crucial para a organização do código e para a reutilização de lógica de negócios.
Exemplos Práticos de Uso do CALL em Programas COBOL
Vamos considerar um exemplo prático onde um programa principal invoca um subprograma para calcular o imposto sobre um valor fornecido. O programa principal pode ser estruturado da seguinte maneira:
IDENTIFICATION DIVISION.
PROGRAM-ID. ProgramaPrincipal.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Valor PIC 9(5)V99 VALUE 1000.00.
01 Imposto PIC 9(5)V99.
PROCEDURE DIVISION.
CALL 'CalculoImposto' USING Valor, Imposto.
DISPLAY 'O imposto é: ' Imposto.
STOP RUN.No exemplo acima, o programa principal chama o subprograma ‘CalculoImposto’, passando o valor a ser tributado e a variável onde o imposto calculado será armazenado. O subprograma pode ser definido como segue:
IDENTIFICATION DIVISION.
PROGRAM-ID. CalculoImposto.
DATA DIVISION.
LINKAGE SECTION.
01 Valor PIC 9(5)V99.
01 Imposto PIC 9(5)V99.
PROCEDURE DIVISION.
COMPUTE Imposto = Valor * 0.15.
EXIT PROGRAM.Neste subprograma, o valor do imposto é calculado e armazenado na variável Imposto, que é retornada para o programa principal. Esse exemplo ilustra a eficácia do comando CALL em promover a modularidade e a clareza no desenvolvimento de aplicações COBOL.
O comando CALL em COBOL desempenha um papel vital na criação de programas modulares, facilitando a invocação de subprogramas e promovendo a reutilização de código. Com a habilidade de passar parâmetros entre o programa chamador e o chamado, desenvolvedores podem construir soluções mais organizadas e fáceis de manter. Os exemplos apresentados mostram como o uso do CALL pode simplificar a lógica de negócios, permitindo que diferentes partes de um sistema se comuniquem de maneira eficaz. O domínio desse comando é essencial para qualquer programador COBOL que busca desenvolver aplicações robustas e escaláveis.
