A Collection of Code Snippets in as Many Programming Languages as Possible
This project is maintained by TheRenegadeCoder
Welcome to the Even Odd in Cobol page! Here, you'll find the source code for this program as well as a description of how the program works.
IDENTIFICATION DIVISION. PROGRAM-ID. EVEN-ODD. DATA DIVISION. WORKING-STORAGE SECTION. 01 CMDARGS PIC X(38). 01 NUM PIC S9(30). PROCEDURE DIVISION. ACCEPT CMDARGS FROM COMMAND-LINE. IF CMDARGS IS ALPHABETIC THEN DISPLAY "Usage: please input a number" STOP RUN. COMPUTE NUM = FUNCTION NUMVAL(CMDARGS). IF NUM IS NUMERIC THEN IF FUNCTION MOD (NUM, 2) = 0 THEN DISPLAY "Even" ELSE DISPLAY "Odd" ELSE DISPLAY "Usage: please input a number" STOP RUN.
Even Odd in Cobol was written by:
If you see anything you'd like to change or update, please consider contributing.
Note: The solution shown above is the current solution in the Sample Programs repository as of May 08 2023 19:11:58. The solution was first committed on Oct 09 2021 21:24:10. As a result, documentation below may be outdated.
Let us try to understand the code step-wise.
First, we must make sure we include the mandatory
DIVISIONS in the beginning. The
IDENTIFICATION DIVISION is used to specify the metadata of the program including the
PROGRAM-ID. In this case, we have written
EVEN-ODD to identify the code.
Next comes the
DATA DIVISION. Here, we define our data variables, which will contain data like integer, alphabets etc. Here, we have mentioned
NUM which are short for Command Arguments and Number respectively.
PIC stands for 'Picture Clause' which defines the type and size of data.
X means an Alpha-numeric data can be expected in Command Arguments (maximum size is 38 bytes). We have used alphanumeric because the user can also enter alphabets instead of a number. On the other hand,
S9 shows that a number with positive or negative values can be expected as data (maximum size is 30 bytes).
Moving on, we encounter
PROCEDURE DIVISION. This section includes the actual code with its functions. To solve this problem, we will use a computing operator 'Modulo' (%) which divides one number from the other and returns the remainder. So, if we divide any even number with 2, the remainder will always be 0, whereas, if we divide any odd number with 2, the remainder would be 1.
For example, 12 % 2 = 0 and 13 % 2 = 1.
ACCEPT is a keyword used to accept arguments (data) from the Command-Line. So, this statement is used to accept the data entered by the user and run it through the code.
If command arguments are alphabetic, the program will display the error message
Usage: please input a number and stop the program.
NUMVAL extracts numeric data from an alphanumeric data and stores them.
Next, we have nested (one inside the other) IF conditions.
IF NUM IS NUMERIC THEN is used to make sure again that we are only using a numeric data to print an output. So, if the data entered is a number, the program will go ahead with this condition and the
MOD (modulo) operator will be applied on the number.
MOD (NUM, 2) = 0 THEN DISPLAY "Even". If the remainder is 0, then the number is even and so is the output.
If this condition is not true, i.e., if the remainder is not 0, the output will be
And finally, if the data is not a number, the output will be an error message "Usage: please input a number".
To run the solution we will need a COBOL compiler installed and the actual code file. Finally we need to run these commands in order:
cobc -x even-odd.cbl $ ./even-odd
The commands first compile the source code into an executable and then execute it. Alternatively, you might want to use an online COBOL compiler