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

The simple version of the code would be:

Dow %scan( '~' : SPdetl : PosLastDelim + 1) > 0;

But of course that would not give you access to the current value. If you need p then it has to be two separate operations - RPG cannot combine an assignment with a condition as you can do in some other languages.


On Sep 11, 2015, at 10:38 AM, Hiebert, Chris <chris.hiebert@xxxxxxxxxxxxxx> wrote:

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 is the RPG programming on the IBM i (AS/400 and iSeries) (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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com