{"id":166,"date":"2009-11-13T19:05:15","date_gmt":"2009-11-13T18:05:15","guid":{"rendered":"http:\/\/www.gennard.net\/blog\/?p=166"},"modified":"2009-11-13T19:05:15","modified_gmt":"2009-11-13T18:05:15","slug":"arrays-and-the-net-base-cass-library","status":"publish","type":"post","link":"http:\/\/www.gennard.net\/blog\/2009\/11\/arrays-and-the-net-base-cass-library\/","title":{"rendered":"Arrays and the .Net Base Cass Library"},"content":{"rendered":"

Carrying on from the previous blog, the user of iterators in .Net and especially .Net on COBOL can be very useful.<\/p>\n

When CLR v2.0 was introduced a few new methods in System.IO.File for block reading\/writing files were introduced, these works on arrays aka “OCCURS ANY” fields. Using these APIs instead of using traditional line sequentials is a breath of fresh air, especially if you just want to do some code something quickly without the need of records\/group items.<\/p>\n

So lets.. have a little play around, lets read a “MonthNames” from the CLR, write them to disk, read them back, reverse and sort it, while display them…<\/p>\n


\n 01 Months-Array type \"System.Array\".<\/p>\n

01 Months string occurs 12.
\n 01 Month string.<\/p>\n

*> Note: the MonthsNames has 13 elements and the last element is \"\"
\n *> and I'm not interested it it so I'll drop it by doing a \"ConstrainedCopy\"
\n *> with just elements I'm interested in.
\n *> http:\/\/msdn.microsoft.com\/en-us\/library\/system.globalization.datetimeformatinfo.monthnames.aspx
\n set Months-Array to type \"System.Globalization.DateTimeFormatInfo\"::\"CurrentInfo\"::\"MonthNames\"
\n invoke type \"System.Array\"::\"ConstrainedCopy\"(Months-Array, 0, Months, 0, Months::\"Length\")<\/p>\n

display Months::\"Length\"
\n perform varying Month through Months
\n display \"Normal -> \" Month
\n end-perform<\/p>\n

*> Write the array to disk
\n invoke type \"System.IO.File\"::\"WriteAllLines\"(\"MyMonths.txt\", Months)<\/p>\n

set Months to null<\/p>\n

*> Read it back
\n set Months to type \"System.IO.File\"::\"ReadAllLines\"(\"MyMonths.txt\")<\/p>\n

*> Reverse it
\n invoke type \"System.Array\"::\"Reverse\"(Months as Type \"System.Array\") <\/p>\n

*> Display it
\n perform varying Month through Months
\n display \"Reverse -> \" Month
\n end-perform<\/p>\n

*> Sort it
\n invoke type \"System.Array\"::\"Sort\"(Months as type \"System.Array\")<\/p>\n

*> Display it
\n perform varying Month through Months
\n display \"Sorted -> \" Month
\n end-perform<\/p>\n

<\/code><\/p>\n

Which when executed gives us: <\/p>\n


\n12
\nNormal -> January
\nNormal -> February
\nNormal -> March
\nNormal -> April
\nNormal -> May
\nNormal -> June
\nNormal -> July
\nNormal -> August
\nNormal -> September
\nNormal -> October
\nNormal -> November
\nNormal -> December
\nReverse -> December
\nReverse -> November
\nReverse -> October
\nReverse -> September
\nReverse -> August
\nReverse -> July
\nReverse -> June
\nReverse -> May
\nReverse -> April
\nReverse -> March
\nReverse -> February
\nReverse -> January
\nSorted -> April
\nSorted -> August
\nSorted -> December
\nSorted -> February
\nSorted -> January
\nSorted -> July
\nSorted -> June
\nSorted -> March
\nSorted -> May
\nSorted -> November
\nSorted -> October
\nSorted -> September
\n<\/code><\/p>\n

That was pretty easy… and the code looks okay too… can’t be bad…<\/p>\n

References : System.Globalization.DatetimeFormat<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

Carrying on from the previous blog, the user of iterators in .Net and especially .Net on COBOL can be very useful. When CLR v2.0 was introduced a few new methods in System.IO.File for block reading\/writing files were introduced, these works … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,5,32],"tags":[],"_links":{"self":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/posts\/166"}],"collection":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/comments?post=166"}],"version-history":[{"count":0,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/posts\/166\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/media?parent=166"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/categories?post=166"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/tags?post=166"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}