SIGLAS ESTADOS BRASILEIROS

                    IDENTIFICATION DIVISION.
                    PROGRAM-ID. SIGLAS_ESTADOS_BRASIL.
                    AUTHOR. ARTHUR.
                    ENVIRONMENT DIVISION.
                    DATA DIVISION.
                    WORKING-STORAGE SECTION.
                    01 DADOS.
                            02 OPCAO PIC X(2).
                PROCEDURE DIVISION.

                            entrada.
                                    ACCEPT OPCAO  WITH AUTO.
                            saida.
                                    EVALUATE OPCAO
                                    WHEN "AC"
                                    DISPLAY "ACRE"
                                    WHEN "AL"
                                    DISPLAY "ALAGOAS"
                                    WHEN "AM"
                                    DISPLAY "AMAZONAS"
                                    WHEN "AP"
                                    DISPLAY "AMAPA"
                                    WHEN "BA"
                                    DISPLAY "BAHIA"
                                    WHEN "CE"
                                    DISPLAY "CEARA"
                                    WHEN "DF"
                                    DISPLAY "DISTRITO FEDERAL"
                                    WHEN "ES"
                                    DISPLAY "ESPIRITO SANTO"
                                    WHEN "GO"
                                    DISPLAY "GOIANIA"
                                    WHEN "MA"
                                    DISPLAY "MARANHAO"
                                    WHEN "MG"
                                    DISPLAY "MINAS GERAIS"
                                    WHEN "MS"
                                    DISPLAY "MATO GROSSO DO SUL"
                                    WHEN "MT"
                                    DISPLAY "MATO GROSSO"
                                    WHEN "PA"
                                    DISPLAY "PARA"
                                    WHEN "PB"
                                    DISPLAY "PARAIBA"
                                    WHEN "PE"
                                    DISPLAY "PERNAMBUCO"
                                    WHEN "PI"
                                    DISPLAY "PIAUI"
                                    WHEN "PR"
                                    DISPLAY "PARANA"
                                    WHEN "RJ"
                                    DISPLAY "RIO DE JANEIRO"
                                    WHEN "RN"
                                    DISPLAY "RIO GRANDE DO NORTE"
                                    WHEN "RS"
                                    DISPLAY "RIO GRANDE DO SUL"
                                    WHEN "RO"
                                    DISPLAY "RONDONIA"
                                    WHEN "RR"
                                    DISPLAY "RORAIMA"
                                    WHEN "SC"
                                    DISPLAY "SANTA CATARINA"
                                    WHEN "SP"
                                    DISPLAY "SAO PAULO"
                                    WHEN "SE"
                                    DISPLAY "SERGIPE"
                                    WHEN "TO"
                                    DISPLAY "TOCANTINS"
                                    WHEN OTHER
                                    DISPLAY "ESTADO INEXISTENTE"
                                    END-EVALUATE.
                                    DISPLAY "FIM DE PROGRAMA"  .

                            STOP RUN.