Discussion :

[PierreS]

Est-il possible de passer en paramètre ou par une fonction de PL/SQL dans un programme COBOL.

Je dois passé une structure de table défini par ROWTYPE. Sa pourrait être aussi défini par un type RECORD
Comment définir le code du côté COBOL
exemple Structure de table EMPLOYER
no_empl number(6),
prenom varchar2(30),
nom varchar2(30),

exec sql ...
retourner l'enregistrement associer au numéro d'employer dans une structure cobol avec une fonction Oracle en PL/SQL
end-exec.

[Mercure]

Essaie ce qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
WORKING-STORAGE SECTION.
01  Zone_Receptrice.
    05  no_empl number pic x(6).
    05  prenom pic x(30).
    05  nom pic x(30).

     Exec sql SELECT no_empl number, prenom, nom 
             INTO :Zone_Receptrice  
             FROM EMPLOYER
             WHERE  no_empl number = ...
     End-exec.

Pas sûr en PRO-COBOL mais me paraît correct.

[PierreS]

Mais en utilisant une fonction qui contient le SQL pour obtenir le rang de l'employé. Est-ce que l'utilisation d'une fonction retournant une structure de table est compilable.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
WORKING-STORAGE SECTION.
01 Zone_Receptrice.
05 no_empl number pic x(6).
05 prenom pic x(30).
05 nom pic x(30).

* 45637 est le numéro d'employé
Exec sql EXECUTE
:Zone_Receptrice :Zone_Receptrice-ind :=
Ranger_employer(45637);
End-exec.

Dans une fonction PL/SQL en ORACLE provenant d'un package

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
Function Ranger_employer(pNo_Employer IN table_employer.no_empl%TYPE)
return table_employer%ROWTYPE is 

lEmployer_row table_employer%ROWTYPE;
BEGIN
SELECT *
INTO lEmployer_row 
FROM EMPLOYER
WHERE no_empl number = pNo_Employer;

RETURN lEmployer_row;
[Plus] 

EXCEPTION
WHEN NO_DATA_FOUND THEN
RETURN lEmployer_row;

END;

Voilà c'est mieux comme ça