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



that works.  Thanks for everybody's response.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Wilt, Charles
Sent: Tuesday, July 26, 2005 3:06 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: creating a new
procedurethatcallanexistingprocedurewithoneadditional parm


Nice,

That should work IF it's ok to pass an *OMITted parm to another procedure.

I don't know that that is the case.  I was thinking it wouldn't work, but 
thinking about it some more....it might.

Try it and let us know.

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Lim Hock-Chai
> Sent: Tuesday, July 26, 2005 3:42 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: creating a new procedure
> thatcallanexistingprocedurewithoneadditional parm
> 
> 
> Below is what I did.  I think it will work, haven't tested it yet.
> 
>  *********************************************************************
>  *  procedure name:    SndMsgQ                                        
>  *                                                                    
>  *  procedure function: Send a program message wrapper 4 QMHSNDPM api.
> P  SndMsgQ        B                   export                          
>  /Define Copy_SndMsgQ_interface                                       
>  /Define Copy_SndMsgQ_fields                                          
>  /Include Qrpglesrc,Sndmsgcpy                                         
>  /Undefine Copy_SndMsgQ_interface                                     
>  /Undefine Copy_SndMsgQ_fields                                        
>                                                                       
> C                   select                                            
> C                   when      %parms() <=2                            
> C                   callp     SndMsg(MsgInId :*omit :*omit :*omit    
> C                                :*omit :MsgInQueue)                 
>                                                                      
> C                   when      %parms() <=3                           
> C                   callp     SndMsg(MsgInId :MsgInData :*omit :*omit
> C                                :*omit :MsgInQueue)                 
>                                                                      
> C                   when      %parms() <=4                           
> C                   callp     SndMsg(MsgInId :MsgInData :MsgInType   
> C                                :*omit :*omit :MsgInQueue)          
>                                                                      
> C                   when      %parms() <=5                           
> C                   callp     SndMsg(MsgInId :MsgInData :MsgInType   
> C                                :MsgFile :*omit :MsgInQueue)        
>                                                                      
> C                   when      %parms() <=6                           
> C                   callp     SndMsg(MsgInId :MsgInData :MsgInType   
> C                                :MsgFile :MsgLib :MsgInQueue)       
>                                                                      
> C                   endsl                                            
> 
> P  SndMsgQ        E 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Wilt, Charles
> Sent: Tuesday, July 26, 2005 2:29 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: creating a new procedure that
> callanexistingprocedurewithoneadditional parm
> 
> 
> Nope,
> 
> You'd need at least one for each combination of 5 omits.
> 
> Probably wouldn't need 5^3, but 5^2 = 25 for sure...
> 
> SndMsg(id:*omit:*omit:*omit:*omit:*omit);
> SndMsg(id:*omit:*omit:*omit:*omit:queue);
> SndMsg(id:*omit:*omit:*omit:msgLib:*omit);
> SndMsg(id:*omit:*omit:*omit:msgLib:queue);
> 
> and so on and so forth...
> 
> Charles Wilt
> --
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
>  
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Lim Hock-Chai
> > Sent: Tuesday, July 26, 2005 2:27 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: creating a new procedure that call
> > anexistingprocedurewithoneadditional parm
> > 
> > 
> > not sure how you came up with so many combinations.  I was 
> > thinking I only need 5, one for each *omit.
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Wilt, Charles
> > Sent: Tuesday, July 26, 2005 11:46 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: creating a new procedure that call an
> > existingprocedurewithoneadditional parm
> > 
> > 
> > I think you'd be best duplicating the logic of SndMsg().
> > 
> > Trying not to duplication the logic means testing 5^3=125 
> > combinations of parameters to figure out what you have that 
> > you can pass to SndMsg().
> > 
> > 
> > -- 
> > 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.
> > 
> > 
> 
> -- 
> 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.
> 
> 
> -- 
> 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.
> 
> 


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.