Data commit

Task/Integer-comparison/COBOL/integer-comparison.cobol

@@ -0,0 +1,26 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Int-Compare.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  A PIC 9(10).
+       01  B PIC 9(10).
+
+       PROCEDURE DIVISION.
+           DISPLAY "First number: " WITH NO ADVANCING
+           ACCEPT A
+           DISPLAY "Second number: " WITH NO ADVANCING
+           ACCEPT B
+
+*          *> Note: Longer verbal forms may be used instead of symbols
+*          *> e.g. 'IS GREATER THAN' instead '<'
+           IF A < B
+               DISPLAY A " is less than " B
+           ELSE IF A = B
+               DISPLAY A " is equal to " B
+           ELSE IF A > B
+               DISPLAY A " is larger than " B
+           END-IF.
+
+           GOBACK
+           .