COBOL program to find largest of two numbers

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2)
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     IF A IS > B
    DISPLAY "A IS LARGEST", A
      ELSE
      DISPLAY "B IS LARGEST", B.
     STOP RUN.

COBOL program to check whether the number is positive or negative

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER ONE NUMBER".
     ACCEPT A.
     IF A IS > 0
     DISPLAY "POSITIVE NUMBER"
    ELSE
     DISPLAY "NEGATIVE NUMBER".
     STOP RUN.

COBOL program to check whether the number is ODD or EVEN

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER ONE NUMBER".
     ACCEPT A.
     DIVIDE A BY 2 GIVING R REMAINDER Q.

     IF Q IS NOT EQUAL TO 0

     DISPLAY "ODD"
     ELSE
     DISPLAY "EVEN".
     STOP RUN.



FOR MORE DETAILS CONTACT : https://www.facebook.com/anon.venus

COBOL program to perform division of two numbers..

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 QUO PIC 9(2)V99.
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE QUO = A + B.
     DISPLAY "QUOTIENT=", QUO.
     STOP RUN.

COBOL program to find product of two number...??

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 C PIC 9(4).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE C = A + B.
     DISPLAY "PRODUCT=", C.
     STOP RUN.

Program to substrate two number in COBOL..??

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 DIFF PIC 9(2).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE DIFF = A + B.
     DISPLAY "DIFFERENCE=", DIFF.
     STOP RUN.

Program to add two numbers in COBOL..?

IDENTIFICATION DIVISION.
PROGRAM-ID. AAA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AA.
     02 A PIC 9(2).
     02 B PIC 9(2).
     02 SUM PIC 9(4).
PROCEDURE DIVISION.
P1.
     DISPLAY "ENTER THE TWO NUMBER".
     ACCEPT A.
     ACCEPT B.
     COMPUTE SUM = A + B.
     DISPLAY "SUM=", SUM.
     STOP RUN.