* GEMGR PROV G30.

******************************************************************.

***     Gebiedscodes gekoppeld op basis van viercijferig postcode.

******************************************************************.

 


 

* MPS.

******************************************************************.

***     STADSVERNIEUWINGSGEBIEDEN ABF.

******************************************************************.

 

Title 'Aanscherpen GEMTYPE van ABF KWR00'.

 

frequencies GEMTYPE.

 

execute.

 

Title 'Aanmaken nieuwe variabele MPS'.

 

compute MPS = 0.

 

var labels

     MPS

          'Stadsvernieuwingswijken'.

 

if GEMTYPE = 0

     MPS = 0.

if GEMTYPE = 1 and WSDV = 1

     MPS = 1.

if GEMTYPE = 1 and WSDV = 2

     MPS = 2.

if GEMTYPE = 2 and WSDV = 1

     MPS = 3.

if GEMTYPE = 2 and WSDV = 2

     MPS = 4.

if GEMTYPE = 3 and WSDV = 1

     MPS = 5.

if GEMTYPE = 3 and WSDV = 2

     MPS = 6.

if GEMTYPE = 4 and WSDV = 1

     MPS = 7.

if GEMTYPE = 4 and WSDV = 2

     MPS = 8.

 

value labels MPS

     0 'geen SV'

     1 'G4-SV'

     2 'G4-NSV'

     3 'MPS-SV'

     4 'MPS-NSV'

     5 'ov rechtstr.SV'

     6 'ov rechtstr.NSV'

     7 'overig SV-SV'

     8 'overig SV-NSV'.

 

frequencies MPS.

crosstabs MPS by GEMTYPE,WSDV.

 

execute.

 


 

* SV.

******************************************************************

***     STADSVERNIEUWINGSGEMEENTEN

***  AANMAAK VARIABELE SV

******************************************************************.

 

if (GCBS2000 = 363) SV = 1.

if (GCBS2000 = 599) SV = 1.

if (GCBS2000 = 518) SV = 1.

if (GCBS2000 = 344) SV = 1.

if (GCBS2000 = 200) SV = 2.

if (GCBS2000 = 202) SV = 2.

if (GCBS2000 = 758) SV = 2.

if (GCBS2000 = 503) SV = 2.

if (GCBS2000 = 505) SV = 2.

if (GCBS2000 = 772) SV = 2.

if (GCBS2000 = 153) SV = 2.

if (GCBS2000 = 14) SV = 2.

if (GCBS2000 = 392) SV = 2.

if (GCBS2000 = 917) SV = 2.

if (GCBS2000 = 402) SV = 2.

if (GCBS2000 = 80) SV = 2.

if (GCBS2000 = 546) SV = 2.

if (GCBS2000 = 935) SV = 2.

if (GCBS2000 = 268) SV = 2.

if (GCBS2000 = 606) SV = 2.

if (GCBS2000 = 855) SV = 2.

if (GCBS2000 = 479) SV = 2.

if (GCBS2000 = 361) SV = 3.

if (GCBS2000 = 141) SV = 3.

if (GCBS2000 = 307) SV = 3.

if (GCBS2000 = 748) SV = 3.

if (GCBS2000 = 400) SV = 3.

if (GCBS2000 = 150) SV = 3.

if (GCBS2000 = 58) SV = 3.

if (GCBS2000 = 114) SV = 3.

if (GCBS2000 = 388) SV = 3.

if (GCBS2000 = 512) SV = 3.

if (GCBS2000 = 513) SV = 3.

if (GCBS2000 = 72) SV = 3.

if (GCBS2000 = 74) SV = 3.

if (GCBS2000 = 248) SV = 3.

if (GCBS2000 = 166) SV = 3.

if (GCBS2000 = 928) SV = 3.

if (GCBS2000 = 687) SV = 3.

if (GCBS2000 = 957) SV = 3.

if (GCBS2000 = 1676) SV = 3.

if (GCBS2000 = 796) SV = 3.

if (GCBS2000 = 91) SV = 3.

if (GCBS2000 = 983) SV = 3.

if (GCBS2000 = 622) SV = 3.

if (GCBS2000 = 718) SV = 3.

if (GCBS2000 = 301) SV = 3.

if (GCBS2000 = 193) SV = 3.

if (GCBS2000 = 484) SV = 4.

if (GCBS2000 = 106) SV = 4.

if (GCBS2000 = 375) SV = 4.

if (GCBS2000 = 381) SV = 4.

if (GCBS2000 = 310) SV = 4.

if (GCBS2000 = 222) SV = 4.

if (GCBS2000 = 664) SV = 4.

if (GCBS2000 = 243) SV = 4.

if (GCBS2000 = 794) SV = 4.

if (GCBS2000 = 164) SV = 4.

if (GCBS2000 = 18) SV = 4.

if (GCBS2000 = 405) SV = 4.

if (GCBS2000 = 406) SV = 4.

if (GCBS2000 = 882) SV = 4.

if (GCBS2000 = 333) SV = 4.

if (GCBS2000 = 173) SV = 4.

if (GCBS2000 = 826) SV = 4.

if (GCBS2000 = 828) SV = 4.

if (GCBS2000 = 439) SV = 4.

if (GCBS2000 = 275) SV = 4.

if (GCBS2000 = 597) SV = 4.

if (GCBS2000 = 603) SV = 4.

if (GCBS2000 = 90) SV = 4.

if (GCBS2000 = 612) SV = 4.

if (GCBS2000 = 715) SV = 4.

if (GCBS2000 = 281) SV = 4.

if (GCBS2000 = 624) SV = 4.

if (GCBS2000 = 289) SV = 4.

if (GCBS2000 = 988) SV = 4.

if (GCBS2000 = 355) SV = 4.

 

execute.

 


 

* REGIO6.

******************************************************************

***  REGIO 6 INDELING RIGO-VARIABELE

******************************************************************.

*    Syntax kan gedraaid worden op het gebruikersbestand.

*     Benodigd is een variabele 'GCBS2000', waarin de gemeentecodes staan voor het jaar 2000.

 

compute REGIO6 = (GCBS2000 = 3)*6 +

(GCBS2000 = 5)*6 +

(GCBS2000 = 7)*6 +

(GCBS2000 = 9)*6 +

(GCBS2000 = 10)*5 +

(GCBS2000 = 14)*1 +

(GCBS2000 = 15)*6 +

(GCBS2000 = 17)*6 +

(GCBS2000 = 18)*5 +

(GCBS2000 = 22)*6 +

(GCBS2000 = 24)*6 +

(GCBS2000 = 25)*6 +

(GCBS2000 = 34)*2 +

(GCBS2000 = 37)*5 +

(GCBS2000 = 39)*6 +

(GCBS2000 = 40)*6 +

(GCBS2000 = 47)*5 +

(GCBS2000 = 48)*6 +

(GCBS2000 = 50)*2 +

(GCBS2000 = 51)*5 +

(GCBS2000 = 52)*6 +

(GCBS2000 = 53)*6 +

(GCBS2000 = 55)*6 +

(GCBS2000 = 56)*6 +

(GCBS2000 = 58)*5 +

(GCBS2000 = 59)*5 +

(GCBS2000 = 60)*6 +

(GCBS2000 = 63)*6 +

(GCBS2000 = 64)*6 +

(GCBS2000 = 65)*6 +

(GCBS2000 = 70)*5 +

(GCBS2000 = 72)*6 +

(GCBS2000 = 74)*5 +

(GCBS2000 = 79)*6 +

(GCBS2000 = 80)*5 +

(GCBS2000 = 81)*6 +

(GCBS2000 = 82)*6 +

(GCBS2000 = 83)*6 +

(GCBS2000 = 85)*5 +

(GCBS2000 = 86)*5 +

(GCBS2000 = 88)*6 +

(GCBS2000 = 90)*5 +

(GCBS2000 = 91)*5 +

(GCBS2000 = 93)*6 +

(GCBS2000 = 96)*6 +

(GCBS2000 = 98)*5 +

(GCBS2000 = 104)*6 +

(GCBS2000 = 106)*5 +

(GCBS2000 = 109)*5 +

(GCBS2000 = 114)*5 +

(GCBS2000 = 118)*5 +

(GCBS2000 = 119)*5 +

(GCBS2000 = 136)*5 +

(GCBS2000 = 140)*6 +

(GCBS2000 = 141)*5 +

(GCBS2000 = 142)*6 +

(GCBS2000 = 143)*6 +

(GCBS2000 = 144)*6 +

(GCBS2000 = 147)*5 +

(GCBS2000 = 148)*6 +

(GCBS2000 = 149)*6 +

(GCBS2000 = 150)*5 +

(GCBS2000 = 151)*6 +

(GCBS2000 = 153)*5 +

(GCBS2000 = 154)*6 +

(GCBS2000 = 156)*6 +

(GCBS2000 = 157)*6 +

(GCBS2000 = 158)*5 +

(GCBS2000 = 159)*6 +

(GCBS2000 = 160)*5 +

(GCBS2000 = 161)*6 +

(GCBS2000 = 162)*6 +

(GCBS2000 = 163)*5 +

(GCBS2000 = 164)*5 +

(GCBS2000 = 165)*6 +

(GCBS2000 = 166)*5 +

(GCBS2000 = 168)*5 +

(GCBS2000 = 169)*6 +

(GCBS2000 = 170)*6 +

(GCBS2000 = 171)*2 +

(GCBS2000 = 173)*5 +

(GCBS2000 = 174)*6 +

(GCBS2000 = 175)*6 +

(GCBS2000 = 176)*6 +

(GCBS2000 = 177)*5 +

(GCBS2000 = 178)*5 +

(GCBS2000 = 179)*6 +

(GCBS2000 = 180)*6 +

(GCBS2000 = 181)*5 +

(GCBS2000 = 183)*6 +

(GCBS2000 = 184)*2 +

(GCBS2000 = 186)*6 +

(GCBS2000 = 188)*6 +

(GCBS2000 = 189)*5 +

(GCBS2000 = 190)*6 +

(GCBS2000 = 191)*6 +

(GCBS2000 = 192)*6 +

(GCBS2000 = 193)*5 +

(GCBS2000 = 194)*6 +

(GCBS2000 = 195)*6 +

(GCBS2000 = 196)*4 +

(GCBS2000 = 197)*6 +

(GCBS2000 = 199)*4 +

(GCBS2000 = 200)*5 +

(GCBS2000 = 202)*3 +

(GCBS2000 = 203)*5 +

(GCBS2000 = 206)*4 +

(GCBS2000 = 207)*6 +

(GCBS2000 = 209)*3 +

(GCBS2000 = 211)*6 +

(GCBS2000 = 213)*5 +

(GCBS2000 = 214)*6 +

(GCBS2000 = 216)*5 +

(GCBS2000 = 218)*4 +

(GCBS2000 = 219)*6 +

(GCBS2000 = 220)*6 +

(GCBS2000 = 221)*4 +

(GCBS2000 = 222)*5 +

(GCBS2000 = 225)*4 +

(GCBS2000 = 226)*3 +

(GCBS2000 = 227)*6 +

(GCBS2000 = 228)*5 +

(GCBS2000 = 229)*6 +

(GCBS2000 = 230)*5 +

(GCBS2000 = 231)*4 +

(GCBS2000 = 232)*5 +

(GCBS2000 = 233)*5 +

(GCBS2000 = 236)*5 +

(GCBS2000 = 237)*5 +

(GCBS2000 = 238)*4 +

(GCBS2000 = 239)*6 +

(GCBS2000 = 240)*6 +

(GCBS2000 = 241)*4 +

(GCBS2000 = 243)*5 +

(GCBS2000 = 244)*6 +

(GCBS2000 = 246)*6 +

(GCBS2000 = 248)*6 +

(GCBS2000 = 251)*4 +

(GCBS2000 = 252)*4 +

(GCBS2000 = 253)*6 +

(GCBS2000 = 255)*4 +

(GCBS2000 = 256)*6 +

(GCBS2000 = 258)*6 +

(GCBS2000 = 260)*6 +

(GCBS2000 = 262)*6 +

(GCBS2000 = 263)*6 +

(GCBS2000 = 265)*4 +

(GCBS2000 = 266)*6 +

(GCBS2000 = 267)*5 +

(GCBS2000 = 268)*3 +

(GCBS2000 = 269)*5 +

(GCBS2000 = 273)*5 +

(GCBS2000 = 274)*3 +

(GCBS2000 = 275)*3 +

(GCBS2000 = 277)*4 +

(GCBS2000 = 278)*6 +

(GCBS2000 = 279)*6 +

(GCBS2000 = 280)*6 +

(GCBS2000 = 281)*5 +

(GCBS2000 = 282)*4 +

(GCBS2000 = 283)*4 +

(GCBS2000 = 285)*5 +

(GCBS2000 = 286)*6 +

(GCBS2000 = 289)*5 +

(GCBS2000 = 291)*6 +

(GCBS2000 = 292)*6 +

(GCBS2000 = 293)*4 +

(GCBS2000 = 294)*5 +

(GCBS2000 = 295)*6 +

(GCBS2000 = 296)*3 +

(GCBS2000 = 297)*6 +

(GCBS2000 = 298)*6 +

(GCBS2000 = 299)*3 +

(GCBS2000 = 301)*5 +

(GCBS2000 = 302)*5 +

(GCBS2000 = 303)*2 +

(GCBS2000 = 304)*6 +

(GCBS2000 = 305)*2 +

(GCBS2000 = 306)*2 +

(GCBS2000 = 307)*2 +

(GCBS2000 = 308)*2 +

(GCBS2000 = 310)*2 +

(GCBS2000 = 311)*2 +

(GCBS2000 = 312)*2 +

(GCBS2000 = 313)*2 +

(GCBS2000 = 315)*2 +

(GCBS2000 = 316)*2 +

(GCBS2000 = 317)*2 +

(GCBS2000 = 318)*2 +

(GCBS2000 = 321)*2 +

(GCBS2000 = 326)*2 +

(GCBS2000 = 327)*2 +

(GCBS2000 = 329)*2 +

(GCBS2000 = 330)*2 +

(GCBS2000 = 331)*2 +

(GCBS2000 = 332)*2 +

(GCBS2000 = 333)*2 +

(GCBS2000 = 334)*2 +

(GCBS2000 = 335)*2 +

(GCBS2000 = 339)*2 +

(GCBS2000 = 340)*2 +

(GCBS2000 = 342)*2 +

(GCBS2000 = 344)*1 +

(GCBS2000 = 345)*2 +

(GCBS2000 = 347)*2 +

(GCBS2000 = 351)*2 +

(GCBS2000 = 352)*2 +

(GCBS2000 = 353)*2 +

(GCBS2000 = 355)*2 +

(GCBS2000 = 356)*2 +

(GCBS2000 = 357)*4 +

(GCBS2000 = 358)*2 +

(GCBS2000 = 360)*4 +

(GCBS2000 = 361)*3 +

(GCBS2000 = 362)*2 +

(GCBS2000 = 363)*1 +

(GCBS2000 = 364)*6 +

(GCBS2000 = 365)*2 +

(GCBS2000 = 366)*6 +

(GCBS2000 = 370)*2 +

(GCBS2000 = 372)*4 +

(GCBS2000 = 373)*4 +

(GCBS2000 = 375)*3 +

(GCBS2000 = 376)*4 +

(GCBS2000 = 377)*4 +

(GCBS2000 = 381)*3 +

(GCBS2000 = 383)*3 +

(GCBS2000 = 384)*2 +

(GCBS2000 = 385)*2 +

(GCBS2000 = 388)*6 +

(GCBS2000 = 390)*4 +

(GCBS2000 = 392)*3 +

(GCBS2000 = 393)*4 +

(GCBS2000 = 394)*2 +

(GCBS2000 = 395)*6 +

(GCBS2000 = 396)*3 +

(GCBS2000 = 397)*3 +

(GCBS2000 = 398)*3 +

(GCBS2000 = 399)*3 +

(GCBS2000 = 400)*5 +

(GCBS2000 = 402)*3 +

(GCBS2000 = 405)*5 +

(GCBS2000 = 406)*3 +

(GCBS2000 = 412)*6 +

(GCBS2000 = 415)*2 +

(GCBS2000 = 416)*3 +

(GCBS2000 = 417)*4 +

(GCBS2000 = 418)*4 +

(GCBS2000 = 420)*6 +

(GCBS2000 = 424)*4 +

(GCBS2000 = 425)*4 +

(GCBS2000 = 426)*4 +

(GCBS2000 = 429)*6 +

(GCBS2000 = 431)*2 +

(GCBS2000 = 432)*6 +

(GCBS2000 = 437)*2 +

(GCBS2000 = 439)*2 +

(GCBS2000 = 441)*6 +

(GCBS2000 = 444)*4 +

(GCBS2000 = 448)*6 +

(GCBS2000 = 450)*4 +

(GCBS2000 = 451)*2 +

(GCBS2000 = 453)*3 +

(GCBS2000 = 454)*6 +

(GCBS2000 = 457)*4 +

(GCBS2000 = 458)*4 +

(GCBS2000 = 459)*6 +

(GCBS2000 = 462)*6 +

(GCBS2000 = 463)*6 +

(GCBS2000 = 466)*6 +

(GCBS2000 = 473)*4 +

(GCBS2000 = 476)*6 +

(GCBS2000 = 478)*2 +

(GCBS2000 = 479)*3 +

(GCBS2000 = 480)*4 +

(GCBS2000 = 482)*4 +

(GCBS2000 = 483)*4 +

(GCBS2000 = 484)*3 +

(GCBS2000 = 489)*3 +

(GCBS2000 = 491)*4 +

(GCBS2000 = 492)*4 +

(GCBS2000 = 493)*4 +

(GCBS2000 = 495)*4 +

(GCBS2000 = 497)*4 +

(GCBS2000 = 498)*6 +

(GCBS2000 = 499)*4 +

(GCBS2000 = 501)*4 +

(GCBS2000 = 502)*3 +

(GCBS2000 = 503)*3 +

(GCBS2000 = 504)*4 +

(GCBS2000 = 505)*3 +

(GCBS2000 = 511)*4 +

(GCBS2000 = 512)*3 +

(GCBS2000 = 513)*3 +

(GCBS2000 = 517)*4 +

(GCBS2000 = 518)*1 +

(GCBS2000 = 519)*4 +

(GCBS2000 = 523)*4 +

(GCBS2000 = 526)*4 +

(GCBS2000 = 529)*6 +

(GCBS2000 = 530)*3 +

(GCBS2000 = 531)*3 +

(GCBS2000 = 532)*5 +

(GCBS2000 = 534)*3 +

(GCBS2000 = 537)*3 +

(GCBS2000 = 542)*3 +

(GCBS2000 = 545)*3 +

(GCBS2000 = 546)*3 +

(GCBS2000 = 547)*3 +

(GCBS2000 = 548)*2 +

(GCBS2000 = 552)*4 +

(GCBS2000 = 553)*3 +

(GCBS2000 = 555)*4 +

(GCBS2000 = 556)*3 +

(GCBS2000 = 558)*6 +

(GCBS2000 = 559)*4 +

(GCBS2000 = 562)*4 +

(GCBS2000 = 563)*4 +

(GCBS2000 = 565)*3 +

(GCBS2000 = 567)*3 +

(GCBS2000 = 568)*4 +

(GCBS2000 = 569)*4 +

(GCBS2000 = 571)*4 +

(GCBS2000 = 575)*3 +

(GCBS2000 = 576)*4 +

(GCBS2000 = 577)*2 +

(GCBS2000 = 579)*3 +

(GCBS2000 = 580)*4 +

(GCBS2000 = 584)*3 +

(GCBS2000 = 585)*4 +

(GCBS2000 = 588)*4 +

(GCBS2000 = 589)*2 +

(GCBS2000 = 590)*3 +

(GCBS2000 = 594)*4 +

(GCBS2000 = 595)*4 +

(GCBS2000 = 597)*3 +

(GCBS2000 = 599)*1 +

(GCBS2000 = 600)*4 +

(GCBS2000 = 602)*4 +

(GCBS2000 = 603)*2 +

(GCBS2000 = 604)*4 +

(GCBS2000 = 606)*3 +

(GCBS2000 = 607)*4 +

(GCBS2000 = 608)*4 +

(GCBS2000 = 610)*3 +

(GCBS2000 = 611)*4 +

(GCBS2000 = 612)*3 +

(GCBS2000 = 613)*4 +

(GCBS2000 = 614)*4 +

(GCBS2000 = 617)*4 +

(GCBS2000 = 619)*4 +

(GCBS2000 = 620)*4 +

(GCBS2000 = 622)*3 +

(GCBS2000 = 623)*4 +

(GCBS2000 = 624)*2 +

(GCBS2000 = 625)*4 +

(GCBS2000 = 626)*3 +

(GCBS2000 = 627)*3 +

(GCBS2000 = 628)*4 +

(GCBS2000 = 629)*2 +

(GCBS2000 = 630)*4 +

(GCBS2000 = 632)*2 +

(GCBS2000 = 637)*2 +

(GCBS2000 = 638)*4 +

(GCBS2000 = 642)*3 +

(GCBS2000 = 643)*4 +

(GCBS2000 = 644)*4 +

(GCBS2000 = 645)*4 +

(GCBS2000 = 650)*6 +

(GCBS2000 = 653)*6 +

(GCBS2000 = 654)*5 +

(GCBS2000 = 664)*5 +

(GCBS2000 = 668)*6 +

(GCBS2000 = 675)*6 +

(GCBS2000 = 677)*6 +

(GCBS2000 = 678)*6 +

(GCBS2000 = 683)*6 +

(GCBS2000 = 687)*5 +

(GCBS2000 = 689)*4 +

(GCBS2000 = 692)*6 +

(GCBS2000 = 693)*4 +

(GCBS2000 = 694)*4 +

(GCBS2000 = 703)*5 +

(GCBS2000 = 704)*6 +

(GCBS2000 = 707)*4 +

(GCBS2000 = 710)*6 +

(GCBS2000 = 715)*5 +

(GCBS2000 = 716)*5 +

(GCBS2000 = 717)*5 +

(GCBS2000 = 718)*5 +

(GCBS2000 = 733)*6 +

(GCBS2000 = 736)*2 +

(GCBS2000 = 737)*5 +

(GCBS2000 = 738)*6 +

(GCBS2000 = 743)*6 +

(GCBS2000 = 744)*6 +

(GCBS2000 = 748)*5 +

(GCBS2000 = 753)*5 +

(GCBS2000 = 755)*6 +

(GCBS2000 = 756)*5 +

(GCBS2000 = 757)*5 +

(GCBS2000 = 758)*5 +

(GCBS2000 = 762)*5 +

(GCBS2000 = 765)*6 +

(GCBS2000 = 766)*5 +

(GCBS2000 = 770)*6 +

(GCBS2000 = 772)*5 +

(GCBS2000 = 777)*5 +

(GCBS2000 = 779)*5 +

(GCBS2000 = 781)*5 +

(GCBS2000 = 784)*5 +

(GCBS2000 = 785)*5 +

(GCBS2000 = 786)*6 +

(GCBS2000 = 788)*6 +

(GCBS2000 = 794)*5 +

(GCBS2000 = 796)*5 +

(GCBS2000 = 797)*5 +

(GCBS2000 = 798)*6 +

(GCBS2000 = 808)*6 +

(GCBS2000 = 809)*5 +

(GCBS2000 = 814)*6 +

(GCBS2000 = 815)*6 +

(GCBS2000 = 820)*5 +

(GCBS2000 = 823)*6 +

(GCBS2000 = 824)*5 +

(GCBS2000 = 826)*5 +

(GCBS2000 = 828)*5 +

(GCBS2000 = 835)*6 +

(GCBS2000 = 840)*5 +

(GCBS2000 = 844)*5 +

(GCBS2000 = 845)*5 +

(GCBS2000 = 846)*6 +

(GCBS2000 = 847)*6 +

(GCBS2000 = 848)*6 +

(GCBS2000 = 851)*5 +

(GCBS2000 = 852)*2 +

(GCBS2000 = 855)*5 +

(GCBS2000 = 856)*5 +

(GCBS2000 = 858)*5 +

(GCBS2000 = 860)*5 +

(GCBS2000 = 861)*5 +

(GCBS2000 = 865)*5 +

(GCBS2000 = 866)*6 +

(GCBS2000 = 867)*5 +

(GCBS2000 = 870)*5 +

(GCBS2000 = 873)*5 +

(GCBS2000 = 874)*6 +

(GCBS2000 = 879)*6 +

(GCBS2000 = 880)*4 +

(GCBS2000 = 881)*6 +

(GCBS2000 = 882)*5 +

(GCBS2000 = 885)*6 +

(GCBS2000 = 888)*6 +

(GCBS2000 = 889)*6 +

(GCBS2000 = 890)*6 +

(GCBS2000 = 893)*6 +

(GCBS2000 = 897)*6 +

(GCBS2000 = 898)*6 +

(GCBS2000 = 899)*5 +

(GCBS2000 = 902)*6 +

(GCBS2000 = 905)*6 +

(GCBS2000 = 906)*5 +

(GCBS2000 = 907)*6 +

(GCBS2000 = 912)*6 +

(GCBS2000 = 914)*6 +

(GCBS2000 = 917)*5 +

(GCBS2000 = 918)*6 +

(GCBS2000 = 920)*6 +

(GCBS2000 = 923)*6 +

(GCBS2000 = 925)*6 +

(GCBS2000 = 928)*5 +

(GCBS2000 = 929)*6 +

(GCBS2000 = 933)*6 +

(GCBS2000 = 934)*6 +

(GCBS2000 = 935)*5 +

(GCBS2000 = 936)*6 +

(GCBS2000 = 938)*5 +

(GCBS2000 = 941)*6 +

(GCBS2000 = 944)*6 +

(GCBS2000 = 946)*6 +

(GCBS2000 = 951)*6 +

(GCBS2000 = 957)*5 +

(GCBS2000 = 962)*6 +

(GCBS2000 = 964)*6 +

(GCBS2000 = 965)*6 +

(GCBS2000 = 968)*5 +

(GCBS2000 = 971)*5 +

(GCBS2000 = 974)*6 +

(GCBS2000 = 975)*6 +

(GCBS2000 = 976)*6 +

(GCBS2000 = 977)*6 +

(GCBS2000 = 981)*6 +

(GCBS2000 = 983)*5 +

(GCBS2000 = 984)*5 +

(GCBS2000 = 986)*6 +

(GCBS2000 = 988)*5 +

(GCBS2000 = 993)*6 +

(GCBS2000 = 994)*6 +

(GCBS2000 = 995)*2 +

(GCBS2000 = 1651)*6 +

(GCBS2000 = 1652)*5 +

(GCBS2000 = 1655)*5 +

(GCBS2000 = 1658)*6 +

(GCBS2000 = 1659)*5 +

(GCBS2000 = 1661)*6 +

(GCBS2000 = 1663)*6 +

(GCBS2000 = 1666)*4 +

(GCBS2000 = 1667)*6 +

(GCBS2000 = 1669)*6 +

(GCBS2000 = 1670)*6 +

(GCBS2000 = 1671)*6 +

(GCBS2000 = 1672)*4 +

(GCBS2000 = 1673)*4 +

(GCBS2000 = 1674)*5 +

(GCBS2000 = 1676)*5 +

(GCBS2000 = 1679)*6 +

(GCBS2000 = 1680)*5 +

(GCBS2000 = 1681)*5 +

(GCBS2000 = 1684)*5 +

(GCBS2000 = 1685)*6 +

(GCBS2000 = 1690)*5 +

(GCBS2000 = 1695)*6 +

(GCBS2000 = 1697)*5 +

(GCBS2000 = 1698)*6 +

(GCBS2000 = 1699)*5 +

(GCBS2000 = 1701)*6 +

(GCBS2000 = 1702)*6 +

(GCBS2000 = 1706)*5 +

(GCBS2000 = 1709)*5 +

(GCBS2000 = 1719)*5 +

(GCBS2000 = 1721)*5 +

(GCBS2000 = 1722)*6 +

(GCBS2000 = 1723)*6 +

(GCBS2000 = 1724)*6 +

(GCBS2000 = 1728)*6 +

(GCBS2000 = 1729)*6 +

(GCBS2000 = 1730)*5 +

(GCBS2000 = 1731)*5 +

(GCBS2000 = 1937)*6 +

(GCBS2000 = 1987)*6.

 

format REGIO6 (f1.0).

 

variable labels

     REGIO6

          'regio 6'.

 

value labels REGIO6

     1 'grote steden'

     2 'overloop gebieden'

     3 'stadsgewesten, steden'

     4 'stadsgewesten, platteland'

     5 'overig Nederland, steden'

     6 'overig Nederland, platteland'.

 

execute.

 


 

* BSG_ABF BSG1971.

*****************************************************************************.

***  BSG-INDELING ABF KWR 2000.

***

***  Zowel de variable BSG97 als de variabele SVC zitten niet (meer?) in het .

***     gebruikers- of totaal bestand.

***     Feitelijk kan de variabele dus niet opnieuw aangemaakt worden.

*****************************************************************************.

 

if (BSG97 = 1 | SVC = 1)

     BSG_ABF = 1.

    

recode

     BSG_ABF (missing = 0) .

 

execute.


 

* LFTOPKL3.

*******************************************************************************.

***     leeftijdcategorie ondervraagde persoon (LFTOPKL3).

*******************************************************************************.

 

compute LFTOPKL3 = 0.

 

if (LFTOPKLX = 1 | LFTOPKLX = 2)

     LFTOPKL3 = 1.

if (LFTOPKLX = 3 | LFTOPKLX = 4 | LFTOPKLX = 5)

     LFTOPKL3 = 2.

if (LFTOPKLX = 6 | LFTOPKLX = 7)

     LFTOPKL3 = 3.

 

variable labels

     LFTOPKL3

          'Leeftijdsklassen (3) ondervraagde persoon'.

 

value labels LFTOPKL3

     1 '18-34'

     2 '35-64'

     3 '65+'.

 

execute.

 


 

* HHT.

*******************************************************************************.

* Samenstelling huishouden.

*******************************************************************************.

 

compute HHT = -1.

 

if (SAMHH = 8)

     HHT = 1.

if (SAMHH = 2|SAMHH = 3|SAMHH = 5|SAMHH = 6)

     HHT = 2.

if (SAMHH = 1|SAMHH = 4|SAMHH = 7)

     HHT = 3.

 

variable labels

     HHT

          'Samenstelling huishouden'.

 

value labels HHT

     1 'Alleenstaand'

     2 'gezin'

     3 'overig'.

 

execute.

 


 

* HHTW.

*******************************************************************************.

* Samenstelling huishouden (Wouter 30/9/02)

*******************************************************************************.

 

compute HHTW = -1.

 

if (SAMHH = 8)

     HHTW = 1.

if (SAMHH = 2|SAMHH = 3)

     HHTW = 3.

if (SAMHH = 1|SAMHH = 4)

     HHTW = 2.

if (SAMHH = 5|SAMHH = 6)

     HHTW = 4.

if (SAMHH = 7)

     HHTW = 5.

 

variable labels

     HHTW

          'Samenstelling huishouden (Wouter)'.

 

value labels HHTW

     1 'Alleenstaand'

     2 'Echtpaar zonder kinderen + ander'

     3 'Echtpaar met kinderen + ander'

     4 'Eenoudergezin'

     5 'Overig'.

 

execute.

 


 

* HHGR.

******************************************************************************.

***  Marco maart 2003.

******************************************************************************.

 

compute HHGR = PERSHH.

 

if PERSHH ge 6

     HHGR = 6.

 

execute.

 


 

* DOELGR1 DOELGR1X.

****************************************************************.

***     Doelgroep9 RIGO syntax t.b.v. KWR 1999-2001.

****************************************************************.

 

*     Variabelenamen synchroniseren.

compute LFTOP = LFTOP.

 

variable labels LFTOP

     'leeftijd van respondent'.

 

if (SAMHH = 8)

     HHT = 1.

if (SAMHH = 2|SAMHH = 3|SAMHH = 5|SAMHH = 6)

     HHT = 2.

if (SAMHH = 1|SAMHH = 4|SAMHH = 7)

     HHT = 3.

 

format HHT (f1.0).

 

variable labels HHT

     'Samenstelling huishouden'.

 

value labels HHT

     1 'Alleenstaand'

     2 'tweepersoons huishoudens'

     3 'gezin'.

 

if LFTOP<25

     DOELGR1 = 1.

if HHT = 1 & (LFTOP>= 25 & LFTOP<40)

     DOELGR1 = 2.

if HHT = 3 & (LFTOP>= 25 & LFTOP<40)

     DOELGR1 = 3.

if HHT = 2 & (LFTOP>= 25 & LFTOP<40)

     DOELGR1 = 4.

if HHT = 1 & (LFTOP>= 40 & LFTOP<60)

     DOELGR1 = 5.

if HHT = 3 & (LFTOP>= 40 & LFTOP<60)

     DOELGR1 = 6.

if HHT = 2 & (LFTOP>= 40)

     DOELGR1 = 7.

if (HHT = 1| HHT = 3) & (LFTOP>= 60 & LFTOP<75)

     DOELGR1 = 8.

if (HHT = 1| HHT = 3) & (LFTOP>= 75)

     DOELGR1 = 9.

 

variable labels DOELGR1

     'doelgroepen volgs lft & huishoudens sam'.

 

value labels DOELGR1

     1 '< 25 jaar'

     2 'eenp. 25-39'

     3 'tweep 25-39'

     4 'gezin 25-39'

     5 'eenp 40-59'

     6 'tweep 40-59'

     7 'gezin > 40'

     8 '1-2 pers. 60-75'

     9 '1-2 pers 75 plus'.

 

execute.


 

* ALLOCHT ALLOCHTX.

******************************************************************************.

* Allochtonen (exclusief niet-Westerse allochtonen).

*

* Hier wordt de variabele ALLOCHT aangemaakt in het gebruikersbestand is deze variabele herbenoemd tot 'ALLOCHTX'.

******************************************************************************.

 

compute ALLOCHT = 0.

 

if GBLVAOP = 2 | GBLVAOP = 3 | GBLVAOP = 4 | GBLVAOP = 8 | GBLVAOP = 10

     ALLOCHT = 1.

if GBLMOOP = 2 | GBLMOOP = 3 | GBLMOOP = 4 | GBLMOOP = 8 | GBLMOOP = 10

     ALLOCHT = 1.

if NATOP = 2 | NATOP = 3 | NATOP = 4 | NATOP = 8

     ALLOCHT = 1.

if NATPA = 2 | NATPA = 3 | NATPA = 4 | NATPA = 8

     ALLOCHT = 1.

 

value labels

     ALLOCHT

          0 'autochtoon'

          1 'allochtoon'.

 

do if (missing(geslop)).

     recode ALLOCHT (0 = -2).

end if.

 

execute.

 


 

* RELKOST RELKOSTK.

******************************************************************.

***     RELATIEVE HERSTELKOSTEN.

******************************************************************.

 

compute RELKOST = 100.*WKTOTNW/NBKTOTX.

compute RELKOSTK = RELKOST.

 

recode RELKOSTK

     (0. thru 0.9999 = 1)

     (1.0 thru 9.9999 = 2)

     (10.0 thru 19.9999 = 3)

     (20.0 thru hi = 4).

 

value labels RELKOSTK

     1 'Uitstekend'

     2 'Goed'

     3 'Matig'

     4 'Slecht'.

 

execute.

 


 

* LIFT LIFTX.

*****************************************************************************

***     CORRECTIE LIFT KWR 2000

*****************************************************************************.

*    Hier wordt de aanwezigheid van een LIFT gecorrigeerd.

*    de variabele LIFT wordt hier aangemaakt in het gebruikersbestand is hernoemd tot 'LIFTX'.

******************************************************************************.

 

if (BTWEMW = 1)

     LIFT = -1.

if (BTWEMW = 2)

     LIFT = 0.

if (GVBRTRAW = 2)

     LIFT = 1.

if (BEREIKB = 1 & MSMVELDW = 0)

     LIFT = 1.

if (MBOUWLBW >= 7 & INSPCODW = 'JHE')

     LIFT = 1.

if (MBOUWLBW >= 7 & BJAARW >= 1965)

     LIFT = 1.

 

variable labels LIFT

     'Wel of geen LIFT (afgeleid)'.

 

value labels LIFT

     -1 'nvt'

     0 'geen LIFT'

     1 'wel LIFT'.

 

missing values LIFT (-1).

 

execute.

 


 

* FLBYWBVE FLBYWBVM FLBYOVHE FLBYOVHM FLBYANDE FLBYANDM FLBYRSTE FLBYRSTM BWATER BVEK BVEM BVEG BVMK BVMM BVMG BCAI BKABEL.

*****************************************************************************.

***     WOONLASTEN INBEGREPEN IN DE HUUR.

***  BRON CBS HUURENQUETE.

*****************************************************************************.


* BEDRAG SERVICE WBV EENGEZINS.

compute FLBYWBVE = 5.45.


* BEDRAG SERVICE WBV MEERGEZINS.

compute FLBYWBVM = 24.05.


* BEDRAG SERVICE OVERHEID EENGEZINS.

compute FLBYOVHE = 3.18.


* BEDRAG SERVICE OVERHEID MEERGEZINS.

compute FLBYOVHM = 21.33.


* BEDRAG SERVICE ANDERS EENGEZINS.

compute FLBYANDE = 19.51.


* BEDRAG SERVICE ANDERS MEERGEZINS.

compute FLBYANDM = 27.68.


* BEDRAG SERVICE REST EENGEZINS.

compute FLBYRSTE = 14.97.


* BEDRAG SERVICE REST MEERGEZINS.

compute FLBYRSTM = 35.39.


* BEDRAG WATER.

compute BWATER = 18.15.


* BEDRAG VERWARMING EENGEZINS KLEIN.

compute BVEK = 41.29.


* BEDRAG VERWARMING EENGEZINS MIDDEL.

compute BVEM = 45.83.


* BEDRAG VERWARMING EENGEZINS GROOT.

compute BVEG = 58.99.


* BEDRAG VERWARMING MEERGEZINS KLEIN.

compute BVMK = 38.12.


* BEDRAG VERWARMING MEERGEZINS MIDDEL.

compute BVMM = 44.47.


* BEDRAG VERWARMING MEERGEZINS GROOT.

compute BVMG = 48.10.


* BEDRAG CAI.

compute BCAI = 6.35.


* BEDRAG KABEL.

compute BKABEL = 6.35.

 

execute.

 


 

* IHSMND IHSMNDBD IHSMNDB2.

***************************************************************************.

***  HUUR WONING.

***************************************************************************.

*    IHSMND     INDIVIDUELE HUURSUBSIDIE PER MAAND.

*     IHSMNDBD     INDIVIDUELE HUURSUBSIDIE PER MAAND IN EURO.

*     IHSMNDB2      INDIVIDUELE HUURSUBSIDIE PER MAAND IN EURO ALLE HUURDERS.

 

do if (IHS EQ 1).

               . compute IHSMND = -1.

               . compute IHSMNDBD = -1.

* ONTVANGT PER MAAND.

     . do if (PERIHS = 1).

               . compute IHSMND = RND(BEDRIHS/2.20371).

* ONTVANGT PER KWARTAAL.

          . else if (PERIHS = 2).

               . compute IHSMND = RND((BEDRIHS/2.20371)/3).

     . end if.

     else.

          . recode IHSMND

          (else = sysmis).

end if.

 

compute IHSMNDBD = IHSMND.

 

missing values IHSMND (-1).

missing values IHSMNDBD (-1).

 

recode IHSMND

     (LO THRU 37 = 1)

     (38 THRU 75 = 2)

     (76 THRU 113 = 3)

     (114 THRU HI = 4).

 

do if (IHS EQ 1).

          . compute IHSMNDB2 = IHSMNDBD.

     else if (HUKO = 2).

          . compute IHSMNDB2 = 0.

     else.

          . compute IHSMNDB2 = $sysmis.

end if.

 

var labels

     IHSMND

          'INDIVIDUELE HUURSUBSIDIE PER MAAND'

     IHSMNDBD

          'INDIVIDUELE HUURSUBSIDIE PER MAAND IN EURO'

     IHSMNDB2

          'INDIV HUURSUBS PER MAAND IN EURO ALLE HUURDERS'.

 

value LABEL IHSMND

     1 '< = 37 P/M'

     2 '38-75 P/M'

     3 '76-113 P/M '

     4 '>= 114 P/M '.

 

execute.

 


 

* IHSJR

***************************************************************************.

*    IHSJR     INDIVIDUELE HUURSUBSIDIE PER JAAR.

compute IHSJR = IHSMNDBD*12.

 

var labels

     IHSJR

          'INDIVIDUELE HUURSUBSIDIE PER JAAR'.

 

execute.

 


 

* WATER STOOKK CAI KABEL BIJKKOS.

***************************************************************************.

***     HULPVARIABELEN VOOR HET BEREKENEN VAN BASIS EN KALE HUUR.

***  ZIE UITDRAAI GEKREGEN VAN MIRJAM VAN BALEN.

 

*    WATER     WATER INBEGREPEN IN HUUR.

compute WATER = 0.

 

*    STOOKK     STOOKKOSTEN INBEGREPEN IN HUUR.

compute STOOKK = 0.

 

*    CAI     CAI INBEGREPEN IN HUUR.

compute CAI = 0.

 

*    KABEL     KABEL INBEGREPEN IN HUUR.

compute KABEL = 0.

 

*    BIJKKOS     OVERIGE KOSTEN INBEGREPEN IN HUUR.

compute BIJKKOS = 0.

 

*    KOSTEN INBEGREPEN IN HUUR.

if (WATHUUR = 1)

     WATER = 1.

if (VERWHUUR = 1)

     STOOKK = 1.

if (CAIHUUR = 1)

     CAI = 1.

if (KABHUUR = 1)

     KABEL = 1.

if (OVSHUUR = 1)

     BIJKKOS = 1.

 

var labels

     WATER

          'WATER INBEGREPEN IN HUUR'

     STOOKK

          'STOOKKOSTEN INBEGREPEN IN HUUR'

     CAI

          'CAI INBEGREPEN IN HUUR'

     KABEL

          'KABEL INBEGREPEN IN HUUR'

     BIJKKOS

          'OVERIGE KOSTEN INBEGREPEN IN HUUR'

 

value labels WATER

     0 'NEE'

     1 'JA'.

 

value labels STOOKK

     0 'NEE'

     1 'JA'.

 

value labels CAI

     0 'NEE'

     1 'JA'.

 

value labels KABEL

     0 'NEE'

     1 'JA'.

 

value labels BIJKKOS

     0 'NEE'

     1 'JA'.

 

execute.

 


* BKW BKWX BKV BKVX BKC BKCX BKK BKKX.

***************************************************************************.

***     BEREKENEN BEDRAGEN DIVERSE BIJKOMENDE LASTEN.

***  DE BEDRAGEN STAAN IN HET AANPASSINGENBLOK.

***  HUURDER EN IN WONING.

***************************************************************************.

 

do if (HUKO EQ 2).

*    BKW     BEDRAG KOSTEN WATER.

          compute BKW = 0.

     if (WATER EQ 1)

          BKW = BWATER.

*    BKV     BEDRAG KOSTEN VERWARMING.

          compute BKV = 0.

* EENGEZINSWONINGEN.

     if (STOOKK EQ 1) and (BTWEMW EQ 1) and (AVERTN LE 3)

          BKV = BVEK.

     if (STOOKK EQ 1) and (BTWEMW EQ 1) and ((AVERTN EQ 4) OR (AVERTN EQ 5))

          BKV = BVEM.

     if (STOOKK EQ 1) and (BTWEMW EQ 1) and (AVERTN GE 6)

          BKV = BVEG.

* MEERGEZINSWONINGEN.

     if (STOOKK EQ 1) and (BTWEMW EQ 2) and (AVERTN LE 3)

          BKV = BVMK.

     if (STOOKK EQ 1) and (BTWEMW EQ 2) and ((AVERTN EQ 4) OR (AVERTN EQ 5))

          BKV = BVMM.

     if (STOOKK EQ 1) and (BTWEMW EQ 2) and (AVERTN GE 6)

          BKV = BVMG.

*    BKC     BEDRAG KOSTEN CAI.

          compute BKC = 0.

     if (CAI = 1)

          BKC = BCAI.

*    BKK     BEDRAG KOSTEN KABEL.

          compute BKK = 0.

     if (KABEL = 1)

          BKK = BKABEL.

end if.

 

print formats BKW BKV BKC BKK BIJKKOS (F2.0).

 

variable labels

     BKW

          'BEDRAG KOSTEN WATER'

     BKV

          'BEDRAG KOSTEN VERWARMING'

     BKC

          'BEDRAG KOSTEN CENTR ANTENNE'

     BKK

          'BEDRAG KOSTEN KABEL'

     BIJKKOS

          'BEDRAG OVERIGE KOSTEN'.

 

execute.

 


 

* HUURMND HUUR.

***************************************************************************.

*    HUURMND     BEREKENEN HUUR WONING PER MAAND.

*    HUUR      OMREKENEN NAAR EEN BEDRAG PER MAAND.

 

if (PERHUUR = 1)

     HUURMND = RND(HUURTOT/2.20371).

if (PERHUUR = 2)

     HUURMND = RND(HUURTOT/2.20371)*(13/12).

if (PERHUUR = 3)

     HUURMND = RND(HUURTOT/2.20371)*(52/12).

 

***  NU ANDERS TOEGEDEELD.

 

do if (PERHUUR = 4).

     . do if (HUURTOT LE 453).

               . compute HUURMND = RND(HUURTOT/2.20371).

          . else if (HUURTOT LE 1361).

               . compute HUURMND = RND(HUURTOT/2.20371)/3.

          . else.

               . compute HUURMND = RND(HUURTOT/2.20371)/12.

     . end if.

end if.

 

var labels HUURMND

     'BRUTOHUUR PER MAAND HUIDIGE WONING'.

 

*** EXTREMEN ERUIT.

if (HUURMND GE 22689) HUURMND = HUURMND/100.

 

execute.

 


 

* BHUURI.

***************************************************************************.

***  HUURDER EN IN WONING.

***************************************************************************.

*    BHUURI     BASISHUUR HUIDIGE WONING ONGEACHT IHS.

 

do if (HUKO EQ 2).

     compute BHUURI = HUURMND-BKW-BKV-BKC-BKK.

end if.

 

***  ALS HUURDER LAGER DAN 0 WORDT DIT OP 0 GEZET, AANGEZIEN BOVENSTAANDE

***  KOSTEN GEMIDDELDEN ZIJN.

if (BHUURI LE 0)

     BHUURI = 0.

 

print formats BHUURI (F4.0).

 

variable labels

     BHUURI

          'BASISHUUR HUIDIGE WONING ONGEACHT IHS'.

 

execute.

 


* BHUURII.

***************************************************************************.

***  HUURDER EN IN WONING.

***************************************************************************.

*    BHUURII     BASISHUUR HUIDIGE WONING INCLUSIEF IHS.

 

do if (HUKO EQ 2).

     compute BHUURII = BHUURI.

     if ((IHS = 1) and (IHSAFHU = 1))

          BHUURII = BHUURI+IHSMNDBD.

end if.

 

*** ALS HUURDER LAGER DAN 0 WORDT DIT OP 0 GEZET.

if (BHUURII LE 0)

     BHUURII = 0.

 

print formats BHUURII (F4.0).

 

variable labels

     BHUURII

          'BASISHUUR HUIDIGE WONING INCLUSIEF IHS'.

 

execute.

 


 

* TVHRCORR

***************************************************************************.

*     TVHRCORR     HULPVARIABELE VOOR CODERING SOORT VERHUURDER.

 

compute TVHRCORR = TVHUUR.

 

if (BHVORM = 1) TVHRCORR = 1.

if (BHVORM = 2 & TVHUUR = 1) TVHRCORR = 5.

 

variable labels

     TVHRCORR

          'TYPE VERHUURDER GECORRIGEERD'.

 

value labels TVHRCORR

     1 'CORPORATIE'

     2 'OVERHEID'

     3 'MAKELAAR'

     4 'PART PERS'

     5 'OVERIG ANDERS'.

 

execute.

 


 

* BOS BOSX.

***************************************************************************.

*    BOS     BEDRAG OVERIGE SERVICEKOSTEN (UITGESPLITST NAAR SOORT VERHUURDER.

 

do if (HUKO EQ 2).

               . compute BOS = 0.

* WONINGCORPORATIE EENGEZINS.

     . do if (BIJKKOS = 1 and TVHRCORR = 1 and BTWEMW = 1).

               . compute BOS = FLBYWBVE.

* WONINGCORPORATIE MEERGEZINS.

          . else if (BIJKKOS = 1 and TVHRCORR = 1 and BTWEMW = 2).

               . compute BOS = FLBYWBVM.

* OVERHEID EENGEZINS.

          . else if (BIJKKOS = 1 and TVHRCORR = 2 and BTWEMW = 1).

               . compute BOS = FLBYOVHE.

* OVERHEID MEERGEZINS.

          . else if (BIJKKOS = 1 and TVHRCORR = 2 and BTWEMW = 2).

               . compute BOS = FLBYOVHM.

* MAKELAAR EENGEZINS.

          . else if (BIJKKOS = 1 and TVHRCORR = 3 and BTWEMW = 1).

               . compute BOS = FLBYANDE.

* MAKELAAR MEERGEZINS.

          . else if (BIJKKOS = 1 and TVHRCORR = 3 and BTWEMW = 2).

               . compute BOS = FLBYANDM.

* ANDERS EENGEZINS.

          . else if (BIJKKOS = 1 and BTWEMW = 1).

               . compute BOS = FLBYRSTE.

* ANDERS MEERGEZINS.

          . else if (BIJKKOS = 1 and BTWEMW = 2).

               . compute BOS = FLBYRSTM.

     . end if.

     else.

          recode BOS

          (else = sysmis).

end if.

 

print formats BOS (F2.0).

 

variable labels

     BOS

          'BEDRAG OVERIGE SERVICEKOSTEN'.

 

execute.

 


 

* KHUURI.

***************************************************************************.

*    KHUURI     KALE HUUR HUIDIGE WONING.

 

do if (HUKO EQ 2).

     compute KHUURI = BHUURI-BOS.

end if.

 

*** ALS HUURDER LAGER DAN 0 WORDT DIT OP 0 GEZET.

if (KHUURI LE 0)

     KHUURI = 0.

 

print formats KHUURI (F4.0).

 

variable labels

     KHUURI

          'KALE HUUR HUIDIGE WONING'.

 

execute.

 


 

* KHUURII.

***************************************************************************.

*    KHUURII     KALE HUUR HUIDGE WONING INCL IHS.

 

do if (HUKO EQ 2).

     compute KHUURII = BHUURII-BOS.

end if.

 

*** ALS HUURDER LAGER DAN 0 WORDT DIT OP 0 GEZET.

if (KHUURII LE 0)

     KHUURII = 0.

 

print formats KHUURII (F4.0).

 

variable labels

     KHUURII

          'KALE HUUR HUIDIGE WONING INCL IHS'.

 

execute.

 


 

* IHSMNDX IHSMNKLX HUURBASX HUURBKLX HUURKALX HUURKKLX IHSJRX HUURMNDX.

***************************************************************************.

***  HUUR EN HUURSUBSIDIE IN EURO KWR 2000.

***************************************************************************.

*    Syntax voor het aanmaken van de in het gebruikersbestand herbenoemde .

*     variabelen.

*    IHSMNDX     ( = IHSMNDBD).

*      IHSMNKLX    ( = IHSMND).

*      HUURBASX    ( = BHUURI).

*      HUURKALX    ( = KHUURI).

*    IHSJRX     ( = IHSJR).

*      HUURMNDX    ( = KHUURI).

*    In het gebruikersbestand staan deze variabelen ook als klassen- .

*     indeling HUURBKLX HUURKKLX.

*    Er is geen syntax opgenomen voor deze variabelen omdat ze voor zicht .

*     spreken.

*    Voor het aanmaken van de bovengenoemde variabelen zijn ook de .

*     variabelen HUURTOT HUKO BEDRIHS TVHUUR nodig.

*    Deze staan niet in het gebruikersbestand maar wel in het KWR2000 .

*    Totaal bestand.

***************************************************************************.


 

* AVERTN.

***************************************************************************.

*    AVERTN     AANTAL VERTREKKEN.

 

compute AVERTN = KAMERW+1.

 

if ((KEUKEN<>1) and (KEUKEN<>2))

     AVERTN = KAMERW.

 

variable labels

     AVERTN

          'AANTAL VERTREKKEN IN WONING'.

 

value labels AVERTN

     1 'AANTAL VERTREKKEN'.

 

execute.

 


 

* BJAARX BJAARW.

****************************************************************************.

***     CORRECTIE BOUWJAAR (BJAARX) Gudo KWR 2000.

****************************************************************************.

 

compute BJAARX = BJAARW.

 

if ((BJKLAS = 1 & BJAARW > 1945) | (BJKLAS = 2 & (BJAARW < 1946 | BJAARW > 1970)) | (BJKLAS = 3 & BJAARW < 1971))

     BJAARX = bjaar.

 

do if ((BJKLAS = 1 & BJAARX > 1945) | (BJKLAS = 2 & (BJAARX < 1946

 | BJAARX > 1970)) | (BJKLAS = 3 & BJAARX < 1971)).

     recode BJAARX

     (else = sysmis).

end if.

 

execute.


 

* BJKL BJKLAS.

******************************************************************************.

***  Marco maart 2003.

******************************************************************************.

 

compute BJKL = BJAARX.

 

recode BJKL

     (0 thru 1945 = 1)

     (1945 thru 1970 = 2)

     (1971 thru 1975 = 3)

     (1976 thru 1980 = 4)

     (1981 thru 1985 = 5)

     (1986 thru 1990 = 6)

     (1991 thru 1995 = 7)

     (1996 thru 2001 = 8).

 

value labels BJKL

     1 ' < 1945'

     2 '45-70'

     3 '71-75'

     4 '76-80'

     5 '81-85'

     6 '86-90'

     7 '91-95'

     8 ' > 96'.

 

execute.

 


 

* TYPWON.

*******************************************************************************.

*    TYPWON.

*         Vrijstaand = 1.

*         Hoek/twee = 2.

*         Tussen = 3.

*         Meergezins = 4.

 

do if BTWEMW = 1 & ESITW = 1.

               compute TYPWON = 1.

          else if BTWEMW = 1 & ESITW = 2.

               compute TYPWON = 2.

          else if BTWEMW = 1 & ESITW = 3.

               compute TYPWON = 2.

          else if BTWEMW = 1 & ESITW = 4.

               compute TYPWON = 3.

          else if BTWEMW = 2.

               compute TYPWON = 4.

     else.

               compute TYPWON = 8.

end if.

 

execute.

 


 

* BJ5SYS.

*******************************************************************************.

*    BJ5SYS.

*         < 1931 = 1.

*         1931 - 1959 = 2.

*         1960 - 1980 = 3.

*         1981 - 1994 = 4.

*         > 1994 = 5.

 

recode

 BJAARX

 (0 thru 1930 = 1) (1931 thru 1959 = 2) (1960 thru 1980 = 3) (1981 thru 1994 = 4)

 (1995 thru 2000 = 5) into BJ5SYS.

 

execute.

 


 

* BHVCW1.

*******************************************************************************.

*    BHVCW1

*         Koop = 1

*         Soc huur = 2

*         Part huur = 3

 

do if BHVORM = 1.

         compute BHVCW1 = 2.

          else if BHVORM = 2.

        compute BHVCW1 = 3.

    else if BHVORM = 3.

         compute BHVCW1 = 1.

     else.

               compute BHVCW1 = 4.

end if.

 

execute.

 


 

* VERWARM1.

***************************************************************************.

*     VERWARM1

*         CV = 1

*         Lokale verwarming = 2

*         Collectief = 3

 

do if BHVORM>0 & VINDCVW = 1.

               compute VERWARM1 = 1.

          else if BHVORM>0 & VBLOKW = 1.

               compute VERWARM1 = 3.

          else if BHVORM>0 & VSTADSW = 1.

               compute VERWARM1 = 3.

     else.

               compute VERWARM1 = 2.

end if.

 

execute.

 


 

* VERWARM2.

***************************************************************************.

*     VERWARM2

*         CV = 1

*         Lokale verwarming = 2

*         Collectief = 3

 

do if VSTADSW = 1.

               compute VERWARM2 = 3.

          else if VBLOKW = 1.

               compute VERWARM2 = 3.

          else if VINDCVW = 1.

               compute VERWARM2 = 1.

     else.

               compute VERWARM2 = 2.

end if.

 

execute.

 


*******************************************************************************.

***     Voornamelijk doel van de syntax is het aanmaken de isolatiegraad.

***     Syntax2000.sps (Q:\KWR2000|KWR-bestanden).

***  In het 'KWR2000gebruikersbestand.SAV' ontbreken de volgende variabelen om .

***  de syntax te kunnen draaien: .

***  OCDKHNW OCZVNW OCDKPNW OCBGVNW OGGNTOTW OGGMSNW OGGMMNW OGGM2NW OGGPBNW . ***  GGANNW.

***  .

***  De variabelen eindigend op x zijn aangemaakt.

***  In de tekst zijn de variabelen met (+) gemaakt voor ECN.

***  Laatste verandering 22 april 2003.

*******************************************************************************.

 


****************************************************************************.

***  Hellend dak.

****************************************************************************.

*    OCDKHW     Oppervlak m2.

*    OIDKHWX     Al dan niet hellend dak.

*    OCDKHNW     Geļsoleerd oppervlak m2.

*     OCBDKHNX     Geļsoleerd oppervlak inclusief correctie bouwjaar.

*     OCZDKHNX     Geļsoleerd oppervlak inclusief correctie bouwjaar en zolder.

*    OCZVW     Oppervlak zoldervloer m2.

*    OCZVNW     Geļsoleerd oppervlak zoldervloer m2.

*    ISOZVX     Isolatiegraad zoldervloer %.

*    ISODKHX     Isolatiegraad (%).

*     ISOBDKHX     Isolatiegraad (%) inclusief bouwjaar.

*     ISOZDKHX     Isolatiegraad (%) inclusief bouwjaar en zoldervloer.

*    DAKHP2X     Klassen isolatie (2) (correctie bouwjaar).

*    DAKHP4X     Klassen isolatie (4) (correctie bouwjaar).

*     DAKZHP4X    Klassen isolatie (4) (correctie bouwjaar + zolder).

 

* OIDKHWX. ***************************************************************************.

*    OIDKHWX     Al dan niet hellend dak.

 

compute OIDKHWX = -1.

 

if (OCDKHW > 0)

     OIDKHWX = 0.

 

execute.

 

* ISODKHX.

***************************************************************************.

*    ISODKHX     Isolatiegraad (%).

 

do if OCDKHW > 0.

     compute ISODKHX = OCDKHNW/OCDKHW*100.

end if.

 

execute.

 

* ISOBDKHX OCBDKHNX.

***************************************************************************.

***     Isolatie (na 1975 wordt isolatie op 100% gezet).

***************************************************************************.

*     ISOBDKHX     Isolatiegraad (%) inclusief bouwjaar.

*     OCBDKHNX     Geļsoleerd oppervlak inclusief correctie bouwjaar.

 

do if OCDKHW > 0.

          compute ISOBDKHX = ISODKHX.

          compute OCBDKHNX = OCDKHNW.

     if (BJKLAS = 3 & BJAARx > 1975)

          ISOBDKHX = 100.

     if (ISOBDKHX = 100)

          OCBDKHNX = OCDKHW.

end if.

 

execute.

 

* DAKHP4X.

***************************************************************************.

***  Indelen van percentage isolatie in 4 klassen (0-10, 10-50, 50-90 en .

***  90-100).

***************************************************************************.

*    DAKHP4X     Klassen isolatie (4) (correctie bouwjaar).

 

do if OCDKHW > 0.

     do if ISOBDKHX < 10.

               compute DAKHP4X = 1.

          else if ISOBDKHX < = 50.

               compute DAKHP4X = 2.

          else if ISOBDKHX < 90.

               compute DAKHP4X = 3.

          else if ISOBDKHX < = 100.

               compute DAKHP4X = 4.

     else.

               compute DAKHP4X = 5.

     end if.

end if.

 

execute.

 

* DAKHP2X.

***************************************************************************.

***  Indelen van percentage isolatie in 2 klassen (0-50, 50-100).

***************************************************************************.

*    DAKHP2X     Klassen isolatie (2) (correctie bouwjaar).

 

do if OCDKHW > 0.

     do if ISOBDKHX < = 50.

               compute DAKHP2X = 1.

          else if ISOBDKHX < = 100.

               compute DAKHP2X = 2.

     else.

               compute DAKHP2X = 3.

     end if.

end if.

 

execute.

 

* ISOZVX ISOZDKHX OCZDKHNX.

***************************************************************************.

***     Isolatie inclusief zoldervloer (Indien van hellend dak (ISOBDKHC < .

***  100) en isolatie van zoldervloer = 100 dan wordt oppervlak hellend .

***  dak als geļsoleerd beschouwd).

***************************************************************************.

*    ISOZVX     Isolatiegraad zoldervloer %.

*     ISOZDKHX     Isolatiegraad (%) inclusief bouwjaar en zoldervloer

*     OCZDKHNX     Geļsoleerd oppervlak inclusief correctie bouwjaar en zolder.

 

do if OCDKHW > 0.

     if (OCZVW > 0)

          ISOZVX = OCZVNW/OCZVW*100.

          compute ISOZDKHX = ISOBDKHX.

     if (ISOBDKHX < 100 & ISOZVX = 100)

          ISOZDKHX = 100.

          compute OCZDKHNX = OCBDKHNX.

     if (ISOBDKHX < 100 & ISOZVX = 100)

          OCZDKHNX = OCDKHW.

end if.

 

execute.

 

* DAKZHP4X.

***************************************************************************.

***  Indelen van percentage isolatie in 4 klassen (0-10, 10-50, 50-90 en .

***  90-100).

***************************************************************************.

*     DAKZHP4X    Klassen isolatie (4) (correctie bouwjaar + zolder).

 

do if OCDKHW > 0.

     do if ISOZDKHX < 10.

               compute DAKZHP4X = 1.

          else if ISOZDKHX < = 50.

               compute DAKZHP4X = 2.

          else if ISOZDKHX < 90.

               compute DAKZHP4X = 3.

          else if ISOZDKHX < = 100.

               compute DAKZHP4X = 4.

     else.

               compute DAKZHP4X = 5.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Plat dak.

***************************************************************************.

*    OCDKPW     Oppervlak m2.

*    OCDKPNW     Geļsoleerd oppervlak m2.

*     OCBDKPNX     Geļsoleerd oppervlak m2 incl correctie Bouwjaar.

*    ISODKPX     Isolatiegraad (%).

*     ISOBDKPX     Isolatiegraad (%)(correctie bouwjaar).

*    DAKPP2X     Klassen isolatie (2) (correctie bouwjaar).

*    DAKPP4X     Klassen isolatie (4) (correctie bouwjaar).

 

* ISODKPX.

***************************************************************************.

*    ISODKPX     Isolatiegraad (%)

 

do if OCDKPW > 0.

     compute ISODKPX = OCDKPNW /OCDKPW*100.

end if.

 

execute.

 

* ISOBDKPX OCBDKPNX.

***************************************************************************.

***     ISOLATIE (na 1975 wordt isolatie op 100% gezet).

***************************************************************************.

*     ISOBDKPX     Isolatiegraad (%)(correctie bouwjaar)

*     OCBDKPNX     Geļsoleerd oppervlak m2 incl correctie bouwjaar

 

do if OCDKPW > 0.

          compute ISOBDKPX = ISODKPX.

          compute OCBDKPNX = OCDKPNW.

     if (BJKLAS = 3 & BJAARx > 1975)

          ISOBDKPX = 100.

     if (ISOBDKPX = 100)

          OCBDKPNX = OCDKPW.

end if.

 

execute.

 

* DAKPP4X.

***************************************************************************.

***  Indelen van percentage isolatie in 4 klassen (0-10, 10-50, 50-90 en .

***  90-100).

***************************************************************************.

*    DAKPP4X     Klassen isolatie (4) (correctie bouwjaar)

 

do if OCDKPW > 0.

     do if ISOBDKPX < 10.

               compute DAKPP4X = 1.

          else if ISOBDKPX <= 50.

               compute DAKPP4X = 2.

          else if ISOBDKPX < 90.

               compute DAKPP4X = 3.

          else if ISOBDKPX <= 100.

               compute DAKPP4X = 4.

     else.

               compute DAKPP4X = 5.

     end if.

end if.

 

execute.

 

* DAKPP2X.

***************************************************************************.

***  Indelen van percentage isolatie in 2 klassen (0-50, 50-100).

***************************************************************************.

*    DAKPP2X     Klassen isolatie (2) (correctie bouwjaar)

 

do if OCDKPW > 0.

     do if ISOBDKPX <= 50.

               compute DAKPP2X = 1.

          else if ISOBDKPX <= 100.

               compute DAKPP2X = 2.

     else.

               compute DAKPP2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Dak (Hellend + Plat).

***************************************************************************.

*    OCDKWX     Oppervlak m2.

*    OCDKNWX     Geļsoleerd oppervlak m2.

*    OCBDKNX     Geļsoleerd oppervlak m2 inclusief correctie Bouwjaar.

*    OCZDKNX     Geļsoleerd oppervlak m2 inclusief bouwjaar en zolder.

*    ISODKX     Isolatiegraad (%).

*    ISOBDKX     Isolatiegraad (%) (correctie bouwjaar).

*    ISOZDKX     Isolatiegraad (%) (correctie bouwjaar en zoldervloer)).

*    DAKP2X     Klassen isolatie (2) (correctie bouwjaar).

*    DAKP4X     Klassen isolatie (4) (correctie bouwjaar).

*    DAKZP4X     Klassen isolatie (4) (correctie bouwjaar + zolder).

 

 

* OCDKWX.

***************************************************************************.

*    OCDKWX     Oppervlak m2.

 

compute OCDKWX = sum(OCDKHW,OCDKPW).

 

execute.

 

* OCDKNWX.

***************************************************************************.

*    OCDKNWX     Geļsoleerd oppervlak m2.

 

compute OCDKNWX = sum(OCDKHNW,OCDKPNW).

 

execute.

 

* ISODKX.

***************************************************************************.

*    ISODKX     Isolatiegraad (%).

 

do if OCDKWX > 0.

     compute ISODKX = OCDKNWX/OCDKWX*100.

end if.

 

execute.

 

* ISOBDKX OCBDKNX.

***************************************************************************.

***     Isolatie (na 1975 wordt isolatie op 100% gezet).

***************************************************************************.

*    ISOBDKX     Isolatiegraad (%) (correctie bouwjaar).

*    OCBDKNX     Geļsoleerd oppervlak m2 inclusief correctie Bouwjaar.

 

do if OCDKWX > 0.

          compute ISOBDKX = ISODKX.

          compute OCBDKNX = OCDKNWX.

     if (BJKLAS = 3 & BJAARx > 1975)

          ISOBDKX = 100.

     if (ISOBDKX = 100)

          OCBDKNX = OCDKWX.

end if.

 

execute.

 

* DAKP4X.

***************************************************************************.

***  Indelen van percentage isolatie in 4 klassen (0-10, 10-50, 50-90 en.

***  90-100).

***************************************************************************.

*    DAKP4X     Klassen isolatie (4) (correctie bouwjaar).

 

do if OCDKWX > 0.

     do if ISOBDKX < 10.

               compute DAKP4X = 1.

          else if ISOBDKX <= 50.

               compute DAKP4X = 2.

          else if ISOBDKX < 90.

               compute DAKP4X = 3.

          else if ISOBDKX <= 100.

               compute DAKP4X = 4.

     else.

               compute DAKP4X = 5.

     end if.

end if.

 

execute.

 

* DAKP2X.

***************************************************************************.

***  Indelen van percentage isolatie in 2 klassen (0-50, 50-100).

***************************************************************************.

*    DAKP2X     Klassen isolatie (2) (correctie bouwjaar).

 

do if OCDKWX > 0.

     do if ISOBDKX <= 50.

               compute DAKP2X = 1.

          else if ISOBDKX <= 100.

               compute DAKP2X = 2.

     else.

               compute DAKP2X = 3.

     end if.

end if.

 

execute.

 

* ISOZDKX OCZDKNX.

***************************************************************************.

***     Isolatie inclusief zoldervloer voor het geval de woning.

***************************************************************************.

*    ISOZDKX     Isolatiegraad (%) (correctie bouwjaar en zoldervloer)).

*    OCZDKNX     Geļsoleerd oppervlak m2 inclusief bouwjaar en zolder.

 

do if OCDKWX > 0.

          compute ISOZDKX = ISOBDKX.

     if (ISOZDKHX = 100 & OCDKWX > 0)

          ISOZDKX = sum(OCDKHW,OCDKPNW)/OCDKWX * 100.

          compute OCZDKNX = OCBDKNX.

     if (ISOZDKHX = 100 & OCDKWX > 0)

          OCZDKNX = sum(OCDKHW,OCDKPNW).

end if.

 

execute.

 

 

* DAKZP4X.

***************************************************************************.

***  Indelen van percentage isolatie in 4 klassen (0-10, 10-50, 50-90 en .

***  90-100).

***************************************************************************.

*    DAKZP4X     Klassen isolatie (4) (correctie bouwjaar + zolder).

 

do if OCDKWX > 0.

     do if ISOZDKX < 10.

               compute DAKZP4X = 1.

          else if ISOZDKX <= 50.

               compute DAKZP4X = 2.

          else if ISOZDKX < 90.

               compute DAKZP4X = 3.

          else if ISOZDKX <= 100.

               compute DAKZP4X = 4.

     else.

               compute DAKZP4X = 5.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Vloer Begane grond.

***************************************************************************.

*    OCBGVW     Oppervlak m2.

*    OCBGVNW     Isolatie m2.

*     OCBBGNWX     Isolatie m2 (correctie bouwjaar).

*    ISOBGX     Isolatiegraad.

*    ISOBBGX     Isolatiegraad (correctie bouwjaar).

*     ISOBBG2X    Klassen isolatie (2) (correctie bouwjaar).

*     ISOBBG4X    Klassen isolatie (4) (correctie bouwjaar).

 

* ISOBGX ISOBBGX OCBBGNWX.

***************************************************************************.

*    ISOBGX     Isolatiegraad.

*    ISOBBGX     Isolatiegraad (correctie bouwjaar).

*     OCBBGNWX     Isolatie m2 (correctie bouwjaar).

 

do if OCBGVW > 0.

          compute ISOBGX = OCBGVNW / OCBGVW * 100.

          compute ISOBBGX = ISOBGX.

          compute OCBBGNWX = OCBGVNW.

     if (BJKLAS = 3 & BJAARX > 1983)

          ISOBBGX = 100.

     if (ISOBBGX = 100)

          OCBBGNWX = OCBGVW.

end if.

 

execute.

 

* ISOBBG4X.

***************************************************************************.

*     ISOBBG4X    Klassen isolatie (4) (correctie bouwjaar).

 

do if OCBGVW > 0.

     do if ISOBBGX < 10.

               compute ISOBBG4X = 1.

          else if ISOBBGX <= 50.

               compute ISOBBG4X = 2.

          else if ISOBBGX < 90.

               compute ISOBBG4X = 3.

          else if ISOBBGX <= 100.

               compute ISOBBG4X = 4.

     else.

               compute ISOBBG4X = 5.

     end if.

end if.

 

execute.

 

* ISOBBG2X.

***************************************************************************.

*     ISOBBG2X    Klassen isolatie (2) (correctie bouwjaar).

 

do if OCBGVW > 0.

     do if ISOBBGX <= 50.

               compute ISOBBG2X = 1.

          else if ISOBBGX <= 100.

               compute ISOBBG2X = 2.

     else.

               compute ISOBBG2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Gevel exclusief platen.

***************************************************************************.

*    OGGTOTW     Oppervlak m2 gevel.

*     OGGNTOTW     Isolatie gevel.

*     OBGGNTTX     Isolatie gevel (correctie bouwjaar).

*    ISOGGX     Isolatiegraad gevel.

*    ISOBGGX     Isolatiegraad gevel (correctie bouwjaar).

*     ISOBGG4X    Klassen isolatie (4) gevel (correctie).

*     ISOBGG2X    Klassen isolatie (2) gevel (correctie).

 

* ISOGGX OBGGNTTX ISOBGGX.

***************************************************************************.

*     Isolatiegraad gevel.

***************************************************************************.

*    ISOGGX     Isolatiegraad gevel.

*     OBGGNTTX     Isolatie gevel (correctie bouwjaar).

*    ISOBGGX     Isolatiegraad gevel (correctie bouwjaar).

 

do if OGGTOTW > 0.

          compute ISOGGX = OGGNTOTW / OGGTOTW * 100.

          compute OBGGNTTX = OGGNTOTW.

          compute ISOBGGX = ISOGGX.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBGGX = 100.

     if (ISOBGGX = 100)

          OBGGNTTX = OGGTOTW.

end if.

 

execute.

 

* ISOBGG4X.

***************************************************************************.

*     ISOBGG4X    Klassen isolatie (4) gevel (correctie).

 

do if OGGTOTW > 0.

     do if ISOBGGX < 10.

               compute ISOBGG4X = 1.

          else if ISOBGGX <= 50.

               compute ISOBGG4X = 2.

          else if ISOBGGX < 90.

               compute ISOBGG4X = 3.

          else if ISOBGGX <= 100.

               compute ISOBGG4X = 4.

          else.

               compute ISOBGG4X = 5.

     end if.

end if.

 

execute.

 

* ISOBGG2X.

***************************************************************************.

*     ISOBGG2X    Klassen isolatie (2) gevel (correctie).

 

do if OGGTOTW > 0.

     do if ISOBGGX <= 50.

               compute ISOBGG2X = 1.

          else if ISOBGGX <= 100.

               compute ISOBGG2X = 2.

          else.

               compute ISOBGG2X = 3.

     end if.

end if.

 

execute.


 

***************************************************************************.

***  Platen (van kozijnwerk; niet van serre).

***************************************************************************.

*    WKKBPOW     Oppervlak m2 platen ongeļsoleerd (woonkamer).

*    SKKBPOW     Oppervlak m2 platen ongeļsoleerd (slaapkamer).

*    KKKBPOW     Oppervlak m2 platen ongeļsoleerd (keuken).

*    NCKBPOW     Oppervlak m2 platen ongeļsoleerd (natte cel).

*    OVKBPOW     Oppervlak m2 platen ongeļsoleerd (overig).

*    WKKBPGW     Oppervlak m2 platen geļsoleerd (woonkamer).

*    SKKBPGW     Oppervlak m2 platen geļsoleerd (slaapkamer).

*    KKKBPGW     Oppervlak m2 platen geļsoleerd (keuken).

*    NCKBPGW     Oppervlak m2 platen geļsoleerd (natte cel).

*    OVKPBGW     Oppervlak m2 platen geļsoleerd (overig).

*    OCKBPOX     Oppervlak m2 platen ongeļsoleerd (totaal).

*    OCKBPGX     Oppervlak m2 platen geļsoleerd (totaal).

*    PLX       Oppervlak m2 platen ongeļsoleerd + geļsoleerd (tot).

*    ISOPLX     Isolatiegraad platen.

*    ISOPL4X     Klassen isolatie (4) platen (correctie).

 

* OCKBPOX OCKBPGX PLX.

***************************************************************************.

*    OCKBPOX     Oppervlak m2 platen ongeļsoleerd (totaal).

*    OCKBPGX     Oppervlak m2 platen geļsoleerd (totaal).

*    PLX       Oppervlak m2 platen ongeļsoleerd + geļsoleerd (tot).

 

compute OCKBPOX = SUM(WKKBPOW,SKKBPOW,KKKBPOW,NCKBPOW,OVKBPOW).

compute OCKBPGX = SUM(WKKBPGW,SKKBPGW,KKKBPGW,NCKBPGW,ovkbpgw).

compute PLX = SUM(OCKBPGX,OCKBPOX).

 

variable labels

     PLX

          'Beplating (geļsoleerd en niet geļsoleerd)'.

 

execute.

 

* ISOPLX.

***************************************************************************.

*    ISOPLX     Isolatiegraad platen.

 

do if PLX > 0.

     compute ISOPLX = OCKBPGX / PLX * 100.

end if.

 

execute.

 

* ISOPL4X.

***************************************************************************.

*    ISOPL4X     Klassen isolatie (4) platen (correctie).

 

do if PLX > 0.

     do if ISOPLX < 10.

               compute ISOPL4X = 1.

          else if ISOPLX <= 50.

               compute ISOPL4X = 2.

          else if ISOPLX < 90.

               compute ISOPL4X = 3.

          else if ISOPLX <= 100.

               compute ISOPL4X = 4.

          else.

               compute ISOPL4X = 5.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

* Gevel inclusief platen.

***************************************************************************.

*    OGGTOTW     Oppervlak m2 gevel.

*    PLX       Oppervlak m2 (platen) (+).

*    GGPLX     Oppervlak m2 (gevel inclusief platen).

*    GGPLISX     Isolatie gevel inclusief platen.

*     BGGPLISX     Isolatie gevel inclusief platen (correctie bj) (+).

*    IGGPLX     Isolatiegraad gevel inclusief platen.

*    IBGGPLX     Isolatiegraad gevel inclusief platen (correctie).

*     IBGGPL4X    Klassen isolatie (4) gevel + platen (correctie).

*     IBGGPL2X    Klassen isolatie (2) gevel + platen (correctie) (+).

 

* GGPLX.

***************************************************************************.

***     Oppervlak m2 gevel + platen.

***************************************************************************.

*    GGPLX     Oppervlak m2 (gevel inclusief platen).

 

compute GGPLX = SUM(OGGTOTW,PLX).

 

variable labels

     GGPLX

          'Gevel (gesloten gevel, beplating)'.

 

execute.

 

* GGPLISX.

***************************************************************************.

***     Isolatie oppervlak m2 gevel + platen.

***************************************************************************.

*    GGPLISX     Isolatie gevel inclusief platen.

 

compute GGPLISX = SUM(OGGNTOTW,OCKBPGX).

 

execute.

 

 

* IGGPLX IBGGPLX BGGPLISX.

***************************************************************************.

***     Isolatiegraad gevel inclusief platen.

***************************************************************************.

*    IGGPLX     Isolatiegraad gevel inclusief platen.

*    IBGGPLX     Isolatiegraad gevel inclusief platen (correctie).

*     BGGPLISX     Isolatie gevel inclusief platen (correctie bj) (+).

 

do if GGPLX > 0.

          compute IGGPLX = GGPLISX / GGPLX * 100.

          compute IBGGPLX = IGGPLX.

          compute BGGPLISX = GGPLISX.

     if (BJKLAS = 3 & BJAARX > 1979)

          IBGGPLX = 100.

     if (IBGGPLX = 100)

          BGGPLISX = GGPLX.

end if.

 

execute.

 

* IBGGPL4X.

***************************************************************************.

*     IBGGPL4X    Klassen isolatie (4) gevel + platen (correctie).

 

do if GGPLX > 0.

     do if IBGGPLX < 10.

               compute IBGGPL4X = 1.

          else if IBGGPLX <= 50.

               compute IBGGPL4X = 2.

          else if IBGGPLX < 90.

               compute IBGGPL4X = 3.

          else if IBGGPLX <= 100.

               compute IBGGPL4X = 4.

     else.

               compute IBGGPL4X = 5.

     end if.

end if.

 

execute.

 

* IBGGPL2X.

***************************************************************************.

*     IBGGPL2X    Klassen isolatie (2) gevel + platen (correctie) (+).

 

do if GGPLX > 0.

     do if IBGGPLX <= 50.

               compute IBGGPL2X = 1.

          else if IBGGPLX <= 100.

               compute IBGGPL2X = 2.

     else.

               compute IBGGPL2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  SPOUW.

***************************************************************************.

*    OGGMSW     Oppervlak m2.

*    OGGMSNW     Isolatie.

*     OBGGMSNX     Isolatie correctie bouwjaar (+).

*    ISOMSX     Isolatiegraad.

*    ISOBMSX     Isolatiegraad (correctie bouwjaar).

*     ISOBMS4X    Klassen isolatie (4).

*     ISOBMS2X    Klassen isolatie (2)(+).

 

* ISOMSX ISOBMSX OBGGMSNX.

***************************************************************************.

*    ISOMSX     Isolatiegraad.

*    ISOBMSX     Isolatiegraad (correctie bouwjaar).

*     OBGGMSNX     Isolatie correctie bouwjaar (+).

 

do if OGGMSW > 0.

          compute ISOMSX = OGGMSNW / OGGMSW * 100.

          compute ISOBMSX = ISOMSX.

          compute OBGGMSNX = OGGMSNW.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBMSX = 100.

     if (ISOBMSX = 100)

          OBGGMSNX = OGGMSW.

end if.

 

execute.

 

* ISOBMS4X.

***************************************************************************.

*     ISOBMS4X    Klassen isolatie (4).

 

do if OGGMSW > 0.

     do if ISOBMSX < 10.

               compute ISOBMS4X = 1.

          else if ISOBMSX <= 50.

               compute ISOBMS4X = 2.

          else if ISOBMSX < 90.

               compute ISOBMS4X = 3.

          else if ISOBMSX <= 100.

               compute ISOBMS4X = 4.

     else.

               compute ISOBMS4X = 5.

     end if.

end if.

 

execute.

 

* ISOBMS2X.

***************************************************************************.

*     ISOBMS2X    Klassen isolatie (2)(+).

 

do if OGGMSW > 0.

     do if ISOBMSX <= 50.

               compute ISOBMS2X = 1.

          else if ISOBMSX <= 100.

               compute ISOBMS2X = 2.

     else.

               compute ISOBMS2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

* NIET SPOUW (exclusief platen).

***************************************************************************.

*    OGGMSW     Oppervlak m2 spouw.

*    NSX       Oppervlak m2 niet spouw.

*    OGGTOTW     Oppervlak m2 gevel.

*    OGGMSNW     Isolatie spouw.

*    NSISX     Isolatie niet spouw.

*     OGGNTOTW     Isolatie gevel.

*    ISONSX     Isolatiegraad niet spouw.

*    ISOBNSX     Isolatiegraad niet spouw (correctie bouwjaar).

*     ISOBNS4X    Klassen isolatie (4) niet spouw (correctie).

*     ISOBNS2X    Klassen isolatie (2) niet spouw (correctie) (+).

 

* NSX.

***************************************************************************.

***     Oppervlakte m2 niet spouw.

***************************************************************************.

*    NSX       Oppervlak m2 niet spouw.

 

compute NSX = SUM(OGGTOTW, - OGGMSW).

 

variable labels

     NSX

          'Gevel ex spouw '.

 

execute.

 

* NSISX.

***************************************************************************.

***     Isolatie oppervlakte m2 niet spouw.

***************************************************************************.

*    NSISX     Isolatie niet spouw.

 

compute NSISX = SUM(OGGNTOTW,-OGGMSNW).

 

execute.

 

* ISONSX ISOBNSX.

***************************************************************************.

***     Isolatiegraad niet spouw (gecorrigeerd met bouwjaar).

***************************************************************************.

*    ISONSX     Isolatiegraad niet spouw.

*    ISOBNSX     Isolatiegraad niet spouw (correctie bouwjaar).

 

do if NSX > 0.

          compute ISONSX = NSISX / NSX * 100.

          compute ISOBNSX = ISONSX.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBNSX = 100.

end if.

 

execute.

 

* ISOBNS4X.

***************************************************************************.

***     Isolatiegraad niet spouw in klassen (gecorrigeerd met bouwjaar).

***************************************************************************.

*     ISOBNS4X    Klassen isolatie (4) niet spouw (correctie).

 

do if NSX > 0.

     do if ISOBNSX < 10.

               compute ISOBNS4X = 1.

          else if ISOBNSX <= 50.

               compute ISOBNS4X = 2.

          else if ISOBNSX < 90.

               compute ISOBNS4X = 3.

          else if ISOBNSX <= 100.

               compute ISOBNS4X = 4.

          else.

               compute ISOBNS4X = 5.

     end if.

end if.

 

execute.

 

* ISOBNS2X.

***************************************************************************.

*     ISOBNS2X    Klassen isolatie (2) niet spouw (correctie) (+).

 

do if NSX > 0.

     do if ISOBNSX <= 50.

               compute ISOBNS2X = 1.

          else if ISOBNSX <= 100.

               compute ISOBNS2X = 2.

          else.

               compute ISOBNS2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

* NIET SPOUW (inclusief platen) ------- > naar ECN.

***************************************************************************.

*    OGGMSW     Oppervlak m2 spouw.

*    NSPLX     Oppervlak m2 (niet spouw + platen).

*    GGPLX     Oppervlak m2 (gevel inclusief platen).

*    OGGMSNW     Isolatie spouw.

*    NSPLISX     Isolatie niet spouw + platen (+).

*    BNSPLSX     Isolatie niet spouw + platen (correctie bj) (+).

*    GGPLISX     Isolatie gevel inclusief platen.

*    INSPLX     Isolatiegraad niet spouw + platen         (+).

*    IBNSPLX     Isolatiegraad niet spouw + platen (correctie).

*     IBNSPL4X    Klassen isolatie (4) spouw + platen (correctie).

*     IBNSPL2X    Klassen isolatie (2) spouw + platen (correctie) (+).

 

* NSPLX.

***************************************************************************.

***     Oppervlak m2 niet-spouw + platen.

***************************************************************************.

*    NSPLX     Oppervlak m2 (niet spouw + platen).

 

compute NSPLX = SUM(GGPLX,-OGGMSW).

 

* NSPLISX.

***************************************************************************.

***     Isolatie oppervlak m2 niet spouw +platen.

***************************************************************************.

*    NSPLISX     Isolatie niet spouw + platen (+).

 

compute NSPLISX = SUM(GGPLISX,-OGGMSNW).

 

execute.

 

* INSPLX.

***************************************************************************.

***     Isolatiegraad niet spouw inclusief platen.

***************************************************************************.

*    INSPLX     Isolatiegraad niet spouw + platen         (+).

 

do if NSPLX > 0.

     compute INSPLX = NSPLISX / NSPLX * 100.

end if.

 

execute.

 

* IBNSPLX BNSPLSX.

***************************************************************************.

*    IBNSPLX     Isolatiegraad niet spouw + platen (correctie).

*    BNSPLSX     Isolatie niet spouw + platen (correctie bj) (+).

 

do if NSPLX > 0.

          compute IBNSPLX = INSPLX.

          compute BNSPLSX = NSPLISX.

     if (BJKLAS = 3 & BJAARX > 1979)

          IBNSPLX = 100.

     if (IBNSPLX = 100)

          BNSPLSX = NSPLX.

end if.

 

execute.

 

* IBNSPL4X.

***************************************************************************.

*     IBNSPL4X    Klassen isolatie (4) spouw + platen (correctie).

 

do if NSPLX > 0.

     do if IBNSPLX < 10.

               compute IBNSPL4X = 1.

          else if IBNSPLX <= 50.

               compute IBNSPL4X = 2.

          else if IBNSPLX < 90.

               compute IBNSPL4X = 3.

          else if IBNSPLX <= 100.

               compute IBNSPL4X = 4.

          else.

               compute IBNSPL4X = 5.

     end if.

end if.

 

execute.

 

* IBNSPL2X.

***************************************************************************.

*     IBNSPL2X    Klassen isolatie (2) spouw + platen (correctie) (+).

 

do if NSPLX > 0.

     do if IBNSPLX <= 50.

               compute IBNSPL2X = 1.

          else if IBNSPLX <= 100.

               compute IBNSPL2X = 2.

          else.

               compute IBNSPL2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***     Gesloten gevel: Enkelsteens dik ( > 20 cm).

***************************************************************************.

*    OGGMMW      Oppervlak m2.

*    OGGMMNW     Isolatie.

*    ISOMMX     Isolatiegraad.

*    ISOBMMX     Isolatiegraad (correctie bouwjaar).

*     ISOBMM2X    Klassen isolatie (2) (+).

*     ISOBMM4X    Klassen isolatie (4).

 

* ISOMMX ISOBMMX.

***************************************************************************.

*    ISOMMX     Isolatiegraad.

*    ISOBMMX     Isolatiegraad (correctie bouwjaar).

 

do if OGGMMW > 0.

          compute ISOMMX = OGGMMNW / OGGMMW * 100.

          compute ISOBMMX = ISOMMX.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBMMX = 100.

end if.

 

execute.

 

* ISOBMM4X.

***************************************************************************.

*     ISOBMM4X    Klassen isolatie (4).

 

do if OGGMMW > 0.

     do if ISOBMMX < 10.

               compute ISOBMM4X = 1.

          else if ISOBMMX <= 50.

               compute ISOBMM4X = 2.

          else if ISOBMMX < 90.

               compute ISOBMM4X = 3.

          else if ISOBMMX <= 100.

               compute ISOBMM4X = 4.

          else.

               compute ISOBMM4X = 5.

     end if.

end if.

 

execute.

 

* ISOBMM2X.

***************************************************************************.

*     ISOBMM2X    Klassen isolatie (2) (+).

 

do if OGGMMW > 0.

     do if ISOBMMX <= 50.

               compute ISOBMM2X = 1.

          else if ISOBMMX <= 100.

               compute ISOBMM2X = 2.

          else.

               compute ISOBMM2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

*** Gesloten gevel: Enkelsteens dun( < 20 cm).

***************************************************************************.

*    OGGM2W     oppervlak m2.

*    OGGM2NW     isolatie.

*    ISOM2X     Isolatiegraad.

*    ISOBM2X     Isolatiegraad (correctie bouwjaar).

*     ISOBM22X    Klassen isolatie (2) (x).

*     ISOBM24X    Klassen isolatie (4).

 

* ISOM2X ISOBM2X.

***************************************************************************.

*    ISOM2X     Isolatiegraad.

*    ISOBM2X     Isolatiegraad (correctie bouwjaar).

 

do if OGGM2W > 0.

          compute ISOM2X = OGGM2NW / OGGM2W * 100.

          compute ISOBM2X = ISOM2X.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBM2X = 100.

end if.

 

execute.

 

* ISOBM24X.

***************************************************************************.

*     ISOBM24X    Klassen isolatie (4).

 

do if OGGM2W > 0.

     do if ISOBM2X < 10.

               compute ISOBM24X = 1.

          else if ISOBM2X <= 50.

               compute ISOBM24X = 2.

          else if ISOBM2X < 90.

               compute ISOBM24X = 3.

          else if ISOBM2X <= 100.

               compute ISOBM24X = 4.

          else.

               compute ISOBM24X = 5.

     end if.

end if.

 

execute.

 

* ISOBM22X.

***************************************************************************.

*     ISOBM22X    Klassen isolatie (2) (x).

 

do if OGGM2W > 0.

     do if ISOBM2X <= 50.

               compute ISOBM22X = 1.

          else if ISOBM2X <= 100.

               compute ISOBM22X = 2.

          else.

               compute ISOBM22X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***     Gesloten gevel: Prefab beton.

***************************************************************************.

*    OGGPBW     Oppervlak m2.

*    OGGPBNW     Isolatie.

*    ISOPBX     Isolatiegraad.

*    ISOBPBX     Isolatiegraad (correctie bouwjaar).

*     ISOBPB2X    Klassen isolatie (2)(x).

*     ISOBPB4X    Klassen isolatie (4).

 

* ISOPBX ISOBPBX.

***************************************************************************.

*    ISOPBX     Isolatiegraad.

*    ISOBPBX     Isolatiegraad (correctie bouwjaar).

 

do if OGGPBW > 0.

          compute ISOPBX = OGGPBNW / OGGPBW * 100.

          compute ISOBPBX = ISOPBX.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBPBX = 100.

end if.

 

execute.

 

* ISOBPB4X.

***************************************************************************.

*     ISOBPB4X    Klassen isolatie (4).

 

do if OGGPBW > 0.

     do if ISOBPBX < 10.

               compute ISOBPB4X = 1.

          else if ISOBPBX <= 50.

               compute ISOBPB4X = 2.

          else if ISOBPBX < 90.

               compute ISOBPB4X = 3.

          else if ISOBPBX <= 100.

               compute ISOBPB4X = 4.

          else.

               compute ISOBPB4X = 5.

     end if.

end if.

 

execute.

 

* ISOBPB2X.

***************************************************************************.

*     ISOBPB2X    Klassen isolatie (2)(x).

 

do if OGGPBW > 0.

     do if ISOBPBX <= 50.

               compute ISOBPB2X = 1.

          else if ISOBPBX <= 100.

               compute ISOBPB2X = 2.

          else.

               compute ISOBPB2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***     Gesloten gevel: Anders.

***************************************************************************.

*    OGGANW     Oppervlak m2.

*    OGGANNW     Isolatie.

*    ISOANX     Isolatiegraad.

*    ISOBANX     Isolatiegraad (correctie bouwjaar).

*     ISOBAN2X    Klassen isolatie (2)(+).

*     ISOBAN4X Klassen isolatie (4).

 

* ISOANX ISOBANX.

***************************************************************************.

*    ISOANX     Isolatiegraad.

*    ISOBANX     Isolatiegraad (correctie bouwjaar).

 

do if OGGANW > 0.

          compute ISOANX = OGGANNW / OGGANW * 100.

          compute ISOBANX = ISOANX.

     if (BJKLAS = 3 & BJAARX > 1979)

          ISOBANX = 100.

end if.

 

execute.

 

* ISOBAN4X.

***************************************************************************.

*     ISOBAN4X Klassen isolatie (4).

 

do if OGGANW > 0.

     do if ISOBANX < 10.

               compute ISOBAN4X = 1.

          else if ISOBANX <= 50.

               compute ISOBAN4X = 2.

          else if ISOBANX < 90.

               compute ISOBAN4X = 3.

          else if ISOBANX <= 100.

               compute ISOBAN4X = 4.

          else.

               compute ISOBAN4X = 5.

     end if.

end if.

 

execute.

 

* ISOBAN2X.

***************************************************************************.

*     ISOBAN2X    Klassen isolatie (2)(+).

 

do if OGGANW > 0.

     do if ISOBANX <= 50.

               compute ISOBAN2X = 1.

          else if ISOBANX <= 100.

               compute ISOBAN2X = 2.

          else.

               compute ISOBAN2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Ramen beneden (woonkamer, keuken).

***************************************************************************.

*    GLWX      Oppervlak m2.

*    GLDUBWX     Isolatie (dubbel glas).

*    ISOGLWX     Isolatiegraad.

*     ISOGLW2X    Klassen isolatie (2) (+).

*     ISOGLW4X    Klassen isolatie (4).

 

* GLWX.

***************************************************************************.

*    GLWX      Oppervlak m2.

 

compute GLWX = SUM(WKKENGW,WKKDBGW,KKKENGW,KKKDBGW).

 

execute.

 

* GLDUBWX.

***************************************************************************.

*    GLDUBWX     Isolatie (dubbel glas).

 

compute GLDUBWX = SUM(WKKDBGW,KKKDBGW).

 

execute.

 

* ISOGLWX.

***************************************************************************.

*    ISOGLWX     Isolatiegraad.

 

if (GLWX > 0)

     ISOGLWX = GLDUBWX / GLWX * 100.

 

execute.

 

* ISOGLW4X.

***************************************************************************.

*     ISOGLW4X    Klassen isolatie (4).

 

do if GLWX > 0.

     do if ISOGLWX < 10.

               compute ISOGLW4X = 1.

          else if ISOGLWX <= 50.

               compute ISOGLW4X = 2.

          else if ISOGLWX < 90.

               compute ISOGLW4X = 3.

          else if ISOGLWX <= 100.

               compute ISOGLW4X = 4.

          else.

               compute ISOGLW4X = 5.

     end if.

end if.

 

execute.

 

* ISOGLW2X.

***************************************************************************.

*     ISOGLW2X    Klassen isolatie (2) (+).

 

do if GLWX > 0.

     do if ISOGLWX <= 50.

               compute ISOGLW2X = 1.

          else if ISOGLWX <= 100.

               compute ISOGLW2X = 2.

          else.

               compute ISOGLW2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Ramen boven (slaapkamer, natte cel, overig).

***************************************************************************.

*    GLSX      Oppervlak m2.

*    GLDUBSX     Isolatie (dubbel glas).

*    ISOGLSX     Isolatiegraad.

*     ISOGLS2X    Klassen isolatie (2) (+).

*     ISOGLS4X    Klassen isolatie (4).

 

* GLSX.

***************************************************************************.

*    GLSX      Oppervlak m2.

 

compute GLSX = SUM(SKKENGW,SKKDBGW,NCKENGW,NCKDBGW,OVKENGW,OVKDBGW).

 

execute.

 

* GLDUBSX.

***************************************************************************.

*    GLDUBSX     Isolatie (dubbel glas).

 

compute GLDUBSX = SUM(SKKDBGW,NCKDBGW,OVKDBGW).

 

execute.

 

* ISOGLSX.

***************************************************************************.

*    ISOGLSX     Isolatiegraad.

 

if (GLSX > 0)

     ISOGLSX = GLDUBSX / GLSX * 100.

 

execute.

 

* ISOGLS4X.

***************************************************************************.

*     ISOGLS4X    Klassen isolatie (4).

 

do if GLSX > 0.

     do if ISOGLSX < 10.

               compute ISOGLS4X = 1.

          else if ISOGLSX <= 50.

               compute ISOGLS4X = 2.

          else if ISOGLSX < 90.

               compute ISOGLS4X = 3.

          else if ISOGLSX <= 100.

               compute ISOGLS4X = 4.

          else.

               compute ISOGLS4X = 5.

     end if.

end if.

 

execute.

 

* ISOGLS2X.

***************************************************************************.

*     ISOGLS2X    Klassen isolatie (2) (+).

 

do if GLSX > 0.

     do if ISOGLSX <= 50.

               compute ISOGLS2X = 1.

          else if ISOGLSX <= 100.

               compute ISOGLS2X = 2.

          else.

               compute ISOGLS2X = 3.

     end if.

end if.

 

execute.

 


 

***************************************************************************.

***  Glas totaal.

***************************************************************************.

*    GLX       Oppervlak m2.

*    GLDUBX     Isolatie (dubbel glas).

*    ISOGLX     Isolatiegraad.

*    ISOGL2X     Klassen isolatie (2) (+).

*    ISOGL4X     Klassen isolatie (4).

 

* GLX.

***************************************************************************.

*    GLX       Oppervlak m2.

 

compute GLX = SUM(GLWX,GLSX).

 

execute.

 

* GLDUBX.

***************************************************************************.

*    GLDUBX     Isolatie (dubbel glas).

 

compute GLDUBX = SUM(GLDUBWX,GLDUBSX).

 

execute.

 

* ISOGLX.

***************************************************************************.

*    ISOGLX     Isolatiegraad.

 

if (GLX > 0)

     ISOGLX = GLDUBX / GLX * 100.

 

execute.

 

* ISOGL4X.

***************************************************************************.

*    ISOGL4X     Klassen isolatie (4).

 

do if GLX > 0.

     do if ISOGLX < 10.

               compute ISOGL4X = 1.

          else if ISOGLX <= 50.

               compute ISOGL4X = 2.

          else if ISOGLX < 90.

               compute ISOGL4X = 3.

          else if ISOGLX <= 100.

               compute ISOGL4X = 4.

          else.

               compute ISOGL4X = 5.

     end if.

end if.

 

execute.

 

* ISOGL2X.

***************************************************************************.

*    ISOGL2X     Klassen isolatie (2) (+).

 

do if GLX > 0.

     do if ISOGLX <= 50.

               compute ISOGL2X = 1.

          else if ISOGLX <= 100.

               compute ISOGL2X = 2.

          else.

               compute ISOGL2X = 3.

     end if.

end if.

 

execute.

 


 

* SCORETOT.

***************************************************************************.

***     Energetische kwaliteit (Rapport Poel).

***     Berekening van punten als indicatie voor energetische kwaliteit .

***  woning.

***  Woning scoort een punt per bouwdeel (maximaal 5) als dit bouwdeel .

***  voor meer dan de helft geļsoleerd is.

***  Gekeken wordt naar:.

***  - dak.

***  - gevel.

***  - begane grondvloer.

***  - glas.

***  - type (centrale) verwarming.

***  Bij stads- en blokverwarming krijgen woningen een punt; lokale .

***     verwarming scoort niet en een CV scoort vanaf VR ketel.

***     Meergezinswoningen zonder dak scoren een punt, evenals .

***     meergezinswoningen zonder begane grondvloer.

***************************************************************************.

 

compute SCORETOT = 0.

compute SCOREDK = 0.

compute SCOREGG = 0.

compute SCOREBG = 0.

compute SCOREGL = 0.

compute SCORECV = 0.

 

if (BTWEMW = 2 & MSDAKW = 0)

     SCOREDK = 1.

if (BTWEMW = 2 & MSDAKW = 1 & DAKP2X = 2)

     SCOREDK = 1.

if (BTWEMW = 1 & DAKP2X = 2)

     SCOREDK = 1.

if (ISOBGG2X = 2)

     SCOREGG = 1.

if (BTWEMW = 2 & MSMVELDW = 0)

     SCOREBG = 1.

if (BTWEMW = 2 & MSMVELDW = 1 & ISOBBG2X = 2)

     SCOREBG = 1.

if (BTWEMW = 1 & ISOBBG2X = 2)

     SCOREBG = 1.

if (ISOGL2X = 2)

     SCOREGL = 1.

if (VERWARM1 = 3)

     SCORECV = 1.

if (VERWARM1 = 1 & VCVSRTW > 2)

     SCORECV = 1.

 

compute SCORETOT = sum (SCOREDK, SCOREGG, SCOREBG, SCOREGL, SCORECV).

 

execute.

 


 

* GWONABF EWONABF WWONABF.

***************************************************************************.

***  Gas en elektriciteitsverbruik van woningen exclusief bedrijfsruimte .

***  of praktijkruimte.

***  Nico Boxhoorn (22 april 2003).

***************************************************************************.

 

do if GDEFABF > 0.

          compute GWONABF = GDEFABF.

     if (BPRUIMTE = 1)

          GWONABF = -1.

end if.

 

do if EJAAR > 0.

          compute EWONABF = EJAAR.

     if (BPRUIMTE = 1)

          EWONABF = -1.

end if.

 

do if WDEFABF > 0.

          compute WWONABF = WDEFABF.

     if (BPRUIMTE = 1)

          WWONABF = -1.

end if.

 

var labels

     WWONABF

          'Warmteverbruik exclusief bedrijfsruimten in equivalente m3 gas per jaar inclusief ABF-bijschat'.

 

rename variables (EJAAR = EDEFABF).

 

var labels

     EDEFABF

          'Elektriciteitsverbruik definitief in kWh per jaar inclusief ABF-bijschat'.

 

execute.

 


 

***************************************************************************.

***  EURO REST

***************************************************************************.

 

do repeat

     XXX =

          ERFPACHT

          VERKWAAR

          BETHYP

          GBKTOTNW

          BEKTOTNW

          TRKTOTNW

          OBKTOTNW

          GGKTOTNW

          KEKTOTNW

          BGKTOTNW

          DKKTOTNW

          VLKTOTNW

          WAKTOTNW

          KIKTOTNW

          PLKTOTNW

          IWKTOTNW

          IBKTOTNW

          WKTOTNW

          NBKTOTW

          INKBESX.

     if (XXX > 0) XXX = RND(XXX / 2.20371).

end repeat.

 

if (INKBESX < -9) INKBESX = RND(INKBESX / 2.20371).

 

if (INKBELX < -9) INKBELX = RND(INKBELX / 2.20371).

 

do repeat

     XXX =

          HUURTOT

          BEDRIHS

          INKBELX

          BDGWINOP

          BDGMWAOP

          BDNINKOP

          BDGWWOP

          BEDUITOP

          BDGPENOP

          BEDPENOP

          BDGWINPA

          BDGMWAPA

          BDNINKPA

          BDGWWPA

          BEDUITPA

          BDGPENPA

          BEDPENPA

          BDHHBELT.

     if (XXX > 0) XXX = RND(XXX / 2.20371).

end repeat.

 

value labels INKON2OP INKON2PA

     -2 'onbekend'

     -1 'nvt'

     1 ' < 227'

     2 '227 - 454'

     3 '454 - 908'

     4 '908 - 1361'

     5 '1361 - 1815'

     6 '1815 - 2269'

     7 '2269 - 2723'

     8 ' >= 2723'.

 

execute.

 


 

* LFTPOEL.

***************************************************************************.

***  deze volgende variabele wordt niet door SPSS in deze SPSS-file .

***     geaccepteerd.

***************************************************************************.

 

recode LFTOPKLX

     (1 = 1)

     (2 = 1)

     (3 = 2)

     (4 = 2)

     (5 = 3)

     (6 = 4)

     (7 = 5)

into     LFTPOEL.

 

variable labels LFTPOEL

     'leeftijdsklassen poel'.

 

execute.

 


 

* INKPOEL.

***************************************************************************.

***  deze volgende variabele wordt niet door SPSS in deze SPSS-file .

***     geaccepteerd.

***************************************************************************.

 

recode INKBEKLX

     (0 = 0)

     (1 = 1)

     (2 = 1)

     (3 = 2)

     (4 = 3)

     (5 = 4)

     (6 = 5)

     (7 = 6)

into INKPOEL.

 

variable labels

     INKPOEL

          'Inkomensklassen poel'.

 

execute.