IDENTIFICATION DIVISION.
   PROGRAM-ID. CALPROG.
 DATA DIVISION.
  WORKING-STORAGE SECTION.
   77 WS-NUMBER1 PIC 9(2).
   77 WS-NUMBER2 PIC 9(2).
   77 WS-SUM PIC 9(3).
   77 WS-DIFFERENCE PIC S9(2).
   77 WS-MULTIPLICATION PIC 9(4).
   77 WS-QUOTIENT PIC 9(3).
   77 WS-REMAINDER PIC 9(2).
   01 WS-POSITIVE PIC ZZZ9.
   01 WS-NEGATIVE PIC ---9.
 PROCEDURE DIVISION.
   MAIN-PARA.
      PERFORM ACCEPT-PARA.
   ACCEPT-PARA.
      ACCEPT WS-NUMBER1.
      ACCEPT WS-NUMBER2.
      PERFORM SUM-PARA.
   SUM-PARA.
      ADD WS-NUMBER1, WS-NUMBER2 GIVING WS-SUM.
      PERFORM SUBTRACT-PARA.
   SUBTRACT-PARA.
      SUBTRACT WS-NUMBER2 FROM WS-NUMBER1
         GIVING WS-DIFFERENCE.
      PERFORM MULTIPLICATION-PARA.
   MULTIPLICATION-PARA.
      MULTIPLY WS-NUMBER1 BY WS-NUMBER2
         GIVING WS-MULTIPLICATION.
      PERFORM DIVISION-PARA.
   DIVISION-PARA.
      DIVIDE WS-NUMBER1 BY WS-NUMBER2
         GIVING WS-QUOTIENT REMAINDER WS-REMAINDER.
      PERFORM DISPLAY-PARA.
   DISPLAY-PARA.
      MOVE WS-SUM TO WS-POSITIVE.
      DISPLAY "WS-NUMBER1+WS-NUMBER2=" WS-POSITIVE.
      MOVE WS-DIFFERENCE TO WS-NEGATIVE.
      DISPLAY "WS-NUMBER1-WS-NUMBER2=" WS-NEGATIVE.
      MOVE WS-MULTIPLICATION TO WS-POSITIVE.
      DISPLAY "WS-NUMBER1*WS-NUMBER2=" WS-POSITIVE.
      MOVE WS-QUOTIENT TO WS-POSITIVE.
      DISPLAY "WS-NUMBER1/WS-NUMBER2=" WS-POSITIVE.
      MOVE WS-REMAINDER TO WS-POSITIVE.
      DISPLAY "WS-NUMBER1/WS-NUMBER2=" WS-POSITIVE.
      MOVE WS-REMAINDER TO WS-POSITIVE.
      DISPLAY "REMAINDER=" WS-POSITIVE.
      PERFORM ELIF-PARA.
   ELIF-PARA.
      IF WS-MULTIPLICATION IS GREATER THAN 500 THEN
         DISPLAY "MULT RESULT > 500"
      ELSE
         IF WS-MULTIPLICATION IS GREATER THAN 50 AND
            WS-MULTIPLICATION IS LESS THAN OR EQUAL TO 500 THEN
            DISPLAY "MULT RESULT > 50, BUT LESS THAN 500"
         ELSE
            DISPLAY "MULT RESULT <= 50"
         END-IF
      END-IF.
      GOBACK.