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



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.