Re: Enhancement to the SELECT statement

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.