IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HELLO PIC XXXXXXXXXXXXXX VALUE 'HELLO, WORLD'.
PROCEDURE DIVISION.
MOVE FUNCTION LOWER-CASE(HELLO) TO HELLO.
DISPLAY HELLO
STOP RUN.