48 lines
1.6 KiB
Plaintext
48 lines
1.6 KiB
Plaintext
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
|