*"IMPORTANTE!! É PRECISO CRIAR O ARQUIVO cadcli.txt VAZIO ANTES"
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG003.
AUTHOR. PEDRO.
*"IMPORTANTE!! É PRECISO CRIAR O ARQUIVO cadcli.txt VAZIO ANTES"
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CADCLI ASSIGN TO DISK.
*"IMPORTANTE!! É PRECISO CRIAR O ARQUIVO cadcli.txt VAZIO ANTES"
DATA DIVISION.
FILE SECTION.
FD CADCLI
LABEL RECORD IS STANDARD
RECORD CONTAINS 92 CHARACTERS
DATA RECORD IS WS-REG-CADCLI
VALUE OF FILE-ID "C:\IDECobol\cadcli.txt".
01 WS-REG-CADCLI.
05 WS-CADCLI-AGENCIA PIC 9(05).
05 WS-CADCLI-NUMERO-CONTA PIC 9(10).
05 WS-CADCLI-NOME-CLIENTE PIC X(40).
05 WS-CADCLI-TELEFONE PIC 9(08).
05 WS-CADCLI-SALDO-ATUAL PIC S9(11)V99.
05 WS-DATA-GRAVACAO.
10 WS-CADCLI-ANO-GRAVACAO PIC 9(04).
10 WS-CADCLI-MES-GRAVACAO PIC 9(02).
10 WS-CADCLI-DIA-GRAVACAO PIC 9(02).
05 WS-CADCLI-HORA-GRAVACAO PIC 9(08).
WORKING-STORAGE SECTION.
77 CONTINUA PIC X(01).
SCREEN SECTION.
01 TELA.
05 LINE 01 COLUMN 29 VALUE "Unimonte - Santos".
05 LINE 02 COLUMN 27 VALUE "Cadastro de clientes".
05 LINE 06 COLUMN 18 VALUE "Codigo da agencia..:".
05 LINE 08 COLUMN 18 VALUE "Numero da conta....:".
05 LINE 10 COLUMN 18 VALUE "Nome do cliente....:".
05 LINE 12 COLUMN 18 VALUE "Telefone...........:".
05 LINE 14 COLUMN 18 VALUE "Saldo Atual........:".
05 LINE 17 COLUMN 18 VALUE "Continua...........:".
05 LINE 17 COLUMN 43 VALUE "S/N".
05 LINE 21 COLUMN 18 VALUE "Mensagem...........:".
02 LIMPATELA.
05 LINE 06 COLUMN 39 VALUE " ".
05 LINE 08 COLUMN 39 VALUE " ".
05 LINE 10 COLUMN 39 VALUE " ".
05 LINE 12 COLUMN 39 VALUE " ".
05 LINE 14 COLUMN 39 VALUE " ".
05 LINE 17 COLUMN 39 VALUE " ".
05 LINE 21 COLUMN 39 VALUE " ".
*"IMPORTANTE!! É PRECISO CRIAR O ARQUIVO cadcli.txt VAZIO ANTES"
PROCEDURE DIVISION.
010-INICIO.
OPEN EXTEND CADCLI.
020-RECEBER.
DISPLAY TELA.
ACCEPT (06, 39) WS-CADCLI-AGENCIA WITH PROMPT.
ACCEPT (08, 39) WS-CADCLI-NUMERO-CONTA WITH PROMPT.
ACCEPT (10, 39) WS-CADCLI-NOME-CLIENTE WITH PROMPT.
ACCEPT (12, 39) WS-CADCLI-TELEFONE WITH PROMPT.
ACCEPT (14, 39) WS-CADCLI-SALDO-ATUAL WITH PROMPT.
IF WS-CADCLI-AGENCIA = ZEROS
DISPLAY (21, 39) "ERRO!!!"
GO TO 040-CONTINUA.
IF WS-CADCLI-NUMERO-CONTA = ZEROS
DISPLAY (21, 39) "ERRO!!!"
GO TO 040-CONTINUA.
IF WS-CADCLI-NOME-CLIENTE = SPACES
DISPLAY (21, 39) "ERRO!!!"
GO TO 040-CONTINUA.
IF WS-CADCLI-TELEFONE = ZEROS
DISPLAY (21, 39) "ERRO!!!"
GO TO 040-CONTINUA.
IF WS-CADCLI-SALDO-ATUAL = ZEROS
DISPLAY (21, 39) "ERRO!!!"
GO TO 040-CONTINUA.
030-GRAVA.
WRITE WS-REG-CADCLI.
040-CONTINUA.
ACCEPT (17, 39) CONTINUA.
IF CONTINUA = 'S' OR 's'
DISPLAY LIMPATELA
GO TO 020-RECEBER.
090-FIM.
CLOSE CADCLI.
STOPRUN.