Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,26 +0,0 @@
|
|||
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
|
||||
.
|
||||
Loading…
Add table
Add a link
Reference in a new issue