GET
  FILE="codeerfile".

desc all.

string beroep (a450).

compute beroep=info.

sort cases by beroep.

** EXACTE MATCH VIA TABLE-LOOKUP **.

match files /file=* /table='U:\)Research\Occupation_NL\source_2015.sav' in=exact
  /by beroep.

freq cbs isko isqo exact .

temp.
select if (exact eq 1).
desc cbs isko isqo exact .

** APPROXIMATE MATCH VIA PARALLEL FILES **.

rename vars (cbs isko isqo = cbsx iskox isqox).

match files /file=* /file='U:\)Research\Occupation_NL\source_2015.sav' in=source
  /by beroep.

temp.
select if (exact eq 1 ).
freq cbs isko isqo.

sort cases by beroep (a) isqo (d) isko (d) cbs (d).

do if (exact eq 0).
compute cbs=lag(cbs).
compute isko=lag(isko).
compute isqo=lag(isqo).
end if.

do if (exact eq 1).
recode cbsx  (100 thru 9999=copy) into cbs.
recode iskox (100 thru 9999=copy) into isko.
recode isqox (100 thru 9699=copy) into isqo.
end if.

temp.
select if (exact eq 0) .
freq cbs isko isqo.

temp.
select if (sysmiss(isqo) and source eq 0).
freq beroep.

select if (source eq 0).
freq cbs isko isqo exact.