SHARE
TWEET

Untitled

a guest Jul 9th, 2018 175 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. *****************************************************************
  2. * précompilation
  3. * procob18 iname=RechercherPiscines.pco mode=ansi  format=terminal
  4. *config=myconfig.cfg
  5. * Contenu de myconfig.cfg
  6. *   sqlcheck=semantics 
  7. *   userid=User/Password@Service
  8. *****************************************************************
  9. IDENTIFICATION DIVISION.
  10. PROGRAM-ID. RechercherPiscines.
  11. ENVIRONMENT DIVISION.
  12. DATA DIVISION.
  13. WORKING-STORAGE SECTION.
  14.         EXEC SQL BEGIN DECLARE SECTION END-EXEC.
  15. 01  RecPiscine.
  16.     02  piscine          PIC XX.
  17.     02  nom              PIC X(50).
  18.     02  adresse          PIC X(50).
  19.     02  codepostal       PIC X(5).
  20.     02  lieu             PIC X(20).
  21.     02  longueur         PIC XX.
  22.     02  nbcouloirs       PIC XX.
  23.  
  24. 01  SQLSTATE.
  25.     02 SqlstateClass PIC XX.
  26.         88 SuccessOp    VALUE '00'.
  27.     02 SqlstateSuite PIC XXX.
  28. 01  Touche PIC X.
  29. 01  MessageErr PIC X(100).
  30.        EXEC SQL END DECLARE SECTION END-EXEC.
  31.            EXEC SQL INCLUDE SQLCA END-EXEC.
  32.  
  33. PROCEDURE DIVISION.
  34. BeginPgm.
  35.     DISPLAY "" ERASE SCREEN
  36.         MOVE SPACES TO MessageErr
  37.         EXEC SQL EXECUTE
  38.         DECLARE
  39.             NPiscines BOURGUDO.PISCINES%ROWTYPE;       
  40.         BEGIN
  41.         NPiscines := BOURGUDO.GESTIONPISCINES.RECHERCHER();
  42.         :piscine := NPiscines.piscine;
  43.         :nom := NPiscines.nom;
  44.         :adresse := NPiscines.adresse;
  45.         :codepostal := NPiscines.codepostal;
  46.         :lieu := NPiscines.lieu;
  47.         :longueur :=NPiscines.longueur;
  48.         :nbcouloirs :=NPiscines.nbcouloirs;    
  49.         EXCEPTION
  50.          WHEN OTHERS THEN
  51.              :MessageErr := SUBSTR(SQLERRM,1,100);
  52.         END;
  53.         END-EXEC
  54.         IF MessageErr NOT = SPACES THEN
  55.           DISPLAY "Erreur message " MessageErr
  56.         ELSE
  57.         DISPLAY " " ERASE SCREEN
  58.         DISPLAY "PISCINE :"             LINE 1 COLUMN 5
  59.         DISPLAY "NOM :"                 LINE 2 COLUMN 5
  60.         DISPLAY "ADRESSE :"             LINE 3 COLUMN 5
  61.         DISPLAY "CODEPOSTAL :"          LINE 4 COLUMN 5
  62.         DISPLAY "LIEU :"                LINE 5 COLUMN 5
  63.         DISPLAY "LONGUEUR :"            LINE 6 COLUMN 5
  64.         DISPLAY "NCOULOIERS :"          LINE 7 COLUMN 5
  65.        
  66.         DISPLAY piscine
  67.         LINE 1 COLUMN 20
  68.         DISPLAY nom                 LINE 2 COLUMN 20
  69.         DISPLAY adresse             LINE 3 COLUMN 20
  70.         DISPLAY codepostal          LINE 4 COLUMN 20
  71.         DISPLAY lieu                LINE 5 COLUMN 20
  72.         DISPLAY longueur
  73.         LINE 6 COLUMN 20
  74.         DISPLAY nbcouloirs
  75.         LINE 7 COLUMN 20
  76.         END-IF
  77.         DISPLAY 'Actionner une touche ' LINE 8 COLUMN 20
  78.         ACCEPT Touche
  79.  
  80.     EXIT PROGRAM.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top