Re: Editcode

From: Alan Shore <AlanShore@xxxxxxxx>
Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Editcode
Date: Thu, 31 May 2007 13:37:28 -0400

Sorry Derek, I'm not following your thought procedure here.
You say that ABC contains the value 1. That is - '1 ' (the
character 1 followed by 9 spaces.
So how can you trim the trailing 0's if there are none.
However, the following web page may be of interest to you.

http://www.mcpressonline.com/mc/.6aed2c11



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 05/31/2007 01:30:01 PM:

>
> Hi,
>
> I have to move a value from a 10 character field to a 2 decimal
>
> ABC 10
> xyz 2 0
>
> I am doing a MOVEL operation to move this value to the numeric field.
> Now if i have the value of ABC = 1, then the value passed on to XYZ is
> 10(Since it moves 1 from left, and initial value of XYZ is 00)
> What is the edit code that i can use to remove the trailing Zeros before
i
> move the character field to the numeric field.?
>
> Thanks in advance
>
> Derek
>
> _________________________________________________________________
> More photos, more messages, more storageâ??get 2GB with Windows Live
Hotmail.
> http://imagine-windowslive.com/hotmail/?locale=en-
> us&ocid=TXT_TAGHM_migration_HM_mini_2G_0507
>
> --
> 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.