Re: Enhancement to the SELECT statement

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.

--

Rory Hewitt

http://www.linkedin.com/in/roryhewitt
--
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.