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.
    Perform DABNNAP Thru FABNNAP.


FP.
    CLOSE TELEPHONES.
    CLOSE ABONNES.
    CLOSE ACTUALISES.
    CLOSE FACTURES.
    CLOSE ANOMALIES.
    STOP RUN.