compile Insert rti_regenerate_bang_Record_equates
/*
**  Equates for rti_regenerate_bang_record
**  08-21-21  rjc   Created
**
**

 /* --------------------------------------------------------------------------
     Equates for RTI_REGENERATE_BANG_RECORD
     
     Regenerate the '!' record in the '!MYTABLE' file without needing to toggle an index

     filename (in, required) = a delimited list of table names,
     '*' for all attached indexed tables


     Modes:

     mode 1 (default) - Regenerate the ! record as a dictionary compiled entity without linemarks
     mode 2           - Generate BANG_MYTABLE stored procedure,
                        and a dummy '!' record which calls the stored procedure.
                        This allows you to de-bug or customize the indexing code.
     mode 3           - Fix FS210. It will modify the !MYTABLE record in the !MYTABLE file to match the volume id. 

     
     Notes:

     This program regenerates the ! from the '*INDEXES' record in the '!MYTABLE' file
     It does not compare the '*INDEXES' to the dictionary flags
     It tries to flush the indexes in order to trigger errors.
     
     
     Examples:
     
     table = "BOOKS"
     mode = mode_shim$
     call rti_regenerate_bang_record( table, mode)
     
*/

     

     Equ mode_default$   to 1  ; * regenerate the ! record
     Equ mode_shim$      To 2  ; * create a stored procedure for debugging the ! record 
     Equ mode_fix_volid$ To 3  ; * fix the volumne label stored in the ! file.
     
     Declare Function rti_regenerate_bang_Record