|
just seems a bit convoluted. if scan goes from left to right, scanr should go right to left.
i'm actually looking for the first blank space prior to position 30. i was hoping to do something like this:
xx = %scanr(' ':name);
dow xx > 30
xx = %scanr(' ':cpname:xx-1); assuming it would go right to left
enddo
looks like using for loop downto might be my best option.
On 10/19/2022 8:37 PM, Peter Dow wrote:
D source s 200
D pos s 10 0
source = 'aaaxaaaxaa';
pos = %scanr('x':source); should return 8
pos = %scanr('x':source:6); should return 4
*inlr = *on;
You can still use %SCANR. Just specify the substring (start, length) you want to scan as
pos = %scanr('x':source:1:7);
Your first %scanr has already scanned positions 8-10.
On 10/19/2022 4:10 PM, eric bothes wrote:
hmmm..
i would have thought it would work like %scan, but in reverse.
So i guess i would need to do a do loop to find what i am looking for.
On 10/19/2022 6:58 PM, Peter Dow wrote:
Hi Eric,
Looks wrong, doesn't it? The problem is, the "start" position is not what you would expect. From the v7r3 RPGLE reference manual:
"The start position and length specify the substring of the source string to be searched. The start position
defaults to 1 and the length defaults to the remainder of the source string. The result is always the
position in the source string even if the starting position is specified."
The start position does NOT specify where %SCANR starts searching. The start plus the length defines the substring to be searched.
In your example,
pos = %scanr('x':source:6);
it scans positions 6 - 10, and finds the 'x' at position 8.
It does NOT start scanning at pos.6 and work backwards.
--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx
pdow@xxxxxxxxxxxxxx
/
On 10/19/2022 3:41 PM, eric bothes wrote:
i have the following code. They both return 8 rather then 8 and 4 respectively.
does anyone else experience this.
D source s 200
D pos s 10 0
source = 'aaaxaaaxaa';
pos = %scanr('x':source); should return 8
pos = %scanr('x':source:6); should return 4
*inlr = *on;
As an Amazon Associate we earn from qualifying purchases.
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.