IDENTIFICATION DIVISION.
PROGRAM-ID. INPUTSAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 ITEM-NAME PIC X(20).

PROCEDURE DIVISION.
    DISPLAY "ITEM NAME を入力してください: ".
    ACCEPT ITEM-NAME.
    DISPLAY "ITEM:kanda" ITEM-NAME.
    STOP RUN.