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
