IDENTIFICATION DIVISION.
PROGRAM-ID LISTE.
AUTHOR SIMON PRIET, VINCENT COURTOIS.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE COMPUTER IBM AS-400.
OBJECT COMPUTER IBM AS-400.

INPUT-OUTPUT SECTION.
FILE CONTROL.
    SELECT ABONNES ASSIGN TO DISK-ABONNES.
        ACCESS MODE SEQUENTIAL
        RECORD KEY NUMABO.
    SELECT TELEPHONE ASSIGN TO DISK-TELEPHONE.
        ACCESS MODE SEQUENTIAL
    SELECT ENRFAC ASSIGN TO PRINTER.

DATA DIVISION.

FILE SECTION.

    FD ABONNES
        RECORD CONTAINS 110 CHARACTERS
        DATA RECORD ENRABO.
    01 ENRABO.
        02 NUMABO               PIC X(10).
        02 NOMABO               PIC X(20).
        02 ADRABO.
            03 RUEABO           PIC X(30).
            03 CPABO            PIC X(5).
            03 VILLEABO         PIC X(15).
        02 DATFACPRE            PIC S9(7)    COMP-3.
        02 MONFAC               PIC S9(7)V99 COMP-3.
        02 MONPAY               PIC S9(7)V99 COMP-3.

    FD TELEPHONE
        RECORD CONTAINS 60 CHARACTERS
        DATA RECORD ENRTEL.
    01 ENRTEL.
        02 DATETEL              PIC S9(7) COMP-3.
        02 HEURETEL             PIC 9(4).
        02 NUMAPPELANT          PIC X(10).
        02 NUMAPPELE            PIC 9(13).
        02 LOCAPP               PIC X(15).
        02 HEUREFIN             PIC 9(4).
        02 NBUNIT               PIC S9(5) COMP-3.

    FD FACTURE

    01 ZPLIGNE.
        02 DATEF
            03 JJF              PIC 99.
            03 FILLER           PIC X.
            03 MMF              PIC 99.
            03 FILLER           PIC X(10).
        02 HAPPELF
            03 HHHA             PIC 99.
            03 SEPHA            PIC X.
            03 MMHA             PIC 99.
            03 FILLER           PIC X(10).
        02 NUMF                 PIC 9(6).
        02 LOCAF                PIC X(15).
        02 FILLER               PIC X(10).
        02 DUREEF
            03 HHHA             PIC 99.
            03 SEPHA            PIC X.
            03 MMHA             PIC 99.
            03 FILLER           PIC X(10).
        02 MONTANTF             PIC S999999V99.
        02 FILLER               PIC X(RESTANT).

    01 ZPPDP
        02 FILLER               PIC X(50).
        02 LIBELLE              PIC X(28).
            03 FILLER           PIC X(20).
            03 JJF              PIC 99.
            03 FILLER           PIC X.
            03 MMF              PIC 99.
            03 FILLER           PIC X.
            03 AAF              PIC 99.
        02 FILLER               PIC X(5).
        02 MONTANTF             PIC S9(5)V99.
        02 FILLER               PIC X(RESTANT).

WORKING-STORAGE SECTION.

    01 JOUR.
        02 AA                   PIC 99.
        02 MM                   PIC 99.
        02 JJ                   PIC 99.

    01 ENRACT.
        02 NUMACT               PIC X(10).
        02 NOMACT               PIC X(20).
        02 ADRACT.
            03 RUEACT           PIC X(30).
            03 CPACT            PIC X(5).
            03 VILLEACT         PIC X(15).
        02 DATFACACT            PIC S9(7)    COMP-3.
        02 MONFACACT            PIC S9(7)V99 COMP-3.
        02 MONPAYACT            PIC S9(7)V99 COMP-3.

PROCEDURE DIVISION.

DP.

OPEN INPUT TELEPHONES.
OPEN INPUT ABONNES.
OPEN OUTPUT ACTUALISES.
OPEN OUTPUT FACTURES.
OPEN OUTPUT ANOMALIES.

READ TELEPHONE AT END GO TO FTELEPHONE.
READ ABONNES AT END GO TO FABONNES.

PERFORM TEST AFTER UNTIL

    IF NUMABO = NUMAPPELANT


    ELSE

    END-IF

END-PERFORM.

FABONNES.
*SITUATION : PLUS D'ABONNES, MAIS ENCORE PEUT-ÊTRE DES APPELS !
    READ TELEPHONE AT END GO TO FP.
*IL N'Y A NI ABONNÉ, NI APPEL DE PASSER, ON CLOSE LE TOUT.
    END-READ.

    *IL N'Y A PLUS D'ABONNES, ON LISTE DONC LES TÉLÉPHONES RESTANTS PUISQU'ILS SERONT TOUS DES ANOMALIES.

FTELEPHONE.
* SITUATION : PLUS D'APPELS MAIS ENCORE PEUT-ÊTRE DES ABONNÉS !
    READ ABONNES AT END GO TO FP.
*IL N'Y A NI ABONNÉ, NI APPEL DE PASSER, ON CLOSE LE TOUT.
    END-READ.

*IL N'Y A PLUS D'APPELS, ON LISTE DONC LES ABONNÉS RESTANTS PUISQU'ILS SERONT TOUS DES ANOMALIES.

FP.