19 lines
459 B
Plaintext
19 lines
459 B
Plaintext
Compile subroutine Test_Copy_Record(Table, Key, Output)
|
|
|
|
Declare function Copy_Record_To_SQL
|
|
|
|
Ans = Copy_Record_To_SQL(Table, Key)
|
|
|
|
If Len(Ans) then
|
|
If Assigned(Output) then
|
|
Begin Case
|
|
Case Output EQ "MSG"
|
|
Call Msg(@Window, Ans)
|
|
Case Len(Output)
|
|
OSWrite Ans to Output
|
|
End Case
|
|
end
|
|
end
|
|
|
|
return
|