For the last couple of months I have working on Visual Studio 2010 and this include Microsoft CLR v4 and I was recently asked how to write a test that determines at runtime which CLR is being used and what assemblies it uses. I replies would use reflection. So I dropped my friend a mega simple demo… and here it is.
$set ilusing"System.Reflection"
01 myAssembly type "Assembly".
01 usedAssemblyName type "AssemblyName".
set myAssembly to type "Assembly"::"GetExecutingAssembly"
display "My exe is " myAssembly::"FullName"
display "and is using CLR " myAssembly::"ImageRuntimeVersion"
display "and is loaded from " myAssembly::"Location"
display "the initial method of this program was "
myAssembly::"EntryPoint"::"Name"
display "This assembly references -> "
perform varying usedAssemblyName
through myAssembly::"GetReferencedAssemblies"
display "-> " usedAssemblyName
end-perform
And the output of the program is:
My exe is clrver, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null
and is using CLR v2.0.50727
and is loaded from d:\clrver.exe
the initial method of this program was _MF_ENTRYThis assembly references ->
-> mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-> MicroFocus.COBOL.Runtime, Version=3.6.0.0, Culture=neutral,
PublicKeyToken=0412c5e0b2aaa8f0
Today my collegues Robert and Alex have finally 
decided to publish a document that compares Visual Basic, C# and COBOL for .Net under The Creative Commons Attribution-ShareAlike 2.5 License.
Rather than doing a cut-paste job, here is a quote from alex, along with a link to the “real” article itself.
Enjoy.
Alex Turner said:
A Comparison Of .Net COBOL, Visual Basic and C#
Introduction
If you are a COBOL programmer wanting to learn C# or a VB programmer wanting to learn COBOL as a .net language (or any other combination of VB.net, C# and COBOL) then this is a good place to start.
Background
If you are a COBOL programmer wanting to learn C# or a VB programmer wanting to learn COBOL as a .net language (or any other combination of VB.net, C# and COBOL) then this is a good place to start.
It has often been noted that the richness of the COBOL language in its Micro Focus .net implementation is not well known. Robert Sales and I have worked on this document to help bring the language to peoples’ attention and to help people who need to work with COBOL on the .net platform.
This is a preview of
A Comparison Of .Net COBOL, Visual Basic and C#
.
Read the full post (220 words, estimated 53 secs reading time)
If you are interested in trying out some of my examples with a modern COBOL compiler.. let me give you a quote from a friend.
From: Twitter “Scot Nielsen said: Micro Focus COBOL for .NET and Visual Studio available here FREE for non-commercial.
The development environment/compiler can be downloaded from the Micro Focus Shop.
More information can be picked up from the Microsoft Visual Studio Gallery
Continuing my series on design patterns for the COBOL, the next one on my list is the “Factory method” pattern.
The pattern is useful, as it helps you hide the real implementation/creation mechanism of your classes. I you are fond of uml… here is the actual uml (from wikipedia).
Factory Method Pattern from Wikipedia!
So… lets see the COBOL code…
interface-id. "Base".
method-id. "DoIt".
end method "DoIt".
end interface "Base".
class-id. "Derived1Impl".
object. implements type "Base".
method-id. "DoIt" public.
display "Derived1Impl from DoIt".
end method "DoIt".
end object.
end class "Derived1Impl".
class-id. "Derived2Impl".
object. implements type "Base".
method-id. "DoIt" public.
display "Derived2Impl from DoIt".
end method "DoIt".
end object.
end class "Derived2Impl".
class-id. "Factory".
object.
method-id. "GetObject".
linkage section.
01 obj-base type "Base".
procedure division using by value oType as binary-long
returning obj-base.
evaluate oType
when 1
set obj-base to new type "Derived1Impl"()
when 2
set obj-base to new type "Derived2Impl"()
when other
set obj-base to null
end method "GetObject".
end object.
end class "Factory".
class-id. "FactoryDemo".
method-id. "Main" static.
local-storage section.
01 obj-factory type "Factory".
01 base-obj type "Base".
linkage section.
01 args string occurs any.
procedure division using by value args.
set obj-factory to new type "Factory"()
set base-obj to obj-factory::"GetObject"(1)
invoke base-obj::"DoIt"()
set base-obj to obj-factory::"GetObject"(2)
invoke base-obj::"DoIt"()
end method "Main".
end class "FactoryDemo".
That was pretty straight forward… not too much pain…
And finally the code produces…
d:\> FactoryDemo.exe
Derived1Impl from DoIt
Derived2Impl from DoIt
Hello world
Time to sign off for today.. but if you would like me to continue the series on code patterns or have a particular pattern you need… drop us a line!
Comments (0) 
CLR, COBOL, Tips
| 
CLR, COBOL, cobol.net, managed cobol, reflection 
Themocracy - tweaked by SpG