Compile subroutine Test_Delete_Record(Table, Key, Output) Declare function Delete_Record_From_SQL Ans = Delete_Record_From_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