IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
*> your code goes here
STOP RUN.
CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCgkKCVBST0NFRFVSRSBESVZJU0lPTi4KCSo+CXlvdXIgY29kZSBnb2VzIGhlcmUKCQlTVE9QIFJVTi4=
MDAwMTAwIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgowMDAyMDAgUFJPR1JBTS1JRC4gSU5QVVRTQU1QTEUuCjAwMDMwMCBEQVRBIERJVklTSU9OLgowMDA0MDAgV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCjAwMDUwMCAwMSBJVEVNLU5BTUUgUElDIFgoMjApLgowMDA2MDAgUFJPQ0VEVVJFIERJVklTSU9OLgowMDA3MDAKQUNDRVBUIElURU0tTkFNRS4KMDAwODAwCjAwMDkwMApESVNQTEFZICZxdW90O0lURU06ICZxdW90OyBJVEVNLU5BTUUuClNUT1AgUlVOLg==
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. INPUTSAMPLE.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 ITEM-NAME PIC X(20).
000600 PROCEDURE DIVISION.
000700
ACCEPT ITEM-NAME.
000800
000900
DISPLAY "ITEM: " ITEM-NAME.
STOP RUN.