Question

How to accept a decimal number from a user and display the number in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        77 DECNUM  PIC 9(3).9(2).          
PROCEDURE DIVISION.
    ACCEPT DECNUM.                       
    DISPLAY DECNUM.              
STOP RUN.
 
 
*> STDIN
*>    312.95
 
 
*> run:
*>
*> 312.95
*>

 

70+ SQL courses for beginners and professionals

Answer 2

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        77 DECNUM  PIC 9999.999.                
PROCEDURE DIVISION.
    ACCEPT DECNUM.                       
    DISPLAY DECNUM.              
STOP RUN.
 
 
*> STDIN
*>    5012.861
 
 
*> run:
*>
*> 5012.861
*>

 

70+ SQL courses for beginners and professionals