fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. sample.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 		WORKING-STORAGE SECTION.
  8. 		77 EXITED PIC 9 VALUE 0.
  9. 		77 CHOICE PIC 9.
  10. 		77 X PIC 9(5).
  11. 		77 Y PIC 9(5).
  12. 		77 S PIC 9(5).
  13.  
  14. 	PROCEDURE DIVISION.
  15. 		PERFORM PMENU UNTIL EXITED = 1.
  16. 		STOP RUN.
  17. 		PMENU.
  18. 		DISPLAY " MENU ".
  19. 		DISPLAY "[1] Add two numbers ".
  20. 		DISPLAY " Choice : " WITH NO ADVANCING.
  21. 		ACCEPT CHOICE.
  22. 		IF CHOICE = 1
  23. 			DISPLAY " Enter X: " WITH NO ADVANCING
  24. 			ACCEPT X
  25. 			DISPLAY " Enter Y: " WITH NO ADVANCING
  26. 			ACCEPT Y
  27. 			COMPUTE S = X + Y
  28. 			DISPLAY "Sum is " S
  29. 		ELSE
  30. 			MOVE 1 TO EXITED
  31. 		END-IF.
  32.  
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
1
2
stdout
copy 
 MENU 
[1] Add two numbers 
 Choice :  Enter X:  Enter Y: Sum is 00002
 MENU 
[1] Add two numbers 
 Choice :
https://ideone.com/oo55io
language:
Cobol (gnucobol 2.2.0)
created:
17 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!