1. Home
2. COBOL
3. COBOL Program to Accepts two single digit numbers from the user, multiplies them together and displays the result.

COBOL Program to Accepts two single digit numbers from the user, multiplies them together and displays the result.

Category > COBOL || Published on : Friday, May 8, 2015 || Views: 2856 || Accepts two single digit numbers from the user COBOL Program multiplies them together in COBOL Program displays the result in COBOL Program COBOL Program Example

      $ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID.  Multiplier.
AUTHOR.  Michael Coughlan.
* Example program using ACCEPT, DISPLAY and MULTIPLY to 
* get two single digit numbers from the user and multiply them together

DATA DIVISION.

WORKING-STORAGE SECTION.
01  Num1                                PIC 9  VALUE ZEROS.
01  Num2                                PIC 9  VALUE ZEROS.
01  Result                              PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.
    DISPLAY "Enter first number  (1 digit) : " WITH NO ADVANCING.
    ACCEPT Num1.
    DISPLAY "Enter second number (1 digit) : " WITH NO ADVANCING.
    ACCEPT Num2.
    MULTIPLY Num1 BY Num2 GIVING Result.
    DISPLAY "Result is = ", Result.
    STOP RUN.

You might also like