A instrução GOBACK funciona como a instrução EXIT PROGRAM quando é codificada como parte de um programa que é um subprograma em uma unidade de execução COBOL e como a instrução STOP RUN quando codificada em um programa que é um programa principal em uma unidade de execução COBOL.
Declaração GOBACK - Formato:
GOBACK |
Vamos ver o exemplo abaixo,
Código do programa principal:
IDENTIFICATION DIVISION.
PROGRAM-ID. MAINPROG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT1 PIC 9(02).
01 INPUT2 PIC 9(02).
01 OUT-PUT PIC 9(03).
PROCEDURE DIVISION.
ACCEPT INPUT1.
ACCEPT INPUT2.
CALL 'SUBPROG' USING INPUT1, INPUT2, OUT-PUT.
DISPLAY OUT-PUT.
GOBACK. |
Código do Programa SUB/Chamada:
IDENTIFICATION DIVISION.
PROGRAM-ID. SUBPROG.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 INPUT-1 PIC 9(02).
01 INPUT-2 PIC 9(02).
01 OUTPUT PIC 9(03).
PROCEDURE DIVISION USING INPUT-1,INPUT-2,OUTPUT.
COMPUTE OUTPUT = INPUT-1 * INPUT-2.
GOBACK.
|