Discussion :

[mutsum1]

Bonjour,

J'ai un programme de service (TRAN000M) qui contient plusieurs fonctions, dont une déclarée comme suit :

Code :

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

1
2
3
4
P TRA_Recalcul    B                   EXPORT    
                                                
D TRA_Recalcul    PI                            
D  PBZDZ                         8S 0 CONST

Je voudrais appeler cette fonction via une procédure stockée, que j'ai déclaré comme ça :

Code :

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

1
2
3
CREATE PROCEDURE TRAN000( IN PDATE DEC (8, 0))                                              
LANGUAGE RPGLE NOT DETERMINISTIC CONTAINS SQL                      
EXTERNAL NAME TRAN000M(TRA_Recalcul) PARAMETER STYLE GENERAL

Si j'appelle cette procédure, la fonction du programme de service est bien appelée, mais la zone PBZDZ en entrée contient des caractères incorrects.

Auriez-vous une idée pour corriger ça ?
Merci

[mutsum1]

J'ai tenté un passage de paramètre en alphanumérique, puis une conversion numérique dans la fonction.
ça fonctionne dans ce cas, le paramètre est bien reçu, et la conversion se fait bien.

Je pense qu'il y a un problème de conversion des zones numériques entre SQL et le programme de service.
C'est d'autant plus étonnant que ça fonctionne parfaitement entre SQL et un programme RPGLE.

Il faut peut-être modifier quelque chose au niveau de la déclaration, peut-être au niveau du LANGUAGE.

[m4k-Hurrican]

La réponse est simple.
La procédure utilise le type "Decimal" qui est équivalent au "packé"
Le programme utilise le type numérique étendu (Zoned)
Pour que la procédure colle au programme il aurait fallu faire la déclaration du paramètre en NUMERIC et non DECIMAL

[mutsum1]

Merci pour cette réponse.
Mais je n'arrive pas à tester ce que tu indiques.

Une fois déclaré en Numeric, l'appel direct via SQL ne fonctionne plus, il indique une erreur de conversion. [CALL TRAN000( 20230413 )]
Même chose lors de mon appel via mon appli ASP.NET, il n'arrive pas à convertir la zone numérique dans le format attendu par la procédure.

Je ne sais pas à quoi correspond le NUMERIC du coup...

[m4k-Hurrican]

Pour ma part çà fonctionne parfaitement, entre VB.NET et mes programmes / procédures en RPGLE

Exemple testé à l'instant avec une procédure de Test
Dans le RPG :

Code :

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

1
2
3
4
5
6
'*-------------------------------------------------------------------*                   
'* Tst_Numeric     Test champ Numeric                                *                   
'*-------------------------------------------------------------------*                   
D Tst_Numeric     PI                                                       Code retour   
D    p_NumFld                    8S 0 Const                                champ Numeric 
D    p_RetCod                   10i 0                                      champ retour

La procédure a été créée ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CREATE PROCEDURE MYBIB.TSTNUM ( 
	IN FLDNUM NUMERIC(8, 0) , 
	INOUT RETNUM INTEGER ) 
	LANGUAGE RPGLE 
	SPECIFIC MYBIB.TSTNUM 
	NOT DETERMINISTIC 
	MODIFIES SQL DATA 
	CALLED ON NULL INPUT 
	EXTERNAL NAME 'MYBIB/TSTNUM' 
	PARAMETER STYLE GENERAL ; 
  
GRANT EXECUTE   
ON SPECIFIC PROCEDURE MYBIB.TSTNUM 
TO PUBLIC ;

Et dans le VB :

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
17
18
19
20
21
22
23
24
25
nexion.
        Dim Cmd As New IBM.Data.DB2.iSeries.iDB2Command
        Cmd.Connection = cnn
        Cmd.CommandTimeout = 0

        Cmd.CommandText = "CALL MYBIB.TSTNUM(?, ?)"

        Cmd.Parameters.Add("@numFld", iDB2DbType.iDB2Numeric, 8, 0)
        Cmd.Parameters.Add("@retCod", iDB2DbType.iDB2Integer)

        Cmd.Parameters("@numFld").Value = 10
        Cmd.Parameters("@numFld").Direction = ParameterDirection.Input
        Cmd.Parameters("@retCod").Value = 0
        Cmd.Parameters("@retCod").Direction = ParameterDirection.InputOutput

        ' Si aucune erreur valide, sinon annule
        Try
            If (Cmd.ExecuteNonQuery = 0) Then    ' Exécute la requête. Si erreur...
                MessageBox.Show("Erreur lors de la récupération du paramètre ")
            Else
                MessageBox.Show("Paramètre reçu " & CType(Cmd.Parameters("@retCod").Value, String))
            End If
        Catch ex As Exception
            MessageBox.Show("Erreur lors de l'appel ")
        End Try

[mutsum1]

Merci pour cet exemple. C'est ce qu'il me manquait pour comprendre comment déclarer la procédure avec le NUMERIC.

Effectivement, avec la bonne déclaration ça marche parfaitement.

Merci !!!