Previous Topic Next topic Print topic


Attributes - in COBOL and C#

C# COBOL
// C# terminology : attribute
// Define attributes on a class
[WebService(Description = "MyService")]
[Obsolete]
class MyClass
{
	// Define attributes on a field
	[XmlAttribute("UpperB")]
	[Obsolete]
	long a; 

	// Define attribute on a property
	private string prop;

	[Obsolete]
	public string b
	{
		[return:XmlAttribute("UpperB")]
		get { return prop; }

		[value:XmlAttribute("UpperB")]
		set { prop = value; }
	}

	// Define attribute on an event
	[Obsolete]
	public event fred d;

	// Define attribute on a method
	[Obsolete]
	public void main()
	{
	}

	// Define attributes on parameters and returns
	[return:CLSCompliant(true)]
	[return:MarshalAs(2)]
	public long Stat([CLSCompliant(true)][MarshalAs(3)]long l1)
	{
		return 12;
	}

	// Define attributes on a property
	[Obsolete]
	public string b
	{
		set { prop = value; }
	}

	// Define attributes on a delegate
	[Obsolete]
	public delegate void fred(long l1);
}
*> Define attributes on a class
class-id MyClass
          attribute WebService(name Description = "My service")
          attribute Obsolete.

*> Define attributes on a field
01 a binary-long attribute XmlAttribute("UpperB")
          attribute Obsolete static.
01 b string attribute CLSCompliant(false)
*> Define attributes on a property
*> Note that in this case, the attributes must follow
*> the reserved word PROPERTY
01 b binary-long property
          attribute XmlAttribute("UpperB")
          attribute Obsolete static.

*> Define attributes on an event
*> Note that the attributes must follow
*> the reserved word EVENT.
01 d type fred event
          attribute Obsolete static.

*> Define attributes on a method
method-id main 
          attribute Obsolete static.
procedure division
    move 999 to a
    display a

end method.

*> Define attributes on a method parameter and return type
method-id stat static.
procedure division 
          using by value l1 as binary-long
                   attribute CLSCompliant(true)
                   attribute MarshalAs(3)
          returning l2 as binary-long
                   attribute CLSCompliant(true)
                   attribute MarshalAs(2).
    move 999 to a
    display a
    set d to null
end method.

*> Define attributes on a property
method-id set property prop 
          attribute Obsolete static.
procedure division using by value l1 as binary-long.
    move l1 to a
end method.

end class.

*> Define attribute on a delegate
delegate-id fred attribute Obsolete.
procedure division using by value l1 as binary-long.
end delegate.   
Previous Topic Next topic Print topic