SQL Integer et paramètres

Bonjour,
Soit je suis très fatigué, soit j'ai échappé un truc, soit je suis tombé sur un truc... Je m'explique.
J'ai une table SQL, comportant des variables définies comme Integer.
Je les utilise depuis longtemps et sans problème dans mes programmes. Sauf aujourd'hui...
Voilà qu'il m'a pris de vouloir passer en paramètre à une procédure, une de ces variables.
Comme j'en ai l'habitude, integer => 10I 0.
Je défini mon prototype, compile mon module, et là quand je veux compiler le programme qui appelle le module, vlan, RNF7535, Le type et les attributs du paramètre 2 ne correspondent pas à ceux du prototype. 8O
Bon, je me dis que je vais tout vérifier, je me gratte la tête, voit que le compilateur prend la zone comme 9B 0, je change donc mon prototype et le module pour utiliser ce type de variable (pourtant pas recommandé), et je compile à nouveau. Hélas, même combat. :?
Alors j'ai besoin de vacances ? :(

Bonjour,

Pourquoi ne pas passer par une variable signée 10s0 ?
Tu as changés de version d'os ? Tu utilises ARCAD ?
Tu passes ta zone en pr pi ?

Larry57

Est-ce que la zone ne serait pas définie 9B 0 ailleurs, comme dans un fichier par exemple ? Regarde ton listing de compilation pour voir où elle est définie ...

Pas de changement, simplement une chose que bizarrement je n'avais jamais faite.
Bref, je vais essayer d'être plus clair :
J'ai donc un fichier défini avec une clé en integer. Résumé :

Code:

---

1 2	CREATE TABLE WEBEXCHANG.IMPORTCMDHIS ( ID INTEGER GENERATED ALWAYS AS IDENTITY (...

---

Je veux dans un programme où je lis ce fichier, appeler un module en lui passant cette zone ID. Voici la définition du prototype :

Code:

---

1 2 3

D Imp_CmdCliWeb PR 10I 0 Code retour D P_CmdSocCod 1 Code de la société D P_CmdNumWeb 10I 0 N° de Cmde Web

---

Et voilà l'appel.

Code:

---

RetCod = Imp_CmdCliWeb(CodeSociete:ID);

---

Sachant que ID est un integer, passer en 10I 0 devrait fonctionner. Mais non çà ne compile pas. Et en 9B 0 non plus. J'ai dormi, mais j'ai toujours pas eu la lumière. :?
Enfin bon, comme solution "de dépannage", j'ai créé une variable en 10I 0 dans laquelle je place ID, et que je passe au module...

DSPFFD du fichier me donne ID comme une zone de 9 Binaire et non comme une zone Integer 10 !
Essaie de définir en 9B dans le PR et dis nous quelle erreur tu as ..

Si tu relis mon message, tu verras que je l'ai déjà essayé. ;)

Mais attention, ce fameux codage binaire est un sac de nœuds made in IBM. Il ne faut pas confondre codage binaire RPG et codage binaire standard. Ils ont le même nom mais ne sont pas identiques. Le codage "binaire" en RPG et un faux ami. Et normalement le vrai binaire sur 4 bits se code 10I 0 si signé, 10U 0 si non signé.
4 bits... C'est peut être çà le truc. 8O Je vais tenter de coder 4B pour voir... Mais dans ce cas ma clé risque des ennuis avec des valeurs hautes. :? De toute manière la solution de dépannage fonctionne bien...

Arf... trouvé ! :)
Il faut ajouter le mot clé EXTBININT pour que les zones BD définies en 9B0 soit transformées en 10I 0 !
Sauf que ... Le compilateur semble buggué. :calim2: Les zones sont bien indiquées comme définies en Integer dans la liste des importations d'entrée (cartes I), mais dans la liste des définitions de zones elles sont en P(10, 0). Packées... Et du coup même erreur de compilation.

Bref, je garde ma solution de dépannage, mais j'ai ajouté le mot clé EXTBININT qui m'assure de couvrir toute la plage des enregistrements.