Nous avons un problème avec les paramètres alpha en rpgle.
exemple
Code : Tout sélectionner
DART0010 PR extpgm('ART0010')
D 50A
D 50A
D*
DART0010 PI
D XCODRT 50A Code retour
D XLIBRT 50A
C*
/free
XLIBRT=%trim('libelle en dur dans le code codelib bbbbbb610derX2A');
XCODRT=%trim('Code en dur dans le code5678901234567890123456789A');
dump(a);
*InLR=*on;
/end-free
dans le dump
NOM ATTRIBUTS VALEUR
_QRNL_PRMCPY_XCODRT POINTER SPP:C08866B1BA001646
_QRNL_PRMCPY_XLIBRT POINTER SPP:C08866B1BA001667
_QRNL_PSTR_XCODRT POINTER SPP:C08866B1BA001646
_QRNL_PSTR_XLIBRT POINTER SPP:C08866B1BA001667
XCODRT CHAR(50) 'Code en dur dans le code5678901234567890123456789A'
VALUE IN HEX 'C39684854085954084A49940848195A24093854083968485F5F6F7F8F9F0F1F2F3F4F5F6F7F8F9F0'X
41 'F1F2F3F4F5F6F7F8F9C1'X
XLIBRT CHAR(50) '4567890123456789Ans le code codelib bbbbbb610derX2'
VALUE IN HEX 'F4F5F6F7F8F9F0F1F2F3F4F5F6F7F8F9C195A2409385408396848540839684859389824082828282'X
41 '8282F6F1F0848599E7F2'X
* * * * * F I N D E C L I C H E R P G * * * * *
Nous avons l'impression que les deux chaînes se chevauchent.
Comment peut on résoudre ce problème ?
Cordialement