27 lines
620 B
Plaintext
27 lines
620 B
Plaintext
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
|