É possível fazer a mascara assim: 365.698.365-99?
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGCOB04.
*************************************************************************
*
* RECEBER NOME E CPF
* IMPRIMIR E FORMATAR CPF
*************************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 WRK-NOME PIC X(20) VALUE SPACES.
77 WRK-CPF PIC 9(11) VALUE ZEROS.
77 WRK-CPF-ED PIC 999.999.999.99 VALUE ZEROS.
PROCEDURE DIVISION.
ACCEPT WRK-NOME FROM CONSOLE.
ACCEPT WRK-CPF FROM CONSOLE.
***** MOSTRA DADOS ******************************************************
DISPLAY 'NOME: ' WRK-NOME.
MOVE WRK-CPF TO WRK-CPF-ED.
DISPLAY 'SALARIO R$ ' WRK-CPF-ED.
STOP RUN.
