PROG002

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROG002.
       AUTHOR.     PEDRO.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 NOME PIC X(40).
       77 IDADE PIC 9(3).
       77 SEXO PIC A(1).
       77 SALARIO PIC 9(5)V99.
       77 SALARIOATUAL PIC 9(4)V99.
       77 SALTOTAL PIC 9.999,99.
       77 CONTINUA PIC X(1).
       SCREEN SECTION.
       01 TELA.
        05 BLANK SCREEN.
        05 LINE 01 COLUMN 29 VALUE "Consistencia de Dados".
        05 LINE 03 COLUMN 23 VALUE "Nome.........:".
        05 LINE 05 COLUMN 23 VALUE "Idade........:".
        05 LINE 07 COLUMN 23 VALUE "Sexo.........:".
        05 LINE 09 COLUMN 23 VALUE "Salario......:".
        05 LINE 11 COLUMN 23 VALUE "Salario Atual:".
        05 LINE 14 COLUMN 27 VALUE "Continua(S/N):".
        05 LINE 17 COLUMN 23 VALUE "Mensagem:".
      *
       PROCEDURE DIVISION.
       010-EXEC-TELA.
           DISPLAY TELA.
       020-EXEC-NOME.
           ACCEPT (03, 38) NOME WITH PROMPT.
           IF NOME = SPACES
              DISPLAY (17, 33) "Nome Invalido!"
              GO TO 020-EXEC-NOME.
           DISPLAY (17, 33) "                   ".
       030-EXEC-IDADE.
           ACCEPT (05, 38) IDADE WITH PROMPT.
           IF IDADE < 14 OR > 30
              DISPLAY (17, 33) "Idade Invalida!"
              GO TO 030-EXEC-IDADE.
           DISPLAY (17, 33) "                    ".
       040-EXEC-SEXO.
           ACCEPT (07, 38) SEXO WITH PROMPT.
           IF SEXO NOT = 'M' AND 'm' AND 'F' AND 'f'
              DISPLAY (17, 33) "Sexo Invalido!"
              GO TO 040-EXEC-SEXO.
           DISPLAY (17, 33) "                   ".
       050-EXEC-SALARIO.
           ACCEPT (09, 38) SALARIO WITH PROMPT.
           IF SALARIO < 499 OR > 5000
              DISPLAY (17, 33) "Salario Invalido!"
              GO TO 050-EXEC-SALARIO.
           DISPLAY (17, 33) "                       ".
       060-EXEC-SALARIOATUAL.
           COMPUTE SALARIOATUAL = (SALARIO * 0,25) + SALARIO.
           MOVE SALARIOATUAL TO SALTOTAL.
           DISPLAY (11, 38) SALTOTAL.
           ACCEPT (14, 42) CONTINUA.
           IF CONTINUA = 'S' OR 's'
              GO TO 010-EXEC-TELA.
       090-FIM.
       STOPRUN.