COBOL – Declaración de continuación

En términos simples, piense en la declaración de continuación como un Guardián que abrirá la puerta para que las personas entren a la premisa para hacer su tarea. Del mismo modo, la instrucción continue también transfiere el control sobre la siguiente instrucción COBOL para su ejecución.

Sintaxis:

CONTINUE

Tomemos el ejemplo de Continuar en Cobol para una mejor comprensión del concepto.

Ejemplo:

IDENTIFICATION DIVISION.
       PROGRAM-ID. DEMO1.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
           01 WALLET         PIC 9(05) VALUE ZERO.
           01 STD-VAL        PIC 9(05).
           01 COST           PIC 9(05).
           01 STD-QUANTITY   PIC 9(01) VALUE ZERO.
       PROCEDURE DIVISION.
           MOVE ZEROES TO WALLET.
           DISPLAY 'ADD MONEY TO WALLET'
           ACCEPT STD-VAL
           DISPLAY 'MONEY ADDED: 'STD-VAL.
           DISPLAY 'HOW MANY TICKET YOU WANT TO BUY 1 TICKET COST: 250'.
           ACCEPT STD-QUANTITY
           COMPUTE WALLET = WALLET + STD-VAL
           COMPUTE COST = 250 * STD-QUANTITY
             
           IF WALLET - COST >= 0
               CONTINUE
           ELSE
               DISPLAY 'INSUFFICIENT BALANCE'
               MOVE 16 TO RETURN-CODE
               GOBACK
               EXIT
           END-IF.
                 
           COMPUTE WALLET = WALLET - COST
           DISPLAY 'PURCHASE SUCCESSFUL BALANCE LEFT: ' WALLET.
             
           STOP-RUN.

Explicación:

Hay 2 escenarios que sucederán en el código, que se regirán por la instrucción IF WALLET – COST >= 0 CONTINUE, lo que significa que si el valor en la billetera es mayor que el valor de la compra, se realizará una transacción exitosa y se deducirá el dinero. de la billetera y si el saldo en la billetera no es suficiente, saldrá con el código de retorno 16 y el mensaje «SALDO INSUFICIENTE».

Caso 1: la persona agrega suficiente dinero a la billetera y realiza una compra.

Producción:

Dinero deducido

En el ejemplo anterior, puede ver cómo la declaración Continuar movió el flujo para que la transacción suceda y actualice el valor dentro de Variable WALLET y el programa finaliza con el código de retorno 0.

Caso 2: la persona no agrega suficiente dinero a la billetera y realiza una compra 

Producción:

Dinero no deducido

En este caso, el programa no pasó por la fase de transacción y finalizó con el código de retorno 16 y el mensaje ‘SALDO INSUFICIENTE’.