|
midrange.com
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.
>
>
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.
