Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement