I have a two digit company number 07 that when moved from the CHAR to the DEC changes to 7 and that is then passed to the RPGLE but the value is 00
DCL VAR(&COMPA) TYPE(*CHAR) LEN(2)
DCL VAR(&ORD) TYPE(*CHAR) LEN(7)
DCL VAR(&COMPN) TYPE(*DEC) LEN(2 0)
CHGVAR VAR(&COMPN) VALUE(&COMPA)
SBMJOB CMD(CALL PGM(SL_CRTPOR) PARM(&COMPN &ORD)) +
JOB(KFTAUTOPO) LOG(4 0 *SECLVL) LOGCLPGM(*YES)
from the CL dump:
&COMPA *CHAR 2 '07'
&COMPN *DEC 2 0 7
&ORD *CHAR 7 '7000178'
from the RPGLE dump:
NAME ATTRIBUTES VALUE
_QRNL_PRMCPY_#PCOMP POINTER SPP:E49EE3BEF2001646
_QRNL_PRMCPY_#PORDNO POINTER SPP:E49EE3BEF200164E
_QRNL_PSTR_#PCOMP POINTER SPP:E49EE3BEF2001646
_QRNL_PSTR_#PORDNO POINTER SPP:E49EE3BEF200164E
#PCOMP PACKED(2,0) 00. '0000'X
#PORDNO CHAR(7) '7000178' 'F7F0F0F0F1F7F8'X
DCL VAR(&COMPA) TYPE(*CHAR) LEN(2)
DCL VAR(&ORD) TYPE(*CHAR) LEN(7)
DCL VAR(&COMPN) TYPE(*DEC) LEN(2 0)
CHGVAR VAR(&COMPN) VALUE(&COMPA)
SBMJOB CMD(CALL PGM(SL_CRTPOR) PARM(&COMPN &ORD)) +
JOB(KFTAUTOPO) LOG(4 0 *SECLVL) LOGCLPGM(*YES)
from the CL dump:
&COMPA *CHAR 2 '07'
&COMPN *DEC 2 0 7
&ORD *CHAR 7 '7000178'
from the RPGLE dump:
NAME ATTRIBUTES VALUE
_QRNL_PRMCPY_#PCOMP POINTER SPP:E49EE3BEF2001646
_QRNL_PRMCPY_#PORDNO POINTER SPP:E49EE3BEF200164E
_QRNL_PSTR_#PCOMP POINTER SPP:E49EE3BEF2001646
_QRNL_PSTR_#PORDNO POINTER SPP:E49EE3BEF200164E
#PCOMP PACKED(2,0) 00. '0000'X
#PORDNO CHAR(7) '7000178' 'F7F0F0F0F1F7F8'X
Comment