Re: Enhancement to the SELECT statement

["Rory Hewitt" <roryhewitt@xxxxxxxxx>]

Mark,

It's called a non-nested IF... <grin>

Rory

IF Status = 'A' ;
 READE  Key FileA ;
 IF %EOF(FileA);
    Key = NewKeyFromFileA ;
    Status = 'B';
 ENDIF ;
ENDIF;

IF Status = 'B' ;
 READE  Key FileB ;
ENDIF;

IF ...
ENDIF;


On 4/12/07, M Lazarus <mlazarus@xxxxxxxx> wrote:
> Rob,
>
> If we're requesting SELECT enhancements, how about a CONTINUE opcode,
> which would be the opposite of C's break opcode?
>
> Example:
>
> SELECT ;
> WHEN Status = 'A' ;
>   READE  Key FileA ;
>   IF %EOF(FileA);
>      Key = NewKeyFromFileA ;
>      Status = 'B';
>      CONTINUE ;
>   ENDIF ;
>
> WHEN Status = 'B' ;
>   READE  Key FileB ;
>   CONTINUE ;
>
> WHEN ...
>
> ENDSL ;
>
> This way results from a higher level WHEN can bubble down to tests later
> on.
>
> -mark
>
>
> > Much like SQL can do two forms of CASE;
> > case myfield;
> > When 'fubar'
> >   ...
> > When 'ok'
> > ...
> >
> > or
> > case
> > when myfield='fubar'
> >   ...
> > When myfield='ok'
> >   ...
> >
> > I'd like to see RPGLE be able to support two forms of the select
> statement
> > Select MySubprocedure();
> > When 'abort';
> >   //...
> > When 'ok';
> >   //...
> > Other;
> >   //...
> > EndSl;
> >
> > Along with
> > Select;
> > When MySubprocedure()='abort';
> >   // ...
> > When MySubprocedure()='ok';
> >   //...
> > Other;
> >   //...
> > EndSL;
> >
> > Rob Berendt
> > --
> > Group Dekko Services, LLC
> > Dept 01.073
> > PO Box 2000
> > Dock 108
> > 6928N 400E
> > Kendallville, IN 46755
> > http://www.dekko.com
> >
> > --
> > This is the RPG programming on the AS400 / 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.
> >
>
> --
> This is the RPG programming on the AS400 / 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.