******************************************************************
  * AREA DE COMENTARIO - REMARKS 
  * Author: RENILSON BINHO
  * Date: 30/12/2020
  * OBJETIVO: RECEBER CPF E FORMATAR
  * 
  ******************************************************************
   IDENTIFICATION DIVISION.
   PROGRAM-ID. PROGCPF.
   ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
   SPECIAL-NAMES.
       DECIMAL-POINT IS COMMA.

   DATA DIVISION.
   WORKING-STORAGE SECTION.
   77 WRK-CPF PIC X(11) VALUE ZEROS.
   77 WRK-CPF-ED PIC ZZZ.ZZZ.ZZ9/99.

   PROCEDURE DIVISION.
       ACCEPT WRK-CPF FROM CONSOLE.
       MOVE WRK-CPF TO WRK-CPF-ED.

        DISPLAY WRK-CPF-ED.
        STOP RUN.
   END PROGRAM PROGCPF.