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

× 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.

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 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.