Comment renvoyer SQLCODE et SQLTEXT en paramètre de retour

Bonjour,

Dans le procédure suvante, je voudrais renvoyer le SQLCode et le SQLText. Est-ce possible ? Merci.

Code:

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
26
27
28
29
30
31
32
33
SET TERM ^ ;
 
CREATE PROCEDURE UPD_TABLE
RETURNS(
  PARAM_RETOUR_MSG VARCHAR(250) CHARACTER SET NONE,
  PARAM_RETOUR_ERR INTEGER)
AS
BEGIN
 
  IF test THEN 
  begin
    EXCEPTION except_1;
  end
 
  begin
 
   UPDATE table
   SET table.champs = ...  
 
 
  when except_1 do
  begin
    PARAM_RETOUR_ERR = 1;
    PARAM_RETOUR_MSG = 'ERREUR'
  end
 
  when any DO
    PARAM_RETOUR_ERR = SQLCODE;
    PARAM_RETOUR_MSG = SQLTEXT;
  end
END^
 
SET TERM ; ^