CADASTRO

        IDENTIFICATION DIVISION.
        PROGRAM-ID. DADOS.
        AUTHOR. COLEGIOBR.
        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        SPECIAL-NAMES. DECIMAL-POINT IS COMMA.
        DATA DIVISION.
        WORKING STORAGE SECTION.
        01 AREAS-DE-TRABALHO.
            02 WS-NOME PIC X(30) VALUE SPACES.
            02 WS-IDADE PIC9(02) VALUE ZEROS.
                88 IDADE VALUE 15 THRU 29.
            02 WS-SEXO PIC X VALUE SPACE.
                88 FM VALUE "F" "M" "f" "m".
            02 WS-SALARIO PIC 9(05)V99 VALUE ZEROS.
            02 WS-SAL-ATUAL PIC ZZ.ZZ9.99 VALUE ZEROS.
            02 WS-CONT PIC X VALUE SPACE.
        01 MENSAGENS-DE-CRITICA.
            02 MENSA1 PIC X(30) VALUE "NOME INVALIDO <REDIGITE>".
            02 MENSA2 PIC X(30) VALUE "IDADE INVALIDA <REDIGITE>".
            02 MENSA3 PIC X(30) VALUE "SEXO INVALIDO <REDIGITE>".
            02 MENSA4 PIC X(30) VALUE "SALARIO INVALIDO <REDIGITE>".
            02 MENSA5 PIC X(30) VALUE SPACES.
            02 MENSA6 PIC X(30) VALUE "FIM DE PROGRAMA".
            02 MENSA7 PIC X(30) VALUE "OPCAO INVALIDA <REDIGITE>".
        01 DATA-DO-SISTEMA.
            02 ANO PIC 9(02) VALUE ZEROS.
            02 MES PIC 9(02) VALUE ZEROS.
            02 DIA PIC 9(02) VALUE ZEROS.
        SCREEN SECTION.
        01 TELA.
            02 BLANK SCREEN.
            02 LINE 02 COLUMN 02 VALUE "EM".
            02 LINE 02 COLUMN 28 VALUE "CONSISTENCIA DE DADOS".
            02 LINE 08 COLUMN 21 VALUE "NOME ".
            02 LINE 10 COLUMN 21 VALUE "IDADE ".
            02 LINE 12 COLUMN 21 VALUE "SEXO ".
            02 LINE 14 COLUMN 21 VALUE "SALARIO ".
            02 LINE 16 COLUMN 21 VALUE "SALARIO ATUAL ".
            02 LINE 19 COLUMN 21 VALUE "CONTINUA (S/N)".
            02 LINE 23 COLUMN 21 VALUE "MENSAGEM: ".
        PROCEDURE DIVISION.
        ROT-INICIO
            DISPLAY TELA.
            DISPLAY TELA.
            ACCEPT DATA-DO-SISTEMA FROM DATE.
            DISPLAY (02 05) DIA "/" MES "/" ANO.
        ROT-NOME.
            ACCEPT (08 39) WS-NOME WITH PROMPT.
            DISPLAY (23 31) MENSA5.
            IF WS-NOME = SPACES
                DISPLAY (23 31) MENSA1 GO TO ROT-NOME.
        ROT-IDADE.
            ACCEPT (10 39) WS-NOME WITH PROMPT.
            DISPLAY (23 31) MENSA5.
            IF IDADE NEXT SENTENCE
                ELSE    DISPLAY (23 31) MENSA2 GO TO ROT-IDADE.
        ROT-SEXO.
            ACCEPT (12 39) WS-SEXO WITH PROMPT.
            DISPLAY (23 31) MENSA5.
            IF FM NEXT SENTENCE
                ELSE    DISPLAY (23 31) MENSA3 GO TO ROT-SEXO.
        ROT-SALARIO.
            ACCEPT (14 39) WS-SALARIO WITH PROMPT.
            DISPLAY (23 31) MENSA5.
            IF WS-SALARIO > 04999.00 OR < 50001.00 NEXT SENTENCE
                ELSE    DISPLAY (23 31) MENSA4 GO TO ROT-SALARIO.
        ROT-CALCULO.
            COMPUTE WS-SAL-ATUAL = WS-SALARIO * 25/100 + WS-SALARIO.
            DISPLAY (16 39) WS-SAL-ATUAL.
        ROT-CONTINUA.
            ACCEPT (19 37) WS-CONT WITH PROMPT.
            DISPLAY(23 31) MENSA5.
            IF WS-CONT - "S" OR "s" GO TO ROT-INICIO.
        IF WS-CONT ="N" OR "n" DISPLAY (23 31) MENSA6 STOP RUN
        ELSE DISPLAY(23 31) MENSA7 GO TO ROT-CONTINUA.