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

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

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