Hellow Jon,
Dump DSPF Buffer: as follow (ps. W1BSDT=000000, position-36~41).
*W1RCD W1BSCD 014046003034*
*2014011 - Y 2014Q11012 ;TES*
*T 00000*
*0 00000000000000 0*
*00000 *
* *
=======================================================================
COMPILE LIST
File . . . . . : DST7010 Page/Line 16/47
Control . . . . . -3 Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....
+....7....+
718=O GMFLD 20A CHAR 10
719=O GMROW 23S ZONE 3,0
720=O GMCOL 26S ZONE 3,0
721=O GROW2 29S ZONE 3,0
722=O GCOL2 32S ZONE 3,0
723=O W1PSMO 38S ZONE 6,0
724=O W1CTCD 39A CHAR 1
725=O W1CTNM 45A CHAR 6
726=O W1PSDT 51A CHAR 6
727=O W1VRNB 54A CHAR 3
728=O W1BSCD 55A CHAR 1
729=O W1BSNM 61A CHAR 6
730=O W1VRTX 91A CHAR 30
731=O W1BSDT 97S ZONE 6,0
================================================================================
TRY MORE TIMES.
I Found caller parameter length less than called program.
So change caller , invalid value (mch1201) not occurs.!!!
Best Regards,
=======================
lance@xxxxxxxxxxx.t
w 收件人： rpg400-l@xxxxxxxxxxxx
寄件人： 副本抄送：
rpg400-l-bounces@mi 主旨： After call sub-program, dspf package filed decimal error
drange.com (mch1202)
2014/04/23 上午
11:25
請回信 給 "RPG
programming on the
IBM i \(AS/400 and
iSeries\)"
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.
midrange.com
