com­ment pas­ser une variable numé­rique conden­sée en para­mètre d’une pro­cé­dure qui attend un numé­rique étendu ?

‘essaie d’ap­pe­ler une pro­cé­dure décla­rant un para­mètre en numé­rique étendu :

Un para­mètre est défi­ni en numé­rique éten­du (zoned). Lorsque j’es­saie d’ap­pe­ler la pro­cé­dure en pas­sant en para­mètre une variable de type numé­rique conden­sé (packed), le com­pi­la­teur, pour le pro­gramme appe­lant me ren­voie l’er­reur RNF7535 : « Le type et les attri­buts du para­mètre ne cor­res­pondent pas à ceux du prototype. »

Com­ment faire pas­ser ma variable à la pro­cé­dure sans en chan­ger le type ?

DCL-PROC load_ReferentielOrigine ;

dcl-pi *n like(fxrfdp_t);
 p_nptcpt zoned(2);
 p_typart char(1);
 end-pi ;

…

END-PROC ;