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
