Question

How to input an age in COBOL

Answer 1

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ASK-AGE.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 AGE PIC 99.
       PROCEDURE DIVISION.
           DISPLAY "How old are you?"
           ACCEPT AGE
           DISPLAY "You are " AGE " years old."
           STOP RUN.

            
            
        *> run:
        *> 
        *> How old are you?
        *> 42
        *> You are 42 years old.
        *>

 

70+ SQL courses for beginners and professionals