Re: Question on MOVE command

[Michael Ryan <michaelrtr@xxxxxxxxx>]

/Free

// Probably close...
Start = %Scan('-' : OldStrField);
If Start > 0;
Length = %Len(OldStrField);         // 10...you might want to %TrimR
If Length > 0 And
   Start < Length;
  Monitor;
     NewNumField = %SubSt(OldStrField:StartLoc:Length);
     On-Error;
        DSPLY 'Error!';
  EndMon;
EndIf;
EndIf;

So you'll need to find the start location (probably where the scan
found the dash + 1), and the length (probably the length of the string
minus the dash location). Then use the %SubSt BIF. Be careful that
you've actually found something, and it's not at the end.

On Tue, Feb 7, 2012 at 12:54 PM, 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.