added sysprog entities
This commit is contained in:
24
SYSPROG/STPROC/TEMP.txt
Normal file
24
SYSPROG/STPROC/TEMP.txt
Normal file
@ -0,0 +1,24 @@
|
||||
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
|
Reference in New Issue
Block a user