COBOL 2 -

   IDENTIFICATION DIVISION.
   PROGRAM-ID. CLIENTES.
  ****************************
  *Objetivo: Criar um sistema de gestão de clientes
  *Author: Eder
  *Data: 09/05/2020
  ****************************
   ENVIRONMENT DIVISION.

   CONFIGURATION SECTION.
   SPECIAL-NAMES.
       DECIMAL-POINT IS COMMA.

   DATA DIVISION.

   WORKING-STORAGE SECTION.
   77  WRK-OPCAO             PIC X(01) VALUE SPACES.
   77  WRK-MODULO            PIC X(25) VALUE SPACES.
   77  WRK-TECLA             PIC X(01) VALUE SPACES.
   77  WRK-OPCAO-RELATORIO   PIC X(01) VALUE SPACES.

   SCREEN SECTION.
   01  TELA.
       05 LIMPA-TELA.
  *Um display do tela mostra tudo que tá abaixo dela, o mesmo
  *vaendo para o limpa-tela.
          10 BLANK SCREEN.
          10 LINE 01 COLUMN 02 PIC X(20) ERASE EOL
             BACKGROUND-COLOR 7.
          10 LINE 01 COLUMN 02 PIC X(20) ERASE EOL
             BACKGROUND-COLOR 2 FOREGROUND-COLOR 8 
             FROM 'SISTEMA DE CLIENTES'.
  *O erase limpa qualquer sujeira no tamanho pic especificado.
          10 LINE 02 COLUMN 02 PIC X(25) ERASE EOL
             BACKGROUND-COLOR 1 FROM WRK-MODULO.

   01  MENU.
       05 LINE 07 COLUMN 02 VALUE '1- INCLUIR  '.
       05 LINE 09 COLUMN 02 VALUE '2- CONSULTAR'.
       05 LINE 11 COLUMN 02 VALUE '3- ALTERAR  '.
       05 LINE 13 COLUMN 02 VALUE '4- EXCLUIR  '.
       05 LINE 15 COLUMN 02 VALUE '5- RELATORIO'.
       05 LINE 17 COLUMN 02 VALUE '6- SAIDA    '.
       05 LINE 21 COLUMN 02 VALUE 'OPCAO.......:(  )'.
       05 LINE 21 COLUMN 15 USING WRK-OPCAO.
  *----> Dica --> WRK-OPCAO SECURE - o secure faz aparecer *
  *      o que é util qdo em contexto de senha.

   01  MENU-RELATORIO.
       05 LINE 12 COLUMN 55 VALUE '1 - EM TELA'.
       05 LINE 13 COLUMN 55 VALUE '2 - EM DISCO'.
       05 LINE 14 COLUMN 55 VALUE 'OPCAO.......:(  )'.
       05 LINE 14 COLUMN 69 USING WRK-OPCAO-RELATORIO.                  

   PROCEDURE DIVISION. 

   0001-PRINCIPAL SECTION.       
       PERFORM 0100-INICIAR.
       PERFORM 0200-PROCESSAR.
       PERFORM 0300-FINALIZAR.                      
   0001-END.

   0100-INICIAR SECTION.
       DISPLAY TELA.
       ACCEPT MENU.
   0100-END.

   0200-PROCESSAR.
       EVALUATE WRK-OPCAO
       WHEN 1 
          PERFORM 0210-INCLUIR
       WHEN 2
          PERFORM 0220-CONSULTAR
       WHEN 3 
          PERFORM 0230-ALTERAR
       WHEN 4 
          PERFORM 0240-EXCLUIR
       WHEN 5               
          ACCEPT MENU-RELATORIO
          IF WRK-OPCAO-RELATORIO EQUAL 1
             PERFORM 0250-RELATORIO-TELA
          END-IF
          IF WRK-OPCAO-RELATORIO EQUAL 2
             PERFORM 0260-RELATORIO-DISCO
          END-IF
       WHEN 6 
          PERFORM 0300-FINALIZAR
       WHEN OTHER
           DISPLAY 'Não existe esta opçao!!'
           DISPLAY 'Enter para voltar ao menu'                                              
       END-EVALUATE.  
   0200-END.

   0210-INCLUIR SECTION.
       MOVE '== MODULO INCLUSAO ==' TO WRK-MODULO.
       DISPLAY TELA.
       ACCEPT WRK-TECLA AT 2115.

   0210-END.

   0220-CONSULTAR SECTION.
        CONTINUE.

   0220-END.

   0230-ALTERAR SECTION.
       CONTINUE.
   0230-END.

   0240-EXCLUIR SECTION.
       CONTINUE.

   0240-END.

   0250-RELATORIO-TELA SECTION.
       CONTINUE.

   0250-END.

   0260-RELATORIO-DISCO SECTION.
       CONTINUE.

   0260-END.

   0300-FINALIZAR SECTION.
       DISPLAY 'OBRIGADO POR USAR NOSSO SISTEMA...'.
       STOP RUN.
   0300-END.

insira seu código aqui