      * Sample COBOL program
       IDENTIFICATION DIVISION.
       PROGRAM-ID. hello.
       
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 User-Value        PIC X(10).
       
       PROCEDURE DIVISION.
           ACCEPT User-Value FROM ENVIRONMENT "USER"
           DISPLAY "Hello, " FUNCTION TRIM(User-Value) "!".
           STOP RUN.
