identification division.

program-id. test-string.

data division.

working-storage section.

01 test1 pic x(10) value "kathryn".

01 test1a pic x(10) value all "*".

01 test2 pic x(10) value "miriam".

01 test3 pic x(10) value "reeves".

01 testing pic x(30) value spaces.

procedure division.

100-200.

string test1 delimited by " "

test3 delimited by " "

into testing.

display "testing = "testing.

string test1a delimited by " "

test3 delimited by " "

into testing.

display "testing = "testing.

string test1 delimited by " "

" " delimited by size

test3 delimited by " "

into testing.

display "testing = " testing.

string test1 delimited by " "

space delimited by size

test2 delimited by space

" " delimited by size

test3 delimited by " "

into testing.

display "testing = " testing.

string test3 delimited by " "

", " delimited by size

test1 delimited by " "

into testing.

display "testing = "testing.

move spaces to testing.

string test3 delimited by " "

", " delimited by size

test1 delimited by " "

into testing.

display "testing = "testing.

accept omitted.

stop run.