Mostly like that. What I did was add a new property to store the field number of the field to use for the sequence. Then augmented AutoIncrement to do that work.

Code:
        Procedure AutoIncrement
            Integer iMain iSeqField
            Integer iDriver iNumDrivers
            String sTableName sFieldName sSeqName
            String sSQL sFile
            String[][] sResult
            String sCurrentDriver
            Variant vSequence
            
            Forward Send AutoIncrement
            
            Get Main_File to iMain
            
            Get Field_SEQUENCE to iSeqField
            If (iSeqField>0) Begin 
                Get Allocate_Sequence iMain iSeqField to vSequence
                If (vSequence=-1) Begin
                    Error 4145 sSeqName 
                End
                Else Begin 
                    Set_Field_Value iMain iSeqField to vSequence
                End
            End
        End_Procedure