Discussion :

[mat7775]

Bonjour tout le monde,

Dans un programme que je maintiens, j'ai la requête sur le modèle suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
EXEC SQL
    SELECT
        SUM(ZONE1)
      , SUM(ZONE2)
    INTO
        :WSUM-ZONE1:WSUM-ZONE1-I
      , :WSUM-ZONE2:WSUM-ZONE2-I
    FROM TABLE1, TABLE2
   WHERE (TAB1CLE1 = :WDIS-TAB1CLE1
      AND TAB1CLE2 >= :WDIS-TAB1CLE2
      AND TAB2CLE1 = TAB1CLE1
      AND TAB2CLE2 = TAB2CLE2)
END-EXEC

et après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
IF WSUM-ZONE1-I = -1
    MOVE ZEROES TO WSUM-ZONE1
END-IF.
IF WSUM-ZONE2-I = -1
    MOVE ZEROES TO WSUM-ZONE2
END-IF.

Quelqu'un sait-il à quoi correspondent les champs suffixés "-I" et à ce que veulent dire les tests fais dessus après la requête?

Merci pour vos lumières
Mat

[Mercure]

Il s'agit d'indicateurs qui vont te dire si le champ associé est NULL ou pas.

Dans l'exemple que tu montres et que je reprends en partie ci-dessous, si l'indicateur WSUM-ZONE1-I a la valeur -1 après exécution du SELECT, cela veut dire que le champ WSUM-ZONE1 qui y est associé est NULL. Cet indicateur prend la valeur 0 dans le cas contraire (champ pas NULL).
Idem pour le champ WSUM-ZONE2 bien entendu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
IF WSUM-ZONE1-I = -1
    MOVE ZEROES TO WSUM-ZONE1
END-IF.

Remarques
Bien noter que champs et indicateurs ne sont volontairement PAS séparés par une virgule.

On aurait pu établir également la SELECT avec la fonction intégrée COALESCE() ( ou IFNULL() ) comme suit, ce qui aurait en pratique évité les deux tests subséquents sur les valeurs NULL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
EXEC SQL
SELECT
COALESCE(SUM(ZONE1), 0),
COALESCE(SUM(ZONE2), 0)
INTO
:WSUM-ZONE1:WSUM-ZONE1-I,
:WSUM-ZONE2:WSUM-ZONE2-I
FROM TABLE1, TABLE2
WHERE (TAB1CLE1 = :WDIS-TAB1CLE1
AND TAB1CLE2 >= :WDIS-TAB1CLE2
AND TAB2CLE1 = TAB1CLE1
AND TAB2CLE2 = TAB2CLE2)
END-EXEC

[mat7775]

Merci beaucoup!!!