RE: SFL Display issue

Thanks Rob, I'll definitely start using it.


On Wed, 21 Dec 2005 12:03:36 -0500, rob wrote
> In that case instead of
> > Eval  displayfield = %subst(myfield:1:17);
> use
> > Eval  displayfield = %subst(myfield:1:%len(displayfield));
> That way, if you increase the size of the display field, you simply 
> recompile and do not have to determine why '17' was used.
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> "Lapeyre, Francis" <FLAPEYRE@xxxxxxxx> 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 12/21/2005 11:49 AM
> Please respond to
> RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> 
> To
> "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> cc
> 
> Fax to
> 
> Subject
> RE: SFL Display issue
> 
> Douglas: In RPG 4, you can also -
> 
> Eval displayfield = %trimr(myfield)
> 
> or simply
> 
> Eval displayfield = myfield
> 
> would work, too. But Tommy's %subst method is clearer - this way you 
> know at a glance that the whole field isn't being moved over.
> 
> Francis Lapeyre
> IS Dept. Programmer/Analyst
> Stewart Enterprises, Inc.
> E-mail: flapeyre@xxxxxxxx
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Douglas W. Palme
> Sent: Wednesday, December 21, 2005 10:12 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: SFL Display issue
> 
> I have never had much need for MOVEL and you are right....thanks for
> correcting me Tommy.....
> 
> On Wed, 21 Dec 2005 10:02:16 -0600, Holden Tommy wrote
> > How are you loading the display field?  Sounds like you are using
> > MOVE....try using MOVEL instead.
> > 
> > Or 
> > Eval  displayfield = %subst(myfield:1:17)
> > 
> > Thanks,
> > Tommy Holden
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
> > Sent: Wednesday, December 21, 2005 9:53 AM
> > To: RPG Group
> > Subject: SFL Display issue
> > 
> > I have created a subfile which lists out our top customers including
> > sales 
> > numbers....this is based upon a joined logical.
> > 
> > Due to space limitations I am having to trim the customer name from 
> > 25 characters (PF field length) to 17 (subfile field length),
> >  however for some customers whose name is longer than 17 it seems to 
> > be trimming from the leading end versus the trailing.
> > 
> > Is there a way to fix this so that it trims from the trailing ?
> > 
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> > 
> > -- 
> > 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.
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.