******************************************************************
* 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.
