Re: Even more embedded SQL....

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