|
midrange.com
I have the following code in an RPG ILE program:
0205.00 D DecDtaErr C 00907
030219
0291.00 C monitor
040902
0292.00 C eval AVL = %trim(%editc(GMiles : '4'))
+ 040902
0293.00 C ' ' + %trim(GDirection) + ' '
+ 040902
0294.00 C %trim(GPoint) + ' ' + GState
040902
0295.00 C on-error DecDtaErr
040902
0296.00 C eval Avl = *blanks
040902
0297.00 C endmon
040902
Yet I got a decimal data error as follows:
ILE RPG/400 FORMATTED DUMP
Program Status Area:
Procedure Name . . . . . . . . . . . . : MGM#226G
Program Name . . . . . . . . . . . . . : MGM#MAIN
Library . . . . . . . . . . . . . . : EXECGPL200
Module Name. . . . . . . . . . . . . . : MGM#226G
Program Status . . . . . . . . . . . . : 00907
Decimal-data error occurred (C G D F).
Previous Status . . . . . . . . . . . : 00000
Statement in Error . . . . . . . . . . : 00029200
RPG Routine . . . . . . . . . . . . . : *DETC
Number of Parameters . . . . . . . . . :
Message Type . . . . . . . . . . . . . : MCH
Additional Message Info . . . . . . . : 1202
Message Data . . . . . . . . . . . . . :
Decimal data error.
What I am I doing wrong here?
Gary Godbey
MIS Manager
MGM Transport Corp.
(336) 812-8213 (336) 889-9038 (fax)
Please visit our website:
<file:///C:\Documents%20and%20Settings\gfg.MGM_TRANSPORT\Application%20Data\
Microsoft\Signatures\www.mgmtransport.com> www.mgmtransport.com
As an Amazon Associate we earn from qualifying purchases.
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.
