Inclusão dos dados, o programa não está abrindo a opção para inserir nome e e-mail. E só permite incluir o telefone com 9 dígitos.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CLIENTES.
      ******************************************************************
      * Objetivo:    Sistema de Gestão de Clientes
      * Autor:       Hermann Menezes de Assis (HMASSIS)
      * Data:        03/02/2020
      ******************************************************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT CLIENTES ASSIGN TO 'C:\COBOL\CLIENTES.DAT'
              ORGANIZATION IS INDEXED
              ACCESS MODE IS RANDOM
              FILE STATUS IS CLIENTES-STATUS
              RECORD KEY IS  CLIENTES-CHAVE.

       DATA DIVISION.
       FILE SECTION.
       FD  CLIENTES.
       01  CLIENTES-REG.
           05 CLIENTES-CHAVE.
              10 CLIENTES-FONE  PICTURE 9(09).
           05 CLIENTES-NOME     PICTURE X(30).
           05 CLIENTES-EMAIL    PICTURE X(40).


       WORKING-STORAGE SECTION.

       77  WRK-OPCAO         PICTURE X(01).
       77  WRK-MODULO        PICTURE X(25).
       77  WRK-TECLA         PICTURE X(01).
       77  CLIENTES-STATUS   PICTURE 9(02).
       77  WRK-MGSERRO       PICTURE X(30).


       SCREEN SECTION.

      *    EOL SIGNIFICA END ON LINE

       01  TELA.
           05 LIMPA-TELA.
              10 BLANK SCREEN.
              10 LINE 01 COLUMN 01 PICTURE X(20) ERASE EOL
                 BACKGROUND-COLOR 3.
              10 LINE 01 COLUMN 25 PICTURE X(20)
                 BACKGROUND-COLOR 3 FOREGROUND-COLOR 0
                 FROM 'SISTEMAS DE CLIENTES'.
              10 LINE 02 COLUMN 01 PICTURE X(25) ERASE EOL
                 BACKGROUND-COLOR 1 FROM WRK-MODULO.

       01  MENU.
           05 LINE 07 COLUMN 15 VALUE ' 1 - INCLUIR'.
           05 LINE 08 COLUMN 15 VALUE ' 2 - CONSULTA'.
           05 LINE 09 COLUMN 15 VALUE ' 3 - ALTERAR'.
           05 LINE 10 COLUMN 15 VALUE ' 4 - EXCLUIR'.
           05 LINE 11 COLUMN 15 VALUE ' 5 - RELATORIO'.
           05 LINE 12 COLUMN 15 VALUE ' X - SAIDA'.
           05 LINE 13 COLUMN 15 VALUE 'OPCAO ......: '.
           05 LINE 13 COLUMN 30 USING WRK-OPCAO.

       01 TELA-REGISTRO.
            05 CHAVE FOREGROUND-COLOR 2.
               10 LINE 10 COLUMN 10 VALUE 'TELEFONE '.
               10 COLUMN PLUS 2 PIC 9(09) USING CLIENTES-FONE
                   BLANK WHEN ZEROS.
            05 SS-DADOS.
               10 LINE 11 COLUMN 10 VALUE 'NOME.... '.
               10 COLUMN PLUS 2 PIC X(30) USING CLIENTES-NOME.
               10 LINE 12 COLUMN 10 VALUE 'EMAIL... '.
               10 COLUMN PLUS 2 PIC X(40) USING CLIENTES-EMAIL.   

       01  MOSTRA-ERRO.
           02 MSG-ERRO.
              10 LINE 16 COLUMN 01 ERASE EOL
                 BACKGROUND-COLOR 3.
              10 LINE 16 COLUMN 10 PICTURE X(30)
                         BACKGROUND-COLOR 3
                         FROM WRK-MGSERRO.
              10 COLUMN PLUS 2 PICTURE X(01)
                         BACKGROUND-COLOR 3
                         USING WRK-TECLA.

       PROCEDURE DIVISION.

       0001-PRINCIPAL SECTION.

           PERFORM 1000-INICIAR THRU 1100-MONTATELA.
           PERFORM 2000-PROCESSAR UNTIL WRK-OPCAO = 'X'.
           PERFORM 3000-FINALIZAR.

           STOP RUN.

       1000-INICIAR.
           OPEN I-O CLIENTES
              IF CLIENTES-STATUS = 35 THEN
                  OPEN OUTPUT CLIENTES
                  CLOSE CLIENTES
                  OPEN I-O CLIENTES
               END-IF.

       1100-MONTATELA.
           DISPLAY TELA.
           ACCEPT MENU.

       2000-PROCESSAR.

           EVALUATE WRK-OPCAO

              WHEN 1
                PERFORM 5000-INCLUIR
              WHEN 2
                CONTINUE
              WHEN 3
                CONTINUE
              WHEN 4
                CONTINUE
              WHEN 5
                   CONTINUE
              WHEN OTHER
              IF WRK-OPCAO NOT EQUAL 'X'
                 DISPLAY 'ENTRE COM OPCAO CORRETA'
              END-IF
           END-EVALUATE.
           MOVE SPACE TO WRK-OPCAO.
           PERFORM 1100-MONTATELA.

       3000-FINALIZAR.
           CLOSE CLIENTES.


       5000-INCLUIR.


           MOVE 'MODULO - INCLUSAO ' TO WRK-MODULO.
             DISPLAY TELA.
              ACCEPT TELA-REGISTRO.
                WRITE CLIENTES-REG
                INVALID KEY
                  MOVE 'JA EXISTE ' TO WRK-MGSERRO
                  ACCEPT MOSTRA-ERRO
               END-WRITE.