Continuing the series of blogs about COBOL and the .Net base class library…<\/p>\n
The .Net base class library has a wealth classes and an huge of amount of methods\/properties. <\/p>\n
The .Net base class library has a key handy namespace that contains are the lovely classes, which is System.Collections<\/a>.<\/p>\n As you can see from the above link, it does have quite a lot, so for this blob entry I will look at: <\/p>\n Lets start the first example by using an array of numbers… just to demonstrate its not just strings you can assign to the arrays using “values”.<\/p>\n 01 num binary-long value 0. procedure division. Running the above code gives us:<\/p>\n The next class that is helpful, is the Queue class, this allows us to “Enqueue” and “Dequeue” item using the same methods, the queue is again displayed using the “perform through” syntax.<\/p>\n 01 alphabetQueue type \"Queue\". set alphabetQueue to new type \"Queue\"() display \"The initial queue is: \" display \"\". display \"\". Running the above queue example gives:<\/p>\n De-Queue an item: A item<\/p>\n Afterwards is: Next, lets look at the ‘Stack’ class, this is very similar, expect it uses the “Push”, “Pop” methods and we iterate through the Stack using the ‘perform through’ syntax.<\/p>\n 01 alphabetStack type \"Stack\". set alphabetStack to new type \"Stack\"() display \"The initial stack is: \" display \"\". display \"\". Running the above stack example gives:<\/p>\n De-Stack an item: C item<\/p>\n Afterwards is: As you can see using the base class library collection classes with COBOL is just as easy as using C#… so if you are already using COBOL… continue and try out the .Net base class library.. it really is very easy to use and it will make you more productive.. so please explore and enjoy .Net and its Base Class library.<\/p>\n","protected":false},"excerpt":{"rendered":" Continuing the series of blogs about COBOL and the .Net base class library… The .Net base class library has a wealth classes and an huge of amount of methods\/properties. The .Net base class library has a key handy namespace that … Continue reading
\n 01 numbers binary-long occurs 10
\n values 10 20 30 40 50 10 20 30 40 50.<\/p>\n
\n 01 average binary-double value 0.<\/p>\n
\n perform varying num through numbers
\n add num to average
\n end-perform
\n divide average by numbers::\"Length\" giving average
\n display \"Average is : \" average
\n<\/code><\/p>\n
\nAverage is : +00000000000000000030
\n<\/code><\/p>\n
\n $set ilusing\"System\"
\n $set ilusing\"System.Collections\"<\/p>\n
\n 01 item object reference.<\/p>\n
\n invoke alphabetQueue::\"Enqueue\"(\"A item\")
\n invoke alphabetQueue::\"Enqueue\"(\"B item\")
\n invoke alphabetQueue::\"Enqueue\"(\"C item\")<\/p>\n
\n perform varying item through alphabetQueue
\n display \" \" item
\n end-perform<\/p>\n
\n display \"De-Queue an item: \" alphabetQueue::\"Dequeue\"()<\/p>\n
\n display \"Afterwards is: \"
\n perform varying item through alphabetQueue
\n display \" \" item
\n end-perform
\n<\/code><\/p>\n
\nThe initial queue is:
\n A item
\n B item
\n C item<\/p>\n
\n B item
\n C item
\n<\/code><\/p>\n
\n $set ilusing\"System\"
\n $set ilusing\"System.Collections\"<\/p>\n
\n 01 item object reference.<\/p>\n
\n invoke alphabetStack::\"Push\"(\"A item\")
\n invoke alphabetStack::\"Push\"(\"B item\")
\n invoke alphabetStack::\"Push\"(\"C item\")<\/p>\n
\n perform varying item through alphabetStack
\n display \" \" item
\n end-perform<\/p>\n
\n display \"Pop item: \" alphabetStack::\"Pop\"()<\/p>\n
\n display \"Afterwards is: \"
\n perform varying item through alphabetStack
\n display \" \" item
\n end-perform
\n<\/code><\/p>\n
\nThe initial stack is:
\n C item
\n B item
\n A item<\/p>\n
\n B item
\n A item
\n<\/code><\/p>\n