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
