* UN APPELANT N'EST PAS UN ABONNE.
        IF NUMABO > NUMAPPELANT
DAPNNAB.
            MOVE NUMAPPELANT TO ZANONUM
            MOVE NBUNIT TO ZANONBUNIT
            MOVE "NA" TO ANOTYPE
            WRITE ZANO AFTER 1
            READ TELEPHONE AT END GO TO FTELEPHONE
FAPNNAB

* UN ABONNE N'A PAS APPELE.
        ELSE
DABNNAP.
            MOVE NUMABO TO ZANONUM
            MOVE * TO ZANBUNIT
            MOVE "NC" TO ANOTYPE
            WRITE ZANO AFTER 1
            READ ABONNES AT END GO TO FABONNES
FABNNAP.
        END-IF
    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.
    PERFORM DAPNNAB THRU FAPNNAB.

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