Function Send_Info_To(Text)
/*
    Proxy version of SEND_INFO subroutine that redirects the message to a file.

    Parameters  :
        Text    [in] -- The text being passed into the SEND_INFO routine.

*/

Declare function Send_Info_Stock

Common /SEND_INFO_TO/ sitFile@

If Unassigned(sitFile@) then sitFile@   = ''
If Unassigned(Text)     then Text       = ''

// Send this to the stock SEND_INFO function
Convert @RM:@FM:@VM:@SVM:@TM:@STM to '-' in Text

// Call the SEND_INFO alias so that the stock SEND_INFO routine can be called.
Ans = Send_Info_Stock(Text)

If sitFile@ NE '' then
    // Target file active, redirect output there.
    NewMsg = TimeDate() : ' ' : Text
    OSWrite NewMsg To sitFile@
end

Return Ans