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



Others have pointed to the correct syntax for what you seek. Try this:

**Free
Dcl-S Source Char(200) Inz('aaaxaaaxaa');
Dcl-S Pos Packed(10:0);
Dcl-S UserId Char(10) Inz(*User);

Pos = %scanr('x':source);      // Will return 8
  Dsply Pos UserId;
Pos = %scanr('x':source:6);    // Will return 8
  Dsply Pos UserId;
Pos = %scanr('x':source:1:6);  // Will return 4
  Dsply Pos UserId;

*Inlr = *on;

On 19/10/2022 23:41, 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 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.