*****************************************************************
* précompilation
* procob18 iname=RechercherPiscines.pco mode=ansi  format=terminal
*config=myconfig.cfg
* Contenu de myconfig.cfg
*   sqlcheck=semantics
*   userid=User/Password@Service
*****************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. RechercherPiscines.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
        EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01  RecPiscine.
    02  piscine          PIC XX.
    02  nom              PIC X(50).
    02  adresse          PIC X(50).
    02  codepostal       PIC X(5).
    02  lieu             PIC X(20).
    02  longueur         PIC XX.
    02  nbcouloirs       PIC XX.

01  SQLSTATE.
    02 SqlstateClass PIC XX.
        88 SuccessOp    VALUE '00'.
    02 SqlstateSuite PIC XXX.
01  Touche PIC X.
01  MessageErr PIC X(100).
       EXEC SQL END DECLARE SECTION END-EXEC.
           EXEC SQL INCLUDE SQLCA END-EXEC.

PROCEDURE DIVISION.
BeginPgm.
    DISPLAY "" ERASE SCREEN
        MOVE SPACES TO MessageErr
        EXEC SQL EXECUTE
        DECLARE
            NPiscines BOURGUDO.PISCINES%ROWTYPE;
        BEGIN
        NPiscines := BOURGUDO.GESTIONPISCINES.RECHERCHER();
        :piscine := NPiscines.piscine;
        :nom := NPiscines.nom;
        :adresse := NPiscines.adresse;
        :codepostal := NPiscines.codepostal;
        :lieu := NPiscines.lieu;
        :longueur :=NPiscines.longueur;
        :nbcouloirs :=NPiscines.nbcouloirs;
        EXCEPTION
         WHEN OTHERS THEN
             :MessageErr := SUBSTR(SQLERRM,1,100);
        END;
        END-EXEC
        IF MessageErr NOT = SPACES THEN
          DISPLAY "Erreur message " MessageErr
        ELSE
        DISPLAY " " ERASE SCREEN
        DISPLAY "PISCINE :"             LINE 1 COLUMN 5
        DISPLAY "NOM :"                 LINE 2 COLUMN 5
        DISPLAY "ADRESSE :"             LINE 3 COLUMN 5
        DISPLAY "CODEPOSTAL :"          LINE 4 COLUMN 5
        DISPLAY "LIEU :"                LINE 5 COLUMN 5
        DISPLAY "LONGUEUR :"            LINE 6 COLUMN 5
        DISPLAY "NCOULOIERS :"          LINE 7 COLUMN 5

        DISPLAY piscine
        LINE 1 COLUMN 20
        DISPLAY nom                 LINE 2 COLUMN 20
        DISPLAY adresse             LINE 3 COLUMN 20
        DISPLAY codepostal          LINE 4 COLUMN 20
        DISPLAY lieu                LINE 5 COLUMN 20
        DISPLAY longueur
        LINE 6 COLUMN 20
        DISPLAY nbcouloirs
        LINE 7 COLUMN 20
        END-IF
        DISPLAY 'Actionner une touche ' LINE 8 COLUMN 20
        ACCEPT Touche

    EXIT PROGRAM.