× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.