IDENTIFICATION DIVISION.
PROGRAM-ID. A-Strings.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP    PIC X(201).
01 S      PIC X(100).
01 T      PIC X(100).
01 S-LEN  PIC 9(3).
01 T-LEN  PIC 9(3).
 
PROCEDURE DIVISION.
  ACCEPT INP.
  UNSTRING INP DELIMITED ALL ' '
      INTO S   COUNT S-LEN
           T   COUNT T-LEN.
      
  DISPLAY  T(1:T-LEN) S(1:S-LEN).

  STOP RUN.
