Re: After call sub-program, dspf package filed decimal error (mch1202)

If you look at the dump variable W1BSDT contains spaces (hex 40) - That is not a valid packed decimal value.

Likely cause is that W1BSDT is defined in a data structure and neither the DS or W1BSDT has the INZ keyword.

Since you have not shown us the content of W1BSDT before the call we cannot tell if this bad value was in there before the call or was placed there by the called program - which for all we know defined the same parm as a character field and moved spaces to it.

In other words you have provided enough information to confirm that there was an error - but very little that would help us to determine why it happened.


On 2014-04-22, at 11:25 PM, lance@xxxxxxxxxxxxxx wrote:

After call sub-program, dspf package filed decimal error (mch1202)

Procedure Name . . . . . . . . . . . . : DST7010
Program Name . . . . . . . . . . . . . : DST7010
Library . . . . . . . . . . . . . . : NITTO
Module Name. . . . . . . . . . . . . . : DST7010
Program Status . . . . . . . . . . . . : 00907
Decimal-data error occurred (C G D F).
Previous Status . . . . . . . . . . . : 00001
RNQ0001 Called program returned with LR indicator on.
Statement in Error . . . . . . . . . . : 00000731
RPG Routine . . . . . . . . . . . . . : *DETC
Number of Parameters . . . . . . . . . : 000
Message Type . . . . . . . . . . . . . : MCH
Additional Message Info . . . . . . . : 1202
Message Data . . . . . . . . . . . . . :
Decimal data error.
Status that caused RNX9001 . . . . . . :

W1BSCD CHAR(1) '2' 'F2'X
W1BSDT PACKED(6,0) 040404. '40404040'X
W1BSNM CHAR(6) ' ;' '40404040CB5E'
W1CHDT PACKED(8,0) 00000000. '000000000F'X
W1CTCD CHAR(1) '1' 'F1'X
W1CTNM CHAR(6) ' - Y ' '0E60BA63E80F'

Ps. Error value ==> W1BSDT, W1BSNM ???



0413.10 C WHEN GMFLD='W1CTCD'
0413.11 C CALL 'SSRCOD'
0413.12 C PARM 'DB' DB89S1
0413.13 C PARM W1CTCD
0413.17 C WHEN GMFLD='W1BSCD'
0413.18 C CALL 'SSRCOD'
0413.19 C PARM 'DC' DB89S1
0413.20 C PARM W1BSCD
0413.22 C OTHER
0413.23 C ENDSL

PS. 0413.11 Call no error, But 0413.18 call error occurs.
Before Call W1BSDT=201401.

Best Regards,


=======================

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com