Discussion :

[marina_b44]

Bonjour,

J'ai une procédure stockée dans un source qui lorsque j'exécute un runsqlstm se plante avec comme erreur "ERREUR SQL SYSTEME" avec comme information dans l'aide : L'ID message précédent est MCH3601. Une erreur interne de type 1273 s'est produite. S'il s'agit d'une précompilation, le traitement s'interrompra sur cette instruction.

Cette même requête s'exécute bien sur un autre AS400 avecla même version V5R4M0.

Source de la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CREATE PROCEDURE ARP081SQ                                                         
(                                                                                 
INOUT CDAPPEL CHAR(1),                                                            
INOUT CDRETOU CHAR(1),                                                            
INOUT CDNIVGR CHAR(2),                                                            
INOUT DTAPPLI CHAR(10),                                                           
INOUT CDACCES CHAR(1),                                                            
INOUT IDDAFOU DEC(9),                                                             
INOUT NRFOURN DEC(7),                                                             
INOUT CDDAFOU CHAR(2),                                                            
INOUT IDFOURN DEC(9),                                                             
INOUT BONACTI CHAR(1),                                                            
INOUT NBOCCUR DEC(3)                                                              
)                                                                                 
DYNAMIC RESULT SETS 1 LANGUAGE RPGLE NOT DETERMINISTIC  EXTERNAL NAME             
AR0081RP PARAMETER STYLE GENERAL

Si quelqu'un a une idée, ça m'aiderait bien.

Merci

[K2R400]

Généralement on obtient un MCH3601 quand il y a des incohérences dans les paramètres.
Peux-tu faire un copier/coller de ton RPG, la partie recevant les paramètres ?

[marina_b44]

*ENTRY PLIST
PARM CdAppel 1
PARM CdRetou 1
PARM CdNivGr 2
PARM DtAppli 10
PARM CdAcces 1
PARM IdDafou 9 0
PARM NrFourn 7 0
PARM CdDafou 2
PARM IdFourn 9 0
PARM BoNActi 1
PARM NbOccur 3 0

[Hédhili Jaïdane]

*ENTRY PLIST
PARM CdAppel 1
PARM CdRetou 1
PARM CdNivGr 2
PARM DtAppli 10
PARM CdAcces 1
PARM IdDafou 9 0
PARM NrFourn 7 0
PARM CdDafou 2
PARM IdFourn 9 0
PARM BoNActi 1
PARM NbOccur 3 0

Bonjour.

Je ne suis pas gapiste, mais tu ne devrais pas déclarer tes paramètres décimaux comme packés ?

[K2R400]

Bonjour.
Je ne suis pas gapiste, mais tu ne devrais pas déclarer tes paramètres décimaux comme packés ?

Tout a fait exact !

Soit il faut definir les variables dans SQL en type NUMERIC au lieu de DECIMAL
Soir il faut définir dans le RPG les zones en Packé :
PARM IdDafou 9P0

[Mercure]

Remplacer le point d'entrée *ENTRY et les paramètres PARM par un prototype (PR) et une interface de procédure (PI), le prototype étant plus permissif.

Il faudrait voir à se moderniser un peu.

[marina_b44]

Les paramètre en entrée sont bien en packés.
Nous avons recompilé l'objet. Et çà marche.
Entre temps notre machine de dév est passeée en V5R4.

Merci de votre aide.

[Hédhili Jaïdane]

Alors bonne continuation et A+

N'oublie pas le tag [Résolu]