Discussion :

[snotter]

Bonjour,

Dans le cadre d'un projet, nous essayons d'intégrer ce code PL/SQL dans du PROC:

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
26
27
declare
   cl_chaine clob;
begin
   dbms_lob.createtemporary(
      lob_loc => cl_chaine, 
      cache   => true, 
      dur     => dbms_lob.session
    );
 
   dbms_lob.open(
      lob_loc    => cl_chaine, 
      open_mode  => dbms_lob.lob_readwrite
   );
 
   dbms_lob.write(
      lob_loc => cl_chaine,
      amount => :host variable 1, -- Longueur du buffer
      offset => 1,
      buffer => :host variable 2  -- Buffer
   ); 
 
   :result := func1(cl_chaine);
 
   dbms_lob.close(lob_loc => cl_chaine);
   dbms_lob.freetemporary(lob_loc => cl_chaine);
 
end;

Pour le moment, nous n'arrivons pas à passer le CLOB en paramètre de la procédure stockée.

Si quelqu'un a une idée, nous sommes preneurs. Merci d'avance.

Pour info, nous avons une solution alternative qui découpe le buffer initial en plusieurs petits buffers afin de les passer en paramètre sous forme d'un VARCHAR.

Cordialement.

[snotter]

Bonsoir,

La note Metalink 52570.1 donne un exemple d'utilisation d'un BLOB en paramètre d'une procédure stockée.

On en déduit facilement l'utilisation d'un CLOB en paramètre d'une procédure stockée ( un simple varchar remplace le type varraw proposé pour un BLOB ).

Pour le makefile, vous pouvez prendre celui proposé par le client Oracle ( demo_proc.mk ).

Stéphane.

[snotter]

Bonsoir,

Pour illustrer la discussion, voici un exemple:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
/*make -f demo_proc.mk EXE=test_clob_dyn OBJS=test_clob_dyn.o build PROCFLAGS="sqlcheck=full userid=xxx/xxx@xxx code=ansi_c oraca=yes release_cursor=yes"*/
 
#include <stdio.h>
#include <string.h>
 
/* Include the SQL Communications Area, a structure through
* which ORACLE makes runtime status information such as error
* codes, warning flags, and diagnostic text available to the
* program.
*/
 
#include <sqlca.h>
 
/* Include the ORACLE Communications Area, a structure through
* which ORACLE makes additional runtime status information
* available to the program.
*/
 
#include <oraca.h>
 
void dyn_error(char *msg);
 
int main(int argc, char *argv[])
{
    VARCHAR oracleid[100];
    VARCHAR dynstmt3[2048];
 
    EXEC SQL WHENEVER SQLERROR DO dyn_error("Oracle error:");
 
    /* Save text of current SQL statement in the ORACA if an
     * error occurs.
     */
 
    oraca.orastxtf = ORASTFERR;
 
    /*
     * Connect to the database.
     */
 
    strcpy( (char *)oracleid.arr, "xxx/xxx@xxx" );
    oracleid.len = strlen((char *)oracleid.arr);
 
    EXEC SQL CONNECT :oracleid;
    printf("Connexion ... \n");
 
    /* strcpy((char *)dynstmt3.arr, "declare i number; begin i := 0; end;"); */
 
    char tcNomProc[80];
    strcpy(tcNomProc, "clob_it.test_clob");
 
    strcpy((char *)dynstmt3.arr, "\
declare \
   cl_chaine clob; \
begin \
   dbms_lob.createtemporary(lob_loc => cl_chaine, cache => true, dur => dbms_lob.session); \
   dbms_lob.open(lob_loc => cl_chaine, open_mode  => dbms_lob.lob_readwrite); \
   dbms_lob.write(lob_loc => cl_chaine, amount => :1, offset => 1, buffer => :2); ");
 
   strcat((char *)dynstmt3.arr, tcNomProc);
 
strcat((char *)dynstmt3.arr, "\
(cl_chaine); \
   dbms_lob.close(lob_loc => cl_chaine); \
   dbms_lob.freetemporary(lob_loc => cl_chaine); \
end;");
 
   dynstmt3.len = strlen((char *)dynstmt3.arr);
   printf("%d -%s- \n", dynstmt3.len, (char *)dynstmt3.arr);
 
    /*EXEC SQL EXECUTE
       declare
          cl_chaine clob;
       begin
          dbms_lob.createtemporary(
             lob_loc => cl_chaine,
             cache   => true,
             dur     => dbms_lob.session
          );
 
          dbms_lob.open(
             lob_loc    => cl_chaine,
             open_mode  => dbms_lob.lob_readwrite
          );
 
          dbms_lob.write(
             lob_loc => cl_chaine,
             amount => 25,
             offset => 1,
             buffer => :buffer
          );
 
          clob_it.test_clob(cl_chaine);
 
          dbms_lob.close(lob_loc => cl_chaine);
 
          dbms_lob.freetemporary(lob_loc => cl_chaine);
 
       END;
 
    END-EXEC;*/
 
    /* Méthode 1: EXEC SQL EXECUTE IMMEDIATE :dynstmt3; */
 
    /* Méthode 2 */
 
    EXEC SQL PREPARE S FROM :dynstmt3;
 
    /* 25, abcdefghijklmnopqrtuvwxyz */
    int iLgBuffer = 25;
    char tcChaine[80];
    strcpy(tcChaine, "abcdefghijklmnopqrtuvwxyz");
 
    EXEC SQL EXECUTE S USING :iLgBuffer, :tcChaine;
 
    printf("Traitement ... \n");
 
    return 0;
 
}
 
void dyn_error(char *msg)
{
   /* This is the Oracle error handler.
    * Print diagnostic text containing the error message,
    * current SQL statement, and location of error.
    */
 
    printf("\n%.*s\n",sqlca.sqlerrm.sqlerrml, sqlca.sqlerrm.sqlerrmc);
    printf("in \"%.*s...\'\n",oraca.orastxt.orastxtl, oraca.orastxt.orastxtc);
    printf("on line %d of %.*s.\n\n",oraca.oraslnr, oraca.orasfnm.orasfnml,oraca.orasfnm.orasfnmc);
 
    /* Disable Oracle error checking to avoid an infinite loop
     * should another error occur within this routine as a
     * result of the rollback.
     */
 
    EXEC SQL WHENEVER SQLERROR CONTINUE;
 
    /* Roll back any pending changes and disconnect from Oracle. */
    EXEC SQL ROLLBACK RELEASE;
 
    exit(1);
 
}

Remarque: le buffer d'entrée ne peut pas dépasser 32 512 octets ( environnement: Solaris, Oracle 9i ).