VBNET{
	<IMPORTS>
		System
		System.Text
		System.Text.RegularExpressions
		System.Windows.Forms
	</IMPORTS>

	<FIELDS>
		public pcx_Flags as Integer = 0
		public pcx_ErrFlags as Integer = 0
		public _cell as Integer = 0
		private _LargeName as String = ""
	</FIELDS>

	<PROPERTIES>
		Public Property prop_LargeName as String
           		Get
                 		return _LargeName
           		End Get
           		Set (ByVal value as String)
                 		_LargeName = value
           		End Set
		End Property
	</PROPERTIES>
}

TSQL{
	select id as rowID, value as LargeName, flags as Flags, InstructionList as Code from tCompileObjects where QueryID = %1
}

VBNET{
        <FIELDS>
               private _val as String = ""
               protected friend MainClass as Object = Nothing
        </FIELDS>
	<METHODS>
        	public sub GetCode(QueryID as Int32)  As String
                    	Dim cdr = new CodeReader(Programm.ActiveConnection, QueryID)
                    	Dim rd = CodeReader.Open()
                    	While rd.Read()
                               	Programm.DynRowset.Add(rd.Current)
                    	WEnd
        	end sub
	</METHODS>

	<ACTIVE_METHOD>
        	GetCode(%1)
	</ACTIVE_METHOD>
}

Dim str_Imports, str_Fields, str_Properties, str_Methods, str_ActiveMethod as String

System
System.Text
System.Text.RegularExpressions
System.Windows.Forms

public pcx_Flags as Integer = 0
public pcx_ErrFlags as Integer = 0
public _cell as Integer = 0
private _LargeName as String = ""
private _val as String = ""
protected friend MainClass as Object = Nothing

TSQL{
         declare @x varchar(255), @y varchar(255)
         set @x = 'someclass{}'
         set @y = '{VALUE}'
         select @x as TAG1, @y as TAG2
}

CSHARP{
     <METHODS>
          public string DS_GetCellValue(int rowID)
          {
                 return this.DynRowset.GetRowValue(rowID);
          }
     </METHODS>
}