A instrução NEXT SENTENCE transfere o controle para a próxima instrução COBOL, que está imediatamente após a sentença que termina com ponto.
Ele não transfere o controle para o próximo verbo COBOL logicamente.
Declaração - Formato:
NEXT SENTENCE |
Como usar NEXT SENTENCE em COBOL?
Ele pode ser usado em qualquer lugar na construção de programação, como instrução condicional ou fluxo normal de programa.
Ele é usado para alterar o fluxo de execução com base na condição passada para o próximo verbo COBOL logicamente após o próximo período.
Isso tem um impacto no fluxo do programa que pula as instruções entre NEXT SENTENCE e período.
Não virá junto com nenhuma outra declaração codificada acima ou abaixo.
No exemplo abaixo, se as notas do aluno forem inferiores a 35, a instrução NEXT SENTENCE transfere o controle para a instrução imediata após o ponto(.)
IDENTIFICATION DIVISION.
PROGRAM-ID. CBLCONTU.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STD-MARKS PIC 9(03).
01 TOTAL-MARKS PIC 9(03) VALUE ZEROES.
01 STD-PERCENT PIC 9(03).9(02).
01 I PIC 9(01) VALUE ZEROES.
01 J PIC 9(01) VALUE ZEROES.
PROCEDURE DIVISION.
MOVE ZEROES TO TOTAL-MARKS.
* Lógica para obter as 5 notas da disciplina
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5
SET STD-INDEX TO 1
ACCEPT STD-MARKS
IF STD-MARKS < 35
NEXT SENTENCE
ELSE
ADD STD-MARKS TO TOTAL-MARKS
COMPUTE J = J + 1
END-IF
END-PERFORM.
* A lógica abaixo mostra o resultado do aluno.
IF J < 5
DISPLAY 'Aluno reprovado por insuficiencia de nota.'
ELSE
COMPUTE STD-PERCENT = TOTAL-MARKS/5
DISPLAY 'Aluno aprovado com nota: ' STD-PERCENT.
END-IF.
STOP RUN. |
Saída:
Se o aluno passar em todas as 5 disciplinas, o programa exibirá 'Aluno aprovado com nota: XX'. Onde XX contém a nota do aluno.
Se o aluno foi reprovado em qualquer matéria, o programa exibirá a mensagem "Aluno reprovado por insuficiencia de nota."