IDENTIFICATION DIVISION.
PROGRAM-ID. PROG007.
AUTHOR. PEDRO.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT CADCLI ASSIGN TO DISK.
SELECT ALTCLI ASSIGN TO DISK.
SELECT CADCLIN ASSIGN TO DISK.
*
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-CHAVE-CADCLI.
10 WS-CADCLI-AGENCIA PIC 9(05).
10 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).
FD ALTCLI
LABEL RECORD IS STANDARD
RECORD CONTAINS 76 CHARACTERS
DATA RECORD IS WS-REGISTRO-ALTCLI
VALUE OF FILE-ID "C:\IDECobol\altcli.txt".
01 WS-REGISTRO-ALTCLI.
05 WS-CHAVE-ALTCLI.
10 WS-ALTCLI-AGENCIA PIC 9(05).
10 WS-ALTCLI-NUMERO-CONTA PIC 9(10).
05 WS-ALTCLI-NOME-CLIENTE PIC X(40).
05 WS-ALTCLI-TELEFONE PIC 9(08).
05 WS-ALTCLI-RENDA-MENSAL PIC S9(11)V99.
FD CADCLIN
LABEL RECORD IS STANDARD
RECORD CONTAINS 105 CHARACTERS
DATA RECORD IS WS-REGISTRO-CADCLIN
VALUE OF FILE-ID "C:\IDECobol\cadclin.txt".
01 WS-REGISTRO-CADCLIN.
05 WS-CADCLIN-AGENCIA PIC 9(05).
05 WS-CADCLIN-NUMERO-CONTA PIC 9(10).
05 WS-CADCLIN-NOME-CLIENTE PIC X(40).
05 WS-CADCLIN-TELEFONE PIC 9(08).
05 WS-CADCLIN-RENDA-MENSAL PIC S9(11)V99.
05 WS-CADCLIN-SALDO-ATUAL PIC S9(11)V99.
05 WS-CADCLIN-DATA-GRAVACAO.
10 WS-CADCLIN-ANO-GRAVACAO PIC 9(04).
10 WS-CADCLIN-MES-GRAVACAO PIC 9(02).
10 WS-CADCLIN-DIA-GRAVACAO PIC 9(02).
05 WS-CADCLIN-HORA-GRAVACAO PIC 9(08).
WORKING-STORAGE SECTION.
01 WS-HORA.
05 WS-HRA PIC 9(02) VALUE ZEROS.
05 WS-MIN PIC 9(02) VALUE ZEROS.
05 WS-SEC PIC 9(02) VALUE ZEROS.
05 WS-CSE PIC 9(02) VALUE ZEROS.
01 WS-DATA.
05 WS-ANO PIC 9(02) VALUE ZEROS.
05 WS-MES PIC 9(02) VALUE ZEROS.
05 WS-DIA PIC 9(02) VALUE ZEROS.
*
PROCEDURE DIVISION.
010-INICIO.
ACCEPT WS-DATA FROM DATE.
ACCEPT WS-HORA FROM TIME.
OPEN INPUT CADCLI.
OPEN INPUT ALTCLI.
OPEN OUTPUT CADCLIN.
PERFORM 030-LER-CADCLI.
PERFORM 040-LER-ALTCLI.
PERFORM 020-COMPARA UNTIL WS-CHAVE-CADCLI = HIGH-VALUE
AND WS-CHAVE-ALTCLI = HIGH-VALUE.
020-COMPARA.
IF WS-CHAVE-CADCLI EQUAL WS-CHAVE-ALTCLI
MOVE WS-ALTCLI-AGENCIA TO WS-CADCLIN-AGENCIA
MOVE WS-ALTCLI-NUMERO-CONTA TO WS-CADCLIN-NUMERO-CONTA
MOVE WS-ALTCLI-NOME-CLIENTE TO WS-CADCLIN-NOME-CLIENTE
MOVE WS-ALTCLI-TELEFONE TO WS-CADCLIN-TELEFONE
MOVE WS-ALTCLI-RENDA-MENSAL TO WS-CADCLIN-RENDA-MENSAL
MOVE WS-CADCLI-SALDO-ATUAL TO WS-CADCLIN-SALDO-ATUAL
MOVE WS-ANO TO WS-CADCLIN-ANO-GRAVACAO
MOVE WS-MES TO WS-CADCLIN-MES-GRAVACAO
MOVE WS-DIA TO WS-CADCLIN-DIA-GRAVACAO
MOVE WS-HORA TO WS-CADCLIN-HORA-GRAVACAO
WRITE WS-REGISTRO-CADCLIN
PERFORM 030-LER-CADCLI
PERFORM 040-LER-ALTCLI
ELSE
IF WS-CHAVE-CADCLI > WS-CHAVE-ALTCLI
MOVE WS-ALTCLI-AGENCIA TO WS-CADCLIN-AGENCIA
MOVE WS-ALTCLI-NUMERO-CONTA TO WS-CADCLIN-NUMERO-CONTA
MOVE WS-ALTCLI-NOME-CLIENTE TO WS-CADCLIN-NOME-CLIENTE
MOVE WS-ALTCLI-TELEFONE TO WS-CADCLIN-TELEFONE
MOVE WS-ALTCLI-RENDA-MENSAL TO WS-CADCLIN-RENDA-MENSAL
MOVE ZEROS TO WS-CADCLIN-SALDO-ATUAL
MOVE WS-ANO TO WS-CADCLIN-ANO-GRAVACAO
MOVE WS-MES TO WS-CADCLIN-MES-GRAVACAO
MOVE WS-DIA TO WS-CADCLIN-DIA-GRAVACAO
MOVE WS-HORA TO WS-CADCLIN-HORA-GRAVACAO
WRITE WS-REGISTRO-CADCLIN
PERFORM 040-LER-ALTCLI
ELSE
PERFORM 030-LER-CADCLI.
030-LER-CADCLI.
READ CADCLI AT END MOVE HIGH-VALUE TO WS-CHAVE-CADCLI.
040-LER-ALTCLI.
READ ALTCLI AT END MOVE HIGH-VALUE TO WS-CHAVE-ALTCLI.
090-FIM.
CLOSE CADCLI.
CLOSE ALTCLI.
CLOSE CADCLIN.
STOPRUN.