RE: using trim -- RPG400-L

If you ALLWAYS want 2 leading zeroes
For example 001 and 001234, then

c move fmorno wsno
c EVALR trimmed = '00' + %trim(wsno:0)

However - if you want just 7 digits then you need to use substr

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Hoteltravelfundotcom
Sent: Tuesday, February 23, 2016 1:46 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: using trim

there is a new issue to this that makes it a little interesting..

I see that some of these batch numbers DO have leading zeros as part of the number.

So not only 21924 but can be 0021924.

So we would not want to TRIM the 2 zeros in that case at the right.

Is there a way besides what I am thinking to move the entire number to an array and 'bring back' the 2 zeros that Do belong?

On Tue, Feb 23, 2016 at 1:18 PM, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Hint: Look at %EditC - %Char will not do it for you as it strips off
leading blanks. Although I guess EvalR fixedCharField =
%Char(numericField); would work too but the intent is less obvious.

On Feb 23, 2016, at 12:51 PM, Hoteltravelfundotcom <

hoteltravelfun@xxxxxxxxx> wrote:

Sorry bout that, have been away from RPG for the past 7 years, Will
take note of the comment.

On Tue, Feb 23, 2016 at 12:46 PM, Kevin Passey
<kevin@xxxxxxxxxxxxxxxxx>
wrote:

I would agree with Carel as well...bit basic...

On 23/02/2016 17:40, Carel wrote:

1) Use %char if WSNO is a numeric field
2) Use the manuanls first in stead of asking basic questions like
this
3) Take a crash course in RPG.

Op 23-2-2016 om 18:21 schreef Hoteltravelfundotcom:

The field fmorno is number 12 coming from the screen dspf. wsno
is

alpha

10. The result is
000021924. I want to remove leading zeros. But the below is not
compiling.
error:Msg id Sv Number Message text

RNF0374 20 1 The second parameter for %TRIMx is not valid.

Am I able to do this? I want to have ' 21924' not '0000021924'

c move fmorno wsno
c EVALR trimmed = %trim(wsno:0)

--
*Kevin Passey*
*KDP Software Limited*
*http://www.kdpsoftware.co.uk*
*Tel:08450 604123*
*Linkedin: https://www.linkedin.com/pub/kevin-passey/12/807/890*
*Twitter: http://www.twitter.com/kpassey*
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related questions.