Compile Subroutine Temp(dummy)

Debug

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