RE: Monitor opcode

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

I tried it and it works fine for me.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Gary Godbey
Sent: Thursday, January 27, 2005 9:34 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: Monitor opcode


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

 

-- 
This is the RPG programming on the AS400 / 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.