arrow_back Peut-on utiliser des booléens RPG comme variable hôte sur du SQL embarqué?

Question

Bonjour, 

Je souhaite faire une requête SQL d'existence d'enregistrement et mettre directement dans une variable hôte la valeur *On. Peut-on le faire? Si oui, comment?

Exec sql Select '1'?
           Into :lControleInvalide
           From Bnsgwp
          Where Numsgw = :pNumeroSerie
            And Coduex = :pCodeUniteExploitation
          Limit 1; 

Cordialement, 

Answer 1

Bonsoir, j'ai trouvé une solution mais il y a peut être plus simple :

dcl-proc TESTSQLBOO;

  dcl-s trouve ind;    //trouve est un indicateur

  //article 87 existe
  EXEC SQL
    VALUES
      CASE
        WHEN (SELECT '*'
              FROM STKART0
              WHERE NOARTF = 87
              LIMIT 1) IS NULL THEN '0'
        ELSE '1'
      END INTO :TROUVE;

  dsply ('Art 87 : ' + trouve);

  // arcicle 87999 n'existe pas
  EXEC SQL
    VALUES
      CASE
        WHEN (SELECT '*'
              FROM STKART0
              WHERE NOARTF = 87999
              LIMIT 1) IS NULL THEN '0'
        ELSE '1'
      END INTO :TROUVE;

  dsply ('Art 87999 : ' + trouve);

  return;

end-proc;


donne :
 3 > call TESTSQLBOO      
     DSPLY  Art 87 : 1    
     DSPLY  Art 87999 : 0

Comments

Merci Denis, je vais essayer.