Bonjour,

j'ai besoin de récupérer une variable à partir d'un sqlrpgle vers un cl, mais j'ai un message MCH3601 à chaque éxécution, ci-dessous les 2 pgms sqlrpgle et CL :

SQLRPGLE :

Code sqlrpgle : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
d datads           ds                                          
d $var                           10a                           
d $varrpg          pi                                          
d varcl                          10a                            
 /free                                                        
  exec sql set option commit=*none, datfmt=*iso;              
                                                              
  exec sql select champ into :datads from bib/file;
  dsply $var;                                                 
  varcl = $var;                                               
  return;                                                     
 /end-free

CL:

Code CL : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
DCL        VAR(&VARts) TYPE(*CHAR) LEN(10)
DCL        VAR(&VARcl) TYPE(*CHAR) LEN(10)
                                          
CALL       PGM(CHRIS/TSTVAR)              
                                          
CHGVAR     VAR(&VARcl) VALUE(&VARts)      
                                          
dmpclpgm

Merci pour votre aide

Cordialement