Title: Cult Cobol High Priest
June 4, 2007
June 4, 2007
I'm an old Cobol dude from the 80s. Stopped programming for a few years and am back in it again. Currently using php/mysql combination. However I am moving back into COBOL finally.
Since it was so early in the group's life, I was the only one that showed up. Made sure I was there just in case someone came. I think as time goes on more folks will come especially with cobug.com's help.
You must be signed in to post a Greeting.
"Harold, yes it is. There is a lot of development and posts over on http://opencobol.com/... about it."
"Slava, Yes the selection program should really be calculator. And yes it can be improved. Did you do a cobol version? Would you mind posting it here for us to see?..."
"Hello all! Last week we learned some history of Cobol and implemented a couple simple Cobol programs. This week on Sunday we will be learning the basics about Cobol Data Structures. So please be sure to read ahead. ... MoreIf you have any questions before the meetup, feel free to email me. Also, try experimenting around in your directories, creating a sample program using the data structure examples provided in this week's lesson. You'll first need to: cd users/YOURNAME (substitute your name for YOURNAME) mkdir lesson002 cd lesson 002 nano coboldata.cob Then edit creating a sample program similar to the ones from last week. Ring me if you've any questions and don't worry if you don't get it exactly right, I'll be there Sunday to help. Kind Regards and my the Holy Coboly be with you and yours Aoirthoir, Cult Cobol High Priest "
"Tonight's class we went over a number a topics. So this will cover some of it. Our lesson was The Structure of Cobol Programs, an introduction. Some points of interest: COBOL means COmmon Business Oriented Language. ... MoreIt's 50 years old (as of a couple of weeks ago). It was created by CODASYL Committee (Conference on Data Systems Languages) There were to be two committess, the Short Range Committee and the Long Range Committee. The short range was so successful that the long range never materialized. Cobol is English, maintainable for decades, costly to replace, verbose, and used mainly in Vertical Market Applications (those for a specific business or industry), thus the most used language in the world. We created two sample Cobol programs. We set up a user on dreamhost (available to any taking the course) to test Cobol apps and encourage one another. multiplytest.cob: IDENTIFICATION DIVISION. PROGRAM-ID. multiplytest. *>AUTHOR. Aoirthoir An Broc. *>DATE WRITTEN. 2009-10-05. *>DATE COMPILED. 2009-10-05. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 num1 PIC 9999. 01 num2 PIC 9999. 01 result PIC 9(8). 01 disp-res PIC Z(8). PROCEDURE DIVISION. 00-PROCESS. DISPLAY "ENTER NUM1:" WITH NO ADVANCING ACCEPT num1 DISPLAY "ENTER NUM2:" WITH NO ADVANCING ACCEPT num2 MULTIPLY num1 BY num2 GIVING result MOVE result TO disp-res DISPLAY "RESULT IS " disp-res GOBACK. selection.cob: IDENTIFICATION DIVISION. PROGRAM-ID. multiplytest. *>AUTHOR. Aoirthoir An Broc. *>DATE WRITTEN. 2009-10-05. *>DATE COMPILED. 2009-10-05. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 NumberValues. 05 num1 PIC 9999. 05 num2 PIC 9999. 05 result PIC 9(8). 05 disp-res PIC Z(8). 01 OperationType PIC X. PROCEDURE DIVISION. 00-PROCESS. PERFORM UNTIL OperationType IS EQUAL TO "Q" DISPLAY "(A)dd" DISPLAY "(S)ubtract" DISPLAY "(M)ultiply" DISPLAY "(D)ivide" DISPLAY "(Q)uit" ACCEPT OperationType IF OperationType IS EQUAL TO "A" OR "S" OR "M" OR "D" THEN DISPLAY "ENTER NUM1:" WITH NO ADVANCING ACCEPT num1 DISPLAY "ENTER NUM2:" WITH NO ADVANCING ACCEPT num2 EVALUATE OperationType WHEN "A" ADD num1 TO num2 GIVING result WHEN "S" SUBTRACT num2 FROM num1 GIVING result WHEN "M" MULTIPLY num1 BY num2 GIVING result WHEN "D" DIVIDE num1 BY num2 GIVING result END-EVALUATE MOVE result TO disp-res DISPLAY "RESULT IS " disp-res END-IF END-PERFORM GOBACK. So before we go on, let's get some commentary going on these two programs. Any questions feel free to ask and I will answer. "
