fork download
copy 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. INPUTSAMPLE.
  3.  
  4. DATA DIVISION.
  5. WORKING-STORAGE SECTION.
  6. 01 ITEM-NAME PIC X(20).
  7.  
  8. PROCEDURE DIVISION.
  9.     DISPLAY "ITEM NAME を入力してください: ".
  10.     ACCEPT ITEM-NAME.
  11.     DISPLAY "ITEM:kanda" ITEM-NAME.
  12.     STOP RUN.
  13.  
Success #stdin #stdout 0.02s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ITEM NAME を入力してください: 
ITEM:kanda
https://ideone.com/edPjmz
language:
COBOL 85 (tinycobol-0.65.9)
created:
17 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!