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



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


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.