       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGATIV01.
      ********************************
      * AREA DE COMENTARIOS - REMARKS
      * AUTHOR    = CARLOS MATHEUS
      * DATA      = 16/04/2021
      * OBJECTIVE = INSERIR UM CPF E
      *             IMPRIMIR NA TELA COM
      *             FORMATAÇÃO CORRETA
      ********************************

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
                  
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 WRK-CPF    PIC X(11)          VALUE SPACES.
       77 WRK-CPF-ED PIC ZZZ.ZZZ.ZZ9/99.
       
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           ACCEPT          WRK-CPF FROM CONSOLE.
           MOVE            WRK-CPF TO WRK-CPF-ED.
           DISPLAY 'CPF: ' WRK-CPF-ED.
           STOP RUN.