Compile Subroutine Temp(dummy) Declare Function datetime Debug dt = datetime() *Open 'SYSENV' To hSysenv Then * Open 'TEMP_SYSENV' To hNewSysenv Then * Select hSysenv * EOF = 0 * Loop * Readnext Key Else EOF = 1 * Until EOF * //If IndexC(Key, 'SRP', 1) then * Read Rec From hSysenv, Key Then * Write Rec To hNewSysenv, Key Else * Debug * end * End * //end * Repeat * End *End return