Discussion :

[PierreS]

Je ne sais pas si c'est possible à faire en PRO-COBOL.
Dans un programme cobol, je veux appeler une fonction d'un package Oracle. Cette fonction retourne une structure ayant plusieurs enregistrement. Cette structure de table (PIPELINED) provient de la résultante d'un SQL. La structure de table peut-être utilisé dans un select.
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Select 
  T1.No_Anoml_Typ,
  T1.No_Item_Doc_Cib,
  T1.Typ_Corr,
  T1.Cod_Parag_Typ,
  T1.Stat_Anoml_Corr,
  T2.Cod_Catg_Anoml,
  T1.Val_Corr_Defa
 From A2_Auto_Corr T1,
      Table(A2076_Ret0001.taF_VectA2AnomlTyp) T2
Where T1.Ind_Destr_Log = 'N'
  And T1.No_Anoml_Typ = T2.No_Anoml_Typ
  And T1.No_Item_Doc_Cib = T2.No_Item_Doc_Cib

Si Oui Comment définir les variables dans le Working Storage et comment faire l'appel dans le code

Code :

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

1
2
3
4
5
6
7
exec sql execute
              begin
                :dc-oui-non :dc-oui-non-i 
                      := A2125_MONNFONC.stF_IndMonnFonc
                         (:dc-no-decl-soc-inf-cot);                
              end;
           end-exec.

Merci

[PierreS]

J'ai trouvé

Il faut utiliser une fonction retournant un PIPELINED. En cobol utiliser un FETCH avec un SQL dynamique.

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
01 zt-dept-tempr-item.
          05 zt-taF-A2-Item-Val-part-1    pic x(37) value
             'Select val_calc COL1, val_modif COL2,'.
          05 zt-taF-A2-Item-Val-part-2    pic x(17) value
             ' no_item_doc COL3'.
          05 zt-taF-A2-Item-Val-part-3    pic x(42) value
             ' FROM TABLE(A2076_RET0001.taF_A2_Item_Val)'.
          05 zt-taF-A2-Item-Val-part-4    pic x(23) value
             ' WHERE no_item_doc in ('.
          05 zt-taF-A2-Item-Val-part-5    pic x(49) value
             ' select t2.no_item_Doc from a2_item_impa_calc t1,'.
          05 zt-taF-A2-Item-Val-part-6    pic x(12) value
             ' a2_calc t2 '.
          05 zt-taF-A2-Item-Val-part-7    pic x(27) value
             ' where t1.no_item_doc = 113' .
          05 zt-taF-A2-Item-Val-part-8    pic x(29) value
             ' and t2.no_calc = t1.no_calc)'.
          05 zt-taF-A2-Item-Val-part-9    pic x(22) value
             ' AND no_decl_soc = :V1'.

01  dc-taF-A2-Item-Val             pic x(1000).

       01  ar-a2-item-val                 occurs 100.
           05  ar-taF-A2-Item-calc        pic x(25).
           05  ar-taF-A2-Item-modif       pic x(25).
           05  ar-taF-A2-Item-no-item-doc pic 9(05).

       01  ar-a2-item-val-i               occurs 100.
           05  ar-taF-A2-Item-calc-i               pic s9(04) comp.
           05  ar-taF-A2-Item-modif-i            pic s9(04) comp.
           05  ar-taF-A2-Item-no-item-doc-I  pic s9(04) comp.


      *--> Préparer et compiler le SELECT pour le curseur.
           move zt-dept-tempr-item        to dc-taF-A2-Item-Val.

           exec sql
                PREPARE ITEM_VAL
                From :dc-taF-A2-Item-Val
           end-exec.

      *--> Déclarer le curseur pour le retour des items
           move "DDECLARE CUR_ITEM_VAL"  to a2112w01-cmd-sql.
           perform                        a2-inscr-cmd-sql.
           exec sql
                DECLARE CUR_ITEM_VAL CURSOR
                FOR ITEM_VAL
           end-exec.


           exec sql
                fetch CUR_ITEM_VAL
                into  :ar-a2-item-val  :ar-a2-item-val-i
           end-exec.

[Mercure]

N'y a t'il pas besoin d'ouvrir le curseur dans le langage PRO-COBOL ?
Ne peut-on pas remplacer la valeur "V1" par un marqueur de paramètre ?

Ces questions, parce que ce Cobol ressemble puissamment au Cobol et au SQL Mainframe et IBM i que je connais par ailleurs.

[PierreS]

Oui il faut ouvrir et fermer le curseur. Dans l'exemple il n'y a pas été démontré. Mais il faut les utilisé.
Pour l'autre question "Ne peut-on pas remplacer la valeur "V1" par un marqueur de paramètre ?"
Je ne connais pas "marqueur de paramètre".

[Mercure]

"marqueur de paramètre" ou "parameter marker". Il s'agit de points d'interrogation qu'on substitue lors du PREPARE ou de l'OPEN par la valeur du paramètre correspondant. Ces valeurs doivent alors être passées dans le même ordre que les ?.

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
 05 zt-taF-A2-Item-Val-part-9    pic x(22) value
     ' AND no_decl_soc = ?'.
          .
          .
          .
    exec sql
       OPEN CUR_ITEM_VAL CURSOR
          USING :V1    <--- ici, substitution du ? par la valeur V1
    end-exec.

Mais je ne sais pas si ça marche en pro-cobol.

[PierreS]

Oui le marqueur des paramètres est applicable.

[Mercure]

Dans ce cas, pour raison de performances, il vaut mieux employer le marqueur de paramètre plutôt que de faire du SQL dynamique pur et dur.