Re: Even more embedded SQL....

Thanks Terri, now I see what you mean



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


                                                                       
             THarteau@felkerbr                                         
             others.com                                                
             Sent by:                                                   To
             rpg400-l-bounces@         RPG programming on the AS400 /  
             midrange.com              iSeries <rpg400-l@xxxxxxxxxxxx> 
                                                                        cc
                                                                       
             08/03/2006 10:29                                      Subject
             AM                        Re: Even more embedded SQL....  
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       






Hi,
      Here is a small example of using a case statement. The user only has
the option of sorting by number or name, but maybe it is something you can
use as a starting point.

C/EXEC SQL DECLARE A CURSOR FOR
C+ SELECT EMEMP#,EMPNAM,EMSTCD,EMOHYY,EMCORP,EMPAY#
C+ FROM HRV6DTA/HRPEMP
C+ ORDER BY Case When :F1Sort = 'Y' then EMEMP#
C+               When :F1Sort = 'N' then EMLNAM ConCat EMFNAM
C+               End
C/END-EXEC

C/EXEC SQL
C+    OPEN A
C/END-EXEC

<===================================================>

Terri Harteau
Felker Brothers Corporation
****************
"The danger in life is not that we aim too high and miss.
The problem is that we aim too low and hit the mark."  -- Michelangelo
****************




--
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.