       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGCOB02.
      *************************************
      * AREA DE COMENTARIOS - REMARKS
      * AUTHOR    = CARLOS MATHEUS
      * DATA      = 14/05/2021
      * OBJECTIVE = RECEBER E IMPRIMIR UMA STRING
      *************************************
       ENVIRONMENT DIVISION.
       
       DATA DIVISION.
       
       WORKING-STORAGE SECTION.
       77 WRK-NOME PIC X(20) VALUE SPACES.       

       PROCEDURE DIVISION.
           ACCEPT WRK-NOME FROM CONSOLE.
           DISPLAY 'NOME: ' WRK-NOME.
           STOP RUN.