IDENTIFICATION DIVISION.
       PROGRAM-ID. PERFORM_VARYING.
##########################################
####### ÁREA DE COMENTÁRIOS - REMARKS
####### AUTHOR: MISAEL(BB) MISAELBB
####### OBJETIVO: RECEBER UM NÚMERO E GERAR A TABUADA DE 1 A 10
####### UTILIZAR O PERFORM - VARYING
####### DATA: 30/01/2024
##########################################
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
               SPECIAL-NAMES.
            DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 WRK-NUMERO                  PIC 9(02)       VALUE ZEROS.
       77 WRK-CONTADOR                PIC 9(02)       VALUE 1.
       77 WRK-RESULTADO               PIC 9(02)       VALUE ZEROS.

       PROCEDURE DIVISION.
       0001-PRINCIPAL.
           PERFORM 0100-INICIALIZAR.
            IF WRK-NUMERO > 0
           PERFORM 0200-PROCESSAR
            END-IF.
           PERFORM 0300-FINALIZAR.
           
           STOP RUN.
       0100-INICIALIZAR.
           ACCEPT WRK-NUMERO FROM CONSOLE.
       
       0200-PROCESSAR.
            PERFORM VARYING WRK-CONTADOR FROM 1 BY 1
              UNTIL WRK-CONTADOR > 10
             COMPUTE WRK-RESULTADO = WRK-NUMERO * WRK-CONTADOR
             DISPLAY WRK-NUMERO ' X ' WRK-CONTADOR ' = ' WRK-RESULTADO
            END-PERFORM.
             
       0300-FINALIZAR.
           DISPLAY '============================================================='
           DISPLAY 'FIM DE PROCESSAMENTO.'.