Centimeters to Inches

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HOMEWORK.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 IN-VAR    PIC X(10) VALUE '          '.
000600 01 CM        PIC S9(10) USAGE COMP.
000700 01 INCHES    PIC S9(10) USAGE COMP.
001000 PROCEDURE DIVISION.
001100     DISPLAY "CENTIMETERS TO INCHES PROGRAM".
001400     DISPLAY "ENTER HEIGHT IN CM: ".
001500     ACCEPT IN-VAR FROM CONSOLE.
001600     COMPUTE CM = FUNCTION NUMVAL(IN-VAR).
001700     DIVIDE 2.54 INTO CM GIVING INCHES.
001800     DISPLAY "HEIGHT IN INCHES: " INCHES.
003000     STOP RUN.