A instrução EXIT PROGRAM especifica o fim de um programa chamado e retorna o controle ao programa chamador.
Syntax:
EXIT PROGRAM |
A instrução EXIT PROGRAM deve aparecer como a última instrução em uma série de instruções imperativas dentro de uma frase.
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.
STOP RUN. |
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.
EXIT PROGRAM.
|