/*SHORT TITLE:  see pages 13, 31 of codebook  */
set width 80.

compute rel = relig
DO IF (COUNTRY = 'NET')
recode rel (10148=3)
end if
DO IF (COUNTRY = 'FRA')
COMPUTE REL = 1
end if
* IN SOME COUNTRIES THERE EXISTS ALMOST NO RELIGIOUS DIVERSITY,
* FOR THIS REASON IN SURVEYS NO QUESTIONS HAVE BEEN ASKED ON RELIGION.
* THIS IS NO REAL 'MISSING' DATA, WE THEREFORE ASSING ALL
* RESPONDENTS THE 'STATE-RELIGION'
DO IF (COUNTRY = 'DEN' OR COUNTRY = 'FIN' OR COUNTRY = 'NOR' OR
       COUNTRY = 'SWE')
COMPUTE REL = 2
end if
DO IF (COUNTRY = 'ITA')
COMPUTE REL = 1
end if


Recode rel
 (-96,-97,-98,-99=-1)
 (00101=1)(00102=2)(00103=2)(00105=4)(00106=4)
 (00107=0)
 (00201=1)(00202=2)(00206=4)(00207=0)
 (00301=1)(00302=2)(00303=3)(00304=4)(00305=0)
 (00401=1)(00402=2)(00406=4)(00407=0)
 (00501=1)(00502=2)(00503=2)(00504=4)
 (00505=4)(00506=4)(00507=0)
 (00601=1)(00602=0)(00606=4)
 (00701=1)(00702=2)(00705=4)(00706=4)(00707=0)
 (00801=2)(00802=2)(00806=4)(00807=0)
 (01401=2)(01402=1)(01403=2)(01404=2)(01405=2)
 (01406=4)(01407=4)(01408=4)(01409=0)
 (01701=1)(01702=2)(01703=3)(01704=4)(01705=0)
 (03300=2)(03301=1)(03302=2)(03303=2)(03304=2)
 (03305=2)(03306=0)(03308=4)
 (03401=0)(03402=0)(03403=2)(03404=1)(03405=2)
 (03406=2)(03407=4)
 (03501=1)(03502=4)(03503=2)(03504=2)(03505=2)
 (03506=2)(03507=2)(03508=4)(03509=2)(03510=2)
 (03511=2)(03512=2)(03513=4)(03514=4)(03515=2)
 (03516=2)(03517=2)(03518=2)(03519=2)(03520=4)
 (03521=0)(03522=4)(03523=4)(03524=4)(03525=4)
 (03601=1)(03602=2)(03603=2)(03604=2)(03605=2)
 (03606=2)(03607=0)(03608=4)(03609=4)
 (03900=0)
 (03901=1)(03902=2)(03903=2)(03904=2)(03905=2)
 (03906=2)(03907=4)(03908=4)(03909=4)
 (03910=4)
 (03911=4)(03912=4)(03913=4)(03914=4)(03915=4)
 (03916=4)(03917=4)(03918=4)(03919=4)
 (03920=4)
 (03928=2)(03929=2)(03930=4)(03931=4)(03932=4)
 (03933=4)(03934=0)
 (04400=0)(04401=2)(04402=1)(04403=4)(04407=4)
 (04601=2)(04602=1)(04603=4)(04604=4)(04605=0)
 (04501=1)(04502=2)(04503=4)(04504=0)
 (5601=1)(5602=2)(5603=3)(5604=4)(5605=0)
 (06001=2)(06002=1)(06003=4)(06004=0)
 (06201=1)(06205=0)(06208=4)
 (06301=1)(06302=0)(06303=4)
 (06501=2)(06502=2)(06503=2)(06504=2)(06505=2)
 (06506=1)(06507=4)(06508=0)(06509=4)(06510=2)
 (06701=1)(06702=1)(06703=0)
 (06800=0)
 (06810=4)(06811=4)(06816=4)(06817=4)(06820=4)
 (06821=4)(06822=4)(06823=4)(06824=4)(06825=4)
 (06826=4)(06828=4)(06829=4)(06831=4)(06832=4)
 (06833=4)(06840=4)(06842=4)(06843=4)(06845=4)
 (06846=4)(06847=4)(06848=4)(06849=4)(06851=4)
 (06897=4)
 (07401=4)(07402=4)(07403=4)(07404=4)(07405=4)
 (07406=4)(07407=0)
 (09601=3)(09602=2)(09603=1)(09604=4)(09605=0)
 (09801=1)(09802=2)(09803=4)(09804=0)
 (10110=1)(10111=1)(10120=4)(10130=4)(10140=2)
 (10141=2)(10142=2)(10143=2)(10144=2)(10145=2)(10146=2)
 (10147=2)(10148=2)(10149=2)(10150=4)(10151=4)
 (10152=4)(10153=4)(10154=2)(10160=2)(10190=4)
 (10191=4)(10192=4)(10193=4)(10196=0)
 (11201=2)(11202=1)(11203=2)(11204=2)(11205=4)
 (11206=4)(11207=4)(11208=0)
 (12610=1)(12630=4)(12641=2)(12643=2)(12644=2)
 (12648=3)(12649=2)(12690=0)(12691=4)(12692=4)
 (14401=2)(14402=2)(14403=2)(14404=2)(14405=2)
 (14406=2)(14407=1)(14408=4)(14409=4)(14410=0)
 (14501=2)(14502=2)(14503=2)(14504=2)(14505=1)
 (14506=4)(14507=4)(14509=0)
 (14701=1)(14702=2)(14703=2)(14704=2)(14705=2)
 (14706=4)(14709=0)
 (14800=0)(14801=4)(14802=1)(14803=2)(14804=2)
 (14805=2)(14806=2)(14807=2)(14808=4)(14809=4)
 (14812=4)(14813=4)(14814=4)(14815=4)(14897=4)
 (15001=2)(15002=2)(15003=1)(15004=4)(15005=4)
 (15006=0)
 (16401=2)(16402=1)(16403=4)(16404=0)(16405=4)
 (19601=1)(19602=2)(19603=4)(19604=4)(19605=4)
 (19606=0)
 (19801=1)(19802=2)(19803=4)(19805=4)(19806=0)
 (20701=2)(20702=2)(20704=4)(20705=0)
 (21401=1)(21402=2)(21403=2)(21404=2)(21405=2)
 (21406=2)(21407=3)(21408=3)(21409=3)(21410=3)
 (21411=3)(21412=3)(21413=4)(21414=0)
 (21501=-1)(21502=-1)(21503=1)(21504=4)(21505=0)
 (228100 THRU 228149 = 2)(228150 THRU 228156 = 4)(228200 = 1)
 (228300, 228700 THRU 228719, 228720 THRU 228729, 228790, 228800 = 4)
 (23901=0)(23902=1)(23903=2)(23904=3)(23905,23906=4)

compute srel = srelig
DO IF (COUNTRY = 'NET')
recode srel (10148=3)
end if
DO IF (COUNTRY = 'FRA')
COMPUTE SREL = 1
end if
* IN SOME COUNTRIES THERE EXISTS ALMOST NO RELIGIOUS DIVERSITY,
* FOR THIS REASON IN SURVEYS NO QUESTIONS HAVE BEEN ASKED ON RELIGION.
* THIS IS NO REAL 'MISSING' DATA, WE THEREFORE ASSING ALL
* RESPONDENTS THE 'STATE-RELIGION'
DO IF (COUNTRY = 'DEN' OR COUNTRY = 'FIN' OR COUNTRY = 'NOR' OR
       COUNTRY = 'SWE')
COMPUTE SREL = 2
end if
DO IF (COUNTRY = 'ITA')
COMPUTE SREL = 1
end if

Recode srel
 (-96,-97,-98,-99=-1)
 (00101=1)(00102=2)(00103=2)(00105=4)(00106=4)
 (00107=0)
 (00201=1)(00202=2)(00206=4)(00207=0)
 (00301=1)(00302=2)(00303=3)(00304=4)(00305=0)
 (00401=1)(00402=2)(00406=4)(00407=0)
 (00501=1)(00502=2)(00503=2)(00504=4)
 (00505=4)(00506=4)(00507=0)
 (00601=1)(00602=0)(00606=4)
 (00701=1)(00702=2)(00705=4)(00706=4)(00707=0)
 (00801=2)(00802=2)(00806=4)(00807=0)
 (01401=2)(01402=1)(01403=2)(01404=2)(01405=2)
 (01406=4)(01407=4)(01408=4)(01409=0)
 (01701=1)(01702=2)(01703=3)(01704=4)(01705=0)
 (03300=2)(03301=1)(03302=2)(03303=2)(03304=2)
 (03305=2)(03306=0)(03308=4)
 (03401=0)(03402=0)(03403=2)(03404=1)(03405=2)
 (03406=2)(03407=4)
 (03501=1)(03502=4)(03503=2)(03504=2)(03505=2)
 (03506=2)(03507=2)(03508=4)(03509=2)(03510=2)
 (03511=2)(03512=2)(03513=4)(03514=4)(03515=2)
 (03516=2)(03517=2)(03518=2)(03519=2)(03520=4)
 (03521=0)(03522=4)(03523=4)(03524=4)(03525=4)
 (03601=1)(03602=2)(03603=2)(03604=2)(03605=2)
 (03606=2)(03607=0)(03608=4)(03609=4)
 (03900=0)
 (03901=1)(03902=2)(03903=2)(03904=2)(03905=2)
 (03906=2)(03907=4)(03908=4)(03909=4)
 (03910=4)
 (03911=4)(03912=4)(03913=4)(03914=4)(03915=4)
 (03916=4)(03917=4)(03918=4)(03919=4)
 (03920=4)
 (03928=2)(03929=2)(03930=4)(03931=4)(03932=4)
 (03933=4)(03934=0)
 (04400=0)(04401=2)(04402=1)(04403=4)(04407=4)
 (04601=2)(04602=1)(04603=4)(04604=4)(04605=0)
 (04501=1)(04502=2)(04503=4)(04504=0)
 (5601=1)(5602=2)(5603=3)(5604=4)(5605=0)
 (06001=2)(06002=1)(06003=4)(06004=0)
 (06201=1)(06205=0)(06208=4)
 (06301=1)(06302=0)(06303=4)
 (06501=2)(06502=2)(06503=2)(06504=2)(06505=2)
 (06506=1)(06507=4)(06508=0)(06509=4)(06510=2)
 (06701=1)(06702=1)(06703=0)
 (06800=0)
 (06810=4)(06811=4)(06816=4)(06817=4)(06820=4)
 (06821=4)(06822=4)(06823=4)(06824=4)(06825=4)
 (06826=4)(06828=4)(06829=4)(06831=4)(06832=4)
 (06833=4)(06840=4)(06842=4)(06843=4)(06845=4)
 (06846=4)(06847=4)(06848=4)(06849=4)(06851=4)
 (06897=4)
 (07401=4)(07402=4)(07403=4)(07404=4)(07405=4)
 (07406=4)(07407=0)
 (09601=3)(09602=2)(09603=1)(09604=4)(09605=0)
 (09801=1)(09802=2)(09803=4)(09804=0)
 (10110=1)(10111=1)(10120=4)(10130=4)(10140=2)
 (10141=2)(10142=2)(10143=2)(10144=2)(10145=2)(10146=2)
 (10147=2)(10148=2)(10149=2)(10150=4)(10151=4)
 (10152=4)(10153=4)(10154=2)(10160=2)(10190=4)
 (10191=4)(10192=4)(10193=4)(10196=0)
 (11201=2)(11202=1)(11203=2)(11204=2)(11205=4)
 (11206=4)(11207=4)(11208=0)
 (12610=1)(12630=4)(12641=2)(12643=2)(12644=2)
 (12648=3)(12649=2)(12690=0)(12691=4)(12692=4)
 (14401=2)(14402=2)(14403=2)(14404=2)(14405=2)
 (14406=2)(14407=1)(14408=4)(14409=4)(14410=0)
 (14501=2)(14502=2)(14503=2)(14504=2)(14505=1)
 (14506=4)(14507=4)(14509=0)
 (14701=1)(14702=2)(14703=2)(14704=2)(14705=2)
 (14706=4)(14709=0)
 (14800=0)(14801=4)(14802=1)(14803=2)(14804=2)
 (14805=2)(14806=2)(14807=2)(14808=4)(14809=4)
 (14812=4)(14813=4)(14814=4)(14815=4)(14897=4)
 (15001=2)(15002=2)(15003=1)(15004=4)(15005=4)
 (15006=0)
 (16401=2)(16402=1)(16403=4)(16404=0)(16405=4)
 (19601=1)(19602=2)(19603=4)(19604=4)(19605=4)
 (19606=0)
 (19801=1)(19802=2)(19803=4)(19805=4)(19806=0)
 (20701=2)(20702=2)(20704=4)(20705=0)
 (21401=1)(21402=2)(21403=2)(21404=2)(21405=2)
 (21406=2)(21407=3)(21408=3)(21409=3)(21410=3)
 (21411=3)(21412=3)(21413=4)(21414=0)
 (21501=-1)(21502=-1)(21503=1)(21504=4)(21505=0)
 (228100 THRU 228149 = 2)(228150 THRU 228156 = 4)(228200 = 1)
 (228300, 228700 THRU 228719, 228720 THRU 228729, 228790, 228800 = 4)
 (23901=0)(23902=1)(23903=2)(23904=3)(23905,23906=4)


compute fmrel = fmrelig
DO IF (COUNTRY = 'NET')
recode fmrel (10148=3)
end if
DO IF (COUNTRY = 'FRA')
COMPUTE fmrel = 1
end if
* IN SOME COUNTRIES THERE EXISTS ALMOST NO RELIGIOUS DIVERSITY,
* FOR THIS REASON IN SURVEYS NO QUESTIONS HAVE BEEN ASKED ON RELIGION.
* THIS IS NO REAL 'MISSING' DATA, WE THEREFORE ASSING ALL
* RESPONDENTS THE 'STATE-RELIGION'
DO IF (COUNTRY = 'DEN' OR COUNTRY = 'FIN' OR COUNTRY = 'NOR' OR
       COUNTRY = 'SWE')
COMPUTE fmrel = 2
end if
DO IF (COUNTRY = 'ITA')
COMPUTE fmrel = 1
end if

Recode fmrel
 (-96,-97,-98,-99=-1)
 (00101=1)(00102=2)(00103=2)(00105=4)(00106=4)
 (00107=0)
 (00201=1)(00202=2)(00206=4)(00207=0)
 (00301=1)(00302=2)(00303=3)(00304=4)(00305=0)
 (00401=1)(00402=2)(00406=4)(00407=0)
 (00501=1)(00502=2)(00503=2)(00504=4)
 (00505=4)(00506=4)(00507=0)
 (00601=1)(00602=0)(00606=4)
 (00701=1)(00702=2)(00705=4)(00706=4)(00707=0)
 (00801=2)(00802=2)(00806=4)(00807=0)
 (01401=2)(01402=1)(01403=2)(01404=2)(01405=2)
 (01406=4)(01407=4)(01408=4)(01409=0)
 (01701=1)(01702=2)(01703=3)(01704=4)(01705=0)
 (03300=2)(03301=1)(03302=2)(03303=2)(03304=2)
 (03305=2)(03306=0)(03308=4)
 (03401=0)(03402=0)(03403=2)(03404=1)(03405=2)
 (03406=2)(03407=4)
 (03501=1)(03502=4)(03503=2)(03504=2)(03505=2)
 (03506=2)(03507=2)(03508=4)(03509=2)(03510=2)
 (03511=2)(03512=2)(03513=4)(03514=4)(03515=2)
 (03516=2)(03517=2)(03518=2)(03519=2)(03520=4)
 (03521=0)(03522=4)(03523=4)(03524=4)(03525=4)
 (03601=1)(03602=2)(03603=2)(03604=2)(03605=2)
 (03606=2)(03607=0)(03608=4)(03609=4)
 (03900=0)
 (03901=1)(03902=2)(03903=2)(03904=2)(03905=2)
 (03906=2)(03907=4)(03908=4)(03909=4)
 (03910=4)
 (03911=4)(03912=4)(03913=4)(03914=4)(03915=4)
 (03916=4)(03917=4)(03918=4)(03919=4)
 (03920=4)
 (03928=2)(03929=2)(03930=4)(03931=4)(03932=4)
 (03933=4)(03934=0)
 (04400=0)(04401=2)(04402=1)(04403=4)(04407=4)
 (04601=2)(04602=1)(04603=4)(04604=4)(04605=0)
 (04501=1)(04502=2)(04503=4)(04504=0)
 (5601=1)(5602=2)(5603=3)(5604=4)(5605=0)
 (06001=2)(06002=1)(06003=4)(06004=0)
 (06201=1)(06205=0)(06208=4)
 (06301=1)(06302=0)(06303=4)
 (06501=2)(06502=2)(06503=2)(06504=2)(06505=2)
 (06506=1)(06507=4)(06508=0)(06509=4)(06510=2)
 (06701=1)(06702=1)(06703=0)
 (06800=0)
 (06810=4)(06811=4)(06816=4)(06817=4)(06820=4)
 (06821=4)(06822=4)(06823=4)(06824=4)(06825=4)
 (06826=4)(06828=4)(06829=4)(06831=4)(06832=4)
 (06833=4)(06840=4)(06842=4)(06843=4)(06845=4)
 (06846=4)(06847=4)(06848=4)(06849=4)(06851=4)
 (06897=4)
 (07401=4)(07402=4)(07403=4)(07404=4)(07405=4)
 (07406=4)(07407=0)
 (09601=3)(09602=2)(09603=1)(09604=4)(09605=0)
 (09801=1)(09802=2)(09803=4)(09804=0)
 (10110=1)(10111=1)(10120=4)(10130=4)(10140=2)
 (10141=2)(10142=2)(10143=2)(10144=2)(10145=2)(10146=2)
 (10147=2)(10148=2)(10149=2)(10150=4)(10151=4)
 (10152=4)(10153=4)(10154=2)(10160=2)(10190=4)
 (10191=4)(10192=4)(10193=4)(10196=0)
 (11201=2)(11202=1)(11203=2)(11204=2)(11205=4)
 (11206=4)(11207=4)(11208=0)
 (12610=1)(12630=4)(12641=2)(12643=2)(12644=2)
 (12648=3)(12649=2)(12690=0)(12691=4)(12692=4)
 (14401=2)(14402=2)(14403=2)(14404=2)(14405=2)
 (14406=2)(14407=1)(14408=4)(14409=4)(14410=0)
 (14501=2)(14502=2)(14503=2)(14504=2)(14505=1)
 (14506=4)(14507=4)(14509=0)
 (14701=1)(14702=2)(14703=2)(14704=2)(14705=2)
 (14706=4)(14709=0)
 (14800=0)(14801=4)(14802=1)(14803=2)(14804=2)
 (14805=2)(14806=2)(14807=2)(14808=4)(14809=4)
 (14812=4)(14813=4)(14814=4)(14815=4)(14897=4)
 (15001=2)(15002=2)(15003=1)(15004=4)(15005=4)
 (15006=0)
 (16401=2)(16402=1)(16403=4)(16404=0)(16405=4)
 (19601=1)(19602=2)(19603=4)(19604=4)(19605=4)
 (19606=0)
 (19801=1)(19802=2)(19803=4)(19805=4)(19806=0)
 (20701=2)(20702=2)(20704=4)(20705=0)
 (21401=1)(21402=2)(21403=2)(21404=2)(21405=2)
 (21406=2)(21407=3)(21408=3)(21409=3)(21410=3)
 (21411=3)(21412=3)(21413=4)(21414=0)
 (21501=-1)(21502=-1)(21503=1)(21504=4)(21505=0)
 (228100 THRU 228149 = 2)(228150 THRU 228156 = 4)(228200 = 1)
 (228300, 228700 THRU 228719, 228720 THRU 228729, 228790, 228800 = 4)
 (23901=0)(23902=1)(23903=2)(23904=3)(23905,23906=4)


compute frel = frelig
DO IF (COUNTRY = 'NET')
recode frel (10148=3)
end if
DO IF (COUNTRY = 'FRA')
COMPUTE frel = 1
end if
* IN SOME COUNTRIES THERE EXISTS ALMOST NO RELIGIOUS DIVERSITY,
* FOR THIS REASON IN SURVEYS NO QUESTIONS HAVE BEEN ASKED ON RELIGION.
* THIS IS NO REAL 'MISSING' DATA, WE THEREFORE ASSING ALL
* RESPONDENTS THE 'STATE-RELIGION'
DO IF (COUNTRY = 'DEN' OR COUNTRY = 'FIN' OR COUNTRY = 'NOR' OR
       COUNTRY = 'SWE')
COMPUTE frel = 2
end if
DO IF (COUNTRY = 'ITA')
COMPUTE frel = 1
end if

Recode frel
 (-96,-97,-98,-99=-1)
 (00101=1)(00102=2)(00103=2)(00105=4)(00106=4)
 (00107=0)
 (00201=1)(00202=2)(00206=4)(00207=0)
 (00301=1)(00302=2)(00303=3)(00304=4)(00305=0)
 (00401=1)(00402=2)(00406=4)(00407=0)
 (00501=1)(00502=2)(00503=2)(00504=4)
 (00505=4)(00506=4)(00507=0)
 (00601=1)(00602=0)(00606=4)
 (00701=1)(00702=2)(00705=4)(00706=4)(00707=0)
 (00801=2)(00802=2)(00806=4)(00807=0)
 (01401=2)(01402=1)(01403=2)(01404=2)(01405=2)
 (01406=4)(01407=4)(01408=4)(01409=0)
 (01701=1)(01702=2)(01703=3)(01704=4)(01705=0)
 (03300=2)(03301=1)(03302=2)(03303=2)(03304=2)
 (03305=2)(03306=0)(03308=4)
 (03401=0)(03402=0)(03403=2)(03404=1)(03405=2)
 (03406=2)(03407=4)
 (03501=1)(03502=4)(03503=2)(03504=2)(03505=2)
 (03506=2)(03507=2)(03508=4)(03509=2)(03510=2)
 (03511=2)(03512=2)(03513=4)(03514=4)(03515=2)
 (03516=2)(03517=2)(03518=2)(03519=2)(03520=4)
 (03521=0)(03522=4)(03523=4)(03524=4)(03525=4)
 (03601=1)(03602=2)(03603=2)(03604=2)(03605=2)
 (03606=2)(03607=0)(03608=4)(03609=4)
 (03900=0)
 (03901=1)(03902=2)(03903=2)(03904=2)(03905=2)
 (03906=2)(03907=4)(03908=4)(03909=4)
 (03910=4)
 (03911=4)(03912=4)(03913=4)(03914=4)(03915=4)
 (03916=4)(03917=4)(03918=4)(03919=4)
 (03920=4)
 (03928=2)(03929=2)(03930=4)(03931=4)(03932=4)
 (03933=4)(03934=0)
 (04400=0)(04401=2)(04402=1)(04403=4)(04407=4)
 (04601=2)(04602=1)(04603=4)(04604=4)(04605=0)
 (04501=1)(04502=2)(04503=4)(04504=0)
 (5601=1)(5602=2)(5603=3)(5604=4)(5605=0)
 (06001=2)(06002=1)(06003=4)(06004=0)
 (06201=1)(06205=0)(06208=4)
 (06301=1)(06302=0)(06303=4)
 (06501=2)(06502=2)(06503=2)(06504=2)(06505=2)
 (06506=1)(06507=4)(06508=0)(06509=4)(06510=2)
 (06701=1)(06702=1)(06703=0)
 (06800=0)
 (06810=4)(06811=4)(06816=4)(06817=4)(06820=4)
 (06821=4)(06822=4)(06823=4)(06824=4)(06825=4)
 (06826=4)(06828=4)(06829=4)(06831=4)(06832=4)
 (06833=4)(06840=4)(06842=4)(06843=4)(06845=4)
 (06846=4)(06847=4)(06848=4)(06849=4)(06851=4)
 (06897=4)
 (07401=4)(07402=4)(07403=4)(07404=4)(07405=4)
 (07406=4)(07407=0)
 (09601=3)(09602=2)(09603=1)(09604=4)(09605=0)
 (09801=1)(09802=2)(09803=4)(09804=0)
 (10110=1)(10111=1)(10120=4)(10130=4)(10140=2)
 (10141=2)(10142=2)(10143=2)(10144=2)(10145=2)(10146=2)
 (10147=2)(10148=2)(10149=2)(10150=4)(10151=4)
 (10152=4)(10153=4)(10154=2)(10160=2)(10190=4)
 (10191=4)(10192=4)(10193=4)(10196=0)
 (11201=2)(11202=1)(11203=2)(11204=2)(11205=4)
 (11206=4)(11207=4)(11208=0)
 (12610=1)(12630=4)(12641=2)(12643=2)(12644=2)
 (12648=3)(12649=2)(12690=0)(12691=4)(12692=4)
 (14401=2)(14402=2)(14403=2)(14404=2)(14405=2)
 (14406=2)(14407=1)(14408=4)(14409=4)(14410=0)
 (14501=2)(14502=2)(14503=2)(14504=2)(14505=1)
 (14506=4)(14507=4)(14509=0)
 (14701=1)(14702=2)(14703=2)(14704=2)(14705=2)
 (14706=4)(14709=0)
 (14800=0)(14801=4)(14802=1)(14803=2)(14804=2)
 (14805=2)(14806=2)(14807=2)(14808=4)(14809=4)
 (14812=4)(14813=4)(14814=4)(14815=4)(14897=4)
 (15001=2)(15002=2)(15003=1)(15004=4)(15005=4)
 (15006=0)
 (16401=2)(16402=1)(16403=4)(16404=0)(16405=4)
 (19601=1)(19602=2)(19603=4)(19604=4)(19605=4)
 (19606=0)
 (19801=1)(19802=2)(19803=4)(19805=4)(19806=0)
 (20701=2)(20702=2)(20704=4)(20705=0)
 (21401=1)(21402=2)(21403=2)(21404=2)(21405=2)
 (21406=2)(21407=3)(21408=3)(21409=3)(21410=3)
 (21411=3)(21412=3)(21413=4)(21414=0)
 (21501=-1)(21502=-1)(21503=1)(21504=4)(21505=0)
 (228100 THRU 228149 = 2)(228150 THRU 228156 = 4)(228200 = 1)
 (228300, 228700 THRU 228719, 228720 THRU 228729, 228790, 228800 = 4)
 (23901=0)(23902=1)(23903=2)(23904=3)(23905,23906=4)

compute mrel = mrelig
DO IF (COUNTRY = 'NET')
recode mrel (10148=3)
end if
DO IF (COUNTRY = 'FRA')
COMPUTE mrel = 1
end if
* IN SOME COUNTRIES THERE EXISTS ALMOST NO RELIGIOUS DIVERSITY,
* FOR THIS REASON IN SURVEYS NO QUESTIONS HAVE BEEN ASKED ON RELIGION.
* THIS IS NO REAL 'MISSING' DATA, WE THEREFORE ASSING ALL
* RESPONDENTS THE 'STATE-RELIGION'
DO IF (COUNTRY = 'DEN' OR COUNTRY = 'FIN' OR COUNTRY = 'NOR' OR
       COUNTRY = 'SWE')
COMPUTE mrel = 2
end if
DO IF (COUNTRY = 'ITA')
COMPUTE mrel = 1
end if

Recode mrel
 (-96,-97,-98,-99=-1)
 (00101=1)(00102=2)(00103=2)(00105=4)(00106=4)
 (00107=0)
 (00201=1)(00202=2)(00206=4)(00207=0)
 (00301=1)(00302=2)(00303=3)(00304=4)(00305=0)
 (00401=1)(00402=2)(00406=4)(00407=0)
 (00501=1)(00502=2)(00503=2)(00504=4)
 (00505=4)(00506=4)(00507=0)
 (00601=1)(00602=0)(00606=4)
 (00701=1)(00702=2)(00705=4)(00706=4)(00707=0)
 (00801=2)(00802=2)(00806=4)(00807=0)
 (01401=2)(01402=1)(01403=2)(01404=2)(01405=2)
 (01406=4)(01407=4)(01408=4)(01409=0)
 (01701=1)(01702=2)(01703=3)(01704=4)(01705=0)
 (03300=2)(03301=1)(03302=2)(03303=2)(03304=2)
 (03305=2)(03306=0)(03308=4)
 (03401=0)(03402=0)(03403=2)(03404=1)(03405=2)
 (03406=2)(03407=4)
 (03501=1)(03502=4)(03503=2)(03504=2)(03505=2)
 (03506=2)(03507=2)(03508=4)(03509=2)(03510=2)
 (03511=2)(03512=2)(03513=4)(03514=4)(03515=2)
 (03516=2)(03517=2)(03518=2)(03519=2)(03520=4)
 (03521=0)(03522=4)(03523=4)(03524=4)(03525=4)
 (03601=1)(03602=2)(03603=2)(03604=2)(03605=2)
 (03606=2)(03607=0)(03608=4)(03609=4)
 (03900=0)
 (03901=1)(03902=2)(03903=2)(03904=2)(03905=2)
 (03906=2)(03907=4)(03908=4)(03909=4)
 (03910=4)
 (03911=4)(03912=4)(03913=4)(03914=4)(03915=4)
 (03916=4)(03917=4)(03918=4)(03919=4)
 (03920=4)
 (03928=2)(03929=2)(03930=4)(03931=4)(03932=4)
 (03933=4)(03934=0)
 (04400=0)(04401=2)(04402=1)(04403=4)(04407=4)
 (04601=2)(04602=1)(04603=4)(04604=4)(04605=0)
 (04501=1)(04502=2)(04503=4)(04504=0)
 (5601=1)(5602=2)(5603=3)(5604=4)(5605=0)
 (06001=2)(06002=1)(06003=4)(06004=0)
 (06201=1)(06205=0)(06208=4)
 (06301=1)(06302=0)(06303=4)
 (06501=2)(06502=2)(06503=2)(06504=2)(06505=2)
 (06506=1)(06507=4)(06508=0)(06509=4)(06510=2)
 (06701=1)(06702=1)(06703=0)
 (06800=0)
 (06810=4)(06811=4)(06816=4)(06817=4)(06820=4)
 (06821=4)(06822=4)(06823=4)(06824=4)(06825=4)
 (06826=4)(06828=4)(06829=4)(06831=4)(06832=4)
 (06833=4)(06840=4)(06842=4)(06843=4)(06845=4)
 (06846=4)(06847=4)(06848=4)(06849=4)(06851=4)
 (06897=4)
 (07401=4)(07402=4)(07403=4)(07404=4)(07405=4)
 (07406=4)(07407=0)
 (09601=3)(09602=2)(09603=1)(09604=4)(09605=0)
 (09801=1)(09802=2)(09803=4)(09804=0)
 (10110=1)(10111=1)(10120=4)(10130=4)(10140=2)
 (10141=2)(10142=2)(10143=2)(10144=2)(10145=2)(10146=2)
 (10147=2)(10148=2)(10149=2)(10150=4)(10151=4)
 (10152=4)(10153=4)(10154=2)(10160=2)(10190=4)
 (10191=4)(10192=4)(10193=4)(10196=0)
 (11201=2)(11202=1)(11203=2)(11204=2)(11205=4)
 (11206=4)(11207=4)(11208=0)
 (12610=1)(12630=4)(12641=2)(12643=2)(12644=2)
 (12648=3)(12649=2)(12690=0)(12691=4)(12692=4)
 (14401=2)(14402=2)(14403=2)(14404=2)(14405=2)
 (14406=2)(14407=1)(14408=4)(14409=4)(14410=0)
 (14501=2)(14502=2)(14503=2)(14504=2)(14505=1)
 (14506=4)(14507=4)(14509=0)
 (14701=1)(14702=2)(14703=2)(14704=2)(14705=2)
 (14706=4)(14709=0)
 (14800=0)(14801=4)(14802=1)(14803=2)(14804=2)
 (14805=2)(14806=2)(14807=2)(14808=4)(14809=4)
 (14812=4)(14813=4)(14814=4)(14815=4)(14897=4)
 (15001=2)(15002=2)(15003=1)(15004=4)(15005=4)
 (15006=0)
 (16401=2)(16402=1)(16403=4)(16404=0)(16405=4)
 (19601=1)(19602=2)(19603=4)(19604=4)(19605=4)
 (19606=0)
 (19801=1)(19802=2)(19803=4)(19805=4)(19806=0)
 (20701=2)(20702=2)(20704=4)(20705=0)
 (21401=1)(21402=2)(21403=2)(21404=2)(21405=2)
 (21406=2)(21407=3)(21408=3)(21409=3)(21410=3)
 (21411=3)(21412=3)(21413=4)(21414=0)
 (21501=-1)(21502=-1)(21503=1)(21504=4)(21505=0)
 (228100 THRU 228149 = 2)(228150 THRU 228156 = 4)(228200 = 1)
 (228300, 228700 THRU 228719, 228720 THRU 228729, 228790, 228800 = 4)
 (23901=0)(23902=1)(23903=2)(23904=3)(23905,23906=4)

recode rel srel fmrel frel mrel (-1=-98).
add value labels rel srel fmrel frel mrel (-98) Missing
  (0) No religion (1) Catholic
 (2) Reformed-protestant (3) Referormed (4) Other religion.