IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL_PRO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A-NAME PIC A(30).
01 A-ID PIC 9(5) VALUE 98741.
PROCEDURE DIVISION.
MOVE 'Tom' TO A-NAME.
DISPLAY "Mame : "A-NAME.
DISPLAY "ID : "A-ID.
STOP RUN.
# run:
#
# Mame : Tom
# ID : 98741
#