Même nom de procédure dans deux programmes de service

**jenffou** · 05/07/2010, 10h12

Bonjour,

J'ai 2 programmes de service, un dédié aux Utilisateurs avec des procédures du style GetLanguage, GetMail, etc.. et un autre dédié aux clients dont une des procédures à le même nom : GetLanguage.
Comment puis-je utiliser ces 2 procédures dans le même PGM Rpgle ?

Merci

**K2R400** · 05/07/2010, 12h18

Utilises %PADDR.

Exemple : http://www.itjungle.com/fhg/fhg033110-printer01.html

**jenffou** · 05/07/2010, 16h17

J'ai pas trés bien compris mais je vais creuser.
Merci pour votre réponse

**K2R400** · 05/07/2010, 17h00

Dans l'exemple ci-dessous prInterface() appelle soit la procédure prMass, soit la procédure prConn. Effectivement je ne crois pas que ce cas t'arrange.

Code :

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

1
2
3
4
5
6
7
8
dptr                   s             * procptr
dprInterface        pr              extproc(Ptr)
d p_parm                        10

    ptr=%paddr(prMass);
    prInterface(Massdata);
    ptr=%paddr(prConn);
    prInterface(ConnData);

Selon tes dires, tu as deux procédures différentes portant le même nom, AYANT LA MEME INTERFACE, mais étant dans deux programmes de services différents.
Il est possible grâce au programme ci-dessous, de le faire par indirection.
http://reocities.com/SiliconValley/p...getspgmptr.txt

Exemple d'utilisation :

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
H option(*srcstmt : *nodebugio)                                  
H truncnbr(*no) decedit(',')                                     
** --------------------------------------------------------------
** Paramètres du programme                                       
** --------------------------------------------------------------
d $entry          pr                  extpgm('INDIRECT')         
d                               10A                              
d $entry          pi                                             
d  Prog                         10A                              
** ----------------------------------------------------          
** Prototype d'appel à une procédure générique                   
**    dont on ne connaît pas le nom au moment                    
**    de la compilation mais qui aura un                         
**    prototype d'appel identique                                
** ----------------------------------------------------          
DProcGenerique    PR            50A   ExtProc(Ptr)               
D                               30A   Value              
                                                         
** ----------------------------------------------------  
** Prototype de récupération du Pointeur                 
** ----------------------------------------------------  
 *  Get Service Program Pointer                          
 *                                                       
D GetSPgmPtr      PR              *   ProcPtr            
D   SrvPgm                      10A   Const              
D   Library                     10A   Const              
D   Procedure                  100A   Const      Varying 
** ----------------------------------------------------  
D DS_GetSPgmPtr   ds                                     
D   SrvPgm                      10A   inz('INDIRECTX')   
D   Library                     10A   inz('*LIBL')       
D   Procedure                  100A   Varying            
D  Ptr                            *   ProcPtr                     
** ---------------------------------------------------------------
** Déclaratives diverses                                          
** ---------------------------------------------------------------
D CodeRetour      s             50A                               
** ***************************************************************
** ****                  TRAITEMENT PRINCIPAL                     
** ***************************************************************
 /free                                                            
    *inlr = *on;                                                  
    Clear DS_GetSPgmPtr;                                          
    Reset DS_GetSPgmPtr;                                          
    Procedure = 'INDIRECT1';                                      
    Ptr = GetSPgmPtr(SrvPgm:Library:Procedure);                   
    CodeRetour = ProcGenerique('Parametre');                      
    Dsply CodeRetour;                                             
  
    Procedure = 'INDIRECT2';                    
    Ptr = GetSPgmPtr(SrvPgm:Library:Procedure); 
    CodeRetour = ProcGenerique('Parametre');    
    Dsply CodeRetour;                           

/end-free

M'enfin, le mieux est de donner des noms différents à tes focntions.