* Sample COBOL program
       IDENTIFICATION DIVISION.
       PROGRAM-ID. 'HELLO'.
       DATA DIVISION.
      *
       WORKING-STORAGE SECTION.
       78  input-msg value 'Input name to greet: '.
       77  output-msg pic x(80).
      *
       LOCAL-STORAGE SECTION.
       77  user-input pic x(50).
       77  dummy-var  pic x(01). 
      *
       PROCEDURE DIVISION.
           DISPLAY input-msg
           END-DISPLAY
           ACCEPT user-input
           END-ACCEPT
           IF user-input = SPACES
              DISPLAY "Hello World!"
              END-DISPLAY
           ELSE
              INSPECT user-input REPLACING TRAILING SPACES BY LOW-VALUE
              MOVE SPACES TO output-msg
              STRING 'Hello "'  DELIMITED BY SIZE
                     user-input DELIMITED BY LOW-VALUE
                     '"!'       DELIMITED BY SIZE
                     INTO output-msg
              END-STRING
              DISPLAY FUNCTION TRIM (output-msg)
              END-DISPLAY
           END-IF
      *
           ACCEPT dummy-var END-ACCEPT
      *
           STOP RUN.