 IDENTIFICATION DIVISION.
 PROGRAM-ID.     TEST149.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
  01 INP      PIC X(300).
  01 S        PIC X(100).
  01 T        PIC X(100).

 PROCEDURE DIVISION.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ALL ' '
      INTO S T.

  DISPLAY FUNCTION TRIM(T) FUNCTION TRIM(S).
 STOP RUN.