IDENTIFICATION DIVISION.
PROGRAM-ID. MENU-OPTIONS.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 OPTION         PIC 9.
01 RESP           PIC X(1).
01 FIM            PIC X VALUE 'N'.
01 DISPLAY-DATE   PIC 9(2)9(2)9(4).

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    PERFORM UNTIL FIM = 'S'
        DISPLAY "Escolha uma opção:"
        DISPLAY "1. Exibir mensagem de boas-vindas"
        DISPLAY "2. Exibir data atual"
        DISPLAY "3. Encerrar programa"
        ACCEPT OPTION

        EVALUATE OPTION
            WHEN 1
                PERFORM DISPLAY-WELCOME-MESSAGE
            WHEN 2
                PERFORM DISPLAY-CURRENT-DATE
            WHEN 3
                MOVE 'S' TO FIM
            WHEN OTHER
                DISPLAY "Opção inválida. Por favor, escolha novamente."
        END-EVALUATE
    END-PERFORM.

    STOP RUN.

DISPLAY-WELCOME-MESSAGE.
    DISPLAY "Olá! Bem-vindo ao nosso programa COBOL!".

DISPLAY-CURRENT-DATE.
    MOVE FUNCTION CURRENT-DATE TO DISPLAY-DATE.
    DISPLAY "A data atual é: " DISPLAY-DATE.