RE: Not valid? Dow (p = %scan( '~' : SPdetl : PosLastDelim + 1))

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

You can call a subprocedure and the subprocedure can contain your code to get the next position.

Dow NextPosition( Spdetl : Pos : Poslastdelim );
Text = %subst( Spdetl: Poslastdelim : Pos-Poslastdelim+1 );
Enddo;

Dcl-Proc NextPosition;
Dcl-Pi NextPosition Ind;
Lspdetl Like(Spdetl) Const;
Pos Int(10);
LastPosition Int(10);
End-pi;
If Pos > LastPosition;
LastPosition = Pos;
Endif;
Pos = %scan( '~' : Lspdetl : LastPosition + 1);
Return (Pos > 0);
End-Proc NextPosition;

Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
-----Original Message-----

On 8/10/2015 6:08 PM, Dan wrote:

I am attempting to combine
1) p = %scan( '~' : SPdetl : PosLastDelim + 1); and
2) Dow p > 0;
into:
Dow (p = %scan( '~' : SPdetl : PosLastDelim + 1)) > 0;

But this generates RNF7421 "Operands are not compatible with the type
of operator."

Is it because left side of the '>' translates to an indicator?

- Dan

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.

RE: Not valid? Dow (p = %scan( '~' : SPdetl : PosLastDelim + 1)) > 0;