RE: Variable Passing to procedure problem

["Reeve Fritchman" <reeve@xxxxxxxxxx>]

'The ' + %trim(ITEM) + ' has a problem'

> -----Original Message-----
> From: rpg400-l-bounces@midrange.com [mailto:rpg400-l-bounces@midrange.com]
On Behalf Of
> Reeve Fritchman
> Sent: Wednesday, January 22, 2003 3:46 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: Variable Passing to procedure problem
> 
> 'The ' + ITEM + ' has a problem.'
> 
> -reeve
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com]
> On Behalf Of
> > Justin Houchin
> > Sent: Wednesday, January 22, 2003 2:45 PM
> > To: rpg400-l@midrange.com
> > Subject: Variable Passing to procedure problem
> >
> > I have this situation...
> >
> >
> >
> > D #Error          PR                      ExtPgm('PC0901CLMS') //uses
> SNDMSG
> >
> > D  ErrorMsg                    510A   Const
> >
> >
> >
> > D ITEM  S             30A   INZ('P41800')
> >
> >
> >
> > I can currently do this...
> >
> >
> >
> > #Error('Update of our items has begun, please be patient!');
> >
> >
> >
> > I want to do this...
> >
> >
> >
> > #Error('The+ITEM+has a problem'); //substitute ITEM for P41800,
> >
> > later on I will get the ITEM value from my Item master file
> >
> >
> >
> >
> >
> > This is not working, can someone point me in the right direction.
> >
> >
> >
> > Thanks.
> >
> > Justin Houchin
> >
> > Programmer and Web Developer
> >
> > www.reliatek.com
> >
> > justin@reliatek.com
> >
> >
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > 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@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.