IDENTIFICATION DIVISION.
PROGRAM-ID. hello.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ws-subject PIC X(20).
PROCEDURE DIVISION.
para-main.
MOVE 'Haskell' TO ws-subject
PERFORM para-like
MOVE 'Perl' TO ws-subject
PERFORM para-like
MOVE 'Raku' TO ws-subject
PERFORM para-like
STOP RUN
.
para-like.
DISPLAY 'I like ' FUNCTION TRIM(ws-subject) '!'
.