Thursday 27 February 2014

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.

1 comment:

  1. Gambling 101: How to Gamble Responsibly - Dr. Dr.
    What are the 춘천 출장샵 risks of gambling in the 과천 출장마사지 long run? One of the most common 과천 출장샵 casino gambling terms 영천 출장안마 is 목포 출장샵 “risk and reward

    ReplyDelete