RE: HIVAL in SQL?

Terri & Gord,

That works pretty good if you have a small number of records.
An alternative is to use a UDF that increments a data area.

You can see an example of one at:

http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/*checkout*/iseries-toolkit/CVSROOT/src/qrpglesrc/numseq.irp?rev=HEAD&content-type=text/plain

That code does not use a data area so you would need to add
something like this (note that there is no overflow checking):
 ***********************

 * Last used sequence *

 **********************

DLstSeqDS         DS                  DTAARA(LstSeq)

D LstSeq                        10U 0

 /TITLE GetSeq - Return a sequencial number.


**********************************************************************************************
 * *IntSeq        Return an integer numeric sequennce.
                      *

**********************************************************************************************
PGetSeq           B                   EXPORT

DGetSeq           PI            10U 0

C     *LOCK         IN        LstSeqDS

C                   EVAL      LstSeq      = LstSeq + 1

C                   OUT       LstSeqDS

C                   RETURN    LstSeq

PGetSeq           E



To get to the main page goto http://iseries-toolkit.sourceforge.net

David Morris

>>> THarteau@felkerbrothers.com 12/13/01 02:03PM >>>

Thanks Gord, it worked great!

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

Terri Harteau
****************
"There's no point in being grown up if you can't be childish
sometimes."
- Dr. Who
****************




You should be able to:

Select (max(FieldNameForKey) + 1) from TableName into :HostVariable

Gord Royle