COBOL - comando EXIT

A instrução EXIT fornece um ponto final comum para uma série de procedimentos. A instrução COBOL EXIT é um verbo de controle de fluxo de terminação.

Syntax:

paragraph-name. EXIT.

A instrução EXIT permite atribuir um nome de procedimento a um determinado ponto em um programa.

A instrução EXIT é tratada como uma instrução CONTINUE. Quaisquer instruções após a instrução EXIT são executadas.

Se um parágrafo EXIT for especificado como o último parágrafo de uma série de parágrafos executados (ou seja, PERFORM THRU), então identifica o final da série de parágrafos executados. Quando o controle atinge um parágrafo EXIT e tal PERFORM THRU está ativo, o controle é transferido de volta para a instrução após o PERFORM THRU. Quando o controle atinge um parágrafo EXIT que não é o fim de um intervalo de parágrafos regidos por um PERFORM THRU ativo, o controle passa através da instrução EXIT para a primeira instrução do seguinte parágrafo.

A instrução EXIT também é útil como ponto de saída para um único parágrafo executado, conforme mostrado abaixo:

    PERFORM 1000-CALCULATE-TOTALS THRU 1000-EXIT.
.......
1000-CALCULATE-TOTALS.
    ADD 1 TO TOTAL-NUMBER-EMPS.
    IF EMP-SALARY LESS THAN 25000
    GO TO 1000-EXIT.

    ADD 1 TO EMPS-MAKING-25K-AND-UP.
    IF EMP-SALARY LESS THAN 50000
    GO TO 1000-EXIT.

    ADD 1 TO EMPS-MAKING-50K-AND-UP.
    IF EMP-SALARY LESS THAN 75000
    GO TO 1000-EXIT.

    ADD 1 TO EMPS-MAKING-75K-AND-UP.
1000-EXIT. EXIT.

Depois que o controle atinge 1000-EXIT, o controle é transferido de volta para a instrução PERFORM e executa as instruções após a instrução PERFORM (PERFORM 1000-CALCULATE-TOTALS THRU 1000-EXIT).