added sysprog entities

SYSPROG/STPROCINS/RTI_REGENERATE_BANG_RECORD_EQUATES.txt

@@ -0,0 +1,47 @@
+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