Re: Question on MOVE command

[Albert York <alfromme@xxxxxxxxx>]

I'm not clear on how the dash is being used but if you just want to
move valid digits to another field then I would do something like the
following:

a =10;
newfield := *all'0';
for b = 10 downto 1;
if $subst(alphafield:b:1) >= '0' and %subst(alphafield:b:1) <= '9';
%subst(newfield:a:1) = %subst(alphafield:b:1);
a = a - 1;
endif;
endfor;


On Tue, Feb 7, 2012 at 9:54 AM, Willie J. Moore <WJMoore@xxxxxxxxxxxx> wrote:
> We have a size field (alph) that is 10 characters long.  Data has been
> entered like '123-098'or '12345-987'.  This file and field has been in
> production for over 30 years.  Being free form, you have no idea what
> has been entered. In fact I have found the following entered 'not to
> big' in the size field!
>
> What I need to do is scan the size field for an '-'.  Then do a move
> specifying the starting and ending field position in to a new numeric
> field.
>
> The scan I have got down. What I am having problems with is the 'move'.
> How do I move from the size field into to new size field with a starting
> and ending position?
>
>
>
> Thanks in advance for any and all suggesting and examples.
>
>
>
> William Moore
>
> California fine Wire, Co.
>
> 805-489-5144
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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.