IDENTIFICATION DIVISION.
PROGRAM-ID. ListerPiscines.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT f-rapport ASSIGN TO "Rapport.res".
DATA DIVISION.
FILE SECTION.
FD f-rapport REPORT IS Liste-Courses.
WORKING-STORAGE SECTION.
01  date-jour.
    02 annee PIC X(2).
    02 mois  PIC X(2).
    02 jour  PIC X(2).
        EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01  RecPiscine.
    02  Compet      PIC X(50).
    02  DJour       PIC X.
01  DPiscine     PIC X(50).
01  DAnnee       PIC X(5).
01  NomPiscine   PIC X(50).
01  Touche       PIC X.
01  MessageErr   PIC X(100).
01  NbrePiscines PIC S9(4) BINARY.
01  nbre-rec     PIC S9(4) BINARY VALUE 1.
01  i PIC S9(4) BINARY.
           EXEC SQL END DECLARE SECTION END-EXEC.
           EXEC SQL INCLUDE SQLCA END-EXEC.

REPORT SECTION.
RD  Liste-Courses PAGE LIMIT IS 66
                  HEADING        1
                  FIRST DETAIL   5
                  LAST DETAIL   42
                  FOOTING       45
                  CONTROLS ARE FINAL DPiscine, DAnnee.

01  TYPE IS PAGE HEADING.
    02   LINE 2.
        03  COLUMN 5 PIC X(30) VALUE "Liste des competitions".
        03  COLUMN 40 PIC X(15) VALUE "Date : ".
        03  COLUMN 56 PIC X(2) SOURCE jour.
        03  COLUMN 58 PIC X VALUE "/".
        03  COLUMN 59 PIC X(2) SOURCE mois.
        03  COLUMN 61 PIC X VALUE "/".
        03  COLUMN 62 PIC X(2) SOURCE annee.

01 TYPE IS CONTROL HEADING DPiscine.
    02 LINE PLUS 1.
        03 COLUMN 5 PIC X(10) VALUE "Piscine : ".
        03 COLUMN 16 PIC X(50) SOURCE DPiscine.

01 TYPE IS CONTROL HEADING DAnnee.
    02 LINE PLUS 1.
        03 COLUMN 10 PIC X(10) VALUE "Annee : ".
        03 COLUMN 20 PIC X(5) SOURCE DAnnee.

01 dl TYPE DETAIL LINE PLUS 2.
    02 COLUMN 27 PIC X(14) VALUE "Competition: ".
    02 COLUMN 41 PIC X(5) SOURCE Compet.
    02 COLUMN 50 PIC X(7) VALUE "Jour : ".
    02 COLUMN 57 PIC X SOURCE DJour.

01  TYPE IS CONTROL FOOTING DPiscine.
     02  LINE PLUS 1.
        03 COLUMN 5 PIC X(40) VALUE "Competitions par piscine : ".
        03 total-Piscine COLUMN 46 PIC XXXX SUM nbre-rec.

01  TYPE IS CONTROL FOOTING DAnnee.
     02 LINE PLUS 1.
        03 COLUMN 17 PIC X(37) VALUE "Competitions par annee : ".
        03 total-Annee COLUMN 57 PIC XXXX SUM nbre-rec.

01  TYPE IS CONTROL FOOTING FINAL.
     02 LINE PLUS 1.
        03 COLUMN 5 PIC X(16) VALUE "Total : ".
        03 total-General COLUMN 22 PIC XXXX SUM total-Annee.

PROCEDURE DIVISION.
BeginPgm.
    DISPLAY " " ERASE SCREEN
    DISPLAY "FONCTION LISTER PISCINE" LINE 5 COLUMN 35
    DISPLAY "-------------------" LINE 6 COLUMN 35
    DISPLAY "Nom de la piscine : " LINE 9
    ACCEPT NomPiscine

    MOVE SPACES TO MessageErr
    ACCEPT date-jour FROM DATE

     EXEC SQL EXECUTE
             BEGIN
              COLLARNI.GESTIONPISCINES.ListePiscine :=
              COLLARNI.GESTIONPISCINES.Lister(:NomPiscine);
              :NbrePiscines :=
                COLLARNI.GESTIONPISCINES.ListePiscine.COUNT;
             EXCEPTION
              WHEN OTHERS THEN
                  :MessageErr := SUBSTR(SQLERRM,1,100);
             END;
     END-EXEC
     IF MessageErr NOT = SPACES
       THEN DISPLAY "Erreur message " MessageErr
       ELSE
       OPEN OUTPUT f-rapport
       INITIATE Liste-Courses

       PERFORM TEST BEFORE VARYING i FROM 1 BY 1 UNTIL i > NbrePiscines
        MOVE SPACES TO MessageErr

        EXEC SQL EXECUTE
      BEGIN
       :DPiscine := COLLARNI.GESTIONPISCINES.ListePiscine(:i).Piscine;
       :DAnnee := COLLARNI.GESTIONPISCINES.ListePiscine(:i).Annee;
     :Compet := COLLARNI.GESTIONPISCINES.ListePiscine(:i).Competition;
        :DJour := COLLARNI.GESTIONPISCINES.ListePiscine(:i).Jour;
       EXCEPTION WHEN OTHERS THEN
        :MessageErr := SUBSTR(SQLERRM,1,100);
       END;
       END-EXEC
         IF MessageErr NOT = SPACES THEN
               DISPLAY "Erreur message " MessageErr
         ELSE
           GENERATE dl
         END-IF
       END-PERFORM
       TERMINATE Liste-Courses
      CLOSE f-rapport
      END-IF
      DISPLAY "Appuyer sur une touche..." LINE 17
      ACCEPT Touche
    EXIT PROGRAM.