A instrução CONTINUE permite especificar uma instrução sem operação. CONTINUE indica que nenhuma instrução executável está presente.
Basicamente, a instrução CONTINUE transfere o controle para a próxima instrução COBOL que vem a seguir no fluxo do programa.
CONTINUE Statement - Formato:
CONTINUE |
A instrução CONTINUE pode ser usada em qualquer lugar em que uma instrução condicional ou uma instrução imperativa possa ser usada. Não afeta a execução do programa.
Vejamos um exemplo abaixo que mostrará a porcentagem se o aluno passou em todas as disciplinas ou exibirá quantas disciplinas foram reprovadas
Se alguma nota do aluno estiver abaixo de 35 ao adicionar as notas para calcular a porcentagem, CONTINUE simplesmente passará o controle para a próxima iteração sem interromper o processo.
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.
* Logic below to get 5 subject marks from input.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5
SET STD-INDEX TO 1
ACCEPT STD-MARKS
IF STD-MARKS < 35
CONTINUE
ELSE
ADD STD-MARKS TO TOTAL-MARKS
COMPUTE J = J + 1
END-IF
END-PERFORM.
* Logic below display student result.
IF J < 5
COMPUTE J = I -(J + 1)
DISPLAY 'STUDENT FAILED IN 'J 'SUBJECTS
ELSE
COMPUTE STD-PERCENT = TOTAL-MARKS/5
DISPLAY 'STUDENT PERCENTAGE : ' STD-PERCENT.
END-IF.
STOP RUN. |
OUTPUT:
Se o aluno passar em todas as 5 disciplinas, o programa exibirá 'PERCENTAGEM DE ALUNOS : ' PERCENTAGEM DE STD. Onde STD-PERCENT mantém o valor 0f percentual do aluno.
Se o aluno foi reprovado em qualquer 1 matéria, o programa exibirá 'ESTUDANTE FALHA EM 'J' MATÉRIAS. Onde J mantém o valor do número de alunos da disciplina reprovados.