Ainda não tem acesso? Estude com a gente! Matricule-se
Ainda não tem acesso? Estude com a gente! Matricule-se

Solucionado (ver solução)

Considerar CPF que começa com zero (0)

Boa noite!

Gostaria de saber como faríamos pra mostrar CPF's que iniciam com zero! O meu programa está assim:

       IDENTIFICATION DIVISION.
           PROGRAM-ID. MAOSAOBRA1.
      *AUTHOR: BRUNO DE JESUS PINTO
      *OBJETIVO: RECEBER E FORMATAR A SAÍDA DE UM CPF
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 WS-CPF PIC X(11) VALUE ZEROS.
      *CRIANDO UMA MÁSCARA
       77 WS-CPF-FMTDO PIC ZZZ.ZZZ.ZZZ.ZZ VALUE ZEROS.
       PROCEDURE DIVISION.
           ACCEPT WS-CPF FROM CONSOLE.
           MOVE WS-CPF TO WS-CPF-FMTDO.
           DISPLAY 'CPF: ' WS-CPF-FMTDO.

Contudo, quando digito um CPF que inicia com zero, na saída é desconsiderado esse zero.

Exemplo: Entrada no programa - 012.345.678.90 Saída - 12.345.678.90

Obrigado!

2 respostas

Vim aqui fazer a mesma pergunta rs

solução

Bruno e Montival,

Troquem o ZZZ.ZZZ.ZZZ.ZZ por 9ZZ.ZZZ.ZZZ.ZZ

O Z inibe o zeros. O 9 mantem.

Ivan