{"id":143,"date":"2009-11-10T21:51:06","date_gmt":"2009-11-10T20:51:06","guid":{"rendered":"http:\/\/www.gennard.net\/blog\/?p=143"},"modified":"2009-11-10T21:51:06","modified_gmt":"2009-11-10T20:51:06","slug":"too-iterate-or-not","status":"publish","type":"post","link":"http:\/\/www.gennard.net\/blog\/2009\/11\/too-iterate-or-not\/","title":{"rendered":"Too Iterate or not…"},"content":{"rendered":"

Over the next couple of weeks, I will explore some of the reasons why I think managed environments are good for COBOL.<\/p>\n

So.. lets the show on the road…<\/p>\n

Setting up arrays\/occurs items in COBOL and manipulating them can be painful. Lets look at some traditional code for playing around with a “months” table.<\/p>\n


\n 01 month-val.
\n 05 FILLER PIC X(10) value \"January\".
\n 05 FILLER PIC X(10) value \"February\".
\n 05 FILLER PIC X(10) value \"March\".
\n 05 FILLER PIC X(10) value \"April\".
\n 05 FILLER PIC X(10) value \"May\".
\n 05 FILLER PIC X(10) value \"June\".
\n 05 FILLER PIC X(10) value \"July\".
\n 05 FILLER PIC X(10) value \"August\".
\n 05 FILLER PIC X(10) value \"September\".
\n 05 FILLER PIC X(10) value \"October\".
\n 05 FILLER PIC X(10) value \"November\".
\n 05 FILLER PIC X(10) value \"December\".<\/p>\n

01 month-tab redefines month-val.
\n 05 months occurs 12 times.
\n 10 month-NAME PIC X(10).<\/p>\n

01 month PIC 99.<\/p>\n

01 secondQuarterMonths pic x(70).<\/p>\n

display \"The months are:\"
\n perform varying month from 1 by 1 until month equals 12
\n display \" \" months(month)
\n end-perform<\/p>\n

display \" \"
\n display \"The second quarter months are: \"<\/p>\n

string months(4) delimited by space
\n \"\/\" delimited by size
\n months(5) delimited by space
\n \"\/\" delimited by size
\n months(6) delimited by space
\n into secondQuarterMonths
\n on overflow
\n display \"FATAL Error - secondQuarterMonths is too small\"
\n stop run
\n end-string<\/p>\n

display \" \" secondQuarterMonths
\n<\/code><\/p>\n

Now, imagine we can use one or two of the .Net’s base class libraries combined with some nifty natural extensions to COBOL to do some of the heavy lifting.<\/p>\n

Defining the month item as a native .Net type ie: a string combined with using the base class libraries Split methods allows us to setup a array quickly.<\/p>\n


\n 01 commaDelimited string value
\n \"January,February,March,April,May,June,July,August,\" &
\n \"September,October,November,December\".<\/p>\n

01 months string occurs any.
\n 01 month string.<\/p>\n

01 secondQuarterMonths string.<\/p>\n

set months to commaDelimited::\"Split\"(',')<\/p>\n

display \"The months are: \"
\n perform varying month through months
\n display \" \" month
\n end-perform<\/p>\n

display \" \"
\n display \"The second quarter months are: \"<\/p>\n

set secondQuarterMonths to type \"System.String\"::\"Join\"('\/', months, 3, 3)<\/p>\n

display \" \" secondQuarterMonths
\n<\/code><\/p>\n

The .Net version, besides being smaller feels much easier to read, especially if you have any exposure to the .Net base class library from other languages such as C# or VB.Net.<\/p>\n

Of course in a real world example, we don’t need to use the split method to setup an array, we could just use the “values” clause… for example:<\/p>\n


\n 01 months string occurs 12 values
\n \"January\" \"February\" \"March\" \"April\" \"May\" \"June\"
\n \"July\" \"August\" \"September\" \"October\" \"November\" \"December\".<\/p>\n

01 month string.<\/p>\n

perform varying month through months
\n display month
\n end-perform
\n<\/code><\/p>\n

If however you don’t want to hardcode the months, you can always use: CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName() in the System.Globalization namespace. \ud83d\ude42<\/p>\n

So… lets just do it…<\/p>\n


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

set Months to type \"System.Globalization.DateTimeFormatInfo\"::
\n \"CurrentInfo\"::\"MonthNames\"<\/p>\n

perform varying Month through Months
\n display Month
\n end-perform
\n<\/code><\/p>\n

Now, I hope you feel like I do that COBOL and .Net are indeed perfect partners to each other.<\/p>\n

\n

The above COBOL .Net code will execute on Micro Focus Net Express and I suspect it will also work on Fujitsu’s netCobol too.<\/p>\n","protected":false},"excerpt":{"rendered":"

Over the next couple of weeks, I will explore some of the reasons why I think managed environments are good for COBOL. So.. lets the show on the road… Setting up arrays\/occurs items in COBOL and manipulating them can be … 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":[69,208,209,117],"_links":{"self":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/posts\/143"}],"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=143"}],"version-history":[{"count":0,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/posts\/143\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/media?parent=143"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/categories?post=143"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.gennard.net\/blog\/wp-json\/wp\/v2\/tags?post=143"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}