Comment tester une procédure avec des variables comme %Rowtype

Bonjour

J'ai créé une procédure avec les variables d'entré en type %Rowtype

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
34
35
36
37
38
39
40
41
create or replace 
PROCEDURE      "test_CREATE" 
  (
    udProspect   IN structure%Rowtype,
    DateStamp    IN TIMESTAMP, -- date d'appel de la procédure
    PN$strChemin IN VARCHAR2 , -- chemin vers le répertoire des ressources
    LR$recSiteVirtuel organization%Rowtype,
    contactIdSA contact.contact_id%type,
    recUserSA "access"%Rowtype,
    primaireModifie8100 x_lkp_activity%Rowtype,
    stageIdSite LOOKUP_ACCOUNT_STAGE%Rowtype,
    FileHandlerLog utl_file.file_type)
AS
 
PN$udcontact personne%Rowtype;
TYPE TYP_TAB_organization
IS
  TABLE OF organization%Rowtype ;
  lstSiteTab TYP_TAB_organization;
  recSite organization%Rowtype;
TYPE TYP_TAB_organiz_adr
IS
  TABLE OF organization_address%Rowtype ;
  lstBr TYP_TAB_organiz_adr;
  recAddress organization_address%Rowtype ;
  LN$seqOrganization NUMBER(10) := 0;
  LE$Fin             EXCEPTION ;
  strNote            VARCHAR2(255);
  Postalcode         VARCHAR2(200) :='00000';
  LocalityName       VARCHAR2(200) :='<Ville Inconnue>';
  PostalAdress       VARCHAR2 (200):='<Adresse inconnue>';
TYPE TYP_TAB_organiz_email
IS
  TABLE OF organization_emailaddress%Rowtype ;
  orgMailTab TYP_TAB_organiz_email;
 
BEGIN
 
.....
 
END "test_CREATE" ;

Comment je peux tester cette procédure, vu que je peux pas taper une table comme les variables d'entré!!!!

Si vous avez des idées, je vous remercie d'avance pour vos aides.

Bonne journée

Ying

google est un tres bon ami
http://books.google.fr/books?id=9dDg...owtype&f=false

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Declare
  --
  recEmp   hr.employees%RowType;
  --
  Procedure printRec (
    rEmp   In hr.employees%RowType
  ) Is
  Begin
    dbms_output.put_line(rEmp.first_name);
  End;
  --  
Begin
  Select e.* 
    Into recEmp
    From hr.employees e
   Where e.employee_id = 100;
 --
 printRec(recEmp);  
End;

Citation:

Envoyé par vttvolant

google est un tres bon ami
http://books.google.fr/books?id=9dDg...owtype&f=false

Merci bcp de vos aides.