PROG003

      *"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.