Discussion :

[JauB]

Bonjour,
Je reviens vers vous pour m'aider dans la conversion d'un programme RPG en un PGM COBOL.
Le PGM RPG m'a été proposé par K2R400 ici. Mais comme je connais pas RPG alors je fais encore une fois appel à votre HELP pour m'aider à l'écrire en COBOL.
La source de ce PGM RPG est le suivant :

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
********************************************************************* 
 * Réalisé par K2R400
********************************************************************* 
 * Prototypes for the service interface and operations                 
 *-------------------------------------------------------------------- 
DgetStub          PR              *   ExtProc('get_+                   
D                                     CurrencyConvertorSoap+           
D                                     _stub')                          
D pEndpoint                       *   Value                            
 *                                                                     
DdestroyStub      PR                  ExtProc('destroy_+               
D                                     CurrencyConvertorSoap+           
D                                     _stub')                          
D AxisHandle                      *   Value                            
 *                                                                     
DRate             PR             8F   ExtProc('ConversionRate')        
D AxisHandle                      *   Value                             
D  Devise_In                      *   Value                             
D  Devise_Out                     *   Value                             
 *                                                                      
                                                                        
 *--------------------------------------------------------------------  
 * Miscellaneous declarations.                                          
 *--------------------------------------------------------------------  
D WsStubP         S               *                                     
D Devise_In       s              4                                      
D Devise_Out      s              4                                      
D Resultat        s             15  5                                   
D Fl              s              8f                                     
 /FREE                                                                  
     // Get a Web service stub. The host and port for the endpoint may  
     // to be changed to match host and port of Web service. You can pa 
     // *NULL to getStub() if the endpoint in the WSDL file is correct.
                                                                        
      WsStubP = getStub(*NULL);                                         
      Devise_In  = 'USD' + x'00';                                       
      Devise_Out = 'MAD' + x'00';                                       
      Fl  = Rate(WsStubP : %addr(Devise_In) : %addr(Devise_Out));       
      Resultat = %dech(Fl : 15 : 5);                                    
      destroyStub(WsStubP);                                             
      Dsply %char(Resultat);                                            
      *inlr = *on;

Merci à vous

[Mercure]

Tu peux regarder ici le chapitre "Calling from COBOL" qui montre comment consommer un web service en Cobol. Je pense que tu peux largement t'en inspirer pour convertir le RPG en Cobol.