identification division.
program-id. abc103b.

data division.
working-storage section.
77 s pic x(100) value space.
77 t pic x(100) value space.
77 u pic x(200) value space.
77 c pic 9.

procedure division.
accept s.
accept t.
string t t delimited space into u.
inspect u tallying c for all s.
if c not = 0
  display 'Yes'
else
  display 'No'
end-if.
stop run.
