API tools faq
paste
homph

CobolTest1.def

homph
Nov 4th, 2013
62
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 6.34 KB | None | 0 0
raw download clone embed print report
  1.       * ACUCOBOL-GT Version 9.2.1 .NET Copy Book - Generated On 03.11.2013 17:23:28
  2.       * Managed assembly, generated by 32-bit NetDefGen.exe
  3.  
  4.            OBJECT @ASSEMBLY
  5.            NAME    "@CobolTest1"
  6.            VERSION "1.0.0.0"
  7.            CULTURE "neutral"
  8.            STRONG  "null"
  9.  
  10.  
  11.       * FULLY-QUALIFIED-NAME CobolTest1.BasicTypesTest, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  12.  
  13.       * CobolTest1.BasicTypesTest
  14.            NAMESPACE "CobolTest1"
  15.            CLASS     "BasicTypesTest"
  16.            MODULE    "CobolTest1.dll"
  17.  
  18.            CONSTRUCTOR, 0, @CONSTRUCTOR1
  19.  
  20.       * [Class: BasicTypesTest] System.String GetDateNow()
  21.            METHOD, 0, "@GetDateNow"
  22.            RETURNING "BSTR", TYPE 8
  23.  
  24.       * [Class: BasicTypesTest] System.String GetDate(System.DateTime)
  25.            METHOD, 0, "@GetDate"
  26.                "DATE" @dt, TYPE 7
  27.            RETURNING "BSTR", TYPE 8
  28.  
  29.       * [Class: BasicTypesTest] Boolean NullCheck(System.Object)
  30.            METHOD, 0, "@NullCheck"
  31.                "STORED_OBJECT" @obj, TYPE 69
  32.            RETURNING "boolean", TYPE 11
  33.  
  34.       * [Class: BasicTypesTest] Int32 IntAdd(Int32, Int32)
  35.            METHOD, 0, "@IntAdd"
  36.                "int" @i1, TYPE 3
  37.                "int" @i2, TYPE 3
  38.            RETURNING "int", TYPE 3
  39.  
  40.       * [Class: BasicTypesTest] Single FloatAdd(Single, Single)
  41.            METHOD, 0, "@FloatAdd"
  42.                "single" @i1, TYPE 4
  43.                "single" @i2, TYPE 4
  44.            RETURNING "single", TYPE 4
  45.  
  46.       * [Class: BasicTypesTest] Double DoubleAdd(Double, Double)
  47.            METHOD, 0, "@DoubleAdd"
  48.                "double" @i1, TYPE 5
  49.                "double" @i2, TYPE 5
  50.            RETURNING "double", TYPE 5
  51.  
  52.  
  53.       * FULLY-QUALIFIED-NAME CobolTest1.ComplexTypesTest, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  54.  
  55.       * CobolTest1.ComplexTypesTest
  56.            NAMESPACE "CobolTest1"
  57.            CLASS     "ComplexTypesTest"
  58.            MODULE    "CobolTest1.dll"
  59.  
  60.            CONSTRUCTOR, 0, @CONSTRUCTOR1
  61.  
  62.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.InterfaceClass GetInterfacedClass()
  63.            METHOD, 0, "@GetInterfacedClass"
  64.            RETURNING "STORED_OBJECT", TYPE 69
  65.  
  66.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.ICobolTest GetInterfacedClassAsInterface()
  67.            METHOD, 0, "@GetInterfacedClassAsInterface"
  68.            RETURNING "STORED_OBJECT", TYPE 69
  69.  
  70.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.DerivedClass GetDerivedClass()
  71.            METHOD, 0, "@GetDerivedClass"
  72.            RETURNING "STORED_OBJECT", TYPE 69
  73.  
  74.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.ICobolTest GetDerivedClassAsInterface()
  75.            METHOD, 0, "@GetDerivedClassAsInterface"
  76.            RETURNING "STORED_OBJECT", TYPE 69
  77.  
  78.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.ClassTest GetBaseClass()
  79.            METHOD, 0, "@GetBaseClass"
  80.            RETURNING "STORED_OBJECT", TYPE 69
  81.  
  82.       * [Class: ComplexTypesTest] CobolTest1.CustomTypes.StructTest GetStruct()
  83.            METHOD, 0, "@GetStruct"
  84.            RETURNING "STORED_OBJECT", TYPE 69
  85.  
  86.       * [Class: ComplexTypesTest] Boolean IsInterfacedClass(System.Object)
  87.            METHOD, 0, "@IsInterfacedClass"
  88.                "STORED_OBJECT" @ic, TYPE 69
  89.            RETURNING "boolean", TYPE 11
  90.  
  91.       * [Class: ComplexTypesTest] System.String GetType(CobolTest1.CustomTypes.ICobolTest)
  92.            METHOD, 0, "@GetType"
  93.                "STORED_OBJECT" @ict, TYPE 69
  94.            RETURNING "BSTR", TYPE 8
  95.  
  96.       * [Class: ComplexTypesTest] System.DateTime GetStructDatreTime(CobolTest1.CustomTypes.StructTest)
  97.            METHOD, 0, "@GetStructDatreTime"
  98.                "STORED_OBJECT" @s, TYPE 69
  99.            RETURNING "DATE", TYPE 7
  100.  
  101.       * [Class: ComplexTypesTest] Struct
  102.            PROPERTY_GET, 0, @Struct
  103.                RETURNING, "STORED_OBJECT", TYPE 69
  104.  
  105.       * [Class: ComplexTypesTest] InterfacedClass
  106.            PROPERTY_GET, 0, @InterfacedClass
  107.                RETURNING, "STORED_OBJECT", TYPE 69
  108.  
  109.       * [Class: ComplexTypesTest] DerivedClass
  110.            PROPERTY_GET, 0, @DerivedClass
  111.                RETURNING, "STORED_OBJECT", TYPE 69
  112.  
  113.       * [Class: ComplexTypesTest] BaseClass
  114.            PROPERTY_GET, 0, @BaseClass
  115.                RETURNING, "STORED_OBJECT", TYPE 69
  116.  
  117.  
  118.       * FULLY-QUALIFIED-NAME CobolTest1.CustomTypes.ClassTest, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  119.  
  120.       * CobolTest1.CustomTypes.ClassTest
  121.            NAMESPACE "CobolTest1.CustomTypes"
  122.            CLASS     "ClassTest"
  123.            MODULE    "CobolTest1.dll"
  124.  
  125.            CONSTRUCTOR, 0, @CONSTRUCTOR1
  126.  
  127.       * [Class: ClassTest] Name
  128.            PROPERTY_GET, 0, @Name
  129.                RETURNING, "BSTR", TYPE 8
  130.  
  131.  
  132.       * FULLY-QUALIFIED-NAME CobolTest1.CustomTypes.DerivedClass, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  133.  
  134.       * CobolTest1.CustomTypes.DerivedClass
  135.            NAMESPACE "CobolTest1.CustomTypes"
  136.            CLASS     "DerivedClass"
  137.            MODULE    "CobolTest1.dll"
  138.  
  139.            CONSTRUCTOR, 0, @CONSTRUCTOR1
  140.  
  141.       * [Class: DerivedClass] Name
  142.            PROPERTY_GET, 0, @Name
  143.                RETURNING, "BSTR", TYPE 8
  144.  
  145.  
  146.       * FULLY-QUALIFIED-NAME CobolTest1.CustomTypes.InterfaceClass, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  147.  
  148.       * CobolTest1.CustomTypes.InterfaceClass
  149.            NAMESPACE "CobolTest1.CustomTypes"
  150.            CLASS     "InterfaceClass"
  151.            MODULE    "CobolTest1.dll"
  152.  
  153.            CONSTRUCTOR, 0, @CONSTRUCTOR1
  154.  
  155.       * [Class: InterfaceClass] Name
  156.            PROPERTY_GET, 0, @Name
  157.                RETURNING, "BSTR", TYPE 8
  158.  
  159.  
  160.       * FULLY-QUALIFIED-NAME CobolTest1.CustomTypes.StructTest, CobolTest1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
  161.  
  162.       * CobolTest1.CustomTypes.StructTest
  163.            NAMESPACE "CobolTest1.CustomTypes"
  164.            CLASS     "StructTest"
  165.            MODULE    "CobolTest1.dll"
  166.  
  167.       * Public - fields
  168.  
  169.            FIELD,  0, @String
  170.            RETURNING, "BSTR", TYPE 8
  171.  
  172.            FIELD,  0, @Int
  173.            RETURNING, "int", TYPE 3
  174.  
  175.            FIELD,  0, @Float
  176.            RETURNING, "single", TYPE 4
  177.  
  178.            FIELD,  0, @Double
  179.            RETURNING, "double", TYPE 5
  180.  
  181.            FIELD,  0, @DateTime
  182.            RETURNING, "DATE", TYPE 7
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!