Question

How to accept two numbers from a user and display the numbers in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        77 NUM1 PIC 9(2).                     
        77 NUM2 PIC 9(3).       
PROCEDURE DIVISION.
    ACCEPT NUM1.                      
    ACCEPT NUM2.                      
    DISPLAY "NUM1: " NUM1.                     
    DISPLAY "NUM2: " NUM2.
STOP RUN.



*> STDIN 
*>    8342
*>    95601


*> run:
*>
*> NUM1: 83
*> NUM2: 956 
*>

 

70+ SQL courses for beginners and professionals