31.07.2015 Views

Examen de Juin 2010

Examen de Juin 2010

Examen de Juin 2010

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

HELMo <strong>Examen</strong> <strong>de</strong> Cobol <strong>Juin</strong> <strong>2010</strong>Nom : Prénom :IDENTIFICATION DIVISION.PROGRAM-ID. EX0610.ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT fi-fac ASSIGN TO "factures"FILE STATUS IS st-fac.SELECT fi-rap ASSIGN TO "rap-1.txt".DATA DIVISION.FILE SECTION.FD fi-fac.01 facture.02 num-client PIC X(5).02 date-facture PIC X(6).02 tab-contenu OCCURS 50.03 id-contenu PIC X(5).FD fi-rap REPORT IS rap-1.WORKING-STORAGE SECTION. Autres données à définir :01 un-client.02 num-client PIC X(5).02 nom PIC X(30).02 prenom PIC X(30).02 adresse PIC X(100).02 localite PIC X(40).02 date-naissance PIC 9(6).01 un-contenu.02 id-contenu PIC X(5).02 <strong>de</strong>scription PIC X(100).02 prix PIC 9999V99.02 id-cat PIC 99.01 une-categorie.02 id-cat PIC 99.02 intitule PIC X(80).02 age-minimal PIC 999.77 statut PIC XX.77 st-fac PIC XX.77 co<strong>de</strong>-op PIC 9.Question 4. Écrivez le co<strong>de</strong> <strong>de</strong> la REPORT SECTION <strong>de</strong> sorte que celle-ci soit conforme auschéma présenté ci-avant. Respectez le format <strong>de</strong>s données !REPORT SECTION.RDPAGE LIMIT 66 LINEHEADING 5 FIRST DETAIL 7 LAST DETAIL 35 FOOTING 45.L. Swinnen 4

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!