Re: Embedded SQL Select Messages

You might try:
 
d/copy qsysinc/qrpglesrc,qusec                                  
                                                                
dRmvMsg           pr                  extpgm('QMHRMVPM')        
d CSE                           10    const                     
d CSCtr                         10i 0 const                     
d MsgKey                         4    const                     
d MsgsToRmv                     10    const                     
d QUSEC                               likeds(QUSEC)             
d LenCSE                        10i 0 const options(*nopass)    
d CSEQual                       20    const options(*nopass)    
d RmvUnhandled                  10    const options(*nopass)    
d CSEType                       10    const options(*nopass)    
d AlwDftReject                  10    const options(*nopass)    
                                                                
 /free                                                          
  QUSBPRV = 0;                                                  
  RmvMsg( '*ALLINACT' :0 :' ' :'*ALL' :QUSEC);   
  *inlr = *on;                                   
  return;                                        
 /end-free                                       

Though this may remove more than you really wanted...
 
Bruce
Bruce Vining Services
507-206-4178

--- On Mon, 12/15/08, THarteau@xxxxxxxxxxxxxxxxxx <THarteau@xxxxxxxxxxxxxxxxxx> wrote:

From: THarteau@xxxxxxxxxxxxxxxxxx <THarteau@xxxxxxxxxxxxxxxxxx>
Subject: Embedded SQL Select Messages
To: "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date: Monday, December 15, 2008, 1:19 PM

Hi,
I have an embedded SQL statement to get the most recent invoice
date for an order. It is working fine, but I have tons of informational
messages. They are:
ODP reused.
ODP not deleted.
Embedded SELECT completed.

Is there a way to get rid of these? Thanks!

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
"Do not follow where the path may lead. Go instead where there is no path
and leave a trail."
Ralph Waldo Emerson

****************