For those of old enough to remember the pleasure of using the much derided DOS style code, coupled with the 2E Macros, using the 'new' stuff with a mixture of old and new can be a proper pain. I have laboured for hours trying to persuade a simple single file, related to nothing, to save information to a Log file. I suspect this is something simple (like me) but it seems 'I am not alone'. I have set the Data Dictionary of the main file to see the Log file as an external.

Perhaps someone will show me the error of my ways. All advice, abuse and mocking comments will be appreciated!

Code:
// J:\Test\AppSrc\Test.vw
// Test
//


Use DFClient.pkg
Use DFEntry.pkg


Use cADataDictionary.dd
Use cLogDataDictionary.dd


ACTIVATE_VIEW Activate_oTest FOR oTest
Object oTest is a dbView
    Set Location to 5 5
    Set Size to 36 92
    Set Label To "Test"
    Set Border_Style to Border_Thick


    Object oA_DD is a cADataDictionary
       Procedure update
         Forward Send update
         Send Info_Box "1" a.data       
         Send LogThis       
       End_Procedure  
 
      Procedure Backout
        Send Info_Box "2"  a.data  
        Send LogThis
      End_Procedure
      
    End_Object 


    Object oLog_DD is a cLogDataDictionary
    End_Object


    Set Main_DD To oA_DD
    Set Server  To oA_DD


    Object oARef is a dbForm
        Entry_Item A.Ref
        Set Size to 12 20
        Set Location to 5 21
        Set Label to "Ref"
        Set Label_Justification_mode to jMode_right
        Set Label_Col_Offset to 2
        Set Label_row_Offset to 0
    End_Object 


    Object oAData is a dbForm
        Entry_Item A.Data
        Set Size to 12 66
        Set Location to 19 21
        Set Label to "Data"
        Set Label_Justification_mode to jMode_right
        Set Label_Col_Offset to 2
        Set Label_row_Offset to 0
    End_Object 


End_Object 


Procedure LogThis
    Send Info_Box "LogThis"
    Open Log
      Add 1 to Log.Ref
      Move a.Data to Log.Message
      SaveRecord Log
    Close Log
End_Procedure