Sample COPY File

Following is an example of a COBOL COPY file generated by the NETDEFGEN utility:

* .NET Copy Book - Generated On 1/28/2004 12:25:20 PM
 
     OBJECT @ASSEMBLY
     NAME "@AmortControl"
            VERSION "1.0.1266.13363"
            CULTURE "neutral"
            STRONG "null"
  
* FULLY-QUALIFIED-NAME AmortControl.AmortCalc, AmortControl, Version=1.0.1266.13363, Culture=neutral, PublicKeyToken=null
 
* AmortControl.AmortCalc
     NAMESPACE "AmortControl"
     CLASS "AmortCalc"
     MODULE "amortcontrol.dll"
  
          CONSTRUCTOR,  0, @CONSTRUCTOR1

* Void ProcData(Double, UInt32, Double, Double)
          METHOD,  0, "@ProcData"
                   "double" @AmortizAmount, TYPE 5
                   "unsigned int" @Months, TYPE 19
                   "double" @InterestRate, TYPE 5
                   "double" @WhatIfMonthlyPayment, TYPE 5
 
* Public - fields 
          FIELD,   0, @MonthlyPayment
                   RETURNING, "double", TYPE 5
          FIELD,   0, @TotalInterest
                   RETURNING, "double", TYPE 5
          FIELD,   0, @TotalPayment
                   RETURNING, "double", TYPE 5
          FIELD,   0, @WhatIfTotalInterest
                   RETURNING, "double", TYPE 5
          FIELD,   0, @WhatIfTotalPayment
                   RETURNING, "double", TYPE 5
          FIELD,   0, @WhatIfMonths
                   RETURNING, "unsigned int", TYPE 19
          FIELD,   0, @Yearly_Interest
                   RETURNING, "STORED_OBJECT", TYPE 69
          FIELD,   0, @Yearly_Principal
                   RETURNING, "STORED_OBJECT", TYPE 69
          FIELD,   0, @Life_Interest
                   RETURNING, "STORED_OBJECT", TYPE 69
          FIELD,   0, @Life_Principal
                   RETURNING, "STORED_OBJECT", TYPE 69
          FIELD,   0, @Month_Interest
                   RETURNING, "STORED_OBJECT", TYPE 69
          FIELD,   0, @Month_Principal
                   RETURNING, "STORED_OBJECT", TYPE 69
  
* FULLY-QUALIFIED-NAME AmortControl.CalcFired, AmortControl, Version=1.0.1266.13363, Culture=neutral, PublicKeyToken=null
 
* AmortControl.CalcFired
     NAMESPACE "AmortControl"
     CLASS "CalcFired"
     MODULE "amortcontrol.dll"

         CONSTRUCTOR,  0, @CONSTRUCTOR1
                   "STORED_OBJECT" @object, TYPE 69
                   "STORED_OBJECT" @method, TYPE 69

* Void EndInvoke(System.IAsyncResult)
          METHOD,  0, "@EndInvoke"
                   "STORED_OBJECT" @result, TYPE 69
 
* System.IAsyncResult BeginInvoke(System.AsyncCallback, System.Object)
          METHOD,  0, "@BeginInvoke"
                   "STORED_OBJECT" @callback, TYPE 69
                   "STORED_OBJECT" @object, TYPE 69
                     RETURNING "STORED_OBJECT", TYPE 69
 
* Void Invoke()
          METHOD,  0, "@Invoke"
 
* Public - fields 
 
* FULLY-QUALIFIED-NAME AmortControl.UserControl1, AmortControl, Version=1.0.1266.13363, Culture=neutral, PublicKeyToken=null

* AmortControl.UserControl1
     NAMESPACE "AmortControl"
     CLASS "UserControl1"
     MODULE "amortcontrol.dll"
         VISUAL
 
          CONSTRUCTOR,  0, @CONSTRUCTOR1
 
* Void Dispose(Boolean)
          METHOD,  0, "@Dispose"
                   "boolean" @disposing, TYPE 11
 
* Void add_FireCalc(AmortControl.CalcFired)
          METHOD,  0, "@add_FireCalc"
                   "STORED_OBJECT" @value, TYPE 69
 
* Void remove_FireCalc(AmortControl.CalcFired)
          METHOD,  0, "@remove_FireCalc"
                   "STORED_OBJECT" @value, TYPE 69
 
* System.String get_TotalInterest()
          METHOD,  0, "@get_TotalInterest"
                     RETURNING "BSTR", TYPE 8
 
* System.String get_TotalPayment()
          METHOD,  0, "@get_TotalPayment"
                     RETURNING "BSTR", TYPE 8
 
* System.String get_MonthPayment()
          METHOD,  0, "@get_MonthPayment"
                     RETURNING "BSTR", TYPE 8
 
* System.String get_WhatIfTotalInterest()
          METHOD,  0, "@get_WhatIfTotalInterest"
                     RETURNING "BSTR", TYPE 8

* System.String get_WhatIfTotalPayment()
          METHOD,  0, "@get_WhatIfTotalPayment"
                     RETURNING "BSTR", TYPE 8

* System.String get_WhatIfMonths()
          METHOD,  0, "@get_WhatIfMonths"
                     RETURNING "BSTR", TYPE 8
 
* Void InitializeComponent()
          METHOD,  0, "@InitializeComponent"
 
* Void calcBtn_Click(System.Object, System.EventArgs)
          METHOD,  0, "@calcBtn_Click"
                   "STORED_OBJECT" @sender, TYPE 69
                   "STORED_OBJECT" @e, TYPE 69
 
* Public - fields 
          FIELD,   0, @columnHeader1
                   RETURNING, "STORED_OBJECT", TYPE 69
 
* TotalInterest
          PROPERTY_GET, 0, @TotalInterest
                   RETURNING, "BSTR", TYPE 8
 
* TotalPayment
          PROPERTY_GET, 0, @TotalPayment
                   RETURNING, "BSTR", TYPE 8
 
* MonthPayment
          PROPERTY_GET, 0, @MonthPayment
                   RETURNING, "BSTR", TYPE 8
 
* WhatIfTotalInterest
          PROPERTY_GET, 0, @WhatIfTotalInterest
                   RETURNING, "BSTR", TYPE 8
 
* WhatIfTotalPayment
          PROPERTY_GET, 0, @WhatIfTotalPayment
                   RETURNING, "BSTR", TYPE 8

* WhatIfMonths
          PROPERTY_GET, 0, @WhatIfMonths
                   RETURNING, "BSTR", TYPE 8
 
* FireCalc  ()
         EVENT, 520214344, @UserControl1_FireCalc