       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGCOB04.
      ********************************
      * AREA DE COMENTARIOS - REMARKS
      * AUTHOR    = CARLOS MATHEUS
      * DATA      = 16/04/2021
      * OBJECTIVE = RECEBER UM NOME E UM SALÁRIO
      *             IMPRIMIR NA TELA ESSE NOME E SALÁRIO
      *             FORMATADO COM USO DA VÍRGULA
      ********************************
       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-SALARIO PIC 9(06)V99       VALUE ZEROS.
       77  WRK-SALARIO-ED PIC $ZZZ.ZZ9,99 VALUE ZEROS.
       PROCEDURE DIVISION.
      *** INSERE DADOS ***
           ACCEPT WRK-NOME    FROM CONSOLE.
           ACCEPT WRK-SALARIO FROM CONSOLE.
      *** MOSTRA DADOS ***
           DISPLAY 'NOME: '    WRK-NOME.
           MOVE WRK-SALARIO TO WRK-SALARIO-ED.
           DISPLAY 'SALARIO: ' WRK-SALARIO-ED.
           STOP RUN.
