Attribute VB_name = "xxVectordef"
Option Base 1
'**** This is a program generated file - do not edit
'**** Generated: 2007-03-16 14:54:20
'*** Declarations
'**** I-vectors ****
Public i_aap() As Long 'Pension qualifying earnings
Public i_abroad() As Integer 'Living abroad 0/1
Public i_ADL() As Byte 'Funktionsnedsättning
Public i_ADL_rnd() As Single 'Random number for simulation of ADL
Public i_age() As Byte 'Age
Public i_ap() As Long 'Public pensions, total
Public i_ap_ap() As Long 'Pensions from Old age pension system
Public i_ap_atp() As Long 'Supplementary retirement pension, ATP
Public i_ap_atp_1994() As Long 'ATP, 1994 level
Public i_ap_atp_old() As Long 'Old ATP-pension for all years
Public i_ap_atp_ut() As Long 'Paid out ATP
Public i_ap_fiktiv() As Long 'Retirement pension, fictitious
Public i_ap_fp() As Long 'Basic retirement pension, folkpension
Public i_ap_fp30() As Long 'Basic retirement pension, folkpension
Public i_ap_fp30_1994() As Long 'Basic retirement pension, folkpension, 1994 level
Public i_ap_fp30_ut() As Long 'Paid out ref basic pens
Public i_ap_gartill() As Long 'Retirement pension, reformed transitional suppl.
Public i_ap_gp() As Long 'Guarantee pension
Public i_ap_ip() As Long 'Retirement pension, reformed income pension
Public i_ap_ip_ut() As Long 'Paid out income pension
Public i_ap_ip1() As Long 'Retirement pension, reformed income pension
Public i_ap_pensmonth() As Integer 'Number of months of early or late withdrawal
Public i_ap_pp() As Long 'Retirement pension, reformed inc. premium pens.
Public i_ap_pp_ut() As Long 'Paid out premium pension
Public i_ap_pts() As Long 'Basic retirement pension supplement
Public i_ap_tp() As Long 'Tilläggspension
Public i_ap_tp_ut() As Long 'Paid out ref suppl pens
Public i_arbavg() As Long 'Employers contributions
Public i_arbavg_akas() As Long 'Employers contribution, labour market
Public i_arbavg_alon() As Long '
Public i_arbavg_arsk() As Long 'Employers contribution, injury
Public i_arbavg_eft() As Long 'Employers contribution, widow(er)
Public i_arbavg_forp() As Long 'Employers contribution, parental leave
Public i_arbavg_pens() As Long 'Pension contrib, employers part
Public i_arbavg_sjuk() As Long 'Employers contribution, sickness
Public i_arbavg_slon() As Long 'Employers contribution, 65+
Public i_arbavg_slon38() As Long 'Employers contribution, f. 1938-
Public i_assistance_elderly() As Byte 'Special assistance for elderly
Public i_ATP_ar_1994() As Byte 'N. of years with ATP points in 1994
Public i_avg() As Long 'Paid contributions to the pension system
Public i_avg_aap() As Long 'Pension contributions paid by employers
Public i_avg_ftp() As Long 'Pension contributions paid by central government
Public i_avg_inc_at_retirement() As Long 'BabyBoom pension rules
Public i_avg_income_1997() As Long 'Income 1997 x 100 /basb
Public i_avg_ip() As Long 'Pension contributions, pay-as-you-go system
Public i_avg_ip2() As Long 'Pension contributions, pay-as-you-go system
Public i_avg_pgb() As Long 'Central government pension contributions, pgb
Public i_avg_stap() As Long 'Pension contributions paid by central-government
Public i_avg_trf() As Long 'Central government pension contributions, trf
Public i_avg2() As Long 'Pension contributions
Public i_BB_region() As Byte ''Regions used in the BabyBoom-project
Public i_bidnr() As Long 'LINDA individual number
Public i_binvar() As Integer 'Latest year of immigration
Public i_born_abroad() As Byte 'Born abroad 0/1
Public i_born_year() As Integer 'Födelseår
Public i_botid() As Integer 'Time with Swedish residence (years)
Public i_bvux() As Byte 'Binary marker for adults
Public i_bvux1() As Byte 'Binary marker for adult status previous year
Public i_civ_stat() As Byte 'Civil status (0, 1, 2)
Public i_civ_stat1() As Byte 'Lagged Civil status (0, 1, 2)
Public i_edlevel() As Integer 'Education level 0/1/2
Public i_edyears() As Byte 'Nr. of years in edu. after basic school
Public i_emig_year() As Integer 'Latest year of emigration
Public i_ftp() As Long 'Disability pension
Public i_ftp_64() As Integer 'Marks disability pension at age 64
Public i_ftp_antag() As Long 'Disability pension, qualifying income
Public i_ftp_atp() As Long 'Supplementary disability pension, ATP
Public i_ftp_fp() As Long 'Basic disability pension, folkpension
Public i_ftp_gar() As Long 'Guaranteed disability pension
Public i_ftp_ink() As Long 'Income based disability pension
Public i_ftp_just() As Long 'Disability pension, adjustment
Public i_ftp_pts() As Long 'Basic disability pension supplement
Public i_ftp_typ() As Byte 'Disablity pension type
Public i_ftp_year() As Integer 'Year of disability retirement
Public i_HasBeenWidowed() As Byte 'Indicates previous widowship
Public i_health() As Byte 'Health index
Public i_health_latent() As Single 'Latent health
Public i_health_latent1() As Single 'Latent health (lagged one year)
Public i_health1() As Byte 'Health index (lagged 1 year)
Public i_hhnr() As Long 'Houshould number at i level
Public i_hhstatus() As Byte 'Individual household status
Public i_housetax_postponed() As Long 'Postponed real estate tax
Public i_hsdropout() As Byte 'Age for dropout from high school
Public i_inc_capital() As Long 'Income of capital
Public i_inc_earning() As Long 'Earnings
Public i_inc_itvariance() As Single 'income variance
Public i_inc_ivariance() As Single 'Individual variance income
Public i_inc_market() As Long 'Market income (faktorinkomst)
Public i_inc_selfemployed() As Long 'Self employment income
Public i_inc_taxable() As Long 'Total taxable income
Public i_inc_taxable1() As Long 'Taxable income year (t-1)
Public i_inc_taxable2() As Long 'Taxable income year (t-1)
Public i_inc_taxable3() As Long 'Taxable income year (t-3)
Public i_inc_taxable4() As Long 'Taxable income year (t-4)
Public i_inc_taxable5() As Long 'Taxable income year (t-5)
Public i_inc_taxed() As Long 'Taxed income (beskattningsbar inkomst)
Public i_inc_work() As Long 'Income from work (carb)
Public i_income() As Long 'Temporary model income
Public i_indnr() As Long 'Individual number
Public i_InpatientCare() As Integer 'Number of days with inpatient care
Public i_last_hh_dur() As Byte 'Duration of latest household (years)
Public i_maintenance_paid() As Long 'Maintenance (paid)
Public i_mATP_1994() As Integer 'Mean ATP points in 1994
Public i_new_em() As Byte 'Binary marker for emigrants year t
Public i_new_fp() As Integer 'New early retirement, 1=new ER, -1=rehab
Public i_new_immig() As Byte 'Marker for immigrants year t
Public i_next_indnr() As Long 'Pointer to next ind in this household
Public i_nr_prev_hh() As Byte 'Number of previous households (unions)
Public i_op() As Long 'Occupational pension, total
Public i_op_an_db_after_65() As Long 'Occ. pens., db-system, annual payments (65+)
Public i_op_an_db_before_65() As Long 'Occ. pens., db-system, annual payments (-65)
Public i_op_an_dc_after_65() As Long 'Occ. pens., dc-system, annual payments (65+)
Public i_op_an_dc_before_65() As Long 'Occ. pens., dc-system, annual payments (-65)
Public i_op_ap_db() As Long 'Occupational pension, defiend benefit systems
Public i_op_ap_dc() As Long 'Occupational pension, defiend contribution systems
Public i_op_ap_tp() As Long 'Occupational pension, supplement
Public i_op_capital_value() As Long 'Occ. pens, remaining cap. value
Public i_op_erp() As Byte 'Indicator for early retirement programs
Public i_op_pp_years() As Byte 'Number of years in current labour market sector
Public i_op_pp_years_Blue() As Byte 'Qualifying years in sector 1
Public i_op_pp_years_Local() As Byte 'Qualifying years in sector 4
Public i_op_pp_years_State() As Byte 'Qualifying years in sector 3
Public i_op_pp_years_trans() As Byte 'Number of years in transitional occup pens
Public i_op_pp_years_White() As Byte 'Qualifying years in sector 2
Public i_op_retirement_individual_effect() As Double '
Public i_p_andel() As Double 'Share of full pension benefit
Public i_p_antman() As Byte 'Number of months with pension benefits
Public i_pb_fiktiv() As Long 'Cumulative pension rights, fictitious
Public i_pb_ip() As Long 'Cumulative pension rights for income pension
Public i_pb_ip1() As Long 'Lag Cumulative pension rights for income pension
Public i_pb_op_ap() As Long 'Cumulative pension rights for occup pens, old age
Public i_pb_op_tp() As Long 'Cumulative pension rights for occup pens, suppl
Public i_pb_pp() As Long 'Cumulative pension rights for premium pension
Public i_pbhi() As Long 'Income pension fund, historical
Public i_pc_care() As Long 'Public consumption: care
Public i_pc_childcare() As Long 'Public consumption: child care
Public i_pc_elderly() As Long 'Public consumption: care of elderly
Public i_pc_high_school() As Long 'Public consumption: high school
Public i_pc_labor() As Long 'Public consumption: labor market programs
Public i_pc_MAE() As Long 'Public consumption: MAE
Public i_pc_medicine() As Long 'Public consumption: medicine
Public i_pc_school() As Long 'Public consumption: school
Public i_pc_school_adult() As Long 'Public consumption: adult school other than MAE
Public i_pc_total() As Long 'Public consumption: total subsidy
Public i_pc_univ() As Long 'Public consumption: university
Public i_pgb() As Long 'Pensionable means other than income
Public i_pgb_antag() As Long 'PGB för förtidspension
Public i_pgb_barn() As Long 'PGB för barnår
Public i_pgb_barn_typ() As Long 'Type pension rigtht for child years
Public i_pgb_plikt() As Long 'PGB för värnplikt
Public i_pgb_stud() As Long 'PGB för studier
Public i_pgi() As Long 'Pensionable income
Public i_pgi_bas() As Long 'PGI base income
Public i_pgi_orange() As Long 'Deterministic pensioable income
Public i_pgi185() As Long 'Variable for ATP-adjustement
Public i_pp() As Long 'Private pension
Public i_pp_payout_time() As Integer 'Private pension, pay out time
Public i_ppmkap() As Long 'Premium pension fund, historical
Public i_pr_ip() As Long 'Pension-rights for reformed income pension
Public i_pr_ip1() As Long 'Pension-rights for reformed income pension (t-1)
Public i_pr_op_ap() As Long 'Pension-rights for occupational pension, old age
Public i_pr_op_tp() As Long 'Pension-rights for occupational pension, suppl
Public i_pr_pp() As Long 'Pension-rights for premium-pension
Public i_pr_pp1() As Long 'Pension-rights for premium-pension (t-1)
Public i_prob_unemployed() As Double 'For aligning of unemployment
Public i_prob_working() As Double 'For aligning of work
Public i_pu() As Long 'Income base, reformed pension system
Public i_pu_ind_comp() As Long 'Individual comparison income
Public i_pu_orange() As Long 'Deterministic pension rights
Public i_sarbavg_pens() As Long 'Pension contrib, paid by central government
Public i_sector() As Byte 'labor market sector
Public i_sector1() As Byte 'Labour market sector last year
Public i_selected() As Byte 'marks individual selection
Public i_sex() As Byte 'Sex (1 - male, 2 - female)
Public i_sick_ind() As Byte 'Indicates sickness allowance
Public i_sick_ind1() As Byte 'Indicates sickness allowance (lag 1)
Public i_sick_ind2() As Byte 'Indicates sickness allowance
Public i_sick_ind3() As Byte 'Indicates sickness allowance
Public i_sick_ind4() As Byte 'Indicates sickness allowance
Public i_sick_ind5() As Byte 'Indicates sickness allowance
Public i_sick_ind6() As Byte 'Indicates sickness allowance
Public i_sickleave() As Integer 'Nr. of days of abscense due to sickness
Public i_sickleave_ivariance() As Single 'Heterogeneity factor in sickleave model
Public i_stap_ftp() As Long 'Pension qualifying transfer payments (ftp)
Public i_stap_trf() As Long 'Pension qualifying transfer payments
Public i_status() As Byte 'Individual status
Public i_status1() As Byte 'Individual status year (t-1)
Public i_student() As Byte 'Status of current studies
Public i_study_debt() As Long 'Study loan, stock
Public i_studyloan_repaid() As Long 'Study loans, repayments
Public i_surv() As Long 'Survivors pension
Public i_surv_atp() As Long 'Survivors pension, supplementary ATP
Public i_surv_fp() As Long 'Survivors pension, basic FP
Public i_surv_omst() As Long 'Transitional survivors pension
Public i_surv_year() As Integer 'Year for take up of survivors pension
Public i_tax_capital() As Long 'Taxes (capital)
Public i_tax_contribution() As Long 'Social security contribution (allm. egenavg netto)
Public i_tax_income() As Long 'Taxes (income)
Public i_tax_local() As Long 'Local income tax
Public i_tax_national() As Long 'National income tax
Public i_tax_realestate() As Long 'Realestate tax
Public i_tax_total() As Long 'Taxes (total)
Public i_tax_wealth() As Long 'Wealth tax
Public i_tax_workcredit() As Long 'In work benefit
Public i_taxred_capital() As Long '
Public i_trf_btp() As Long 'Housing allowance for pensioners
Public i_trf_parentleave() As Long 'Parent's allowance
Public i_trf_pension() As Long 'Pension, total
Public i_trf_sickleave() As Long 'Sickness allowance
Public i_trf_skada() As Long 'Work injuries insurance
Public i_trf_study() As Long 'Total of study loans and grants
Public i_trf_study_grant() As Long 'Study grants
Public i_trf_study_loan() As Long 'Study loan, transfer
Public i_trf_taxable() As Long 'Total taxable transfers
Public i_trf_unemployed() As Long 'Labour market assistance
Public i_unemp_ivariance() As Single 'Individual variance unemployment
Public i_using_temp_pension() As Byte 'BabyBoom pension rules
Public i_vard() As Long 'Vårdbidrag
Public i_wealth_debt() As Long 'Individualized household debt
Public i_wealth_financial() As Long 'Financial wealth
Public i_wealth_pension_total() As Long 'Accumulated tax deductible pension savings
Public i_wealth_pension_year() As Long 'Tax deductible pension savings
Public i_wealth_pension_year1() As Long 'Tax deductible pension savings (lagged)
Public i_widowed() As Byte 'Indicates death of spouse during the year
Public i_work_share() As Single 'Share of full work-time
Public i_work_share1() As Single 'Share of full work-time, lag
Public i_workexperience() As Byte 'Number of years in status 8 (working)
Public i_year_sep() As Integer 'Year of last dissolution of household
'**** H-vectors ****
Public h_abroad() As Integer 'Living abroad
Public h_BB_region() As Byte 'Regions used in the BabyBoom-project
Public h_BB_region1() As Byte 'Regions used in the BabyBoom-project
Public h_bvux_work() As Byte 'Indicates that all adults in household is working
Public h_childmoveout() As Byte 'Indicates if child moves out
Public h_close_relative() As Byte 'Indicates closeness (geographical) to relative
Public h_close_relative1() As Byte 'Indicates closeness (geographical) to relative
Public h_emig_year() As Integer 'Latest year of emigration
Public h_first_indnr() As Long 'First indiviudal in this household
Public h_form_year() As Integer 'Year of formation of household
Public h_hhnr() As Long 'Household number at h level
Public h_house_area() As Integer 'House area (square mtrs)
Public h_house_cost() As Long 'Yearly cost of housing
Public h_house_interest() As Long 'Interest payments of house loan (SEK)
Public h_house_owner() As Byte 'Indicates ownership of home
Public h_house_owner1() As Byte 'Indicates ownership of home
Public h_house_purchase() As Long 'Purchase price of home
Public h_house_tax() As Long 'Yearly tax assessed value
Public h_idx_headofhh() As Long 'Index number of head of houshold
Public h_inc_capital() As Long 'Househol capital income
Public h_inc_disposable() As Long 'Disposable income for household
Public h_inc_disposable1() As Long 'Disposable income (lagged)
Public h_inc_market() As Long 'Household market income (faktorinkomst)
Public h_inc_work() As Long 'Household income from work (carb)
Public h_indnr_female() As Long 'Individual number for adult female
Public h_indnr_male() As Long 'Individual number for adult male
Public h_kommunindex() As Integer 'Municipality index
Public h_kommunkod() As Integer 'Code for municipality
Public h_maintenance_paid() As Long 'Maintenance (paid)
Public h_maintenance_received() As Long 'Maintenance (received)
Public h_max_age() As Byte 'Maximum age in household
Public h_max_edlevel() As Byte 'Highest educational attainment in household
Public h_max_inc_taxable() As Long 'Maximum taxable income of household
Public h_n_adults() As Integer 'Count of adults in hh
Public h_n_child() As Byte 'Count of children in hh
Public h_n_child1() As Byte 'Count of children in hh (lagged 1)
Public h_n_childlt12() As Byte 'Children below age 12
Public h_n_childlt7() As Byte 'Number of children younger than seven years of age
Public h_n_ge18() As Byte 'Nr. of individuals aged 18 and older
Public h_new_housing() As Byte 'Indikator for change of housing during the year
Public h_new_housing1() As Byte 'Indikator for change of housing during the year
Public h_new_immig() As Byte 'Binary marker for immigrant households year t
Public h_selected() As Byte 'marks household selection
Public h_size() As Byte 'Size of household
Public h_studyloan_repaid() As Long '
Public h_sum_inc_taxable() As Long 'Household sum of taxable income
Public h_sum_inc_taxable1() As Long 'Household lagged sum of taxable income
Public h_tax_realestate() As Long 'Household realestate tax
Public h_tax_total() As Long 'Taxes (total)
Public h_trf_btp() As Long 'Housing allowance for pensioners
Public h_trf_childallowance() As Long 'Childrens allowance
Public h_trf_housingallowance() As Long 'Housing allowance (SEK)
Public h_trf_pension() As Long 'Pensions, household total
Public h_trf_socialassistance() As Long 'Social assistance
Public h_trf_study() As Long 'Household total of study loans and grants
Public h_trf_taxable() As Long 'Household total taxable transfers
Public h_trf_taxfree() As Long 'Household total tax free transfers
Public h_wealth_CapitalGain() As Long 'Capital gain (loss if negative)
Public h_wealth_debt() As Long 'Total debt
Public h_wealth_debt_GLS1vc() As Single 'Random effect term
Public h_wealth_debt_GLS2vc() As Single 'Random effect term
Public h_wealth_debt_interest() As Long 'Debt interest
Public h_wealth_debt_interest_varcomp_p() As Single 'Variance component (probit)
Public h_wealth_debt_interest_varcomp_r() As Single 'Variance component (regression)
Public h_wealth_debt_interest1() As Long 'Lagged debt interest
Public h_wealth_debt_interestrate() As Double 'Debt interest rate
Public h_wealth_debt_interestrate1() As Single 'Lagged debt interest rate
Public h_wealth_debt_probit1vc() As Single 'Random effect term
Public h_wealth_debt_probit2vc() As Single 'Random effect term
Public h_wealth_debt_varcomp() As Single 'Probit random effect intercept
Public h_wealth_debt1() As Long 'Total debt (lagged)
Public h_wealth_DebtInterest_ind() As Byte 'Indicator for positive debt interest
Public h_wealth_DebtInterest_ind1() As Byte 'debt interest (lagged)
Public h_wealth_financial() As Long 'Households financial wealth
Public h_wealth_financial_sales() As Long 'Financial wealth from house sales
Public h_wealth_financial_varcomp() As Single 'Random effects intercept
Public h_wealth_financial1() As Long 'Financial wealth (lagged)
Public h_wealth_InterestDividends() As Long 'Interest and dividends
Public h_wealth_real() As Long 'Non-financial (real) wealth
Public h_wealth_real_home() As Long 'Own home
Public h_wealth_real_home1() As Long 'Own home (lagged)
Public h_wealth_real_other() As Long 'Other real wealth
Public h_wealth_real_other1() As Long 'Other real wealth (lagged)
'**** M-variables ****
Public m_AAK1664 As Double 'Labour force, AKU-definition
Public m_AAL1664 As Double 'Unemployed, AKU-definition
Public m_AAPSYS As Double 'Employed in labour market programs, AKU-definition
Public m_AAPTOT As Double 'Labour market programs, AKU-definition
Public m_AKK1619 As Double 'Labour supply, women 16-19
Public m_AKK2024 As Double 'Labour supply, women 20-24
Public m_AKK2529 As Double 'Labour supply, women 25-34
Public m_AKK3034 As Double 'Labour supply
Public m_AKK3539 As Double 'Labour supply, women 35-44
Public m_AKK4044 As Double 'Labour supply
Public m_AKK4549 As Double 'Labour supply, women 45-54
Public m_AKK5054 As Double 'Labour supply
Public m_AKK5559 As Double 'Labour supply, women 55-59
Public m_AKK6064 As Double 'Labour supply, women 60-64
Public m_AKK6569 As Double 'Labour supply
Public m_AKK7074 As Double 'Labour supply
Public m_AKM1619 As Double 'Labour supply, men 16-19
Public m_AKM2024 As Double 'Labour supply, men 20-24
Public m_AKM2529 As Double 'Labour supply, men 25-34
Public m_AKM3034 As Double 'Labour supply
Public m_AKM3539 As Double 'Labour supply, men 35-44
Public m_AKM4044 As Double 'Labour supply
Public m_AKM4549 As Double 'Labour supply, men 45-54
Public m_AKM5054 As Double 'Labour supply
Public m_AKM5559 As Double 'Labour supply, men 55,59
Public m_AKM6064 As Double 'Labour supply, men 60-64
Public m_AKM6569 As Double 'Labour supply
Public m_AKM7074 As Double 'Labour supply
Public m_AKT1664 As Double 'Labour supply, total 16-64
Public m_ALK1619 As Double 'Unemployment
Public m_ALK2024 As Double 'Unemployment
Public m_ALK2529 As Double 'Unemployment
Public m_ALK3034 As Double 'Unemployment
Public m_ALK3539 As Double 'Unemployment
Public m_ALK4044 As Double 'Unemployment
Public m_ALK4549 As Double 'Unemployment
Public m_ALK5054 As Double 'Unemployment
Public m_ALK5559 As Double 'Unemployment
Public m_ALK6064 As Double 'Unemployment
Public m_ALK6569 As Double 'Unemployment
Public m_ALK7074 As Double 'Unemployment
Public m_ALM1619 As Double 'Unemployment
Public m_ALM2024 As Double 'Unemployment
Public m_ALM2529 As Double 'Unemployment
Public m_ALM3034 As Double 'Unemployment
Public m_ALM3539 As Double 'Unemployment
Public m_ALM4044 As Double 'Unemployment
Public m_ALM4549 As Double 'Unemployment
Public m_ALM5054 As Double 'Unemployment
Public m_ALM5559 As Double 'Unemployment
Public m_ALM6064 As Double 'Unemployment
Public m_ALM6569 As Double 'Unemployment
Public m_ALM7074 As Double 'Unemployment
Public m_ap_aap_avs As Double 'Pension contrib, employers part, %
Public m_ap_adm_ip As Double 'Admin cost IP
Public m_ap_adm_ip_ap As Double 'Admin cost IP, AP-fund
Public m_ap_adm_ip_ap_p As Double 'Admin cost IP, AP-fund as % of fund
Public m_ap_adm_ip_ins As Double 'Admin cost IP, insurance
Public m_ap_adm_ip_ins_p As Double 'Admin cost IP, insurance per active saver
Public m_ap_adm_ip_p As Double 'Admin cost IP, % of pens liabilities to savers
Public m_ap_ap As Double 'Sum of public pensions to the AP-fund
Public m_ap_apfond As Double 'Buffer fund
Public m_ap_apfond_trf As Double 'AP-fund, Transfer sum
Public m_ap_apfond1 As Double 'Buffer fund, t-1
Public m_ap_apfond2 As Double 'Buffer fund, t-2
Public m_ap_arv As Double 'Inheritance gains
Public m_ap_arv_59 As Double 'Inheritance gains, up to age 59
Public m_ap_arv60_ As Double 'Inheritance gains from 60
Public m_ap_atp As Long 'ATP, macro
Public m_ap_atp_dead As Double 'Suppl pens to deceased
Public m_ap_atp_ut As Double 'Suppl pens, paid out
Public m_ap_avg As Double 'Pension contributions
Public m_ap_avg_37 As Double 'skräp
Public m_ap_avg_ap As Double 'Pension contributions to AP-funds
Public m_ap_avg_ap_37 As Double 'skräp
Public m_ap_avg_ap1 As Double 'Pension contributions to AP-funds (lagged 1 year)
Public m_ap_avg_ap2 As Double 'Pension contributions to AP-funds (lagged 2 year)
Public m_ap_avg_ap3 As Double 'Pension contributions to AP-funds (lagged 2 year)
Public m_ap_avg_atak As Double 'Pension contributions to AP-funds, smoothed
Public m_ap_avg_ppm As Double 'Pension contribution to PPM
Public m_ap_avgtill As Double 'Contribution assets
Public m_ap_avgtill1 As Double 'Contributions assets, t-1
Public m_ap_avgtill2 As Double 'Contributions assets, t-2
Public m_ap_avgtill3 As Double 'Contribution assets, t-3
Public m_ap_avs As Double '
Public m_ap_balanstal As Double 'Balance ratio
Public m_ap_balanstal_accum As Double 'Accumulated balancing index
Public m_ap_balind As Double 'Balancing index
Public m_ap_balind_active As Byte 'Binary marker if automatic balancing activated
Public m_ap_balind1 As Double 'Balancing index, year t-1
Public m_ap_balind2 As Double 'Balancing index, year t-2
Public m_ap_favg As Double '
Public m_ap_fp_kvot_gifta As Double 'Param. basic pens, married
Public m_ap_fp_kvot_ogifta As Double 'Param. basic pens, not married
Public m_ap_fp30_dead As Double 'Ref basic pens deceased
Public m_ap_fp30_ut As Double 'Ref basic pens, paid out
Public m_ap_gp_Inkindex_On As Byte 'Choice of indexation of guanteed pension
Public m_ap_he66 As Double 'Death ratio of pension disbursement
Public m_ap_index As Double 'Sum of indexing, IP
Public m_ap_inkind As Double 'Income-index, 1999=100
Public m_ap_inkind1 As Double 'Income-index (t-1), 2000=100
Public m_ap_inkind2 As Double 'Income-index (t-2), 2000=100
Public m_ap_ip_avs As Double 'Pension right rate, income pension
Public m_ap_ip_dead As Double 'Income pension to deceased
Public m_ap_ip_dead_korr As Double 'Correction for deceased
Public m_ap_ip_ut As Double 'Income pension, paid out
Public m_ap_it As Double 'Pay-in duration
Public m_ap_ls66 As Double 'Life-length-table for pension disbursement
Public m_ap_norm As Double 'Norm growth for public pension indexing
Public m_ap_ot As Double 'Turnover duration
Public m_ap_ot1 As Double 'Turnover duration, t-1
Public m_ap_ot2 As Double 'Turnover duration, t-2
Public m_ap_ot3 As Double ' Turnover duration, t-3
Public m_ap_ottak As Double 'Turnover duration, smoothed value
Public m_ap_ottak1 As Double 'Turnover duration, smoothed value, lag 1
Public m_ap_pb_ip As Double 'Sum of cumulative public pension rights
Public m_ap_pb_tp As Double 'xxx
Public m_ap_pp_avs As Double 'Pension right rate, premium pension
Public m_ap_pp_dead As Double 'Premium pensions to deceased persons
Public m_ap_pp_ut As Double 'Premium pension, paid out
Public m_ap_ppfond As Double 'Accumulated premium pension funds
Public m_ap_pr_ip As Double 'Pension rights
Public m_ap_pts_kvot As Double 'Paran PTS etc
Public m_ap_sa As Double 'Pension liability in regard to contributors
Public m_ap_shares_p As Double 'AP-fund proportion of shares and other items
Public m_ap_skuld As Double 'Pension liability
Public m_ap_skuld1 As Double 'Pension liability, t-1
Public m_ap_skuld2 As Double 'Pension liability, t-2
Public m_ap_skuld3 As Double 'Pension liability, t-3
Public m_ap_sp As Double 'Pension liability in regard to beneficiaries
Public m_ap_summasnitt As Double 'Balancing labour supply component
Public m_ap_tp As Double 'Ref suppl pension
Public m_ap_tp_ut As Double 'Ref suppl pens, paid out
Public m_ap_u68 As Double 'pension disbursement
Public m_ap_ud68 As Double 'pensions disbursement for non-survivors
Public m_ap_ut As Double 'Pay-out duration
Public m_arbavg As Double 'Employers contribution, %
Public m_arbavg_akas_p As Double 'Employers contribution, labour market, %
Public m_arbavg_alon_p As Double 'Employers contribution, residual, %
Public m_arbavg_arsk_p As Double 'Employers contribution, injury, %
Public m_arbavg_eft_p As Double 'Employers contribution, widow(er)
Public m_arbavg_forp_p As Double 'Employers contribution, parental leave, %
Public m_arbavg_ovr As Double 'Employers contribution exkluding pensions
Public m_arbavg_ovr_p As Double 'Employers contribution exkluding pensions, %
Public m_arbavg_p As Double 'Employers contribution, %
Public m_arbavg_pens As Double 'Pension contrib, employers part
Public m_arbavg_pens_p As Double 'Pension contrib, employers part, %
Public m_arbavg_sjuk_p As Double 'Employers contribution, sickness
Public m_arbavg_slon As Double 'Special wage tax
Public m_arbavg_slon_p As Double 'Special wage tax, %
Public m_arbavg_slon38_p As Double 'Employers contribution f.1938-
Public m_arvsvinst_60 As Double 'Arvsvinstfaktor vid 60 år
Public m_ASY1664 As Double 'Employed, AKU-definition
Public m_ASY2064R As Double 'Regular employment 20-64 years
Public m_basbelopp As Long 'Basbelopp (basic amount)
Public m_basbelopp_f As Long 'Basbelopp, förhöjt
Public m_basbelopp_ftp As Double 'Ad hoc base for disabilty indexation
Public m_basbelopp_gp As Double 'Guarantee pension base
Public m_basbelopp_income As Long 'Basbelopp, inkomst (för pensioner)
Public m_basbelopp1 As Long 'Basbelopp (basic amount) (t-1)
Public m_basbelopp2 As Long 'Basbelopp (basic amount) (t-2)
Public m_basbelopp3 As Long 'Basbelopp (basic amount) (t-3)
Public m_basbelopp4 As Long 'Basbelopp (basic amount) (t-4)
Public m_basbelopp5 As Long 'Basbelopp (basic amount) (t-5)
Public m_BEFK0014 As Double 'Population, women
Public m_BEFK0015 As Double 'Population, women 00-15
Public m_BEFK1519 As Double 'Population, women
Public m_BEFK1619 As Double 'Population, women 16-19
Public m_BEFK1664 As Double 'Population, women 16-64
Public m_BEFK2024 As Double 'Population, women 20-24
Public m_BEFK2529 As Double 'Population, women 25-34
Public m_BEFK3034 As Double 'Population, women
Public m_BEFK3539 As Double 'Population, women 35-44
Public m_BEFK4044 As Double 'Population, women
Public m_BEFK4549 As Double 'Population, women 45-54
Public m_BEFK5054 As Double 'Population, women
Public m_BEFK5559 As Double 'Population, women 55-59
Public m_BEFK6064 As Double 'Population, women 60-64
Public m_BEFK6569 As Double 'Population, women
Public m_BEFK65WW As Double 'Population, women 65-w
Public m_BEFK7074 As Double 'Population, women
Public m_BEFM0014 As Double 'Population, men
Public m_BEFM0015 As Double 'Population, men 00-15
Public m_BEFM1519 As Double 'Population, men
Public m_BEFM1619 As Double 'Population, men 16-19
Public m_BEFM1664 As Double 'Population, men 16-64
Public m_BEFM2024 As Double 'Population, men 20-24
Public m_BEFM2529 As Double 'Population, men 25-34
Public m_BEFM3034 As Double 'Population, men
Public m_BEFM3539 As Double 'Population, men 35-44
Public m_BEFM4044 As Double 'Population, men
Public m_BEFM4549 As Double 'Population, men 45-54
Public m_BEFM5054 As Double 'Population, men
Public m_BEFM5559 As Double 'Population, men 55-59
Public m_BEFM6064 As Double 'Population, men 60-64
Public m_BEFM6569 As Double 'Population, men
Public m_BEFM65WW As Double 'Population, men 65-w
Public m_BEFM7074 As Double 'Population, men
Public m_bnpaf As Double 'BNP, FP
Public m_bnpal As Double 'BNP, LP
Public m_bonds_return_ap As Double 'Return on AP-fund bonds
Public m_born As Long 'Count of born
Public m_dead As Long 'Count of dead
Public m_dtalip_65 As Double 'Delningstal vid 65
Public m_dtalpp_65 As Double 'Delningstal för premiepension vid 65 års ålder
Public m_egenavg_pens As Double 'General pension contrib
Public m_egenavg_pens_p As Double 'General pension contrib, %
Public m_egenavg_red_p As Double 'Tax reduction, pension contrib, proprtion
Public m_egenavg_tak_basb As Double 'Limit general pension contrib, basic amounts
Public m_emigrated As Long 'Number of emigrants
Public m_favg_ip As Double 'Reduction-rate due to admin. costs, income pens.
Public m_favg_pp As Double 'Reduction-rate due to admin. costs, premium pens.
Public m_ftp_Inkindex_On As Byte 'Choice of indexation of disabilty pension
Public m_hcount As Long 'Count of housholds
Public m_icount As Long 'Count of individuals
Public m_immigrated As Long 'Number of immigrants
Public m_inc_earning As Double 'Sum Earnings
Public m_inc_taxable_snitt As Double 'Average taxable income
Public m_inc_taxable_snitt1 As Double 'Average taxable income (t-1)
Public m_inc_taxable_snitt2 As Double 'Average taxable income (t-2)
Public m_inc_taxable_snitt3 As Double 'Average taxable income (t-3)
Public m_inc_taxable_snitt4 As Double 'Average taxable income (t-4)
Public m_incmeas As Double 'Income measure for income index
Public m_incmeas1 As Double 'Income measure for income index (t-1)
Public m_incmeas4 As Double 'Income measure for income index (t-4)
Public m_inflation As Double 'Price change current year
Public m_interest_long As Double 'Interest, long, %
Public m_interest_long99 As Double 'Long interest, %, base = 1999
Public m_interest_short As Double 'Interest, short, %
Public m_interest_short1 As Double '
Public m_JmfInk_barn As Double 'Comparative income for calc. of barnår
Public m_KPI As Double 'Consumer price index
Public m_KPI1 As Double 'Consumer price index (t-1)
Public m_KPI2 As Double 'Consumer price index (t-2)
Public m_KPI3 As Double 'Consumer price index (t-3)
Public m_KPI4 As Double 'Consumer price index (t-4)
Public m_macro_index As Byte 'Indicates type of economic indexation used
Public m_netcontribution_ap As Double 'Net contributions to AP-fund
Public m_netmigration As Long 'Count of net migration
Public m_netreturn_ap As Double 'Return on AP-fund after administartion costs
Public m_op_fond As Double 'Accumulated occupational pensions savings
Public m_pb_ip_active As Double 'Public pension liabilities to active savers
Public m_pb_ip_active_n As Double 'Number of active public pension savers
Public m_pensage As Double 'Effective retirement age
Public m_pension_income_index As Double 'Income index, growth rate (1.02 etc)
Public m_pgb As Double 'Sum Pensionable means other than income
Public m_pgi As Double 'Sum Pensionable income
Public m_pgi_bas As Double 'Pens inc meas
Public m_pgi_bas_gt_basb As Double 'Pens inc meas gt 1 inc basic amount
Public m_pgi_bas_gt_basb_n As Double 'Number pens inc meas gt 1 inc basic amount
Public m_pgi_bas_n As Double 'Number pens inc meas
Public m_pp_fond As Double 'Accumulated private pension savings
Public m_pr_op As Double 'Sum income rights occuopational pensions
Public m_price_change00 As Double 'Priceindex, base=2000
Public m_price_change01 As Double 'Priceindex, base=2001
Public m_price_change02 As Double 'Priceindex, base=2002
Public m_price_change03 As Double 'Priceindex, base=2003
Public m_price_change04 As Double 'Priceindex, base=2004
Public m_price_change05 As Double 'Priceindex, base=2005
Public m_price_change06 As Double 'Priceindex, base=2006
Public m_price_change07 As Double 'Priceindex, base=2007
Public m_price_change08 As Double 'Priceindex, base=2008
Public m_price_change09 As Double 'Priceindex, base=2009
Public m_price_change10 As Double 'Priceindex, base=2010
Public m_price_change99 As Double 'Priceindex, base=1999
Public m_price_rw_home As Double 'Price change of real wealth of home, current year
Public m_price_rw_home99 As Double 'Price change of real wealth of home since 1999
Public m_price_rw_other As Double 'Price change of other real wealth, current year
Public m_price_rw_other99 As Double 'Price change of other real wealth since 1999
Public m_price99 As Double 'Multiplier to get 1999 years price
Public m_realwage As Double 'Real wage change current year
Public m_realwage_change00 As Double 'Real wageindex, base=2000
Public m_realwage_change01 As Double 'Real wageindex, base=2001
Public m_realwage_change02 As Double 'Real wageindex, base=2002
Public m_realwage_change03 As Double 'Real wageindex, base=2003
Public m_realwage_change04 As Double 'Real wageindex, base=2004
Public m_realwage_change05 As Double 'Real wageindex, base=2005
Public m_realwage_change06 As Double 'Real wageindex, base=2006
Public m_realwage_change07 As Double 'Real wageindex, base=2007
Public m_realwage_change08 As Double 'Real wageindex, base=2008
Public m_realwage_change09 As Double 'Real wageindex, base=2009
Public m_realwage_change10 As Double 'Real wageindex, base=2010
Public m_realwage_change99 As Double 'Real wageindex, base=1999
Public m_return_ap As Double 'Return on AP-fund
Public m_RFV_PB_On As Integer 'Method for calculation of pension rights
Public m_shares_dividends As Double 'Shares, dividends, %
Public m_shares_dividends99 As Double 'Shares, dividends, %, base = 1999
Public m_shares_rate As Double 'Shares, rate, %
Public m_shares_rate99 As Double 'Shares, rates, %, base = 1999
Public m_shares_return As Double 'Return on shares, %
Public m_shares_return_ap As Double 'Return on AP-fund stocks & shares incl other items
Public m_shares_total99 As Double 'Shares, rates + dividends, %, base = 1999
Public m_TFR As Double 'Calculated current total fertility rate
Public m_wage_change00 As Double 'Nominal wageindex, base=2000
Public m_wage_change01 As Double 'Nominal wageindex, base=2001
Public m_wage_change02 As Double 'Nominal wageindex, base=2002
Public m_wage_change03 As Double 'Nominal wageindex, base=2003
Public m_wage_change04 As Double 'Nominal wageindex, base=2004
Public m_wage_change05 As Double 'Nominal wageindex, base=2005
Public m_wage_change06 As Double 'Nominal wageindex, base=2006
Public m_wage_change07 As Double 'Nominal wageindex, base=2007
Public m_wage_change08 As Double 'Nominal wageindex, base=2008
Public m_wage_change09 As Double 'Nominal wageindex, base=2009
Public m_wage_change10 As Double 'Nominal wageindex, base=2010
Public m_wage_change99 As Double 'Nominal wageindex, base=1999
Public m_weight As Double 'Individual sampling weight
Public m_zpb_ip_korr As Double 'Proportional adjustment factor, PB_IP
Public m_zpb_pp_korr As Double 'Proportional adjustment factor, PB_PP
Public m_zpgb_korr As Double 'Proportional adjustment factor, PGB
Public m_zpgi_korr As Double 'Proportional adjustment factor, PGI
Public m_zzz As Double 'test
'************************************
' Define collection of variable names
'************************************
Public var_coll as New Collection
Public vartype_coll as New Collection
Public mvar_coll as New Collection
Public varcom_coll as New Collection
Public Sub init_var_coll()
var_coll.Add "i_aap"
vartype_coll.Add "i_aap Long"
varcom_coll.Add "i_aap (Pension qualifying earnings)"
var_coll.Add "i_abroad"
vartype_coll.Add "i_abroad Integer"
varcom_coll.Add "i_abroad (Living abroad 0/1)"
var_coll.Add "i_ADL"
vartype_coll.Add "i_ADL Byte"
varcom_coll.Add "i_ADL (Funktionsnedsättning)"
var_coll.Add "i_ADL_rnd"
vartype_coll.Add "i_ADL_rnd Single"
varcom_coll.Add "i_ADL_rnd (Random number for simulation of ADL)"
var_coll.Add "i_age"
vartype_coll.Add "i_age Byte"
varcom_coll.Add "i_age (Age)"
var_coll.Add "i_ap"
vartype_coll.Add "i_ap Long"
varcom_coll.Add "i_ap (Public pensions, total)"
var_coll.Add "i_ap_ap"
vartype_coll.Add "i_ap_ap Long"
varcom_coll.Add "i_ap_ap (Pensions from Old age pension system)"
var_coll.Add "i_ap_atp"
vartype_coll.Add "i_ap_atp Long"
varcom_coll.Add "i_ap_atp (Supplementary retirement pension, ATP)"
var_coll.Add "i_ap_atp_1994"
vartype_coll.Add "i_ap_atp_1994 Long"
varcom_coll.Add "i_ap_atp_1994 (ATP, 1994 level)"
var_coll.Add "i_ap_atp_old"
vartype_coll.Add "i_ap_atp_old Long"
varcom_coll.Add "i_ap_atp_old (Old ATP-pension for all years)"
var_coll.Add "i_ap_atp_ut"
vartype_coll.Add "i_ap_atp_ut Long"
varcom_coll.Add "i_ap_atp_ut (Paid out ATP)"
var_coll.Add "i_ap_fiktiv"
vartype_coll.Add "i_ap_fiktiv Long"
varcom_coll.Add "i_ap_fiktiv (Retirement pension, fictitious)"
var_coll.Add "i_ap_fp"
vartype_coll.Add "i_ap_fp Long"
varcom_coll.Add "i_ap_fp (Basic retirement pension, folkpension)"
var_coll.Add "i_ap_fp30"
vartype_coll.Add "i_ap_fp30 Long"
varcom_coll.Add "i_ap_fp30 (Basic retirement pension, folkpension)"
var_coll.Add "i_ap_fp30_1994"
vartype_coll.Add "i_ap_fp30_1994 Long"
varcom_coll.Add "i_ap_fp30_1994 (Basic retirement pension, folkpension, 1994 level)"
var_coll.Add "i_ap_fp30_ut"
vartype_coll.Add "i_ap_fp30_ut Long"
varcom_coll.Add "i_ap_fp30_ut (Paid out ref basic pens)"
var_coll.Add "i_ap_gartill"
vartype_coll.Add "i_ap_gartill Long"
varcom_coll.Add "i_ap_gartill (Retirement pension, reformed transitional suppl.)"
var_coll.Add "i_ap_gp"
vartype_coll.Add "i_ap_gp Long"
varcom_coll.Add "i_ap_gp (Guarantee pension)"
var_coll.Add "i_ap_ip"
vartype_coll.Add "i_ap_ip Long"
varcom_coll.Add "i_ap_ip (Retirement pension, reformed income pension)"
var_coll.Add "i_ap_ip_ut"
vartype_coll.Add "i_ap_ip_ut Long"
varcom_coll.Add "i_ap_ip_ut (Paid out income pension)"
var_coll.Add "i_ap_ip1"
vartype_coll.Add "i_ap_ip1 Long"
varcom_coll.Add "i_ap_ip1 (Retirement pension, reformed income pension)"
var_coll.Add "i_ap_pensmonth"
vartype_coll.Add "i_ap_pensmonth Integer"
varcom_coll.Add "i_ap_pensmonth (Number of months of early or late withdrawal)"
var_coll.Add "i_ap_pp"
vartype_coll.Add "i_ap_pp Long"
varcom_coll.Add "i_ap_pp (Retirement pension, reformed inc. premium pens.)"
var_coll.Add "i_ap_pp_ut"
vartype_coll.Add "i_ap_pp_ut Long"
varcom_coll.Add "i_ap_pp_ut (Paid out premium pension)"
var_coll.Add "i_ap_pts"
vartype_coll.Add "i_ap_pts Long"
varcom_coll.Add "i_ap_pts (Basic retirement pension supplement)"
var_coll.Add "i_ap_tp"
vartype_coll.Add "i_ap_tp Long"
varcom_coll.Add "i_ap_tp (Tilläggspension)"
var_coll.Add "i_ap_tp_ut"
vartype_coll.Add "i_ap_tp_ut Long"
varcom_coll.Add "i_ap_tp_ut (Paid out ref suppl pens)"
var_coll.Add "i_arbavg"
vartype_coll.Add "i_arbavg Long"
varcom_coll.Add "i_arbavg (Employers contributions)"
var_coll.Add "i_arbavg_akas"
vartype_coll.Add "i_arbavg_akas Long"
varcom_coll.Add "i_arbavg_akas (Employers contribution, labour market)"
var_coll.Add "i_arbavg_alon"
vartype_coll.Add "i_arbavg_alon Long"
varcom_coll.Add "i_arbavg_alon ()"
var_coll.Add "i_arbavg_arsk"
vartype_coll.Add "i_arbavg_arsk Long"
varcom_coll.Add "i_arbavg_arsk (Employers contribution, injury)"
var_coll.Add "i_arbavg_eft"
vartype_coll.Add "i_arbavg_eft Long"
varcom_coll.Add "i_arbavg_eft (Employers contribution, widow(er))"
var_coll.Add "i_arbavg_forp"
vartype_coll.Add "i_arbavg_forp Long"
varcom_coll.Add "i_arbavg_forp (Employers contribution, parental leave)"
var_coll.Add "i_arbavg_pens"
vartype_coll.Add "i_arbavg_pens Long"
varcom_coll.Add "i_arbavg_pens (Pension contrib, employers part)"
var_coll.Add "i_arbavg_sjuk"
vartype_coll.Add "i_arbavg_sjuk Long"
varcom_coll.Add "i_arbavg_sjuk (Employers contribution, sickness)"
var_coll.Add "i_arbavg_slon"
vartype_coll.Add "i_arbavg_slon Long"
varcom_coll.Add "i_arbavg_slon (Employers contribution, 65+)"
var_coll.Add "i_arbavg_slon38"
vartype_coll.Add "i_arbavg_slon38 Long"
varcom_coll.Add "i_arbavg_slon38 (Employers contribution, f. 1938-)"
var_coll.Add "i_assistance_elderly"
vartype_coll.Add "i_assistance_elderly Byte"
varcom_coll.Add "i_assistance_elderly (Special assistance for elderly)"
var_coll.Add "i_ATP_ar_1994"
vartype_coll.Add "i_ATP_ar_1994 Byte"
varcom_coll.Add "i_ATP_ar_1994 (N. of years with ATP points in 1994)"
var_coll.Add "i_avg"
vartype_coll.Add "i_avg Long"
varcom_coll.Add "i_avg (Paid contributions to the pension system)"
var_coll.Add "i_avg_aap"
vartype_coll.Add "i_avg_aap Long"
varcom_coll.Add "i_avg_aap (Pension contributions paid by employers)"
var_coll.Add "i_avg_ftp"
vartype_coll.Add "i_avg_ftp Long"
varcom_coll.Add "i_avg_ftp (Pension contributions paid by central government)"
var_coll.Add "i_avg_inc_at_retirement"
vartype_coll.Add "i_avg_inc_at_retirement Long"
varcom_coll.Add "i_avg_inc_at_retirement (BabyBoom pension rules)"
var_coll.Add "i_avg_income_1997"
vartype_coll.Add "i_avg_income_1997 Long"
varcom_coll.Add "i_avg_income_1997 (Income 1997 x 100 /basb)"
var_coll.Add "i_avg_ip"
vartype_coll.Add "i_avg_ip Long"
varcom_coll.Add "i_avg_ip (Pension contributions, pay-as-you-go system)"
var_coll.Add "i_avg_ip2"
vartype_coll.Add "i_avg_ip2 Long"
varcom_coll.Add "i_avg_ip2 (Pension contributions, pay-as-you-go system)"
var_coll.Add "i_avg_pgb"
vartype_coll.Add "i_avg_pgb Long"
varcom_coll.Add "i_avg_pgb (Central government pension contributions, pgb)"
var_coll.Add "i_avg_stap"
vartype_coll.Add "i_avg_stap Long"
varcom_coll.Add "i_avg_stap (Pension contributions paid by central-government)"
var_coll.Add "i_avg_trf"
vartype_coll.Add "i_avg_trf Long"
varcom_coll.Add "i_avg_trf (Central government pension contributions, trf)"
var_coll.Add "i_avg2"
vartype_coll.Add "i_avg2 Long"
varcom_coll.Add "i_avg2 (Pension contributions)"
var_coll.Add "i_BB_region"
vartype_coll.Add "i_BB_region Byte"
varcom_coll.Add "i_BB_region ('Regions used in the BabyBoom-project)"
var_coll.Add "i_bidnr"
vartype_coll.Add "i_bidnr Long"
varcom_coll.Add "i_bidnr (LINDA individual number)"
var_coll.Add "i_binvar"
vartype_coll.Add "i_binvar Integer"
varcom_coll.Add "i_binvar (Latest year of immigration)"
var_coll.Add "i_born_abroad"
vartype_coll.Add "i_born_abroad Byte"
varcom_coll.Add "i_born_abroad (Born abroad 0/1)"
var_coll.Add "i_born_year"
vartype_coll.Add "i_born_year Integer"
varcom_coll.Add "i_born_year (Födelseår)"
var_coll.Add "i_botid"
vartype_coll.Add "i_botid Integer"
varcom_coll.Add "i_botid (Time with Swedish residence (years))"
var_coll.Add "i_bvux"
vartype_coll.Add "i_bvux Byte"
varcom_coll.Add "i_bvux (Binary marker for adults)"
var_coll.Add "i_bvux1"
vartype_coll.Add "i_bvux1 Byte"
varcom_coll.Add "i_bvux1 (Binary marker for adult status previous year)"
var_coll.Add "i_civ_stat"
vartype_coll.Add "i_civ_stat Byte"
varcom_coll.Add "i_civ_stat (Civil status (0, 1, 2))"
var_coll.Add "i_civ_stat1"
vartype_coll.Add "i_civ_stat1 Byte"
varcom_coll.Add "i_civ_stat1 (Lagged Civil status (0, 1, 2))"
var_coll.Add "i_edlevel"
vartype_coll.Add "i_edlevel Integer"
varcom_coll.Add "i_edlevel (Education level 0/1/2)"
var_coll.Add "i_edyears"
vartype_coll.Add "i_edyears Byte"
varcom_coll.Add "i_edyears (Nr. of years in edu. after basic school)"
var_coll.Add "i_emig_year"
vartype_coll.Add "i_emig_year Integer"
varcom_coll.Add "i_emig_year (Latest year of emigration)"
var_coll.Add "i_ftp"
vartype_coll.Add "i_ftp Long"
varcom_coll.Add "i_ftp (Disability pension)"
var_coll.Add "i_ftp_64"
vartype_coll.Add "i_ftp_64 Integer"
varcom_coll.Add "i_ftp_64 (Marks disability pension at age 64)"
var_coll.Add "i_ftp_antag"
vartype_coll.Add "i_ftp_antag Long"
varcom_coll.Add "i_ftp_antag (Disability pension, qualifying income)"
var_coll.Add "i_ftp_atp"
vartype_coll.Add "i_ftp_atp Long"
varcom_coll.Add "i_ftp_atp (Supplementary disability pension, ATP)"
var_coll.Add "i_ftp_fp"
vartype_coll.Add "i_ftp_fp Long"
varcom_coll.Add "i_ftp_fp (Basic disability pension, folkpension)"
var_coll.Add "i_ftp_gar"
vartype_coll.Add "i_ftp_gar Long"
varcom_coll.Add "i_ftp_gar (Guaranteed disability pension)"
var_coll.Add "i_ftp_ink"
vartype_coll.Add "i_ftp_ink Long"
varcom_coll.Add "i_ftp_ink (Income based disability pension)"
var_coll.Add "i_ftp_just"
vartype_coll.Add "i_ftp_just Long"
varcom_coll.Add "i_ftp_just (Disability pension, adjustment)"
var_coll.Add "i_ftp_pts"
vartype_coll.Add "i_ftp_pts Long"
varcom_coll.Add "i_ftp_pts (Basic disability pension supplement)"
var_coll.Add "i_ftp_typ"
vartype_coll.Add "i_ftp_typ Byte"
varcom_coll.Add "i_ftp_typ (Disablity pension type)"
var_coll.Add "i_ftp_year"
vartype_coll.Add "i_ftp_year Integer"
varcom_coll.Add "i_ftp_year (Year of disability retirement)"
var_coll.Add "i_HasBeenWidowed"
vartype_coll.Add "i_HasBeenWidowed Byte"
varcom_coll.Add "i_HasBeenWidowed (Indicates previous widowship)"
var_coll.Add "i_health"
vartype_coll.Add "i_health Byte"
varcom_coll.Add "i_health (Health index)"
var_coll.Add "i_health_latent"
vartype_coll.Add "i_health_latent Single"
varcom_coll.Add "i_health_latent (Latent health)"
var_coll.Add "i_health_latent1"
vartype_coll.Add "i_health_latent1 Single"
varcom_coll.Add "i_health_latent1 (Latent health (lagged one year))"
var_coll.Add "i_health1"
vartype_coll.Add "i_health1 Byte"
varcom_coll.Add "i_health1 (Health index (lagged 1 year))"
var_coll.Add "i_hhnr"
vartype_coll.Add "i_hhnr Long"
varcom_coll.Add "i_hhnr (Houshould number at i level)"
var_coll.Add "i_hhstatus"
vartype_coll.Add "i_hhstatus Byte"
varcom_coll.Add "i_hhstatus (Individual household status)"
var_coll.Add "i_housetax_postponed"
vartype_coll.Add "i_housetax_postponed Long"
varcom_coll.Add "i_housetax_postponed (Postponed real estate tax)"
var_coll.Add "i_hsdropout"
vartype_coll.Add "i_hsdropout Byte"
varcom_coll.Add "i_hsdropout (Age for dropout from high school)"
var_coll.Add "i_inc_capital"
vartype_coll.Add "i_inc_capital Long"
varcom_coll.Add "i_inc_capital (Income of capital)"
var_coll.Add "i_inc_earning"
vartype_coll.Add "i_inc_earning Long"
varcom_coll.Add "i_inc_earning (Earnings)"
var_coll.Add "i_inc_itvariance"
vartype_coll.Add "i_inc_itvariance Single"
varcom_coll.Add "i_inc_itvariance (income variance)"
var_coll.Add "i_inc_ivariance"
vartype_coll.Add "i_inc_ivariance Single"
varcom_coll.Add "i_inc_ivariance (Individual variance income)"
var_coll.Add "i_inc_market"
vartype_coll.Add "i_inc_market Long"
varcom_coll.Add "i_inc_market (Market income (faktorinkomst))"
var_coll.Add "i_inc_selfemployed"
vartype_coll.Add "i_inc_selfemployed Long"
varcom_coll.Add "i_inc_selfemployed (Self employment income)"
var_coll.Add "i_inc_taxable"
vartype_coll.Add "i_inc_taxable Long"
varcom_coll.Add "i_inc_taxable (Total taxable income)"
var_coll.Add "i_inc_taxable1"
vartype_coll.Add "i_inc_taxable1 Long"
varcom_coll.Add "i_inc_taxable1 (Taxable income year (t-1))"
var_coll.Add "i_inc_taxable2"
vartype_coll.Add "i_inc_taxable2 Long"
varcom_coll.Add "i_inc_taxable2 (Taxable income year (t-1))"
var_coll.Add "i_inc_taxable3"
vartype_coll.Add "i_inc_taxable3 Long"
varcom_coll.Add "i_inc_taxable3 (Taxable income year (t-3))"
var_coll.Add "i_inc_taxable4"
vartype_coll.Add "i_inc_taxable4 Long"
varcom_coll.Add "i_inc_taxable4 (Taxable income year (t-4))"
var_coll.Add "i_inc_taxable5"
vartype_coll.Add "i_inc_taxable5 Long"
varcom_coll.Add "i_inc_taxable5 (Taxable income year (t-5))"
var_coll.Add "i_inc_taxed"
vartype_coll.Add "i_inc_taxed Long"
varcom_coll.Add "i_inc_taxed (Taxed income (beskattningsbar inkomst))"
var_coll.Add "i_inc_work"
vartype_coll.Add "i_inc_work Long"
varcom_coll.Add "i_inc_work (Income from work (carb))"
var_coll.Add "i_income"
vartype_coll.Add "i_income Long"
varcom_coll.Add "i_income (Temporary model income)"
var_coll.Add "i_indnr"
vartype_coll.Add "i_indnr Long"
varcom_coll.Add "i_indnr (Individual number)"
var_coll.Add "i_InpatientCare"
vartype_coll.Add "i_InpatientCare Integer"
varcom_coll.Add "i_InpatientCare (Number of days with inpatient care)"
var_coll.Add "i_last_hh_dur"
vartype_coll.Add "i_last_hh_dur Byte"
varcom_coll.Add "i_last_hh_dur (Duration of latest household (years))"
var_coll.Add "i_maintenance_paid"
vartype_coll.Add "i_maintenance_paid Long"
varcom_coll.Add "i_maintenance_paid (Maintenance (paid))"
var_coll.Add "i_mATP_1994"
vartype_coll.Add "i_mATP_1994 Integer"
varcom_coll.Add "i_mATP_1994 (Mean ATP points in 1994)"
var_coll.Add "i_new_em"
vartype_coll.Add "i_new_em Byte"
varcom_coll.Add "i_new_em (Binary marker for emigrants year t)"
var_coll.Add "i_new_fp"
vartype_coll.Add "i_new_fp Integer"
varcom_coll.Add "i_new_fp (New early retirement, 1=new ER, -1=rehab)"
var_coll.Add "i_new_immig"
vartype_coll.Add "i_new_immig Byte"
varcom_coll.Add "i_new_immig (Marker for immigrants year t)"
var_coll.Add "i_next_indnr"
vartype_coll.Add "i_next_indnr Long"
varcom_coll.Add "i_next_indnr (Pointer to next ind in this household)"
var_coll.Add "i_nr_prev_hh"
vartype_coll.Add "i_nr_prev_hh Byte"
varcom_coll.Add "i_nr_prev_hh (Number of previous households (unions))"
var_coll.Add "i_op"
vartype_coll.Add "i_op Long"
varcom_coll.Add "i_op (Occupational pension, total)"
var_coll.Add "i_op_an_db_after_65"
vartype_coll.Add "i_op_an_db_after_65 Long"
varcom_coll.Add "i_op_an_db_after_65 (Occ. pens., db-system, annual payments (65+))"
var_coll.Add "i_op_an_db_before_65"
vartype_coll.Add "i_op_an_db_before_65 Long"
varcom_coll.Add "i_op_an_db_before_65 (Occ. pens., db-system, annual payments (-65))"
var_coll.Add "i_op_an_dc_after_65"
vartype_coll.Add "i_op_an_dc_after_65 Long"
varcom_coll.Add "i_op_an_dc_after_65 (Occ. pens., dc-system, annual payments (65+))"
var_coll.Add "i_op_an_dc_before_65"
vartype_coll.Add "i_op_an_dc_before_65 Long"
varcom_coll.Add "i_op_an_dc_before_65 (Occ. pens., dc-system, annual payments (-65))"
var_coll.Add "i_op_ap_db"
vartype_coll.Add "i_op_ap_db Long"
varcom_coll.Add "i_op_ap_db (Occupational pension, defiend benefit systems)"
var_coll.Add "i_op_ap_dc"
vartype_coll.Add "i_op_ap_dc Long"
varcom_coll.Add "i_op_ap_dc (Occupational pension, defiend contribution systems)"
var_coll.Add "i_op_ap_tp"
vartype_coll.Add "i_op_ap_tp Long"
varcom_coll.Add "i_op_ap_tp (Occupational pension, supplement)"
var_coll.Add "i_op_capital_value"
vartype_coll.Add "i_op_capital_value Long"
varcom_coll.Add "i_op_capital_value (Occ. pens, remaining cap. value)"
var_coll.Add "i_op_erp"
vartype_coll.Add "i_op_erp Byte"
varcom_coll.Add "i_op_erp (Indicator for early retirement programs)"
var_coll.Add "i_op_pp_years"
vartype_coll.Add "i_op_pp_years Byte"
varcom_coll.Add "i_op_pp_years (Number of years in current labour market sector)"
var_coll.Add "i_op_pp_years_Blue"
vartype_coll.Add "i_op_pp_years_Blue Byte"
varcom_coll.Add "i_op_pp_years_Blue (Qualifying years in sector 1)"
var_coll.Add "i_op_pp_years_Local"
vartype_coll.Add "i_op_pp_years_Local Byte"
varcom_coll.Add "i_op_pp_years_Local (Qualifying years in sector 4)"
var_coll.Add "i_op_pp_years_State"
vartype_coll.Add "i_op_pp_years_State Byte"
varcom_coll.Add "i_op_pp_years_State (Qualifying years in sector 3)"
var_coll.Add "i_op_pp_years_trans"
vartype_coll.Add "i_op_pp_years_trans Byte"
varcom_coll.Add "i_op_pp_years_trans (Number of years in transitional occup pens )"
var_coll.Add "i_op_pp_years_White"
vartype_coll.Add "i_op_pp_years_White Byte"
varcom_coll.Add "i_op_pp_years_White (Qualifying years in sector 2)"
var_coll.Add "i_op_retirement_individual_effect"
vartype_coll.Add "i_op_retirement_individual_effect Double"
varcom_coll.Add "i_op_retirement_individual_effect ()"
var_coll.Add "i_p_andel"
vartype_coll.Add "i_p_andel Double"
varcom_coll.Add "i_p_andel (Share of full pension benefit)"
var_coll.Add "i_p_antman"
vartype_coll.Add "i_p_antman Byte"
varcom_coll.Add "i_p_antman (Number of months with pension benefits)"
var_coll.Add "i_pb_fiktiv"
vartype_coll.Add "i_pb_fiktiv Long"
varcom_coll.Add "i_pb_fiktiv (Cumulative pension rights, fictitious)"
var_coll.Add "i_pb_ip"
vartype_coll.Add "i_pb_ip Long"
varcom_coll.Add "i_pb_ip (Cumulative pension rights for income pension)"
var_coll.Add "i_pb_ip1"
vartype_coll.Add "i_pb_ip1 Long"
varcom_coll.Add "i_pb_ip1 (Lag Cumulative pension rights for income pension)"
var_coll.Add "i_pb_op_ap"
vartype_coll.Add "i_pb_op_ap Long"
varcom_coll.Add "i_pb_op_ap (Cumulative pension rights for occup pens, old age)"
var_coll.Add "i_pb_op_tp"
vartype_coll.Add "i_pb_op_tp Long"
varcom_coll.Add "i_pb_op_tp (Cumulative pension rights for occup pens, suppl)"
var_coll.Add "i_pb_pp"
vartype_coll.Add "i_pb_pp Long"
varcom_coll.Add "i_pb_pp (Cumulative pension rights for premium pension)"
var_coll.Add "i_pbhi"
vartype_coll.Add "i_pbhi Long"
varcom_coll.Add "i_pbhi (Income pension fund, historical)"
var_coll.Add "i_pc_care"
vartype_coll.Add "i_pc_care Long"
varcom_coll.Add "i_pc_care (Public consumption: care)"
var_coll.Add "i_pc_childcare"
vartype_coll.Add "i_pc_childcare Long"
varcom_coll.Add "i_pc_childcare (Public consumption: child care)"
var_coll.Add "i_pc_elderly"
vartype_coll.Add "i_pc_elderly Long"
varcom_coll.Add "i_pc_elderly (Public consumption: care of elderly)"
var_coll.Add "i_pc_high_school"
vartype_coll.Add "i_pc_high_school Long"
varcom_coll.Add "i_pc_high_school (Public consumption: high school)"
var_coll.Add "i_pc_labor"
vartype_coll.Add "i_pc_labor Long"
varcom_coll.Add "i_pc_labor (Public consumption: labor market programs)"
var_coll.Add "i_pc_MAE"
vartype_coll.Add "i_pc_MAE Long"
varcom_coll.Add "i_pc_MAE (Public consumption: MAE)"
var_coll.Add "i_pc_medicine"
vartype_coll.Add "i_pc_medicine Long"
varcom_coll.Add "i_pc_medicine (Public consumption: medicine)"
var_coll.Add "i_pc_school"
vartype_coll.Add "i_pc_school Long"
varcom_coll.Add "i_pc_school (Public consumption: school)"
var_coll.Add "i_pc_school_adult"
vartype_coll.Add "i_pc_school_adult Long"
varcom_coll.Add "i_pc_school_adult (Public consumption: adult school other than MAE)"
var_coll.Add "i_pc_total"
vartype_coll.Add "i_pc_total Long"
varcom_coll.Add "i_pc_total (Public consumption: total subsidy)"
var_coll.Add "i_pc_univ"
vartype_coll.Add "i_pc_univ Long"
varcom_coll.Add "i_pc_univ (Public consumption: university)"
var_coll.Add "i_pgb"
vartype_coll.Add "i_pgb Long"
varcom_coll.Add "i_pgb (Pensionable means other than income)"
var_coll.Add "i_pgb_antag"
vartype_coll.Add "i_pgb_antag Long"
varcom_coll.Add "i_pgb_antag (PGB för förtidspension)"
var_coll.Add "i_pgb_barn"
vartype_coll.Add "i_pgb_barn Long"
varcom_coll.Add "i_pgb_barn (PGB för barnår)"
var_coll.Add "i_pgb_barn_typ"
vartype_coll.Add "i_pgb_barn_typ Long"
varcom_coll.Add "i_pgb_barn_typ (Type pension rigtht for child years)"
var_coll.Add "i_pgb_plikt"
vartype_coll.Add "i_pgb_plikt Long"
varcom_coll.Add "i_pgb_plikt (PGB för värnplikt)"
var_coll.Add "i_pgb_stud"
vartype_coll.Add "i_pgb_stud Long"
varcom_coll.Add "i_pgb_stud (PGB för studier)"
var_coll.Add "i_pgi"
vartype_coll.Add "i_pgi Long"
varcom_coll.Add "i_pgi (Pensionable income)"
var_coll.Add "i_pgi_bas"
vartype_coll.Add "i_pgi_bas Long"
varcom_coll.Add "i_pgi_bas (PGI base income)"
var_coll.Add "i_pgi_orange"
vartype_coll.Add "i_pgi_orange Long"
varcom_coll.Add "i_pgi_orange (Deterministic pensioable income)"
var_coll.Add "i_pgi185"
vartype_coll.Add "i_pgi185 Long"
varcom_coll.Add "i_pgi185 (Variable for ATP-adjustement)"
var_coll.Add "i_pp"
vartype_coll.Add "i_pp Long"
varcom_coll.Add "i_pp (Private pension)"
var_coll.Add "i_pp_payout_time"
vartype_coll.Add "i_pp_payout_time Integer"
varcom_coll.Add "i_pp_payout_time (Private pension, pay out time)"
var_coll.Add "i_ppmkap"
vartype_coll.Add "i_ppmkap Long"
varcom_coll.Add "i_ppmkap (Premium pension fund, historical)"
var_coll.Add "i_pr_ip"
vartype_coll.Add "i_pr_ip Long"
varcom_coll.Add "i_pr_ip (Pension-rights for reformed income pension)"
var_coll.Add "i_pr_ip1"
vartype_coll.Add "i_pr_ip1 Long"
varcom_coll.Add "i_pr_ip1 (Pension-rights for reformed income pension (t-1))"
var_coll.Add "i_pr_op_ap"
vartype_coll.Add "i_pr_op_ap Long"
varcom_coll.Add "i_pr_op_ap (Pension-rights for occupational pension, old age)"
var_coll.Add "i_pr_op_tp"
vartype_coll.Add "i_pr_op_tp Long"
varcom_coll.Add "i_pr_op_tp (Pension-rights for occupational pension, suppl)"
var_coll.Add "i_pr_pp"
vartype_coll.Add "i_pr_pp Long"
varcom_coll.Add "i_pr_pp (Pension-rights for premium-pension)"
var_coll.Add "i_pr_pp1"
vartype_coll.Add "i_pr_pp1 Long"
varcom_coll.Add "i_pr_pp1 (Pension-rights for premium-pension (t-1))"
var_coll.Add "i_prob_unemployed"
vartype_coll.Add "i_prob_unemployed Double"
varcom_coll.Add "i_prob_unemployed (For aligning of unemployment)"
var_coll.Add "i_prob_working"
vartype_coll.Add "i_prob_working Double"
varcom_coll.Add "i_prob_working (For aligning of work)"
var_coll.Add "i_pu"
vartype_coll.Add "i_pu Long"
varcom_coll.Add "i_pu (Income base, reformed pension system)"
var_coll.Add "i_pu_ind_comp"
vartype_coll.Add "i_pu_ind_comp Long"
varcom_coll.Add "i_pu_ind_comp (Individual comparison income)"
var_coll.Add "i_pu_orange"
vartype_coll.Add "i_pu_orange Long"
varcom_coll.Add "i_pu_orange (Deterministic pension rights)"
var_coll.Add "i_sarbavg_pens"
vartype_coll.Add "i_sarbavg_pens Long"
varcom_coll.Add "i_sarbavg_pens (Pension contrib, paid by central government)"
var_coll.Add "i_sector"
vartype_coll.Add "i_sector Byte"
varcom_coll.Add "i_sector (labor market sector)"
var_coll.Add "i_sector1"
vartype_coll.Add "i_sector1 Byte"
varcom_coll.Add "i_sector1 (Labour market sector last year)"
var_coll.Add "i_selected"
vartype_coll.Add "i_selected Byte"
varcom_coll.Add "i_selected (marks individual selection)"
var_coll.Add "i_sex"
vartype_coll.Add "i_sex Byte"
varcom_coll.Add "i_sex (Sex (1 - male, 2 - female))"
var_coll.Add "i_sick_ind"
vartype_coll.Add "i_sick_ind Byte"
varcom_coll.Add "i_sick_ind (Indicates sickness allowance)"
var_coll.Add "i_sick_ind1"
vartype_coll.Add "i_sick_ind1 Byte"
varcom_coll.Add "i_sick_ind1 (Indicates sickness allowance (lag 1))"
var_coll.Add "i_sick_ind2"
vartype_coll.Add "i_sick_ind2 Byte"
varcom_coll.Add "i_sick_ind2 (Indicates sickness allowance)"
var_coll.Add "i_sick_ind3"
vartype_coll.Add "i_sick_ind3 Byte"
varcom_coll.Add "i_sick_ind3 (Indicates sickness allowance)"
var_coll.Add "i_sick_ind4"
vartype_coll.Add "i_sick_ind4 Byte"
varcom_coll.Add "i_sick_ind4 (Indicates sickness allowance)"
var_coll.Add "i_sick_ind5"
vartype_coll.Add "i_sick_ind5 Byte"
varcom_coll.Add "i_sick_ind5 (Indicates sickness allowance)"
var_coll.Add "i_sick_ind6"
vartype_coll.Add "i_sick_ind6 Byte"
varcom_coll.Add "i_sick_ind6 (Indicates sickness allowance)"
var_coll.Add "i_sickleave"
vartype_coll.Add "i_sickleave Integer"
varcom_coll.Add "i_sickleave (Nr. of days of abscense due to sickness)"
var_coll.Add "i_sickleave_ivariance"
vartype_coll.Add "i_sickleave_ivariance Single"
varcom_coll.Add "i_sickleave_ivariance (Heterogeneity factor in sickleave model)"
var_coll.Add "i_stap_ftp"
vartype_coll.Add "i_stap_ftp Long"
varcom_coll.Add "i_stap_ftp (Pension qualifying transfer payments (ftp))"
var_coll.Add "i_stap_trf"
vartype_coll.Add "i_stap_trf Long"
varcom_coll.Add "i_stap_trf (Pension qualifying transfer payments)"
var_coll.Add "i_status"
vartype_coll.Add "i_status Byte"
varcom_coll.Add "i_status (Individual status)"
var_coll.Add "i_status1"
vartype_coll.Add "i_status1 Byte"
varcom_coll.Add "i_status1 (Individual status year (t-1))"
var_coll.Add "i_student"
vartype_coll.Add "i_student Byte"
varcom_coll.Add "i_student (Status of current studies)"
var_coll.Add "i_study_debt"
vartype_coll.Add "i_study_debt Long"
varcom_coll.Add "i_study_debt (Study loan, stock)"
var_coll.Add "i_studyloan_repaid"
vartype_coll.Add "i_studyloan_repaid Long"
varcom_coll.Add "i_studyloan_repaid (Study loans, repayments)"
var_coll.Add "i_surv"
vartype_coll.Add "i_surv Long"
varcom_coll.Add "i_surv (Survivors pension)"
var_coll.Add "i_surv_atp"
vartype_coll.Add "i_surv_atp Long"
varcom_coll.Add "i_surv_atp (Survivors pension, supplementary ATP)"
var_coll.Add "i_surv_fp"
vartype_coll.Add "i_surv_fp Long"
varcom_coll.Add "i_surv_fp (Survivors pension, basic FP)"
var_coll.Add "i_surv_omst"
vartype_coll.Add "i_surv_omst Long"
varcom_coll.Add "i_surv_omst (Transitional survivors pension)"
var_coll.Add "i_surv_year"
vartype_coll.Add "i_surv_year Integer"
varcom_coll.Add "i_surv_year (Year for take up of survivors pension)"
var_coll.Add "i_tax_capital"
vartype_coll.Add "i_tax_capital Long"
varcom_coll.Add "i_tax_capital (Taxes (capital))"
var_coll.Add "i_tax_contribution"
vartype_coll.Add "i_tax_contribution Long"
varcom_coll.Add "i_tax_contribution (Social security contribution (allm. egenavg netto))"
var_coll.Add "i_tax_income"
vartype_coll.Add "i_tax_income Long"
varcom_coll.Add "i_tax_income (Taxes (income))"
var_coll.Add "i_tax_local"
vartype_coll.Add "i_tax_local Long"
varcom_coll.Add "i_tax_local (Local income tax)"
var_coll.Add "i_tax_national"
vartype_coll.Add "i_tax_national Long"
varcom_coll.Add "i_tax_national (National income tax)"
var_coll.Add "i_tax_realestate"
vartype_coll.Add "i_tax_realestate Long"
varcom_coll.Add "i_tax_realestate (Realestate tax)"
var_coll.Add "i_tax_total"
vartype_coll.Add "i_tax_total Long"
varcom_coll.Add "i_tax_total (Taxes (total))"
var_coll.Add "i_tax_wealth"
vartype_coll.Add "i_tax_wealth Long"
varcom_coll.Add "i_tax_wealth (Wealth tax)"
var_coll.Add "i_tax_workcredit"
vartype_coll.Add "i_tax_workcredit Long"
varcom_coll.Add "i_tax_workcredit (In work benefit)"
var_coll.Add "i_taxred_capital"
vartype_coll.Add "i_taxred_capital Long"
varcom_coll.Add "i_taxred_capital ()"
var_coll.Add "i_trf_btp"
vartype_coll.Add "i_trf_btp Long"
varcom_coll.Add "i_trf_btp (Housing allowance for pensioners)"
var_coll.Add "i_trf_parentleave"
vartype_coll.Add "i_trf_parentleave Long"
varcom_coll.Add "i_trf_parentleave (Parent's allowance)"
var_coll.Add "i_trf_pension"
vartype_coll.Add "i_trf_pension Long"
varcom_coll.Add "i_trf_pension (Pension, total)"
var_coll.Add "i_trf_sickleave"
vartype_coll.Add "i_trf_sickleave Long"
varcom_coll.Add "i_trf_sickleave (Sickness allowance)"
var_coll.Add "i_trf_skada"
vartype_coll.Add "i_trf_skada Long"
varcom_coll.Add "i_trf_skada (Work injuries insurance)"
var_coll.Add "i_trf_study"
vartype_coll.Add "i_trf_study Long"
varcom_coll.Add "i_trf_study (Total of study loans and grants)"
var_coll.Add "i_trf_study_grant"
vartype_coll.Add "i_trf_study_grant Long"
varcom_coll.Add "i_trf_study_grant (Study grants)"
var_coll.Add "i_trf_study_loan"
vartype_coll.Add "i_trf_study_loan Long"
varcom_coll.Add "i_trf_study_loan (Study loan, transfer)"
var_coll.Add "i_trf_taxable"
vartype_coll.Add "i_trf_taxable Long"
varcom_coll.Add "i_trf_taxable (Total taxable transfers)"
var_coll.Add "i_trf_unemployed"
vartype_coll.Add "i_trf_unemployed Long"
varcom_coll.Add "i_trf_unemployed (Labour market assistance)"
var_coll.Add "i_unemp_ivariance"
vartype_coll.Add "i_unemp_ivariance Single"
varcom_coll.Add "i_unemp_ivariance (Individual variance unemployment)"
var_coll.Add "i_using_temp_pension"
vartype_coll.Add "i_using_temp_pension Byte"
varcom_coll.Add "i_using_temp_pension (BabyBoom pension rules)"
var_coll.Add "i_vard"
vartype_coll.Add "i_vard Long"
varcom_coll.Add "i_vard (Vårdbidrag)"
var_coll.Add "i_wealth_debt"
vartype_coll.Add "i_wealth_debt Long"
varcom_coll.Add "i_wealth_debt (Individualized household debt)"
var_coll.Add "i_wealth_financial"
vartype_coll.Add "i_wealth_financial Long"
varcom_coll.Add "i_wealth_financial (Financial wealth)"
var_coll.Add "i_wealth_pension_total"
vartype_coll.Add "i_wealth_pension_total Long"
varcom_coll.Add "i_wealth_pension_total (Accumulated tax deductible pension savings)"
var_coll.Add "i_wealth_pension_year"
vartype_coll.Add "i_wealth_pension_year Long"
varcom_coll.Add "i_wealth_pension_year (Tax deductible pension savings)"
var_coll.Add "i_wealth_pension_year1"
vartype_coll.Add "i_wealth_pension_year1 Long"
varcom_coll.Add "i_wealth_pension_year1 (Tax deductible pension savings (lagged))"
var_coll.Add "i_widowed"
vartype_coll.Add "i_widowed Byte"
varcom_coll.Add "i_widowed (Indicates death of spouse during the year)"
var_coll.Add "i_work_share"
vartype_coll.Add "i_work_share Single"
varcom_coll.Add "i_work_share (Share of full work-time)"
var_coll.Add "i_work_share1"
vartype_coll.Add "i_work_share1 Single"
varcom_coll.Add "i_work_share1 (Share of full work-time, lag)"
var_coll.Add "i_workexperience"
vartype_coll.Add "i_workexperience Byte"
varcom_coll.Add "i_workexperience (Number of years in status 8 (working))"
var_coll.Add "i_year_sep"
vartype_coll.Add "i_year_sep Integer"
varcom_coll.Add "i_year_sep (Year of last dissolution of household)"
var_coll.Add "h_abroad"
vartype_coll.Add "h_abroad Integer"
varcom_coll.Add "h_abroad (Living abroad)"
var_coll.Add "h_BB_region"
vartype_coll.Add "h_BB_region Byte"
varcom_coll.Add "h_BB_region (Regions used in the BabyBoom-project)"
var_coll.Add "h_BB_region1"
vartype_coll.Add "h_BB_region1 Byte"
varcom_coll.Add "h_BB_region1 (Regions used in the BabyBoom-project)"
var_coll.Add "h_bvux_work"
vartype_coll.Add "h_bvux_work Byte"
varcom_coll.Add "h_bvux_work (Indicates that all adults in household is working)"
var_coll.Add "h_childmoveout"
vartype_coll.Add "h_childmoveout Byte"
varcom_coll.Add "h_childmoveout (Indicates if child moves out)"
var_coll.Add "h_close_relative"
vartype_coll.Add "h_close_relative Byte"
varcom_coll.Add "h_close_relative (Indicates closeness (geographical) to relative)"
var_coll.Add "h_close_relative1"
vartype_coll.Add "h_close_relative1 Byte"
varcom_coll.Add "h_close_relative1 (Indicates closeness (geographical) to relative)"
var_coll.Add "h_emig_year"
vartype_coll.Add "h_emig_year Integer"
varcom_coll.Add "h_emig_year (Latest year of emigration)"
var_coll.Add "h_first_indnr"
vartype_coll.Add "h_first_indnr Long"
varcom_coll.Add "h_first_indnr (First indiviudal in this household)"
var_coll.Add "h_form_year"
vartype_coll.Add "h_form_year Integer"
varcom_coll.Add "h_form_year (Year of formation of household)"
var_coll.Add "h_hhnr"
vartype_coll.Add "h_hhnr Long"
varcom_coll.Add "h_hhnr (Household number at h level)"
var_coll.Add "h_house_area"
vartype_coll.Add "h_house_area Integer"
varcom_coll.Add "h_house_area (House area (square mtrs))"
var_coll.Add "h_house_cost"
vartype_coll.Add "h_house_cost Long"
varcom_coll.Add "h_house_cost (Yearly cost of housing)"
var_coll.Add "h_house_interest"
vartype_coll.Add "h_house_interest Long"
varcom_coll.Add "h_house_interest (Interest payments of house loan (SEK))"
var_coll.Add "h_house_owner"
vartype_coll.Add "h_house_owner Byte"
varcom_coll.Add "h_house_owner (Indicates ownership of home)"
var_coll.Add "h_house_owner1"
vartype_coll.Add "h_house_owner1 Byte"
varcom_coll.Add "h_house_owner1 (Indicates ownership of home)"
var_coll.Add "h_house_purchase"
vartype_coll.Add "h_house_purchase Long"
varcom_coll.Add "h_house_purchase (Purchase price of home)"
var_coll.Add "h_house_tax"
vartype_coll.Add "h_house_tax Long"
varcom_coll.Add "h_house_tax (Yearly tax assessed value)"
var_coll.Add "h_idx_headofhh"
vartype_coll.Add "h_idx_headofhh Long"
varcom_coll.Add "h_idx_headofhh (Index number of head of houshold)"
var_coll.Add "h_inc_capital"
vartype_coll.Add "h_inc_capital Long"
varcom_coll.Add "h_inc_capital (Househol capital income)"
var_coll.Add "h_inc_disposable"
vartype_coll.Add "h_inc_disposable Long"
varcom_coll.Add "h_inc_disposable (Disposable income for household)"
var_coll.Add "h_inc_disposable1"
vartype_coll.Add "h_inc_disposable1 Long"
varcom_coll.Add "h_inc_disposable1 (Disposable income (lagged))"
var_coll.Add "h_inc_market"
vartype_coll.Add "h_inc_market Long"
varcom_coll.Add "h_inc_market (Household market income (faktorinkomst))"
var_coll.Add "h_inc_work"
vartype_coll.Add "h_inc_work Long"
varcom_coll.Add "h_inc_work (Household income from work (carb))"
var_coll.Add "h_indnr_female"
vartype_coll.Add "h_indnr_female Long"
varcom_coll.Add "h_indnr_female (Individual number for adult female)"
var_coll.Add "h_indnr_male"
vartype_coll.Add "h_indnr_male Long"
varcom_coll.Add "h_indnr_male (Individual number for adult male)"
var_coll.Add "h_kommunindex"
vartype_coll.Add "h_kommunindex Integer"
varcom_coll.Add "h_kommunindex (Municipality index)"
var_coll.Add "h_kommunkod"
vartype_coll.Add "h_kommunkod Integer"
varcom_coll.Add "h_kommunkod (Code for municipality)"
var_coll.Add "h_maintenance_paid"
vartype_coll.Add "h_maintenance_paid Long"
varcom_coll.Add "h_maintenance_paid (Maintenance (paid))"
var_coll.Add "h_maintenance_received"
vartype_coll.Add "h_maintenance_received Long"
varcom_coll.Add "h_maintenance_received (Maintenance (received))"
var_coll.Add "h_max_age"
vartype_coll.Add "h_max_age Byte"
varcom_coll.Add "h_max_age (Maximum age in household)"
var_coll.Add "h_max_edlevel"
vartype_coll.Add "h_max_edlevel Byte"
varcom_coll.Add "h_max_edlevel (Highest educational attainment in household)"
var_coll.Add "h_max_inc_taxable"
vartype_coll.Add "h_max_inc_taxable Long"
varcom_coll.Add "h_max_inc_taxable (Maximum taxable income of household)"
var_coll.Add "h_n_adults"
vartype_coll.Add "h_n_adults Integer"
varcom_coll.Add "h_n_adults (Count of adults in hh)"
var_coll.Add "h_n_child"
vartype_coll.Add "h_n_child Byte"
varcom_coll.Add "h_n_child (Count of children in hh)"
var_coll.Add "h_n_child1"
vartype_coll.Add "h_n_child1 Byte"
varcom_coll.Add "h_n_child1 (Count of children in hh (lagged 1))"
var_coll.Add "h_n_childlt12"
vartype_coll.Add "h_n_childlt12 Byte"
varcom_coll.Add "h_n_childlt12 (Children below age 12)"
var_coll.Add "h_n_childlt7"
vartype_coll.Add "h_n_childlt7 Byte"
varcom_coll.Add "h_n_childlt7 (Number of children younger than seven years of age)"
var_coll.Add "h_n_ge18"
vartype_coll.Add "h_n_ge18 Byte"
varcom_coll.Add "h_n_ge18 (Nr. of individuals aged 18 and older)"
var_coll.Add "h_new_housing"
vartype_coll.Add "h_new_housing Byte"
varcom_coll.Add "h_new_housing (Indikator for change of housing during the year)"
var_coll.Add "h_new_housing1"
vartype_coll.Add "h_new_housing1 Byte"
varcom_coll.Add "h_new_housing1 (Indikator for change of housing during the year)"
var_coll.Add "h_new_immig"
vartype_coll.Add "h_new_immig Byte"
varcom_coll.Add "h_new_immig (Binary marker for immigrant households year t)"
var_coll.Add "h_selected"
vartype_coll.Add "h_selected Byte"
varcom_coll.Add "h_selected (marks household selection)"
var_coll.Add "h_size"
vartype_coll.Add "h_size Byte"
varcom_coll.Add "h_size (Size of household)"
var_coll.Add "h_studyloan_repaid"
vartype_coll.Add "h_studyloan_repaid Long"
varcom_coll.Add "h_studyloan_repaid ()"
var_coll.Add "h_sum_inc_taxable"
vartype_coll.Add "h_sum_inc_taxable Long"
varcom_coll.Add "h_sum_inc_taxable (Household sum of taxable income)"
var_coll.Add "h_sum_inc_taxable1"
vartype_coll.Add "h_sum_inc_taxable1 Long"
varcom_coll.Add "h_sum_inc_taxable1 (Household lagged sum of taxable income)"
var_coll.Add "h_tax_realestate"
vartype_coll.Add "h_tax_realestate Long"
varcom_coll.Add "h_tax_realestate (Household realestate tax)"
var_coll.Add "h_tax_total"
vartype_coll.Add "h_tax_total Long"
varcom_coll.Add "h_tax_total (Taxes (total))"
var_coll.Add "h_trf_btp"
vartype_coll.Add "h_trf_btp Long"
varcom_coll.Add "h_trf_btp (Housing allowance for pensioners)"
var_coll.Add "h_trf_childallowance"
vartype_coll.Add "h_trf_childallowance Long"
varcom_coll.Add "h_trf_childallowance (Childrens allowance)"
var_coll.Add "h_trf_housingallowance"
vartype_coll.Add "h_trf_housingallowance Long"
varcom_coll.Add "h_trf_housingallowance (Housing allowance (SEK))"
var_coll.Add "h_trf_pension"
vartype_coll.Add "h_trf_pension Long"
varcom_coll.Add "h_trf_pension (Pensions, household total)"
var_coll.Add "h_trf_socialassistance"
vartype_coll.Add "h_trf_socialassistance Long"
varcom_coll.Add "h_trf_socialassistance (Social assistance)"
var_coll.Add "h_trf_study"
vartype_coll.Add "h_trf_study Long"
varcom_coll.Add "h_trf_study (Household total of study loans and grants)"
var_coll.Add "h_trf_taxable"
vartype_coll.Add "h_trf_taxable Long"
varcom_coll.Add "h_trf_taxable (Household total taxable transfers)"
var_coll.Add "h_trf_taxfree"
vartype_coll.Add "h_trf_taxfree Long"
varcom_coll.Add "h_trf_taxfree (Household total tax free transfers)"
var_coll.Add "h_wealth_CapitalGain"
vartype_coll.Add "h_wealth_CapitalGain Long"
varcom_coll.Add "h_wealth_CapitalGain (Capital gain (loss if negative))"
var_coll.Add "h_wealth_debt"
vartype_coll.Add "h_wealth_debt Long"
varcom_coll.Add "h_wealth_debt (Total debt)"
var_coll.Add "h_wealth_debt_GLS1vc"
vartype_coll.Add "h_wealth_debt_GLS1vc Single"
varcom_coll.Add "h_wealth_debt_GLS1vc (Random effect term)"
var_coll.Add "h_wealth_debt_GLS2vc"
vartype_coll.Add "h_wealth_debt_GLS2vc Single"
varcom_coll.Add "h_wealth_debt_GLS2vc (Random effect term)"
var_coll.Add "h_wealth_debt_interest"
vartype_coll.Add "h_wealth_debt_interest Long"
varcom_coll.Add "h_wealth_debt_interest (Debt interest)"
var_coll.Add "h_wealth_debt_interest_varcomp_p"
vartype_coll.Add "h_wealth_debt_interest_varcomp_p Single"
varcom_coll.Add "h_wealth_debt_interest_varcomp_p (Variance component (probit))"
var_coll.Add "h_wealth_debt_interest_varcomp_r"
vartype_coll.Add "h_wealth_debt_interest_varcomp_r Single"
varcom_coll.Add "h_wealth_debt_interest_varcomp_r (Variance component (regression))"
var_coll.Add "h_wealth_debt_interest1"
vartype_coll.Add "h_wealth_debt_interest1 Long"
varcom_coll.Add "h_wealth_debt_interest1 (Lagged debt interest)"
var_coll.Add "h_wealth_debt_interestrate"
vartype_coll.Add "h_wealth_debt_interestrate Double"
varcom_coll.Add "h_wealth_debt_interestrate (Debt interest rate)"
var_coll.Add "h_wealth_debt_interestrate1"
vartype_coll.Add "h_wealth_debt_interestrate1 Single"
varcom_coll.Add "h_wealth_debt_interestrate1 (Lagged debt interest rate)"
var_coll.Add "h_wealth_debt_probit1vc"
vartype_coll.Add "h_wealth_debt_probit1vc Single"
varcom_coll.Add "h_wealth_debt_probit1vc (Random effect term)"
var_coll.Add "h_wealth_debt_probit2vc"
vartype_coll.Add "h_wealth_debt_probit2vc Single"
varcom_coll.Add "h_wealth_debt_probit2vc (Random effect term)"
var_coll.Add "h_wealth_debt_varcomp"
vartype_coll.Add "h_wealth_debt_varcomp Single"
varcom_coll.Add "h_wealth_debt_varcomp (Probit random effect intercept)"
var_coll.Add "h_wealth_debt1"
vartype_coll.Add "h_wealth_debt1 Long"
varcom_coll.Add "h_wealth_debt1 (Total debt (lagged))"
var_coll.Add "h_wealth_DebtInterest_ind"
vartype_coll.Add "h_wealth_DebtInterest_ind Byte"
varcom_coll.Add "h_wealth_DebtInterest_ind (Indicator for positive debt interest)"
var_coll.Add "h_wealth_DebtInterest_ind1"
vartype_coll.Add "h_wealth_DebtInterest_ind1 Byte"
varcom_coll.Add "h_wealth_DebtInterest_ind1 (debt interest (lagged))"
var_coll.Add "h_wealth_financial"
vartype_coll.Add "h_wealth_financial Long"
varcom_coll.Add "h_wealth_financial (Households financial wealth)"
var_coll.Add "h_wealth_financial_sales"
vartype_coll.Add "h_wealth_financial_sales Long"
varcom_coll.Add "h_wealth_financial_sales (Financial wealth from house sales)"
var_coll.Add "h_wealth_financial_varcomp"
vartype_coll.Add "h_wealth_financial_varcomp Single"
varcom_coll.Add "h_wealth_financial_varcomp (Random effects intercept)"
var_coll.Add "h_wealth_financial1"
vartype_coll.Add "h_wealth_financial1 Long"
varcom_coll.Add "h_wealth_financial1 (Financial wealth (lagged))"
var_coll.Add "h_wealth_InterestDividends"
vartype_coll.Add "h_wealth_InterestDividends Long"
varcom_coll.Add "h_wealth_InterestDividends (Interest and dividends)"
var_coll.Add "h_wealth_real"
vartype_coll.Add "h_wealth_real Long"
varcom_coll.Add "h_wealth_real (Non-financial (real) wealth)"
var_coll.Add "h_wealth_real_home"
vartype_coll.Add "h_wealth_real_home Long"
varcom_coll.Add "h_wealth_real_home (Own home)"
var_coll.Add "h_wealth_real_home1"
vartype_coll.Add "h_wealth_real_home1 Long"
varcom_coll.Add "h_wealth_real_home1 (Own home (lagged))"
var_coll.Add "h_wealth_real_other"
vartype_coll.Add "h_wealth_real_other Long"
varcom_coll.Add "h_wealth_real_other (Other real wealth)"
var_coll.Add "h_wealth_real_other1"
vartype_coll.Add "h_wealth_real_other1 Long"
varcom_coll.Add "h_wealth_real_other1 (Other real wealth (lagged))"
mvar_coll.Add "m_AAK1664"
mvar_coll.Add "m_AAL1664"
mvar_coll.Add "m_AAPSYS"
mvar_coll.Add "m_AAPTOT"
mvar_coll.Add "m_AKK1619"
mvar_coll.Add "m_AKK2024"
mvar_coll.Add "m_AKK2529"
mvar_coll.Add "m_AKK3034"
mvar_coll.Add "m_AKK3539"
mvar_coll.Add "m_AKK4044"
mvar_coll.Add "m_AKK4549"
mvar_coll.Add "m_AKK5054"
mvar_coll.Add "m_AKK5559"
mvar_coll.Add "m_AKK6064"
mvar_coll.Add "m_AKK6569"
mvar_coll.Add "m_AKK7074"
mvar_coll.Add "m_AKM1619"
mvar_coll.Add "m_AKM2024"
mvar_coll.Add "m_AKM2529"
mvar_coll.Add "m_AKM3034"
mvar_coll.Add "m_AKM3539"
mvar_coll.Add "m_AKM4044"
mvar_coll.Add "m_AKM4549"
mvar_coll.Add "m_AKM5054"
mvar_coll.Add "m_AKM5559"
mvar_coll.Add "m_AKM6064"
mvar_coll.Add "m_AKM6569"
mvar_coll.Add "m_AKM7074"
mvar_coll.Add "m_AKT1664"
mvar_coll.Add "m_ALK1619"
mvar_coll.Add "m_ALK2024"
mvar_coll.Add "m_ALK2529"
mvar_coll.Add "m_ALK3034"
mvar_coll.Add "m_ALK3539"
mvar_coll.Add "m_ALK4044"
mvar_coll.Add "m_ALK4549"
mvar_coll.Add "m_ALK5054"
mvar_coll.Add "m_ALK5559"
mvar_coll.Add "m_ALK6064"
mvar_coll.Add "m_ALK6569"
mvar_coll.Add "m_ALK7074"
mvar_coll.Add "m_ALM1619"
mvar_coll.Add "m_ALM2024"
mvar_coll.Add "m_ALM2529"
mvar_coll.Add "m_ALM3034"
mvar_coll.Add "m_ALM3539"
mvar_coll.Add "m_ALM4044"
mvar_coll.Add "m_ALM4549"
mvar_coll.Add "m_ALM5054"
mvar_coll.Add "m_ALM5559"
mvar_coll.Add "m_ALM6064"
mvar_coll.Add "m_ALM6569"
mvar_coll.Add "m_ALM7074"
mvar_coll.Add "m_ap_aap_avs"
mvar_coll.Add "m_ap_adm_ip"
mvar_coll.Add "m_ap_adm_ip_ap"
mvar_coll.Add "m_ap_adm_ip_ap_p"
mvar_coll.Add "m_ap_adm_ip_ins"
mvar_coll.Add "m_ap_adm_ip_ins_p"
mvar_coll.Add "m_ap_adm_ip_p"
mvar_coll.Add "m_ap_ap"
mvar_coll.Add "m_ap_apfond"
mvar_coll.Add "m_ap_apfond_trf"
mvar_coll.Add "m_ap_apfond1"
mvar_coll.Add "m_ap_apfond2"
mvar_coll.Add "m_ap_arv"
mvar_coll.Add "m_ap_arv_59"
mvar_coll.Add "m_ap_arv60_"
mvar_coll.Add "m_ap_atp"
mvar_coll.Add "m_ap_atp_dead"
mvar_coll.Add "m_ap_atp_ut"
mvar_coll.Add "m_ap_avg"
mvar_coll.Add "m_ap_avg_37"
mvar_coll.Add "m_ap_avg_ap"
mvar_coll.Add "m_ap_avg_ap_37"
mvar_coll.Add "m_ap_avg_ap1"
mvar_coll.Add "m_ap_avg_ap2"
mvar_coll.Add "m_ap_avg_ap3"
mvar_coll.Add "m_ap_avg_atak"
mvar_coll.Add "m_ap_avg_ppm"
mvar_coll.Add "m_ap_avgtill"
mvar_coll.Add "m_ap_avgtill1"
mvar_coll.Add "m_ap_avgtill2"
mvar_coll.Add "m_ap_avgtill3"
mvar_coll.Add "m_ap_avs"
mvar_coll.Add "m_ap_balanstal"
mvar_coll.Add "m_ap_balanstal_accum"
mvar_coll.Add "m_ap_balind"
mvar_coll.Add "m_ap_balind_active"
mvar_coll.Add "m_ap_balind1"
mvar_coll.Add "m_ap_balind2"
mvar_coll.Add "m_ap_favg"
mvar_coll.Add "m_ap_fp_kvot_gifta"
mvar_coll.Add "m_ap_fp_kvot_ogifta"
mvar_coll.Add "m_ap_fp30_dead"
mvar_coll.Add "m_ap_fp30_ut"
mvar_coll.Add "m_ap_gp_Inkindex_On"
mvar_coll.Add "m_ap_he66"
mvar_coll.Add "m_ap_index"
mvar_coll.Add "m_ap_inkind"
mvar_coll.Add "m_ap_inkind1"
mvar_coll.Add "m_ap_inkind2"
mvar_coll.Add "m_ap_ip_avs"
mvar_coll.Add "m_ap_ip_dead"
mvar_coll.Add "m_ap_ip_dead_korr"
mvar_coll.Add "m_ap_ip_ut"
mvar_coll.Add "m_ap_it"
mvar_coll.Add "m_ap_ls66"
mvar_coll.Add "m_ap_norm"
mvar_coll.Add "m_ap_ot"
mvar_coll.Add "m_ap_ot1"
mvar_coll.Add "m_ap_ot2"
mvar_coll.Add "m_ap_ot3"
mvar_coll.Add "m_ap_ottak"
mvar_coll.Add "m_ap_ottak1"
mvar_coll.Add "m_ap_pb_ip"
mvar_coll.Add "m_ap_pb_tp"
mvar_coll.Add "m_ap_pp_avs"
mvar_coll.Add "m_ap_pp_dead"
mvar_coll.Add "m_ap_pp_ut"
mvar_coll.Add "m_ap_ppfond"
mvar_coll.Add "m_ap_pr_ip"
mvar_coll.Add "m_ap_pts_kvot"
mvar_coll.Add "m_ap_sa"
mvar_coll.Add "m_ap_shares_p"
mvar_coll.Add "m_ap_skuld"
mvar_coll.Add "m_ap_skuld1"
mvar_coll.Add "m_ap_skuld2"
mvar_coll.Add "m_ap_skuld3"
mvar_coll.Add "m_ap_sp"
mvar_coll.Add "m_ap_summasnitt"
mvar_coll.Add "m_ap_tp"
mvar_coll.Add "m_ap_tp_ut"
mvar_coll.Add "m_ap_u68"
mvar_coll.Add "m_ap_ud68"
mvar_coll.Add "m_ap_ut"
mvar_coll.Add "m_arbavg"
mvar_coll.Add "m_arbavg_akas_p"
mvar_coll.Add "m_arbavg_alon_p"
mvar_coll.Add "m_arbavg_arsk_p"
mvar_coll.Add "m_arbavg_eft_p"
mvar_coll.Add "m_arbavg_forp_p"
mvar_coll.Add "m_arbavg_ovr"
mvar_coll.Add "m_arbavg_ovr_p"
mvar_coll.Add "m_arbavg_p"
mvar_coll.Add "m_arbavg_pens"
mvar_coll.Add "m_arbavg_pens_p"
mvar_coll.Add "m_arbavg_sjuk_p"
mvar_coll.Add "m_arbavg_slon"
mvar_coll.Add "m_arbavg_slon_p"
mvar_coll.Add "m_arbavg_slon38_p"
mvar_coll.Add "m_arvsvinst_60"
mvar_coll.Add "m_ASY1664"
mvar_coll.Add "m_ASY2064R"
mvar_coll.Add "m_basbelopp"
mvar_coll.Add "m_basbelopp_f"
mvar_coll.Add "m_basbelopp_ftp"
mvar_coll.Add "m_basbelopp_gp"
mvar_coll.Add "m_basbelopp_income"
mvar_coll.Add "m_basbelopp1"
mvar_coll.Add "m_basbelopp2"
mvar_coll.Add "m_basbelopp3"
mvar_coll.Add "m_basbelopp4"
mvar_coll.Add "m_basbelopp5"
mvar_coll.Add "m_BEFK0014"
mvar_coll.Add "m_BEFK0015"
mvar_coll.Add "m_BEFK1519"
mvar_coll.Add "m_BEFK1619"
mvar_coll.Add "m_BEFK1664"
mvar_coll.Add "m_BEFK2024"
mvar_coll.Add "m_BEFK2529"
mvar_coll.Add "m_BEFK3034"
mvar_coll.Add "m_BEFK3539"
mvar_coll.Add "m_BEFK4044"
mvar_coll.Add "m_BEFK4549"
mvar_coll.Add "m_BEFK5054"
mvar_coll.Add "m_BEFK5559"
mvar_coll.Add "m_BEFK6064"
mvar_coll.Add "m_BEFK6569"
mvar_coll.Add "m_BEFK65WW"
mvar_coll.Add "m_BEFK7074"
mvar_coll.Add "m_BEFM0014"
mvar_coll.Add "m_BEFM0015"
mvar_coll.Add "m_BEFM1519"
mvar_coll.Add "m_BEFM1619"
mvar_coll.Add "m_BEFM1664"
mvar_coll.Add "m_BEFM2024"
mvar_coll.Add "m_BEFM2529"
mvar_coll.Add "m_BEFM3034"
mvar_coll.Add "m_BEFM3539"
mvar_coll.Add "m_BEFM4044"
mvar_coll.Add "m_BEFM4549"
mvar_coll.Add "m_BEFM5054"
mvar_coll.Add "m_BEFM5559"
mvar_coll.Add "m_BEFM6064"
mvar_coll.Add "m_BEFM6569"
mvar_coll.Add "m_BEFM65WW"
mvar_coll.Add "m_BEFM7074"
mvar_coll.Add "m_bnpaf"
mvar_coll.Add "m_bnpal"
mvar_coll.Add "m_bonds_return_ap"
mvar_coll.Add "m_born"
mvar_coll.Add "m_dead"
mvar_coll.Add "m_dtalip_65"
mvar_coll.Add "m_dtalpp_65"
mvar_coll.Add "m_egenavg_pens"
mvar_coll.Add "m_egenavg_pens_p"
mvar_coll.Add "m_egenavg_red_p"
mvar_coll.Add "m_egenavg_tak_basb"
mvar_coll.Add "m_emigrated"
mvar_coll.Add "m_favg_ip"
mvar_coll.Add "m_favg_pp"
mvar_coll.Add "m_ftp_Inkindex_On"
mvar_coll.Add "m_hcount"
mvar_coll.Add "m_icount"
mvar_coll.Add "m_immigrated"
mvar_coll.Add "m_inc_earning"
mvar_coll.Add "m_inc_taxable_snitt"
mvar_coll.Add "m_inc_taxable_snitt1"
mvar_coll.Add "m_inc_taxable_snitt2"
mvar_coll.Add "m_inc_taxable_snitt3"
mvar_coll.Add "m_inc_taxable_snitt4"
mvar_coll.Add "m_incmeas"
mvar_coll.Add "m_incmeas1"
mvar_coll.Add "m_incmeas4"
mvar_coll.Add "m_inflation"
mvar_coll.Add "m_interest_long"
mvar_coll.Add "m_interest_long99"
mvar_coll.Add "m_interest_short"
mvar_coll.Add "m_interest_short1"
mvar_coll.Add "m_JmfInk_barn"
mvar_coll.Add "m_KPI"
mvar_coll.Add "m_KPI1"
mvar_coll.Add "m_KPI2"
mvar_coll.Add "m_KPI3"
mvar_coll.Add "m_KPI4"
mvar_coll.Add "m_macro_index"
mvar_coll.Add "m_netcontribution_ap"
mvar_coll.Add "m_netmigration"
mvar_coll.Add "m_netreturn_ap"
mvar_coll.Add "m_op_fond"
mvar_coll.Add "m_pb_ip_active"
mvar_coll.Add "m_pb_ip_active_n"
mvar_coll.Add "m_pensage"
mvar_coll.Add "m_pension_income_index"
mvar_coll.Add "m_pgb"
mvar_coll.Add "m_pgi"
mvar_coll.Add "m_pgi_bas"
mvar_coll.Add "m_pgi_bas_gt_basb"
mvar_coll.Add "m_pgi_bas_gt_basb_n"
mvar_coll.Add "m_pgi_bas_n"
mvar_coll.Add "m_pp_fond"
mvar_coll.Add "m_pr_op"
mvar_coll.Add "m_price_change00"
mvar_coll.Add "m_price_change01"
mvar_coll.Add "m_price_change02"
mvar_coll.Add "m_price_change03"
mvar_coll.Add "m_price_change04"
mvar_coll.Add "m_price_change05"
mvar_coll.Add "m_price_change06"
mvar_coll.Add "m_price_change07"
mvar_coll.Add "m_price_change08"
mvar_coll.Add "m_price_change09"
mvar_coll.Add "m_price_change10"
mvar_coll.Add "m_price_change99"
mvar_coll.Add "m_price_rw_home"
mvar_coll.Add "m_price_rw_home99"
mvar_coll.Add "m_price_rw_other"
mvar_coll.Add "m_price_rw_other99"
mvar_coll.Add "m_price99"
mvar_coll.Add "m_realwage"
mvar_coll.Add "m_realwage_change00"
mvar_coll.Add "m_realwage_change01"
mvar_coll.Add "m_realwage_change02"
mvar_coll.Add "m_realwage_change03"
mvar_coll.Add "m_realwage_change04"
mvar_coll.Add "m_realwage_change05"
mvar_coll.Add "m_realwage_change06"
mvar_coll.Add "m_realwage_change07"
mvar_coll.Add "m_realwage_change08"
mvar_coll.Add "m_realwage_change09"
mvar_coll.Add "m_realwage_change10"
mvar_coll.Add "m_realwage_change99"
mvar_coll.Add "m_return_ap"
mvar_coll.Add "m_RFV_PB_On"
mvar_coll.Add "m_shares_dividends"
mvar_coll.Add "m_shares_dividends99"
mvar_coll.Add "m_shares_rate"
mvar_coll.Add "m_shares_rate99"
mvar_coll.Add "m_shares_return"
mvar_coll.Add "m_shares_return_ap"
mvar_coll.Add "m_shares_total99"
mvar_coll.Add "m_TFR"
mvar_coll.Add "m_wage_change00"
mvar_coll.Add "m_wage_change01"
mvar_coll.Add "m_wage_change02"
mvar_coll.Add "m_wage_change03"
mvar_coll.Add "m_wage_change04"
mvar_coll.Add "m_wage_change05"
mvar_coll.Add "m_wage_change06"
mvar_coll.Add "m_wage_change07"
mvar_coll.Add "m_wage_change08"
mvar_coll.Add "m_wage_change09"
mvar_coll.Add "m_wage_change10"
mvar_coll.Add "m_wage_change99"
mvar_coll.Add "m_weight"
mvar_coll.Add "m_zpb_ip_korr"
mvar_coll.Add "m_zpb_pp_korr"
mvar_coll.Add "m_zpgb_korr"
mvar_coll.Add "m_zpgi_korr"
mvar_coll.Add "m_zzz"
End Sub
'************************************
' Function getvalues
'************************************
Public Sub getvalues(nvar, vnames, vvalues, i)
Dim j As Integer
For j = 1 To nvar
If lcase(vnames(j)) = lcase("i_aap") Then vvalues(j) =i_aap(i)
If lcase(vnames(j)) = lcase("i_abroad") Then vvalues(j) =i_abroad(i)
If lcase(vnames(j)) = lcase("i_ADL") Then vvalues(j) =i_ADL(i)
If lcase(vnames(j)) = lcase("i_ADL_rnd") Then vvalues(j) =i_ADL_rnd(i)
If lcase(vnames(j)) = lcase("i_age") Then vvalues(j) =i_age(i)
If lcase(vnames(j)) = lcase("i_ap") Then vvalues(j) =i_ap(i)
If lcase(vnames(j)) = lcase("i_ap_ap") Then vvalues(j) =i_ap_ap(i)
If lcase(vnames(j)) = lcase("i_ap_atp") Then vvalues(j) =i_ap_atp(i)
If lcase(vnames(j)) = lcase("i_ap_atp_1994") Then vvalues(j) =i_ap_atp_1994(i)
If lcase(vnames(j)) = lcase("i_ap_atp_old") Then vvalues(j) =i_ap_atp_old(i)
If lcase(vnames(j)) = lcase("i_ap_atp_ut") Then vvalues(j) =i_ap_atp_ut(i)
If lcase(vnames(j)) = lcase("i_ap_fiktiv") Then vvalues(j) =i_ap_fiktiv(i)
If lcase(vnames(j)) = lcase("i_ap_fp") Then vvalues(j) =i_ap_fp(i)
If lcase(vnames(j)) = lcase("i_ap_fp30") Then vvalues(j) =i_ap_fp30(i)
If lcase(vnames(j)) = lcase("i_ap_fp30_1994") Then vvalues(j) =i_ap_fp30_1994(i)
If lcase(vnames(j)) = lcase("i_ap_fp30_ut") Then vvalues(j) =i_ap_fp30_ut(i)
If lcase(vnames(j)) = lcase("i_ap_gartill") Then vvalues(j) =i_ap_gartill(i)
If lcase(vnames(j)) = lcase("i_ap_gp") Then vvalues(j) =i_ap_gp(i)
If lcase(vnames(j)) = lcase("i_ap_ip") Then vvalues(j) =i_ap_ip(i)
If lcase(vnames(j)) = lcase("i_ap_ip_ut") Then vvalues(j) =i_ap_ip_ut(i)
If lcase(vnames(j)) = lcase("i_ap_ip1") Then vvalues(j) =i_ap_ip1(i)
If lcase(vnames(j)) = lcase("i_ap_pensmonth") Then vvalues(j) =i_ap_pensmonth(i)
If lcase(vnames(j)) = lcase("i_ap_pp") Then vvalues(j) =i_ap_pp(i)
If lcase(vnames(j)) = lcase("i_ap_pp_ut") Then vvalues(j) =i_ap_pp_ut(i)
If lcase(vnames(j)) = lcase("i_ap_pts") Then vvalues(j) =i_ap_pts(i)
If lcase(vnames(j)) = lcase("i_ap_tp") Then vvalues(j) =i_ap_tp(i)
If lcase(vnames(j)) = lcase("i_ap_tp_ut") Then vvalues(j) =i_ap_tp_ut(i)
If lcase(vnames(j)) = lcase("i_arbavg") Then vvalues(j) =i_arbavg(i)
If lcase(vnames(j)) = lcase("i_arbavg_akas") Then vvalues(j) =i_arbavg_akas(i)
If lcase(vnames(j)) = lcase("i_arbavg_alon") Then vvalues(j) =i_arbavg_alon(i)
If lcase(vnames(j)) = lcase("i_arbavg_arsk") Then vvalues(j) =i_arbavg_arsk(i)
If lcase(vnames(j)) = lcase("i_arbavg_eft") Then vvalues(j) =i_arbavg_eft(i)
If lcase(vnames(j)) = lcase("i_arbavg_forp") Then vvalues(j) =i_arbavg_forp(i)
If lcase(vnames(j)) = lcase("i_arbavg_pens") Then vvalues(j) =i_arbavg_pens(i)
If lcase(vnames(j)) = lcase("i_arbavg_sjuk") Then vvalues(j) =i_arbavg_sjuk(i)
If lcase(vnames(j)) = lcase("i_arbavg_slon") Then vvalues(j) =i_arbavg_slon(i)
If lcase(vnames(j)) = lcase("i_arbavg_slon38") Then vvalues(j) =i_arbavg_slon38(i)
If lcase(vnames(j)) = lcase("i_assistance_elderly") Then vvalues(j) =i_assistance_elderly(i)
If lcase(vnames(j)) = lcase("i_ATP_ar_1994") Then vvalues(j) =i_ATP_ar_1994(i)
If lcase(vnames(j)) = lcase("i_avg") Then vvalues(j) =i_avg(i)
If lcase(vnames(j)) = lcase("i_avg_aap") Then vvalues(j) =i_avg_aap(i)
If lcase(vnames(j)) = lcase("i_avg_ftp") Then vvalues(j) =i_avg_ftp(i)
If lcase(vnames(j)) = lcase("i_avg_inc_at_retirement") Then vvalues(j) =i_avg_inc_at_retirement(i)
If lcase(vnames(j)) = lcase("i_avg_income_1997") Then vvalues(j) =i_avg_income_1997(i)
If lcase(vnames(j)) = lcase("i_avg_ip") Then vvalues(j) =i_avg_ip(i)
If lcase(vnames(j)) = lcase("i_avg_ip2") Then vvalues(j) =i_avg_ip2(i)
If lcase(vnames(j)) = lcase("i_avg_pgb") Then vvalues(j) =i_avg_pgb(i)
If lcase(vnames(j)) = lcase("i_avg_stap") Then vvalues(j) =i_avg_stap(i)
If lcase(vnames(j)) = lcase("i_avg_trf") Then vvalues(j) =i_avg_trf(i)
If lcase(vnames(j)) = lcase("i_avg2") Then vvalues(j) =i_avg2(i)
If lcase(vnames(j)) = lcase("i_BB_region") Then vvalues(j) =i_BB_region(i)
If lcase(vnames(j)) = lcase("i_bidnr") Then vvalues(j) =i_bidnr(i)
If lcase(vnames(j)) = lcase("i_binvar") Then vvalues(j) =i_binvar(i)
If lcase(vnames(j)) = lcase("i_born_abroad") Then vvalues(j) =i_born_abroad(i)
If lcase(vnames(j)) = lcase("i_born_year") Then vvalues(j) =i_born_year(i)
If lcase(vnames(j)) = lcase("i_botid") Then vvalues(j) =i_botid(i)
If lcase(vnames(j)) = lcase("i_bvux") Then vvalues(j) =i_bvux(i)
If lcase(vnames(j)) = lcase("i_bvux1") Then vvalues(j) =i_bvux1(i)
If lcase(vnames(j)) = lcase("i_civ_stat") Then vvalues(j) =i_civ_stat(i)
If lcase(vnames(j)) = lcase("i_civ_stat1") Then vvalues(j) =i_civ_stat1(i)
If lcase(vnames(j)) = lcase("i_edlevel") Then vvalues(j) =i_edlevel(i)
If lcase(vnames(j)) = lcase("i_edyears") Then vvalues(j) =i_edyears(i)
If lcase(vnames(j)) = lcase("i_emig_year") Then vvalues(j) =i_emig_year(i)
If lcase(vnames(j)) = lcase("i_ftp") Then vvalues(j) =i_ftp(i)
If lcase(vnames(j)) = lcase("i_ftp_64") Then vvalues(j) =i_ftp_64(i)
If lcase(vnames(j)) = lcase("i_ftp_antag") Then vvalues(j) =i_ftp_antag(i)
If lcase(vnames(j)) = lcase("i_ftp_atp") Then vvalues(j) =i_ftp_atp(i)
If lcase(vnames(j)) = lcase("i_ftp_fp") Then vvalues(j) =i_ftp_fp(i)
If lcase(vnames(j)) = lcase("i_ftp_gar") Then vvalues(j) =i_ftp_gar(i)
If lcase(vnames(j)) = lcase("i_ftp_ink") Then vvalues(j) =i_ftp_ink(i)
If lcase(vnames(j)) = lcase("i_ftp_just") Then vvalues(j) =i_ftp_just(i)
If lcase(vnames(j)) = lcase("i_ftp_pts") Then vvalues(j) =i_ftp_pts(i)
If lcase(vnames(j)) = lcase("i_ftp_typ") Then vvalues(j) =i_ftp_typ(i)
If lcase(vnames(j)) = lcase("i_ftp_year") Then vvalues(j) =i_ftp_year(i)
If lcase(vnames(j)) = lcase("i_HasBeenWidowed") Then vvalues(j) =i_HasBeenWidowed(i)
If lcase(vnames(j)) = lcase("i_health") Then vvalues(j) =i_health(i)
If lcase(vnames(j)) = lcase("i_health_latent") Then vvalues(j) =i_health_latent(i)
If lcase(vnames(j)) = lcase("i_health_latent1") Then vvalues(j) =i_health_latent1(i)
If lcase(vnames(j)) = lcase("i_health1") Then vvalues(j) =i_health1(i)
If lcase(vnames(j)) = lcase("i_hhnr") Then vvalues(j) =i_hhnr(i)
If lcase(vnames(j)) = lcase("i_hhstatus") Then vvalues(j) =i_hhstatus(i)
If lcase(vnames(j)) = lcase("i_housetax_postponed") Then vvalues(j) =i_housetax_postponed(i)
If lcase(vnames(j)) = lcase("i_hsdropout") Then vvalues(j) =i_hsdropout(i)
If lcase(vnames(j)) = lcase("i_inc_capital") Then vvalues(j) =i_inc_capital(i)
If lcase(vnames(j)) = lcase("i_inc_earning") Then vvalues(j) =i_inc_earning(i)
If lcase(vnames(j)) = lcase("i_inc_itvariance") Then vvalues(j) =i_inc_itvariance(i)
If lcase(vnames(j)) = lcase("i_inc_ivariance") Then vvalues(j) =i_inc_ivariance(i)
If lcase(vnames(j)) = lcase("i_inc_market") Then vvalues(j) =i_inc_market(i)
If lcase(vnames(j)) = lcase("i_inc_selfemployed") Then vvalues(j) =i_inc_selfemployed(i)
If lcase(vnames(j)) = lcase("i_inc_taxable") Then vvalues(j) =i_inc_taxable(i)
If lcase(vnames(j)) = lcase("i_inc_taxable1") Then vvalues(j) =i_inc_taxable1(i)
If lcase(vnames(j)) = lcase("i_inc_taxable2") Then vvalues(j) =i_inc_taxable2(i)
If lcase(vnames(j)) = lcase("i_inc_taxable3") Then vvalues(j) =i_inc_taxable3(i)
If lcase(vnames(j)) = lcase("i_inc_taxable4") Then vvalues(j) =i_inc_taxable4(i)
If lcase(vnames(j)) = lcase("i_inc_taxable5") Then vvalues(j) =i_inc_taxable5(i)
If lcase(vnames(j)) = lcase("i_inc_taxed") Then vvalues(j) =i_inc_taxed(i)
If lcase(vnames(j)) = lcase("i_inc_work") Then vvalues(j) =i_inc_work(i)
If lcase(vnames(j)) = lcase("i_income") Then vvalues(j) =i_income(i)
If lcase(vnames(j)) = lcase("i_indnr") Then vvalues(j) =i_indnr(i)
If lcase(vnames(j)) = lcase("i_InpatientCare") Then vvalues(j) =i_InpatientCare(i)
If lcase(vnames(j)) = lcase("i_last_hh_dur") Then vvalues(j) =i_last_hh_dur(i)
If lcase(vnames(j)) = lcase("i_maintenance_paid") Then vvalues(j) =i_maintenance_paid(i)
If lcase(vnames(j)) = lcase("i_mATP_1994") Then vvalues(j) =i_mATP_1994(i)
If lcase(vnames(j)) = lcase("i_new_em") Then vvalues(j) =i_new_em(i)
If lcase(vnames(j)) = lcase("i_new_fp") Then vvalues(j) =i_new_fp(i)
If lcase(vnames(j)) = lcase("i_new_immig") Then vvalues(j) =i_new_immig(i)
If lcase(vnames(j)) = lcase("i_next_indnr") Then vvalues(j) =i_next_indnr(i)
If lcase(vnames(j)) = lcase("i_nr_prev_hh") Then vvalues(j) =i_nr_prev_hh(i)
If lcase(vnames(j)) = lcase("i_op") Then vvalues(j) =i_op(i)
If lcase(vnames(j)) = lcase("i_op_an_db_after_65") Then vvalues(j) =i_op_an_db_after_65(i)
If lcase(vnames(j)) = lcase("i_op_an_db_before_65") Then vvalues(j) =i_op_an_db_before_65(i)
If lcase(vnames(j)) = lcase("i_op_an_dc_after_65") Then vvalues(j) =i_op_an_dc_after_65(i)
If lcase(vnames(j)) = lcase("i_op_an_dc_before_65") Then vvalues(j) =i_op_an_dc_before_65(i)
If lcase(vnames(j)) = lcase("i_op_ap_db") Then vvalues(j) =i_op_ap_db(i)
If lcase(vnames(j)) = lcase("i_op_ap_dc") Then vvalues(j) =i_op_ap_dc(i)
If lcase(vnames(j)) = lcase("i_op_ap_tp") Then vvalues(j) =i_op_ap_tp(i)
If lcase(vnames(j)) = lcase("i_op_capital_value") Then vvalues(j) =i_op_capital_value(i)
If lcase(vnames(j)) = lcase("i_op_erp") Then vvalues(j) =i_op_erp(i)
If lcase(vnames(j)) = lcase("i_op_pp_years") Then vvalues(j) =i_op_pp_years(i)
If lcase(vnames(j)) = lcase("i_op_pp_years_Blue") Then vvalues(j) =i_op_pp_years_Blue(i)
If lcase(vnames(j)) = lcase("i_op_pp_years_Local") Then vvalues(j) =i_op_pp_years_Local(i)
If lcase(vnames(j)) = lcase("i_op_pp_years_State") Then vvalues(j) =i_op_pp_years_State(i)
If lcase(vnames(j)) = lcase("i_op_pp_years_trans") Then vvalues(j) =i_op_pp_years_trans(i)
If lcase(vnames(j)) = lcase("i_op_pp_years_White") Then vvalues(j) =i_op_pp_years_White(i)
If lcase(vnames(j)) = lcase("i_op_retirement_individual_effect") Then vvalues(j) =i_op_retirement_individual_effect(i)
If lcase(vnames(j)) = lcase("i_p_andel") Then vvalues(j) =i_p_andel(i)
If lcase(vnames(j)) = lcase("i_p_antman") Then vvalues(j) =i_p_antman(i)
If lcase(vnames(j)) = lcase("i_pb_fiktiv") Then vvalues(j) =i_pb_fiktiv(i)
If lcase(vnames(j)) = lcase("i_pb_ip") Then vvalues(j) =i_pb_ip(i)
If lcase(vnames(j)) = lcase("i_pb_ip1") Then vvalues(j) =i_pb_ip1(i)
If lcase(vnames(j)) = lcase("i_pb_op_ap") Then vvalues(j) =i_pb_op_ap(i)
If lcase(vnames(j)) = lcase("i_pb_op_tp") Then vvalues(j) =i_pb_op_tp(i)
If lcase(vnames(j)) = lcase("i_pb_pp") Then vvalues(j) =i_pb_pp(i)
If lcase(vnames(j)) = lcase("i_pbhi") Then vvalues(j) =i_pbhi(i)
If lcase(vnames(j)) = lcase("i_pc_care") Then vvalues(j) =i_pc_care(i)
If lcase(vnames(j)) = lcase("i_pc_childcare") Then vvalues(j) =i_pc_childcare(i)
If lcase(vnames(j)) = lcase("i_pc_elderly") Then vvalues(j) =i_pc_elderly(i)
If lcase(vnames(j)) = lcase("i_pc_high_school") Then vvalues(j) =i_pc_high_school(i)
If lcase(vnames(j)) = lcase("i_pc_labor") Then vvalues(j) =i_pc_labor(i)
If lcase(vnames(j)) = lcase("i_pc_MAE") Then vvalues(j) =i_pc_MAE(i)
If lcase(vnames(j)) = lcase("i_pc_medicine") Then vvalues(j) =i_pc_medicine(i)
If lcase(vnames(j)) = lcase("i_pc_school") Then vvalues(j) =i_pc_school(i)
If lcase(vnames(j)) = lcase("i_pc_school_adult") Then vvalues(j) =i_pc_school_adult(i)
If lcase(vnames(j)) = lcase("i_pc_total") Then vvalues(j) =i_pc_total(i)
If lcase(vnames(j)) = lcase("i_pc_univ") Then vvalues(j) =i_pc_univ(i)
If lcase(vnames(j)) = lcase("i_pgb") Then vvalues(j) =i_pgb(i)
If lcase(vnames(j)) = lcase("i_pgb_antag") Then vvalues(j) =i_pgb_antag(i)
If lcase(vnames(j)) = lcase("i_pgb_barn") Then vvalues(j) =i_pgb_barn(i)
If lcase(vnames(j)) = lcase("i_pgb_barn_typ") Then vvalues(j) =i_pgb_barn_typ(i)
If lcase(vnames(j)) = lcase("i_pgb_plikt") Then vvalues(j) =i_pgb_plikt(i)
If lcase(vnames(j)) = lcase("i_pgb_stud") Then vvalues(j) =i_pgb_stud(i)
If lcase(vnames(j)) = lcase("i_pgi") Then vvalues(j) =i_pgi(i)
If lcase(vnames(j)) = lcase("i_pgi_bas") Then vvalues(j) =i_pgi_bas(i)
If lcase(vnames(j)) = lcase("i_pgi_orange") Then vvalues(j) =i_pgi_orange(i)
If lcase(vnames(j)) = lcase("i_pgi185") Then vvalues(j) =i_pgi185(i)
If lcase(vnames(j)) = lcase("i_pp") Then vvalues(j) =i_pp(i)
If lcase(vnames(j)) = lcase("i_pp_payout_time") Then vvalues(j) =i_pp_payout_time(i)
If lcase(vnames(j)) = lcase("i_ppmkap") Then vvalues(j) =i_ppmkap(i)
If lcase(vnames(j)) = lcase("i_pr_ip") Then vvalues(j) =i_pr_ip(i)
If lcase(vnames(j)) = lcase("i_pr_ip1") Then vvalues(j) =i_pr_ip1(i)
If lcase(vnames(j)) = lcase("i_pr_op_ap") Then vvalues(j) =i_pr_op_ap(i)
If lcase(vnames(j)) = lcase("i_pr_op_tp") Then vvalues(j) =i_pr_op_tp(i)
If lcase(vnames(j)) = lcase("i_pr_pp") Then vvalues(j) =i_pr_pp(i)
If lcase(vnames(j)) = lcase("i_pr_pp1") Then vvalues(j) =i_pr_pp1(i)
If lcase(vnames(j)) = lcase("i_prob_unemployed") Then vvalues(j) =i_prob_unemployed(i)
If lcase(vnames(j)) = lcase("i_prob_working") Then vvalues(j) =i_prob_working(i)
If lcase(vnames(j)) = lcase("i_pu") Then vvalues(j) =i_pu(i)
If lcase(vnames(j)) = lcase("i_pu_ind_comp") Then vvalues(j) =i_pu_ind_comp(i)
If lcase(vnames(j)) = lcase("i_pu_orange") Then vvalues(j) =i_pu_orange(i)
If lcase(vnames(j)) = lcase("i_sarbavg_pens") Then vvalues(j) =i_sarbavg_pens(i)
If lcase(vnames(j)) = lcase("i_sector") Then vvalues(j) =i_sector(i)
If lcase(vnames(j)) = lcase("i_sector1") Then vvalues(j) =i_sector1(i)
If lcase(vnames(j)) = lcase("i_selected") Then vvalues(j) =i_selected(i)
If lcase(vnames(j)) = lcase("i_sex") Then vvalues(j) =i_sex(i)
If lcase(vnames(j)) = lcase("i_sick_ind") Then vvalues(j) =i_sick_ind(i)
If lcase(vnames(j)) = lcase("i_sick_ind1") Then vvalues(j) =i_sick_ind1(i)
If lcase(vnames(j)) = lcase("i_sick_ind2") Then vvalues(j) =i_sick_ind2(i)
If lcase(vnames(j)) = lcase("i_sick_ind3") Then vvalues(j) =i_sick_ind3(i)
If lcase(vnames(j)) = lcase("i_sick_ind4") Then vvalues(j) =i_sick_ind4(i)
If lcase(vnames(j)) = lcase("i_sick_ind5") Then vvalues(j) =i_sick_ind5(i)
If lcase(vnames(j)) = lcase("i_sick_ind6") Then vvalues(j) =i_sick_ind6(i)
If lcase(vnames(j)) = lcase("i_sickleave") Then vvalues(j) =i_sickleave(i)
If lcase(vnames(j)) = lcase("i_sickleave_ivariance") Then vvalues(j) =i_sickleave_ivariance(i)
If lcase(vnames(j)) = lcase("i_stap_ftp") Then vvalues(j) =i_stap_ftp(i)
If lcase(vnames(j)) = lcase("i_stap_trf") Then vvalues(j) =i_stap_trf(i)
If lcase(vnames(j)) = lcase("i_status") Then vvalues(j) =i_status(i)
If lcase(vnames(j)) = lcase("i_status1") Then vvalues(j) =i_status1(i)
If lcase(vnames(j)) = lcase("i_student") Then vvalues(j) =i_student(i)
If lcase(vnames(j)) = lcase("i_study_debt") Then vvalues(j) =i_study_debt(i)
If lcase(vnames(j)) = lcase("i_studyloan_repaid") Then vvalues(j) =i_studyloan_repaid(i)
If lcase(vnames(j)) = lcase("i_surv") Then vvalues(j) =i_surv(i)
If lcase(vnames(j)) = lcase("i_surv_atp") Then vvalues(j) =i_surv_atp(i)
If lcase(vnames(j)) = lcase("i_surv_fp") Then vvalues(j) =i_surv_fp(i)
If lcase(vnames(j)) = lcase("i_surv_omst") Then vvalues(j) =i_surv_omst(i)
If lcase(vnames(j)) = lcase("i_surv_year") Then vvalues(j) =i_surv_year(i)
If lcase(vnames(j)) = lcase("i_tax_capital") Then vvalues(j) =i_tax_capital(i)
If lcase(vnames(j)) = lcase("i_tax_contribution") Then vvalues(j) =i_tax_contribution(i)
If lcase(vnames(j)) = lcase("i_tax_income") Then vvalues(j) =i_tax_income(i)
If lcase(vnames(j)) = lcase("i_tax_local") Then vvalues(j) =i_tax_local(i)
If lcase(vnames(j)) = lcase("i_tax_national") Then vvalues(j) =i_tax_national(i)
If lcase(vnames(j)) = lcase("i_tax_realestate") Then vvalues(j) =i_tax_realestate(i)
If lcase(vnames(j)) = lcase("i_tax_total") Then vvalues(j) =i_tax_total(i)
If lcase(vnames(j)) = lcase("i_tax_wealth") Then vvalues(j) =i_tax_wealth(i)
If lcase(vnames(j)) = lcase("i_tax_workcredit") Then vvalues(j) =i_tax_workcredit(i)
If lcase(vnames(j)) = lcase("i_taxred_capital") Then vvalues(j) =i_taxred_capital(i)
If lcase(vnames(j)) = lcase("i_trf_btp") Then vvalues(j) =i_trf_btp(i)
If lcase(vnames(j)) = lcase("i_trf_parentleave") Then vvalues(j) =i_trf_parentleave(i)
If lcase(vnames(j)) = lcase("i_trf_pension") Then vvalues(j) =i_trf_pension(i)
If lcase(vnames(j)) = lcase("i_trf_sickleave") Then vvalues(j) =i_trf_sickleave(i)
If lcase(vnames(j)) = lcase("i_trf_skada") Then vvalues(j) =i_trf_skada(i)
If lcase(vnames(j)) = lcase("i_trf_study") Then vvalues(j) =i_trf_study(i)
If lcase(vnames(j)) = lcase("i_trf_study_grant") Then vvalues(j) =i_trf_study_grant(i)
If lcase(vnames(j)) = lcase("i_trf_study_loan") Then vvalues(j) =i_trf_study_loan(i)
If lcase(vnames(j)) = lcase("i_trf_taxable") Then vvalues(j) =i_trf_taxable(i)
If lcase(vnames(j)) = lcase("i_trf_unemployed") Then vvalues(j) =i_trf_unemployed(i)
If lcase(vnames(j)) = lcase("i_unemp_ivariance") Then vvalues(j) =i_unemp_ivariance(i)
If lcase(vnames(j)) = lcase("i_using_temp_pension") Then vvalues(j) =i_using_temp_pension(i)
If lcase(vnames(j)) = lcase("i_vard") Then vvalues(j) =i_vard(i)
If lcase(vnames(j)) = lcase("i_wealth_debt") Then vvalues(j) =i_wealth_debt(i)
If lcase(vnames(j)) = lcase("i_wealth_financial") Then vvalues(j) =i_wealth_financial(i)
If lcase(vnames(j)) = lcase("i_wealth_pension_total") Then vvalues(j) =i_wealth_pension_total(i)
If lcase(vnames(j)) = lcase("i_wealth_pension_year") Then vvalues(j) =i_wealth_pension_year(i)
If lcase(vnames(j)) = lcase("i_wealth_pension_year1") Then vvalues(j) =i_wealth_pension_year1(i)
If lcase(vnames(j)) = lcase("i_widowed") Then vvalues(j) =i_widowed(i)
If lcase(vnames(j)) = lcase("i_work_share") Then vvalues(j) =i_work_share(i)
If lcase(vnames(j)) = lcase("i_work_share1") Then vvalues(j) =i_work_share1(i)
If lcase(vnames(j)) = lcase("i_workexperience") Then vvalues(j) =i_workexperience(i)
If lcase(vnames(j)) = lcase("i_year_sep") Then vvalues(j) =i_year_sep(i)
If lcase(vnames(j)) = lcase("h_abroad") Then vvalues(j) =h_abroad(i)
If lcase(vnames(j)) = lcase("h_BB_region") Then vvalues(j) =h_BB_region(i)
If lcase(vnames(j)) = lcase("h_BB_region1") Then vvalues(j) =h_BB_region1(i)
If lcase(vnames(j)) = lcase("h_bvux_work") Then vvalues(j) =h_bvux_work(i)
If lcase(vnames(j)) = lcase("h_childmoveout") Then vvalues(j) =h_childmoveout(i)
If lcase(vnames(j)) = lcase("h_close_relative") Then vvalues(j) =h_close_relative(i)
If lcase(vnames(j)) = lcase("h_close_relative1") Then vvalues(j) =h_close_relative1(i)
If lcase(vnames(j)) = lcase("h_emig_year") Then vvalues(j) =h_emig_year(i)
If lcase(vnames(j)) = lcase("h_first_indnr") Then vvalues(j) =h_first_indnr(i)
If lcase(vnames(j)) = lcase("h_form_year") Then vvalues(j) =h_form_year(i)
If lcase(vnames(j)) = lcase("h_hhnr") Then vvalues(j) =h_hhnr(i)
If lcase(vnames(j)) = lcase("h_house_area") Then vvalues(j) =h_house_area(i)
If lcase(vnames(j)) = lcase("h_house_cost") Then vvalues(j) =h_house_cost(i)
If lcase(vnames(j)) = lcase("h_house_interest") Then vvalues(j) =h_house_interest(i)
If lcase(vnames(j)) = lcase("h_house_owner") Then vvalues(j) =h_house_owner(i)
If lcase(vnames(j)) = lcase("h_house_owner1") Then vvalues(j) =h_house_owner1(i)
If lcase(vnames(j)) = lcase("h_house_purchase") Then vvalues(j) =h_house_purchase(i)
If lcase(vnames(j)) = lcase("h_house_tax") Then vvalues(j) =h_house_tax(i)
If lcase(vnames(j)) = lcase("h_idx_headofhh") Then vvalues(j) =h_idx_headofhh(i)
If lcase(vnames(j)) = lcase("h_inc_capital") Then vvalues(j) =h_inc_capital(i)
If lcase(vnames(j)) = lcase("h_inc_disposable") Then vvalues(j) =h_inc_disposable(i)
If lcase(vnames(j)) = lcase("h_inc_disposable1") Then vvalues(j) =h_inc_disposable1(i)
If lcase(vnames(j)) = lcase("h_inc_market") Then vvalues(j) =h_inc_market(i)
If lcase(vnames(j)) = lcase("h_inc_work") Then vvalues(j) =h_inc_work(i)
If lcase(vnames(j)) = lcase("h_indnr_female") Then vvalues(j) =h_indnr_female(i)
If lcase(vnames(j)) = lcase("h_indnr_male") Then vvalues(j) =h_indnr_male(i)
If lcase(vnames(j)) = lcase("h_kommunindex") Then vvalues(j) =h_kommunindex(i)
If lcase(vnames(j)) = lcase("h_kommunkod") Then vvalues(j) =h_kommunkod(i)
If lcase(vnames(j)) = lcase("h_maintenance_paid") Then vvalues(j) =h_maintenance_paid(i)
If lcase(vnames(j)) = lcase("h_maintenance_received") Then vvalues(j) =h_maintenance_received(i)
If lcase(vnames(j)) = lcase("h_max_age") Then vvalues(j) =h_max_age(i)
If lcase(vnames(j)) = lcase("h_max_edlevel") Then vvalues(j) =h_max_edlevel(i)
If lcase(vnames(j)) = lcase("h_max_inc_taxable") Then vvalues(j) =h_max_inc_taxable(i)
If lcase(vnames(j)) = lcase("h_n_adults") Then vvalues(j) =h_n_adults(i)
If lcase(vnames(j)) = lcase("h_n_child") Then vvalues(j) =h_n_child(i)
If lcase(vnames(j)) = lcase("h_n_child1") Then vvalues(j) =h_n_child1(i)
If lcase(vnames(j)) = lcase("h_n_childlt12") Then vvalues(j) =h_n_childlt12(i)
If lcase(vnames(j)) = lcase("h_n_childlt7") Then vvalues(j) =h_n_childlt7(i)
If lcase(vnames(j)) = lcase("h_n_ge18") Then vvalues(j) =h_n_ge18(i)
If lcase(vnames(j)) = lcase("h_new_housing") Then vvalues(j) =h_new_housing(i)
If lcase(vnames(j)) = lcase("h_new_housing1") Then vvalues(j) =h_new_housing1(i)
If lcase(vnames(j)) = lcase("h_new_immig") Then vvalues(j) =h_new_immig(i)
If lcase(vnames(j)) = lcase("h_selected") Then vvalues(j) =h_selected(i)
If lcase(vnames(j)) = lcase("h_size") Then vvalues(j) =h_size(i)
If lcase(vnames(j)) = lcase("h_studyloan_repaid") Then vvalues(j) =h_studyloan_repaid(i)
If lcase(vnames(j)) = lcase("h_sum_inc_taxable") Then vvalues(j) =h_sum_inc_taxable(i)
If lcase(vnames(j)) = lcase("h_sum_inc_taxable1") Then vvalues(j) =h_sum_inc_taxable1(i)
If lcase(vnames(j)) = lcase("h_tax_realestate") Then vvalues(j) =h_tax_realestate(i)
If lcase(vnames(j)) = lcase("h_tax_total") Then vvalues(j) =h_tax_total(i)
If lcase(vnames(j)) = lcase("h_trf_btp") Then vvalues(j) =h_trf_btp(i)
If lcase(vnames(j)) = lcase("h_trf_childallowance") Then vvalues(j) =h_trf_childallowance(i)
If lcase(vnames(j)) = lcase("h_trf_housingallowance") Then vvalues(j) =h_trf_housingallowance(i)
If lcase(vnames(j)) = lcase("h_trf_pension") Then vvalues(j) =h_trf_pension(i)
If lcase(vnames(j)) = lcase("h_trf_socialassistance") Then vvalues(j) =h_trf_socialassistance(i)
If lcase(vnames(j)) = lcase("h_trf_study") Then vvalues(j) =h_trf_study(i)
If lcase(vnames(j)) = lcase("h_trf_taxable") Then vvalues(j) =h_trf_taxable(i)
If lcase(vnames(j)) = lcase("h_trf_taxfree") Then vvalues(j) =h_trf_taxfree(i)
If lcase(vnames(j)) = lcase("h_wealth_CapitalGain") Then vvalues(j) =h_wealth_CapitalGain(i)
If lcase(vnames(j)) = lcase("h_wealth_debt") Then vvalues(j) =h_wealth_debt(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_GLS1vc") Then vvalues(j) =h_wealth_debt_GLS1vc(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_GLS2vc") Then vvalues(j) =h_wealth_debt_GLS2vc(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interest") Then vvalues(j) =h_wealth_debt_interest(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interest_varcomp_p") Then vvalues(j) =h_wealth_debt_interest_varcomp_p(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interest_varcomp_r") Then vvalues(j) =h_wealth_debt_interest_varcomp_r(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interest1") Then vvalues(j) =h_wealth_debt_interest1(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interestrate") Then vvalues(j) =h_wealth_debt_interestrate(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_interestrate1") Then vvalues(j) =h_wealth_debt_interestrate1(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_probit1vc") Then vvalues(j) =h_wealth_debt_probit1vc(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_probit2vc") Then vvalues(j) =h_wealth_debt_probit2vc(i)
If lcase(vnames(j)) = lcase("h_wealth_debt_varcomp") Then vvalues(j) =h_wealth_debt_varcomp(i)
If lcase(vnames(j)) = lcase("h_wealth_debt1") Then vvalues(j) =h_wealth_debt1(i)
If lcase(vnames(j)) = lcase("h_wealth_DebtInterest_ind") Then vvalues(j) =h_wealth_DebtInterest_ind(i)
If lcase(vnames(j)) = lcase("h_wealth_DebtInterest_ind1") Then vvalues(j) =h_wealth_DebtInterest_ind1(i)
If lcase(vnames(j)) = lcase("h_wealth_financial") Then vvalues(j) =h_wealth_financial(i)
If lcase(vnames(j)) = lcase("h_wealth_financial_sales") Then vvalues(j) =h_wealth_financial_sales(i)
If lcase(vnames(j)) = lcase("h_wealth_financial_varcomp") Then vvalues(j) =h_wealth_financial_varcomp(i)
If lcase(vnames(j)) = lcase("h_wealth_financial1") Then vvalues(j) =h_wealth_financial1(i)
If lcase(vnames(j)) = lcase("h_wealth_InterestDividends") Then vvalues(j) =h_wealth_InterestDividends(i)
If lcase(vnames(j)) = lcase("h_wealth_real") Then vvalues(j) =h_wealth_real(i)
If lcase(vnames(j)) = lcase("h_wealth_real_home") Then vvalues(j) =h_wealth_real_home(i)
If lcase(vnames(j)) = lcase("h_wealth_real_home1") Then vvalues(j) =h_wealth_real_home1(i)
If lcase(vnames(j)) = lcase("h_wealth_real_other") Then vvalues(j) =h_wealth_real_other(i)
If lcase(vnames(j)) = lcase("h_wealth_real_other1") Then vvalues(j) =h_wealth_real_other1(i)
Next
End Sub
'**************************
Public Sub prepare_temp(vname)
Select case lcase(vname)
Case lcase("i_aap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_aap(i)
Next
Case lcase("i_abroad")
For i=1 to m_icount
temp(i)=0
temp(i)=i_abroad(i)
Next
Case lcase("i_ADL")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ADL(i)
Next
Case lcase("i_ADL_rnd")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ADL_rnd(i)
Next
Case lcase("i_age")
For i=1 to m_icount
temp(i)=0
temp(i)=i_age(i)
Next
Case lcase("i_ap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap(i)
Next
Case lcase("i_ap_ap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_ap(i)
Next
Case lcase("i_ap_atp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_atp(i)
Next
Case lcase("i_ap_atp_1994")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_atp_1994(i)
Next
Case lcase("i_ap_atp_old")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_atp_old(i)
Next
Case lcase("i_ap_atp_ut")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_atp_ut(i)
Next
Case lcase("i_ap_fiktiv")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_fiktiv(i)
Next
Case lcase("i_ap_fp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_fp(i)
Next
Case lcase("i_ap_fp30")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_fp30(i)
Next
Case lcase("i_ap_fp30_1994")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_fp30_1994(i)
Next
Case lcase("i_ap_fp30_ut")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_fp30_ut(i)
Next
Case lcase("i_ap_gartill")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_gartill(i)
Next
Case lcase("i_ap_gp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_gp(i)
Next
Case lcase("i_ap_ip")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_ip(i)
Next
Case lcase("i_ap_ip_ut")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_ip_ut(i)
Next
Case lcase("i_ap_ip1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_ip1(i)
Next
Case lcase("i_ap_pensmonth")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_pensmonth(i)
Next
Case lcase("i_ap_pp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_pp(i)
Next
Case lcase("i_ap_pp_ut")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_pp_ut(i)
Next
Case lcase("i_ap_pts")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_pts(i)
Next
Case lcase("i_ap_tp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_tp(i)
Next
Case lcase("i_ap_tp_ut")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ap_tp_ut(i)
Next
Case lcase("i_arbavg")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg(i)
Next
Case lcase("i_arbavg_akas")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_akas(i)
Next
Case lcase("i_arbavg_alon")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_alon(i)
Next
Case lcase("i_arbavg_arsk")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_arsk(i)
Next
Case lcase("i_arbavg_eft")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_eft(i)
Next
Case lcase("i_arbavg_forp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_forp(i)
Next
Case lcase("i_arbavg_pens")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_pens(i)
Next
Case lcase("i_arbavg_sjuk")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_sjuk(i)
Next
Case lcase("i_arbavg_slon")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_slon(i)
Next
Case lcase("i_arbavg_slon38")
For i=1 to m_icount
temp(i)=0
temp(i)=i_arbavg_slon38(i)
Next
Case lcase("i_assistance_elderly")
For i=1 to m_icount
temp(i)=0
temp(i)=i_assistance_elderly(i)
Next
Case lcase("i_ATP_ar_1994")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ATP_ar_1994(i)
Next
Case lcase("i_avg")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg(i)
Next
Case lcase("i_avg_aap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_aap(i)
Next
Case lcase("i_avg_ftp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_ftp(i)
Next
Case lcase("i_avg_inc_at_retirement")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_inc_at_retirement(i)
Next
Case lcase("i_avg_income_1997")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_income_1997(i)
Next
Case lcase("i_avg_ip")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_ip(i)
Next
Case lcase("i_avg_ip2")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_ip2(i)
Next
Case lcase("i_avg_pgb")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_pgb(i)
Next
Case lcase("i_avg_stap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_stap(i)
Next
Case lcase("i_avg_trf")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg_trf(i)
Next
Case lcase("i_avg2")
For i=1 to m_icount
temp(i)=0
temp(i)=i_avg2(i)
Next
Case lcase("i_BB_region")
For i=1 to m_icount
temp(i)=0
temp(i)=i_BB_region(i)
Next
Case lcase("i_bidnr")
For i=1 to m_icount
temp(i)=0
temp(i)=i_bidnr(i)
Next
Case lcase("i_binvar")
For i=1 to m_icount
temp(i)=0
temp(i)=i_binvar(i)
Next
Case lcase("i_born_abroad")
For i=1 to m_icount
temp(i)=0
temp(i)=i_born_abroad(i)
Next
Case lcase("i_born_year")
For i=1 to m_icount
temp(i)=0
temp(i)=i_born_year(i)
Next
Case lcase("i_botid")
For i=1 to m_icount
temp(i)=0
temp(i)=i_botid(i)
Next
Case lcase("i_bvux")
For i=1 to m_icount
temp(i)=0
temp(i)=i_bvux(i)
Next
Case lcase("i_bvux1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_bvux1(i)
Next
Case lcase("i_civ_stat")
For i=1 to m_icount
temp(i)=0
temp(i)=i_civ_stat(i)
Next
Case lcase("i_civ_stat1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_civ_stat1(i)
Next
Case lcase("i_edlevel")
For i=1 to m_icount
temp(i)=0
temp(i)=i_edlevel(i)
Next
Case lcase("i_edyears")
For i=1 to m_icount
temp(i)=0
temp(i)=i_edyears(i)
Next
Case lcase("i_emig_year")
For i=1 to m_icount
temp(i)=0
temp(i)=i_emig_year(i)
Next
Case lcase("i_ftp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp(i)
Next
Case lcase("i_ftp_64")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_64(i)
Next
Case lcase("i_ftp_antag")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_antag(i)
Next
Case lcase("i_ftp_atp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_atp(i)
Next
Case lcase("i_ftp_fp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_fp(i)
Next
Case lcase("i_ftp_gar")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_gar(i)
Next
Case lcase("i_ftp_ink")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_ink(i)
Next
Case lcase("i_ftp_just")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_just(i)
Next
Case lcase("i_ftp_pts")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_pts(i)
Next
Case lcase("i_ftp_typ")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_typ(i)
Next
Case lcase("i_ftp_year")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ftp_year(i)
Next
Case lcase("i_HasBeenWidowed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_HasBeenWidowed(i)
Next
Case lcase("i_health")
For i=1 to m_icount
temp(i)=0
temp(i)=i_health(i)
Next
Case lcase("i_health_latent")
For i=1 to m_icount
temp(i)=0
temp(i)=i_health_latent(i)
Next
Case lcase("i_health_latent1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_health_latent1(i)
Next
Case lcase("i_health1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_health1(i)
Next
Case lcase("i_hhnr")
For i=1 to m_icount
temp(i)=0
temp(i)=i_hhnr(i)
Next
Case lcase("i_hhstatus")
For i=1 to m_icount
temp(i)=0
temp(i)=i_hhstatus(i)
Next
Case lcase("i_housetax_postponed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_housetax_postponed(i)
Next
Case lcase("i_hsdropout")
For i=1 to m_icount
temp(i)=0
temp(i)=i_hsdropout(i)
Next
Case lcase("i_inc_capital")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_capital(i)
Next
Case lcase("i_inc_earning")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_earning(i)
Next
Case lcase("i_inc_itvariance")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_itvariance(i)
Next
Case lcase("i_inc_ivariance")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_ivariance(i)
Next
Case lcase("i_inc_market")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_market(i)
Next
Case lcase("i_inc_selfemployed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_selfemployed(i)
Next
Case lcase("i_inc_taxable")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable(i)
Next
Case lcase("i_inc_taxable1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable1(i)
Next
Case lcase("i_inc_taxable2")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable2(i)
Next
Case lcase("i_inc_taxable3")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable3(i)
Next
Case lcase("i_inc_taxable4")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable4(i)
Next
Case lcase("i_inc_taxable5")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxable5(i)
Next
Case lcase("i_inc_taxed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_taxed(i)
Next
Case lcase("i_inc_work")
For i=1 to m_icount
temp(i)=0
temp(i)=i_inc_work(i)
Next
Case lcase("i_income")
For i=1 to m_icount
temp(i)=0
temp(i)=i_income(i)
Next
Case lcase("i_indnr")
For i=1 to m_icount
temp(i)=0
temp(i)=i_indnr(i)
Next
Case lcase("i_InpatientCare")
For i=1 to m_icount
temp(i)=0
temp(i)=i_InpatientCare(i)
Next
Case lcase("i_last_hh_dur")
For i=1 to m_icount
temp(i)=0
temp(i)=i_last_hh_dur(i)
Next
Case lcase("i_maintenance_paid")
For i=1 to m_icount
temp(i)=0
temp(i)=i_maintenance_paid(i)
Next
Case lcase("i_mATP_1994")
For i=1 to m_icount
temp(i)=0
temp(i)=i_mATP_1994(i)
Next
Case lcase("i_new_em")
For i=1 to m_icount
temp(i)=0
temp(i)=i_new_em(i)
Next
Case lcase("i_new_fp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_new_fp(i)
Next
Case lcase("i_new_immig")
For i=1 to m_icount
temp(i)=0
temp(i)=i_new_immig(i)
Next
Case lcase("i_next_indnr")
For i=1 to m_icount
temp(i)=0
temp(i)=i_next_indnr(i)
Next
Case lcase("i_nr_prev_hh")
For i=1 to m_icount
temp(i)=0
temp(i)=i_nr_prev_hh(i)
Next
Case lcase("i_op")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op(i)
Next
Case lcase("i_op_an_db_after_65")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_an_db_after_65(i)
Next
Case lcase("i_op_an_db_before_65")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_an_db_before_65(i)
Next
Case lcase("i_op_an_dc_after_65")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_an_dc_after_65(i)
Next
Case lcase("i_op_an_dc_before_65")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_an_dc_before_65(i)
Next
Case lcase("i_op_ap_db")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_ap_db(i)
Next
Case lcase("i_op_ap_dc")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_ap_dc(i)
Next
Case lcase("i_op_ap_tp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_ap_tp(i)
Next
Case lcase("i_op_capital_value")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_capital_value(i)
Next
Case lcase("i_op_erp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_erp(i)
Next
Case lcase("i_op_pp_years")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years(i)
Next
Case lcase("i_op_pp_years_Blue")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years_Blue(i)
Next
Case lcase("i_op_pp_years_Local")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years_Local(i)
Next
Case lcase("i_op_pp_years_State")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years_State(i)
Next
Case lcase("i_op_pp_years_trans")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years_trans(i)
Next
Case lcase("i_op_pp_years_White")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_pp_years_White(i)
Next
Case lcase("i_op_retirement_individual_effect")
For i=1 to m_icount
temp(i)=0
temp(i)=i_op_retirement_individual_effect(i)
Next
Case lcase("i_p_andel")
For i=1 to m_icount
temp(i)=0
temp(i)=i_p_andel(i)
Next
Case lcase("i_p_antman")
For i=1 to m_icount
temp(i)=0
temp(i)=i_p_antman(i)
Next
Case lcase("i_pb_fiktiv")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_fiktiv(i)
Next
Case lcase("i_pb_ip")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_ip(i)
Next
Case lcase("i_pb_ip1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_ip1(i)
Next
Case lcase("i_pb_op_ap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_op_ap(i)
Next
Case lcase("i_pb_op_tp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_op_tp(i)
Next
Case lcase("i_pb_pp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pb_pp(i)
Next
Case lcase("i_pbhi")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pbhi(i)
Next
Case lcase("i_pc_care")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_care(i)
Next
Case lcase("i_pc_childcare")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_childcare(i)
Next
Case lcase("i_pc_elderly")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_elderly(i)
Next
Case lcase("i_pc_high_school")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_high_school(i)
Next
Case lcase("i_pc_labor")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_labor(i)
Next
Case lcase("i_pc_MAE")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_MAE(i)
Next
Case lcase("i_pc_medicine")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_medicine(i)
Next
Case lcase("i_pc_school")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_school(i)
Next
Case lcase("i_pc_school_adult")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_school_adult(i)
Next
Case lcase("i_pc_total")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_total(i)
Next
Case lcase("i_pc_univ")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pc_univ(i)
Next
Case lcase("i_pgb")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb(i)
Next
Case lcase("i_pgb_antag")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb_antag(i)
Next
Case lcase("i_pgb_barn")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb_barn(i)
Next
Case lcase("i_pgb_barn_typ")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb_barn_typ(i)
Next
Case lcase("i_pgb_plikt")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb_plikt(i)
Next
Case lcase("i_pgb_stud")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgb_stud(i)
Next
Case lcase("i_pgi")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgi(i)
Next
Case lcase("i_pgi_bas")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgi_bas(i)
Next
Case lcase("i_pgi_orange")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgi_orange(i)
Next
Case lcase("i_pgi185")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pgi185(i)
Next
Case lcase("i_pp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pp(i)
Next
Case lcase("i_pp_payout_time")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pp_payout_time(i)
Next
Case lcase("i_ppmkap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_ppmkap(i)
Next
Case lcase("i_pr_ip")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_ip(i)
Next
Case lcase("i_pr_ip1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_ip1(i)
Next
Case lcase("i_pr_op_ap")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_op_ap(i)
Next
Case lcase("i_pr_op_tp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_op_tp(i)
Next
Case lcase("i_pr_pp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_pp(i)
Next
Case lcase("i_pr_pp1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pr_pp1(i)
Next
Case lcase("i_prob_unemployed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_prob_unemployed(i)
Next
Case lcase("i_prob_working")
For i=1 to m_icount
temp(i)=0
temp(i)=i_prob_working(i)
Next
Case lcase("i_pu")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pu(i)
Next
Case lcase("i_pu_ind_comp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pu_ind_comp(i)
Next
Case lcase("i_pu_orange")
For i=1 to m_icount
temp(i)=0
temp(i)=i_pu_orange(i)
Next
Case lcase("i_sarbavg_pens")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sarbavg_pens(i)
Next
Case lcase("i_sector")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sector(i)
Next
Case lcase("i_sector1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sector1(i)
Next
Case lcase("i_selected")
For i=1 to m_icount
temp(i)=0
temp(i)=i_selected(i)
Next
Case lcase("i_sex")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sex(i)
Next
Case lcase("i_sick_ind")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind(i)
Next
Case lcase("i_sick_ind1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind1(i)
Next
Case lcase("i_sick_ind2")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind2(i)
Next
Case lcase("i_sick_ind3")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind3(i)
Next
Case lcase("i_sick_ind4")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind4(i)
Next
Case lcase("i_sick_ind5")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind5(i)
Next
Case lcase("i_sick_ind6")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sick_ind6(i)
Next
Case lcase("i_sickleave")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sickleave(i)
Next
Case lcase("i_sickleave_ivariance")
For i=1 to m_icount
temp(i)=0
temp(i)=i_sickleave_ivariance(i)
Next
Case lcase("i_stap_ftp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_stap_ftp(i)
Next
Case lcase("i_stap_trf")
For i=1 to m_icount
temp(i)=0
temp(i)=i_stap_trf(i)
Next
Case lcase("i_status")
For i=1 to m_icount
temp(i)=0
temp(i)=i_status(i)
Next
Case lcase("i_status1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_status1(i)
Next
Case lcase("i_student")
For i=1 to m_icount
temp(i)=0
temp(i)=i_student(i)
Next
Case lcase("i_study_debt")
For i=1 to m_icount
temp(i)=0
temp(i)=i_study_debt(i)
Next
Case lcase("i_studyloan_repaid")
For i=1 to m_icount
temp(i)=0
temp(i)=i_studyloan_repaid(i)
Next
Case lcase("i_surv")
For i=1 to m_icount
temp(i)=0
temp(i)=i_surv(i)
Next
Case lcase("i_surv_atp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_surv_atp(i)
Next
Case lcase("i_surv_fp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_surv_fp(i)
Next
Case lcase("i_surv_omst")
For i=1 to m_icount
temp(i)=0
temp(i)=i_surv_omst(i)
Next
Case lcase("i_surv_year")
For i=1 to m_icount
temp(i)=0
temp(i)=i_surv_year(i)
Next
Case lcase("i_tax_capital")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_capital(i)
Next
Case lcase("i_tax_contribution")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_contribution(i)
Next
Case lcase("i_tax_income")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_income(i)
Next
Case lcase("i_tax_local")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_local(i)
Next
Case lcase("i_tax_national")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_national(i)
Next
Case lcase("i_tax_realestate")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_realestate(i)
Next
Case lcase("i_tax_total")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_total(i)
Next
Case lcase("i_tax_wealth")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_wealth(i)
Next
Case lcase("i_tax_workcredit")
For i=1 to m_icount
temp(i)=0
temp(i)=i_tax_workcredit(i)
Next
Case lcase("i_taxred_capital")
For i=1 to m_icount
temp(i)=0
temp(i)=i_taxred_capital(i)
Next
Case lcase("i_trf_btp")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_btp(i)
Next
Case lcase("i_trf_parentleave")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_parentleave(i)
Next
Case lcase("i_trf_pension")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_pension(i)
Next
Case lcase("i_trf_sickleave")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_sickleave(i)
Next
Case lcase("i_trf_skada")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_skada(i)
Next
Case lcase("i_trf_study")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_study(i)
Next
Case lcase("i_trf_study_grant")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_study_grant(i)
Next
Case lcase("i_trf_study_loan")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_study_loan(i)
Next
Case lcase("i_trf_taxable")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_taxable(i)
Next
Case lcase("i_trf_unemployed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_trf_unemployed(i)
Next
Case lcase("i_unemp_ivariance")
For i=1 to m_icount
temp(i)=0
temp(i)=i_unemp_ivariance(i)
Next
Case lcase("i_using_temp_pension")
For i=1 to m_icount
temp(i)=0
temp(i)=i_using_temp_pension(i)
Next
Case lcase("i_vard")
For i=1 to m_icount
temp(i)=0
temp(i)=i_vard(i)
Next
Case lcase("i_wealth_debt")
For i=1 to m_icount
temp(i)=0
temp(i)=i_wealth_debt(i)
Next
Case lcase("i_wealth_financial")
For i=1 to m_icount
temp(i)=0
temp(i)=i_wealth_financial(i)
Next
Case lcase("i_wealth_pension_total")
For i=1 to m_icount
temp(i)=0
temp(i)=i_wealth_pension_total(i)
Next
Case lcase("i_wealth_pension_year")
For i=1 to m_icount
temp(i)=0
temp(i)=i_wealth_pension_year(i)
Next
Case lcase("i_wealth_pension_year1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_wealth_pension_year1(i)
Next
Case lcase("i_widowed")
For i=1 to m_icount
temp(i)=0
temp(i)=i_widowed(i)
Next
Case lcase("i_work_share")
For i=1 to m_icount
temp(i)=0
temp(i)=i_work_share(i)
Next
Case lcase("i_work_share1")
For i=1 to m_icount
temp(i)=0
temp(i)=i_work_share1(i)
Next
Case lcase("i_workexperience")
For i=1 to m_icount
temp(i)=0
temp(i)=i_workexperience(i)
Next
Case lcase("i_year_sep")
For i=1 to m_icount
temp(i)=0
temp(i)=i_year_sep(i)
Next
Case lcase("h_abroad")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_abroad(i)
Next
Case lcase("h_BB_region")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_BB_region(i)
Next
Case lcase("h_BB_region1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_BB_region1(i)
Next
Case lcase("h_bvux_work")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_bvux_work(i)
Next
Case lcase("h_childmoveout")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_childmoveout(i)
Next
Case lcase("h_close_relative")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_close_relative(i)
Next
Case lcase("h_close_relative1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_close_relative1(i)
Next
Case lcase("h_emig_year")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_emig_year(i)
Next
Case lcase("h_first_indnr")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_first_indnr(i)
Next
Case lcase("h_form_year")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_form_year(i)
Next
Case lcase("h_hhnr")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_hhnr(i)
Next
Case lcase("h_house_area")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_area(i)
Next
Case lcase("h_house_cost")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_cost(i)
Next
Case lcase("h_house_interest")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_interest(i)
Next
Case lcase("h_house_owner")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_owner(i)
Next
Case lcase("h_house_owner1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_owner1(i)
Next
Case lcase("h_house_purchase")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_purchase(i)
Next
Case lcase("h_house_tax")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_house_tax(i)
Next
Case lcase("h_idx_headofhh")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_idx_headofhh(i)
Next
Case lcase("h_inc_capital")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_inc_capital(i)
Next
Case lcase("h_inc_disposable")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_inc_disposable(i)
Next
Case lcase("h_inc_disposable1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_inc_disposable1(i)
Next
Case lcase("h_inc_market")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_inc_market(i)
Next
Case lcase("h_inc_work")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_inc_work(i)
Next
Case lcase("h_indnr_female")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_indnr_female(i)
Next
Case lcase("h_indnr_male")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_indnr_male(i)
Next
Case lcase("h_kommunindex")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_kommunindex(i)
Next
Case lcase("h_kommunkod")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_kommunkod(i)
Next
Case lcase("h_maintenance_paid")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_maintenance_paid(i)
Next
Case lcase("h_maintenance_received")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_maintenance_received(i)
Next
Case lcase("h_max_age")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_max_age(i)
Next
Case lcase("h_max_edlevel")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_max_edlevel(i)
Next
Case lcase("h_max_inc_taxable")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_max_inc_taxable(i)
Next
Case lcase("h_n_adults")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_adults(i)
Next
Case lcase("h_n_child")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_child(i)
Next
Case lcase("h_n_child1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_child1(i)
Next
Case lcase("h_n_childlt12")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_childlt12(i)
Next
Case lcase("h_n_childlt7")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_childlt7(i)
Next
Case lcase("h_n_ge18")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_n_ge18(i)
Next
Case lcase("h_new_housing")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_new_housing(i)
Next
Case lcase("h_new_housing1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_new_housing1(i)
Next
Case lcase("h_new_immig")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_new_immig(i)
Next
Case lcase("h_selected")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_selected(i)
Next
Case lcase("h_size")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_size(i)
Next
Case lcase("h_studyloan_repaid")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_studyloan_repaid(i)
Next
Case lcase("h_sum_inc_taxable")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_sum_inc_taxable(i)
Next
Case lcase("h_sum_inc_taxable1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_sum_inc_taxable1(i)
Next
Case lcase("h_tax_realestate")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_tax_realestate(i)
Next
Case lcase("h_tax_total")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_tax_total(i)
Next
Case lcase("h_trf_btp")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_btp(i)
Next
Case lcase("h_trf_childallowance")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_childallowance(i)
Next
Case lcase("h_trf_housingallowance")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_housingallowance(i)
Next
Case lcase("h_trf_pension")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_pension(i)
Next
Case lcase("h_trf_socialassistance")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_socialassistance(i)
Next
Case lcase("h_trf_study")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_study(i)
Next
Case lcase("h_trf_taxable")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_taxable(i)
Next
Case lcase("h_trf_taxfree")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_trf_taxfree(i)
Next
Case lcase("h_wealth_CapitalGain")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_CapitalGain(i)
Next
Case lcase("h_wealth_debt")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt(i)
Next
Case lcase("h_wealth_debt_GLS1vc")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_GLS1vc(i)
Next
Case lcase("h_wealth_debt_GLS2vc")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_GLS2vc(i)
Next
Case lcase("h_wealth_debt_interest")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interest(i)
Next
Case lcase("h_wealth_debt_interest_varcomp_p")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interest_varcomp_p(i)
Next
Case lcase("h_wealth_debt_interest_varcomp_r")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interest_varcomp_r(i)
Next
Case lcase("h_wealth_debt_interest1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interest1(i)
Next
Case lcase("h_wealth_debt_interestrate")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interestrate(i)
Next
Case lcase("h_wealth_debt_interestrate1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_interestrate1(i)
Next
Case lcase("h_wealth_debt_probit1vc")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_probit1vc(i)
Next
Case lcase("h_wealth_debt_probit2vc")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_probit2vc(i)
Next
Case lcase("h_wealth_debt_varcomp")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt_varcomp(i)
Next
Case lcase("h_wealth_debt1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_debt1(i)
Next
Case lcase("h_wealth_DebtInterest_ind")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_DebtInterest_ind(i)
Next
Case lcase("h_wealth_DebtInterest_ind1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_DebtInterest_ind1(i)
Next
Case lcase("h_wealth_financial")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_financial(i)
Next
Case lcase("h_wealth_financial_sales")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_financial_sales(i)
Next
Case lcase("h_wealth_financial_varcomp")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_financial_varcomp(i)
Next
Case lcase("h_wealth_financial1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_financial1(i)
Next
Case lcase("h_wealth_InterestDividends")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_InterestDividends(i)
Next
Case lcase("h_wealth_real")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_real(i)
Next
Case lcase("h_wealth_real_home")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_real_home(i)
Next
Case lcase("h_wealth_real_home1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_real_home1(i)
Next
Case lcase("h_wealth_real_other")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_real_other(i)
Next
Case lcase("h_wealth_real_other1")
For i=1 to m_hcount
temp(i)=0
temp(i)=h_wealth_real_other1(i)
Next
End Select
End Sub
'**************************
Public Function get_value(vname, index)
get_value=0
Select case lcase(vname)
Case lcase("i_aap")
get_value=i_aap(index)
Exit Function
Case lcase("i_abroad")
get_value=i_abroad(index)
Exit Function
Case lcase("i_ADL")
get_value=i_ADL(index)
Exit Function
Case lcase("i_ADL_rnd")
get_value=i_ADL_rnd(index)
Exit Function
Case lcase("i_age")
get_value=i_age(index)
Exit Function
Case lcase("i_ap")
get_value=i_ap(index)
Exit Function
Case lcase("i_ap_ap")
get_value=i_ap_ap(index)
Exit Function
Case lcase("i_ap_atp")
get_value=i_ap_atp(index)
Exit Function
Case lcase("i_ap_atp_1994")
get_value=i_ap_atp_1994(index)
Exit Function
Case lcase("i_ap_atp_old")
get_value=i_ap_atp_old(index)
Exit Function
Case lcase("i_ap_atp_ut")
get_value=i_ap_atp_ut(index)
Exit Function
Case lcase("i_ap_fiktiv")
get_value=i_ap_fiktiv(index)
Exit Function
Case lcase("i_ap_fp")
get_value=i_ap_fp(index)
Exit Function
Case lcase("i_ap_fp30")
get_value=i_ap_fp30(index)
Exit Function
Case lcase("i_ap_fp30_1994")
get_value=i_ap_fp30_1994(index)
Exit Function
Case lcase("i_ap_fp30_ut")
get_value=i_ap_fp30_ut(index)
Exit Function
Case lcase("i_ap_gartill")
get_value=i_ap_gartill(index)
Exit Function
Case lcase("i_ap_gp")
get_value=i_ap_gp(index)
Exit Function
Case lcase("i_ap_ip")
get_value=i_ap_ip(index)
Exit Function
Case lcase("i_ap_ip_ut")
get_value=i_ap_ip_ut(index)
Exit Function
Case lcase("i_ap_ip1")
get_value=i_ap_ip1(index)
Exit Function
Case lcase("i_ap_pensmonth")
get_value=i_ap_pensmonth(index)
Exit Function
Case lcase("i_ap_pp")
get_value=i_ap_pp(index)
Exit Function
Case lcase("i_ap_pp_ut")
get_value=i_ap_pp_ut(index)
Exit Function
Case lcase("i_ap_pts")
get_value=i_ap_pts(index)
Exit Function
Case lcase("i_ap_tp")
get_value=i_ap_tp(index)
Exit Function
Case lcase("i_ap_tp_ut")
get_value=i_ap_tp_ut(index)
Exit Function
Case lcase("i_arbavg")
get_value=i_arbavg(index)
Exit Function
Case lcase("i_arbavg_akas")
get_value=i_arbavg_akas(index)
Exit Function
Case lcase("i_arbavg_alon")
get_value=i_arbavg_alon(index)
Exit Function
Case lcase("i_arbavg_arsk")
get_value=i_arbavg_arsk(index)
Exit Function
Case lcase("i_arbavg_eft")
get_value=i_arbavg_eft(index)
Exit Function
Case lcase("i_arbavg_forp")
get_value=i_arbavg_forp(index)
Exit Function
Case lcase("i_arbavg_pens")
get_value=i_arbavg_pens(index)
Exit Function
Case lcase("i_arbavg_sjuk")
get_value=i_arbavg_sjuk(index)
Exit Function
Case lcase("i_arbavg_slon")
get_value=i_arbavg_slon(index)
Exit Function
Case lcase("i_arbavg_slon38")
get_value=i_arbavg_slon38(index)
Exit Function
Case lcase("i_assistance_elderly")
get_value=i_assistance_elderly(index)
Exit Function
Case lcase("i_ATP_ar_1994")
get_value=i_ATP_ar_1994(index)
Exit Function
Case lcase("i_avg")
get_value=i_avg(index)
Exit Function
Case lcase("i_avg_aap")
get_value=i_avg_aap(index)
Exit Function
Case lcase("i_avg_ftp")
get_value=i_avg_ftp(index)
Exit Function
Case lcase("i_avg_inc_at_retirement")
get_value=i_avg_inc_at_retirement(index)
Exit Function
Case lcase("i_avg_income_1997")
get_value=i_avg_income_1997(index)
Exit Function
Case lcase("i_avg_ip")
get_value=i_avg_ip(index)
Exit Function
Case lcase("i_avg_ip2")
get_value=i_avg_ip2(index)
Exit Function
Case lcase("i_avg_pgb")
get_value=i_avg_pgb(index)
Exit Function
Case lcase("i_avg_stap")
get_value=i_avg_stap(index)
Exit Function
Case lcase("i_avg_trf")
get_value=i_avg_trf(index)
Exit Function
Case lcase("i_avg2")
get_value=i_avg2(index)
Exit Function
Case lcase("i_BB_region")
get_value=i_BB_region(index)
Exit Function
Case lcase("i_bidnr")
get_value=i_bidnr(index)
Exit Function
Case lcase("i_binvar")
get_value=i_binvar(index)
Exit Function
Case lcase("i_born_abroad")
get_value=i_born_abroad(index)
Exit Function
Case lcase("i_born_year")
get_value=i_born_year(index)
Exit Function
Case lcase("i_botid")
get_value=i_botid(index)
Exit Function
Case lcase("i_bvux")
get_value=i_bvux(index)
Exit Function
Case lcase("i_bvux1")
get_value=i_bvux1(index)
Exit Function
Case lcase("i_civ_stat")
get_value=i_civ_stat(index)
Exit Function
Case lcase("i_civ_stat1")
get_value=i_civ_stat1(index)
Exit Function
Case lcase("i_edlevel")
get_value=i_edlevel(index)
Exit Function
Case lcase("i_edyears")
get_value=i_edyears(index)
Exit Function
Case lcase("i_emig_year")
get_value=i_emig_year(index)
Exit Function
Case lcase("i_ftp")
get_value=i_ftp(index)
Exit Function
Case lcase("i_ftp_64")
get_value=i_ftp_64(index)
Exit Function
Case lcase("i_ftp_antag")
get_value=i_ftp_antag(index)
Exit Function
Case lcase("i_ftp_atp")
get_value=i_ftp_atp(index)
Exit Function
Case lcase("i_ftp_fp")
get_value=i_ftp_fp(index)
Exit Function
Case lcase("i_ftp_gar")
get_value=i_ftp_gar(index)
Exit Function
Case lcase("i_ftp_ink")
get_value=i_ftp_ink(index)
Exit Function
Case lcase("i_ftp_just")
get_value=i_ftp_just(index)
Exit Function
Case lcase("i_ftp_pts")
get_value=i_ftp_pts(index)
Exit Function
Case lcase("i_ftp_typ")
get_value=i_ftp_typ(index)
Exit Function
Case lcase("i_ftp_year")
get_value=i_ftp_year(index)
Exit Function
Case lcase("i_HasBeenWidowed")
get_value=i_HasBeenWidowed(index)
Exit Function
Case lcase("i_health")
get_value=i_health(index)
Exit Function
Case lcase("i_health_latent")
get_value=i_health_latent(index)
Exit Function
Case lcase("i_health_latent1")
get_value=i_health_latent1(index)
Exit Function
Case lcase("i_health1")
get_value=i_health1(index)
Exit Function
Case lcase("i_hhnr")
get_value=i_hhnr(index)
Exit Function
Case lcase("i_hhstatus")
get_value=i_hhstatus(index)
Exit Function
Case lcase("i_housetax_postponed")
get_value=i_housetax_postponed(index)
Exit Function
Case lcase("i_hsdropout")
get_value=i_hsdropout(index)
Exit Function
Case lcase("i_inc_capital")
get_value=i_inc_capital(index)
Exit Function
Case lcase("i_inc_earning")
get_value=i_inc_earning(index)
Exit Function
Case lcase("i_inc_itvariance")
get_value=i_inc_itvariance(index)
Exit Function
Case lcase("i_inc_ivariance")
get_value=i_inc_ivariance(index)
Exit Function
Case lcase("i_inc_market")
get_value=i_inc_market(index)
Exit Function
Case lcase("i_inc_selfemployed")
get_value=i_inc_selfemployed(index)
Exit Function
Case lcase("i_inc_taxable")
get_value=i_inc_taxable(index)
Exit Function
Case lcase("i_inc_taxable1")
get_value=i_inc_taxable1(index)
Exit Function
Case lcase("i_inc_taxable2")
get_value=i_inc_taxable2(index)
Exit Function
Case lcase("i_inc_taxable3")
get_value=i_inc_taxable3(index)
Exit Function
Case lcase("i_inc_taxable4")
get_value=i_inc_taxable4(index)
Exit Function
Case lcase("i_inc_taxable5")
get_value=i_inc_taxable5(index)
Exit Function
Case lcase("i_inc_taxed")
get_value=i_inc_taxed(index)
Exit Function
Case lcase("i_inc_work")
get_value=i_inc_work(index)
Exit Function
Case lcase("i_income")
get_value=i_income(index)
Exit Function
Case lcase("i_indnr")
get_value=i_indnr(index)
Exit Function
Case lcase("i_InpatientCare")
get_value=i_InpatientCare(index)
Exit Function
Case lcase("i_last_hh_dur")
get_value=i_last_hh_dur(index)
Exit Function
Case lcase("i_maintenance_paid")
get_value=i_maintenance_paid(index)
Exit Function
Case lcase("i_mATP_1994")
get_value=i_mATP_1994(index)
Exit Function
Case lcase("i_new_em")
get_value=i_new_em(index)
Exit Function
Case lcase("i_new_fp")
get_value=i_new_fp(index)
Exit Function
Case lcase("i_new_immig")
get_value=i_new_immig(index)
Exit Function
Case lcase("i_next_indnr")
get_value=i_next_indnr(index)
Exit Function
Case lcase("i_nr_prev_hh")
get_value=i_nr_prev_hh(index)
Exit Function
Case lcase("i_op")
get_value=i_op(index)
Exit Function
Case lcase("i_op_an_db_after_65")
get_value=i_op_an_db_after_65(index)
Exit Function
Case lcase("i_op_an_db_before_65")
get_value=i_op_an_db_before_65(index)
Exit Function
Case lcase("i_op_an_dc_after_65")
get_value=i_op_an_dc_after_65(index)
Exit Function
Case lcase("i_op_an_dc_before_65")
get_value=i_op_an_dc_before_65(index)
Exit Function
Case lcase("i_op_ap_db")
get_value=i_op_ap_db(index)
Exit Function
Case lcase("i_op_ap_dc")
get_value=i_op_ap_dc(index)
Exit Function
Case lcase("i_op_ap_tp")
get_value=i_op_ap_tp(index)
Exit Function
Case lcase("i_op_capital_value")
get_value=i_op_capital_value(index)
Exit Function
Case lcase("i_op_erp")
get_value=i_op_erp(index)
Exit Function
Case lcase("i_op_pp_years")
get_value=i_op_pp_years(index)
Exit Function
Case lcase("i_op_pp_years_Blue")
get_value=i_op_pp_years_Blue(index)
Exit Function
Case lcase("i_op_pp_years_Local")
get_value=i_op_pp_years_Local(index)
Exit Function
Case lcase("i_op_pp_years_State")
get_value=i_op_pp_years_State(index)
Exit Function
Case lcase("i_op_pp_years_trans")
get_value=i_op_pp_years_trans(index)
Exit Function
Case lcase("i_op_pp_years_White")
get_value=i_op_pp_years_White(index)
Exit Function
Case lcase("i_op_retirement_individual_effect")
get_value=i_op_retirement_individual_effect(index)
Exit Function
Case lcase("i_p_andel")
get_value=i_p_andel(index)
Exit Function
Case lcase("i_p_antman")
get_value=i_p_antman(index)
Exit Function
Case lcase("i_pb_fiktiv")
get_value=i_pb_fiktiv(index)
Exit Function
Case lcase("i_pb_ip")
get_value=i_pb_ip(index)
Exit Function
Case lcase("i_pb_ip1")
get_value=i_pb_ip1(index)
Exit Function
Case lcase("i_pb_op_ap")
get_value=i_pb_op_ap(index)
Exit Function
Case lcase("i_pb_op_tp")
get_value=i_pb_op_tp(index)
Exit Function
Case lcase("i_pb_pp")
get_value=i_pb_pp(index)
Exit Function
Case lcase("i_pbhi")
get_value=i_pbhi(index)
Exit Function
Case lcase("i_pc_care")
get_value=i_pc_care(index)
Exit Function
Case lcase("i_pc_childcare")
get_value=i_pc_childcare(index)
Exit Function
Case lcase("i_pc_elderly")
get_value=i_pc_elderly(index)
Exit Function
Case lcase("i_pc_high_school")
get_value=i_pc_high_school(index)
Exit Function
Case lcase("i_pc_labor")
get_value=i_pc_labor(index)
Exit Function
Case lcase("i_pc_MAE")
get_value=i_pc_MAE(index)
Exit Function
Case lcase("i_pc_medicine")
get_value=i_pc_medicine(index)
Exit Function
Case lcase("i_pc_school")
get_value=i_pc_school(index)
Exit Function
Case lcase("i_pc_school_adult")
get_value=i_pc_school_adult(index)
Exit Function
Case lcase("i_pc_total")
get_value=i_pc_total(index)
Exit Function
Case lcase("i_pc_univ")
get_value=i_pc_univ(index)
Exit Function
Case lcase("i_pgb")
get_value=i_pgb(index)
Exit Function
Case lcase("i_pgb_antag")
get_value=i_pgb_antag(index)
Exit Function
Case lcase("i_pgb_barn")
get_value=i_pgb_barn(index)
Exit Function
Case lcase("i_pgb_barn_typ")
get_value=i_pgb_barn_typ(index)
Exit Function
Case lcase("i_pgb_plikt")
get_value=i_pgb_plikt(index)
Exit Function
Case lcase("i_pgb_stud")
get_value=i_pgb_stud(index)
Exit Function
Case lcase("i_pgi")
get_value=i_pgi(index)
Exit Function
Case lcase("i_pgi_bas")
get_value=i_pgi_bas(index)
Exit Function
Case lcase("i_pgi_orange")
get_value=i_pgi_orange(index)
Exit Function
Case lcase("i_pgi185")
get_value=i_pgi185(index)
Exit Function
Case lcase("i_pp")
get_value=i_pp(index)
Exit Function
Case lcase("i_pp_payout_time")
get_value=i_pp_payout_time(index)
Exit Function
Case lcase("i_ppmkap")
get_value=i_ppmkap(index)
Exit Function
Case lcase("i_pr_ip")
get_value=i_pr_ip(index)
Exit Function
Case lcase("i_pr_ip1")
get_value=i_pr_ip1(index)
Exit Function
Case lcase("i_pr_op_ap")
get_value=i_pr_op_ap(index)
Exit Function
Case lcase("i_pr_op_tp")
get_value=i_pr_op_tp(index)
Exit Function
Case lcase("i_pr_pp")
get_value=i_pr_pp(index)
Exit Function
Case lcase("i_pr_pp1")
get_value=i_pr_pp1(index)
Exit Function
Case lcase("i_prob_unemployed")
get_value=i_prob_unemployed(index)
Exit Function
Case lcase("i_prob_working")
get_value=i_prob_working(index)
Exit Function
Case lcase("i_pu")
get_value=i_pu(index)
Exit Function
Case lcase("i_pu_ind_comp")
get_value=i_pu_ind_comp(index)
Exit Function
Case lcase("i_pu_orange")
get_value=i_pu_orange(index)
Exit Function
Case lcase("i_sarbavg_pens")
get_value=i_sarbavg_pens(index)
Exit Function
Case lcase("i_sector")
get_value=i_sector(index)
Exit Function
Case lcase("i_sector1")
get_value=i_sector1(index)
Exit Function
Case lcase("i_selected")
get_value=i_selected(index)
Exit Function
Case lcase("i_sex")
get_value=i_sex(index)
Exit Function
Case lcase("i_sick_ind")
get_value=i_sick_ind(index)
Exit Function
Case lcase("i_sick_ind1")
get_value=i_sick_ind1(index)
Exit Function
Case lcase("i_sick_ind2")
get_value=i_sick_ind2(index)
Exit Function
Case lcase("i_sick_ind3")
get_value=i_sick_ind3(index)
Exit Function
Case lcase("i_sick_ind4")
get_value=i_sick_ind4(index)
Exit Function
Case lcase("i_sick_ind5")
get_value=i_sick_ind5(index)
Exit Function
Case lcase("i_sick_ind6")
get_value=i_sick_ind6(index)
Exit Function
Case lcase("i_sickleave")
get_value=i_sickleave(index)
Exit Function
Case lcase("i_sickleave_ivariance")
get_value=i_sickleave_ivariance(index)
Exit Function
Case lcase("i_stap_ftp")
get_value=i_stap_ftp(index)
Exit Function
Case lcase("i_stap_trf")
get_value=i_stap_trf(index)
Exit Function
Case lcase("i_status")
get_value=i_status(index)
Exit Function
Case lcase("i_status1")
get_value=i_status1(index)
Exit Function
Case lcase("i_student")
get_value=i_student(index)
Exit Function
Case lcase("i_study_debt")
get_value=i_study_debt(index)
Exit Function
Case lcase("i_studyloan_repaid")
get_value=i_studyloan_repaid(index)
Exit Function
Case lcase("i_surv")
get_value=i_surv(index)
Exit Function
Case lcase("i_surv_atp")
get_value=i_surv_atp(index)
Exit Function
Case lcase("i_surv_fp")
get_value=i_surv_fp(index)
Exit Function
Case lcase("i_surv_omst")
get_value=i_surv_omst(index)
Exit Function
Case lcase("i_surv_year")
get_value=i_surv_year(index)
Exit Function
Case lcase("i_tax_capital")
get_value=i_tax_capital(index)
Exit Function
Case lcase("i_tax_contribution")
get_value=i_tax_contribution(index)
Exit Function
Case lcase("i_tax_income")
get_value=i_tax_income(index)
Exit Function
Case lcase("i_tax_local")
get_value=i_tax_local(index)
Exit Function
Case lcase("i_tax_national")
get_value=i_tax_national(index)
Exit Function
Case lcase("i_tax_realestate")
get_value=i_tax_realestate(index)
Exit Function
Case lcase("i_tax_total")
get_value=i_tax_total(index)
Exit Function
Case lcase("i_tax_wealth")
get_value=i_tax_wealth(index)
Exit Function
Case lcase("i_tax_workcredit")
get_value=i_tax_workcredit(index)
Exit Function
Case lcase("i_taxred_capital")
get_value=i_taxred_capital(index)
Exit Function
Case lcase("i_trf_btp")
get_value=i_trf_btp(index)
Exit Function
Case lcase("i_trf_parentleave")
get_value=i_trf_parentleave(index)
Exit Function
Case lcase("i_trf_pension")
get_value=i_trf_pension(index)
Exit Function
Case lcase("i_trf_sickleave")
get_value=i_trf_sickleave(index)
Exit Function
Case lcase("i_trf_skada")
get_value=i_trf_skada(index)
Exit Function
Case lcase("i_trf_study")
get_value=i_trf_study(index)
Exit Function
Case lcase("i_trf_study_grant")
get_value=i_trf_study_grant(index)
Exit Function
Case lcase("i_trf_study_loan")
get_value=i_trf_study_loan(index)
Exit Function
Case lcase("i_trf_taxable")
get_value=i_trf_taxable(index)
Exit Function
Case lcase("i_trf_unemployed")
get_value=i_trf_unemployed(index)
Exit Function
Case lcase("i_unemp_ivariance")
get_value=i_unemp_ivariance(index)
Exit Function
Case lcase("i_using_temp_pension")
get_value=i_using_temp_pension(index)
Exit Function
Case lcase("i_vard")
get_value=i_vard(index)
Exit Function
Case lcase("i_wealth_debt")
get_value=i_wealth_debt(index)
Exit Function
Case lcase("i_wealth_financial")
get_value=i_wealth_financial(index)
Exit Function
Case lcase("i_wealth_pension_total")
get_value=i_wealth_pension_total(index)
Exit Function
Case lcase("i_wealth_pension_year")
get_value=i_wealth_pension_year(index)
Exit Function
Case lcase("i_wealth_pension_year1")
get_value=i_wealth_pension_year1(index)
Exit Function
Case lcase("i_widowed")
get_value=i_widowed(index)
Exit Function
Case lcase("i_work_share")
get_value=i_work_share(index)
Exit Function
Case lcase("i_work_share1")
get_value=i_work_share1(index)
Exit Function
Case lcase("i_workexperience")
get_value=i_workexperience(index)
Exit Function
Case lcase("i_year_sep")
get_value=i_year_sep(index)
Exit Function
End Select
Select case lcase(vname)
Case lcase("h_abroad")
get_value=h_abroad(index)
Exit Function
Case lcase("h_BB_region")
get_value=h_BB_region(index)
Exit Function
Case lcase("h_BB_region1")
get_value=h_BB_region1(index)
Exit Function
Case lcase("h_bvux_work")
get_value=h_bvux_work(index)
Exit Function
Case lcase("h_childmoveout")
get_value=h_childmoveout(index)
Exit Function
Case lcase("h_close_relative")
get_value=h_close_relative(index)
Exit Function
Case lcase("h_close_relative1")
get_value=h_close_relative1(index)
Exit Function
Case lcase("h_emig_year")
get_value=h_emig_year(index)
Exit Function
Case lcase("h_first_indnr")
get_value=h_first_indnr(index)
Exit Function
Case lcase("h_form_year")
get_value=h_form_year(index)
Exit Function
Case lcase("h_hhnr")
get_value=h_hhnr(index)
Exit Function
Case lcase("h_house_area")
get_value=h_house_area(index)
Exit Function
Case lcase("h_house_cost")
get_value=h_house_cost(index)
Exit Function
Case lcase("h_house_interest")
get_value=h_house_interest(index)
Exit Function
Case lcase("h_house_owner")
get_value=h_house_owner(index)
Exit Function
Case lcase("h_house_owner1")
get_value=h_house_owner1(index)
Exit Function
Case lcase("h_house_purchase")
get_value=h_house_purchase(index)
Exit Function
Case lcase("h_house_tax")
get_value=h_house_tax(index)
Exit Function
Case lcase("h_idx_headofhh")
get_value=h_idx_headofhh(index)
Exit Function
Case lcase("h_inc_capital")
get_value=h_inc_capital(index)
Exit Function
Case lcase("h_inc_disposable")
get_value=h_inc_disposable(index)
Exit Function
Case lcase("h_inc_disposable1")
get_value=h_inc_disposable1(index)
Exit Function
Case lcase("h_inc_market")
get_value=h_inc_market(index)
Exit Function
Case lcase("h_inc_work")
get_value=h_inc_work(index)
Exit Function
Case lcase("h_indnr_female")
get_value=h_indnr_female(index)
Exit Function
Case lcase("h_indnr_male")
get_value=h_indnr_male(index)
Exit Function
Case lcase("h_kommunindex")
get_value=h_kommunindex(index)
Exit Function
Case lcase("h_kommunkod")
get_value=h_kommunkod(index)
Exit Function
Case lcase("h_maintenance_paid")
get_value=h_maintenance_paid(index)
Exit Function
Case lcase("h_maintenance_received")
get_value=h_maintenance_received(index)
Exit Function
Case lcase("h_max_age")
get_value=h_max_age(index)
Exit Function
Case lcase("h_max_edlevel")
get_value=h_max_edlevel(index)
Exit Function
Case lcase("h_max_inc_taxable")
get_value=h_max_inc_taxable(index)
Exit Function
Case lcase("h_n_adults")
get_value=h_n_adults(index)
Exit Function
Case lcase("h_n_child")
get_value=h_n_child(index)
Exit Function
Case lcase("h_n_child1")
get_value=h_n_child1(index)
Exit Function
Case lcase("h_n_childlt12")
get_value=h_n_childlt12(index)
Exit Function
Case lcase("h_n_childlt7")
get_value=h_n_childlt7(index)
Exit Function
Case lcase("h_n_ge18")
get_value=h_n_ge18(index)
Exit Function
Case lcase("h_new_housing")
get_value=h_new_housing(index)
Exit Function
Case lcase("h_new_housing1")
get_value=h_new_housing1(index)
Exit Function
Case lcase("h_new_immig")
get_value=h_new_immig(index)
Exit Function
Case lcase("h_selected")
get_value=h_selected(index)
Exit Function
Case lcase("h_size")
get_value=h_size(index)
Exit Function
Case lcase("h_studyloan_repaid")
get_value=h_studyloan_repaid(index)
Exit Function
Case lcase("h_sum_inc_taxable")
get_value=h_sum_inc_taxable(index)
Exit Function
Case lcase("h_sum_inc_taxable1")
get_value=h_sum_inc_taxable1(index)
Exit Function
Case lcase("h_tax_realestate")
get_value=h_tax_realestate(index)
Exit Function
Case lcase("h_tax_total")
get_value=h_tax_total(index)
Exit Function
Case lcase("h_trf_btp")
get_value=h_trf_btp(index)
Exit Function
Case lcase("h_trf_childallowance")
get_value=h_trf_childallowance(index)
Exit Function
Case lcase("h_trf_housingallowance")
get_value=h_trf_housingallowance(index)
Exit Function
Case lcase("h_trf_pension")
get_value=h_trf_pension(index)
Exit Function
Case lcase("h_trf_socialassistance")
get_value=h_trf_socialassistance(index)
Exit Function
Case lcase("h_trf_study")
get_value=h_trf_study(index)
Exit Function
Case lcase("h_trf_taxable")
get_value=h_trf_taxable(index)
Exit Function
Case lcase("h_trf_taxfree")
get_value=h_trf_taxfree(index)
Exit Function
Case lcase("h_wealth_CapitalGain")
get_value=h_wealth_CapitalGain(index)
Exit Function
Case lcase("h_wealth_debt")
get_value=h_wealth_debt(index)
Exit Function
Case lcase("h_wealth_debt_GLS1vc")
get_value=h_wealth_debt_GLS1vc(index)
Exit Function
Case lcase("h_wealth_debt_GLS2vc")
get_value=h_wealth_debt_GLS2vc(index)
Exit Function
Case lcase("h_wealth_debt_interest")
get_value=h_wealth_debt_interest(index)
Exit Function
Case lcase("h_wealth_debt_interest_varcomp_p")
get_value=h_wealth_debt_interest_varcomp_p(index)
Exit Function
Case lcase("h_wealth_debt_interest_varcomp_r")
get_value=h_wealth_debt_interest_varcomp_r(index)
Exit Function
Case lcase("h_wealth_debt_interest1")
get_value=h_wealth_debt_interest1(index)
Exit Function
Case lcase("h_wealth_debt_interestrate")
get_value=h_wealth_debt_interestrate(index)
Exit Function
Case lcase("h_wealth_debt_interestrate1")
get_value=h_wealth_debt_interestrate1(index)
Exit Function
Case lcase("h_wealth_debt_probit1vc")
get_value=h_wealth_debt_probit1vc(index)
Exit Function
Case lcase("h_wealth_debt_probit2vc")
get_value=h_wealth_debt_probit2vc(index)
Exit Function
Case lcase("h_wealth_debt_varcomp")
get_value=h_wealth_debt_varcomp(index)
Exit Function
Case lcase("h_wealth_debt1")
get_value=h_wealth_debt1(index)
Exit Function
Case lcase("h_wealth_DebtInterest_ind")
get_value=h_wealth_DebtInterest_ind(index)
Exit Function
Case lcase("h_wealth_DebtInterest_ind1")
get_value=h_wealth_DebtInterest_ind1(index)
Exit Function
Case lcase("h_wealth_financial")
get_value=h_wealth_financial(index)
Exit Function
Case lcase("h_wealth_financial_sales")
get_value=h_wealth_financial_sales(index)
Exit Function
Case lcase("h_wealth_financial_varcomp")
get_value=h_wealth_financial_varcomp(index)
Exit Function
Case lcase("h_wealth_financial1")
get_value=h_wealth_financial1(index)
Exit Function
Case lcase("h_wealth_InterestDividends")
get_value=h_wealth_InterestDividends(index)
Exit Function
Case lcase("h_wealth_real")
get_value=h_wealth_real(index)
Exit Function
Case lcase("h_wealth_real_home")
get_value=h_wealth_real_home(index)
Exit Function
Case lcase("h_wealth_real_home1")
get_value=h_wealth_real_home1(index)
Exit Function
Case lcase("h_wealth_real_other")
get_value=h_wealth_real_other(index)
Exit Function
Case lcase("h_wealth_real_other1")
get_value=h_wealth_real_other1(index)
Exit Function
End Select
End Function
'**************************
Public Function get_macro_value(vname)
get_macro_value=0
Select case lcase(vname)
Case lcase("m_AAK1664")
get_macro_value=m_AAK1664
Exit Function
Case lcase("m_AAL1664")
get_macro_value=m_AAL1664
Exit Function
Case lcase("m_AAPSYS")
get_macro_value=m_AAPSYS
Exit Function
Case lcase("m_AAPTOT")
get_macro_value=m_AAPTOT
Exit Function
Case lcase("m_AKK1619")
get_macro_value=m_AKK1619
Exit Function
Case lcase("m_AKK2024")
get_macro_value=m_AKK2024
Exit Function
Case lcase("m_AKK2529")
get_macro_value=m_AKK2529
Exit Function
Case lcase("m_AKK3034")
get_macro_value=m_AKK3034
Exit Function
Case lcase("m_AKK3539")
get_macro_value=m_AKK3539
Exit Function
Case lcase("m_AKK4044")
get_macro_value=m_AKK4044
Exit Function
Case lcase("m_AKK4549")
get_macro_value=m_AKK4549
Exit Function
Case lcase("m_AKK5054")
get_macro_value=m_AKK5054
Exit Function
Case lcase("m_AKK5559")
get_macro_value=m_AKK5559
Exit Function
Case lcase("m_AKK6064")
get_macro_value=m_AKK6064
Exit Function
Case lcase("m_AKK6569")
get_macro_value=m_AKK6569
Exit Function
Case lcase("m_AKK7074")
get_macro_value=m_AKK7074
Exit Function
Case lcase("m_AKM1619")
get_macro_value=m_AKM1619
Exit Function
Case lcase("m_AKM2024")
get_macro_value=m_AKM2024
Exit Function
Case lcase("m_AKM2529")
get_macro_value=m_AKM2529
Exit Function
Case lcase("m_AKM3034")
get_macro_value=m_AKM3034
Exit Function
Case lcase("m_AKM3539")
get_macro_value=m_AKM3539
Exit Function
Case lcase("m_AKM4044")
get_macro_value=m_AKM4044
Exit Function
Case lcase("m_AKM4549")
get_macro_value=m_AKM4549
Exit Function
Case lcase("m_AKM5054")
get_macro_value=m_AKM5054
Exit Function
Case lcase("m_AKM5559")
get_macro_value=m_AKM5559
Exit Function
Case lcase("m_AKM6064")
get_macro_value=m_AKM6064
Exit Function
Case lcase("m_AKM6569")
get_macro_value=m_AKM6569
Exit Function
Case lcase("m_AKM7074")
get_macro_value=m_AKM7074
Exit Function
Case lcase("m_AKT1664")
get_macro_value=m_AKT1664
Exit Function
Case lcase("m_ALK1619")
get_macro_value=m_ALK1619
Exit Function
Case lcase("m_ALK2024")
get_macro_value=m_ALK2024
Exit Function
Case lcase("m_ALK2529")
get_macro_value=m_ALK2529
Exit Function
Case lcase("m_ALK3034")
get_macro_value=m_ALK3034
Exit Function
Case lcase("m_ALK3539")
get_macro_value=m_ALK3539
Exit Function
Case lcase("m_ALK4044")
get_macro_value=m_ALK4044
Exit Function
Case lcase("m_ALK4549")
get_macro_value=m_ALK4549
Exit Function
Case lcase("m_ALK5054")
get_macro_value=m_ALK5054
Exit Function
Case lcase("m_ALK5559")
get_macro_value=m_ALK5559
Exit Function
Case lcase("m_ALK6064")
get_macro_value=m_ALK6064
Exit Function
Case lcase("m_ALK6569")
get_macro_value=m_ALK6569
Exit Function
Case lcase("m_ALK7074")
get_macro_value=m_ALK7074
Exit Function
Case lcase("m_ALM1619")
get_macro_value=m_ALM1619
Exit Function
Case lcase("m_ALM2024")
get_macro_value=m_ALM2024
Exit Function
Case lcase("m_ALM2529")
get_macro_value=m_ALM2529
Exit Function
Case lcase("m_ALM3034")
get_macro_value=m_ALM3034
Exit Function
Case lcase("m_ALM3539")
get_macro_value=m_ALM3539
Exit Function
Case lcase("m_ALM4044")
get_macro_value=m_ALM4044
Exit Function
Case lcase("m_ALM4549")
get_macro_value=m_ALM4549
Exit Function
Case lcase("m_ALM5054")
get_macro_value=m_ALM5054
Exit Function
Case lcase("m_ALM5559")
get_macro_value=m_ALM5559
Exit Function
Case lcase("m_ALM6064")
get_macro_value=m_ALM6064
Exit Function
Case lcase("m_ALM6569")
get_macro_value=m_ALM6569
Exit Function
Case lcase("m_ALM7074")
get_macro_value=m_ALM7074
Exit Function
Case lcase("m_ap_aap_avs")
get_macro_value=m_ap_aap_avs
Exit Function
Case lcase("m_ap_adm_ip")
get_macro_value=m_ap_adm_ip
Exit Function
Case lcase("m_ap_adm_ip_ap")
get_macro_value=m_ap_adm_ip_ap
Exit Function
Case lcase("m_ap_adm_ip_ap_p")
get_macro_value=m_ap_adm_ip_ap_p
Exit Function
Case lcase("m_ap_adm_ip_ins")
get_macro_value=m_ap_adm_ip_ins
Exit Function
Case lcase("m_ap_adm_ip_ins_p")
get_macro_value=m_ap_adm_ip_ins_p
Exit Function
Case lcase("m_ap_adm_ip_p")
get_macro_value=m_ap_adm_ip_p
Exit Function
Case lcase("m_ap_ap")
get_macro_value=m_ap_ap
Exit Function
Case lcase("m_ap_apfond")
get_macro_value=m_ap_apfond
Exit Function
Case lcase("m_ap_apfond_trf")
get_macro_value=m_ap_apfond_trf
Exit Function
Case lcase("m_ap_apfond1")
get_macro_value=m_ap_apfond1
Exit Function
Case lcase("m_ap_apfond2")
get_macro_value=m_ap_apfond2
Exit Function
Case lcase("m_ap_arv")
get_macro_value=m_ap_arv
Exit Function
Case lcase("m_ap_arv_59")
get_macro_value=m_ap_arv_59
Exit Function
Case lcase("m_ap_arv60_")
get_macro_value=m_ap_arv60_
Exit Function
Case lcase("m_ap_atp")
get_macro_value=m_ap_atp
Exit Function
Case lcase("m_ap_atp_dead")
get_macro_value=m_ap_atp_dead
Exit Function
Case lcase("m_ap_atp_ut")
get_macro_value=m_ap_atp_ut
Exit Function
Case lcase("m_ap_avg")
get_macro_value=m_ap_avg
Exit Function
Case lcase("m_ap_avg_37")
get_macro_value=m_ap_avg_37
Exit Function
Case lcase("m_ap_avg_ap")
get_macro_value=m_ap_avg_ap
Exit Function
Case lcase("m_ap_avg_ap_37")
get_macro_value=m_ap_avg_ap_37
Exit Function
Case lcase("m_ap_avg_ap1")
get_macro_value=m_ap_avg_ap1
Exit Function
Case lcase("m_ap_avg_ap2")
get_macro_value=m_ap_avg_ap2
Exit Function
Case lcase("m_ap_avg_ap3")
get_macro_value=m_ap_avg_ap3
Exit Function
Case lcase("m_ap_avg_atak")
get_macro_value=m_ap_avg_atak
Exit Function
Case lcase("m_ap_avg_ppm")
get_macro_value=m_ap_avg_ppm
Exit Function
Case lcase("m_ap_avgtill")
get_macro_value=m_ap_avgtill
Exit Function
Case lcase("m_ap_avgtill1")
get_macro_value=m_ap_avgtill1
Exit Function
Case lcase("m_ap_avgtill2")
get_macro_value=m_ap_avgtill2
Exit Function
Case lcase("m_ap_avgtill3")
get_macro_value=m_ap_avgtill3
Exit Function
Case lcase("m_ap_avs")
get_macro_value=m_ap_avs
Exit Function
Case lcase("m_ap_balanstal")
get_macro_value=m_ap_balanstal
Exit Function
Case lcase("m_ap_balanstal_accum")
get_macro_value=m_ap_balanstal_accum
Exit Function
Case lcase("m_ap_balind")
get_macro_value=m_ap_balind
Exit Function
Case lcase("m_ap_balind_active")
get_macro_value=m_ap_balind_active
Exit Function
Case lcase("m_ap_balind1")
get_macro_value=m_ap_balind1
Exit Function
Case lcase("m_ap_balind2")
get_macro_value=m_ap_balind2
Exit Function
Case lcase("m_ap_favg")
get_macro_value=m_ap_favg
Exit Function
Case lcase("m_ap_fp_kvot_gifta")
get_macro_value=m_ap_fp_kvot_gifta
Exit Function
Case lcase("m_ap_fp_kvot_ogifta")
get_macro_value=m_ap_fp_kvot_ogifta
Exit Function
Case lcase("m_ap_fp30_dead")
get_macro_value=m_ap_fp30_dead
Exit Function
Case lcase("m_ap_fp30_ut")
get_macro_value=m_ap_fp30_ut
Exit Function
Case lcase("m_ap_gp_Inkindex_On")
get_macro_value=m_ap_gp_Inkindex_On
Exit Function
Case lcase("m_ap_he66")
get_macro_value=m_ap_he66
Exit Function
Case lcase("m_ap_index")
get_macro_value=m_ap_index
Exit Function
Case lcase("m_ap_inkind")
get_macro_value=m_ap_inkind
Exit Function
Case lcase("m_ap_inkind1")
get_macro_value=m_ap_inkind1
Exit Function
Case lcase("m_ap_inkind2")
get_macro_value=m_ap_inkind2
Exit Function
Case lcase("m_ap_ip_avs")
get_macro_value=m_ap_ip_avs
Exit Function
Case lcase("m_ap_ip_dead")
get_macro_value=m_ap_ip_dead
Exit Function
Case lcase("m_ap_ip_dead_korr")
get_macro_value=m_ap_ip_dead_korr
Exit Function
Case lcase("m_ap_ip_ut")
get_macro_value=m_ap_ip_ut
Exit Function
Case lcase("m_ap_it")
get_macro_value=m_ap_it
Exit Function
Case lcase("m_ap_ls66")
get_macro_value=m_ap_ls66
Exit Function
Case lcase("m_ap_norm")
get_macro_value=m_ap_norm
Exit Function
Case lcase("m_ap_ot")
get_macro_value=m_ap_ot
Exit Function
Case lcase("m_ap_ot1")
get_macro_value=m_ap_ot1
Exit Function
Case lcase("m_ap_ot2")
get_macro_value=m_ap_ot2
Exit Function
Case lcase("m_ap_ot3")
get_macro_value=m_ap_ot3
Exit Function
Case lcase("m_ap_ottak")
get_macro_value=m_ap_ottak
Exit Function
Case lcase("m_ap_ottak1")
get_macro_value=m_ap_ottak1
Exit Function
Case lcase("m_ap_pb_ip")
get_macro_value=m_ap_pb_ip
Exit Function
Case lcase("m_ap_pb_tp")
get_macro_value=m_ap_pb_tp
Exit Function
Case lcase("m_ap_pp_avs")
get_macro_value=m_ap_pp_avs
Exit Function
Case lcase("m_ap_pp_dead")
get_macro_value=m_ap_pp_dead
Exit Function
Case lcase("m_ap_pp_ut")
get_macro_value=m_ap_pp_ut
Exit Function
Case lcase("m_ap_ppfond")
get_macro_value=m_ap_ppfond
Exit Function
Case lcase("m_ap_pr_ip")
get_macro_value=m_ap_pr_ip
Exit Function
Case lcase("m_ap_pts_kvot")
get_macro_value=m_ap_pts_kvot
Exit Function
Case lcase("m_ap_sa")
get_macro_value=m_ap_sa
Exit Function
Case lcase("m_ap_shares_p")
get_macro_value=m_ap_shares_p
Exit Function
Case lcase("m_ap_skuld")
get_macro_value=m_ap_skuld
Exit Function
Case lcase("m_ap_skuld1")
get_macro_value=m_ap_skuld1
Exit Function
Case lcase("m_ap_skuld2")
get_macro_value=m_ap_skuld2
Exit Function
Case lcase("m_ap_skuld3")
get_macro_value=m_ap_skuld3
Exit Function
Case lcase("m_ap_sp")
get_macro_value=m_ap_sp
Exit Function
Case lcase("m_ap_summasnitt")
get_macro_value=m_ap_summasnitt
Exit Function
Case lcase("m_ap_tp")
get_macro_value=m_ap_tp
Exit Function
Case lcase("m_ap_tp_ut")
get_macro_value=m_ap_tp_ut
Exit Function
Case lcase("m_ap_u68")
get_macro_value=m_ap_u68
Exit Function
Case lcase("m_ap_ud68")
get_macro_value=m_ap_ud68
Exit Function
Case lcase("m_ap_ut")
get_macro_value=m_ap_ut
Exit Function
Case lcase("m_arbavg")
get_macro_value=m_arbavg
Exit Function
Case lcase("m_arbavg_akas_p")
get_macro_value=m_arbavg_akas_p
Exit Function
Case lcase("m_arbavg_alon_p")
get_macro_value=m_arbavg_alon_p
Exit Function
Case lcase("m_arbavg_arsk_p")
get_macro_value=m_arbavg_arsk_p
Exit Function
Case lcase("m_arbavg_eft_p")
get_macro_value=m_arbavg_eft_p
Exit Function
Case lcase("m_arbavg_forp_p")
get_macro_value=m_arbavg_forp_p
Exit Function
Case lcase("m_arbavg_ovr")
get_macro_value=m_arbavg_ovr
Exit Function
Case lcase("m_arbavg_ovr_p")
get_macro_value=m_arbavg_ovr_p
Exit Function
Case lcase("m_arbavg_p")
get_macro_value=m_arbavg_p
Exit Function
Case lcase("m_arbavg_pens")
get_macro_value=m_arbavg_pens
Exit Function
Case lcase("m_arbavg_pens_p")
get_macro_value=m_arbavg_pens_p
Exit Function
Case lcase("m_arbavg_sjuk_p")
get_macro_value=m_arbavg_sjuk_p
Exit Function
Case lcase("m_arbavg_slon")
get_macro_value=m_arbavg_slon
Exit Function
Case lcase("m_arbavg_slon_p")
get_macro_value=m_arbavg_slon_p
Exit Function
Case lcase("m_arbavg_slon38_p")
get_macro_value=m_arbavg_slon38_p
Exit Function
Case lcase("m_arvsvinst_60")
get_macro_value=m_arvsvinst_60
Exit Function
Case lcase("m_ASY1664")
get_macro_value=m_ASY1664
Exit Function
Case lcase("m_ASY2064R")
get_macro_value=m_ASY2064R
Exit Function
Case lcase("m_basbelopp")
get_macro_value=m_basbelopp
Exit Function
Case lcase("m_basbelopp_f")
get_macro_value=m_basbelopp_f
Exit Function
Case lcase("m_basbelopp_ftp")
get_macro_value=m_basbelopp_ftp
Exit Function
Case lcase("m_basbelopp_gp")
get_macro_value=m_basbelopp_gp
Exit Function
Case lcase("m_basbelopp_income")
get_macro_value=m_basbelopp_income
Exit Function
Case lcase("m_basbelopp1")
get_macro_value=m_basbelopp1
Exit Function
Case lcase("m_basbelopp2")
get_macro_value=m_basbelopp2
Exit Function
Case lcase("m_basbelopp3")
get_macro_value=m_basbelopp3
Exit Function
Case lcase("m_basbelopp4")
get_macro_value=m_basbelopp4
Exit Function
Case lcase("m_basbelopp5")
get_macro_value=m_basbelopp5
Exit Function
Case lcase("m_BEFK0014")
get_macro_value=m_BEFK0014
Exit Function
Case lcase("m_BEFK0015")
get_macro_value=m_BEFK0015
Exit Function
Case lcase("m_BEFK1519")
get_macro_value=m_BEFK1519
Exit Function
Case lcase("m_BEFK1619")
get_macro_value=m_BEFK1619
Exit Function
Case lcase("m_BEFK1664")
get_macro_value=m_BEFK1664
Exit Function
Case lcase("m_BEFK2024")
get_macro_value=m_BEFK2024
Exit Function
Case lcase("m_BEFK2529")
get_macro_value=m_BEFK2529
Exit Function
Case lcase("m_BEFK3034")
get_macro_value=m_BEFK3034
Exit Function
Case lcase("m_BEFK3539")
get_macro_value=m_BEFK3539
Exit Function
Case lcase("m_BEFK4044")
get_macro_value=m_BEFK4044
Exit Function
Case lcase("m_BEFK4549")
get_macro_value=m_BEFK4549
Exit Function
Case lcase("m_BEFK5054")
get_macro_value=m_BEFK5054
Exit Function
Case lcase("m_BEFK5559")
get_macro_value=m_BEFK5559
Exit Function
Case lcase("m_BEFK6064")
get_macro_value=m_BEFK6064
Exit Function
Case lcase("m_BEFK6569")
get_macro_value=m_BEFK6569
Exit Function
Case lcase("m_BEFK65WW")
get_macro_value=m_BEFK65WW
Exit Function
Case lcase("m_BEFK7074")
get_macro_value=m_BEFK7074
Exit Function
Case lcase("m_BEFM0014")
get_macro_value=m_BEFM0014
Exit Function
Case lcase("m_BEFM0015")
get_macro_value=m_BEFM0015
Exit Function
Case lcase("m_BEFM1519")
get_macro_value=m_BEFM1519
Exit Function
Case lcase("m_BEFM1619")
get_macro_value=m_BEFM1619
Exit Function
Case lcase("m_BEFM1664")
get_macro_value=m_BEFM1664
Exit Function
Case lcase("m_BEFM2024")
get_macro_value=m_BEFM2024
Exit Function
Case lcase("m_BEFM2529")
get_macro_value=m_BEFM2529
Exit Function
Case lcase("m_BEFM3034")
get_macro_value=m_BEFM3034
Exit Function
Case lcase("m_BEFM3539")
get_macro_value=m_BEFM3539
Exit Function
Case lcase("m_BEFM4044")
get_macro_value=m_BEFM4044
Exit Function
Case lcase("m_BEFM4549")
get_macro_value=m_BEFM4549
Exit Function
Case lcase("m_BEFM5054")
get_macro_value=m_BEFM5054
Exit Function
Case lcase("m_BEFM5559")
get_macro_value=m_BEFM5559
Exit Function
Case lcase("m_BEFM6064")
get_macro_value=m_BEFM6064
Exit Function
Case lcase("m_BEFM6569")
get_macro_value=m_BEFM6569
Exit Function
Case lcase("m_BEFM65WW")
get_macro_value=m_BEFM65WW
Exit Function
Case lcase("m_BEFM7074")
get_macro_value=m_BEFM7074
Exit Function
Case lcase("m_bnpaf")
get_macro_value=m_bnpaf
Exit Function
Case lcase("m_bnpal")
get_macro_value=m_bnpal
Exit Function
Case lcase("m_bonds_return_ap")
get_macro_value=m_bonds_return_ap
Exit Function
Case lcase("m_born")
get_macro_value=m_born
Exit Function
Case lcase("m_dead")
get_macro_value=m_dead
Exit Function
Case lcase("m_dtalip_65")
get_macro_value=m_dtalip_65
Exit Function
Case lcase("m_dtalpp_65")
get_macro_value=m_dtalpp_65
Exit Function
Case lcase("m_egenavg_pens")
get_macro_value=m_egenavg_pens
Exit Function
Case lcase("m_egenavg_pens_p")
get_macro_value=m_egenavg_pens_p
Exit Function
Case lcase("m_egenavg_red_p")
get_macro_value=m_egenavg_red_p
Exit Function
Case lcase("m_egenavg_tak_basb")
get_macro_value=m_egenavg_tak_basb
Exit Function
Case lcase("m_emigrated")
get_macro_value=m_emigrated
Exit Function
Case lcase("m_favg_ip")
get_macro_value=m_favg_ip
Exit Function
Case lcase("m_favg_pp")
get_macro_value=m_favg_pp
Exit Function
Case lcase("m_ftp_Inkindex_On")
get_macro_value=m_ftp_Inkindex_On
Exit Function
Case lcase("m_hcount")
get_macro_value=m_hcount
Exit Function
Case lcase("m_icount")
get_macro_value=m_icount
Exit Function
Case lcase("m_immigrated")
get_macro_value=m_immigrated
Exit Function
Case lcase("m_inc_earning")
get_macro_value=m_inc_earning
Exit Function
Case lcase("m_inc_taxable_snitt")
get_macro_value=m_inc_taxable_snitt
Exit Function
Case lcase("m_inc_taxable_snitt1")
get_macro_value=m_inc_taxable_snitt1
Exit Function
Case lcase("m_inc_taxable_snitt2")
get_macro_value=m_inc_taxable_snitt2
Exit Function
Case lcase("m_inc_taxable_snitt3")
get_macro_value=m_inc_taxable_snitt3
Exit Function
Case lcase("m_inc_taxable_snitt4")
get_macro_value=m_inc_taxable_snitt4
Exit Function
Case lcase("m_incmeas")
get_macro_value=m_incmeas
Exit Function
Case lcase("m_incmeas1")
get_macro_value=m_incmeas1
Exit Function
Case lcase("m_incmeas4")
get_macro_value=m_incmeas4
Exit Function
Case lcase("m_inflation")
get_macro_value=m_inflation
Exit Function
Case lcase("m_interest_long")
get_macro_value=m_interest_long
Exit Function
Case lcase("m_interest_long99")
get_macro_value=m_interest_long99
Exit Function
Case lcase("m_interest_short")
get_macro_value=m_interest_short
Exit Function
Case lcase("m_interest_short1")
get_macro_value=m_interest_short1
Exit Function
Case lcase("m_JmfInk_barn")
get_macro_value=m_JmfInk_barn
Exit Function
Case lcase("m_KPI")
get_macro_value=m_KPI
Exit Function
Case lcase("m_KPI1")
get_macro_value=m_KPI1
Exit Function
Case lcase("m_KPI2")
get_macro_value=m_KPI2
Exit Function
Case lcase("m_KPI3")
get_macro_value=m_KPI3
Exit Function
Case lcase("m_KPI4")
get_macro_value=m_KPI4
Exit Function
Case lcase("m_macro_index")
get_macro_value=m_macro_index
Exit Function
Case lcase("m_netcontribution_ap")
get_macro_value=m_netcontribution_ap
Exit Function
Case lcase("m_netmigration")
get_macro_value=m_netmigration
Exit Function
Case lcase("m_netreturn_ap")
get_macro_value=m_netreturn_ap
Exit Function
Case lcase("m_op_fond")
get_macro_value=m_op_fond
Exit Function
Case lcase("m_pb_ip_active")
get_macro_value=m_pb_ip_active
Exit Function
Case lcase("m_pb_ip_active_n")
get_macro_value=m_pb_ip_active_n
Exit Function
Case lcase("m_pensage")
get_macro_value=m_pensage
Exit Function
Case lcase("m_pension_income_index")
get_macro_value=m_pension_income_index
Exit Function
Case lcase("m_pgb")
get_macro_value=m_pgb
Exit Function
Case lcase("m_pgi")
get_macro_value=m_pgi
Exit Function
Case lcase("m_pgi_bas")
get_macro_value=m_pgi_bas
Exit Function
Case lcase("m_pgi_bas_gt_basb")
get_macro_value=m_pgi_bas_gt_basb
Exit Function
Case lcase("m_pgi_bas_gt_basb_n")
get_macro_value=m_pgi_bas_gt_basb_n
Exit Function
Case lcase("m_pgi_bas_n")
get_macro_value=m_pgi_bas_n
Exit Function
Case lcase("m_pp_fond")
get_macro_value=m_pp_fond
Exit Function
Case lcase("m_pr_op")
get_macro_value=m_pr_op
Exit Function
Case lcase("m_price_change00")
get_macro_value=m_price_change00
Exit Function
Case lcase("m_price_change01")
get_macro_value=m_price_change01
Exit Function
Case lcase("m_price_change02")
get_macro_value=m_price_change02
Exit Function
Case lcase("m_price_change03")
get_macro_value=m_price_change03
Exit Function
Case lcase("m_price_change04")
get_macro_value=m_price_change04
Exit Function
Case lcase("m_price_change05")
get_macro_value=m_price_change05
Exit Function
Case lcase("m_price_change06")
get_macro_value=m_price_change06
Exit Function
Case lcase("m_price_change07")
get_macro_value=m_price_change07
Exit Function
Case lcase("m_price_change08")
get_macro_value=m_price_change08
Exit Function
Case lcase("m_price_change09")
get_macro_value=m_price_change09
Exit Function
Case lcase("m_price_change10")
get_macro_value=m_price_change10
Exit Function
Case lcase("m_price_change99")
get_macro_value=m_price_change99
Exit Function
Case lcase("m_price_rw_home")
get_macro_value=m_price_rw_home
Exit Function
Case lcase("m_price_rw_home99")
get_macro_value=m_price_rw_home99
Exit Function
Case lcase("m_price_rw_other")
get_macro_value=m_price_rw_other
Exit Function
Case lcase("m_price_rw_other99")
get_macro_value=m_price_rw_other99
Exit Function
Case lcase("m_price99")
get_macro_value=m_price99
Exit Function
Case lcase("m_realwage")
get_macro_value=m_realwage
Exit Function
Case lcase("m_realwage_change00")
get_macro_value=m_realwage_change00
Exit Function
Case lcase("m_realwage_change01")
get_macro_value=m_realwage_change01
Exit Function
Case lcase("m_realwage_change02")
get_macro_value=m_realwage_change02
Exit Function
Case lcase("m_realwage_change03")
get_macro_value=m_realwage_change03
Exit Function
Case lcase("m_realwage_change04")
get_macro_value=m_realwage_change04
Exit Function
Case lcase("m_realwage_change05")
get_macro_value=m_realwage_change05
Exit Function
Case lcase("m_realwage_change06")
get_macro_value=m_realwage_change06
Exit Function
Case lcase("m_realwage_change07")
get_macro_value=m_realwage_change07
Exit Function
Case lcase("m_realwage_change08")
get_macro_value=m_realwage_change08
Exit Function
Case lcase("m_realwage_change09")
get_macro_value=m_realwage_change09
Exit Function
Case lcase("m_realwage_change10")
get_macro_value=m_realwage_change10
Exit Function
Case lcase("m_realwage_change99")
get_macro_value=m_realwage_change99
Exit Function
Case lcase("m_return_ap")
get_macro_value=m_return_ap
Exit Function
Case lcase("m_RFV_PB_On")
get_macro_value=m_RFV_PB_On
Exit Function
Case lcase("m_shares_dividends")
get_macro_value=m_shares_dividends
Exit Function
Case lcase("m_shares_dividends99")
get_macro_value=m_shares_dividends99
Exit Function
Case lcase("m_shares_rate")
get_macro_value=m_shares_rate
Exit Function
Case lcase("m_shares_rate99")
get_macro_value=m_shares_rate99
Exit Function
Case lcase("m_shares_return")
get_macro_value=m_shares_return
Exit Function
Case lcase("m_shares_return_ap")
get_macro_value=m_shares_return_ap
Exit Function
Case lcase("m_shares_total99")
get_macro_value=m_shares_total99
Exit Function
Case lcase("m_TFR")
get_macro_value=m_TFR
Exit Function
Case lcase("m_wage_change00")
get_macro_value=m_wage_change00
Exit Function
Case lcase("m_wage_change01")
get_macro_value=m_wage_change01
Exit Function
Case lcase("m_wage_change02")
get_macro_value=m_wage_change02
Exit Function
Case lcase("m_wage_change03")
get_macro_value=m_wage_change03
Exit Function
Case lcase("m_wage_change04")
get_macro_value=m_wage_change04
Exit Function
Case lcase("m_wage_change05")
get_macro_value=m_wage_change05
Exit Function
Case lcase("m_wage_change06")
get_macro_value=m_wage_change06
Exit Function
Case lcase("m_wage_change07")
get_macro_value=m_wage_change07
Exit Function
Case lcase("m_wage_change08")
get_macro_value=m_wage_change08
Exit Function
Case lcase("m_wage_change09")
get_macro_value=m_wage_change09
Exit Function
Case lcase("m_wage_change10")
get_macro_value=m_wage_change10
Exit Function
Case lcase("m_wage_change99")
get_macro_value=m_wage_change99
Exit Function
Case lcase("m_weight")
get_macro_value=m_weight
Exit Function
Case lcase("m_zpb_ip_korr")
get_macro_value=m_zpb_ip_korr
Exit Function
Case lcase("m_zpb_pp_korr")
get_macro_value=m_zpb_pp_korr
Exit Function
Case lcase("m_zpgb_korr")
get_macro_value=m_zpgb_korr
Exit Function
Case lcase("m_zpgi_korr")
get_macro_value=m_zpgi_korr
Exit Function
Case lcase("m_zzz")
get_macro_value=m_zzz
Exit Function
End Select
End Function
Public Sub dyn_vect_i(count)
Doevents
If count < 1 then Exit Sub
ReDim Preserve mark_i(count) As Long
ReDim Preserve stack_i(count) As Long
ReDim Preserve pool_female(count) As Long
ReDim Preserve pool_male(count) As Long
ReDim select_i(count) As Long
ReDim temp(count) As variant
ReDim temp2(count) As variant
ReDim Preserve i_aap(count) As Long
ReDim Preserve i_abroad(count) As Integer
ReDim Preserve i_ADL(count) As Byte
ReDim Preserve i_ADL_rnd(count) As Single
ReDim Preserve i_age(count) As Byte
ReDim Preserve i_ap(count) As Long
ReDim Preserve i_ap_ap(count) As Long
ReDim Preserve i_ap_atp(count) As Long
ReDim Preserve i_ap_atp_1994(count) As Long
ReDim Preserve i_ap_atp_old(count) As Long
ReDim Preserve i_ap_atp_ut(count) As Long
ReDim Preserve i_ap_fiktiv(count) As Long
ReDim Preserve i_ap_fp(count) As Long
ReDim Preserve i_ap_fp30(count) As Long
ReDim Preserve i_ap_fp30_1994(count) As Long
ReDim Preserve i_ap_fp30_ut(count) As Long
ReDim Preserve i_ap_gartill(count) As Long
ReDim Preserve i_ap_gp(count) As Long
ReDim Preserve i_ap_ip(count) As Long
ReDim Preserve i_ap_ip_ut(count) As Long
ReDim Preserve i_ap_ip1(count) As Long
ReDim Preserve i_ap_pensmonth(count) As Integer
ReDim Preserve i_ap_pp(count) As Long
ReDim Preserve i_ap_pp_ut(count) As Long
ReDim Preserve i_ap_pts(count) As Long
ReDim Preserve i_ap_tp(count) As Long
ReDim Preserve i_ap_tp_ut(count) As Long
ReDim Preserve i_arbavg(count) As Long
ReDim Preserve i_arbavg_akas(count) As Long
ReDim Preserve i_arbavg_alon(count) As Long
ReDim Preserve i_arbavg_arsk(count) As Long
ReDim Preserve i_arbavg_eft(count) As Long
ReDim Preserve i_arbavg_forp(count) As Long
ReDim Preserve i_arbavg_pens(count) As Long
ReDim Preserve i_arbavg_sjuk(count) As Long
ReDim Preserve i_arbavg_slon(count) As Long
ReDim Preserve i_arbavg_slon38(count) As Long
ReDim Preserve i_assistance_elderly(count) As Byte
ReDim Preserve i_ATP_ar_1994(count) As Byte
ReDim Preserve i_avg(count) As Long
ReDim Preserve i_avg_aap(count) As Long
ReDim Preserve i_avg_ftp(count) As Long
ReDim Preserve i_avg_inc_at_retirement(count) As Long
ReDim Preserve i_avg_income_1997(count) As Long
ReDim Preserve i_avg_ip(count) As Long
ReDim Preserve i_avg_ip2(count) As Long
ReDim Preserve i_avg_pgb(count) As Long
ReDim Preserve i_avg_stap(count) As Long
ReDim Preserve i_avg_trf(count) As Long
ReDim Preserve i_avg2(count) As Long
ReDim Preserve i_BB_region(count) As Byte
ReDim Preserve i_bidnr(count) As Long
ReDim Preserve i_binvar(count) As Integer
ReDim Preserve i_born_abroad(count) As Byte
ReDim Preserve i_born_year(count) As Integer
ReDim Preserve i_botid(count) As Integer
ReDim Preserve i_bvux(count) As Byte
ReDim Preserve i_bvux1(count) As Byte
ReDim Preserve i_civ_stat(count) As Byte
ReDim Preserve i_civ_stat1(count) As Byte
ReDim Preserve i_edlevel(count) As Integer
ReDim Preserve i_edyears(count) As Byte
ReDim Preserve i_emig_year(count) As Integer
ReDim Preserve i_ftp(count) As Long
ReDim Preserve i_ftp_64(count) As Integer
ReDim Preserve i_ftp_antag(count) As Long
ReDim Preserve i_ftp_atp(count) As Long
ReDim Preserve i_ftp_fp(count) As Long
ReDim Preserve i_ftp_gar(count) As Long
ReDim Preserve i_ftp_ink(count) As Long
ReDim Preserve i_ftp_just(count) As Long
ReDim Preserve i_ftp_pts(count) As Long
ReDim Preserve i_ftp_typ(count) As Byte
ReDim Preserve i_ftp_year(count) As Integer
ReDim Preserve i_HasBeenWidowed(count) As Byte
ReDim Preserve i_health(count) As Byte
ReDim Preserve i_health_latent(count) As Single
ReDim Preserve i_health_latent1(count) As Single
ReDim Preserve i_health1(count) As Byte
ReDim Preserve i_hhnr(count) As Long
ReDim Preserve i_hhstatus(count) As Byte
ReDim Preserve i_housetax_postponed(count) As Long
ReDim Preserve i_hsdropout(count) As Byte
ReDim Preserve i_inc_capital(count) As Long
ReDim Preserve i_inc_earning(count) As Long
ReDim Preserve i_inc_itvariance(count) As Single
ReDim Preserve i_inc_ivariance(count) As Single
ReDim Preserve i_inc_market(count) As Long
ReDim Preserve i_inc_selfemployed(count) As Long
ReDim Preserve i_inc_taxable(count) As Long
ReDim Preserve i_inc_taxable1(count) As Long
ReDim Preserve i_inc_taxable2(count) As Long
ReDim Preserve i_inc_taxable3(count) As Long
ReDim Preserve i_inc_taxable4(count) As Long
ReDim Preserve i_inc_taxable5(count) As Long
ReDim Preserve i_inc_taxed(count) As Long
ReDim Preserve i_inc_work(count) As Long
ReDim Preserve i_income(count) As Long
ReDim Preserve i_indnr(count) As Long
ReDim Preserve i_InpatientCare(count) As Integer
ReDim Preserve i_last_hh_dur(count) As Byte
ReDim Preserve i_maintenance_paid(count) As Long
ReDim Preserve i_mATP_1994(count) As Integer
ReDim Preserve i_new_em(count) As Byte
ReDim Preserve i_new_fp(count) As Integer
ReDim Preserve i_new_immig(count) As Byte
ReDim Preserve i_next_indnr(count) As Long
ReDim Preserve i_nr_prev_hh(count) As Byte
ReDim Preserve i_op(count) As Long
ReDim Preserve i_op_an_db_after_65(count) As Long
ReDim Preserve i_op_an_db_before_65(count) As Long
ReDim Preserve i_op_an_dc_after_65(count) As Long
ReDim Preserve i_op_an_dc_before_65(count) As Long
ReDim Preserve i_op_ap_db(count) As Long
ReDim Preserve i_op_ap_dc(count) As Long
ReDim Preserve i_op_ap_tp(count) As Long
ReDim Preserve i_op_capital_value(count) As Long
ReDim Preserve i_op_erp(count) As Byte
ReDim Preserve i_op_pp_years(count) As Byte
ReDim Preserve i_op_pp_years_Blue(count) As Byte
ReDim Preserve i_op_pp_years_Local(count) As Byte
ReDim Preserve i_op_pp_years_State(count) As Byte
ReDim Preserve i_op_pp_years_trans(count) As Byte
ReDim Preserve i_op_pp_years_White(count) As Byte
ReDim Preserve i_op_retirement_individual_effect(count) As Double
ReDim Preserve i_p_andel(count) As Double
ReDim Preserve i_p_antman(count) As Byte
ReDim Preserve i_pb_fiktiv(count) As Long
ReDim Preserve i_pb_ip(count) As Long
ReDim Preserve i_pb_ip1(count) As Long
ReDim Preserve i_pb_op_ap(count) As Long
ReDim Preserve i_pb_op_tp(count) As Long
ReDim Preserve i_pb_pp(count) As Long
ReDim Preserve i_pbhi(count) As Long
ReDim Preserve i_pc_care(count) As Long
ReDim Preserve i_pc_childcare(count) As Long
ReDim Preserve i_pc_elderly(count) As Long
ReDim Preserve i_pc_high_school(count) As Long
ReDim Preserve i_pc_labor(count) As Long
ReDim Preserve i_pc_MAE(count) As Long
ReDim Preserve i_pc_medicine(count) As Long
ReDim Preserve i_pc_school(count) As Long
ReDim Preserve i_pc_school_adult(count) As Long
ReDim Preserve i_pc_total(count) As Long
ReDim Preserve i_pc_univ(count) As Long
ReDim Preserve i_pgb(count) As Long
ReDim Preserve i_pgb_antag(count) As Long
ReDim Preserve i_pgb_barn(count) As Long
ReDim Preserve i_pgb_barn_typ(count) As Long
ReDim Preserve i_pgb_plikt(count) As Long
ReDim Preserve i_pgb_stud(count) As Long
ReDim Preserve i_pgi(count) As Long
ReDim Preserve i_pgi_bas(count) As Long
ReDim Preserve i_pgi_orange(count) As Long
ReDim Preserve i_pgi185(count) As Long
ReDim Preserve i_pp(count) As Long
ReDim Preserve i_pp_payout_time(count) As Integer
ReDim Preserve i_ppmkap(count) As Long
ReDim Preserve i_pr_ip(count) As Long
ReDim Preserve i_pr_ip1(count) As Long
ReDim Preserve i_pr_op_ap(count) As Long
ReDim Preserve i_pr_op_tp(count) As Long
ReDim Preserve i_pr_pp(count) As Long
ReDim Preserve i_pr_pp1(count) As Long
ReDim Preserve i_prob_unemployed(count) As Double
ReDim Preserve i_prob_working(count) As Double
ReDim Preserve i_pu(count) As Long
ReDim Preserve i_pu_ind_comp(count) As Long
ReDim Preserve i_pu_orange(count) As Long
ReDim Preserve i_sarbavg_pens(count) As Long
ReDim Preserve i_sector(count) As Byte
ReDim Preserve i_sector1(count) As Byte
ReDim Preserve i_selected(count) As Byte
ReDim Preserve i_sex(count) As Byte
ReDim Preserve i_sick_ind(count) As Byte
ReDim Preserve i_sick_ind1(count) As Byte
ReDim Preserve i_sick_ind2(count) As Byte
ReDim Preserve i_sick_ind3(count) As Byte
ReDim Preserve i_sick_ind4(count) As Byte
ReDim Preserve i_sick_ind5(count) As Byte
ReDim Preserve i_sick_ind6(count) As Byte
ReDim Preserve i_sickleave(count) As Integer
ReDim Preserve i_sickleave_ivariance(count) As Single
ReDim Preserve i_stap_ftp(count) As Long
ReDim Preserve i_stap_trf(count) As Long
ReDim Preserve i_status(count) As Byte
ReDim Preserve i_status1(count) As Byte
ReDim Preserve i_student(count) As Byte
ReDim Preserve i_study_debt(count) As Long
ReDim Preserve i_studyloan_repaid(count) As Long
ReDim Preserve i_surv(count) As Long
ReDim Preserve i_surv_atp(count) As Long
ReDim Preserve i_surv_fp(count) As Long
ReDim Preserve i_surv_omst(count) As Long
ReDim Preserve i_surv_year(count) As Integer
ReDim Preserve i_tax_capital(count) As Long
ReDim Preserve i_tax_contribution(count) As Long
ReDim Preserve i_tax_income(count) As Long
ReDim Preserve i_tax_local(count) As Long
ReDim Preserve i_tax_national(count) As Long
ReDim Preserve i_tax_realestate(count) As Long
ReDim Preserve i_tax_total(count) As Long
ReDim Preserve i_tax_wealth(count) As Long
ReDim Preserve i_tax_workcredit(count) As Long
ReDim Preserve i_taxred_capital(count) As Long
ReDim Preserve i_trf_btp(count) As Long
ReDim Preserve i_trf_parentleave(count) As Long
ReDim Preserve i_trf_pension(count) As Long
ReDim Preserve i_trf_sickleave(count) As Long
ReDim Preserve i_trf_skada(count) As Long
ReDim Preserve i_trf_study(count) As Long
ReDim Preserve i_trf_study_grant(count) As Long
ReDim Preserve i_trf_study_loan(count) As Long
ReDim Preserve i_trf_taxable(count) As Long
ReDim Preserve i_trf_unemployed(count) As Long
ReDim Preserve i_unemp_ivariance(count) As Single
ReDim Preserve i_using_temp_pension(count) As Byte
ReDim Preserve i_vard(count) As Long
ReDim Preserve i_wealth_debt(count) As Long
ReDim Preserve i_wealth_financial(count) As Long
ReDim Preserve i_wealth_pension_total(count) As Long
ReDim Preserve i_wealth_pension_year(count) As Long
ReDim Preserve i_wealth_pension_year1(count) As Long
ReDim Preserve i_widowed(count) As Byte
ReDim Preserve i_work_share(count) As Single
ReDim Preserve i_work_share1(count) As Single
ReDim Preserve i_workexperience(count) As Byte
ReDim Preserve i_year_sep(count) As Integer
ReDim Preserve pp_hist(count) as pp_hist_ind
End Sub
Public Sub dyn_vect_h(count)
Doevents
If count < 1 then Exit Sub
ReDim Preserve mark_h(count) As Long
ReDim select_h(count) As Long
ReDim Preserve h_abroad(count) As Integer
ReDim Preserve h_BB_region(count) As Byte
ReDim Preserve h_BB_region1(count) As Byte
ReDim Preserve h_bvux_work(count) As Byte
ReDim Preserve h_childmoveout(count) As Byte
ReDim Preserve h_close_relative(count) As Byte
ReDim Preserve h_close_relative1(count) As Byte
ReDim Preserve h_emig_year(count) As Integer
ReDim Preserve h_first_indnr(count) As Long
ReDim Preserve h_form_year(count) As Integer
ReDim Preserve h_hhnr(count) As Long
ReDim Preserve h_house_area(count) As Integer
ReDim Preserve h_house_cost(count) As Long
ReDim Preserve h_house_interest(count) As Long
ReDim Preserve h_house_owner(count) As Byte
ReDim Preserve h_house_owner1(count) As Byte
ReDim Preserve h_house_purchase(count) As Long
ReDim Preserve h_house_tax(count) As Long
ReDim Preserve h_idx_headofhh(count) As Long
ReDim Preserve h_inc_capital(count) As Long
ReDim Preserve h_inc_disposable(count) As Long
ReDim Preserve h_inc_disposable1(count) As Long
ReDim Preserve h_inc_market(count) As Long
ReDim Preserve h_inc_work(count) As Long
ReDim Preserve h_indnr_female(count) As Long
ReDim Preserve h_indnr_male(count) As Long
ReDim Preserve h_kommunindex(count) As Integer
ReDim Preserve h_kommunkod(count) As Integer
ReDim Preserve h_maintenance_paid(count) As Long
ReDim Preserve h_maintenance_received(count) As Long
ReDim Preserve h_max_age(count) As Byte
ReDim Preserve h_max_edlevel(count) As Byte
ReDim Preserve h_max_inc_taxable(count) As Long
ReDim Preserve h_n_adults(count) As Integer
ReDim Preserve h_n_child(count) As Byte
ReDim Preserve h_n_child1(count) As Byte
ReDim Preserve h_n_childlt12(count) As Byte
ReDim Preserve h_n_childlt7(count) As Byte
ReDim Preserve h_n_ge18(count) As Byte
ReDim Preserve h_new_housing(count) As Byte
ReDim Preserve h_new_housing1(count) As Byte
ReDim Preserve h_new_immig(count) As Byte
ReDim Preserve h_selected(count) As Byte
ReDim Preserve h_size(count) As Byte
ReDim Preserve h_studyloan_repaid(count) As Long
ReDim Preserve h_sum_inc_taxable(count) As Long
ReDim Preserve h_sum_inc_taxable1(count) As Long
ReDim Preserve h_tax_realestate(count) As Long
ReDim Preserve h_tax_total(count) As Long
ReDim Preserve h_trf_btp(count) As Long
ReDim Preserve h_trf_childallowance(count) As Long
ReDim Preserve h_trf_housingallowance(count) As Long
ReDim Preserve h_trf_pension(count) As Long
ReDim Preserve h_trf_socialassistance(count) As Long
ReDim Preserve h_trf_study(count) As Long
ReDim Preserve h_trf_taxable(count) As Long
ReDim Preserve h_trf_taxfree(count) As Long
ReDim Preserve h_wealth_CapitalGain(count) As Long
ReDim Preserve h_wealth_debt(count) As Long
ReDim Preserve h_wealth_debt_GLS1vc(count) As Single
ReDim Preserve h_wealth_debt_GLS2vc(count) As Single
ReDim Preserve h_wealth_debt_interest(count) As Long
ReDim Preserve h_wealth_debt_interest_varcomp_p(count) As Single
ReDim Preserve h_wealth_debt_interest_varcomp_r(count) As Single
ReDim Preserve h_wealth_debt_interest1(count) As Long
ReDim Preserve h_wealth_debt_interestrate(count) As Double
ReDim Preserve h_wealth_debt_interestrate1(count) As Single
ReDim Preserve h_wealth_debt_probit1vc(count) As Single
ReDim Preserve h_wealth_debt_probit2vc(count) As Single
ReDim Preserve h_wealth_debt_varcomp(count) As Single
ReDim Preserve h_wealth_debt1(count) As Long
ReDim Preserve h_wealth_DebtInterest_ind(count) As Byte
ReDim Preserve h_wealth_DebtInterest_ind1(count) As Byte
ReDim Preserve h_wealth_financial(count) As Long
ReDim Preserve h_wealth_financial_sales(count) As Long
ReDim Preserve h_wealth_financial_varcomp(count) As Single
ReDim Preserve h_wealth_financial1(count) As Long
ReDim Preserve h_wealth_InterestDividends(count) As Long
ReDim Preserve h_wealth_real(count) As Long
ReDim Preserve h_wealth_real_home(count) As Long
ReDim Preserve h_wealth_real_home1(count) As Long
ReDim Preserve h_wealth_real_other(count) As Long
ReDim Preserve h_wealth_real_other1(count) As Long
End Sub
Public Sub zero_i(i)
i_aap(i)=0
i_abroad(i)=0
i_ADL(i)=0
i_ADL_rnd(i)=0
i_age(i)=0
i_ap(i)=0
i_ap_ap(i)=0
i_ap_atp(i)=0
i_ap_atp_1994(i)=0
i_ap_atp_old(i)=0
i_ap_atp_ut(i)=0
i_ap_fiktiv(i)=0
i_ap_fp(i)=0
i_ap_fp30(i)=0
i_ap_fp30_1994(i)=0
i_ap_fp30_ut(i)=0
i_ap_gartill(i)=0
i_ap_gp(i)=0
i_ap_ip(i)=0
i_ap_ip_ut(i)=0
i_ap_ip1(i)=0
i_ap_pensmonth(i)=0
i_ap_pp(i)=0
i_ap_pp_ut(i)=0
i_ap_pts(i)=0
i_ap_tp(i)=0
i_ap_tp_ut(i)=0
i_arbavg(i)=0
i_arbavg_akas(i)=0
i_arbavg_alon(i)=0
i_arbavg_arsk(i)=0
i_arbavg_eft(i)=0
i_arbavg_forp(i)=0
i_arbavg_pens(i)=0
i_arbavg_sjuk(i)=0
i_arbavg_slon(i)=0
i_arbavg_slon38(i)=0
i_assistance_elderly(i)=0
i_ATP_ar_1994(i)=0
i_avg(i)=0
i_avg_aap(i)=0
i_avg_ftp(i)=0
i_avg_inc_at_retirement(i)=0
i_avg_income_1997(i)=0
i_avg_ip(i)=0
i_avg_ip2(i)=0
i_avg_pgb(i)=0
i_avg_stap(i)=0
i_avg_trf(i)=0
i_avg2(i)=0
i_BB_region(i)=0
i_bidnr(i)=0
i_binvar(i)=0
i_born_abroad(i)=0
i_born_year(i)=0
i_botid(i)=0
i_bvux(i)=0
i_bvux1(i)=0
i_civ_stat(i)=0
i_civ_stat1(i)=0
i_edlevel(i)=0
i_edyears(i)=0
i_emig_year(i)=0
i_ftp(i)=0
i_ftp_64(i)=0
i_ftp_antag(i)=0
i_ftp_atp(i)=0
i_ftp_fp(i)=0
i_ftp_gar(i)=0
i_ftp_ink(i)=0
i_ftp_just(i)=0
i_ftp_pts(i)=0
i_ftp_typ(i)=0
i_ftp_year(i)=0
i_HasBeenWidowed(i)=0
i_health(i)=0
i_health_latent(i)=0
i_health_latent1(i)=0
i_health1(i)=0
i_hhnr(i)=0
i_hhstatus(i)=0
i_housetax_postponed(i)=0
i_hsdropout(i)=0
i_inc_capital(i)=0
i_inc_earning(i)=0
i_inc_itvariance(i)=0
i_inc_ivariance(i)=0
i_inc_market(i)=0
i_inc_selfemployed(i)=0
i_inc_taxable(i)=0
i_inc_taxable1(i)=0
i_inc_taxable2(i)=0
i_inc_taxable3(i)=0
i_inc_taxable4(i)=0
i_inc_taxable5(i)=0
i_inc_taxed(i)=0
i_inc_work(i)=0
i_income(i)=0
i_indnr(i)=0
i_InpatientCare(i)=0
i_last_hh_dur(i)=0
i_maintenance_paid(i)=0
i_mATP_1994(i)=0
i_new_em(i)=0
i_new_fp(i)=0
i_new_immig(i)=0
i_next_indnr(i)=0
i_nr_prev_hh(i)=0
i_op(i)=0
i_op_an_db_after_65(i)=0
i_op_an_db_before_65(i)=0
i_op_an_dc_after_65(i)=0
i_op_an_dc_before_65(i)=0
i_op_ap_db(i)=0
i_op_ap_dc(i)=0
i_op_ap_tp(i)=0
i_op_capital_value(i)=0
i_op_erp(i)=0
i_op_pp_years(i)=0
i_op_pp_years_Blue(i)=0
i_op_pp_years_Local(i)=0
i_op_pp_years_State(i)=0
i_op_pp_years_trans(i)=0
i_op_pp_years_White(i)=0
i_op_retirement_individual_effect(i)=0
i_p_andel(i)=0
i_p_antman(i)=0
i_pb_fiktiv(i)=0
i_pb_ip(i)=0
i_pb_ip1(i)=0
i_pb_op_ap(i)=0
i_pb_op_tp(i)=0
i_pb_pp(i)=0
i_pbhi(i)=0
i_pc_care(i)=0
i_pc_childcare(i)=0
i_pc_elderly(i)=0
i_pc_high_school(i)=0
i_pc_labor(i)=0
i_pc_MAE(i)=0
i_pc_medicine(i)=0
i_pc_school(i)=0
i_pc_school_adult(i)=0
i_pc_total(i)=0
i_pc_univ(i)=0
i_pgb(i)=0
i_pgb_antag(i)=0
i_pgb_barn(i)=0
i_pgb_barn_typ(i)=0
i_pgb_plikt(i)=0
i_pgb_stud(i)=0
i_pgi(i)=0
i_pgi_bas(i)=0
i_pgi_orange(i)=0
i_pgi185(i)=0
i_pp(i)=0
i_pp_payout_time(i)=0
i_ppmkap(i)=0
i_pr_ip(i)=0
i_pr_ip1(i)=0
i_pr_op_ap(i)=0
i_pr_op_tp(i)=0
i_pr_pp(i)=0
i_pr_pp1(i)=0
i_prob_unemployed(i)=0
i_prob_working(i)=0
i_pu(i)=0
i_pu_ind_comp(i)=0
i_pu_orange(i)=0
i_sarbavg_pens(i)=0
i_sector(i)=0
i_sector1(i)=0
i_selected(i)=0
i_sex(i)=0
i_sick_ind(i)=0
i_sick_ind1(i)=0
i_sick_ind2(i)=0
i_sick_ind3(i)=0
i_sick_ind4(i)=0
i_sick_ind5(i)=0
i_sick_ind6(i)=0
i_sickleave(i)=0
i_sickleave_ivariance(i)=0
i_stap_ftp(i)=0
i_stap_trf(i)=0
i_status(i)=0
i_status1(i)=0
i_student(i)=0
i_study_debt(i)=0
i_studyloan_repaid(i)=0
i_surv(i)=0
i_surv_atp(i)=0
i_surv_fp(i)=0
i_surv_omst(i)=0
i_surv_year(i)=0
i_tax_capital(i)=0
i_tax_contribution(i)=0
i_tax_income(i)=0
i_tax_local(i)=0
i_tax_national(i)=0
i_tax_realestate(i)=0
i_tax_total(i)=0
i_tax_wealth(i)=0
i_tax_workcredit(i)=0
i_taxred_capital(i)=0
i_trf_btp(i)=0
i_trf_parentleave(i)=0
i_trf_pension(i)=0
i_trf_sickleave(i)=0
i_trf_skada(i)=0
i_trf_study(i)=0
i_trf_study_grant(i)=0
i_trf_study_loan(i)=0
i_trf_taxable(i)=0
i_trf_unemployed(i)=0
i_unemp_ivariance(i)=0
i_using_temp_pension(i)=0
i_vard(i)=0
i_wealth_debt(i)=0
i_wealth_financial(i)=0
i_wealth_pension_total(i)=0
i_wealth_pension_year(i)=0
i_wealth_pension_year1(i)=0
i_widowed(i)=0
i_work_share(i)=0
i_work_share1(i)=0
i_workexperience(i)=0
i_year_sep(i)=0
Erase pp_hist(i).pp
Erase pp_hist(i).pp_years
pp_hist(i).n_years = 0
End Sub
Public Sub zero_h(i)
h_abroad(i)=0
h_BB_region(i)=0
h_BB_region1(i)=0
h_bvux_work(i)=0
h_childmoveout(i)=0
h_close_relative(i)=0
h_close_relative1(i)=0
h_emig_year(i)=0
h_first_indnr(i)=0
h_form_year(i)=0
h_hhnr(i)=0
h_house_area(i)=0
h_house_cost(i)=0
h_house_interest(i)=0
h_house_owner(i)=0
h_house_owner1(i)=0
h_house_purchase(i)=0
h_house_tax(i)=0
h_idx_headofhh(i)=0
h_inc_capital(i)=0
h_inc_disposable(i)=0
h_inc_disposable1(i)=0
h_inc_market(i)=0
h_inc_work(i)=0
h_indnr_female(i)=0
h_indnr_male(i)=0
h_kommunindex(i)=0
h_kommunkod(i)=0
h_maintenance_paid(i)=0
h_maintenance_received(i)=0
h_max_age(i)=0
h_max_edlevel(i)=0
h_max_inc_taxable(i)=0
h_n_adults(i)=0
h_n_child(i)=0
h_n_child1(i)=0
h_n_childlt12(i)=0
h_n_childlt7(i)=0
h_n_ge18(i)=0
h_new_housing(i)=0
h_new_housing1(i)=0
h_new_immig(i)=0
h_selected(i)=0
h_size(i)=0
h_studyloan_repaid(i)=0
h_sum_inc_taxable(i)=0
h_sum_inc_taxable1(i)=0
h_tax_realestate(i)=0
h_tax_total(i)=0
h_trf_btp(i)=0
h_trf_childallowance(i)=0
h_trf_housingallowance(i)=0
h_trf_pension(i)=0
h_trf_socialassistance(i)=0
h_trf_study(i)=0
h_trf_taxable(i)=0
h_trf_taxfree(i)=0
h_wealth_CapitalGain(i)=0
h_wealth_debt(i)=0
h_wealth_debt_GLS1vc(i)=0
h_wealth_debt_GLS2vc(i)=0
h_wealth_debt_interest(i)=0
h_wealth_debt_interest_varcomp_p(i)=0
h_wealth_debt_interest_varcomp_r(i)=0
h_wealth_debt_interest1(i)=0
h_wealth_debt_interestrate(i)=0
h_wealth_debt_interestrate1(i)=0
h_wealth_debt_probit1vc(i)=0
h_wealth_debt_probit2vc(i)=0
h_wealth_debt_varcomp(i)=0
h_wealth_debt1(i)=0
h_wealth_DebtInterest_ind(i)=0
h_wealth_DebtInterest_ind1(i)=0
h_wealth_financial(i)=0
h_wealth_financial_sales(i)=0
h_wealth_financial_varcomp(i)=0
h_wealth_financial1(i)=0
h_wealth_InterestDividends(i)=0
h_wealth_real(i)=0
h_wealth_real_home(i)=0
h_wealth_real_home1(i)=0
h_wealth_real_other(i)=0
h_wealth_real_other1(i)=0
End Sub
Public Sub zero_m
m_AAK1664=0
m_AAL1664=0
m_AAPSYS=0
m_AAPTOT=0
m_AKK1619=0
m_AKK2024=0
m_AKK2529=0
m_AKK3034=0
m_AKK3539=0
m_AKK4044=0
m_AKK4549=0
m_AKK5054=0
m_AKK5559=0
m_AKK6064=0
m_AKK6569=0
m_AKK7074=0
m_AKM1619=0
m_AKM2024=0
m_AKM2529=0
m_AKM3034=0
m_AKM3539=0
m_AKM4044=0
m_AKM4549=0
m_AKM5054=0
m_AKM5559=0
m_AKM6064=0
m_AKM6569=0
m_AKM7074=0
m_AKT1664=0
m_ALK1619=0
m_ALK2024=0
m_ALK2529=0
m_ALK3034=0
m_ALK3539=0
m_ALK4044=0
m_ALK4549=0
m_ALK5054=0
m_ALK5559=0
m_ALK6064=0
m_ALK6569=0
m_ALK7074=0
m_ALM1619=0
m_ALM2024=0
m_ALM2529=0
m_ALM3034=0
m_ALM3539=0
m_ALM4044=0
m_ALM4549=0
m_ALM5054=0
m_ALM5559=0
m_ALM6064=0
m_ALM6569=0
m_ALM7074=0
m_ap_aap_avs=0
m_ap_adm_ip=0
m_ap_adm_ip_ap=0
m_ap_adm_ip_ap_p=0
m_ap_adm_ip_ins=0
m_ap_adm_ip_ins_p=0
m_ap_adm_ip_p=0
m_ap_ap=0
m_ap_apfond=0
m_ap_apfond_trf=0
m_ap_apfond1=0
m_ap_apfond2=0
m_ap_arv=0
m_ap_arv_59=0
m_ap_arv60_=0
m_ap_atp=0
m_ap_atp_dead=0
m_ap_atp_ut=0
m_ap_avg=0
m_ap_avg_37=0
m_ap_avg_ap=0
m_ap_avg_ap_37=0
m_ap_avg_ap1=0
m_ap_avg_ap2=0
m_ap_avg_ap3=0
m_ap_avg_atak=0
m_ap_avg_ppm=0
m_ap_avgtill=0
m_ap_avgtill1=0
m_ap_avgtill2=0
m_ap_avgtill3=0
m_ap_avs=0
m_ap_balanstal=0
m_ap_balanstal_accum=0
m_ap_balind=0
m_ap_balind_active=0
m_ap_balind1=0
m_ap_balind2=0
m_ap_favg=0
m_ap_fp_kvot_gifta=0
m_ap_fp_kvot_ogifta=0
m_ap_fp30_dead=0
m_ap_fp30_ut=0
m_ap_gp_Inkindex_On=0
m_ap_he66=0
m_ap_index=0
m_ap_inkind=0
m_ap_inkind1=0
m_ap_inkind2=0
m_ap_ip_avs=0
m_ap_ip_dead=0
m_ap_ip_dead_korr=0
m_ap_ip_ut=0
m_ap_it=0
m_ap_ls66=0
m_ap_norm=0
m_ap_ot=0
m_ap_ot1=0
m_ap_ot2=0
m_ap_ot3=0
m_ap_ottak=0
m_ap_ottak1=0
m_ap_pb_ip=0
m_ap_pb_tp=0
m_ap_pp_avs=0
m_ap_pp_dead=0
m_ap_pp_ut=0
m_ap_ppfond=0
m_ap_pr_ip=0
m_ap_pts_kvot=0
m_ap_sa=0
m_ap_shares_p=0
m_ap_skuld=0
m_ap_skuld1=0
m_ap_skuld2=0
m_ap_skuld3=0
m_ap_sp=0
m_ap_summasnitt=0
m_ap_tp=0
m_ap_tp_ut=0
m_ap_u68=0
m_ap_ud68=0
m_ap_ut=0
m_arbavg=0
m_arbavg_akas_p=0
m_arbavg_alon_p=0
m_arbavg_arsk_p=0
m_arbavg_eft_p=0
m_arbavg_forp_p=0
m_arbavg_ovr=0
m_arbavg_ovr_p=0
m_arbavg_p=0
m_arbavg_pens=0
m_arbavg_pens_p=0
m_arbavg_sjuk_p=0
m_arbavg_slon=0
m_arbavg_slon_p=0
m_arbavg_slon38_p=0
m_arvsvinst_60=0
m_ASY1664=0
m_ASY2064R=0
m_basbelopp=0
m_basbelopp_f=0
m_basbelopp_ftp=0
m_basbelopp_gp=0
m_basbelopp_income=0
m_basbelopp1=0
m_basbelopp2=0
m_basbelopp3=0
m_basbelopp4=0
m_basbelopp5=0
m_BEFK0014=0
m_BEFK0015=0
m_BEFK1519=0
m_BEFK1619=0
m_BEFK1664=0
m_BEFK2024=0
m_BEFK2529=0
m_BEFK3034=0
m_BEFK3539=0
m_BEFK4044=0
m_BEFK4549=0
m_BEFK5054=0
m_BEFK5559=0
m_BEFK6064=0
m_BEFK6569=0
m_BEFK65WW=0
m_BEFK7074=0
m_BEFM0014=0
m_BEFM0015=0
m_BEFM1519=0
m_BEFM1619=0
m_BEFM1664=0
m_BEFM2024=0
m_BEFM2529=0
m_BEFM3034=0
m_BEFM3539=0
m_BEFM4044=0
m_BEFM4549=0
m_BEFM5054=0
m_BEFM5559=0
m_BEFM6064=0
m_BEFM6569=0
m_BEFM65WW=0
m_BEFM7074=0
m_bnpaf=0
m_bnpal=0
m_bonds_return_ap=0
m_born=0
m_dead=0
m_dtalip_65=0
m_dtalpp_65=0
m_egenavg_pens=0
m_egenavg_pens_p=0
m_egenavg_red_p=0
m_egenavg_tak_basb=0
m_emigrated=0
m_favg_ip=0
m_favg_pp=0
m_ftp_Inkindex_On=0
m_hcount=0
m_icount=0
m_immigrated=0
m_inc_earning=0
m_inc_taxable_snitt=0
m_inc_taxable_snitt1=0
m_inc_taxable_snitt2=0
m_inc_taxable_snitt3=0
m_inc_taxable_snitt4=0
m_incmeas=0
m_incmeas1=0
m_incmeas4=0
m_inflation=0
m_interest_long=0
m_interest_long99=0
m_interest_short=0
m_interest_short1=0
m_JmfInk_barn=0
m_KPI=0
m_KPI1=0
m_KPI2=0
m_KPI3=0
m_KPI4=0
m_macro_index=0
m_netcontribution_ap=0
m_netmigration=0
m_netreturn_ap=0
m_op_fond=0
m_pb_ip_active=0
m_pb_ip_active_n=0
m_pensage=0
m_pension_income_index=0
m_pgb=0
m_pgi=0
m_pgi_bas=0
m_pgi_bas_gt_basb=0
m_pgi_bas_gt_basb_n=0
m_pgi_bas_n=0
m_pp_fond=0
m_pr_op=0
m_price_change00=0
m_price_change01=0
m_price_change02=0
m_price_change03=0
m_price_change04=0
m_price_change05=0
m_price_change06=0
m_price_change07=0
m_price_change08=0
m_price_change09=0
m_price_change10=0
m_price_change99=0
m_price_rw_home=0
m_price_rw_home99=0
m_price_rw_other=0
m_price_rw_other99=0
m_price99=0
m_realwage=0
m_realwage_change00=0
m_realwage_change01=0
m_realwage_change02=0
m_realwage_change03=0
m_realwage_change04=0
m_realwage_change05=0
m_realwage_change06=0
m_realwage_change07=0
m_realwage_change08=0
m_realwage_change09=0
m_realwage_change10=0
m_realwage_change99=0
m_return_ap=0
m_RFV_PB_On=0
m_shares_dividends=0
m_shares_dividends99=0
m_shares_rate=0
m_shares_rate99=0
m_shares_return=0
m_shares_return_ap=0
m_shares_total99=0
m_TFR=0
m_wage_change00=0
m_wage_change01=0
m_wage_change02=0
m_wage_change03=0
m_wage_change04=0
m_wage_change05=0
m_wage_change06=0
m_wage_change07=0
m_wage_change08=0
m_wage_change09=0
m_wage_change10=0
m_wage_change99=0
m_weight=0
m_zpb_ip_korr=0
m_zpb_pp_korr=0
m_zpgb_korr=0
m_zpgi_korr=0
m_zzz=0
End Sub
Public Sub shift_up_marked_ii()
Dim i As Long
Dim j As Long
j = 0
For i = 1 To m_icount
If mark_i(i) = 0 Then
j = j + 1
i_aap(j) = i_aap(i)
i_abroad(j) = i_abroad(i)
i_ADL(j) = i_ADL(i)
i_ADL_rnd(j) = i_ADL_rnd(i)
i_age(j) = i_age(i)
i_ap(j) = i_ap(i)
i_ap_ap(j) = i_ap_ap(i)
i_ap_atp(j) = i_ap_atp(i)
i_ap_atp_1994(j) = i_ap_atp_1994(i)
i_ap_atp_old(j) = i_ap_atp_old(i)
i_ap_atp_ut(j) = i_ap_atp_ut(i)
i_ap_fiktiv(j) = i_ap_fiktiv(i)
i_ap_fp(j) = i_ap_fp(i)
i_ap_fp30(j) = i_ap_fp30(i)
i_ap_fp30_1994(j) = i_ap_fp30_1994(i)
i_ap_fp30_ut(j) = i_ap_fp30_ut(i)
i_ap_gartill(j) = i_ap_gartill(i)
i_ap_gp(j) = i_ap_gp(i)
i_ap_ip(j) = i_ap_ip(i)
i_ap_ip_ut(j) = i_ap_ip_ut(i)
i_ap_ip1(j) = i_ap_ip1(i)
i_ap_pensmonth(j) = i_ap_pensmonth(i)
i_ap_pp(j) = i_ap_pp(i)
i_ap_pp_ut(j) = i_ap_pp_ut(i)
i_ap_pts(j) = i_ap_pts(i)
i_ap_tp(j) = i_ap_tp(i)
i_ap_tp_ut(j) = i_ap_tp_ut(i)
i_arbavg(j) = i_arbavg(i)
i_arbavg_akas(j) = i_arbavg_akas(i)
i_arbavg_alon(j) = i_arbavg_alon(i)
i_arbavg_arsk(j) = i_arbavg_arsk(i)
i_arbavg_eft(j) = i_arbavg_eft(i)
i_arbavg_forp(j) = i_arbavg_forp(i)
i_arbavg_pens(j) = i_arbavg_pens(i)
i_arbavg_sjuk(j) = i_arbavg_sjuk(i)
i_arbavg_slon(j) = i_arbavg_slon(i)
i_arbavg_slon38(j) = i_arbavg_slon38(i)
i_assistance_elderly(j) = i_assistance_elderly(i)
i_ATP_ar_1994(j) = i_ATP_ar_1994(i)
i_avg(j) = i_avg(i)
i_avg_aap(j) = i_avg_aap(i)
i_avg_ftp(j) = i_avg_ftp(i)
i_avg_inc_at_retirement(j) = i_avg_inc_at_retirement(i)
i_avg_income_1997(j) = i_avg_income_1997(i)
i_avg_ip(j) = i_avg_ip(i)
i_avg_ip2(j) = i_avg_ip2(i)
i_avg_pgb(j) = i_avg_pgb(i)
i_avg_stap(j) = i_avg_stap(i)
i_avg_trf(j) = i_avg_trf(i)
i_avg2(j) = i_avg2(i)
i_BB_region(j) = i_BB_region(i)
i_bidnr(j) = i_bidnr(i)
i_binvar(j) = i_binvar(i)
i_born_abroad(j) = i_born_abroad(i)
i_born_year(j) = i_born_year(i)
i_botid(j) = i_botid(i)
i_bvux(j) = i_bvux(i)
i_bvux1(j) = i_bvux1(i)
i_civ_stat(j) = i_civ_stat(i)
i_civ_stat1(j) = i_civ_stat1(i)
i_edlevel(j) = i_edlevel(i)
i_edyears(j) = i_edyears(i)
i_emig_year(j) = i_emig_year(i)
i_ftp(j) = i_ftp(i)
i_ftp_64(j) = i_ftp_64(i)
i_ftp_antag(j) = i_ftp_antag(i)
i_ftp_atp(j) = i_ftp_atp(i)
i_ftp_fp(j) = i_ftp_fp(i)
i_ftp_gar(j) = i_ftp_gar(i)
i_ftp_ink(j) = i_ftp_ink(i)
i_ftp_just(j) = i_ftp_just(i)
i_ftp_pts(j) = i_ftp_pts(i)
i_ftp_typ(j) = i_ftp_typ(i)
i_ftp_year(j) = i_ftp_year(i)
i_HasBeenWidowed(j) = i_HasBeenWidowed(i)
i_health(j) = i_health(i)
i_health_latent(j) = i_health_latent(i)
i_health_latent1(j) = i_health_latent1(i)
i_health1(j) = i_health1(i)
i_hhnr(j) = i_hhnr(i)
i_hhstatus(j) = i_hhstatus(i)
i_housetax_postponed(j) = i_housetax_postponed(i)
i_hsdropout(j) = i_hsdropout(i)
i_inc_capital(j) = i_inc_capital(i)
i_inc_earning(j) = i_inc_earning(i)
i_inc_itvariance(j) = i_inc_itvariance(i)
i_inc_ivariance(j) = i_inc_ivariance(i)
i_inc_market(j) = i_inc_market(i)
i_inc_selfemployed(j) = i_inc_selfemployed(i)
i_inc_taxable(j) = i_inc_taxable(i)
i_inc_taxable1(j) = i_inc_taxable1(i)
i_inc_taxable2(j) = i_inc_taxable2(i)
i_inc_taxable3(j) = i_inc_taxable3(i)
i_inc_taxable4(j) = i_inc_taxable4(i)
i_inc_taxable5(j) = i_inc_taxable5(i)
i_inc_taxed(j) = i_inc_taxed(i)
i_inc_work(j) = i_inc_work(i)
i_income(j) = i_income(i)
i_indnr(j) = i_indnr(i)
i_InpatientCare(j) = i_InpatientCare(i)
i_last_hh_dur(j) = i_last_hh_dur(i)
i_maintenance_paid(j) = i_maintenance_paid(i)
i_mATP_1994(j) = i_mATP_1994(i)
i_new_em(j) = i_new_em(i)
i_new_fp(j) = i_new_fp(i)
i_new_immig(j) = i_new_immig(i)
i_next_indnr(j) = i_next_indnr(i)
i_nr_prev_hh(j) = i_nr_prev_hh(i)
i_op(j) = i_op(i)
i_op_an_db_after_65(j) = i_op_an_db_after_65(i)
i_op_an_db_before_65(j) = i_op_an_db_before_65(i)
i_op_an_dc_after_65(j) = i_op_an_dc_after_65(i)
i_op_an_dc_before_65(j) = i_op_an_dc_before_65(i)
i_op_ap_db(j) = i_op_ap_db(i)
i_op_ap_dc(j) = i_op_ap_dc(i)
i_op_ap_tp(j) = i_op_ap_tp(i)
i_op_capital_value(j) = i_op_capital_value(i)
i_op_erp(j) = i_op_erp(i)
i_op_pp_years(j) = i_op_pp_years(i)
i_op_pp_years_Blue(j) = i_op_pp_years_Blue(i)
i_op_pp_years_Local(j) = i_op_pp_years_Local(i)
i_op_pp_years_State(j) = i_op_pp_years_State(i)
i_op_pp_years_trans(j) = i_op_pp_years_trans(i)
i_op_pp_years_White(j) = i_op_pp_years_White(i)
i_op_retirement_individual_effect(j) = i_op_retirement_individual_effect(i)
i_p_andel(j) = i_p_andel(i)
i_p_antman(j) = i_p_antman(i)
i_pb_fiktiv(j) = i_pb_fiktiv(i)
i_pb_ip(j) = i_pb_ip(i)
i_pb_ip1(j) = i_pb_ip1(i)
i_pb_op_ap(j) = i_pb_op_ap(i)
i_pb_op_tp(j) = i_pb_op_tp(i)
i_pb_pp(j) = i_pb_pp(i)
i_pbhi(j) = i_pbhi(i)
i_pc_care(j) = i_pc_care(i)
i_pc_childcare(j) = i_pc_childcare(i)
i_pc_elderly(j) = i_pc_elderly(i)
i_pc_high_school(j) = i_pc_high_school(i)
i_pc_labor(j) = i_pc_labor(i)
i_pc_MAE(j) = i_pc_MAE(i)
i_pc_medicine(j) = i_pc_medicine(i)
i_pc_school(j) = i_pc_school(i)
i_pc_school_adult(j) = i_pc_school_adult(i)
i_pc_total(j) = i_pc_total(i)
i_pc_univ(j) = i_pc_univ(i)
i_pgb(j) = i_pgb(i)
i_pgb_antag(j) = i_pgb_antag(i)
i_pgb_barn(j) = i_pgb_barn(i)
i_pgb_barn_typ(j) = i_pgb_barn_typ(i)
i_pgb_plikt(j) = i_pgb_plikt(i)
i_pgb_stud(j) = i_pgb_stud(i)
i_pgi(j) = i_pgi(i)
i_pgi_bas(j) = i_pgi_bas(i)
i_pgi_orange(j) = i_pgi_orange(i)
i_pgi185(j) = i_pgi185(i)
i_pp(j) = i_pp(i)
i_pp_payout_time(j) = i_pp_payout_time(i)
i_ppmkap(j) = i_ppmkap(i)
i_pr_ip(j) = i_pr_ip(i)
i_pr_ip1(j) = i_pr_ip1(i)
i_pr_op_ap(j) = i_pr_op_ap(i)
i_pr_op_tp(j) = i_pr_op_tp(i)
i_pr_pp(j) = i_pr_pp(i)
i_pr_pp1(j) = i_pr_pp1(i)
i_prob_unemployed(j) = i_prob_unemployed(i)
i_prob_working(j) = i_prob_working(i)
i_pu(j) = i_pu(i)
i_pu_ind_comp(j) = i_pu_ind_comp(i)
i_pu_orange(j) = i_pu_orange(i)
i_sarbavg_pens(j) = i_sarbavg_pens(i)
i_sector(j) = i_sector(i)
i_sector1(j) = i_sector1(i)
i_selected(j) = i_selected(i)
i_sex(j) = i_sex(i)
i_sick_ind(j) = i_sick_ind(i)
i_sick_ind1(j) = i_sick_ind1(i)
i_sick_ind2(j) = i_sick_ind2(i)
i_sick_ind3(j) = i_sick_ind3(i)
i_sick_ind4(j) = i_sick_ind4(i)
i_sick_ind5(j) = i_sick_ind5(i)
i_sick_ind6(j) = i_sick_ind6(i)
i_sickleave(j) = i_sickleave(i)
i_sickleave_ivariance(j) = i_sickleave_ivariance(i)
i_stap_ftp(j) = i_stap_ftp(i)
i_stap_trf(j) = i_stap_trf(i)
i_status(j) = i_status(i)
i_status1(j) = i_status1(i)
i_student(j) = i_student(i)
i_study_debt(j) = i_study_debt(i)
i_studyloan_repaid(j) = i_studyloan_repaid(i)
i_surv(j) = i_surv(i)
i_surv_atp(j) = i_surv_atp(i)
i_surv_fp(j) = i_surv_fp(i)
i_surv_omst(j) = i_surv_omst(i)
i_surv_year(j) = i_surv_year(i)
i_tax_capital(j) = i_tax_capital(i)
i_tax_contribution(j) = i_tax_contribution(i)
i_tax_income(j) = i_tax_income(i)
i_tax_local(j) = i_tax_local(i)
i_tax_national(j) = i_tax_national(i)
i_tax_realestate(j) = i_tax_realestate(i)
i_tax_total(j) = i_tax_total(i)
i_tax_wealth(j) = i_tax_wealth(i)
i_tax_workcredit(j) = i_tax_workcredit(i)
i_taxred_capital(j) = i_taxred_capital(i)
i_trf_btp(j) = i_trf_btp(i)
i_trf_parentleave(j) = i_trf_parentleave(i)
i_trf_pension(j) = i_trf_pension(i)
i_trf_sickleave(j) = i_trf_sickleave(i)
i_trf_skada(j) = i_trf_skada(i)
i_trf_study(j) = i_trf_study(i)
i_trf_study_grant(j) = i_trf_study_grant(i)
i_trf_study_loan(j) = i_trf_study_loan(i)
i_trf_taxable(j) = i_trf_taxable(i)
i_trf_unemployed(j) = i_trf_unemployed(i)
i_unemp_ivariance(j) = i_unemp_ivariance(i)
i_using_temp_pension(j) = i_using_temp_pension(i)
i_vard(j) = i_vard(i)
i_wealth_debt(j) = i_wealth_debt(i)
i_wealth_financial(j) = i_wealth_financial(i)
i_wealth_pension_total(j) = i_wealth_pension_total(i)
i_wealth_pension_year(j) = i_wealth_pension_year(i)
i_wealth_pension_year1(j) = i_wealth_pension_year1(i)
i_widowed(j) = i_widowed(i)
i_work_share(j) = i_work_share(i)
i_work_share1(j) = i_work_share1(i)
i_workexperience(j) = i_workexperience(i)
i_year_sep(j) = i_year_sep(i)
pp_hist(j) = pp_hist(i)
End If
Next
End Sub
Public Sub shift_up_marked_hh()
Dim i As Long
Dim j As Long
j = 0
For i = 1 To m_hcount
If mark_h(i) = 0 Then
j = j + 1
h_abroad(j) = h_abroad(i)
h_BB_region(j) = h_BB_region(i)
h_BB_region1(j) = h_BB_region1(i)
h_bvux_work(j) = h_bvux_work(i)
h_childmoveout(j) = h_childmoveout(i)
h_close_relative(j) = h_close_relative(i)
h_close_relative1(j) = h_close_relative1(i)
h_emig_year(j) = h_emig_year(i)
h_first_indnr(j) = h_first_indnr(i)
h_form_year(j) = h_form_year(i)
h_hhnr(j) = h_hhnr(i)
h_house_area(j) = h_house_area(i)
h_house_cost(j) = h_house_cost(i)
h_house_interest(j) = h_house_interest(i)
h_house_owner(j) = h_house_owner(i)
h_house_owner1(j) = h_house_owner1(i)
h_house_purchase(j) = h_house_purchase(i)
h_house_tax(j) = h_house_tax(i)
h_idx_headofhh(j) = h_idx_headofhh(i)
h_inc_capital(j) = h_inc_capital(i)
h_inc_disposable(j) = h_inc_disposable(i)
h_inc_disposable1(j) = h_inc_disposable1(i)
h_inc_market(j) = h_inc_market(i)
h_inc_work(j) = h_inc_work(i)
h_indnr_female(j) = h_indnr_female(i)
h_indnr_male(j) = h_indnr_male(i)
h_kommunindex(j) = h_kommunindex(i)
h_kommunkod(j) = h_kommunkod(i)
h_maintenance_paid(j) = h_maintenance_paid(i)
h_maintenance_received(j) = h_maintenance_received(i)
h_max_age(j) = h_max_age(i)
h_max_edlevel(j) = h_max_edlevel(i)
h_max_inc_taxable(j) = h_max_inc_taxable(i)
h_n_adults(j) = h_n_adults(i)
h_n_child(j) = h_n_child(i)
h_n_child1(j) = h_n_child1(i)
h_n_childlt12(j) = h_n_childlt12(i)
h_n_childlt7(j) = h_n_childlt7(i)
h_n_ge18(j) = h_n_ge18(i)
h_new_housing(j) = h_new_housing(i)
h_new_housing1(j) = h_new_housing1(i)
h_new_immig(j) = h_new_immig(i)
h_selected(j) = h_selected(i)
h_size(j) = h_size(i)
h_studyloan_repaid(j) = h_studyloan_repaid(i)
h_sum_inc_taxable(j) = h_sum_inc_taxable(i)
h_sum_inc_taxable1(j) = h_sum_inc_taxable1(i)
h_tax_realestate(j) = h_tax_realestate(i)
h_tax_total(j) = h_tax_total(i)
h_trf_btp(j) = h_trf_btp(i)
h_trf_childallowance(j) = h_trf_childallowance(i)
h_trf_housingallowance(j) = h_trf_housingallowance(i)
h_trf_pension(j) = h_trf_pension(i)
h_trf_socialassistance(j) = h_trf_socialassistance(i)
h_trf_study(j) = h_trf_study(i)
h_trf_taxable(j) = h_trf_taxable(i)
h_trf_taxfree(j) = h_trf_taxfree(i)
h_wealth_CapitalGain(j) = h_wealth_CapitalGain(i)
h_wealth_debt(j) = h_wealth_debt(i)
h_wealth_debt_GLS1vc(j) = h_wealth_debt_GLS1vc(i)
h_wealth_debt_GLS2vc(j) = h_wealth_debt_GLS2vc(i)
h_wealth_debt_interest(j) = h_wealth_debt_interest(i)
h_wealth_debt_interest_varcomp_p(j) = h_wealth_debt_interest_varcomp_p(i)
h_wealth_debt_interest_varcomp_r(j) = h_wealth_debt_interest_varcomp_r(i)
h_wealth_debt_interest1(j) = h_wealth_debt_interest1(i)
h_wealth_debt_interestrate(j) = h_wealth_debt_interestrate(i)
h_wealth_debt_interestrate1(j) = h_wealth_debt_interestrate1(i)
h_wealth_debt_probit1vc(j) = h_wealth_debt_probit1vc(i)
h_wealth_debt_probit2vc(j) = h_wealth_debt_probit2vc(i)
h_wealth_debt_varcomp(j) = h_wealth_debt_varcomp(i)
h_wealth_debt1(j) = h_wealth_debt1(i)
h_wealth_DebtInterest_ind(j) = h_wealth_DebtInterest_ind(i)
h_wealth_DebtInterest_ind1(j) = h_wealth_DebtInterest_ind1(i)
h_wealth_financial(j) = h_wealth_financial(i)
h_wealth_financial_sales(j) = h_wealth_financial_sales(i)
h_wealth_financial_varcomp(j) = h_wealth_financial_varcomp(i)
h_wealth_financial1(j) = h_wealth_financial1(i)
h_wealth_InterestDividends(j) = h_wealth_InterestDividends(i)
h_wealth_real(j) = h_wealth_real(i)
h_wealth_real_home(j) = h_wealth_real_home(i)
h_wealth_real_home1(j) = h_wealth_real_home1(i)
h_wealth_real_other(j) = h_wealth_real_other(i)
h_wealth_real_other1(j) = h_wealth_real_other1(i)
End If
Next
End Sub
Public Sub shift_up_hh(ifrom As Long, itom as long)
Dim i As Long
For i=ifrom to itom
h_abroad(i) = h_abroad(i+1)
h_BB_region(i) = h_BB_region(i+1)
h_BB_region1(i) = h_BB_region1(i+1)
h_bvux_work(i) = h_bvux_work(i+1)
h_childmoveout(i) = h_childmoveout(i+1)
h_close_relative(i) = h_close_relative(i+1)
h_close_relative1(i) = h_close_relative1(i+1)
h_emig_year(i) = h_emig_year(i+1)
h_first_indnr(i) = h_first_indnr(i+1)
h_form_year(i) = h_form_year(i+1)
h_hhnr(i) = h_hhnr(i+1)
h_house_area(i) = h_house_area(i+1)
h_house_cost(i) = h_house_cost(i+1)
h_house_interest(i) = h_house_interest(i+1)
h_house_owner(i) = h_house_owner(i+1)
h_house_owner1(i) = h_house_owner1(i+1)
h_house_purchase(i) = h_house_purchase(i+1)
h_house_tax(i) = h_house_tax(i+1)
h_idx_headofhh(i) = h_idx_headofhh(i+1)
h_inc_capital(i) = h_inc_capital(i+1)
h_inc_disposable(i) = h_inc_disposable(i+1)
h_inc_disposable1(i) = h_inc_disposable1(i+1)
h_inc_market(i) = h_inc_market(i+1)
h_inc_work(i) = h_inc_work(i+1)
h_indnr_female(i) = h_indnr_female(i+1)
h_indnr_male(i) = h_indnr_male(i+1)
h_kommunindex(i) = h_kommunindex(i+1)
h_kommunkod(i) = h_kommunkod(i+1)
h_maintenance_paid(i) = h_maintenance_paid(i+1)
h_maintenance_received(i) = h_maintenance_received(i+1)
h_max_age(i) = h_max_age(i+1)
h_max_edlevel(i) = h_max_edlevel(i+1)
h_max_inc_taxable(i) = h_max_inc_taxable(i+1)
h_n_adults(i) = h_n_adults(i+1)
h_n_child(i) = h_n_child(i+1)
h_n_child1(i) = h_n_child1(i+1)
h_n_childlt12(i) = h_n_childlt12(i+1)
h_n_childlt7(i) = h_n_childlt7(i+1)
h_n_ge18(i) = h_n_ge18(i+1)
h_new_housing(i) = h_new_housing(i+1)
h_new_housing1(i) = h_new_housing1(i+1)
h_new_immig(i) = h_new_immig(i+1)
h_selected(i) = h_selected(i+1)
h_size(i) = h_size(i+1)
h_studyloan_repaid(i) = h_studyloan_repaid(i+1)
h_sum_inc_taxable(i) = h_sum_inc_taxable(i+1)
h_sum_inc_taxable1(i) = h_sum_inc_taxable1(i+1)
h_tax_realestate(i) = h_tax_realestate(i+1)
h_tax_total(i) = h_tax_total(i+1)
h_trf_btp(i) = h_trf_btp(i+1)
h_trf_childallowance(i) = h_trf_childallowance(i+1)
h_trf_housingallowance(i) = h_trf_housingallowance(i+1)
h_trf_pension(i) = h_trf_pension(i+1)
h_trf_socialassistance(i) = h_trf_socialassistance(i+1)
h_trf_study(i) = h_trf_study(i+1)
h_trf_taxable(i) = h_trf_taxable(i+1)
h_trf_taxfree(i) = h_trf_taxfree(i+1)
h_wealth_CapitalGain(i) = h_wealth_CapitalGain(i+1)
h_wealth_debt(i) = h_wealth_debt(i+1)
h_wealth_debt_GLS1vc(i) = h_wealth_debt_GLS1vc(i+1)
h_wealth_debt_GLS2vc(i) = h_wealth_debt_GLS2vc(i+1)
h_wealth_debt_interest(i) = h_wealth_debt_interest(i+1)
h_wealth_debt_interest_varcomp_p(i) = h_wealth_debt_interest_varcomp_p(i+1)
h_wealth_debt_interest_varcomp_r(i) = h_wealth_debt_interest_varcomp_r(i+1)
h_wealth_debt_interest1(i) = h_wealth_debt_interest1(i+1)
h_wealth_debt_interestrate(i) = h_wealth_debt_interestrate(i+1)
h_wealth_debt_interestrate1(i) = h_wealth_debt_interestrate1(i+1)
h_wealth_debt_probit1vc(i) = h_wealth_debt_probit1vc(i+1)
h_wealth_debt_probit2vc(i) = h_wealth_debt_probit2vc(i+1)
h_wealth_debt_varcomp(i) = h_wealth_debt_varcomp(i+1)
h_wealth_debt1(i) = h_wealth_debt1(i+1)
h_wealth_DebtInterest_ind(i) = h_wealth_DebtInterest_ind(i+1)
h_wealth_DebtInterest_ind1(i) = h_wealth_DebtInterest_ind1(i+1)
h_wealth_financial(i) = h_wealth_financial(i+1)
h_wealth_financial_sales(i) = h_wealth_financial_sales(i+1)
h_wealth_financial_varcomp(i) = h_wealth_financial_varcomp(i+1)
h_wealth_financial1(i) = h_wealth_financial1(i+1)
h_wealth_InterestDividends(i) = h_wealth_InterestDividends(i+1)
h_wealth_real(i) = h_wealth_real(i+1)
h_wealth_real_home(i) = h_wealth_real_home(i+1)
h_wealth_real_home1(i) = h_wealth_real_home1(i+1)
h_wealth_real_other(i) = h_wealth_real_other(i+1)
h_wealth_real_other1(i) = h_wealth_real_other1(i+1)
Next
End Sub
Public Sub copy_individ_var(from_indinr, to_indinr)
i_aap(indnr2index(to_indinr)) = i_aap(indnr2index(from_indinr))
i_abroad(indnr2index(to_indinr)) = i_abroad(indnr2index(from_indinr))
i_ADL(indnr2index(to_indinr)) = i_ADL(indnr2index(from_indinr))
i_ADL_rnd(indnr2index(to_indinr)) = i_ADL_rnd(indnr2index(from_indinr))
i_age(indnr2index(to_indinr)) = i_age(indnr2index(from_indinr))
i_ap(indnr2index(to_indinr)) = i_ap(indnr2index(from_indinr))
i_ap_ap(indnr2index(to_indinr)) = i_ap_ap(indnr2index(from_indinr))
i_ap_atp(indnr2index(to_indinr)) = i_ap_atp(indnr2index(from_indinr))
i_ap_atp_1994(indnr2index(to_indinr)) = i_ap_atp_1994(indnr2index(from_indinr))
i_ap_atp_old(indnr2index(to_indinr)) = i_ap_atp_old(indnr2index(from_indinr))
i_ap_atp_ut(indnr2index(to_indinr)) = i_ap_atp_ut(indnr2index(from_indinr))
i_ap_fiktiv(indnr2index(to_indinr)) = i_ap_fiktiv(indnr2index(from_indinr))
i_ap_fp(indnr2index(to_indinr)) = i_ap_fp(indnr2index(from_indinr))
i_ap_fp30(indnr2index(to_indinr)) = i_ap_fp30(indnr2index(from_indinr))
i_ap_fp30_1994(indnr2index(to_indinr)) = i_ap_fp30_1994(indnr2index(from_indinr))
i_ap_fp30_ut(indnr2index(to_indinr)) = i_ap_fp30_ut(indnr2index(from_indinr))
i_ap_gartill(indnr2index(to_indinr)) = i_ap_gartill(indnr2index(from_indinr))
i_ap_gp(indnr2index(to_indinr)) = i_ap_gp(indnr2index(from_indinr))
i_ap_ip(indnr2index(to_indinr)) = i_ap_ip(indnr2index(from_indinr))
i_ap_ip_ut(indnr2index(to_indinr)) = i_ap_ip_ut(indnr2index(from_indinr))
i_ap_ip1(indnr2index(to_indinr)) = i_ap_ip1(indnr2index(from_indinr))
i_ap_pensmonth(indnr2index(to_indinr)) = i_ap_pensmonth(indnr2index(from_indinr))
i_ap_pp(indnr2index(to_indinr)) = i_ap_pp(indnr2index(from_indinr))
i_ap_pp_ut(indnr2index(to_indinr)) = i_ap_pp_ut(indnr2index(from_indinr))
i_ap_pts(indnr2index(to_indinr)) = i_ap_pts(indnr2index(from_indinr))
i_ap_tp(indnr2index(to_indinr)) = i_ap_tp(indnr2index(from_indinr))
i_ap_tp_ut(indnr2index(to_indinr)) = i_ap_tp_ut(indnr2index(from_indinr))
i_arbavg(indnr2index(to_indinr)) = i_arbavg(indnr2index(from_indinr))
i_arbavg_akas(indnr2index(to_indinr)) = i_arbavg_akas(indnr2index(from_indinr))
i_arbavg_alon(indnr2index(to_indinr)) = i_arbavg_alon(indnr2index(from_indinr))
i_arbavg_arsk(indnr2index(to_indinr)) = i_arbavg_arsk(indnr2index(from_indinr))
i_arbavg_eft(indnr2index(to_indinr)) = i_arbavg_eft(indnr2index(from_indinr))
i_arbavg_forp(indnr2index(to_indinr)) = i_arbavg_forp(indnr2index(from_indinr))
i_arbavg_pens(indnr2index(to_indinr)) = i_arbavg_pens(indnr2index(from_indinr))
i_arbavg_sjuk(indnr2index(to_indinr)) = i_arbavg_sjuk(indnr2index(from_indinr))
i_arbavg_slon(indnr2index(to_indinr)) = i_arbavg_slon(indnr2index(from_indinr))
i_arbavg_slon38(indnr2index(to_indinr)) = i_arbavg_slon38(indnr2index(from_indinr))
i_assistance_elderly(indnr2index(to_indinr)) = i_assistance_elderly(indnr2index(from_indinr))
i_ATP_ar_1994(indnr2index(to_indinr)) = i_ATP_ar_1994(indnr2index(from_indinr))
i_avg(indnr2index(to_indinr)) = i_avg(indnr2index(from_indinr))
i_avg_aap(indnr2index(to_indinr)) = i_avg_aap(indnr2index(from_indinr))
i_avg_ftp(indnr2index(to_indinr)) = i_avg_ftp(indnr2index(from_indinr))
i_avg_inc_at_retirement(indnr2index(to_indinr)) = i_avg_inc_at_retirement(indnr2index(from_indinr))
i_avg_income_1997(indnr2index(to_indinr)) = i_avg_income_1997(indnr2index(from_indinr))
i_avg_ip(indnr2index(to_indinr)) = i_avg_ip(indnr2index(from_indinr))
i_avg_ip2(indnr2index(to_indinr)) = i_avg_ip2(indnr2index(from_indinr))
i_avg_pgb(indnr2index(to_indinr)) = i_avg_pgb(indnr2index(from_indinr))
i_avg_stap(indnr2index(to_indinr)) = i_avg_stap(indnr2index(from_indinr))
i_avg_trf(indnr2index(to_indinr)) = i_avg_trf(indnr2index(from_indinr))
i_avg2(indnr2index(to_indinr)) = i_avg2(indnr2index(from_indinr))
i_BB_region(indnr2index(to_indinr)) = i_BB_region(indnr2index(from_indinr))
i_bidnr(indnr2index(to_indinr)) = i_bidnr(indnr2index(from_indinr))
i_binvar(indnr2index(to_indinr)) = i_binvar(indnr2index(from_indinr))
i_born_abroad(indnr2index(to_indinr)) = i_born_abroad(indnr2index(from_indinr))
i_born_year(indnr2index(to_indinr)) = i_born_year(indnr2index(from_indinr))
i_botid(indnr2index(to_indinr)) = i_botid(indnr2index(from_indinr))
i_bvux(indnr2index(to_indinr)) = i_bvux(indnr2index(from_indinr))
i_bvux1(indnr2index(to_indinr)) = i_bvux1(indnr2index(from_indinr))
i_civ_stat(indnr2index(to_indinr)) = i_civ_stat(indnr2index(from_indinr))
i_civ_stat1(indnr2index(to_indinr)) = i_civ_stat1(indnr2index(from_indinr))
i_edlevel(indnr2index(to_indinr)) = i_edlevel(indnr2index(from_indinr))
i_edyears(indnr2index(to_indinr)) = i_edyears(indnr2index(from_indinr))
i_emig_year(indnr2index(to_indinr)) = i_emig_year(indnr2index(from_indinr))
i_ftp(indnr2index(to_indinr)) = i_ftp(indnr2index(from_indinr))
i_ftp_64(indnr2index(to_indinr)) = i_ftp_64(indnr2index(from_indinr))
i_ftp_antag(indnr2index(to_indinr)) = i_ftp_antag(indnr2index(from_indinr))
i_ftp_atp(indnr2index(to_indinr)) = i_ftp_atp(indnr2index(from_indinr))
i_ftp_fp(indnr2index(to_indinr)) = i_ftp_fp(indnr2index(from_indinr))
i_ftp_gar(indnr2index(to_indinr)) = i_ftp_gar(indnr2index(from_indinr))
i_ftp_ink(indnr2index(to_indinr)) = i_ftp_ink(indnr2index(from_indinr))
i_ftp_just(indnr2index(to_indinr)) = i_ftp_just(indnr2index(from_indinr))
i_ftp_pts(indnr2index(to_indinr)) = i_ftp_pts(indnr2index(from_indinr))
i_ftp_typ(indnr2index(to_indinr)) = i_ftp_typ(indnr2index(from_indinr))
i_ftp_year(indnr2index(to_indinr)) = i_ftp_year(indnr2index(from_indinr))
i_HasBeenWidowed(indnr2index(to_indinr)) = i_HasBeenWidowed(indnr2index(from_indinr))
i_health(indnr2index(to_indinr)) = i_health(indnr2index(from_indinr))
i_health_latent(indnr2index(to_indinr)) = i_health_latent(indnr2index(from_indinr))
i_health_latent1(indnr2index(to_indinr)) = i_health_latent1(indnr2index(from_indinr))
i_health1(indnr2index(to_indinr)) = i_health1(indnr2index(from_indinr))
i_hhstatus(indnr2index(to_indinr)) = i_hhstatus(indnr2index(from_indinr))
i_housetax_postponed(indnr2index(to_indinr)) = i_housetax_postponed(indnr2index(from_indinr))
i_hsdropout(indnr2index(to_indinr)) = i_hsdropout(indnr2index(from_indinr))
i_inc_capital(indnr2index(to_indinr)) = i_inc_capital(indnr2index(from_indinr))
i_inc_earning(indnr2index(to_indinr)) = i_inc_earning(indnr2index(from_indinr))
i_inc_itvariance(indnr2index(to_indinr)) = i_inc_itvariance(indnr2index(from_indinr))
i_inc_ivariance(indnr2index(to_indinr)) = i_inc_ivariance(indnr2index(from_indinr))
i_inc_market(indnr2index(to_indinr)) = i_inc_market(indnr2index(from_indinr))
i_inc_selfemployed(indnr2index(to_indinr)) = i_inc_selfemployed(indnr2index(from_indinr))
i_inc_taxable(indnr2index(to_indinr)) = i_inc_taxable(indnr2index(from_indinr))
i_inc_taxable1(indnr2index(to_indinr)) = i_inc_taxable1(indnr2index(from_indinr))
i_inc_taxable2(indnr2index(to_indinr)) = i_inc_taxable2(indnr2index(from_indinr))
i_inc_taxable3(indnr2index(to_indinr)) = i_inc_taxable3(indnr2index(from_indinr))
i_inc_taxable4(indnr2index(to_indinr)) = i_inc_taxable4(indnr2index(from_indinr))
i_inc_taxable5(indnr2index(to_indinr)) = i_inc_taxable5(indnr2index(from_indinr))
i_inc_taxed(indnr2index(to_indinr)) = i_inc_taxed(indnr2index(from_indinr))
i_inc_work(indnr2index(to_indinr)) = i_inc_work(indnr2index(from_indinr))
i_income(indnr2index(to_indinr)) = i_income(indnr2index(from_indinr))
i_InpatientCare(indnr2index(to_indinr)) = i_InpatientCare(indnr2index(from_indinr))
i_last_hh_dur(indnr2index(to_indinr)) = i_last_hh_dur(indnr2index(from_indinr))
i_maintenance_paid(indnr2index(to_indinr)) = i_maintenance_paid(indnr2index(from_indinr))
i_mATP_1994(indnr2index(to_indinr)) = i_mATP_1994(indnr2index(from_indinr))
i_new_em(indnr2index(to_indinr)) = i_new_em(indnr2index(from_indinr))
i_new_fp(indnr2index(to_indinr)) = i_new_fp(indnr2index(from_indinr))
i_new_immig(indnr2index(to_indinr)) = i_new_immig(indnr2index(from_indinr))
i_nr_prev_hh(indnr2index(to_indinr)) = i_nr_prev_hh(indnr2index(from_indinr))
i_op(indnr2index(to_indinr)) = i_op(indnr2index(from_indinr))
i_op_an_db_after_65(indnr2index(to_indinr)) = i_op_an_db_after_65(indnr2index(from_indinr))
i_op_an_db_before_65(indnr2index(to_indinr)) = i_op_an_db_before_65(indnr2index(from_indinr))
i_op_an_dc_after_65(indnr2index(to_indinr)) = i_op_an_dc_after_65(indnr2index(from_indinr))
i_op_an_dc_before_65(indnr2index(to_indinr)) = i_op_an_dc_before_65(indnr2index(from_indinr))
i_op_ap_db(indnr2index(to_indinr)) = i_op_ap_db(indnr2index(from_indinr))
i_op_ap_dc(indnr2index(to_indinr)) = i_op_ap_dc(indnr2index(from_indinr))
i_op_ap_tp(indnr2index(to_indinr)) = i_op_ap_tp(indnr2index(from_indinr))
i_op_capital_value(indnr2index(to_indinr)) = i_op_capital_value(indnr2index(from_indinr))
i_op_erp(indnr2index(to_indinr)) = i_op_erp(indnr2index(from_indinr))
i_op_pp_years(indnr2index(to_indinr)) = i_op_pp_years(indnr2index(from_indinr))
i_op_pp_years_Blue(indnr2index(to_indinr)) = i_op_pp_years_Blue(indnr2index(from_indinr))
i_op_pp_years_Local(indnr2index(to_indinr)) = i_op_pp_years_Local(indnr2index(from_indinr))
i_op_pp_years_State(indnr2index(to_indinr)) = i_op_pp_years_State(indnr2index(from_indinr))
i_op_pp_years_trans(indnr2index(to_indinr)) = i_op_pp_years_trans(indnr2index(from_indinr))
i_op_pp_years_White(indnr2index(to_indinr)) = i_op_pp_years_White(indnr2index(from_indinr))
i_op_retirement_individual_effect(indnr2index(to_indinr)) = i_op_retirement_individual_effect(indnr2index(from_indinr))
i_p_andel(indnr2index(to_indinr)) = i_p_andel(indnr2index(from_indinr))
i_p_antman(indnr2index(to_indinr)) = i_p_antman(indnr2index(from_indinr))
i_pb_fiktiv(indnr2index(to_indinr)) = i_pb_fiktiv(indnr2index(from_indinr))
i_pb_ip(indnr2index(to_indinr)) = i_pb_ip(indnr2index(from_indinr))
i_pb_ip1(indnr2index(to_indinr)) = i_pb_ip1(indnr2index(from_indinr))
i_pb_op_ap(indnr2index(to_indinr)) = i_pb_op_ap(indnr2index(from_indinr))
i_pb_op_tp(indnr2index(to_indinr)) = i_pb_op_tp(indnr2index(from_indinr))
i_pb_pp(indnr2index(to_indinr)) = i_pb_pp(indnr2index(from_indinr))
i_pbhi(indnr2index(to_indinr)) = i_pbhi(indnr2index(from_indinr))
i_pc_care(indnr2index(to_indinr)) = i_pc_care(indnr2index(from_indinr))
i_pc_childcare(indnr2index(to_indinr)) = i_pc_childcare(indnr2index(from_indinr))
i_pc_elderly(indnr2index(to_indinr)) = i_pc_elderly(indnr2index(from_indinr))
i_pc_high_school(indnr2index(to_indinr)) = i_pc_high_school(indnr2index(from_indinr))
i_pc_labor(indnr2index(to_indinr)) = i_pc_labor(indnr2index(from_indinr))
i_pc_MAE(indnr2index(to_indinr)) = i_pc_MAE(indnr2index(from_indinr))
i_pc_medicine(indnr2index(to_indinr)) = i_pc_medicine(indnr2index(from_indinr))
i_pc_school(indnr2index(to_indinr)) = i_pc_school(indnr2index(from_indinr))
i_pc_school_adult(indnr2index(to_indinr)) = i_pc_school_adult(indnr2index(from_indinr))
i_pc_total(indnr2index(to_indinr)) = i_pc_total(indnr2index(from_indinr))
i_pc_univ(indnr2index(to_indinr)) = i_pc_univ(indnr2index(from_indinr))
i_pgb(indnr2index(to_indinr)) = i_pgb(indnr2index(from_indinr))
i_pgb_antag(indnr2index(to_indinr)) = i_pgb_antag(indnr2index(from_indinr))
i_pgb_barn(indnr2index(to_indinr)) = i_pgb_barn(indnr2index(from_indinr))
i_pgb_barn_typ(indnr2index(to_indinr)) = i_pgb_barn_typ(indnr2index(from_indinr))
i_pgb_plikt(indnr2index(to_indinr)) = i_pgb_plikt(indnr2index(from_indinr))
i_pgb_stud(indnr2index(to_indinr)) = i_pgb_stud(indnr2index(from_indinr))
i_pgi(indnr2index(to_indinr)) = i_pgi(indnr2index(from_indinr))
i_pgi_bas(indnr2index(to_indinr)) = i_pgi_bas(indnr2index(from_indinr))
i_pgi_orange(indnr2index(to_indinr)) = i_pgi_orange(indnr2index(from_indinr))
i_pgi185(indnr2index(to_indinr)) = i_pgi185(indnr2index(from_indinr))
i_pp(indnr2index(to_indinr)) = i_pp(indnr2index(from_indinr))
i_pp_payout_time(indnr2index(to_indinr)) = i_pp_payout_time(indnr2index(from_indinr))
i_ppmkap(indnr2index(to_indinr)) = i_ppmkap(indnr2index(from_indinr))
i_pr_ip(indnr2index(to_indinr)) = i_pr_ip(indnr2index(from_indinr))
i_pr_ip1(indnr2index(to_indinr)) = i_pr_ip1(indnr2index(from_indinr))
i_pr_op_ap(indnr2index(to_indinr)) = i_pr_op_ap(indnr2index(from_indinr))
i_pr_op_tp(indnr2index(to_indinr)) = i_pr_op_tp(indnr2index(from_indinr))
i_pr_pp(indnr2index(to_indinr)) = i_pr_pp(indnr2index(from_indinr))
i_pr_pp1(indnr2index(to_indinr)) = i_pr_pp1(indnr2index(from_indinr))
i_prob_unemployed(indnr2index(to_indinr)) = i_prob_unemployed(indnr2index(from_indinr))
i_prob_working(indnr2index(to_indinr)) = i_prob_working(indnr2index(from_indinr))
i_pu(indnr2index(to_indinr)) = i_pu(indnr2index(from_indinr))
i_pu_ind_comp(indnr2index(to_indinr)) = i_pu_ind_comp(indnr2index(from_indinr))
i_pu_orange(indnr2index(to_indinr)) = i_pu_orange(indnr2index(from_indinr))
i_sarbavg_pens(indnr2index(to_indinr)) = i_sarbavg_pens(indnr2index(from_indinr))
i_sector(indnr2index(to_indinr)) = i_sector(indnr2index(from_indinr))
i_sector1(indnr2index(to_indinr)) = i_sector1(indnr2index(from_indinr))
i_selected(indnr2index(to_indinr)) = i_selected(indnr2index(from_indinr))
i_sex(indnr2index(to_indinr)) = i_sex(indnr2index(from_indinr))
i_sick_ind(indnr2index(to_indinr)) = i_sick_ind(indnr2index(from_indinr))
i_sick_ind1(indnr2index(to_indinr)) = i_sick_ind1(indnr2index(from_indinr))
i_sick_ind2(indnr2index(to_indinr)) = i_sick_ind2(indnr2index(from_indinr))
i_sick_ind3(indnr2index(to_indinr)) = i_sick_ind3(indnr2index(from_indinr))
i_sick_ind4(indnr2index(to_indinr)) = i_sick_ind4(indnr2index(from_indinr))
i_sick_ind5(indnr2index(to_indinr)) = i_sick_ind5(indnr2index(from_indinr))
i_sick_ind6(indnr2index(to_indinr)) = i_sick_ind6(indnr2index(from_indinr))
i_sickleave(indnr2index(to_indinr)) = i_sickleave(indnr2index(from_indinr))
i_sickleave_ivariance(indnr2index(to_indinr)) = i_sickleave_ivariance(indnr2index(from_indinr))
i_stap_ftp(indnr2index(to_indinr)) = i_stap_ftp(indnr2index(from_indinr))
i_stap_trf(indnr2index(to_indinr)) = i_stap_trf(indnr2index(from_indinr))
i_status(indnr2index(to_indinr)) = i_status(indnr2index(from_indinr))
i_status1(indnr2index(to_indinr)) = i_status1(indnr2index(from_indinr))
i_student(indnr2index(to_indinr)) = i_student(indnr2index(from_indinr))
i_study_debt(indnr2index(to_indinr)) = i_study_debt(indnr2index(from_indinr))
i_studyloan_repaid(indnr2index(to_indinr)) = i_studyloan_repaid(indnr2index(from_indinr))
i_surv(indnr2index(to_indinr)) = i_surv(indnr2index(from_indinr))
i_surv_atp(indnr2index(to_indinr)) = i_surv_atp(indnr2index(from_indinr))
i_surv_fp(indnr2index(to_indinr)) = i_surv_fp(indnr2index(from_indinr))
i_surv_omst(indnr2index(to_indinr)) = i_surv_omst(indnr2index(from_indinr))
i_surv_year(indnr2index(to_indinr)) = i_surv_year(indnr2index(from_indinr))
i_tax_capital(indnr2index(to_indinr)) = i_tax_capital(indnr2index(from_indinr))
i_tax_contribution(indnr2index(to_indinr)) = i_tax_contribution(indnr2index(from_indinr))
i_tax_income(indnr2index(to_indinr)) = i_tax_income(indnr2index(from_indinr))
i_tax_local(indnr2index(to_indinr)) = i_tax_local(indnr2index(from_indinr))
i_tax_national(indnr2index(to_indinr)) = i_tax_national(indnr2index(from_indinr))
i_tax_realestate(indnr2index(to_indinr)) = i_tax_realestate(indnr2index(from_indinr))
i_tax_total(indnr2index(to_indinr)) = i_tax_total(indnr2index(from_indinr))
i_tax_wealth(indnr2index(to_indinr)) = i_tax_wealth(indnr2index(from_indinr))
i_tax_workcredit(indnr2index(to_indinr)) = i_tax_workcredit(indnr2index(from_indinr))
i_taxred_capital(indnr2index(to_indinr)) = i_taxred_capital(indnr2index(from_indinr))
i_trf_btp(indnr2index(to_indinr)) = i_trf_btp(indnr2index(from_indinr))
i_trf_parentleave(indnr2index(to_indinr)) = i_trf_parentleave(indnr2index(from_indinr))
i_trf_pension(indnr2index(to_indinr)) = i_trf_pension(indnr2index(from_indinr))
i_trf_sickleave(indnr2index(to_indinr)) = i_trf_sickleave(indnr2index(from_indinr))
i_trf_skada(indnr2index(to_indinr)) = i_trf_skada(indnr2index(from_indinr))
i_trf_study(indnr2index(to_indinr)) = i_trf_study(indnr2index(from_indinr))
i_trf_study_grant(indnr2index(to_indinr)) = i_trf_study_grant(indnr2index(from_indinr))
i_trf_study_loan(indnr2index(to_indinr)) = i_trf_study_loan(indnr2index(from_indinr))
i_trf_taxable(indnr2index(to_indinr)) = i_trf_taxable(indnr2index(from_indinr))
i_trf_unemployed(indnr2index(to_indinr)) = i_trf_unemployed(indnr2index(from_indinr))
i_unemp_ivariance(indnr2index(to_indinr)) = i_unemp_ivariance(indnr2index(from_indinr))
i_using_temp_pension(indnr2index(to_indinr)) = i_using_temp_pension(indnr2index(from_indinr))
i_vard(indnr2index(to_indinr)) = i_vard(indnr2index(from_indinr))
i_wealth_debt(indnr2index(to_indinr)) = i_wealth_debt(indnr2index(from_indinr))
i_wealth_financial(indnr2index(to_indinr)) = i_wealth_financial(indnr2index(from_indinr))
i_wealth_pension_total(indnr2index(to_indinr)) = i_wealth_pension_total(indnr2index(from_indinr))
i_wealth_pension_year(indnr2index(to_indinr)) = i_wealth_pension_year(indnr2index(from_indinr))
i_wealth_pension_year1(indnr2index(to_indinr)) = i_wealth_pension_year1(indnr2index(from_indinr))
i_widowed(indnr2index(to_indinr)) = i_widowed(indnr2index(from_indinr))
i_work_share(indnr2index(to_indinr)) = i_work_share(indnr2index(from_indinr))
i_work_share1(indnr2index(to_indinr)) = i_work_share1(indnr2index(from_indinr))
i_workexperience(indnr2index(to_indinr)) = i_workexperience(indnr2index(from_indinr))
i_year_sep(indnr2index(to_indinr)) = i_year_sep(indnr2index(from_indinr))
pp_hist(indnr2index(to_indinr)) = pp_hist(indnr2index(from_indinr))
End Sub
Public Sub copy_household_var(from_hhnr, to_hhnr)
h_abroad(hhnr2index(to_hhnr)) = h_abroad(hhnr2index(from_hhnr))
h_BB_region(hhnr2index(to_hhnr)) = h_BB_region(hhnr2index(from_hhnr))
h_BB_region1(hhnr2index(to_hhnr)) = h_BB_region1(hhnr2index(from_hhnr))
h_bvux_work(hhnr2index(to_hhnr)) = h_bvux_work(hhnr2index(from_hhnr))
h_childmoveout(hhnr2index(to_hhnr)) = h_childmoveout(hhnr2index(from_hhnr))
h_close_relative(hhnr2index(to_hhnr)) = h_close_relative(hhnr2index(from_hhnr))
h_close_relative1(hhnr2index(to_hhnr)) = h_close_relative1(hhnr2index(from_hhnr))
h_emig_year(hhnr2index(to_hhnr)) = h_emig_year(hhnr2index(from_hhnr))
h_form_year(hhnr2index(to_hhnr)) = h_form_year(hhnr2index(from_hhnr))
h_house_area(hhnr2index(to_hhnr)) = h_house_area(hhnr2index(from_hhnr))
h_house_cost(hhnr2index(to_hhnr)) = h_house_cost(hhnr2index(from_hhnr))
h_house_interest(hhnr2index(to_hhnr)) = h_house_interest(hhnr2index(from_hhnr))
h_house_owner(hhnr2index(to_hhnr)) = h_house_owner(hhnr2index(from_hhnr))
h_house_owner1(hhnr2index(to_hhnr)) = h_house_owner1(hhnr2index(from_hhnr))
h_house_purchase(hhnr2index(to_hhnr)) = h_house_purchase(hhnr2index(from_hhnr))
h_house_tax(hhnr2index(to_hhnr)) = h_house_tax(hhnr2index(from_hhnr))
h_idx_headofhh(hhnr2index(to_hhnr)) = h_idx_headofhh(hhnr2index(from_hhnr))
h_inc_capital(hhnr2index(to_hhnr)) = h_inc_capital(hhnr2index(from_hhnr))
h_inc_disposable(hhnr2index(to_hhnr)) = h_inc_disposable(hhnr2index(from_hhnr))
h_inc_disposable1(hhnr2index(to_hhnr)) = h_inc_disposable1(hhnr2index(from_hhnr))
h_inc_market(hhnr2index(to_hhnr)) = h_inc_market(hhnr2index(from_hhnr))
h_inc_work(hhnr2index(to_hhnr)) = h_inc_work(hhnr2index(from_hhnr))
h_indnr_female(hhnr2index(to_hhnr)) = h_indnr_female(hhnr2index(from_hhnr))
h_indnr_male(hhnr2index(to_hhnr)) = h_indnr_male(hhnr2index(from_hhnr))
h_kommunindex(hhnr2index(to_hhnr)) = h_kommunindex(hhnr2index(from_hhnr))
h_kommunkod(hhnr2index(to_hhnr)) = h_kommunkod(hhnr2index(from_hhnr))
h_maintenance_paid(hhnr2index(to_hhnr)) = h_maintenance_paid(hhnr2index(from_hhnr))
h_maintenance_received(hhnr2index(to_hhnr)) = h_maintenance_received(hhnr2index(from_hhnr))
h_max_age(hhnr2index(to_hhnr)) = h_max_age(hhnr2index(from_hhnr))
h_max_edlevel(hhnr2index(to_hhnr)) = h_max_edlevel(hhnr2index(from_hhnr))
h_max_inc_taxable(hhnr2index(to_hhnr)) = h_max_inc_taxable(hhnr2index(from_hhnr))
h_n_adults(hhnr2index(to_hhnr)) = h_n_adults(hhnr2index(from_hhnr))
h_n_child(hhnr2index(to_hhnr)) = h_n_child(hhnr2index(from_hhnr))
h_n_child1(hhnr2index(to_hhnr)) = h_n_child1(hhnr2index(from_hhnr))
h_n_childlt12(hhnr2index(to_hhnr)) = h_n_childlt12(hhnr2index(from_hhnr))
h_n_childlt7(hhnr2index(to_hhnr)) = h_n_childlt7(hhnr2index(from_hhnr))
h_n_ge18(hhnr2index(to_hhnr)) = h_n_ge18(hhnr2index(from_hhnr))
h_new_housing(hhnr2index(to_hhnr)) = h_new_housing(hhnr2index(from_hhnr))
h_new_housing1(hhnr2index(to_hhnr)) = h_new_housing1(hhnr2index(from_hhnr))
h_new_immig(hhnr2index(to_hhnr)) = h_new_immig(hhnr2index(from_hhnr))
h_selected(hhnr2index(to_hhnr)) = h_selected(hhnr2index(from_hhnr))
h_size(hhnr2index(to_hhnr)) = h_size(hhnr2index(from_hhnr))
h_studyloan_repaid(hhnr2index(to_hhnr)) = h_studyloan_repaid(hhnr2index(from_hhnr))
h_sum_inc_taxable(hhnr2index(to_hhnr)) = h_sum_inc_taxable(hhnr2index(from_hhnr))
h_sum_inc_taxable1(hhnr2index(to_hhnr)) = h_sum_inc_taxable1(hhnr2index(from_hhnr))
h_tax_realestate(hhnr2index(to_hhnr)) = h_tax_realestate(hhnr2index(from_hhnr))
h_tax_total(hhnr2index(to_hhnr)) = h_tax_total(hhnr2index(from_hhnr))
h_trf_btp(hhnr2index(to_hhnr)) = h_trf_btp(hhnr2index(from_hhnr))
h_trf_childallowance(hhnr2index(to_hhnr)) = h_trf_childallowance(hhnr2index(from_hhnr))
h_trf_housingallowance(hhnr2index(to_hhnr)) = h_trf_housingallowance(hhnr2index(from_hhnr))
h_trf_pension(hhnr2index(to_hhnr)) = h_trf_pension(hhnr2index(from_hhnr))
h_trf_socialassistance(hhnr2index(to_hhnr)) = h_trf_socialassistance(hhnr2index(from_hhnr))
h_trf_study(hhnr2index(to_hhnr)) = h_trf_study(hhnr2index(from_hhnr))
h_trf_taxable(hhnr2index(to_hhnr)) = h_trf_taxable(hhnr2index(from_hhnr))
h_trf_taxfree(hhnr2index(to_hhnr)) = h_trf_taxfree(hhnr2index(from_hhnr))
h_wealth_CapitalGain(hhnr2index(to_hhnr)) = h_wealth_CapitalGain(hhnr2index(from_hhnr))
h_wealth_debt(hhnr2index(to_hhnr)) = h_wealth_debt(hhnr2index(from_hhnr))
h_wealth_debt_GLS1vc(hhnr2index(to_hhnr)) = h_wealth_debt_GLS1vc(hhnr2index(from_hhnr))
h_wealth_debt_GLS2vc(hhnr2index(to_hhnr)) = h_wealth_debt_GLS2vc(hhnr2index(from_hhnr))
h_wealth_debt_interest(hhnr2index(to_hhnr)) = h_wealth_debt_interest(hhnr2index(from_hhnr))
h_wealth_debt_interest_varcomp_p(hhnr2index(to_hhnr)) = h_wealth_debt_interest_varcomp_p(hhnr2index(from_hhnr))
h_wealth_debt_interest_varcomp_r(hhnr2index(to_hhnr)) = h_wealth_debt_interest_varcomp_r(hhnr2index(from_hhnr))
h_wealth_debt_interest1(hhnr2index(to_hhnr)) = h_wealth_debt_interest1(hhnr2index(from_hhnr))
h_wealth_debt_interestrate(hhnr2index(to_hhnr)) = h_wealth_debt_interestrate(hhnr2index(from_hhnr))
h_wealth_debt_interestrate1(hhnr2index(to_hhnr)) = h_wealth_debt_interestrate1(hhnr2index(from_hhnr))
h_wealth_debt_probit1vc(hhnr2index(to_hhnr)) = h_wealth_debt_probit1vc(hhnr2index(from_hhnr))
h_wealth_debt_probit2vc(hhnr2index(to_hhnr)) = h_wealth_debt_probit2vc(hhnr2index(from_hhnr))
h_wealth_debt_varcomp(hhnr2index(to_hhnr)) = h_wealth_debt_varcomp(hhnr2index(from_hhnr))
h_wealth_debt1(hhnr2index(to_hhnr)) = h_wealth_debt1(hhnr2index(from_hhnr))
h_wealth_DebtInterest_ind(hhnr2index(to_hhnr)) = h_wealth_DebtInterest_ind(hhnr2index(from_hhnr))
h_wealth_DebtInterest_ind1(hhnr2index(to_hhnr)) = h_wealth_DebtInterest_ind1(hhnr2index(from_hhnr))
h_wealth_financial(hhnr2index(to_hhnr)) = h_wealth_financial(hhnr2index(from_hhnr))
h_wealth_financial_sales(hhnr2index(to_hhnr)) = h_wealth_financial_sales(hhnr2index(from_hhnr))
h_wealth_financial_varcomp(hhnr2index(to_hhnr)) = h_wealth_financial_varcomp(hhnr2index(from_hhnr))
h_wealth_financial1(hhnr2index(to_hhnr)) = h_wealth_financial1(hhnr2index(from_hhnr))
h_wealth_InterestDividends(hhnr2index(to_hhnr)) = h_wealth_InterestDividends(hhnr2index(from_hhnr))
h_wealth_real(hhnr2index(to_hhnr)) = h_wealth_real(hhnr2index(from_hhnr))
h_wealth_real_home(hhnr2index(to_hhnr)) = h_wealth_real_home(hhnr2index(from_hhnr))
h_wealth_real_home1(hhnr2index(to_hhnr)) = h_wealth_real_home1(hhnr2index(from_hhnr))
h_wealth_real_other(hhnr2index(to_hhnr)) = h_wealth_real_other(hhnr2index(from_hhnr))
h_wealth_real_other1(hhnr2index(to_hhnr)) = h_wealth_real_other1(hhnr2index(from_hhnr))
End Sub
Public Sub read_i_bin(fnum)
Dim nvar As Long
Dim nobs As Long
Dim npointer As Long
Get #fnum, , nvar
Get #fnum, , nobs
Get #fnum, , base_year
Get #fnum, , model_time
Get #fnum, , npointer
if nobs=0 or nvar=0 then
msgbox "No input data!"
exit sub
end if
m_icount = nobs
Call dyn_vect_i(nobs)
Dim dummy_int() As Integer
Dim dummy_lon() As Long
Dim dummy_dou() As Double
Dim dummy_sin() As Single
ReDim dummy_int(nobs)
ReDim dummy_lon(nobs)
ReDim dummy_dou(nobs)
ReDim dummy_sin(nobs)
ReDim indnr2index(npointer) As Long
största_indnr=npointer
'*** Read variable names
Dim varname() As String * 100
Dim var_type() As String * 3
ReDim varname(nvar)
ReDim var_type(nvar)
For i = 1 To nvar
Get #fnum, , varname(i)
Get #fnum, , var_type(i)
Next
For i = 1 To nvar
Select Case Trim$(lcase(varname(i)))
Case "i_aap"
Get #fnum,, i_aap
Case "i_abroad"
Get #fnum,, i_abroad
Case "i_adl"
Get #fnum,, i_adl
Case "i_adl_rnd"
Get #fnum,, i_adl_rnd
Case "i_age"
Get #fnum,, i_age
Case "i_ap"
Get #fnum,, i_ap
Case "i_ap_ap"
Get #fnum,, i_ap_ap
Case "i_ap_atp"
Get #fnum,, i_ap_atp
Case "i_ap_atp_1994"
Get #fnum,, i_ap_atp_1994
Case "i_ap_atp_old"
Get #fnum,, i_ap_atp_old
Case "i_ap_atp_ut"
Get #fnum,, i_ap_atp_ut
Case "i_ap_fiktiv"
Get #fnum,, i_ap_fiktiv
Case "i_ap_fp"
Get #fnum,, i_ap_fp
Case "i_ap_fp30"
Get #fnum,, i_ap_fp30
Case "i_ap_fp30_1994"
Get #fnum,, i_ap_fp30_1994
Case "i_ap_fp30_ut"
Get #fnum,, i_ap_fp30_ut
Case "i_ap_gartill"
Get #fnum,, i_ap_gartill
Case "i_ap_gp"
Get #fnum,, i_ap_gp
Case "i_ap_ip"
Get #fnum,, i_ap_ip
Case "i_ap_ip_ut"
Get #fnum,, i_ap_ip_ut
Case "i_ap_ip1"
Get #fnum,, i_ap_ip1
Case "i_ap_pensmonth"
Get #fnum,, i_ap_pensmonth
Case "i_ap_pp"
Get #fnum,, i_ap_pp
Case "i_ap_pp_ut"
Get #fnum,, i_ap_pp_ut
Case "i_ap_pts"
Get #fnum,, i_ap_pts
Case "i_ap_tp"
Get #fnum,, i_ap_tp
Case "i_ap_tp_ut"
Get #fnum,, i_ap_tp_ut
Case "i_arbavg"
Get #fnum,, i_arbavg
Case "i_arbavg_akas"
Get #fnum,, i_arbavg_akas
Case "i_arbavg_alon"
Get #fnum,, i_arbavg_alon
Case "i_arbavg_arsk"
Get #fnum,, i_arbavg_arsk
Case "i_arbavg_eft"
Get #fnum,, i_arbavg_eft
Case "i_arbavg_forp"
Get #fnum,, i_arbavg_forp
Case "i_arbavg_pens"
Get #fnum,, i_arbavg_pens
Case "i_arbavg_sjuk"
Get #fnum,, i_arbavg_sjuk
Case "i_arbavg_slon"
Get #fnum,, i_arbavg_slon
Case "i_arbavg_slon38"
Get #fnum,, i_arbavg_slon38
Case "i_assistance_elderly"
Get #fnum,, i_assistance_elderly
Case "i_atp_ar_1994"
Get #fnum,, i_atp_ar_1994
Case "i_avg"
Get #fnum,, i_avg
Case "i_avg_aap"
Get #fnum,, i_avg_aap
Case "i_avg_ftp"
Get #fnum,, i_avg_ftp
Case "i_avg_inc_at_retirement"
Get #fnum,, i_avg_inc_at_retirement
Case "i_avg_income_1997"
Get #fnum,, i_avg_income_1997
Case "i_avg_ip"
Get #fnum,, i_avg_ip
Case "i_avg_ip2"
Get #fnum,, i_avg_ip2
Case "i_avg_pgb"
Get #fnum,, i_avg_pgb
Case "i_avg_stap"
Get #fnum,, i_avg_stap
Case "i_avg_trf"
Get #fnum,, i_avg_trf
Case "i_avg2"
Get #fnum,, i_avg2
Case "i_bb_region"
Get #fnum,, i_bb_region
Case "i_bidnr"
Get #fnum,, i_bidnr
Case "i_binvar"
Get #fnum,, i_binvar
Case "i_born_abroad"
Get #fnum,, i_born_abroad
Case "i_born_year"
Get #fnum,, i_born_year
Case "i_botid"
Get #fnum,, i_botid
Case "i_bvux"
Get #fnum,, i_bvux
Case "i_bvux1"
Get #fnum,, i_bvux1
Case "i_civ_stat"
Get #fnum,, i_civ_stat
Case "i_civ_stat1"
Get #fnum,, i_civ_stat1
Case "i_edlevel"
Get #fnum,, i_edlevel
Case "i_edyears"
Get #fnum,, i_edyears
Case "i_emig_year"
Get #fnum,, i_emig_year
Case "i_ftp"
Get #fnum,, i_ftp
Case "i_ftp_64"
Get #fnum,, i_ftp_64
Case "i_ftp_antag"
Get #fnum,, i_ftp_antag
Case "i_ftp_atp"
Get #fnum,, i_ftp_atp
Case "i_ftp_fp"
Get #fnum,, i_ftp_fp
Case "i_ftp_gar"
Get #fnum,, i_ftp_gar
Case "i_ftp_ink"
Get #fnum,, i_ftp_ink
Case "i_ftp_just"
Get #fnum,, i_ftp_just
Case "i_ftp_pts"
Get #fnum,, i_ftp_pts
Case "i_ftp_typ"
Get #fnum,, i_ftp_typ
Case "i_ftp_year"
Get #fnum,, i_ftp_year
Case "i_hasbeenwidowed"
Get #fnum,, i_hasbeenwidowed
Case "i_health"
Get #fnum,, i_health
Case "i_health_latent"
Get #fnum,, i_health_latent
Case "i_health_latent1"
Get #fnum,, i_health_latent1
Case "i_health1"
Get #fnum,, i_health1
Case "i_hhnr"
Get #fnum,, i_hhnr
Case "i_hhstatus"
Get #fnum,, i_hhstatus
Case "i_housetax_postponed"
Get #fnum,, i_housetax_postponed
Case "i_hsdropout"
Get #fnum,, i_hsdropout
Case "i_inc_capital"
Get #fnum,, i_inc_capital
Case "i_inc_earning"
Get #fnum,, i_inc_earning
Case "i_inc_itvariance"
Get #fnum,, i_inc_itvariance
Case "i_inc_ivariance"
Get #fnum,, i_inc_ivariance
Case "i_inc_market"
Get #fnum,, i_inc_market
Case "i_inc_selfemployed"
Get #fnum,, i_inc_selfemployed
Case "i_inc_taxable"
Get #fnum,, i_inc_taxable
Case "i_inc_taxable1"
Get #fnum,, i_inc_taxable1
Case "i_inc_taxable2"
Get #fnum,, i_inc_taxable2
Case "i_inc_taxable3"
Get #fnum,, i_inc_taxable3
Case "i_inc_taxable4"
Get #fnum,, i_inc_taxable4
Case "i_inc_taxable5"
Get #fnum,, i_inc_taxable5
Case "i_inc_taxed"
Get #fnum,, i_inc_taxed
Case "i_inc_work"
Get #fnum,, i_inc_work
Case "i_income"
Get #fnum,, i_income
Case "i_indnr"
Get #fnum,, i_indnr
Case "i_inpatientcare"
Get #fnum,, i_inpatientcare
Case "i_last_hh_dur"
Get #fnum,, i_last_hh_dur
Case "i_maintenance_paid"
Get #fnum,, i_maintenance_paid
Case "i_matp_1994"
Get #fnum,, i_matp_1994
Case "i_new_em"
Get #fnum,, i_new_em
Case "i_new_fp"
Get #fnum,, i_new_fp
Case "i_new_immig"
Get #fnum,, i_new_immig
Case "i_next_indnr"
Get #fnum,, i_next_indnr
Case "i_nr_prev_hh"
Get #fnum,, i_nr_prev_hh
Case "i_op"
Get #fnum,, i_op
Case "i_op_an_db_after_65"
Get #fnum,, i_op_an_db_after_65
Case "i_op_an_db_before_65"
Get #fnum,, i_op_an_db_before_65
Case "i_op_an_dc_after_65"
Get #fnum,, i_op_an_dc_after_65
Case "i_op_an_dc_before_65"
Get #fnum,, i_op_an_dc_before_65
Case "i_op_ap_db"
Get #fnum,, i_op_ap_db
Case "i_op_ap_dc"
Get #fnum,, i_op_ap_dc
Case "i_op_ap_tp"
Get #fnum,, i_op_ap_tp
Case "i_op_capital_value"
Get #fnum,, i_op_capital_value
Case "i_op_erp"
Get #fnum,, i_op_erp
Case "i_op_pp_years"
Get #fnum,, i_op_pp_years
Case "i_op_pp_years_blue"
Get #fnum,, i_op_pp_years_blue
Case "i_op_pp_years_local"
Get #fnum,, i_op_pp_years_local
Case "i_op_pp_years_state"
Get #fnum,, i_op_pp_years_state
Case "i_op_pp_years_trans"
Get #fnum,, i_op_pp_years_trans
Case "i_op_pp_years_white"
Get #fnum,, i_op_pp_years_white
Case "i_op_retirement_individual_effect"
Get #fnum,, i_op_retirement_individual_effect
Case "i_p_andel"
Get #fnum,, i_p_andel
Case "i_p_antman"
Get #fnum,, i_p_antman
Case "i_pb_fiktiv"
Get #fnum,, i_pb_fiktiv
Case "i_pb_ip"
Get #fnum,, i_pb_ip
Case "i_pb_ip1"
Get #fnum,, i_pb_ip1
Case "i_pb_op_ap"
Get #fnum,, i_pb_op_ap
Case "i_pb_op_tp"
Get #fnum,, i_pb_op_tp
Case "i_pb_pp"
Get #fnum,, i_pb_pp
Case "i_pbhi"
Get #fnum,, i_pbhi
Case "i_pc_care"
Get #fnum,, i_pc_care
Case "i_pc_childcare"
Get #fnum,, i_pc_childcare
Case "i_pc_elderly"
Get #fnum,, i_pc_elderly
Case "i_pc_high_school"
Get #fnum,, i_pc_high_school
Case "i_pc_labor"
Get #fnum,, i_pc_labor
Case "i_pc_mae"
Get #fnum,, i_pc_mae
Case "i_pc_medicine"
Get #fnum,, i_pc_medicine
Case "i_pc_school"
Get #fnum,, i_pc_school
Case "i_pc_school_adult"
Get #fnum,, i_pc_school_adult
Case "i_pc_total"
Get #fnum,, i_pc_total
Case "i_pc_univ"
Get #fnum,, i_pc_univ
Case "i_pgb"
Get #fnum,, i_pgb
Case "i_pgb_antag"
Get #fnum,, i_pgb_antag
Case "i_pgb_barn"
Get #fnum,, i_pgb_barn
Case "i_pgb_barn_typ"
Get #fnum,, i_pgb_barn_typ
Case "i_pgb_plikt"
Get #fnum,, i_pgb_plikt
Case "i_pgb_stud"
Get #fnum,, i_pgb_stud
Case "i_pgi"
Get #fnum,, i_pgi
Case "i_pgi_bas"
Get #fnum,, i_pgi_bas
Case "i_pgi_orange"
Get #fnum,, i_pgi_orange
Case "i_pgi185"
Get #fnum,, i_pgi185
Case "i_pp"
Get #fnum,, i_pp
Case "i_pp_payout_time"
Get #fnum,, i_pp_payout_time
Case "i_ppmkap"
Get #fnum,, i_ppmkap
Case "i_pr_ip"
Get #fnum,, i_pr_ip
Case "i_pr_ip1"
Get #fnum,, i_pr_ip1
Case "i_pr_op_ap"
Get #fnum,, i_pr_op_ap
Case "i_pr_op_tp"
Get #fnum,, i_pr_op_tp
Case "i_pr_pp"
Get #fnum,, i_pr_pp
Case "i_pr_pp1"
Get #fnum,, i_pr_pp1
Case "i_prob_unemployed"
Get #fnum,, i_prob_unemployed
Case "i_prob_working"
Get #fnum,, i_prob_working
Case "i_pu"
Get #fnum,, i_pu
Case "i_pu_ind_comp"
Get #fnum,, i_pu_ind_comp
Case "i_pu_orange"
Get #fnum,, i_pu_orange
Case "i_sarbavg_pens"
Get #fnum,, i_sarbavg_pens
Case "i_sector"
Get #fnum,, i_sector
Case "i_sector1"
Get #fnum,, i_sector1
Case "i_selected"
Get #fnum,, i_selected
Case "i_sex"
Get #fnum,, i_sex
Case "i_sick_ind"
Get #fnum,, i_sick_ind
Case "i_sick_ind1"
Get #fnum,, i_sick_ind1
Case "i_sick_ind2"
Get #fnum,, i_sick_ind2
Case "i_sick_ind3"
Get #fnum,, i_sick_ind3
Case "i_sick_ind4"
Get #fnum,, i_sick_ind4
Case "i_sick_ind5"
Get #fnum,, i_sick_ind5
Case "i_sick_ind6"
Get #fnum,, i_sick_ind6
Case "i_sickleave"
Get #fnum,, i_sickleave
Case "i_sickleave_ivariance"
Get #fnum,, i_sickleave_ivariance
Case "i_stap_ftp"
Get #fnum,, i_stap_ftp
Case "i_stap_trf"
Get #fnum,, i_stap_trf
Case "i_status"
Get #fnum,, i_status
Case "i_status1"
Get #fnum,, i_status1
Case "i_student"
Get #fnum,, i_student
Case "i_study_debt"
Get #fnum,, i_study_debt
Case "i_studyloan_repaid"
Get #fnum,, i_studyloan_repaid
Case "i_surv"
Get #fnum,, i_surv
Case "i_surv_atp"
Get #fnum,, i_surv_atp
Case "i_surv_fp"
Get #fnum,, i_surv_fp
Case "i_surv_omst"
Get #fnum,, i_surv_omst
Case "i_surv_year"
Get #fnum,, i_surv_year
Case "i_tax_capital"
Get #fnum,, i_tax_capital
Case "i_tax_contribution"
Get #fnum,, i_tax_contribution
Case "i_tax_income"
Get #fnum,, i_tax_income
Case "i_tax_local"
Get #fnum,, i_tax_local
Case "i_tax_national"
Get #fnum,, i_tax_national
Case "i_tax_realestate"
Get #fnum,, i_tax_realestate
Case "i_tax_total"
Get #fnum,, i_tax_total
Case "i_tax_wealth"
Get #fnum,, i_tax_wealth
Case "i_tax_workcredit"
Get #fnum,, i_tax_workcredit
Case "i_taxred_capital"
Get #fnum,, i_taxred_capital
Case "i_trf_btp"
Get #fnum,, i_trf_btp
Case "i_trf_parentleave"
Get #fnum,, i_trf_parentleave
Case "i_trf_pension"
Get #fnum,, i_trf_pension
Case "i_trf_sickleave"
Get #fnum,, i_trf_sickleave
Case "i_trf_skada"
Get #fnum,, i_trf_skada
Case "i_trf_study"
Get #fnum,, i_trf_study
Case "i_trf_study_grant"
Get #fnum,, i_trf_study_grant
Case "i_trf_study_loan"
Get #fnum,, i_trf_study_loan
Case "i_trf_taxable"
Get #fnum,, i_trf_taxable
Case "i_trf_unemployed"
Get #fnum,, i_trf_unemployed
Case "i_unemp_ivariance"
Get #fnum,, i_unemp_ivariance
Case "i_using_temp_pension"
Get #fnum,, i_using_temp_pension
Case "i_vard"
Get #fnum,, i_vard
Case "i_wealth_debt"
Get #fnum,, i_wealth_debt
Case "i_wealth_financial"
Get #fnum,, i_wealth_financial
Case "i_wealth_pension_total"
Get #fnum,, i_wealth_pension_total
Case "i_wealth_pension_year"
Get #fnum,, i_wealth_pension_year
Case "i_wealth_pension_year1"
Get #fnum,, i_wealth_pension_year1
Case "i_widowed"
Get #fnum,, i_widowed
Case "i_work_share"
Get #fnum,, i_work_share
Case "i_work_share1"
Get #fnum,, i_work_share1
Case "i_workexperience"
Get #fnum,, i_workexperience
Case "i_year_sep"
Get #fnum,, i_year_sep
Case Else
status "Could not read variable: " & varname(i)
Select Case LCase(var_type(i))
Case "int"
Get #fnum, , dummy_int
Case "lon"
Get #fnum, , dummy_lon
Case "dou"
Get #fnum, , dummy_dou
Case "sin"
Get #fnum, , dummy_sin
Case Else
status "Problem reading file"
End Select
End Select
Next
Get #fnum, , indnr2index
Get #fnum, , pp_hist
Call Pack_Pension_Hist
End Sub
Public Sub read_h_bin(fnum)
Dim nvar As Long
Dim nobs As Long
Dim dummy_base_year As Long
Dim dummy_model_time As Long
Dim npointer As Long
Get #fnum, , nvar
Get #fnum, , nobs
Get #fnum, , dummy_base_year
Get #fnum, , dummy_model_time
Get #fnum, , npointer
if nobs=0 or nvar=0 then
msgbox "No input data!"
exit sub
end if
m_hcount = nobs
Call dyn_vect_h(nobs)
Dim dummy_int() As Integer
Dim dummy_lon() As Long
Dim dummy_dou() As Double
Dim dummy_sin() As Single
ReDim dummy_int(nobs)
ReDim dummy_lon(nobs)
ReDim dummy_dou(nobs)
ReDim dummy_sin(nobs)
ReDim hhnr2index(npointer) As Long
största_hhnr=npointer
'*** Read variable names
Dim varname() As String * 100
Dim var_type() As String * 3
ReDim varname(nvar)
ReDim var_type(nvar)
For i = 1 To nvar
Get #fnum, , varname(i)
Get #fnum, , var_type(i)
Next
For i = 1 To nvar
Select Case Trim$(lcase(varname(i)))
Case "h_abroad"
Get #fnum,, h_abroad
Case "h_bb_region"
Get #fnum,, h_bb_region
Case "h_bb_region1"
Get #fnum,, h_bb_region1
Case "h_bvux_work"
Get #fnum,, h_bvux_work
Case "h_childmoveout"
Get #fnum,, h_childmoveout
Case "h_close_relative"
Get #fnum,, h_close_relative
Case "h_close_relative1"
Get #fnum,, h_close_relative1
Case "h_emig_year"
Get #fnum,, h_emig_year
Case "h_first_indnr"
Get #fnum,, h_first_indnr
Case "h_form_year"
Get #fnum,, h_form_year
Case "h_hhnr"
Get #fnum,, h_hhnr
Case "h_house_area"
Get #fnum,, h_house_area
Case "h_house_cost"
Get #fnum,, h_house_cost
Case "h_house_interest"
Get #fnum,, h_house_interest
Case "h_house_owner"
Get #fnum,, h_house_owner
Case "h_house_owner1"
Get #fnum,, h_house_owner1
Case "h_house_purchase"
Get #fnum,, h_house_purchase
Case "h_house_tax"
Get #fnum,, h_house_tax
Case "h_idx_headofhh"
Get #fnum,, h_idx_headofhh
Case "h_inc_capital"
Get #fnum,, h_inc_capital
Case "h_inc_disposable"
Get #fnum,, h_inc_disposable
Case "h_inc_disposable1"
Get #fnum,, h_inc_disposable1
Case "h_inc_market"
Get #fnum,, h_inc_market
Case "h_inc_work"
Get #fnum,, h_inc_work
Case "h_indnr_female"
Get #fnum,, h_indnr_female
Case "h_indnr_male"
Get #fnum,, h_indnr_male
Case "h_kommunindex"
Get #fnum,, h_kommunindex
Case "h_kommunkod"
Get #fnum,, h_kommunkod
Case "h_maintenance_paid"
Get #fnum,, h_maintenance_paid
Case "h_maintenance_received"
Get #fnum,, h_maintenance_received
Case "h_max_age"
Get #fnum,, h_max_age
Case "h_max_edlevel"
Get #fnum,, h_max_edlevel
Case "h_max_inc_taxable"
Get #fnum,, h_max_inc_taxable
Case "h_n_adults"
Get #fnum,, h_n_adults
Case "h_n_child"
Get #fnum,, h_n_child
Case "h_n_child1"
Get #fnum,, h_n_child1
Case "h_n_childlt12"
Get #fnum,, h_n_childlt12
Case "h_n_childlt7"
Get #fnum,, h_n_childlt7
Case "h_n_ge18"
Get #fnum,, h_n_ge18
Case "h_new_housing"
Get #fnum,, h_new_housing
Case "h_new_housing1"
Get #fnum,, h_new_housing1
Case "h_new_immig"
Get #fnum,, h_new_immig
Case "h_selected"
Get #fnum,, h_selected
Case "h_size"
Get #fnum,, h_size
Case "h_studyloan_repaid"
Get #fnum,, h_studyloan_repaid
Case "h_sum_inc_taxable"
Get #fnum,, h_sum_inc_taxable
Case "h_sum_inc_taxable1"
Get #fnum,, h_sum_inc_taxable1
Case "h_tax_realestate"
Get #fnum,, h_tax_realestate
Case "h_tax_total"
Get #fnum,, h_tax_total
Case "h_trf_btp"
Get #fnum,, h_trf_btp
Case "h_trf_childallowance"
Get #fnum,, h_trf_childallowance
Case "h_trf_housingallowance"
Get #fnum,, h_trf_housingallowance
Case "h_trf_pension"
Get #fnum,, h_trf_pension
Case "h_trf_socialassistance"
Get #fnum,, h_trf_socialassistance
Case "h_trf_study"
Get #fnum,, h_trf_study
Case "h_trf_taxable"
Get #fnum,, h_trf_taxable
Case "h_trf_taxfree"
Get #fnum,, h_trf_taxfree
Case "h_wealth_capitalgain"
Get #fnum,, h_wealth_capitalgain
Case "h_wealth_debt"
Get #fnum,, h_wealth_debt
Case "h_wealth_debt_gls1vc"
Get #fnum,, h_wealth_debt_gls1vc
Case "h_wealth_debt_gls2vc"
Get #fnum,, h_wealth_debt_gls2vc
Case "h_wealth_debt_interest"
Get #fnum,, h_wealth_debt_interest
Case "h_wealth_debt_interest_varcomp_p"
Get #fnum,, h_wealth_debt_interest_varcomp_p
Case "h_wealth_debt_interest_varcomp_r"
Get #fnum,, h_wealth_debt_interest_varcomp_r
Case "h_wealth_debt_interest1"
Get #fnum,, h_wealth_debt_interest1
Case "h_wealth_debt_interestrate"
Get #fnum,, h_wealth_debt_interestrate
Case "h_wealth_debt_interestrate1"
Get #fnum,, h_wealth_debt_interestrate1
Case "h_wealth_debt_probit1vc"
Get #fnum,, h_wealth_debt_probit1vc
Case "h_wealth_debt_probit2vc"
Get #fnum,, h_wealth_debt_probit2vc
Case "h_wealth_debt_varcomp"
Get #fnum,, h_wealth_debt_varcomp
Case "h_wealth_debt1"
Get #fnum,, h_wealth_debt1
Case "h_wealth_debtinterest_ind"
Get #fnum,, h_wealth_debtinterest_ind
Case "h_wealth_debtinterest_ind1"
Get #fnum,, h_wealth_debtinterest_ind1
Case "h_wealth_financial"
Get #fnum,, h_wealth_financial
Case "h_wealth_financial_sales"
Get #fnum,, h_wealth_financial_sales
Case "h_wealth_financial_varcomp"
Get #fnum,, h_wealth_financial_varcomp
Case "h_wealth_financial1"
Get #fnum,, h_wealth_financial1
Case "h_wealth_interestdividends"
Get #fnum,, h_wealth_interestdividends
Case "h_wealth_real"
Get #fnum,, h_wealth_real
Case "h_wealth_real_home"
Get #fnum,, h_wealth_real_home
Case "h_wealth_real_home1"
Get #fnum,, h_wealth_real_home1
Case "h_wealth_real_other"
Get #fnum,, h_wealth_real_other
Case "h_wealth_real_other1"
Get #fnum,, h_wealth_real_other1
Case Else
status "Could not read variable: " & varname(i)
Select Case LCase(var_type(i))
Case "int"
Get #fnum, , dummy_int
Case "lon"
Get #fnum, , dummy_lon
Case "dou"
Get #fnum, , dummy_dou
Case "sin"
Get #fnum, , dummy_sin
Case Else
status "Problem reading file"
End Select
End Select
Next
Get #fnum, , hhnr2index
End Sub
Public Sub write_i_bin(filenr)
Dim nvar as Long
nvar= 228
Put #filenr, , nvar
Put #filenr, , m_icount
Put #filenr, , base_year
Put #filenr, , model_time
Put #filenr, , största_indnr
Call dyn_vect_i(m_icount)
Dim varname As String*100
Dim var_type As String*3
varname="i_aap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_abroad"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ADL"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ADL_rnd"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_age"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_ap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_atp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_atp_1994"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_atp_old"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_atp_ut"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_fiktiv"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_fp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_fp30"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_fp30_1994"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_fp30_ut"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_gartill"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_gp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_ip"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_ip_ut"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_ip1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_pensmonth"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_pp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_pp_ut"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_pts"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_tp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ap_tp_ut"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_akas"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_alon"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_arsk"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_eft"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_forp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_pens"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_sjuk"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_slon"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_arbavg_slon38"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_assistance_elderly"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ATP_ar_1994"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_aap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_ftp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_inc_at_retirement"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_income_1997"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_ip"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_ip2"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_pgb"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_stap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg_trf"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_avg2"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_BB_region"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_bidnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_binvar"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_born_abroad"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_born_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_botid"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_bvux"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_bvux1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_civ_stat"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_civ_stat1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_edlevel"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_edyears"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_emig_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_64"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_antag"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_atp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_fp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_gar"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_ink"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_just"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_pts"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_typ"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ftp_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_HasBeenWidowed"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_health"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_health_latent"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_health_latent1"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_health1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_hhnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_hhstatus"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_housetax_postponed"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_hsdropout"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_capital"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_earning"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_itvariance"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_ivariance"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_market"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_selfemployed"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable2"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable3"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable4"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxable5"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_taxed"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_inc_work"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_income"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_indnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_InpatientCare"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_last_hh_dur"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_maintenance_paid"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_mATP_1994"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_new_em"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_new_fp"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_new_immig"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_next_indnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_nr_prev_hh"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_an_db_after_65"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_an_db_before_65"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_an_dc_after_65"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_an_dc_before_65"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_ap_db"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_ap_dc"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_ap_tp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_capital_value"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_erp"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years_Blue"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years_Local"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years_State"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years_trans"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_pp_years_White"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_op_retirement_individual_effect"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_p_andel"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_p_antman"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_fiktiv"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_ip"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_ip1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_op_ap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_op_tp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pb_pp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pbhi"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_care"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_childcare"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_elderly"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_high_school"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_labor"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_MAE"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_medicine"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_school"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_school_adult"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_total"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pc_univ"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb_antag"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb_barn"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb_barn_typ"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb_plikt"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgb_stud"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgi"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgi_bas"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgi_orange"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pgi185"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pp_payout_time"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_ppmkap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_ip"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_ip1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_op_ap"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_op_tp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_pp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pr_pp1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_prob_unemployed"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_prob_working"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pu"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pu_ind_comp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_pu_orange"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sarbavg_pens"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sector"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sector1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_selected"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sex"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind2"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind3"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind4"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind5"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sick_ind6"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sickleave"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_sickleave_ivariance"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_stap_ftp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_stap_trf"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_status"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_status1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_student"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_study_debt"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_studyloan_repaid"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_surv"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_surv_atp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_surv_fp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_surv_omst"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_surv_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_capital"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_contribution"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_income"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_local"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_national"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_realestate"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_total"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_wealth"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_tax_workcredit"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_taxred_capital"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_btp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_parentleave"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_pension"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_sickleave"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_skada"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_study"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_study_grant"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_study_loan"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_taxable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_trf_unemployed"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_unemp_ivariance"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_using_temp_pension"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_vard"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_wealth_debt"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_wealth_financial"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_wealth_pension_total"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_wealth_pension_year"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_wealth_pension_year1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_widowed"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_work_share"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_work_share1"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_workexperience"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="i_year_sep"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
Put #filenr, , i_aap
Put #filenr, , i_abroad
Put #filenr, , i_ADL
Put #filenr, , i_ADL_rnd
Put #filenr, , i_age
Put #filenr, , i_ap
Put #filenr, , i_ap_ap
Put #filenr, , i_ap_atp
Put #filenr, , i_ap_atp_1994
Put #filenr, , i_ap_atp_old
Put #filenr, , i_ap_atp_ut
Put #filenr, , i_ap_fiktiv
Put #filenr, , i_ap_fp
Put #filenr, , i_ap_fp30
Put #filenr, , i_ap_fp30_1994
Put #filenr, , i_ap_fp30_ut
Put #filenr, , i_ap_gartill
Put #filenr, , i_ap_gp
Put #filenr, , i_ap_ip
Put #filenr, , i_ap_ip_ut
Put #filenr, , i_ap_ip1
Put #filenr, , i_ap_pensmonth
Put #filenr, , i_ap_pp
Put #filenr, , i_ap_pp_ut
Put #filenr, , i_ap_pts
Put #filenr, , i_ap_tp
Put #filenr, , i_ap_tp_ut
Put #filenr, , i_arbavg
Put #filenr, , i_arbavg_akas
Put #filenr, , i_arbavg_alon
Put #filenr, , i_arbavg_arsk
Put #filenr, , i_arbavg_eft
Put #filenr, , i_arbavg_forp
Put #filenr, , i_arbavg_pens
Put #filenr, , i_arbavg_sjuk
Put #filenr, , i_arbavg_slon
Put #filenr, , i_arbavg_slon38
Put #filenr, , i_assistance_elderly
Put #filenr, , i_ATP_ar_1994
Put #filenr, , i_avg
Put #filenr, , i_avg_aap
Put #filenr, , i_avg_ftp
Put #filenr, , i_avg_inc_at_retirement
Put #filenr, , i_avg_income_1997
Put #filenr, , i_avg_ip
Put #filenr, , i_avg_ip2
Put #filenr, , i_avg_pgb
Put #filenr, , i_avg_stap
Put #filenr, , i_avg_trf
Put #filenr, , i_avg2
Put #filenr, , i_BB_region
Put #filenr, , i_bidnr
Put #filenr, , i_binvar
Put #filenr, , i_born_abroad
Put #filenr, , i_born_year
Put #filenr, , i_botid
Put #filenr, , i_bvux
Put #filenr, , i_bvux1
Put #filenr, , i_civ_stat
Put #filenr, , i_civ_stat1
Put #filenr, , i_edlevel
Put #filenr, , i_edyears
Put #filenr, , i_emig_year
Put #filenr, , i_ftp
Put #filenr, , i_ftp_64
Put #filenr, , i_ftp_antag
Put #filenr, , i_ftp_atp
Put #filenr, , i_ftp_fp
Put #filenr, , i_ftp_gar
Put #filenr, , i_ftp_ink
Put #filenr, , i_ftp_just
Put #filenr, , i_ftp_pts
Put #filenr, , i_ftp_typ
Put #filenr, , i_ftp_year
Put #filenr, , i_HasBeenWidowed
Put #filenr, , i_health
Put #filenr, , i_health_latent
Put #filenr, , i_health_latent1
Put #filenr, , i_health1
Put #filenr, , i_hhnr
Put #filenr, , i_hhstatus
Put #filenr, , i_housetax_postponed
Put #filenr, , i_hsdropout
Put #filenr, , i_inc_capital
Put #filenr, , i_inc_earning
Put #filenr, , i_inc_itvariance
Put #filenr, , i_inc_ivariance
Put #filenr, , i_inc_market
Put #filenr, , i_inc_selfemployed
Put #filenr, , i_inc_taxable
Put #filenr, , i_inc_taxable1
Put #filenr, , i_inc_taxable2
Put #filenr, , i_inc_taxable3
Put #filenr, , i_inc_taxable4
Put #filenr, , i_inc_taxable5
Put #filenr, , i_inc_taxed
Put #filenr, , i_inc_work
Put #filenr, , i_income
Put #filenr, , i_indnr
Put #filenr, , i_InpatientCare
Put #filenr, , i_last_hh_dur
Put #filenr, , i_maintenance_paid
Put #filenr, , i_mATP_1994
Put #filenr, , i_new_em
Put #filenr, , i_new_fp
Put #filenr, , i_new_immig
Put #filenr, , i_next_indnr
Put #filenr, , i_nr_prev_hh
Put #filenr, , i_op
Put #filenr, , i_op_an_db_after_65
Put #filenr, , i_op_an_db_before_65
Put #filenr, , i_op_an_dc_after_65
Put #filenr, , i_op_an_dc_before_65
Put #filenr, , i_op_ap_db
Put #filenr, , i_op_ap_dc
Put #filenr, , i_op_ap_tp
Put #filenr, , i_op_capital_value
Put #filenr, , i_op_erp
Put #filenr, , i_op_pp_years
Put #filenr, , i_op_pp_years_Blue
Put #filenr, , i_op_pp_years_Local
Put #filenr, , i_op_pp_years_State
Put #filenr, , i_op_pp_years_trans
Put #filenr, , i_op_pp_years_White
Put #filenr, , i_op_retirement_individual_effect
Put #filenr, , i_p_andel
Put #filenr, , i_p_antman
Put #filenr, , i_pb_fiktiv
Put #filenr, , i_pb_ip
Put #filenr, , i_pb_ip1
Put #filenr, , i_pb_op_ap
Put #filenr, , i_pb_op_tp
Put #filenr, , i_pb_pp
Put #filenr, , i_pbhi
Put #filenr, , i_pc_care
Put #filenr, , i_pc_childcare
Put #filenr, , i_pc_elderly
Put #filenr, , i_pc_high_school
Put #filenr, , i_pc_labor
Put #filenr, , i_pc_MAE
Put #filenr, , i_pc_medicine
Put #filenr, , i_pc_school
Put #filenr, , i_pc_school_adult
Put #filenr, , i_pc_total
Put #filenr, , i_pc_univ
Put #filenr, , i_pgb
Put #filenr, , i_pgb_antag
Put #filenr, , i_pgb_barn
Put #filenr, , i_pgb_barn_typ
Put #filenr, , i_pgb_plikt
Put #filenr, , i_pgb_stud
Put #filenr, , i_pgi
Put #filenr, , i_pgi_bas
Put #filenr, , i_pgi_orange
Put #filenr, , i_pgi185
Put #filenr, , i_pp
Put #filenr, , i_pp_payout_time
Put #filenr, , i_ppmkap
Put #filenr, , i_pr_ip
Put #filenr, , i_pr_ip1
Put #filenr, , i_pr_op_ap
Put #filenr, , i_pr_op_tp
Put #filenr, , i_pr_pp
Put #filenr, , i_pr_pp1
Put #filenr, , i_prob_unemployed
Put #filenr, , i_prob_working
Put #filenr, , i_pu
Put #filenr, , i_pu_ind_comp
Put #filenr, , i_pu_orange
Put #filenr, , i_sarbavg_pens
Put #filenr, , i_sector
Put #filenr, , i_sector1
Put #filenr, , i_selected
Put #filenr, , i_sex
Put #filenr, , i_sick_ind
Put #filenr, , i_sick_ind1
Put #filenr, , i_sick_ind2
Put #filenr, , i_sick_ind3
Put #filenr, , i_sick_ind4
Put #filenr, , i_sick_ind5
Put #filenr, , i_sick_ind6
Put #filenr, , i_sickleave
Put #filenr, , i_sickleave_ivariance
Put #filenr, , i_stap_ftp
Put #filenr, , i_stap_trf
Put #filenr, , i_status
Put #filenr, , i_status1
Put #filenr, , i_student
Put #filenr, , i_study_debt
Put #filenr, , i_studyloan_repaid
Put #filenr, , i_surv
Put #filenr, , i_surv_atp
Put #filenr, , i_surv_fp
Put #filenr, , i_surv_omst
Put #filenr, , i_surv_year
Put #filenr, , i_tax_capital
Put #filenr, , i_tax_contribution
Put #filenr, , i_tax_income
Put #filenr, , i_tax_local
Put #filenr, , i_tax_national
Put #filenr, , i_tax_realestate
Put #filenr, , i_tax_total
Put #filenr, , i_tax_wealth
Put #filenr, , i_tax_workcredit
Put #filenr, , i_taxred_capital
Put #filenr, , i_trf_btp
Put #filenr, , i_trf_parentleave
Put #filenr, , i_trf_pension
Put #filenr, , i_trf_sickleave
Put #filenr, , i_trf_skada
Put #filenr, , i_trf_study
Put #filenr, , i_trf_study_grant
Put #filenr, , i_trf_study_loan
Put #filenr, , i_trf_taxable
Put #filenr, , i_trf_unemployed
Put #filenr, , i_unemp_ivariance
Put #filenr, , i_using_temp_pension
Put #filenr, , i_vard
Put #filenr, , i_wealth_debt
Put #filenr, , i_wealth_financial
Put #filenr, , i_wealth_pension_total
Put #filenr, , i_wealth_pension_year
Put #filenr, , i_wealth_pension_year1
Put #filenr, , i_widowed
Put #filenr, , i_work_share
Put #filenr, , i_work_share1
Put #filenr, , i_workexperience
Put #filenr, , i_year_sep
End Sub
Public Sub write_h_bin(filenr)
Dim nvar as Long
nvar= 83
Put #filenr, , nvar
Put #filenr, , m_hcount
Put #filenr, , base_year
Put #filenr, , model_time
Put #filenr, , största_hhnr
Call dyn_vect_h(m_hcount)
Dim varname As String*100
Dim var_type As String*3
varname="h_abroad"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_BB_region"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_BB_region1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_bvux_work"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_childmoveout"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_close_relative"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_close_relative1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_emig_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_first_indnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_form_year"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_hhnr"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_area"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_cost"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_interest"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_owner"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_owner1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_purchase"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_house_tax"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_idx_headofhh"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_inc_capital"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_inc_disposable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_inc_disposable1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_inc_market"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_inc_work"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_indnr_female"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_indnr_male"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_kommunindex"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_kommunkod"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_maintenance_paid"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_maintenance_received"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_max_age"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_max_edlevel"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_max_inc_taxable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_adults"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_child"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_child1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_childlt12"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_childlt7"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_n_ge18"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_new_housing"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_new_housing1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_new_immig"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_selected"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_size"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_studyloan_repaid"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_sum_inc_taxable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_sum_inc_taxable1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_tax_realestate"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_tax_total"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_btp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_childallowance"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_housingallowance"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_pension"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_socialassistance"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_study"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_taxable"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_trf_taxfree"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_CapitalGain"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_GLS1vc"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_GLS2vc"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interest"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interest_varcomp_p"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interest_varcomp_r"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interest1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interestrate"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_interestrate1"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_probit1vc"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_probit2vc"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt_varcomp"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_debt1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_DebtInterest_ind"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_DebtInterest_ind1"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_financial"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_financial_sales"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_financial_varcomp"
var_type="Sin"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_financial1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_InterestDividends"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_real"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_real_home"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_real_home1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_real_other"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="h_wealth_real_other1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
Put #filenr, , h_abroad
Put #filenr, , h_BB_region
Put #filenr, , h_BB_region1
Put #filenr, , h_bvux_work
Put #filenr, , h_childmoveout
Put #filenr, , h_close_relative
Put #filenr, , h_close_relative1
Put #filenr, , h_emig_year
Put #filenr, , h_first_indnr
Put #filenr, , h_form_year
Put #filenr, , h_hhnr
Put #filenr, , h_house_area
Put #filenr, , h_house_cost
Put #filenr, , h_house_interest
Put #filenr, , h_house_owner
Put #filenr, , h_house_owner1
Put #filenr, , h_house_purchase
Put #filenr, , h_house_tax
Put #filenr, , h_idx_headofhh
Put #filenr, , h_inc_capital
Put #filenr, , h_inc_disposable
Put #filenr, , h_inc_disposable1
Put #filenr, , h_inc_market
Put #filenr, , h_inc_work
Put #filenr, , h_indnr_female
Put #filenr, , h_indnr_male
Put #filenr, , h_kommunindex
Put #filenr, , h_kommunkod
Put #filenr, , h_maintenance_paid
Put #filenr, , h_maintenance_received
Put #filenr, , h_max_age
Put #filenr, , h_max_edlevel
Put #filenr, , h_max_inc_taxable
Put #filenr, , h_n_adults
Put #filenr, , h_n_child
Put #filenr, , h_n_child1
Put #filenr, , h_n_childlt12
Put #filenr, , h_n_childlt7
Put #filenr, , h_n_ge18
Put #filenr, , h_new_housing
Put #filenr, , h_new_housing1
Put #filenr, , h_new_immig
Put #filenr, , h_selected
Put #filenr, , h_size
Put #filenr, , h_studyloan_repaid
Put #filenr, , h_sum_inc_taxable
Put #filenr, , h_sum_inc_taxable1
Put #filenr, , h_tax_realestate
Put #filenr, , h_tax_total
Put #filenr, , h_trf_btp
Put #filenr, , h_trf_childallowance
Put #filenr, , h_trf_housingallowance
Put #filenr, , h_trf_pension
Put #filenr, , h_trf_socialassistance
Put #filenr, , h_trf_study
Put #filenr, , h_trf_taxable
Put #filenr, , h_trf_taxfree
Put #filenr, , h_wealth_CapitalGain
Put #filenr, , h_wealth_debt
Put #filenr, , h_wealth_debt_GLS1vc
Put #filenr, , h_wealth_debt_GLS2vc
Put #filenr, , h_wealth_debt_interest
Put #filenr, , h_wealth_debt_interest_varcomp_p
Put #filenr, , h_wealth_debt_interest_varcomp_r
Put #filenr, , h_wealth_debt_interest1
Put #filenr, , h_wealth_debt_interestrate
Put #filenr, , h_wealth_debt_interestrate1
Put #filenr, , h_wealth_debt_probit1vc
Put #filenr, , h_wealth_debt_probit2vc
Put #filenr, , h_wealth_debt_varcomp
Put #filenr, , h_wealth_debt1
Put #filenr, , h_wealth_DebtInterest_ind
Put #filenr, , h_wealth_DebtInterest_ind1
Put #filenr, , h_wealth_financial
Put #filenr, , h_wealth_financial_sales
Put #filenr, , h_wealth_financial_varcomp
Put #filenr, , h_wealth_financial1
Put #filenr, , h_wealth_InterestDividends
Put #filenr, , h_wealth_real
Put #filenr, , h_wealth_real_home
Put #filenr, , h_wealth_real_home1
Put #filenr, , h_wealth_real_other
Put #filenr, , h_wealth_real_other1
End Sub
Public Sub write_m_bin(filenr)
Dim nvar as Long
nvar= 311
Put #filenr, , nvar
Dim varname As String*100
Dim var_type As String*3
varname="m_AAK1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AAL1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AAPSYS"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AAPTOT"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKK7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKM7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_AKT1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALK7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ALM7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_aap_avs"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip_ap_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip_ins"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip_ins_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_adm_ip_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_apfond"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_apfond_trf"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_apfond1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_apfond2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_arv"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_arv_59"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_arv60_"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_atp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_atp_dead"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_atp_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_37"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ap_37"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ap1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ap2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ap3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_atak"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avg_ppm"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avgtill"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avgtill1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avgtill2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avgtill3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_avs"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balanstal"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balanstal_accum"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balind"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balind_active"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balind1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_balind2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_favg"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_fp_kvot_gifta"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_fp_kvot_ogifta"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_fp30_dead"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_fp30_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_gp_Inkindex_On"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_he66"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_index"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_inkind"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_inkind1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_inkind2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ip_avs"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ip_dead"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ip_dead_korr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ip_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_it"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ls66"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_norm"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ot"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ot1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ot2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ot3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ottak"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ottak1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pb_ip"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pb_tp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pp_avs"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pp_dead"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pp_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ppfond"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pr_ip"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_pts_kvot"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_sa"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_shares_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_skuld"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_skuld1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_skuld2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_skuld3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_sp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_summasnitt"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_tp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_tp_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_u68"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ud68"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ap_ut"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_akas_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_alon_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_arsk_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_eft_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_forp_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_ovr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_ovr_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_pens"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_pens_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_sjuk_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_slon"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_slon_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arbavg_slon38_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_arvsvinst_60"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ASY1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ASY2064R"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp_f"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp_ftp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp_gp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp_income"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp1"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp2"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp3"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp4"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_basbelopp5"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK0014"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK0015"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK1519"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK65WW"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFK7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM0014"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM0015"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM1519"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM1619"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM1664"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM2024"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM2529"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM3034"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM3539"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM4044"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM4549"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM5054"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM5559"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM6064"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM6569"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM65WW"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_BEFM7074"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_bnpaf"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_bnpal"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_bonds_return_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_born"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_dead"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_dtalip_65"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_dtalpp_65"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_egenavg_pens"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_egenavg_pens_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_egenavg_red_p"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_egenavg_tak_basb"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_emigrated"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_favg_ip"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_favg_pp"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_ftp_Inkindex_On"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_hcount"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_icount"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_immigrated"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_earning"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_taxable_snitt"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_taxable_snitt1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_taxable_snitt2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_taxable_snitt3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inc_taxable_snitt4"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_incmeas"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_incmeas1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_incmeas4"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_inflation"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_interest_long"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_interest_long99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_interest_short"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_interest_short1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_JmfInk_barn"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_KPI"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_KPI1"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_KPI2"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_KPI3"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_KPI4"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_macro_index"
var_type="Byt"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_netcontribution_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_netmigration"
var_type="Lon"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_netreturn_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_op_fond"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pb_ip_active"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pb_ip_active_n"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pensage"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pension_income_index"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgb"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgi"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgi_bas"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgi_bas_gt_basb"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgi_bas_gt_basb_n"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pgi_bas_n"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pp_fond"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_pr_op"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change00"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change01"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change02"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change03"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change04"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change05"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change06"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change07"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change08"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change09"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change10"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_change99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_rw_home"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_rw_home99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_rw_other"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price_rw_other99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_price99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change00"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change01"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change02"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change03"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change04"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change05"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change06"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change07"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change08"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change09"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change10"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_realwage_change99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_return_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_RFV_PB_On"
var_type="Int"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_dividends"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_dividends99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_rate"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_rate99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_return"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_return_ap"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_shares_total99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_TFR"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change00"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change01"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change02"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change03"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change04"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change05"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change06"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change07"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change08"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change09"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change10"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_wage_change99"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_weight"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_zpb_ip_korr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_zpb_pp_korr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_zpgb_korr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_zpgi_korr"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
varname="m_zzz"
var_type="Dou"
Put #filenr, , varname
Put #filenr, , var_type
Put #filenr, , m_AAK1664
Put #filenr, , m_AAL1664
Put #filenr, , m_AAPSYS
Put #filenr, , m_AAPTOT
Put #filenr, , m_AKK1619
Put #filenr, , m_AKK2024
Put #filenr, , m_AKK2529
Put #filenr, , m_AKK3034
Put #filenr, , m_AKK3539
Put #filenr, , m_AKK4044
Put #filenr, , m_AKK4549
Put #filenr, , m_AKK5054
Put #filenr, , m_AKK5559
Put #filenr, , m_AKK6064
Put #filenr, , m_AKK6569
Put #filenr, , m_AKK7074
Put #filenr, , m_AKM1619
Put #filenr, , m_AKM2024
Put #filenr, , m_AKM2529
Put #filenr, , m_AKM3034
Put #filenr, , m_AKM3539
Put #filenr, , m_AKM4044
Put #filenr, , m_AKM4549
Put #filenr, , m_AKM5054
Put #filenr, , m_AKM5559
Put #filenr, , m_AKM6064
Put #filenr, , m_AKM6569
Put #filenr, , m_AKM7074
Put #filenr, , m_AKT1664
Put #filenr, , m_ALK1619
Put #filenr, , m_ALK2024
Put #filenr, , m_ALK2529
Put #filenr, , m_ALK3034
Put #filenr, , m_ALK3539
Put #filenr, , m_ALK4044
Put #filenr, , m_ALK4549
Put #filenr, , m_ALK5054
Put #filenr, , m_ALK5559
Put #filenr, , m_ALK6064
Put #filenr, , m_ALK6569
Put #filenr, , m_ALK7074
Put #filenr, , m_ALM1619
Put #filenr, , m_ALM2024
Put #filenr, , m_ALM2529
Put #filenr, , m_ALM3034
Put #filenr, , m_ALM3539
Put #filenr, , m_ALM4044
Put #filenr, , m_ALM4549
Put #filenr, , m_ALM5054
Put #filenr, , m_ALM5559
Put #filenr, , m_ALM6064
Put #filenr, , m_ALM6569
Put #filenr, , m_ALM7074
Put #filenr, , m_ap_aap_avs
Put #filenr, , m_ap_adm_ip
Put #filenr, , m_ap_adm_ip_ap
Put #filenr, , m_ap_adm_ip_ap_p
Put #filenr, , m_ap_adm_ip_ins
Put #filenr, , m_ap_adm_ip_ins_p
Put #filenr, , m_ap_adm_ip_p
Put #filenr, , m_ap_ap
Put #filenr, , m_ap_apfond
Put #filenr, , m_ap_apfond_trf
Put #filenr, , m_ap_apfond1
Put #filenr, , m_ap_apfond2
Put #filenr, , m_ap_arv
Put #filenr, , m_ap_arv_59
Put #filenr, , m_ap_arv60_
Put #filenr, , m_ap_atp
Put #filenr, , m_ap_atp_dead
Put #filenr, , m_ap_atp_ut
Put #filenr, , m_ap_avg
Put #filenr, , m_ap_avg_37
Put #filenr, , m_ap_avg_ap
Put #filenr, , m_ap_avg_ap_37
Put #filenr, , m_ap_avg_ap1
Put #filenr, , m_ap_avg_ap2
Put #filenr, , m_ap_avg_ap3
Put #filenr, , m_ap_avg_atak
Put #filenr, , m_ap_avg_ppm
Put #filenr, , m_ap_avgtill
Put #filenr, , m_ap_avgtill1
Put #filenr, , m_ap_avgtill2
Put #filenr, , m_ap_avgtill3
Put #filenr, , m_ap_avs
Put #filenr, , m_ap_balanstal
Put #filenr, , m_ap_balanstal_accum
Put #filenr, , m_ap_balind
Put #filenr, , m_ap_balind_active
Put #filenr, , m_ap_balind1
Put #filenr, , m_ap_balind2
Put #filenr, , m_ap_favg
Put #filenr, , m_ap_fp_kvot_gifta
Put #filenr, , m_ap_fp_kvot_ogifta
Put #filenr, , m_ap_fp30_dead
Put #filenr, , m_ap_fp30_ut
Put #filenr, , m_ap_gp_Inkindex_On
Put #filenr, , m_ap_he66
Put #filenr, , m_ap_index
Put #filenr, , m_ap_inkind
Put #filenr, , m_ap_inkind1
Put #filenr, , m_ap_inkind2
Put #filenr, , m_ap_ip_avs
Put #filenr, , m_ap_ip_dead
Put #filenr, , m_ap_ip_dead_korr
Put #filenr, , m_ap_ip_ut
Put #filenr, , m_ap_it
Put #filenr, , m_ap_ls66
Put #filenr, , m_ap_norm
Put #filenr, , m_ap_ot
Put #filenr, , m_ap_ot1
Put #filenr, , m_ap_ot2
Put #filenr, , m_ap_ot3
Put #filenr, , m_ap_ottak
Put #filenr, , m_ap_ottak1
Put #filenr, , m_ap_pb_ip
Put #filenr, , m_ap_pb_tp
Put #filenr, , m_ap_pp_avs
Put #filenr, , m_ap_pp_dead
Put #filenr, , m_ap_pp_ut
Put #filenr, , m_ap_ppfond
Put #filenr, , m_ap_pr_ip
Put #filenr, , m_ap_pts_kvot
Put #filenr, , m_ap_sa
Put #filenr, , m_ap_shares_p
Put #filenr, , m_ap_skuld
Put #filenr, , m_ap_skuld1
Put #filenr, , m_ap_skuld2
Put #filenr, , m_ap_skuld3
Put #filenr, , m_ap_sp
Put #filenr, , m_ap_summasnitt
Put #filenr, , m_ap_tp
Put #filenr, , m_ap_tp_ut
Put #filenr, , m_ap_u68
Put #filenr, , m_ap_ud68
Put #filenr, , m_ap_ut
Put #filenr, , m_arbavg
Put #filenr, , m_arbavg_akas_p
Put #filenr, , m_arbavg_alon_p
Put #filenr, , m_arbavg_arsk_p
Put #filenr, , m_arbavg_eft_p
Put #filenr, , m_arbavg_forp_p
Put #filenr, , m_arbavg_ovr
Put #filenr, , m_arbavg_ovr_p
Put #filenr, , m_arbavg_p
Put #filenr, , m_arbavg_pens
Put #filenr, , m_arbavg_pens_p
Put #filenr, , m_arbavg_sjuk_p
Put #filenr, , m_arbavg_slon
Put #filenr, , m_arbavg_slon_p
Put #filenr, , m_arbavg_slon38_p
Put #filenr, , m_arvsvinst_60
Put #filenr, , m_ASY1664
Put #filenr, , m_ASY2064R
Put #filenr, , m_basbelopp
Put #filenr, , m_basbelopp_f
Put #filenr, , m_basbelopp_ftp
Put #filenr, , m_basbelopp_gp
Put #filenr, , m_basbelopp_income
Put #filenr, , m_basbelopp1
Put #filenr, , m_basbelopp2
Put #filenr, , m_basbelopp3
Put #filenr, , m_basbelopp4
Put #filenr, , m_basbelopp5
Put #filenr, , m_BEFK0014
Put #filenr, , m_BEFK0015
Put #filenr, , m_BEFK1519
Put #filenr, , m_BEFK1619
Put #filenr, , m_BEFK1664
Put #filenr, , m_BEFK2024
Put #filenr, , m_BEFK2529
Put #filenr, , m_BEFK3034
Put #filenr, , m_BEFK3539
Put #filenr, , m_BEFK4044
Put #filenr, , m_BEFK4549
Put #filenr, , m_BEFK5054
Put #filenr, , m_BEFK5559
Put #filenr, , m_BEFK6064
Put #filenr, , m_BEFK6569
Put #filenr, , m_BEFK65WW
Put #filenr, , m_BEFK7074
Put #filenr, , m_BEFM0014
Put #filenr, , m_BEFM0015
Put #filenr, , m_BEFM1519
Put #filenr, , m_BEFM1619
Put #filenr, , m_BEFM1664
Put #filenr, , m_BEFM2024
Put #filenr, , m_BEFM2529
Put #filenr, , m_BEFM3034
Put #filenr, , m_BEFM3539
Put #filenr, , m_BEFM4044
Put #filenr, , m_BEFM4549
Put #filenr, , m_BEFM5054
Put #filenr, , m_BEFM5559
Put #filenr, , m_BEFM6064
Put #filenr, , m_BEFM6569
Put #filenr, , m_BEFM65WW
Put #filenr, , m_BEFM7074
Put #filenr, , m_bnpaf
Put #filenr, , m_bnpal
Put #filenr, , m_bonds_return_ap
Put #filenr, , m_born
Put #filenr, , m_dead
Put #filenr, , m_dtalip_65
Put #filenr, , m_dtalpp_65
Put #filenr, , m_egenavg_pens
Put #filenr, , m_egenavg_pens_p
Put #filenr, , m_egenavg_red_p
Put #filenr, , m_egenavg_tak_basb
Put #filenr, , m_emigrated
Put #filenr, , m_favg_ip
Put #filenr, , m_favg_pp
Put #filenr, , m_ftp_Inkindex_On
Put #filenr, , m_hcount
Put #filenr, , m_icount
Put #filenr, , m_immigrated
Put #filenr, , m_inc_earning
Put #filenr, , m_inc_taxable_snitt
Put #filenr, , m_inc_taxable_snitt1
Put #filenr, , m_inc_taxable_snitt2
Put #filenr, , m_inc_taxable_snitt3
Put #filenr, , m_inc_taxable_snitt4
Put #filenr, , m_incmeas
Put #filenr, , m_incmeas1
Put #filenr, , m_incmeas4
Put #filenr, , m_inflation
Put #filenr, , m_interest_long
Put #filenr, , m_interest_long99
Put #filenr, , m_interest_short
Put #filenr, , m_interest_short1
Put #filenr, , m_JmfInk_barn
Put #filenr, , m_KPI
Put #filenr, , m_KPI1
Put #filenr, , m_KPI2
Put #filenr, , m_KPI3
Put #filenr, , m_KPI4
Put #filenr, , m_macro_index
Put #filenr, , m_netcontribution_ap
Put #filenr, , m_netmigration
Put #filenr, , m_netreturn_ap
Put #filenr, , m_op_fond
Put #filenr, , m_pb_ip_active
Put #filenr, , m_pb_ip_active_n
Put #filenr, , m_pensage
Put #filenr, , m_pension_income_index
Put #filenr, , m_pgb
Put #filenr, , m_pgi
Put #filenr, , m_pgi_bas
Put #filenr, , m_pgi_bas_gt_basb
Put #filenr, , m_pgi_bas_gt_basb_n
Put #filenr, , m_pgi_bas_n
Put #filenr, , m_pp_fond
Put #filenr, , m_pr_op
Put #filenr, , m_price_change00
Put #filenr, , m_price_change01
Put #filenr, , m_price_change02
Put #filenr, , m_price_change03
Put #filenr, , m_price_change04
Put #filenr, , m_price_change05
Put #filenr, , m_price_change06
Put #filenr, , m_price_change07
Put #filenr, , m_price_change08
Put #filenr, , m_price_change09
Put #filenr, , m_price_change10
Put #filenr, , m_price_change99
Put #filenr, , m_price_rw_home
Put #filenr, , m_price_rw_home99
Put #filenr, , m_price_rw_other
Put #filenr, , m_price_rw_other99
Put #filenr, , m_price99
Put #filenr, , m_realwage
Put #filenr, , m_realwage_change00
Put #filenr, , m_realwage_change01
Put #filenr, , m_realwage_change02
Put #filenr, , m_realwage_change03
Put #filenr, , m_realwage_change04
Put #filenr, , m_realwage_change05
Put #filenr, , m_realwage_change06
Put #filenr, , m_realwage_change07
Put #filenr, , m_realwage_change08
Put #filenr, , m_realwage_change09
Put #filenr, , m_realwage_change10
Put #filenr, , m_realwage_change99
Put #filenr, , m_return_ap
Put #filenr, , m_RFV_PB_On
Put #filenr, , m_shares_dividends
Put #filenr, , m_shares_dividends99
Put #filenr, , m_shares_rate
Put #filenr, , m_shares_rate99
Put #filenr, , m_shares_return
Put #filenr, , m_shares_return_ap
Put #filenr, , m_shares_total99
Put #filenr, , m_TFR
Put #filenr, , m_wage_change00
Put #filenr, , m_wage_change01
Put #filenr, , m_wage_change02
Put #filenr, , m_wage_change03
Put #filenr, , m_wage_change04
Put #filenr, , m_wage_change05
Put #filenr, , m_wage_change06
Put #filenr, , m_wage_change07
Put #filenr, , m_wage_change08
Put #filenr, , m_wage_change09
Put #filenr, , m_wage_change10
Put #filenr, , m_wage_change99
Put #filenr, , m_weight
Put #filenr, , m_zpb_ip_korr
Put #filenr, , m_zpb_pp_korr
Put #filenr, , m_zpgb_korr
Put #filenr, , m_zpgi_korr
Put #filenr, , m_zzz
End Sub
Public Sub read_m_bin(fnum)
Dim nvar As Long
Get #fnum, , nvar
Dim dummy_int As Integer
Dim dummy_lon As Long
Dim dummy_dou As Double
Dim dummy_sin As Single
'*** Read variable names
Dim varname() As String * 100
Dim var_type() As String * 3
ReDim varname(nvar)
ReDim var_type(nvar)
For i = 1 To nvar
Get #fnum, , varname(i)
Get #fnum, , var_type(i)
Next
For i = 1 To nvar
Select Case Trim$(lcase(varname(i)))
Case "m_aak1664"
Get #fnum,, m_aak1664
Case "m_aal1664"
Get #fnum,, m_aal1664
Case "m_aapsys"
Get #fnum,, m_aapsys
Case "m_aaptot"
Get #fnum,, m_aaptot
Case "m_akk1619"
Get #fnum,, m_akk1619
Case "m_akk2024"
Get #fnum,, m_akk2024
Case "m_akk2529"
Get #fnum,, m_akk2529
Case "m_akk3034"
Get #fnum,, m_akk3034
Case "m_akk3539"
Get #fnum,, m_akk3539
Case "m_akk4044"
Get #fnum,, m_akk4044
Case "m_akk4549"
Get #fnum,, m_akk4549
Case "m_akk5054"
Get #fnum,, m_akk5054
Case "m_akk5559"
Get #fnum,, m_akk5559
Case "m_akk6064"
Get #fnum,, m_akk6064
Case "m_akk6569"
Get #fnum,, m_akk6569
Case "m_akk7074"
Get #fnum,, m_akk7074
Case "m_akm1619"
Get #fnum,, m_akm1619
Case "m_akm2024"
Get #fnum,, m_akm2024
Case "m_akm2529"
Get #fnum,, m_akm2529
Case "m_akm3034"
Get #fnum,, m_akm3034
Case "m_akm3539"
Get #fnum,, m_akm3539
Case "m_akm4044"
Get #fnum,, m_akm4044
Case "m_akm4549"
Get #fnum,, m_akm4549
Case "m_akm5054"
Get #fnum,, m_akm5054
Case "m_akm5559"
Get #fnum,, m_akm5559
Case "m_akm6064"
Get #fnum,, m_akm6064
Case "m_akm6569"
Get #fnum,, m_akm6569
Case "m_akm7074"
Get #fnum,, m_akm7074
Case "m_akt1664"
Get #fnum,, m_akt1664
Case "m_alk1619"
Get #fnum,, m_alk1619
Case "m_alk2024"
Get #fnum,, m_alk2024
Case "m_alk2529"
Get #fnum,, m_alk2529
Case "m_alk3034"
Get #fnum,, m_alk3034
Case "m_alk3539"
Get #fnum,, m_alk3539
Case "m_alk4044"
Get #fnum,, m_alk4044
Case "m_alk4549"
Get #fnum,, m_alk4549
Case "m_alk5054"
Get #fnum,, m_alk5054
Case "m_alk5559"
Get #fnum,, m_alk5559
Case "m_alk6064"
Get #fnum,, m_alk6064
Case "m_alk6569"
Get #fnum,, m_alk6569
Case "m_alk7074"
Get #fnum,, m_alk7074
Case "m_alm1619"
Get #fnum,, m_alm1619
Case "m_alm2024"
Get #fnum,, m_alm2024
Case "m_alm2529"
Get #fnum,, m_alm2529
Case "m_alm3034"
Get #fnum,, m_alm3034
Case "m_alm3539"
Get #fnum,, m_alm3539
Case "m_alm4044"
Get #fnum,, m_alm4044
Case "m_alm4549"
Get #fnum,, m_alm4549
Case "m_alm5054"
Get #fnum,, m_alm5054
Case "m_alm5559"
Get #fnum,, m_alm5559
Case "m_alm6064"
Get #fnum,, m_alm6064
Case "m_alm6569"
Get #fnum,, m_alm6569
Case "m_alm7074"
Get #fnum,, m_alm7074
Case "m_ap_aap_avs"
Get #fnum,, m_ap_aap_avs
Case "m_ap_adm_ip"
Get #fnum,, m_ap_adm_ip
Case "m_ap_adm_ip_ap"
Get #fnum,, m_ap_adm_ip_ap
Case "m_ap_adm_ip_ap_p"
Get #fnum,, m_ap_adm_ip_ap_p
Case "m_ap_adm_ip_ins"
Get #fnum,, m_ap_adm_ip_ins
Case "m_ap_adm_ip_ins_p"
Get #fnum,, m_ap_adm_ip_ins_p
Case "m_ap_adm_ip_p"
Get #fnum,, m_ap_adm_ip_p
Case "m_ap_ap"
Get #fnum,, m_ap_ap
Case "m_ap_apfond"
Get #fnum,, m_ap_apfond
Case "m_ap_apfond_trf"
Get #fnum,, m_ap_apfond_trf
Case "m_ap_apfond1"
Get #fnum,, m_ap_apfond1
Case "m_ap_apfond2"
Get #fnum,, m_ap_apfond2
Case "m_ap_arv"
Get #fnum,, m_ap_arv
Case "m_ap_arv_59"
Get #fnum,, m_ap_arv_59
Case "m_ap_arv60_"
Get #fnum,, m_ap_arv60_
Case "m_ap_atp"
Get #fnum,, m_ap_atp
Case "m_ap_atp_dead"
Get #fnum,, m_ap_atp_dead
Case "m_ap_atp_ut"
Get #fnum,, m_ap_atp_ut
Case "m_ap_avg"
Get #fnum,, m_ap_avg
Case "m_ap_avg_37"
Get #fnum,, m_ap_avg_37
Case "m_ap_avg_ap"
Get #fnum,, m_ap_avg_ap
Case "m_ap_avg_ap_37"
Get #fnum,, m_ap_avg_ap_37
Case "m_ap_avg_ap1"
Get #fnum,, m_ap_avg_ap1
Case "m_ap_avg_ap2"
Get #fnum,, m_ap_avg_ap2
Case "m_ap_avg_ap3"
Get #fnum,, m_ap_avg_ap3
Case "m_ap_avg_atak"
Get #fnum,, m_ap_avg_atak
Case "m_ap_avg_ppm"
Get #fnum,, m_ap_avg_ppm
Case "m_ap_avgtill"
Get #fnum,, m_ap_avgtill
Case "m_ap_avgtill1"
Get #fnum,, m_ap_avgtill1
Case "m_ap_avgtill2"
Get #fnum,, m_ap_avgtill2
Case "m_ap_avgtill3"
Get #fnum,, m_ap_avgtill3
Case "m_ap_avs"
Get #fnum,, m_ap_avs
Case "m_ap_balanstal"
Get #fnum,, m_ap_balanstal
Case "m_ap_balanstal_accum"
Get #fnum,, m_ap_balanstal_accum
Case "m_ap_balind"
Get #fnum,, m_ap_balind
Case "m_ap_balind_active"
Get #fnum,, m_ap_balind_active
Case "m_ap_balind1"
Get #fnum,, m_ap_balind1
Case "m_ap_balind2"
Get #fnum,, m_ap_balind2
Case "m_ap_favg"
Get #fnum,, m_ap_favg
Case "m_ap_fp_kvot_gifta"
Get #fnum,, m_ap_fp_kvot_gifta
Case "m_ap_fp_kvot_ogifta"
Get #fnum,, m_ap_fp_kvot_ogifta
Case "m_ap_fp30_dead"
Get #fnum,, m_ap_fp30_dead
Case "m_ap_fp30_ut"
Get #fnum,, m_ap_fp30_ut
Case "m_ap_gp_inkindex_on"
Get #fnum,, m_ap_gp_inkindex_on
Case "m_ap_he66"
Get #fnum,, m_ap_he66
Case "m_ap_index"
Get #fnum,, m_ap_index
Case "m_ap_inkind"
Get #fnum,, m_ap_inkind
Case "m_ap_inkind1"
Get #fnum,, m_ap_inkind1
Case "m_ap_inkind2"
Get #fnum,, m_ap_inkind2
Case "m_ap_ip_avs"
Get #fnum,, m_ap_ip_avs
Case "m_ap_ip_dead"
Get #fnum,, m_ap_ip_dead
Case "m_ap_ip_dead_korr"
Get #fnum,, m_ap_ip_dead_korr
Case "m_ap_ip_ut"
Get #fnum,, m_ap_ip_ut
Case "m_ap_it"
Get #fnum,, m_ap_it
Case "m_ap_ls66"
Get #fnum,, m_ap_ls66
Case "m_ap_norm"
Get #fnum,, m_ap_norm
Case "m_ap_ot"
Get #fnum,, m_ap_ot
Case "m_ap_ot1"
Get #fnum,, m_ap_ot1
Case "m_ap_ot2"
Get #fnum,, m_ap_ot2
Case "m_ap_ot3"
Get #fnum,, m_ap_ot3
Case "m_ap_ottak"
Get #fnum,, m_ap_ottak
Case "m_ap_ottak1"
Get #fnum,, m_ap_ottak1
Case "m_ap_pb_ip"
Get #fnum,, m_ap_pb_ip
Case "m_ap_pb_tp"
Get #fnum,, m_ap_pb_tp
Case "m_ap_pp_avs"
Get #fnum,, m_ap_pp_avs
Case "m_ap_pp_dead"
Get #fnum,, m_ap_pp_dead
Case "m_ap_pp_ut"
Get #fnum,, m_ap_pp_ut
Case "m_ap_ppfond"
Get #fnum,, m_ap_ppfond
Case "m_ap_pr_ip"
Get #fnum,, m_ap_pr_ip
Case "m_ap_pts_kvot"
Get #fnum,, m_ap_pts_kvot
Case "m_ap_sa"
Get #fnum,, m_ap_sa
Case "m_ap_shares_p"
Get #fnum,, m_ap_shares_p
Case "m_ap_skuld"
Get #fnum,, m_ap_skuld
Case "m_ap_skuld1"
Get #fnum,, m_ap_skuld1
Case "m_ap_skuld2"
Get #fnum,, m_ap_skuld2
Case "m_ap_skuld3"
Get #fnum,, m_ap_skuld3
Case "m_ap_sp"
Get #fnum,, m_ap_sp
Case "m_ap_summasnitt"
Get #fnum,, m_ap_summasnitt
Case "m_ap_tp"
Get #fnum,, m_ap_tp
Case "m_ap_tp_ut"
Get #fnum,, m_ap_tp_ut
Case "m_ap_u68"
Get #fnum,, m_ap_u68
Case "m_ap_ud68"
Get #fnum,, m_ap_ud68
Case "m_ap_ut"
Get #fnum,, m_ap_ut
Case "m_arbavg"
Get #fnum,, m_arbavg
Case "m_arbavg_akas_p"
Get #fnum,, m_arbavg_akas_p
Case "m_arbavg_alon_p"
Get #fnum,, m_arbavg_alon_p
Case "m_arbavg_arsk_p"
Get #fnum,, m_arbavg_arsk_p
Case "m_arbavg_eft_p"
Get #fnum,, m_arbavg_eft_p
Case "m_arbavg_forp_p"
Get #fnum,, m_arbavg_forp_p
Case "m_arbavg_ovr"
Get #fnum,, m_arbavg_ovr
Case "m_arbavg_ovr_p"
Get #fnum,, m_arbavg_ovr_p
Case "m_arbavg_p"
Get #fnum,, m_arbavg_p
Case "m_arbavg_pens"
Get #fnum,, m_arbavg_pens
Case "m_arbavg_pens_p"
Get #fnum,, m_arbavg_pens_p
Case "m_arbavg_sjuk_p"
Get #fnum,, m_arbavg_sjuk_p
Case "m_arbavg_slon"
Get #fnum,, m_arbavg_slon
Case "m_arbavg_slon_p"
Get #fnum,, m_arbavg_slon_p
Case "m_arbavg_slon38_p"
Get #fnum,, m_arbavg_slon38_p
Case "m_arvsvinst_60"
Get #fnum,, m_arvsvinst_60
Case "m_asy1664"
Get #fnum,, m_asy1664
Case "m_asy2064r"
Get #fnum,, m_asy2064r
Case "m_basbelopp"
Get #fnum,, m_basbelopp
Case "m_basbelopp_f"
Get #fnum,, m_basbelopp_f
Case "m_basbelopp_ftp"
Get #fnum,, m_basbelopp_ftp
Case "m_basbelopp_gp"
Get #fnum,, m_basbelopp_gp
Case "m_basbelopp_income"
Get #fnum,, m_basbelopp_income
Case "m_basbelopp1"
Get #fnum,, m_basbelopp1
Case "m_basbelopp2"
Get #fnum,, m_basbelopp2
Case "m_basbelopp3"
Get #fnum,, m_basbelopp3
Case "m_basbelopp4"
Get #fnum,, m_basbelopp4
Case "m_basbelopp5"
Get #fnum,, m_basbelopp5
Case "m_befk0014"
Get #fnum,, m_befk0014
Case "m_befk0015"
Get #fnum,, m_befk0015
Case "m_befk1519"
Get #fnum,, m_befk1519
Case "m_befk1619"
Get #fnum,, m_befk1619
Case "m_befk1664"
Get #fnum,, m_befk1664
Case "m_befk2024"
Get #fnum,, m_befk2024
Case "m_befk2529"
Get #fnum,, m_befk2529
Case "m_befk3034"
Get #fnum,, m_befk3034
Case "m_befk3539"
Get #fnum,, m_befk3539
Case "m_befk4044"
Get #fnum,, m_befk4044
Case "m_befk4549"
Get #fnum,, m_befk4549
Case "m_befk5054"
Get #fnum,, m_befk5054
Case "m_befk5559"
Get #fnum,, m_befk5559
Case "m_befk6064"
Get #fnum,, m_befk6064
Case "m_befk6569"
Get #fnum,, m_befk6569
Case "m_befk65ww"
Get #fnum,, m_befk65ww
Case "m_befk7074"
Get #fnum,, m_befk7074
Case "m_befm0014"
Get #fnum,, m_befm0014
Case "m_befm0015"
Get #fnum,, m_befm0015
Case "m_befm1519"
Get #fnum,, m_befm1519
Case "m_befm1619"
Get #fnum,, m_befm1619
Case "m_befm1664"
Get #fnum,, m_befm1664
Case "m_befm2024"
Get #fnum,, m_befm2024
Case "m_befm2529"
Get #fnum,, m_befm2529
Case "m_befm3034"
Get #fnum,, m_befm3034
Case "m_befm3539"
Get #fnum,, m_befm3539
Case "m_befm4044"
Get #fnum,, m_befm4044
Case "m_befm4549"
Get #fnum,, m_befm4549
Case "m_befm5054"
Get #fnum,, m_befm5054
Case "m_befm5559"
Get #fnum,, m_befm5559
Case "m_befm6064"
Get #fnum,, m_befm6064
Case "m_befm6569"
Get #fnum,, m_befm6569
Case "m_befm65ww"
Get #fnum,, m_befm65ww
Case "m_befm7074"
Get #fnum,, m_befm7074
Case "m_bnpaf"
Get #fnum,, m_bnpaf
Case "m_bnpal"
Get #fnum,, m_bnpal
Case "m_bonds_return_ap"
Get #fnum,, m_bonds_return_ap
Case "m_born"
Get #fnum,, m_born
Case "m_dead"
Get #fnum,, m_dead
Case "m_dtalip_65"
Get #fnum,, m_dtalip_65
Case "m_dtalpp_65"
Get #fnum,, m_dtalpp_65
Case "m_egenavg_pens"
Get #fnum,, m_egenavg_pens
Case "m_egenavg_pens_p"
Get #fnum,, m_egenavg_pens_p
Case "m_egenavg_red_p"
Get #fnum,, m_egenavg_red_p
Case "m_egenavg_tak_basb"
Get #fnum,, m_egenavg_tak_basb
Case "m_emigrated"
Get #fnum,, m_emigrated
Case "m_favg_ip"
Get #fnum,, m_favg_ip
Case "m_favg_pp"
Get #fnum,, m_favg_pp
Case "m_ftp_inkindex_on"
Get #fnum,, m_ftp_inkindex_on
Case "m_hcount"
Get #fnum,, m_hcount
Case "m_icount"
Get #fnum,, m_icount
Case "m_immigrated"
Get #fnum,, m_immigrated
Case "m_inc_earning"
Get #fnum,, m_inc_earning
Case "m_inc_taxable_snitt"
Get #fnum,, m_inc_taxable_snitt
Case "m_inc_taxable_snitt1"
Get #fnum,, m_inc_taxable_snitt1
Case "m_inc_taxable_snitt2"
Get #fnum,, m_inc_taxable_snitt2
Case "m_inc_taxable_snitt3"
Get #fnum,, m_inc_taxable_snitt3
Case "m_inc_taxable_snitt4"
Get #fnum,, m_inc_taxable_snitt4
Case "m_incmeas"
Get #fnum,, m_incmeas
Case "m_incmeas1"
Get #fnum,, m_incmeas1
Case "m_incmeas4"
Get #fnum,, m_incmeas4
Case "m_inflation"
Get #fnum,, m_inflation
Case "m_interest_long"
Get #fnum,, m_interest_long
Case "m_interest_long99"
Get #fnum,, m_interest_long99
Case "m_interest_short"
Get #fnum,, m_interest_short
Case "m_interest_short1"
Get #fnum,, m_interest_short1
Case "m_jmfink_barn"
Get #fnum,, m_jmfink_barn
Case "m_kpi"
Get #fnum,, m_kpi
Case "m_kpi1"
Get #fnum,, m_kpi1
Case "m_kpi2"
Get #fnum,, m_kpi2
Case "m_kpi3"
Get #fnum,, m_kpi3
Case "m_kpi4"
Get #fnum,, m_kpi4
Case "m_macro_index"
Get #fnum,, m_macro_index
Case "m_netcontribution_ap"
Get #fnum,, m_netcontribution_ap
Case "m_netmigration"
Get #fnum,, m_netmigration
Case "m_netreturn_ap"
Get #fnum,, m_netreturn_ap
Case "m_op_fond"
Get #fnum,, m_op_fond
Case "m_pb_ip_active"
Get #fnum,, m_pb_ip_active
Case "m_pb_ip_active_n"
Get #fnum,, m_pb_ip_active_n
Case "m_pensage"
Get #fnum,, m_pensage
Case "m_pension_income_index"
Get #fnum,, m_pension_income_index
Case "m_pgb"
Get #fnum,, m_pgb
Case "m_pgi"
Get #fnum,, m_pgi
Case "m_pgi_bas"
Get #fnum,, m_pgi_bas
Case "m_pgi_bas_gt_basb"
Get #fnum,, m_pgi_bas_gt_basb
Case "m_pgi_bas_gt_basb_n"
Get #fnum,, m_pgi_bas_gt_basb_n
Case "m_pgi_bas_n"
Get #fnum,, m_pgi_bas_n
Case "m_pp_fond"
Get #fnum,, m_pp_fond
Case "m_pr_op"
Get #fnum,, m_pr_op
Case "m_price_change00"
Get #fnum,, m_price_change00
Case "m_price_change01"
Get #fnum,, m_price_change01
Case "m_price_change02"
Get #fnum,, m_price_change02
Case "m_price_change03"
Get #fnum,, m_price_change03
Case "m_price_change04"
Get #fnum,, m_price_change04
Case "m_price_change05"
Get #fnum,, m_price_change05
Case "m_price_change06"
Get #fnum,, m_price_change06
Case "m_price_change07"
Get #fnum,, m_price_change07
Case "m_price_change08"
Get #fnum,, m_price_change08
Case "m_price_change09"
Get #fnum,, m_price_change09
Case "m_price_change10"
Get #fnum,, m_price_change10
Case "m_price_change99"
Get #fnum,, m_price_change99
Case "m_price_rw_home"
Get #fnum,, m_price_rw_home
Case "m_price_rw_home99"
Get #fnum,, m_price_rw_home99
Case "m_price_rw_other"
Get #fnum,, m_price_rw_other
Case "m_price_rw_other99"
Get #fnum,, m_price_rw_other99
Case "m_price99"
Get #fnum,, m_price99
Case "m_realwage"
Get #fnum,, m_realwage
Case "m_realwage_change00"
Get #fnum,, m_realwage_change00
Case "m_realwage_change01"
Get #fnum,, m_realwage_change01
Case "m_realwage_change02"
Get #fnum,, m_realwage_change02
Case "m_realwage_change03"
Get #fnum,, m_realwage_change03
Case "m_realwage_change04"
Get #fnum,, m_realwage_change04
Case "m_realwage_change05"
Get #fnum,, m_realwage_change05
Case "m_realwage_change06"
Get #fnum,, m_realwage_change06
Case "m_realwage_change07"
Get #fnum,, m_realwage_change07
Case "m_realwage_change08"
Get #fnum,, m_realwage_change08
Case "m_realwage_change09"
Get #fnum,, m_realwage_change09
Case "m_realwage_change10"
Get #fnum,, m_realwage_change10
Case "m_realwage_change99"
Get #fnum,, m_realwage_change99
Case "m_return_ap"
Get #fnum,, m_return_ap
Case "m_rfv_pb_on"
Get #fnum,, m_rfv_pb_on
Case "m_shares_dividends"
Get #fnum,, m_shares_dividends
Case "m_shares_dividends99"
Get #fnum,, m_shares_dividends99
Case "m_shares_rate"
Get #fnum,, m_shares_rate
Case "m_shares_rate99"
Get #fnum,, m_shares_rate99
Case "m_shares_return"
Get #fnum,, m_shares_return
Case "m_shares_return_ap"
Get #fnum,, m_shares_return_ap
Case "m_shares_total99"
Get #fnum,, m_shares_total99
Case "m_tfr"
Get #fnum,, m_tfr
Case "m_wage_change00"
Get #fnum,, m_wage_change00
Case "m_wage_change01"
Get #fnum,, m_wage_change01
Case "m_wage_change02"
Get #fnum,, m_wage_change02
Case "m_wage_change03"
Get #fnum,, m_wage_change03
Case "m_wage_change04"
Get #fnum,, m_wage_change04
Case "m_wage_change05"
Get #fnum,, m_wage_change05
Case "m_wage_change06"
Get #fnum,, m_wage_change06
Case "m_wage_change07"
Get #fnum,, m_wage_change07
Case "m_wage_change08"
Get #fnum,, m_wage_change08
Case "m_wage_change09"
Get #fnum,, m_wage_change09
Case "m_wage_change10"
Get #fnum,, m_wage_change10
Case "m_wage_change99"
Get #fnum,, m_wage_change99
Case "m_weight"
Get #fnum,, m_weight
Case "m_zpb_ip_korr"
Get #fnum,, m_zpb_ip_korr
Case "m_zpb_pp_korr"
Get #fnum,, m_zpb_pp_korr
Case "m_zpgb_korr"
Get #fnum,, m_zpgb_korr
Case "m_zpgi_korr"
Get #fnum,, m_zpgi_korr
Case "m_zzz"
Get #fnum,, m_zzz
Case Else
status "Could not read variable: " & varname(i)
Select Case LCase(var_type(i))
Case "int"
Get #fnum, , dummy_int
Case "lon"
Get #fnum, , dummy_lon
Case "dou"
Get #fnum, , dummy_dou
Case "sin"
Get #fnum, , dummy_sin
Case Else
status "Problem reading file"
End Select
End Select
Next
End Sub
Public Sub write_sas_program()
Dim fname As String
Dim fnum As Integer
Dim i As long
Dim rest As long
fnum = FreeFile
fname ="microdata\to_sas_" & model_time & ".sas"
Open fname For Output As fnum
Print #fnum, "Data ses_i"& model_time & ";"
Print #fnum, "input
Print #fnum, "i_aap"
Print #fnum, "i_abroad"
Print #fnum, "i_ADL"
Print #fnum, "i_ADL_rnd"
Print #fnum, "i_age"
Print #fnum, "i_ap"
Print #fnum, "i_ap_ap"
Print #fnum, "i_ap_atp"
Print #fnum, "i_ap_atp_1994"
Print #fnum, "i_ap_atp_old"
Print #fnum, "i_ap_atp_ut"
Print #fnum, "i_ap_fiktiv"
Print #fnum, "i_ap_fp"
Print #fnum, "i_ap_fp30"
Print #fnum, "i_ap_fp30_1994"
Print #fnum, "i_ap_fp30_ut"
Print #fnum, "i_ap_gartill"
Print #fnum, "i_ap_gp"
Print #fnum, "i_ap_ip"
Print #fnum, "i_ap_ip_ut"
Print #fnum, "i_ap_ip1"
Print #fnum, "i_ap_pensmonth"
Print #fnum, "i_ap_pp"
Print #fnum, "i_ap_pp_ut"
Print #fnum, "i_ap_pts"
Print #fnum, "i_ap_tp"
Print #fnum, "i_ap_tp_ut"
Print #fnum, "i_arbavg"
Print #fnum, "i_arbavg_akas"
Print #fnum, "i_arbavg_alon"
Print #fnum, "i_arbavg_arsk"
Print #fnum, "i_arbavg_eft"
Print #fnum, "i_arbavg_forp"
Print #fnum, "i_arbavg_pens"
Print #fnum, "i_arbavg_sjuk"
Print #fnum, "i_arbavg_slon"
Print #fnum, "i_arbavg_slon38"
Print #fnum, "i_assistance_elderly"
Print #fnum, "i_ATP_ar_1994"
Print #fnum, "i_avg"
Print #fnum, "i_avg_aap"
Print #fnum, "i_avg_ftp"
Print #fnum, "i_avg_inc_at_retirement"
Print #fnum, "i_avg_income_1997"
Print #fnum, "i_avg_ip"
Print #fnum, "i_avg_ip2"
Print #fnum, "i_avg_pgb"
Print #fnum, "i_avg_stap"
Print #fnum, "i_avg_trf"
Print #fnum, "i_avg2"
Print #fnum, "i_BB_region"
Print #fnum, "i_bidnr"
Print #fnum, "i_binvar"
Print #fnum, "i_born_abroad"
Print #fnum, "i_born_year"
Print #fnum, "i_botid"
Print #fnum, "i_bvux"
Print #fnum, "i_bvux1"
Print #fnum, "i_civ_stat"
Print #fnum, "i_civ_stat1"
Print #fnum, "i_edlevel"
Print #fnum, "i_edyears"
Print #fnum, "i_emig_year"
Print #fnum, "i_ftp"
Print #fnum, "i_ftp_64"
Print #fnum, "i_ftp_antag"
Print #fnum, "i_ftp_atp"
Print #fnum, "i_ftp_fp"
Print #fnum, "i_ftp_gar"
Print #fnum, "i_ftp_ink"
Print #fnum, "i_ftp_just"
Print #fnum, "i_ftp_pts"
Print #fnum, "i_ftp_typ"
Print #fnum, "i_ftp_year"
Print #fnum, "i_HasBeenWidowed"
Print #fnum, "i_health"
Print #fnum, "i_health_latent"
Print #fnum, "i_health_latent1"
Print #fnum, "i_health1"
Print #fnum, "i_hhnr"
Print #fnum, "i_hhstatus"
Print #fnum, "i_housetax_postponed"
Print #fnum, "i_hsdropout"
Print #fnum, "i_inc_capital"
Print #fnum, "i_inc_earning"
Print #fnum, "i_inc_itvariance"
Print #fnum, "i_inc_ivariance"
Print #fnum, "i_inc_market"
Print #fnum, "i_inc_selfemployed"
Print #fnum, "i_inc_taxable"
Print #fnum, "i_inc_taxable1"
Print #fnum, "i_inc_taxable2"
Print #fnum, "i_inc_taxable3"
Print #fnum, "i_inc_taxable4"
Print #fnum, "i_inc_taxable5"
Print #fnum, "i_inc_taxed"
Print #fnum, "i_inc_work"
Print #fnum, "i_income"
Print #fnum, "i_indnr"
Print #fnum, "i_InpatientCare"
Print #fnum, "i_last_hh_dur"
Print #fnum, "i_maintenance_paid"
Print #fnum, "i_mATP_1994"
Print #fnum, "i_new_em"
Print #fnum, "i_new_fp"
Print #fnum, "i_new_immig"
Print #fnum, "i_next_indnr"
Print #fnum, "i_nr_prev_hh"
Print #fnum, "i_op"
Print #fnum, "i_op_an_db_after_65"
Print #fnum, "i_op_an_db_before_65"
Print #fnum, "i_op_an_dc_after_65"
Print #fnum, "i_op_an_dc_before_65"
Print #fnum, "i_op_ap_db"
Print #fnum, "i_op_ap_dc"
Print #fnum, "i_op_ap_tp"
Print #fnum, "i_op_capital_value"
Print #fnum, "i_op_erp"
Print #fnum, "i_op_pp_years"
Print #fnum, "i_op_pp_years_Blue"
Print #fnum, "i_op_pp_years_Local"
Print #fnum, "i_op_pp_years_State"
Print #fnum, "i_op_pp_years_trans"
Print #fnum, "i_op_pp_years_White"
Print #fnum, "i_op_retirement_individual_effect"
Print #fnum, "i_p_andel"
Print #fnum, "i_p_antman"
Print #fnum, "i_pb_fiktiv"
Print #fnum, "i_pb_ip"
Print #fnum, "i_pb_ip1"
Print #fnum, "i_pb_op_ap"
Print #fnum, "i_pb_op_tp"
Print #fnum, "i_pb_pp"
Print #fnum, "i_pbhi"
Print #fnum, "i_pc_care"
Print #fnum, "i_pc_childcare"
Print #fnum, "i_pc_elderly"
Print #fnum, "i_pc_high_school"
Print #fnum, "i_pc_labor"
Print #fnum, "i_pc_MAE"
Print #fnum, "i_pc_medicine"
Print #fnum, "i_pc_school"
Print #fnum, "i_pc_school_adult"
Print #fnum, "i_pc_total"
Print #fnum, "i_pc_univ"
Print #fnum, "i_pgb"
Print #fnum, "i_pgb_antag"
Print #fnum, "i_pgb_barn"
Print #fnum, "i_pgb_barn_typ"
Print #fnum, "i_pgb_plikt"
Print #fnum, "i_pgb_stud"
Print #fnum, "i_pgi"
Print #fnum, "i_pgi_bas"
Print #fnum, "i_pgi_orange"
Print #fnum, "i_pgi185"
Print #fnum, "i_pp"
Print #fnum, "i_pp_payout_time"
Print #fnum, "i_ppmkap"
Print #fnum, "i_pr_ip"
Print #fnum, "i_pr_ip1"
Print #fnum, "i_pr_op_ap"
Print #fnum, "i_pr_op_tp"
Print #fnum, "i_pr_pp"
Print #fnum, "i_pr_pp1"
Print #fnum, "i_prob_unemployed"
Print #fnum, "i_prob_working"
Print #fnum, "i_pu"
Print #fnum, "i_pu_ind_comp"
Print #fnum, "i_pu_orange"
Print #fnum, "i_sarbavg_pens"
Print #fnum, "i_sector"
Print #fnum, "i_sector1"
Print #fnum, "i_selected"
Print #fnum, "i_sex"
Print #fnum, "i_sick_ind"
Print #fnum, "i_sick_ind1"
Print #fnum, "i_sick_ind2"
Print #fnum, "i_sick_ind3"
Print #fnum, "i_sick_ind4"
Print #fnum, "i_sick_ind5"
Print #fnum, "i_sick_ind6"
Print #fnum, "i_sickleave"
Print #fnum, "i_sickleave_ivariance"
Print #fnum, "i_stap_ftp"
Print #fnum, "i_stap_trf"
Print #fnum, "i_status"
Print #fnum, "i_status1"
Print #fnum, "i_student"
Print #fnum, "i_study_debt"
Print #fnum, "i_studyloan_repaid"
Print #fnum, "i_surv"
Print #fnum, "i_surv_atp"
Print #fnum, "i_surv_fp"
Print #fnum, "i_surv_omst"
Print #fnum, "i_surv_year"
Print #fnum, "i_tax_capital"
Print #fnum, "i_tax_contribution"
Print #fnum, "i_tax_income"
Print #fnum, "i_tax_local"
Print #fnum, "i_tax_national"
Print #fnum, "i_tax_realestate"
Print #fnum, "i_tax_total"
Print #fnum, "i_tax_wealth"
Print #fnum, "i_tax_workcredit"
Print #fnum, "i_taxred_capital"
Print #fnum, "i_trf_btp"
Print #fnum, "i_trf_parentleave"
Print #fnum, "i_trf_pension"
Print #fnum, "i_trf_sickleave"
Print #fnum, "i_trf_skada"
Print #fnum, "i_trf_study"
Print #fnum, "i_trf_study_grant"
Print #fnum, "i_trf_study_loan"
Print #fnum, "i_trf_taxable"
Print #fnum, "i_trf_unemployed"
Print #fnum, "i_unemp_ivariance"
Print #fnum, "i_using_temp_pension"
Print #fnum, "i_vard"
Print #fnum, "i_wealth_debt"
Print #fnum, "i_wealth_financial"
Print #fnum, "i_wealth_pension_total"
Print #fnum, "i_wealth_pension_year"
Print #fnum, "i_wealth_pension_year1"
Print #fnum, "i_widowed"
Print #fnum, "i_work_share"
Print #fnum, "i_work_share1"
Print #fnum, "i_workexperience"
Print #fnum, "i_year_sep"
print #fnum, ";"
Print #fnum, "vikt="
Print #fnum, m_weight
print #fnum, ";"
Print #fnum, "price99="
Print #fnum, m_price99
print #fnum, ";"
Print #fnum, "cards"
print #fnum, ";"
for i=1 to m_icount
rest = i Mod 1000
If rest = 0 Then status cstr(i)
Print #fnum, i_aap(i)
Print #fnum, i_abroad(i)
Print #fnum, i_ADL(i)
Print #fnum, i_ADL_rnd(i)
Print #fnum, i_age(i)
Print #fnum, i_ap(i)
Print #fnum, i_ap_ap(i)
Print #fnum, i_ap_atp(i)
Print #fnum, i_ap_atp_1994(i)
Print #fnum, i_ap_atp_old(i)
Print #fnum, i_ap_atp_ut(i)
Print #fnum, i_ap_fiktiv(i)
Print #fnum, i_ap_fp(i)
Print #fnum, i_ap_fp30(i)
Print #fnum, i_ap_fp30_1994(i)
Print #fnum, i_ap_fp30_ut(i)
Print #fnum, i_ap_gartill(i)
Print #fnum, i_ap_gp(i)
Print #fnum, i_ap_ip(i)
Print #fnum, i_ap_ip_ut(i)
Print #fnum, i_ap_ip1(i)
Print #fnum, i_ap_pensmonth(i)
Print #fnum, i_ap_pp(i)
Print #fnum, i_ap_pp_ut(i)
Print #fnum, i_ap_pts(i)
Print #fnum, i_ap_tp(i)
Print #fnum, i_ap_tp_ut(i)
Print #fnum, i_arbavg(i)
Print #fnum, i_arbavg_akas(i)
Print #fnum, i_arbavg_alon(i)
Print #fnum, i_arbavg_arsk(i)
Print #fnum, i_arbavg_eft(i)
Print #fnum, i_arbavg_forp(i)
Print #fnum, i_arbavg_pens(i)
Print #fnum, i_arbavg_sjuk(i)
Print #fnum, i_arbavg_slon(i)
Print #fnum, i_arbavg_slon38(i)
Print #fnum, i_assistance_elderly(i)
Print #fnum, i_ATP_ar_1994(i)
Print #fnum, i_avg(i)
Print #fnum, i_avg_aap(i)
Print #fnum, i_avg_ftp(i)
Print #fnum, i_avg_inc_at_retirement(i)
Print #fnum, i_avg_income_1997(i)
Print #fnum, i_avg_ip(i)
Print #fnum, i_avg_ip2(i)
Print #fnum, i_avg_pgb(i)
Print #fnum, i_avg_stap(i)
Print #fnum, i_avg_trf(i)
Print #fnum, i_avg2(i)
Print #fnum, i_BB_region(i)
Print #fnum, i_bidnr(i)
Print #fnum, i_binvar(i)
Print #fnum, i_born_abroad(i)
Print #fnum, i_born_year(i)
Print #fnum, i_botid(i)
Print #fnum, i_bvux(i)
Print #fnum, i_bvux1(i)
Print #fnum, i_civ_stat(i)
Print #fnum, i_civ_stat1(i)
Print #fnum, i_edlevel(i)
Print #fnum, i_edyears(i)
Print #fnum, i_emig_year(i)
Print #fnum, i_ftp(i)
Print #fnum, i_ftp_64(i)
Print #fnum, i_ftp_antag(i)
Print #fnum, i_ftp_atp(i)
Print #fnum, i_ftp_fp(i)
Print #fnum, i_ftp_gar(i)
Print #fnum, i_ftp_ink(i)
Print #fnum, i_ftp_just(i)
Print #fnum, i_ftp_pts(i)
Print #fnum, i_ftp_typ(i)
Print #fnum, i_ftp_year(i)
Print #fnum, i_HasBeenWidowed(i)
Print #fnum, i_health(i)
Print #fnum, i_health_latent(i)
Print #fnum, i_health_latent1(i)
Print #fnum, i_health1(i)
Print #fnum, i_hhnr(i)
Print #fnum, i_hhstatus(i)
Print #fnum, i_housetax_postponed(i)
Print #fnum, i_hsdropout(i)
Print #fnum, i_inc_capital(i)
Print #fnum, i_inc_earning(i)
Print #fnum, i_inc_itvariance(i)
Print #fnum, i_inc_ivariance(i)
Print #fnum, i_inc_market(i)
Print #fnum, i_inc_selfemployed(i)
Print #fnum, i_inc_taxable(i)
Print #fnum, i_inc_taxable1(i)
Print #fnum, i_inc_taxable2(i)
Print #fnum, i_inc_taxable3(i)
Print #fnum, i_inc_taxable4(i)
Print #fnum, i_inc_taxable5(i)
Print #fnum, i_inc_taxed(i)
Print #fnum, i_inc_work(i)
Print #fnum, i_income(i)
Print #fnum, i_indnr(i)
Print #fnum, i_InpatientCare(i)
Print #fnum, i_last_hh_dur(i)
Print #fnum, i_maintenance_paid(i)
Print #fnum, i_mATP_1994(i)
Print #fnum, i_new_em(i)
Print #fnum, i_new_fp(i)
Print #fnum, i_new_immig(i)
Print #fnum, i_next_indnr(i)
Print #fnum, i_nr_prev_hh(i)
Print #fnum, i_op(i)
Print #fnum, i_op_an_db_after_65(i)
Print #fnum, i_op_an_db_before_65(i)
Print #fnum, i_op_an_dc_after_65(i)
Print #fnum, i_op_an_dc_before_65(i)
Print #fnum, i_op_ap_db(i)
Print #fnum, i_op_ap_dc(i)
Print #fnum, i_op_ap_tp(i)
Print #fnum, i_op_capital_value(i)
Print #fnum, i_op_erp(i)
Print #fnum, i_op_pp_years(i)
Print #fnum, i_op_pp_years_Blue(i)
Print #fnum, i_op_pp_years_Local(i)
Print #fnum, i_op_pp_years_State(i)
Print #fnum, i_op_pp_years_trans(i)
Print #fnum, i_op_pp_years_White(i)
Print #fnum, i_op_retirement_individual_effect(i)
Print #fnum, i_p_andel(i)
Print #fnum, i_p_antman(i)
Print #fnum, i_pb_fiktiv(i)
Print #fnum, i_pb_ip(i)
Print #fnum, i_pb_ip1(i)
Print #fnum, i_pb_op_ap(i)
Print #fnum, i_pb_op_tp(i)
Print #fnum, i_pb_pp(i)
Print #fnum, i_pbhi(i)
Print #fnum, i_pc_care(i)
Print #fnum, i_pc_childcare(i)
Print #fnum, i_pc_elderly(i)
Print #fnum, i_pc_high_school(i)
Print #fnum, i_pc_labor(i)
Print #fnum, i_pc_MAE(i)
Print #fnum, i_pc_medicine(i)
Print #fnum, i_pc_school(i)
Print #fnum, i_pc_school_adult(i)
Print #fnum, i_pc_total(i)
Print #fnum, i_pc_univ(i)
Print #fnum, i_pgb(i)
Print #fnum, i_pgb_antag(i)
Print #fnum, i_pgb_barn(i)
Print #fnum, i_pgb_barn_typ(i)
Print #fnum, i_pgb_plikt(i)
Print #fnum, i_pgb_stud(i)
Print #fnum, i_pgi(i)
Print #fnum, i_pgi_bas(i)
Print #fnum, i_pgi_orange(i)
Print #fnum, i_pgi185(i)
Print #fnum, i_pp(i)
Print #fnum, i_pp_payout_time(i)
Print #fnum, i_ppmkap(i)
Print #fnum, i_pr_ip(i)
Print #fnum, i_pr_ip1(i)
Print #fnum, i_pr_op_ap(i)
Print #fnum, i_pr_op_tp(i)
Print #fnum, i_pr_pp(i)
Print #fnum, i_pr_pp1(i)
Print #fnum, i_prob_unemployed(i)
Print #fnum, i_prob_working(i)
Print #fnum, i_pu(i)
Print #fnum, i_pu_ind_comp(i)
Print #fnum, i_pu_orange(i)
Print #fnum, i_sarbavg_pens(i)
Print #fnum, i_sector(i)
Print #fnum, i_sector1(i)
Print #fnum, i_selected(i)
Print #fnum, i_sex(i)
Print #fnum, i_sick_ind(i)
Print #fnum, i_sick_ind1(i)
Print #fnum, i_sick_ind2(i)
Print #fnum, i_sick_ind3(i)
Print #fnum, i_sick_ind4(i)
Print #fnum, i_sick_ind5(i)
Print #fnum, i_sick_ind6(i)
Print #fnum, i_sickleave(i)
Print #fnum, i_sickleave_ivariance(i)
Print #fnum, i_stap_ftp(i)
Print #fnum, i_stap_trf(i)
Print #fnum, i_status(i)
Print #fnum, i_status1(i)
Print #fnum, i_student(i)
Print #fnum, i_study_debt(i)
Print #fnum, i_studyloan_repaid(i)
Print #fnum, i_surv(i)
Print #fnum, i_surv_atp(i)
Print #fnum, i_surv_fp(i)
Print #fnum, i_surv_omst(i)
Print #fnum, i_surv_year(i)
Print #fnum, i_tax_capital(i)
Print #fnum, i_tax_contribution(i)
Print #fnum, i_tax_income(i)
Print #fnum, i_tax_local(i)
Print #fnum, i_tax_national(i)
Print #fnum, i_tax_realestate(i)
Print #fnum, i_tax_total(i)
Print #fnum, i_tax_wealth(i)
Print #fnum, i_tax_workcredit(i)
Print #fnum, i_taxred_capital(i)
Print #fnum, i_trf_btp(i)
Print #fnum, i_trf_parentleave(i)
Print #fnum, i_trf_pension(i)
Print #fnum, i_trf_sickleave(i)
Print #fnum, i_trf_skada(i)
Print #fnum, i_trf_study(i)
Print #fnum, i_trf_study_grant(i)
Print #fnum, i_trf_study_loan(i)
Print #fnum, i_trf_taxable(i)
Print #fnum, i_trf_unemployed(i)
Print #fnum, i_unemp_ivariance(i)
Print #fnum, i_using_temp_pension(i)
Print #fnum, i_vard(i)
Print #fnum, i_wealth_debt(i)
Print #fnum, i_wealth_financial(i)
Print #fnum, i_wealth_pension_total(i)
Print #fnum, i_wealth_pension_year(i)
Print #fnum, i_wealth_pension_year1(i)
Print #fnum, i_widowed(i)
Print #fnum, i_work_share(i)
Print #fnum, i_work_share1(i)
Print #fnum, i_workexperience(i)
Print #fnum, i_year_sep(i)
next
print #fnum, ";"
Print #fnum, "run"
print #fnum, ";"
Close #fnum
call write_sas_program_hh
End Sub
Public Sub write_sas_program_hh()
Dim fname As String
Dim fnum As Integer
Dim i As long
Dim rest As long
fnum = FreeFile
fname ="microdata\to_sas_" & model_time & ".sas"
Open fname For Append As fnum
Print #fnum, "Data ses_h"& model_time & ";"
Print #fnum, "input
Print #fnum, "h_abroad"
Print #fnum, "h_BB_region"
Print #fnum, "h_BB_region1"
Print #fnum, "h_bvux_work"
Print #fnum, "h_childmoveout"
Print #fnum, "h_close_relative"
Print #fnum, "h_close_relative1"
Print #fnum, "h_emig_year"
Print #fnum, "h_first_indnr"
Print #fnum, "h_form_year"
Print #fnum, "h_hhnr"
Print #fnum, "h_house_area"
Print #fnum, "h_house_cost"
Print #fnum, "h_house_interest"
Print #fnum, "h_house_owner"
Print #fnum, "h_house_owner1"
Print #fnum, "h_house_purchase"
Print #fnum, "h_house_tax"
Print #fnum, "h_idx_headofhh"
Print #fnum, "h_inc_capital"
Print #fnum, "h_inc_disposable"
Print #fnum, "h_inc_disposable1"
Print #fnum, "h_inc_market"
Print #fnum, "h_inc_work"
Print #fnum, "h_indnr_female"
Print #fnum, "h_indnr_male"
Print #fnum, "h_kommunindex"
Print #fnum, "h_kommunkod"
Print #fnum, "h_maintenance_paid"
Print #fnum, "h_maintenance_received"
Print #fnum, "h_max_age"
Print #fnum, "h_max_edlevel"
Print #fnum, "h_max_inc_taxable"
Print #fnum, "h_n_adults"
Print #fnum, "h_n_child"
Print #fnum, "h_n_child1"
Print #fnum, "h_n_childlt12"
Print #fnum, "h_n_childlt7"
Print #fnum, "h_n_ge18"
Print #fnum, "h_new_housing"
Print #fnum, "h_new_housing1"
Print #fnum, "h_new_immig"
Print #fnum, "h_selected"
Print #fnum, "h_size"
Print #fnum, "h_studyloan_repaid"
Print #fnum, "h_sum_inc_taxable"
Print #fnum, "h_sum_inc_taxable1"
Print #fnum, "h_tax_realestate"
Print #fnum, "h_tax_total"
Print #fnum, "h_trf_btp"
Print #fnum, "h_trf_childallowance"
Print #fnum, "h_trf_housingallowance"
Print #fnum, "h_trf_pension"
Print #fnum, "h_trf_socialassistance"
Print #fnum, "h_trf_study"
Print #fnum, "h_trf_taxable"
Print #fnum, "h_trf_taxfree"
Print #fnum, "h_wealth_CapitalGain"
Print #fnum, "h_wealth_debt"
Print #fnum, "h_wealth_debt_GLS1vc"
Print #fnum, "h_wealth_debt_GLS2vc"
Print #fnum, "h_wealth_debt_interest"
Print #fnum, "h_wealth_debt_interest_varcomp_p"
Print #fnum, "h_wealth_debt_interest_varcomp_r"
Print #fnum, "h_wealth_debt_interest1"
Print #fnum, "h_wealth_debt_interestrate"
Print #fnum, "h_wealth_debt_interestrate1"
Print #fnum, "h_wealth_debt_probit1vc"
Print #fnum, "h_wealth_debt_probit2vc"
Print #fnum, "h_wealth_debt_varcomp"
Print #fnum, "h_wealth_debt1"
Print #fnum, "h_wealth_DebtInterest_ind"
Print #fnum, "h_wealth_DebtInterest_ind1"
Print #fnum, "h_wealth_financial"
Print #fnum, "h_wealth_financial_sales"
Print #fnum, "h_wealth_financial_varcomp"
Print #fnum, "h_wealth_financial1"
Print #fnum, "h_wealth_InterestDividends"
Print #fnum, "h_wealth_real"
Print #fnum, "h_wealth_real_home"
Print #fnum, "h_wealth_real_home1"
Print #fnum, "h_wealth_real_other"
Print #fnum, "h_wealth_real_other1"
print #fnum, ";"
Print #fnum, "cards"
print #fnum, ";"
for i=1 to m_hcount
rest = i Mod 1000
If rest = 0 Then status cstr(i)
Print #fnum, h_abroad(i)
Print #fnum, h_BB_region(i)
Print #fnum, h_BB_region1(i)
Print #fnum, h_bvux_work(i)
Print #fnum, h_childmoveout(i)
Print #fnum, h_close_relative(i)
Print #fnum, h_close_relative1(i)
Print #fnum, h_emig_year(i)
Print #fnum, h_first_indnr(i)
Print #fnum, h_form_year(i)
Print #fnum, h_hhnr(i)
Print #fnum, h_house_area(i)
Print #fnum, h_house_cost(i)
Print #fnum, h_house_interest(i)
Print #fnum, h_house_owner(i)
Print #fnum, h_house_owner1(i)
Print #fnum, h_house_purchase(i)
Print #fnum, h_house_tax(i)
Print #fnum, h_idx_headofhh(i)
Print #fnum, h_inc_capital(i)
Print #fnum, h_inc_disposable(i)
Print #fnum, h_inc_disposable1(i)
Print #fnum, h_inc_market(i)
Print #fnum, h_inc_work(i)
Print #fnum, h_indnr_female(i)
Print #fnum, h_indnr_male(i)
Print #fnum, h_kommunindex(i)
Print #fnum, h_kommunkod(i)
Print #fnum, h_maintenance_paid(i)
Print #fnum, h_maintenance_received(i)
Print #fnum, h_max_age(i)
Print #fnum, h_max_edlevel(i)
Print #fnum, h_max_inc_taxable(i)
Print #fnum, h_n_adults(i)
Print #fnum, h_n_child(i)
Print #fnum, h_n_child1(i)
Print #fnum, h_n_childlt12(i)
Print #fnum, h_n_childlt7(i)
Print #fnum, h_n_ge18(i)
Print #fnum, h_new_housing(i)
Print #fnum, h_new_housing1(i)
Print #fnum, h_new_immig(i)
Print #fnum, h_selected(i)
Print #fnum, h_size(i)
Print #fnum, h_studyloan_repaid(i)
Print #fnum, h_sum_inc_taxable(i)
Print #fnum, h_sum_inc_taxable1(i)
Print #fnum, h_tax_realestate(i)
Print #fnum, h_tax_total(i)
Print #fnum, h_trf_btp(i)
Print #fnum, h_trf_childallowance(i)
Print #fnum, h_trf_housingallowance(i)
Print #fnum, h_trf_pension(i)
Print #fnum, h_trf_socialassistance(i)
Print #fnum, h_trf_study(i)
Print #fnum, h_trf_taxable(i)
Print #fnum, h_trf_taxfree(i)
Print #fnum, h_wealth_CapitalGain(i)
Print #fnum, h_wealth_debt(i)
Print #fnum, h_wealth_debt_GLS1vc(i)
Print #fnum, h_wealth_debt_GLS2vc(i)
Print #fnum, h_wealth_debt_interest(i)
Print #fnum, h_wealth_debt_interest_varcomp_p(i)
Print #fnum, h_wealth_debt_interest_varcomp_r(i)
Print #fnum, h_wealth_debt_interest1(i)
Print #fnum, h_wealth_debt_interestrate(i)
Print #fnum, h_wealth_debt_interestrate1(i)
Print #fnum, h_wealth_debt_probit1vc(i)
Print #fnum, h_wealth_debt_probit2vc(i)
Print #fnum, h_wealth_debt_varcomp(i)
Print #fnum, h_wealth_debt1(i)
Print #fnum, h_wealth_DebtInterest_ind(i)
Print #fnum, h_wealth_DebtInterest_ind1(i)
Print #fnum, h_wealth_financial(i)
Print #fnum, h_wealth_financial_sales(i)
Print #fnum, h_wealth_financial_varcomp(i)
Print #fnum, h_wealth_financial1(i)
Print #fnum, h_wealth_InterestDividends(i)
Print #fnum, h_wealth_real(i)
Print #fnum, h_wealth_real_home(i)
Print #fnum, h_wealth_real_home1(i)
Print #fnum, h_wealth_real_other(i)
Print #fnum, h_wealth_real_other1(i)
next
print #fnum, ";"
Print #fnum, "run"
print #fnum, ";"
Close #fnum
End Sub
Public Sub write_accessdb(rs,index)
rs("i_aap")=i_aap(index)
rs("i_abroad")=i_abroad(index)
rs("i_ADL")=i_ADL(index)
rs("i_ADL_rnd")=i_ADL_rnd(index)
rs("i_age")=i_age(index)
rs("i_ap")=i_ap(index)
rs("i_ap_ap")=i_ap_ap(index)
rs("i_ap_atp")=i_ap_atp(index)
rs("i_ap_atp_1994")=i_ap_atp_1994(index)
rs("i_ap_atp_old")=i_ap_atp_old(index)
rs("i_ap_atp_ut")=i_ap_atp_ut(index)
rs("i_ap_fiktiv")=i_ap_fiktiv(index)
rs("i_ap_fp")=i_ap_fp(index)
rs("i_ap_fp30")=i_ap_fp30(index)
rs("i_ap_fp30_1994")=i_ap_fp30_1994(index)
rs("i_ap_fp30_ut")=i_ap_fp30_ut(index)
rs("i_ap_gartill")=i_ap_gartill(index)
rs("i_ap_gp")=i_ap_gp(index)
rs("i_ap_ip")=i_ap_ip(index)
rs("i_ap_ip_ut")=i_ap_ip_ut(index)
rs("i_ap_ip1")=i_ap_ip1(index)
rs("i_ap_pensmonth")=i_ap_pensmonth(index)
rs("i_ap_pp")=i_ap_pp(index)
rs("i_ap_pp_ut")=i_ap_pp_ut(index)
rs("i_ap_pts")=i_ap_pts(index)
rs("i_ap_tp")=i_ap_tp(index)
rs("i_ap_tp_ut")=i_ap_tp_ut(index)
rs("i_arbavg")=i_arbavg(index)
rs("i_arbavg_akas")=i_arbavg_akas(index)
rs("i_arbavg_alon")=i_arbavg_alon(index)
rs("i_arbavg_arsk")=i_arbavg_arsk(index)
rs("i_arbavg_eft")=i_arbavg_eft(index)
rs("i_arbavg_forp")=i_arbavg_forp(index)
rs("i_arbavg_pens")=i_arbavg_pens(index)
rs("i_arbavg_sjuk")=i_arbavg_sjuk(index)
rs("i_arbavg_slon")=i_arbavg_slon(index)
rs("i_arbavg_slon38")=i_arbavg_slon38(index)
rs("i_assistance_elderly")=i_assistance_elderly(index)
rs("i_ATP_ar_1994")=i_ATP_ar_1994(index)
rs("i_avg")=i_avg(index)
rs("i_avg_aap")=i_avg_aap(index)
rs("i_avg_ftp")=i_avg_ftp(index)
rs("i_avg_inc_at_retirement")=i_avg_inc_at_retirement(index)
rs("i_avg_income_1997")=i_avg_income_1997(index)
rs("i_avg_ip")=i_avg_ip(index)
rs("i_avg_ip2")=i_avg_ip2(index)
rs("i_avg_pgb")=i_avg_pgb(index)
rs("i_avg_stap")=i_avg_stap(index)
rs("i_avg_trf")=i_avg_trf(index)
rs("i_avg2")=i_avg2(index)
rs("i_BB_region")=i_BB_region(index)
rs("i_bidnr")=i_bidnr(index)
rs("i_binvar")=i_binvar(index)
rs("i_born_abroad")=i_born_abroad(index)
rs("i_born_year")=i_born_year(index)
rs("i_botid")=i_botid(index)
rs("i_bvux")=i_bvux(index)
rs("i_bvux1")=i_bvux1(index)
rs("i_civ_stat")=i_civ_stat(index)
rs("i_civ_stat1")=i_civ_stat1(index)
rs("i_edlevel")=i_edlevel(index)
rs("i_edyears")=i_edyears(index)
rs("i_emig_year")=i_emig_year(index)
rs("i_ftp")=i_ftp(index)
rs("i_ftp_64")=i_ftp_64(index)
rs("i_ftp_antag")=i_ftp_antag(index)
rs("i_ftp_atp")=i_ftp_atp(index)
rs("i_ftp_fp")=i_ftp_fp(index)
rs("i_ftp_gar")=i_ftp_gar(index)
rs("i_ftp_ink")=i_ftp_ink(index)
rs("i_ftp_just")=i_ftp_just(index)
rs("i_ftp_pts")=i_ftp_pts(index)
rs("i_ftp_typ")=i_ftp_typ(index)
rs("i_ftp_year")=i_ftp_year(index)
rs("i_HasBeenWidowed")=i_HasBeenWidowed(index)
rs("i_health")=i_health(index)
rs("i_health_latent")=i_health_latent(index)
rs("i_health_latent1")=i_health_latent1(index)
rs("i_health1")=i_health1(index)
rs("i_hhnr")=i_hhnr(index)
rs("i_hhstatus")=i_hhstatus(index)
rs("i_housetax_postponed")=i_housetax_postponed(index)
rs("i_hsdropout")=i_hsdropout(index)
rs("i_inc_capital")=i_inc_capital(index)
rs("i_inc_earning")=i_inc_earning(index)
rs("i_inc_itvariance")=i_inc_itvariance(index)
rs("i_inc_ivariance")=i_inc_ivariance(index)
rs("i_inc_market")=i_inc_market(index)
rs("i_inc_selfemployed")=i_inc_selfemployed(index)
rs("i_inc_taxable")=i_inc_taxable(index)
rs("i_inc_taxable1")=i_inc_taxable1(index)
rs("i_inc_taxable2")=i_inc_taxable2(index)
rs("i_inc_taxable3")=i_inc_taxable3(index)
rs("i_inc_taxable4")=i_inc_taxable4(index)
rs("i_inc_taxable5")=i_inc_taxable5(index)
rs("i_inc_taxed")=i_inc_taxed(index)
rs("i_inc_work")=i_inc_work(index)
rs("i_income")=i_income(index)
rs("i_indnr")=i_indnr(index)
rs("i_InpatientCare")=i_InpatientCare(index)
rs("i_last_hh_dur")=i_last_hh_dur(index)
rs("i_maintenance_paid")=i_maintenance_paid(index)
rs("i_mATP_1994")=i_mATP_1994(index)
rs("i_new_em")=i_new_em(index)
rs("i_new_fp")=i_new_fp(index)
rs("i_new_immig")=i_new_immig(index)
rs("i_next_indnr")=i_next_indnr(index)
rs("i_nr_prev_hh")=i_nr_prev_hh(index)
rs("i_op")=i_op(index)
rs("i_op_an_db_after_65")=i_op_an_db_after_65(index)
rs("i_op_an_db_before_65")=i_op_an_db_before_65(index)
rs("i_op_an_dc_after_65")=i_op_an_dc_after_65(index)
rs("i_op_an_dc_before_65")=i_op_an_dc_before_65(index)
rs("i_op_ap_db")=i_op_ap_db(index)
rs("i_op_ap_dc")=i_op_ap_dc(index)
rs("i_op_ap_tp")=i_op_ap_tp(index)
rs("i_op_capital_value")=i_op_capital_value(index)
rs("i_op_erp")=i_op_erp(index)
rs("i_op_pp_years")=i_op_pp_years(index)
rs("i_op_pp_years_Blue")=i_op_pp_years_Blue(index)
rs("i_op_pp_years_Local")=i_op_pp_years_Local(index)
rs("i_op_pp_years_State")=i_op_pp_years_State(index)
rs("i_op_pp_years_trans")=i_op_pp_years_trans(index)
rs("i_op_pp_years_White")=i_op_pp_years_White(index)
rs("i_op_retirement_individual_effect")=i_op_retirement_individual_effect(index)
rs("i_p_andel")=i_p_andel(index)
rs("i_p_antman")=i_p_antman(index)
rs("i_pb_fiktiv")=i_pb_fiktiv(index)
rs("i_pb_ip")=i_pb_ip(index)
rs("i_pb_ip1")=i_pb_ip1(index)
rs("i_pb_op_ap")=i_pb_op_ap(index)
rs("i_pb_op_tp")=i_pb_op_tp(index)
rs("i_pb_pp")=i_pb_pp(index)
rs("i_pbhi")=i_pbhi(index)
rs("i_pc_care")=i_pc_care(index)
rs("i_pc_childcare")=i_pc_childcare(index)
rs("i_pc_elderly")=i_pc_elderly(index)
rs("i_pc_high_school")=i_pc_high_school(index)
rs("i_pc_labor")=i_pc_labor(index)
rs("i_pc_MAE")=i_pc_MAE(index)
rs("i_pc_medicine")=i_pc_medicine(index)
rs("i_pc_school")=i_pc_school(index)
rs("i_pc_school_adult")=i_pc_school_adult(index)
rs("i_pc_total")=i_pc_total(index)
rs("i_pc_univ")=i_pc_univ(index)
rs("i_pgb")=i_pgb(index)
rs("i_pgb_antag")=i_pgb_antag(index)
rs("i_pgb_barn")=i_pgb_barn(index)
rs("i_pgb_barn_typ")=i_pgb_barn_typ(index)
rs("i_pgb_plikt")=i_pgb_plikt(index)
rs("i_pgb_stud")=i_pgb_stud(index)
rs("i_pgi")=i_pgi(index)
rs("i_pgi_bas")=i_pgi_bas(index)
rs("i_pgi_orange")=i_pgi_orange(index)
rs("i_pgi185")=i_pgi185(index)
rs("i_pp")=i_pp(index)
rs("i_pp_payout_time")=i_pp_payout_time(index)
rs("i_ppmkap")=i_ppmkap(index)
rs("i_pr_ip")=i_pr_ip(index)
rs("i_pr_ip1")=i_pr_ip1(index)
rs("i_pr_op_ap")=i_pr_op_ap(index)
rs("i_pr_op_tp")=i_pr_op_tp(index)
rs("i_pr_pp")=i_pr_pp(index)
rs("i_pr_pp1")=i_pr_pp1(index)
rs("i_prob_unemployed")=i_prob_unemployed(index)
rs("i_prob_working")=i_prob_working(index)
rs("i_pu")=i_pu(index)
rs("i_pu_ind_comp")=i_pu_ind_comp(index)
rs("i_pu_orange")=i_pu_orange(index)
rs("i_sarbavg_pens")=i_sarbavg_pens(index)
rs("i_sector")=i_sector(index)
rs("i_sector1")=i_sector1(index)
rs("i_selected")=i_selected(index)
rs("i_sex")=i_sex(index)
rs("i_sick_ind")=i_sick_ind(index)
rs("i_sick_ind1")=i_sick_ind1(index)
rs("i_sick_ind2")=i_sick_ind2(index)
rs("i_sick_ind3")=i_sick_ind3(index)
rs("i_sick_ind4")=i_sick_ind4(index)
rs("i_sick_ind5")=i_sick_ind5(index)
rs("i_sick_ind6")=i_sick_ind6(index)
rs("i_sickleave")=i_sickleave(index)
rs("i_sickleave_ivariance")=i_sickleave_ivariance(index)
rs("i_stap_ftp")=i_stap_ftp(index)
rs("i_stap_trf")=i_stap_trf(index)
rs("i_status")=i_status(index)
rs("i_status1")=i_status1(index)
rs("i_student")=i_student(index)
rs("i_study_debt")=i_study_debt(index)
rs("i_studyloan_repaid")=i_studyloan_repaid(index)
rs("i_surv")=i_surv(index)
rs("i_surv_atp")=i_surv_atp(index)
rs("i_surv_fp")=i_surv_fp(index)
rs("i_surv_omst")=i_surv_omst(index)
rs("i_surv_year")=i_surv_year(index)
rs("i_tax_capital")=i_tax_capital(index)
rs("i_tax_contribution")=i_tax_contribution(index)
rs("i_tax_income")=i_tax_income(index)
rs("i_tax_local")=i_tax_local(index)
rs("i_tax_national")=i_tax_national(index)
rs("i_tax_realestate")=i_tax_realestate(index)
rs("i_tax_total")=i_tax_total(index)
rs("i_tax_wealth")=i_tax_wealth(index)
rs("i_tax_workcredit")=i_tax_workcredit(index)
rs("i_taxred_capital")=i_taxred_capital(index)
rs("i_trf_btp")=i_trf_btp(index)
rs("i_trf_parentleave")=i_trf_parentleave(index)
rs("i_trf_pension")=i_trf_pension(index)
rs("i_trf_sickleave")=i_trf_sickleave(index)
rs("i_trf_skada")=i_trf_skada(index)
rs("i_trf_study")=i_trf_study(index)
rs("i_trf_study_grant")=i_trf_study_grant(index)
rs("i_trf_study_loan")=i_trf_study_loan(index)
rs("i_trf_taxable")=i_trf_taxable(index)
rs("i_trf_unemployed")=i_trf_unemployed(index)
rs("i_unemp_ivariance")=i_unemp_ivariance(index)
rs("i_using_temp_pension")=i_using_temp_pension(index)
rs("i_vard")=i_vard(index)
rs("i_wealth_debt")=i_wealth_debt(index)
rs("i_wealth_financial")=i_wealth_financial(index)
rs("i_wealth_pension_total")=i_wealth_pension_total(index)
rs("i_wealth_pension_year")=i_wealth_pension_year(index)
rs("i_wealth_pension_year1")=i_wealth_pension_year1(index)
rs("i_widowed")=i_widowed(index)
rs("i_work_share")=i_work_share(index)
rs("i_work_share1")=i_work_share1(index)
rs("i_workexperience")=i_workexperience(index)
rs("i_year_sep")=i_year_sep(index)
End Sub
'*******************************************************************
' Sub WriteToBinaryFile(varname) writes the vector varname to file
'*******************************************************************
Public Sub WriteToBinaryFile(varname)
Dim txt as string
If lcase(varname) = lcase("i_aap") Then
txt = CStr(base_year + model_time) & " " & "i_aap" & " " & CStr(UBound(i_aap)) & " " & CStr(TypeName(i_aap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_aap
end if
If lcase(varname) = lcase("i_abroad") Then
txt = CStr(base_year + model_time) & " " & "i_abroad" & " " & CStr(UBound(i_abroad)) & " " & CStr(TypeName(i_abroad))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_abroad
end if
If lcase(varname) = lcase("i_ADL") Then
txt = CStr(base_year + model_time) & " " & "i_ADL" & " " & CStr(UBound(i_ADL)) & " " & CStr(TypeName(i_ADL))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ADL
end if
If lcase(varname) = lcase("i_ADL_rnd") Then
txt = CStr(base_year + model_time) & " " & "i_ADL_rnd" & " " & CStr(UBound(i_ADL_rnd)) & " " & CStr(TypeName(i_ADL_rnd))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ADL_rnd
end if
If lcase(varname) = lcase("i_age") Then
txt = CStr(base_year + model_time) & " " & "i_age" & " " & CStr(UBound(i_age)) & " " & CStr(TypeName(i_age))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_age
end if
If lcase(varname) = lcase("i_ap") Then
txt = CStr(base_year + model_time) & " " & "i_ap" & " " & CStr(UBound(i_ap)) & " " & CStr(TypeName(i_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap
end if
If lcase(varname) = lcase("i_ap_ap") Then
txt = CStr(base_year + model_time) & " " & "i_ap_ap" & " " & CStr(UBound(i_ap_ap)) & " " & CStr(TypeName(i_ap_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_ap
end if
If lcase(varname) = lcase("i_ap_atp") Then
txt = CStr(base_year + model_time) & " " & "i_ap_atp" & " " & CStr(UBound(i_ap_atp)) & " " & CStr(TypeName(i_ap_atp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_atp
end if
If lcase(varname) = lcase("i_ap_atp_1994") Then
txt = CStr(base_year + model_time) & " " & "i_ap_atp_1994" & " " & CStr(UBound(i_ap_atp_1994)) & " " & CStr(TypeName(i_ap_atp_1994))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_atp_1994
end if
If lcase(varname) = lcase("i_ap_atp_old") Then
txt = CStr(base_year + model_time) & " " & "i_ap_atp_old" & " " & CStr(UBound(i_ap_atp_old)) & " " & CStr(TypeName(i_ap_atp_old))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_atp_old
end if
If lcase(varname) = lcase("i_ap_atp_ut") Then
txt = CStr(base_year + model_time) & " " & "i_ap_atp_ut" & " " & CStr(UBound(i_ap_atp_ut)) & " " & CStr(TypeName(i_ap_atp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_atp_ut
end if
If lcase(varname) = lcase("i_ap_fiktiv") Then
txt = CStr(base_year + model_time) & " " & "i_ap_fiktiv" & " " & CStr(UBound(i_ap_fiktiv)) & " " & CStr(TypeName(i_ap_fiktiv))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_fiktiv
end if
If lcase(varname) = lcase("i_ap_fp") Then
txt = CStr(base_year + model_time) & " " & "i_ap_fp" & " " & CStr(UBound(i_ap_fp)) & " " & CStr(TypeName(i_ap_fp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_fp
end if
If lcase(varname) = lcase("i_ap_fp30") Then
txt = CStr(base_year + model_time) & " " & "i_ap_fp30" & " " & CStr(UBound(i_ap_fp30)) & " " & CStr(TypeName(i_ap_fp30))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_fp30
end if
If lcase(varname) = lcase("i_ap_fp30_1994") Then
txt = CStr(base_year + model_time) & " " & "i_ap_fp30_1994" & " " & CStr(UBound(i_ap_fp30_1994)) & " " & CStr(TypeName(i_ap_fp30_1994))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_fp30_1994
end if
If lcase(varname) = lcase("i_ap_fp30_ut") Then
txt = CStr(base_year + model_time) & " " & "i_ap_fp30_ut" & " " & CStr(UBound(i_ap_fp30_ut)) & " " & CStr(TypeName(i_ap_fp30_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_fp30_ut
end if
If lcase(varname) = lcase("i_ap_gartill") Then
txt = CStr(base_year + model_time) & " " & "i_ap_gartill" & " " & CStr(UBound(i_ap_gartill)) & " " & CStr(TypeName(i_ap_gartill))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_gartill
end if
If lcase(varname) = lcase("i_ap_gp") Then
txt = CStr(base_year + model_time) & " " & "i_ap_gp" & " " & CStr(UBound(i_ap_gp)) & " " & CStr(TypeName(i_ap_gp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_gp
end if
If lcase(varname) = lcase("i_ap_ip") Then
txt = CStr(base_year + model_time) & " " & "i_ap_ip" & " " & CStr(UBound(i_ap_ip)) & " " & CStr(TypeName(i_ap_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_ip
end if
If lcase(varname) = lcase("i_ap_ip_ut") Then
txt = CStr(base_year + model_time) & " " & "i_ap_ip_ut" & " " & CStr(UBound(i_ap_ip_ut)) & " " & CStr(TypeName(i_ap_ip_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_ip_ut
end if
If lcase(varname) = lcase("i_ap_ip1") Then
txt = CStr(base_year + model_time) & " " & "i_ap_ip1" & " " & CStr(UBound(i_ap_ip1)) & " " & CStr(TypeName(i_ap_ip1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_ip1
end if
If lcase(varname) = lcase("i_ap_pensmonth") Then
txt = CStr(base_year + model_time) & " " & "i_ap_pensmonth" & " " & CStr(UBound(i_ap_pensmonth)) & " " & CStr(TypeName(i_ap_pensmonth))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_pensmonth
end if
If lcase(varname) = lcase("i_ap_pp") Then
txt = CStr(base_year + model_time) & " " & "i_ap_pp" & " " & CStr(UBound(i_ap_pp)) & " " & CStr(TypeName(i_ap_pp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_pp
end if
If lcase(varname) = lcase("i_ap_pp_ut") Then
txt = CStr(base_year + model_time) & " " & "i_ap_pp_ut" & " " & CStr(UBound(i_ap_pp_ut)) & " " & CStr(TypeName(i_ap_pp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_pp_ut
end if
If lcase(varname) = lcase("i_ap_pts") Then
txt = CStr(base_year + model_time) & " " & "i_ap_pts" & " " & CStr(UBound(i_ap_pts)) & " " & CStr(TypeName(i_ap_pts))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_pts
end if
If lcase(varname) = lcase("i_ap_tp") Then
txt = CStr(base_year + model_time) & " " & "i_ap_tp" & " " & CStr(UBound(i_ap_tp)) & " " & CStr(TypeName(i_ap_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_tp
end if
If lcase(varname) = lcase("i_ap_tp_ut") Then
txt = CStr(base_year + model_time) & " " & "i_ap_tp_ut" & " " & CStr(UBound(i_ap_tp_ut)) & " " & CStr(TypeName(i_ap_tp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ap_tp_ut
end if
If lcase(varname) = lcase("i_arbavg") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg" & " " & CStr(UBound(i_arbavg)) & " " & CStr(TypeName(i_arbavg))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg
end if
If lcase(varname) = lcase("i_arbavg_akas") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_akas" & " " & CStr(UBound(i_arbavg_akas)) & " " & CStr(TypeName(i_arbavg_akas))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_akas
end if
If lcase(varname) = lcase("i_arbavg_alon") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_alon" & " " & CStr(UBound(i_arbavg_alon)) & " " & CStr(TypeName(i_arbavg_alon))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_alon
end if
If lcase(varname) = lcase("i_arbavg_arsk") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_arsk" & " " & CStr(UBound(i_arbavg_arsk)) & " " & CStr(TypeName(i_arbavg_arsk))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_arsk
end if
If lcase(varname) = lcase("i_arbavg_eft") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_eft" & " " & CStr(UBound(i_arbavg_eft)) & " " & CStr(TypeName(i_arbavg_eft))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_eft
end if
If lcase(varname) = lcase("i_arbavg_forp") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_forp" & " " & CStr(UBound(i_arbavg_forp)) & " " & CStr(TypeName(i_arbavg_forp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_forp
end if
If lcase(varname) = lcase("i_arbavg_pens") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_pens" & " " & CStr(UBound(i_arbavg_pens)) & " " & CStr(TypeName(i_arbavg_pens))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_pens
end if
If lcase(varname) = lcase("i_arbavg_sjuk") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_sjuk" & " " & CStr(UBound(i_arbavg_sjuk)) & " " & CStr(TypeName(i_arbavg_sjuk))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_sjuk
end if
If lcase(varname) = lcase("i_arbavg_slon") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_slon" & " " & CStr(UBound(i_arbavg_slon)) & " " & CStr(TypeName(i_arbavg_slon))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_slon
end if
If lcase(varname) = lcase("i_arbavg_slon38") Then
txt = CStr(base_year + model_time) & " " & "i_arbavg_slon38" & " " & CStr(UBound(i_arbavg_slon38)) & " " & CStr(TypeName(i_arbavg_slon38))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_arbavg_slon38
end if
If lcase(varname) = lcase("i_assistance_elderly") Then
txt = CStr(base_year + model_time) & " " & "i_assistance_elderly" & " " & CStr(UBound(i_assistance_elderly)) & " " & CStr(TypeName(i_assistance_elderly))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_assistance_elderly
end if
If lcase(varname) = lcase("i_ATP_ar_1994") Then
txt = CStr(base_year + model_time) & " " & "i_ATP_ar_1994" & " " & CStr(UBound(i_ATP_ar_1994)) & " " & CStr(TypeName(i_ATP_ar_1994))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ATP_ar_1994
end if
If lcase(varname) = lcase("i_avg") Then
txt = CStr(base_year + model_time) & " " & "i_avg" & " " & CStr(UBound(i_avg)) & " " & CStr(TypeName(i_avg))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg
end if
If lcase(varname) = lcase("i_avg_aap") Then
txt = CStr(base_year + model_time) & " " & "i_avg_aap" & " " & CStr(UBound(i_avg_aap)) & " " & CStr(TypeName(i_avg_aap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_aap
end if
If lcase(varname) = lcase("i_avg_ftp") Then
txt = CStr(base_year + model_time) & " " & "i_avg_ftp" & " " & CStr(UBound(i_avg_ftp)) & " " & CStr(TypeName(i_avg_ftp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_ftp
end if
If lcase(varname) = lcase("i_avg_inc_at_retirement") Then
txt = CStr(base_year + model_time) & " " & "i_avg_inc_at_retirement" & " " & CStr(UBound(i_avg_inc_at_retirement)) & " " & CStr(TypeName(i_avg_inc_at_retirement))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_inc_at_retirement
end if
If lcase(varname) = lcase("i_avg_income_1997") Then
txt = CStr(base_year + model_time) & " " & "i_avg_income_1997" & " " & CStr(UBound(i_avg_income_1997)) & " " & CStr(TypeName(i_avg_income_1997))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_income_1997
end if
If lcase(varname) = lcase("i_avg_ip") Then
txt = CStr(base_year + model_time) & " " & "i_avg_ip" & " " & CStr(UBound(i_avg_ip)) & " " & CStr(TypeName(i_avg_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_ip
end if
If lcase(varname) = lcase("i_avg_ip2") Then
txt = CStr(base_year + model_time) & " " & "i_avg_ip2" & " " & CStr(UBound(i_avg_ip2)) & " " & CStr(TypeName(i_avg_ip2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_ip2
end if
If lcase(varname) = lcase("i_avg_pgb") Then
txt = CStr(base_year + model_time) & " " & "i_avg_pgb" & " " & CStr(UBound(i_avg_pgb)) & " " & CStr(TypeName(i_avg_pgb))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_pgb
end if
If lcase(varname) = lcase("i_avg_stap") Then
txt = CStr(base_year + model_time) & " " & "i_avg_stap" & " " & CStr(UBound(i_avg_stap)) & " " & CStr(TypeName(i_avg_stap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_stap
end if
If lcase(varname) = lcase("i_avg_trf") Then
txt = CStr(base_year + model_time) & " " & "i_avg_trf" & " " & CStr(UBound(i_avg_trf)) & " " & CStr(TypeName(i_avg_trf))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg_trf
end if
If lcase(varname) = lcase("i_avg2") Then
txt = CStr(base_year + model_time) & " " & "i_avg2" & " " & CStr(UBound(i_avg2)) & " " & CStr(TypeName(i_avg2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_avg2
end if
If lcase(varname) = lcase("i_BB_region") Then
txt = CStr(base_year + model_time) & " " & "i_BB_region" & " " & CStr(UBound(i_BB_region)) & " " & CStr(TypeName(i_BB_region))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_BB_region
end if
If lcase(varname) = lcase("i_bidnr") Then
txt = CStr(base_year + model_time) & " " & "i_bidnr" & " " & CStr(UBound(i_bidnr)) & " " & CStr(TypeName(i_bidnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_bidnr
end if
If lcase(varname) = lcase("i_binvar") Then
txt = CStr(base_year + model_time) & " " & "i_binvar" & " " & CStr(UBound(i_binvar)) & " " & CStr(TypeName(i_binvar))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_binvar
end if
If lcase(varname) = lcase("i_born_abroad") Then
txt = CStr(base_year + model_time) & " " & "i_born_abroad" & " " & CStr(UBound(i_born_abroad)) & " " & CStr(TypeName(i_born_abroad))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_born_abroad
end if
If lcase(varname) = lcase("i_born_year") Then
txt = CStr(base_year + model_time) & " " & "i_born_year" & " " & CStr(UBound(i_born_year)) & " " & CStr(TypeName(i_born_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_born_year
end if
If lcase(varname) = lcase("i_botid") Then
txt = CStr(base_year + model_time) & " " & "i_botid" & " " & CStr(UBound(i_botid)) & " " & CStr(TypeName(i_botid))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_botid
end if
If lcase(varname) = lcase("i_bvux") Then
txt = CStr(base_year + model_time) & " " & "i_bvux" & " " & CStr(UBound(i_bvux)) & " " & CStr(TypeName(i_bvux))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_bvux
end if
If lcase(varname) = lcase("i_bvux1") Then
txt = CStr(base_year + model_time) & " " & "i_bvux1" & " " & CStr(UBound(i_bvux1)) & " " & CStr(TypeName(i_bvux1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_bvux1
end if
If lcase(varname) = lcase("i_civ_stat") Then
txt = CStr(base_year + model_time) & " " & "i_civ_stat" & " " & CStr(UBound(i_civ_stat)) & " " & CStr(TypeName(i_civ_stat))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_civ_stat
end if
If lcase(varname) = lcase("i_civ_stat1") Then
txt = CStr(base_year + model_time) & " " & "i_civ_stat1" & " " & CStr(UBound(i_civ_stat1)) & " " & CStr(TypeName(i_civ_stat1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_civ_stat1
end if
If lcase(varname) = lcase("i_edlevel") Then
txt = CStr(base_year + model_time) & " " & "i_edlevel" & " " & CStr(UBound(i_edlevel)) & " " & CStr(TypeName(i_edlevel))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_edlevel
end if
If lcase(varname) = lcase("i_edyears") Then
txt = CStr(base_year + model_time) & " " & "i_edyears" & " " & CStr(UBound(i_edyears)) & " " & CStr(TypeName(i_edyears))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_edyears
end if
If lcase(varname) = lcase("i_emig_year") Then
txt = CStr(base_year + model_time) & " " & "i_emig_year" & " " & CStr(UBound(i_emig_year)) & " " & CStr(TypeName(i_emig_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_emig_year
end if
If lcase(varname) = lcase("i_ftp") Then
txt = CStr(base_year + model_time) & " " & "i_ftp" & " " & CStr(UBound(i_ftp)) & " " & CStr(TypeName(i_ftp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp
end if
If lcase(varname) = lcase("i_ftp_64") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_64" & " " & CStr(UBound(i_ftp_64)) & " " & CStr(TypeName(i_ftp_64))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_64
end if
If lcase(varname) = lcase("i_ftp_antag") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_antag" & " " & CStr(UBound(i_ftp_antag)) & " " & CStr(TypeName(i_ftp_antag))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_antag
end if
If lcase(varname) = lcase("i_ftp_atp") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_atp" & " " & CStr(UBound(i_ftp_atp)) & " " & CStr(TypeName(i_ftp_atp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_atp
end if
If lcase(varname) = lcase("i_ftp_fp") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_fp" & " " & CStr(UBound(i_ftp_fp)) & " " & CStr(TypeName(i_ftp_fp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_fp
end if
If lcase(varname) = lcase("i_ftp_gar") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_gar" & " " & CStr(UBound(i_ftp_gar)) & " " & CStr(TypeName(i_ftp_gar))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_gar
end if
If lcase(varname) = lcase("i_ftp_ink") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_ink" & " " & CStr(UBound(i_ftp_ink)) & " " & CStr(TypeName(i_ftp_ink))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_ink
end if
If lcase(varname) = lcase("i_ftp_just") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_just" & " " & CStr(UBound(i_ftp_just)) & " " & CStr(TypeName(i_ftp_just))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_just
end if
If lcase(varname) = lcase("i_ftp_pts") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_pts" & " " & CStr(UBound(i_ftp_pts)) & " " & CStr(TypeName(i_ftp_pts))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_pts
end if
If lcase(varname) = lcase("i_ftp_typ") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_typ" & " " & CStr(UBound(i_ftp_typ)) & " " & CStr(TypeName(i_ftp_typ))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_typ
end if
If lcase(varname) = lcase("i_ftp_year") Then
txt = CStr(base_year + model_time) & " " & "i_ftp_year" & " " & CStr(UBound(i_ftp_year)) & " " & CStr(TypeName(i_ftp_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ftp_year
end if
If lcase(varname) = lcase("i_HasBeenWidowed") Then
txt = CStr(base_year + model_time) & " " & "i_HasBeenWidowed" & " " & CStr(UBound(i_HasBeenWidowed)) & " " & CStr(TypeName(i_HasBeenWidowed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_HasBeenWidowed
end if
If lcase(varname) = lcase("i_health") Then
txt = CStr(base_year + model_time) & " " & "i_health" & " " & CStr(UBound(i_health)) & " " & CStr(TypeName(i_health))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_health
end if
If lcase(varname) = lcase("i_health_latent") Then
txt = CStr(base_year + model_time) & " " & "i_health_latent" & " " & CStr(UBound(i_health_latent)) & " " & CStr(TypeName(i_health_latent))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_health_latent
end if
If lcase(varname) = lcase("i_health_latent1") Then
txt = CStr(base_year + model_time) & " " & "i_health_latent1" & " " & CStr(UBound(i_health_latent1)) & " " & CStr(TypeName(i_health_latent1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_health_latent1
end if
If lcase(varname) = lcase("i_health1") Then
txt = CStr(base_year + model_time) & " " & "i_health1" & " " & CStr(UBound(i_health1)) & " " & CStr(TypeName(i_health1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_health1
end if
If lcase(varname) = lcase("i_hhnr") Then
txt = CStr(base_year + model_time) & " " & "i_hhnr" & " " & CStr(UBound(i_hhnr)) & " " & CStr(TypeName(i_hhnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_hhnr
end if
If lcase(varname) = lcase("i_hhstatus") Then
txt = CStr(base_year + model_time) & " " & "i_hhstatus" & " " & CStr(UBound(i_hhstatus)) & " " & CStr(TypeName(i_hhstatus))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_hhstatus
end if
If lcase(varname) = lcase("i_housetax_postponed") Then
txt = CStr(base_year + model_time) & " " & "i_housetax_postponed" & " " & CStr(UBound(i_housetax_postponed)) & " " & CStr(TypeName(i_housetax_postponed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_housetax_postponed
end if
If lcase(varname) = lcase("i_hsdropout") Then
txt = CStr(base_year + model_time) & " " & "i_hsdropout" & " " & CStr(UBound(i_hsdropout)) & " " & CStr(TypeName(i_hsdropout))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_hsdropout
end if
If lcase(varname) = lcase("i_inc_capital") Then
txt = CStr(base_year + model_time) & " " & "i_inc_capital" & " " & CStr(UBound(i_inc_capital)) & " " & CStr(TypeName(i_inc_capital))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_capital
end if
If lcase(varname) = lcase("i_inc_earning") Then
txt = CStr(base_year + model_time) & " " & "i_inc_earning" & " " & CStr(UBound(i_inc_earning)) & " " & CStr(TypeName(i_inc_earning))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_earning
end if
If lcase(varname) = lcase("i_inc_itvariance") Then
txt = CStr(base_year + model_time) & " " & "i_inc_itvariance" & " " & CStr(UBound(i_inc_itvariance)) & " " & CStr(TypeName(i_inc_itvariance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_itvariance
end if
If lcase(varname) = lcase("i_inc_ivariance") Then
txt = CStr(base_year + model_time) & " " & "i_inc_ivariance" & " " & CStr(UBound(i_inc_ivariance)) & " " & CStr(TypeName(i_inc_ivariance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_ivariance
end if
If lcase(varname) = lcase("i_inc_market") Then
txt = CStr(base_year + model_time) & " " & "i_inc_market" & " " & CStr(UBound(i_inc_market)) & " " & CStr(TypeName(i_inc_market))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_market
end if
If lcase(varname) = lcase("i_inc_selfemployed") Then
txt = CStr(base_year + model_time) & " " & "i_inc_selfemployed" & " " & CStr(UBound(i_inc_selfemployed)) & " " & CStr(TypeName(i_inc_selfemployed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_selfemployed
end if
If lcase(varname) = lcase("i_inc_taxable") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable" & " " & CStr(UBound(i_inc_taxable)) & " " & CStr(TypeName(i_inc_taxable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable
end if
If lcase(varname) = lcase("i_inc_taxable1") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable1" & " " & CStr(UBound(i_inc_taxable1)) & " " & CStr(TypeName(i_inc_taxable1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable1
end if
If lcase(varname) = lcase("i_inc_taxable2") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable2" & " " & CStr(UBound(i_inc_taxable2)) & " " & CStr(TypeName(i_inc_taxable2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable2
end if
If lcase(varname) = lcase("i_inc_taxable3") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable3" & " " & CStr(UBound(i_inc_taxable3)) & " " & CStr(TypeName(i_inc_taxable3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable3
end if
If lcase(varname) = lcase("i_inc_taxable4") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable4" & " " & CStr(UBound(i_inc_taxable4)) & " " & CStr(TypeName(i_inc_taxable4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable4
end if
If lcase(varname) = lcase("i_inc_taxable5") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxable5" & " " & CStr(UBound(i_inc_taxable5)) & " " & CStr(TypeName(i_inc_taxable5))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxable5
end if
If lcase(varname) = lcase("i_inc_taxed") Then
txt = CStr(base_year + model_time) & " " & "i_inc_taxed" & " " & CStr(UBound(i_inc_taxed)) & " " & CStr(TypeName(i_inc_taxed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_taxed
end if
If lcase(varname) = lcase("i_inc_work") Then
txt = CStr(base_year + model_time) & " " & "i_inc_work" & " " & CStr(UBound(i_inc_work)) & " " & CStr(TypeName(i_inc_work))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_inc_work
end if
If lcase(varname) = lcase("i_income") Then
txt = CStr(base_year + model_time) & " " & "i_income" & " " & CStr(UBound(i_income)) & " " & CStr(TypeName(i_income))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_income
end if
If lcase(varname) = lcase("i_indnr") Then
txt = CStr(base_year + model_time) & " " & "i_indnr" & " " & CStr(UBound(i_indnr)) & " " & CStr(TypeName(i_indnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_indnr
end if
If lcase(varname) = lcase("i_InpatientCare") Then
txt = CStr(base_year + model_time) & " " & "i_InpatientCare" & " " & CStr(UBound(i_InpatientCare)) & " " & CStr(TypeName(i_InpatientCare))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_InpatientCare
end if
If lcase(varname) = lcase("i_last_hh_dur") Then
txt = CStr(base_year + model_time) & " " & "i_last_hh_dur" & " " & CStr(UBound(i_last_hh_dur)) & " " & CStr(TypeName(i_last_hh_dur))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_last_hh_dur
end if
If lcase(varname) = lcase("i_maintenance_paid") Then
txt = CStr(base_year + model_time) & " " & "i_maintenance_paid" & " " & CStr(UBound(i_maintenance_paid)) & " " & CStr(TypeName(i_maintenance_paid))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_maintenance_paid
end if
If lcase(varname) = lcase("i_mATP_1994") Then
txt = CStr(base_year + model_time) & " " & "i_mATP_1994" & " " & CStr(UBound(i_mATP_1994)) & " " & CStr(TypeName(i_mATP_1994))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_mATP_1994
end if
If lcase(varname) = lcase("i_new_em") Then
txt = CStr(base_year + model_time) & " " & "i_new_em" & " " & CStr(UBound(i_new_em)) & " " & CStr(TypeName(i_new_em))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_new_em
end if
If lcase(varname) = lcase("i_new_fp") Then
txt = CStr(base_year + model_time) & " " & "i_new_fp" & " " & CStr(UBound(i_new_fp)) & " " & CStr(TypeName(i_new_fp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_new_fp
end if
If lcase(varname) = lcase("i_new_immig") Then
txt = CStr(base_year + model_time) & " " & "i_new_immig" & " " & CStr(UBound(i_new_immig)) & " " & CStr(TypeName(i_new_immig))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_new_immig
end if
If lcase(varname) = lcase("i_next_indnr") Then
txt = CStr(base_year + model_time) & " " & "i_next_indnr" & " " & CStr(UBound(i_next_indnr)) & " " & CStr(TypeName(i_next_indnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_next_indnr
end if
If lcase(varname) = lcase("i_nr_prev_hh") Then
txt = CStr(base_year + model_time) & " " & "i_nr_prev_hh" & " " & CStr(UBound(i_nr_prev_hh)) & " " & CStr(TypeName(i_nr_prev_hh))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_nr_prev_hh
end if
If lcase(varname) = lcase("i_op") Then
txt = CStr(base_year + model_time) & " " & "i_op" & " " & CStr(UBound(i_op)) & " " & CStr(TypeName(i_op))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op
end if
If lcase(varname) = lcase("i_op_an_db_after_65") Then
txt = CStr(base_year + model_time) & " " & "i_op_an_db_after_65" & " " & CStr(UBound(i_op_an_db_after_65)) & " " & CStr(TypeName(i_op_an_db_after_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_an_db_after_65
end if
If lcase(varname) = lcase("i_op_an_db_before_65") Then
txt = CStr(base_year + model_time) & " " & "i_op_an_db_before_65" & " " & CStr(UBound(i_op_an_db_before_65)) & " " & CStr(TypeName(i_op_an_db_before_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_an_db_before_65
end if
If lcase(varname) = lcase("i_op_an_dc_after_65") Then
txt = CStr(base_year + model_time) & " " & "i_op_an_dc_after_65" & " " & CStr(UBound(i_op_an_dc_after_65)) & " " & CStr(TypeName(i_op_an_dc_after_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_an_dc_after_65
end if
If lcase(varname) = lcase("i_op_an_dc_before_65") Then
txt = CStr(base_year + model_time) & " " & "i_op_an_dc_before_65" & " " & CStr(UBound(i_op_an_dc_before_65)) & " " & CStr(TypeName(i_op_an_dc_before_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_an_dc_before_65
end if
If lcase(varname) = lcase("i_op_ap_db") Then
txt = CStr(base_year + model_time) & " " & "i_op_ap_db" & " " & CStr(UBound(i_op_ap_db)) & " " & CStr(TypeName(i_op_ap_db))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_ap_db
end if
If lcase(varname) = lcase("i_op_ap_dc") Then
txt = CStr(base_year + model_time) & " " & "i_op_ap_dc" & " " & CStr(UBound(i_op_ap_dc)) & " " & CStr(TypeName(i_op_ap_dc))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_ap_dc
end if
If lcase(varname) = lcase("i_op_ap_tp") Then
txt = CStr(base_year + model_time) & " " & "i_op_ap_tp" & " " & CStr(UBound(i_op_ap_tp)) & " " & CStr(TypeName(i_op_ap_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_ap_tp
end if
If lcase(varname) = lcase("i_op_capital_value") Then
txt = CStr(base_year + model_time) & " " & "i_op_capital_value" & " " & CStr(UBound(i_op_capital_value)) & " " & CStr(TypeName(i_op_capital_value))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_capital_value
end if
If lcase(varname) = lcase("i_op_erp") Then
txt = CStr(base_year + model_time) & " " & "i_op_erp" & " " & CStr(UBound(i_op_erp)) & " " & CStr(TypeName(i_op_erp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_erp
end if
If lcase(varname) = lcase("i_op_pp_years") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years" & " " & CStr(UBound(i_op_pp_years)) & " " & CStr(TypeName(i_op_pp_years))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years
end if
If lcase(varname) = lcase("i_op_pp_years_Blue") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years_Blue" & " " & CStr(UBound(i_op_pp_years_Blue)) & " " & CStr(TypeName(i_op_pp_years_Blue))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years_Blue
end if
If lcase(varname) = lcase("i_op_pp_years_Local") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years_Local" & " " & CStr(UBound(i_op_pp_years_Local)) & " " & CStr(TypeName(i_op_pp_years_Local))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years_Local
end if
If lcase(varname) = lcase("i_op_pp_years_State") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years_State" & " " & CStr(UBound(i_op_pp_years_State)) & " " & CStr(TypeName(i_op_pp_years_State))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years_State
end if
If lcase(varname) = lcase("i_op_pp_years_trans") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years_trans" & " " & CStr(UBound(i_op_pp_years_trans)) & " " & CStr(TypeName(i_op_pp_years_trans))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years_trans
end if
If lcase(varname) = lcase("i_op_pp_years_White") Then
txt = CStr(base_year + model_time) & " " & "i_op_pp_years_White" & " " & CStr(UBound(i_op_pp_years_White)) & " " & CStr(TypeName(i_op_pp_years_White))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_pp_years_White
end if
If lcase(varname) = lcase("i_op_retirement_individual_effect") Then
txt = CStr(base_year + model_time) & " " & "i_op_retirement_individual_effect" & " " & CStr(UBound(i_op_retirement_individual_effect)) & " " & CStr(TypeName(i_op_retirement_individual_effect))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_op_retirement_individual_effect
end if
If lcase(varname) = lcase("i_p_andel") Then
txt = CStr(base_year + model_time) & " " & "i_p_andel" & " " & CStr(UBound(i_p_andel)) & " " & CStr(TypeName(i_p_andel))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_p_andel
end if
If lcase(varname) = lcase("i_p_antman") Then
txt = CStr(base_year + model_time) & " " & "i_p_antman" & " " & CStr(UBound(i_p_antman)) & " " & CStr(TypeName(i_p_antman))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_p_antman
end if
If lcase(varname) = lcase("i_pb_fiktiv") Then
txt = CStr(base_year + model_time) & " " & "i_pb_fiktiv" & " " & CStr(UBound(i_pb_fiktiv)) & " " & CStr(TypeName(i_pb_fiktiv))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_fiktiv
end if
If lcase(varname) = lcase("i_pb_ip") Then
txt = CStr(base_year + model_time) & " " & "i_pb_ip" & " " & CStr(UBound(i_pb_ip)) & " " & CStr(TypeName(i_pb_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_ip
end if
If lcase(varname) = lcase("i_pb_ip1") Then
txt = CStr(base_year + model_time) & " " & "i_pb_ip1" & " " & CStr(UBound(i_pb_ip1)) & " " & CStr(TypeName(i_pb_ip1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_ip1
end if
If lcase(varname) = lcase("i_pb_op_ap") Then
txt = CStr(base_year + model_time) & " " & "i_pb_op_ap" & " " & CStr(UBound(i_pb_op_ap)) & " " & CStr(TypeName(i_pb_op_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_op_ap
end if
If lcase(varname) = lcase("i_pb_op_tp") Then
txt = CStr(base_year + model_time) & " " & "i_pb_op_tp" & " " & CStr(UBound(i_pb_op_tp)) & " " & CStr(TypeName(i_pb_op_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_op_tp
end if
If lcase(varname) = lcase("i_pb_pp") Then
txt = CStr(base_year + model_time) & " " & "i_pb_pp" & " " & CStr(UBound(i_pb_pp)) & " " & CStr(TypeName(i_pb_pp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pb_pp
end if
If lcase(varname) = lcase("i_pbhi") Then
txt = CStr(base_year + model_time) & " " & "i_pbhi" & " " & CStr(UBound(i_pbhi)) & " " & CStr(TypeName(i_pbhi))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pbhi
end if
If lcase(varname) = lcase("i_pc_care") Then
txt = CStr(base_year + model_time) & " " & "i_pc_care" & " " & CStr(UBound(i_pc_care)) & " " & CStr(TypeName(i_pc_care))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_care
end if
If lcase(varname) = lcase("i_pc_childcare") Then
txt = CStr(base_year + model_time) & " " & "i_pc_childcare" & " " & CStr(UBound(i_pc_childcare)) & " " & CStr(TypeName(i_pc_childcare))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_childcare
end if
If lcase(varname) = lcase("i_pc_elderly") Then
txt = CStr(base_year + model_time) & " " & "i_pc_elderly" & " " & CStr(UBound(i_pc_elderly)) & " " & CStr(TypeName(i_pc_elderly))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_elderly
end if
If lcase(varname) = lcase("i_pc_high_school") Then
txt = CStr(base_year + model_time) & " " & "i_pc_high_school" & " " & CStr(UBound(i_pc_high_school)) & " " & CStr(TypeName(i_pc_high_school))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_high_school
end if
If lcase(varname) = lcase("i_pc_labor") Then
txt = CStr(base_year + model_time) & " " & "i_pc_labor" & " " & CStr(UBound(i_pc_labor)) & " " & CStr(TypeName(i_pc_labor))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_labor
end if
If lcase(varname) = lcase("i_pc_MAE") Then
txt = CStr(base_year + model_time) & " " & "i_pc_MAE" & " " & CStr(UBound(i_pc_MAE)) & " " & CStr(TypeName(i_pc_MAE))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_MAE
end if
If lcase(varname) = lcase("i_pc_medicine") Then
txt = CStr(base_year + model_time) & " " & "i_pc_medicine" & " " & CStr(UBound(i_pc_medicine)) & " " & CStr(TypeName(i_pc_medicine))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_medicine
end if
If lcase(varname) = lcase("i_pc_school") Then
txt = CStr(base_year + model_time) & " " & "i_pc_school" & " " & CStr(UBound(i_pc_school)) & " " & CStr(TypeName(i_pc_school))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_school
end if
If lcase(varname) = lcase("i_pc_school_adult") Then
txt = CStr(base_year + model_time) & " " & "i_pc_school_adult" & " " & CStr(UBound(i_pc_school_adult)) & " " & CStr(TypeName(i_pc_school_adult))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_school_adult
end if
If lcase(varname) = lcase("i_pc_total") Then
txt = CStr(base_year + model_time) & " " & "i_pc_total" & " " & CStr(UBound(i_pc_total)) & " " & CStr(TypeName(i_pc_total))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_total
end if
If lcase(varname) = lcase("i_pc_univ") Then
txt = CStr(base_year + model_time) & " " & "i_pc_univ" & " " & CStr(UBound(i_pc_univ)) & " " & CStr(TypeName(i_pc_univ))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pc_univ
end if
If lcase(varname) = lcase("i_pgb") Then
txt = CStr(base_year + model_time) & " " & "i_pgb" & " " & CStr(UBound(i_pgb)) & " " & CStr(TypeName(i_pgb))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb
end if
If lcase(varname) = lcase("i_pgb_antag") Then
txt = CStr(base_year + model_time) & " " & "i_pgb_antag" & " " & CStr(UBound(i_pgb_antag)) & " " & CStr(TypeName(i_pgb_antag))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb_antag
end if
If lcase(varname) = lcase("i_pgb_barn") Then
txt = CStr(base_year + model_time) & " " & "i_pgb_barn" & " " & CStr(UBound(i_pgb_barn)) & " " & CStr(TypeName(i_pgb_barn))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb_barn
end if
If lcase(varname) = lcase("i_pgb_barn_typ") Then
txt = CStr(base_year + model_time) & " " & "i_pgb_barn_typ" & " " & CStr(UBound(i_pgb_barn_typ)) & " " & CStr(TypeName(i_pgb_barn_typ))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb_barn_typ
end if
If lcase(varname) = lcase("i_pgb_plikt") Then
txt = CStr(base_year + model_time) & " " & "i_pgb_plikt" & " " & CStr(UBound(i_pgb_plikt)) & " " & CStr(TypeName(i_pgb_plikt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb_plikt
end if
If lcase(varname) = lcase("i_pgb_stud") Then
txt = CStr(base_year + model_time) & " " & "i_pgb_stud" & " " & CStr(UBound(i_pgb_stud)) & " " & CStr(TypeName(i_pgb_stud))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgb_stud
end if
If lcase(varname) = lcase("i_pgi") Then
txt = CStr(base_year + model_time) & " " & "i_pgi" & " " & CStr(UBound(i_pgi)) & " " & CStr(TypeName(i_pgi))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgi
end if
If lcase(varname) = lcase("i_pgi_bas") Then
txt = CStr(base_year + model_time) & " " & "i_pgi_bas" & " " & CStr(UBound(i_pgi_bas)) & " " & CStr(TypeName(i_pgi_bas))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgi_bas
end if
If lcase(varname) = lcase("i_pgi_orange") Then
txt = CStr(base_year + model_time) & " " & "i_pgi_orange" & " " & CStr(UBound(i_pgi_orange)) & " " & CStr(TypeName(i_pgi_orange))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgi_orange
end if
If lcase(varname) = lcase("i_pgi185") Then
txt = CStr(base_year + model_time) & " " & "i_pgi185" & " " & CStr(UBound(i_pgi185)) & " " & CStr(TypeName(i_pgi185))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pgi185
end if
If lcase(varname) = lcase("i_pp") Then
txt = CStr(base_year + model_time) & " " & "i_pp" & " " & CStr(UBound(i_pp)) & " " & CStr(TypeName(i_pp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pp
end if
If lcase(varname) = lcase("i_pp_payout_time") Then
txt = CStr(base_year + model_time) & " " & "i_pp_payout_time" & " " & CStr(UBound(i_pp_payout_time)) & " " & CStr(TypeName(i_pp_payout_time))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pp_payout_time
end if
If lcase(varname) = lcase("i_ppmkap") Then
txt = CStr(base_year + model_time) & " " & "i_ppmkap" & " " & CStr(UBound(i_ppmkap)) & " " & CStr(TypeName(i_ppmkap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_ppmkap
end if
If lcase(varname) = lcase("i_pr_ip") Then
txt = CStr(base_year + model_time) & " " & "i_pr_ip" & " " & CStr(UBound(i_pr_ip)) & " " & CStr(TypeName(i_pr_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_ip
end if
If lcase(varname) = lcase("i_pr_ip1") Then
txt = CStr(base_year + model_time) & " " & "i_pr_ip1" & " " & CStr(UBound(i_pr_ip1)) & " " & CStr(TypeName(i_pr_ip1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_ip1
end if
If lcase(varname) = lcase("i_pr_op_ap") Then
txt = CStr(base_year + model_time) & " " & "i_pr_op_ap" & " " & CStr(UBound(i_pr_op_ap)) & " " & CStr(TypeName(i_pr_op_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_op_ap
end if
If lcase(varname) = lcase("i_pr_op_tp") Then
txt = CStr(base_year + model_time) & " " & "i_pr_op_tp" & " " & CStr(UBound(i_pr_op_tp)) & " " & CStr(TypeName(i_pr_op_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_op_tp
end if
If lcase(varname) = lcase("i_pr_pp") Then
txt = CStr(base_year + model_time) & " " & "i_pr_pp" & " " & CStr(UBound(i_pr_pp)) & " " & CStr(TypeName(i_pr_pp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_pp
end if
If lcase(varname) = lcase("i_pr_pp1") Then
txt = CStr(base_year + model_time) & " " & "i_pr_pp1" & " " & CStr(UBound(i_pr_pp1)) & " " & CStr(TypeName(i_pr_pp1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pr_pp1
end if
If lcase(varname) = lcase("i_prob_unemployed") Then
txt = CStr(base_year + model_time) & " " & "i_prob_unemployed" & " " & CStr(UBound(i_prob_unemployed)) & " " & CStr(TypeName(i_prob_unemployed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_prob_unemployed
end if
If lcase(varname) = lcase("i_prob_working") Then
txt = CStr(base_year + model_time) & " " & "i_prob_working" & " " & CStr(UBound(i_prob_working)) & " " & CStr(TypeName(i_prob_working))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_prob_working
end if
If lcase(varname) = lcase("i_pu") Then
txt = CStr(base_year + model_time) & " " & "i_pu" & " " & CStr(UBound(i_pu)) & " " & CStr(TypeName(i_pu))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pu
end if
If lcase(varname) = lcase("i_pu_ind_comp") Then
txt = CStr(base_year + model_time) & " " & "i_pu_ind_comp" & " " & CStr(UBound(i_pu_ind_comp)) & " " & CStr(TypeName(i_pu_ind_comp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pu_ind_comp
end if
If lcase(varname) = lcase("i_pu_orange") Then
txt = CStr(base_year + model_time) & " " & "i_pu_orange" & " " & CStr(UBound(i_pu_orange)) & " " & CStr(TypeName(i_pu_orange))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_pu_orange
end if
If lcase(varname) = lcase("i_sarbavg_pens") Then
txt = CStr(base_year + model_time) & " " & "i_sarbavg_pens" & " " & CStr(UBound(i_sarbavg_pens)) & " " & CStr(TypeName(i_sarbavg_pens))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sarbavg_pens
end if
If lcase(varname) = lcase("i_sector") Then
txt = CStr(base_year + model_time) & " " & "i_sector" & " " & CStr(UBound(i_sector)) & " " & CStr(TypeName(i_sector))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sector
end if
If lcase(varname) = lcase("i_sector1") Then
txt = CStr(base_year + model_time) & " " & "i_sector1" & " " & CStr(UBound(i_sector1)) & " " & CStr(TypeName(i_sector1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sector1
end if
If lcase(varname) = lcase("i_selected") Then
txt = CStr(base_year + model_time) & " " & "i_selected" & " " & CStr(UBound(i_selected)) & " " & CStr(TypeName(i_selected))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_selected
end if
If lcase(varname) = lcase("i_sex") Then
txt = CStr(base_year + model_time) & " " & "i_sex" & " " & CStr(UBound(i_sex)) & " " & CStr(TypeName(i_sex))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sex
end if
If lcase(varname) = lcase("i_sick_ind") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind" & " " & CStr(UBound(i_sick_ind)) & " " & CStr(TypeName(i_sick_ind))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind
end if
If lcase(varname) = lcase("i_sick_ind1") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind1" & " " & CStr(UBound(i_sick_ind1)) & " " & CStr(TypeName(i_sick_ind1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind1
end if
If lcase(varname) = lcase("i_sick_ind2") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind2" & " " & CStr(UBound(i_sick_ind2)) & " " & CStr(TypeName(i_sick_ind2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind2
end if
If lcase(varname) = lcase("i_sick_ind3") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind3" & " " & CStr(UBound(i_sick_ind3)) & " " & CStr(TypeName(i_sick_ind3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind3
end if
If lcase(varname) = lcase("i_sick_ind4") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind4" & " " & CStr(UBound(i_sick_ind4)) & " " & CStr(TypeName(i_sick_ind4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind4
end if
If lcase(varname) = lcase("i_sick_ind5") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind5" & " " & CStr(UBound(i_sick_ind5)) & " " & CStr(TypeName(i_sick_ind5))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind5
end if
If lcase(varname) = lcase("i_sick_ind6") Then
txt = CStr(base_year + model_time) & " " & "i_sick_ind6" & " " & CStr(UBound(i_sick_ind6)) & " " & CStr(TypeName(i_sick_ind6))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sick_ind6
end if
If lcase(varname) = lcase("i_sickleave") Then
txt = CStr(base_year + model_time) & " " & "i_sickleave" & " " & CStr(UBound(i_sickleave)) & " " & CStr(TypeName(i_sickleave))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sickleave
end if
If lcase(varname) = lcase("i_sickleave_ivariance") Then
txt = CStr(base_year + model_time) & " " & "i_sickleave_ivariance" & " " & CStr(UBound(i_sickleave_ivariance)) & " " & CStr(TypeName(i_sickleave_ivariance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_sickleave_ivariance
end if
If lcase(varname) = lcase("i_stap_ftp") Then
txt = CStr(base_year + model_time) & " " & "i_stap_ftp" & " " & CStr(UBound(i_stap_ftp)) & " " & CStr(TypeName(i_stap_ftp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_stap_ftp
end if
If lcase(varname) = lcase("i_stap_trf") Then
txt = CStr(base_year + model_time) & " " & "i_stap_trf" & " " & CStr(UBound(i_stap_trf)) & " " & CStr(TypeName(i_stap_trf))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_stap_trf
end if
If lcase(varname) = lcase("i_status") Then
txt = CStr(base_year + model_time) & " " & "i_status" & " " & CStr(UBound(i_status)) & " " & CStr(TypeName(i_status))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_status
end if
If lcase(varname) = lcase("i_status1") Then
txt = CStr(base_year + model_time) & " " & "i_status1" & " " & CStr(UBound(i_status1)) & " " & CStr(TypeName(i_status1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_status1
end if
If lcase(varname) = lcase("i_student") Then
txt = CStr(base_year + model_time) & " " & "i_student" & " " & CStr(UBound(i_student)) & " " & CStr(TypeName(i_student))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_student
end if
If lcase(varname) = lcase("i_study_debt") Then
txt = CStr(base_year + model_time) & " " & "i_study_debt" & " " & CStr(UBound(i_study_debt)) & " " & CStr(TypeName(i_study_debt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_study_debt
end if
If lcase(varname) = lcase("i_studyloan_repaid") Then
txt = CStr(base_year + model_time) & " " & "i_studyloan_repaid" & " " & CStr(UBound(i_studyloan_repaid)) & " " & CStr(TypeName(i_studyloan_repaid))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_studyloan_repaid
end if
If lcase(varname) = lcase("i_surv") Then
txt = CStr(base_year + model_time) & " " & "i_surv" & " " & CStr(UBound(i_surv)) & " " & CStr(TypeName(i_surv))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_surv
end if
If lcase(varname) = lcase("i_surv_atp") Then
txt = CStr(base_year + model_time) & " " & "i_surv_atp" & " " & CStr(UBound(i_surv_atp)) & " " & CStr(TypeName(i_surv_atp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_surv_atp
end if
If lcase(varname) = lcase("i_surv_fp") Then
txt = CStr(base_year + model_time) & " " & "i_surv_fp" & " " & CStr(UBound(i_surv_fp)) & " " & CStr(TypeName(i_surv_fp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_surv_fp
end if
If lcase(varname) = lcase("i_surv_omst") Then
txt = CStr(base_year + model_time) & " " & "i_surv_omst" & " " & CStr(UBound(i_surv_omst)) & " " & CStr(TypeName(i_surv_omst))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_surv_omst
end if
If lcase(varname) = lcase("i_surv_year") Then
txt = CStr(base_year + model_time) & " " & "i_surv_year" & " " & CStr(UBound(i_surv_year)) & " " & CStr(TypeName(i_surv_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_surv_year
end if
If lcase(varname) = lcase("i_tax_capital") Then
txt = CStr(base_year + model_time) & " " & "i_tax_capital" & " " & CStr(UBound(i_tax_capital)) & " " & CStr(TypeName(i_tax_capital))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_capital
end if
If lcase(varname) = lcase("i_tax_contribution") Then
txt = CStr(base_year + model_time) & " " & "i_tax_contribution" & " " & CStr(UBound(i_tax_contribution)) & " " & CStr(TypeName(i_tax_contribution))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_contribution
end if
If lcase(varname) = lcase("i_tax_income") Then
txt = CStr(base_year + model_time) & " " & "i_tax_income" & " " & CStr(UBound(i_tax_income)) & " " & CStr(TypeName(i_tax_income))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_income
end if
If lcase(varname) = lcase("i_tax_local") Then
txt = CStr(base_year + model_time) & " " & "i_tax_local" & " " & CStr(UBound(i_tax_local)) & " " & CStr(TypeName(i_tax_local))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_local
end if
If lcase(varname) = lcase("i_tax_national") Then
txt = CStr(base_year + model_time) & " " & "i_tax_national" & " " & CStr(UBound(i_tax_national)) & " " & CStr(TypeName(i_tax_national))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_national
end if
If lcase(varname) = lcase("i_tax_realestate") Then
txt = CStr(base_year + model_time) & " " & "i_tax_realestate" & " " & CStr(UBound(i_tax_realestate)) & " " & CStr(TypeName(i_tax_realestate))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_realestate
end if
If lcase(varname) = lcase("i_tax_total") Then
txt = CStr(base_year + model_time) & " " & "i_tax_total" & " " & CStr(UBound(i_tax_total)) & " " & CStr(TypeName(i_tax_total))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_total
end if
If lcase(varname) = lcase("i_tax_wealth") Then
txt = CStr(base_year + model_time) & " " & "i_tax_wealth" & " " & CStr(UBound(i_tax_wealth)) & " " & CStr(TypeName(i_tax_wealth))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_wealth
end if
If lcase(varname) = lcase("i_tax_workcredit") Then
txt = CStr(base_year + model_time) & " " & "i_tax_workcredit" & " " & CStr(UBound(i_tax_workcredit)) & " " & CStr(TypeName(i_tax_workcredit))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_tax_workcredit
end if
If lcase(varname) = lcase("i_taxred_capital") Then
txt = CStr(base_year + model_time) & " " & "i_taxred_capital" & " " & CStr(UBound(i_taxred_capital)) & " " & CStr(TypeName(i_taxred_capital))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_taxred_capital
end if
If lcase(varname) = lcase("i_trf_btp") Then
txt = CStr(base_year + model_time) & " " & "i_trf_btp" & " " & CStr(UBound(i_trf_btp)) & " " & CStr(TypeName(i_trf_btp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_btp
end if
If lcase(varname) = lcase("i_trf_parentleave") Then
txt = CStr(base_year + model_time) & " " & "i_trf_parentleave" & " " & CStr(UBound(i_trf_parentleave)) & " " & CStr(TypeName(i_trf_parentleave))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_parentleave
end if
If lcase(varname) = lcase("i_trf_pension") Then
txt = CStr(base_year + model_time) & " " & "i_trf_pension" & " " & CStr(UBound(i_trf_pension)) & " " & CStr(TypeName(i_trf_pension))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_pension
end if
If lcase(varname) = lcase("i_trf_sickleave") Then
txt = CStr(base_year + model_time) & " " & "i_trf_sickleave" & " " & CStr(UBound(i_trf_sickleave)) & " " & CStr(TypeName(i_trf_sickleave))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_sickleave
end if
If lcase(varname) = lcase("i_trf_skada") Then
txt = CStr(base_year + model_time) & " " & "i_trf_skada" & " " & CStr(UBound(i_trf_skada)) & " " & CStr(TypeName(i_trf_skada))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_skada
end if
If lcase(varname) = lcase("i_trf_study") Then
txt = CStr(base_year + model_time) & " " & "i_trf_study" & " " & CStr(UBound(i_trf_study)) & " " & CStr(TypeName(i_trf_study))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_study
end if
If lcase(varname) = lcase("i_trf_study_grant") Then
txt = CStr(base_year + model_time) & " " & "i_trf_study_grant" & " " & CStr(UBound(i_trf_study_grant)) & " " & CStr(TypeName(i_trf_study_grant))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_study_grant
end if
If lcase(varname) = lcase("i_trf_study_loan") Then
txt = CStr(base_year + model_time) & " " & "i_trf_study_loan" & " " & CStr(UBound(i_trf_study_loan)) & " " & CStr(TypeName(i_trf_study_loan))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_study_loan
end if
If lcase(varname) = lcase("i_trf_taxable") Then
txt = CStr(base_year + model_time) & " " & "i_trf_taxable" & " " & CStr(UBound(i_trf_taxable)) & " " & CStr(TypeName(i_trf_taxable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_taxable
end if
If lcase(varname) = lcase("i_trf_unemployed") Then
txt = CStr(base_year + model_time) & " " & "i_trf_unemployed" & " " & CStr(UBound(i_trf_unemployed)) & " " & CStr(TypeName(i_trf_unemployed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_trf_unemployed
end if
If lcase(varname) = lcase("i_unemp_ivariance") Then
txt = CStr(base_year + model_time) & " " & "i_unemp_ivariance" & " " & CStr(UBound(i_unemp_ivariance)) & " " & CStr(TypeName(i_unemp_ivariance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_unemp_ivariance
end if
If lcase(varname) = lcase("i_using_temp_pension") Then
txt = CStr(base_year + model_time) & " " & "i_using_temp_pension" & " " & CStr(UBound(i_using_temp_pension)) & " " & CStr(TypeName(i_using_temp_pension))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_using_temp_pension
end if
If lcase(varname) = lcase("i_vard") Then
txt = CStr(base_year + model_time) & " " & "i_vard" & " " & CStr(UBound(i_vard)) & " " & CStr(TypeName(i_vard))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_vard
end if
If lcase(varname) = lcase("i_wealth_debt") Then
txt = CStr(base_year + model_time) & " " & "i_wealth_debt" & " " & CStr(UBound(i_wealth_debt)) & " " & CStr(TypeName(i_wealth_debt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_wealth_debt
end if
If lcase(varname) = lcase("i_wealth_financial") Then
txt = CStr(base_year + model_time) & " " & "i_wealth_financial" & " " & CStr(UBound(i_wealth_financial)) & " " & CStr(TypeName(i_wealth_financial))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_wealth_financial
end if
If lcase(varname) = lcase("i_wealth_pension_total") Then
txt = CStr(base_year + model_time) & " " & "i_wealth_pension_total" & " " & CStr(UBound(i_wealth_pension_total)) & " " & CStr(TypeName(i_wealth_pension_total))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_wealth_pension_total
end if
If lcase(varname) = lcase("i_wealth_pension_year") Then
txt = CStr(base_year + model_time) & " " & "i_wealth_pension_year" & " " & CStr(UBound(i_wealth_pension_year)) & " " & CStr(TypeName(i_wealth_pension_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_wealth_pension_year
end if
If lcase(varname) = lcase("i_wealth_pension_year1") Then
txt = CStr(base_year + model_time) & " " & "i_wealth_pension_year1" & " " & CStr(UBound(i_wealth_pension_year1)) & " " & CStr(TypeName(i_wealth_pension_year1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_wealth_pension_year1
end if
If lcase(varname) = lcase("i_widowed") Then
txt = CStr(base_year + model_time) & " " & "i_widowed" & " " & CStr(UBound(i_widowed)) & " " & CStr(TypeName(i_widowed))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_widowed
end if
If lcase(varname) = lcase("i_work_share") Then
txt = CStr(base_year + model_time) & " " & "i_work_share" & " " & CStr(UBound(i_work_share)) & " " & CStr(TypeName(i_work_share))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_work_share
end if
If lcase(varname) = lcase("i_work_share1") Then
txt = CStr(base_year + model_time) & " " & "i_work_share1" & " " & CStr(UBound(i_work_share1)) & " " & CStr(TypeName(i_work_share1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_work_share1
end if
If lcase(varname) = lcase("i_workexperience") Then
txt = CStr(base_year + model_time) & " " & "i_workexperience" & " " & CStr(UBound(i_workexperience)) & " " & CStr(TypeName(i_workexperience))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_workexperience
end if
If lcase(varname) = lcase("i_year_sep") Then
txt = CStr(base_year + model_time) & " " & "i_year_sep" & " " & CStr(UBound(i_year_sep)) & " " & CStr(TypeName(i_year_sep))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,i_year_sep
end if
If lcase(varname) = lcase("h_abroad") Then
txt = CStr(base_year + model_time) & " " & "h_abroad" & " " & CStr(UBound(h_abroad)) & " " & CStr(TypeName(h_abroad))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_abroad
end if
If lcase(varname) = lcase("h_BB_region") Then
txt = CStr(base_year + model_time) & " " & "h_BB_region" & " " & CStr(UBound(h_BB_region)) & " " & CStr(TypeName(h_BB_region))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_BB_region
end if
If lcase(varname) = lcase("h_BB_region1") Then
txt = CStr(base_year + model_time) & " " & "h_BB_region1" & " " & CStr(UBound(h_BB_region1)) & " " & CStr(TypeName(h_BB_region1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_BB_region1
end if
If lcase(varname) = lcase("h_bvux_work") Then
txt = CStr(base_year + model_time) & " " & "h_bvux_work" & " " & CStr(UBound(h_bvux_work)) & " " & CStr(TypeName(h_bvux_work))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_bvux_work
end if
If lcase(varname) = lcase("h_childmoveout") Then
txt = CStr(base_year + model_time) & " " & "h_childmoveout" & " " & CStr(UBound(h_childmoveout)) & " " & CStr(TypeName(h_childmoveout))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_childmoveout
end if
If lcase(varname) = lcase("h_close_relative") Then
txt = CStr(base_year + model_time) & " " & "h_close_relative" & " " & CStr(UBound(h_close_relative)) & " " & CStr(TypeName(h_close_relative))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_close_relative
end if
If lcase(varname) = lcase("h_close_relative1") Then
txt = CStr(base_year + model_time) & " " & "h_close_relative1" & " " & CStr(UBound(h_close_relative1)) & " " & CStr(TypeName(h_close_relative1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_close_relative1
end if
If lcase(varname) = lcase("h_emig_year") Then
txt = CStr(base_year + model_time) & " " & "h_emig_year" & " " & CStr(UBound(h_emig_year)) & " " & CStr(TypeName(h_emig_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_emig_year
end if
If lcase(varname) = lcase("h_first_indnr") Then
txt = CStr(base_year + model_time) & " " & "h_first_indnr" & " " & CStr(UBound(h_first_indnr)) & " " & CStr(TypeName(h_first_indnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_first_indnr
end if
If lcase(varname) = lcase("h_form_year") Then
txt = CStr(base_year + model_time) & " " & "h_form_year" & " " & CStr(UBound(h_form_year)) & " " & CStr(TypeName(h_form_year))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_form_year
end if
If lcase(varname) = lcase("h_hhnr") Then
txt = CStr(base_year + model_time) & " " & "h_hhnr" & " " & CStr(UBound(h_hhnr)) & " " & CStr(TypeName(h_hhnr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_hhnr
end if
If lcase(varname) = lcase("h_house_area") Then
txt = CStr(base_year + model_time) & " " & "h_house_area" & " " & CStr(UBound(h_house_area)) & " " & CStr(TypeName(h_house_area))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_area
end if
If lcase(varname) = lcase("h_house_cost") Then
txt = CStr(base_year + model_time) & " " & "h_house_cost" & " " & CStr(UBound(h_house_cost)) & " " & CStr(TypeName(h_house_cost))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_cost
end if
If lcase(varname) = lcase("h_house_interest") Then
txt = CStr(base_year + model_time) & " " & "h_house_interest" & " " & CStr(UBound(h_house_interest)) & " " & CStr(TypeName(h_house_interest))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_interest
end if
If lcase(varname) = lcase("h_house_owner") Then
txt = CStr(base_year + model_time) & " " & "h_house_owner" & " " & CStr(UBound(h_house_owner)) & " " & CStr(TypeName(h_house_owner))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_owner
end if
If lcase(varname) = lcase("h_house_owner1") Then
txt = CStr(base_year + model_time) & " " & "h_house_owner1" & " " & CStr(UBound(h_house_owner1)) & " " & CStr(TypeName(h_house_owner1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_owner1
end if
If lcase(varname) = lcase("h_house_purchase") Then
txt = CStr(base_year + model_time) & " " & "h_house_purchase" & " " & CStr(UBound(h_house_purchase)) & " " & CStr(TypeName(h_house_purchase))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_purchase
end if
If lcase(varname) = lcase("h_house_tax") Then
txt = CStr(base_year + model_time) & " " & "h_house_tax" & " " & CStr(UBound(h_house_tax)) & " " & CStr(TypeName(h_house_tax))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_house_tax
end if
If lcase(varname) = lcase("h_idx_headofhh") Then
txt = CStr(base_year + model_time) & " " & "h_idx_headofhh" & " " & CStr(UBound(h_idx_headofhh)) & " " & CStr(TypeName(h_idx_headofhh))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_idx_headofhh
end if
If lcase(varname) = lcase("h_inc_capital") Then
txt = CStr(base_year + model_time) & " " & "h_inc_capital" & " " & CStr(UBound(h_inc_capital)) & " " & CStr(TypeName(h_inc_capital))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_inc_capital
end if
If lcase(varname) = lcase("h_inc_disposable") Then
txt = CStr(base_year + model_time) & " " & "h_inc_disposable" & " " & CStr(UBound(h_inc_disposable)) & " " & CStr(TypeName(h_inc_disposable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_inc_disposable
end if
If lcase(varname) = lcase("h_inc_disposable1") Then
txt = CStr(base_year + model_time) & " " & "h_inc_disposable1" & " " & CStr(UBound(h_inc_disposable1)) & " " & CStr(TypeName(h_inc_disposable1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_inc_disposable1
end if
If lcase(varname) = lcase("h_inc_market") Then
txt = CStr(base_year + model_time) & " " & "h_inc_market" & " " & CStr(UBound(h_inc_market)) & " " & CStr(TypeName(h_inc_market))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_inc_market
end if
If lcase(varname) = lcase("h_inc_work") Then
txt = CStr(base_year + model_time) & " " & "h_inc_work" & " " & CStr(UBound(h_inc_work)) & " " & CStr(TypeName(h_inc_work))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_inc_work
end if
If lcase(varname) = lcase("h_indnr_female") Then
txt = CStr(base_year + model_time) & " " & "h_indnr_female" & " " & CStr(UBound(h_indnr_female)) & " " & CStr(TypeName(h_indnr_female))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_indnr_female
end if
If lcase(varname) = lcase("h_indnr_male") Then
txt = CStr(base_year + model_time) & " " & "h_indnr_male" & " " & CStr(UBound(h_indnr_male)) & " " & CStr(TypeName(h_indnr_male))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_indnr_male
end if
If lcase(varname) = lcase("h_kommunindex") Then
txt = CStr(base_year + model_time) & " " & "h_kommunindex" & " " & CStr(UBound(h_kommunindex)) & " " & CStr(TypeName(h_kommunindex))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_kommunindex
end if
If lcase(varname) = lcase("h_kommunkod") Then
txt = CStr(base_year + model_time) & " " & "h_kommunkod" & " " & CStr(UBound(h_kommunkod)) & " " & CStr(TypeName(h_kommunkod))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_kommunkod
end if
If lcase(varname) = lcase("h_maintenance_paid") Then
txt = CStr(base_year + model_time) & " " & "h_maintenance_paid" & " " & CStr(UBound(h_maintenance_paid)) & " " & CStr(TypeName(h_maintenance_paid))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_maintenance_paid
end if
If lcase(varname) = lcase("h_maintenance_received") Then
txt = CStr(base_year + model_time) & " " & "h_maintenance_received" & " " & CStr(UBound(h_maintenance_received)) & " " & CStr(TypeName(h_maintenance_received))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_maintenance_received
end if
If lcase(varname) = lcase("h_max_age") Then
txt = CStr(base_year + model_time) & " " & "h_max_age" & " " & CStr(UBound(h_max_age)) & " " & CStr(TypeName(h_max_age))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_max_age
end if
If lcase(varname) = lcase("h_max_edlevel") Then
txt = CStr(base_year + model_time) & " " & "h_max_edlevel" & " " & CStr(UBound(h_max_edlevel)) & " " & CStr(TypeName(h_max_edlevel))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_max_edlevel
end if
If lcase(varname) = lcase("h_max_inc_taxable") Then
txt = CStr(base_year + model_time) & " " & "h_max_inc_taxable" & " " & CStr(UBound(h_max_inc_taxable)) & " " & CStr(TypeName(h_max_inc_taxable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_max_inc_taxable
end if
If lcase(varname) = lcase("h_n_adults") Then
txt = CStr(base_year + model_time) & " " & "h_n_adults" & " " & CStr(UBound(h_n_adults)) & " " & CStr(TypeName(h_n_adults))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_adults
end if
If lcase(varname) = lcase("h_n_child") Then
txt = CStr(base_year + model_time) & " " & "h_n_child" & " " & CStr(UBound(h_n_child)) & " " & CStr(TypeName(h_n_child))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_child
end if
If lcase(varname) = lcase("h_n_child1") Then
txt = CStr(base_year + model_time) & " " & "h_n_child1" & " " & CStr(UBound(h_n_child1)) & " " & CStr(TypeName(h_n_child1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_child1
end if
If lcase(varname) = lcase("h_n_childlt12") Then
txt = CStr(base_year + model_time) & " " & "h_n_childlt12" & " " & CStr(UBound(h_n_childlt12)) & " " & CStr(TypeName(h_n_childlt12))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_childlt12
end if
If lcase(varname) = lcase("h_n_childlt7") Then
txt = CStr(base_year + model_time) & " " & "h_n_childlt7" & " " & CStr(UBound(h_n_childlt7)) & " " & CStr(TypeName(h_n_childlt7))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_childlt7
end if
If lcase(varname) = lcase("h_n_ge18") Then
txt = CStr(base_year + model_time) & " " & "h_n_ge18" & " " & CStr(UBound(h_n_ge18)) & " " & CStr(TypeName(h_n_ge18))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_n_ge18
end if
If lcase(varname) = lcase("h_new_housing") Then
txt = CStr(base_year + model_time) & " " & "h_new_housing" & " " & CStr(UBound(h_new_housing)) & " " & CStr(TypeName(h_new_housing))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_new_housing
end if
If lcase(varname) = lcase("h_new_housing1") Then
txt = CStr(base_year + model_time) & " " & "h_new_housing1" & " " & CStr(UBound(h_new_housing1)) & " " & CStr(TypeName(h_new_housing1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_new_housing1
end if
If lcase(varname) = lcase("h_new_immig") Then
txt = CStr(base_year + model_time) & " " & "h_new_immig" & " " & CStr(UBound(h_new_immig)) & " " & CStr(TypeName(h_new_immig))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_new_immig
end if
If lcase(varname) = lcase("h_selected") Then
txt = CStr(base_year + model_time) & " " & "h_selected" & " " & CStr(UBound(h_selected)) & " " & CStr(TypeName(h_selected))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_selected
end if
If lcase(varname) = lcase("h_size") Then
txt = CStr(base_year + model_time) & " " & "h_size" & " " & CStr(UBound(h_size)) & " " & CStr(TypeName(h_size))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_size
end if
If lcase(varname) = lcase("h_studyloan_repaid") Then
txt = CStr(base_year + model_time) & " " & "h_studyloan_repaid" & " " & CStr(UBound(h_studyloan_repaid)) & " " & CStr(TypeName(h_studyloan_repaid))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_studyloan_repaid
end if
If lcase(varname) = lcase("h_sum_inc_taxable") Then
txt = CStr(base_year + model_time) & " " & "h_sum_inc_taxable" & " " & CStr(UBound(h_sum_inc_taxable)) & " " & CStr(TypeName(h_sum_inc_taxable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_sum_inc_taxable
end if
If lcase(varname) = lcase("h_sum_inc_taxable1") Then
txt = CStr(base_year + model_time) & " " & "h_sum_inc_taxable1" & " " & CStr(UBound(h_sum_inc_taxable1)) & " " & CStr(TypeName(h_sum_inc_taxable1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_sum_inc_taxable1
end if
If lcase(varname) = lcase("h_tax_realestate") Then
txt = CStr(base_year + model_time) & " " & "h_tax_realestate" & " " & CStr(UBound(h_tax_realestate)) & " " & CStr(TypeName(h_tax_realestate))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_tax_realestate
end if
If lcase(varname) = lcase("h_tax_total") Then
txt = CStr(base_year + model_time) & " " & "h_tax_total" & " " & CStr(UBound(h_tax_total)) & " " & CStr(TypeName(h_tax_total))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_tax_total
end if
If lcase(varname) = lcase("h_trf_btp") Then
txt = CStr(base_year + model_time) & " " & "h_trf_btp" & " " & CStr(UBound(h_trf_btp)) & " " & CStr(TypeName(h_trf_btp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_btp
end if
If lcase(varname) = lcase("h_trf_childallowance") Then
txt = CStr(base_year + model_time) & " " & "h_trf_childallowance" & " " & CStr(UBound(h_trf_childallowance)) & " " & CStr(TypeName(h_trf_childallowance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_childallowance
end if
If lcase(varname) = lcase("h_trf_housingallowance") Then
txt = CStr(base_year + model_time) & " " & "h_trf_housingallowance" & " " & CStr(UBound(h_trf_housingallowance)) & " " & CStr(TypeName(h_trf_housingallowance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_housingallowance
end if
If lcase(varname) = lcase("h_trf_pension") Then
txt = CStr(base_year + model_time) & " " & "h_trf_pension" & " " & CStr(UBound(h_trf_pension)) & " " & CStr(TypeName(h_trf_pension))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_pension
end if
If lcase(varname) = lcase("h_trf_socialassistance") Then
txt = CStr(base_year + model_time) & " " & "h_trf_socialassistance" & " " & CStr(UBound(h_trf_socialassistance)) & " " & CStr(TypeName(h_trf_socialassistance))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_socialassistance
end if
If lcase(varname) = lcase("h_trf_study") Then
txt = CStr(base_year + model_time) & " " & "h_trf_study" & " " & CStr(UBound(h_trf_study)) & " " & CStr(TypeName(h_trf_study))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_study
end if
If lcase(varname) = lcase("h_trf_taxable") Then
txt = CStr(base_year + model_time) & " " & "h_trf_taxable" & " " & CStr(UBound(h_trf_taxable)) & " " & CStr(TypeName(h_trf_taxable))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_taxable
end if
If lcase(varname) = lcase("h_trf_taxfree") Then
txt = CStr(base_year + model_time) & " " & "h_trf_taxfree" & " " & CStr(UBound(h_trf_taxfree)) & " " & CStr(TypeName(h_trf_taxfree))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_trf_taxfree
end if
If lcase(varname) = lcase("h_wealth_CapitalGain") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_CapitalGain" & " " & CStr(UBound(h_wealth_CapitalGain)) & " " & CStr(TypeName(h_wealth_CapitalGain))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_CapitalGain
end if
If lcase(varname) = lcase("h_wealth_debt") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt" & " " & CStr(UBound(h_wealth_debt)) & " " & CStr(TypeName(h_wealth_debt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt
end if
If lcase(varname) = lcase("h_wealth_debt_GLS1vc") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_GLS1vc" & " " & CStr(UBound(h_wealth_debt_GLS1vc)) & " " & CStr(TypeName(h_wealth_debt_GLS1vc))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_GLS1vc
end if
If lcase(varname) = lcase("h_wealth_debt_GLS2vc") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_GLS2vc" & " " & CStr(UBound(h_wealth_debt_GLS2vc)) & " " & CStr(TypeName(h_wealth_debt_GLS2vc))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_GLS2vc
end if
If lcase(varname) = lcase("h_wealth_debt_interest") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interest" & " " & CStr(UBound(h_wealth_debt_interest)) & " " & CStr(TypeName(h_wealth_debt_interest))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interest
end if
If lcase(varname) = lcase("h_wealth_debt_interest_varcomp_p") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interest_varcomp_p" & " " & CStr(UBound(h_wealth_debt_interest_varcomp_p)) & " " & CStr(TypeName(h_wealth_debt_interest_varcomp_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interest_varcomp_p
end if
If lcase(varname) = lcase("h_wealth_debt_interest_varcomp_r") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interest_varcomp_r" & " " & CStr(UBound(h_wealth_debt_interest_varcomp_r)) & " " & CStr(TypeName(h_wealth_debt_interest_varcomp_r))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interest_varcomp_r
end if
If lcase(varname) = lcase("h_wealth_debt_interest1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interest1" & " " & CStr(UBound(h_wealth_debt_interest1)) & " " & CStr(TypeName(h_wealth_debt_interest1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interest1
end if
If lcase(varname) = lcase("h_wealth_debt_interestrate") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interestrate" & " " & CStr(UBound(h_wealth_debt_interestrate)) & " " & CStr(TypeName(h_wealth_debt_interestrate))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interestrate
end if
If lcase(varname) = lcase("h_wealth_debt_interestrate1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_interestrate1" & " " & CStr(UBound(h_wealth_debt_interestrate1)) & " " & CStr(TypeName(h_wealth_debt_interestrate1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_interestrate1
end if
If lcase(varname) = lcase("h_wealth_debt_probit1vc") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_probit1vc" & " " & CStr(UBound(h_wealth_debt_probit1vc)) & " " & CStr(TypeName(h_wealth_debt_probit1vc))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_probit1vc
end if
If lcase(varname) = lcase("h_wealth_debt_probit2vc") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_probit2vc" & " " & CStr(UBound(h_wealth_debt_probit2vc)) & " " & CStr(TypeName(h_wealth_debt_probit2vc))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_probit2vc
end if
If lcase(varname) = lcase("h_wealth_debt_varcomp") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt_varcomp" & " " & CStr(UBound(h_wealth_debt_varcomp)) & " " & CStr(TypeName(h_wealth_debt_varcomp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt_varcomp
end if
If lcase(varname) = lcase("h_wealth_debt1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_debt1" & " " & CStr(UBound(h_wealth_debt1)) & " " & CStr(TypeName(h_wealth_debt1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_debt1
end if
If lcase(varname) = lcase("h_wealth_DebtInterest_ind") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_DebtInterest_ind" & " " & CStr(UBound(h_wealth_DebtInterest_ind)) & " " & CStr(TypeName(h_wealth_DebtInterest_ind))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_DebtInterest_ind
end if
If lcase(varname) = lcase("h_wealth_DebtInterest_ind1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_DebtInterest_ind1" & " " & CStr(UBound(h_wealth_DebtInterest_ind1)) & " " & CStr(TypeName(h_wealth_DebtInterest_ind1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_DebtInterest_ind1
end if
If lcase(varname) = lcase("h_wealth_financial") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_financial" & " " & CStr(UBound(h_wealth_financial)) & " " & CStr(TypeName(h_wealth_financial))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_financial
end if
If lcase(varname) = lcase("h_wealth_financial_sales") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_financial_sales" & " " & CStr(UBound(h_wealth_financial_sales)) & " " & CStr(TypeName(h_wealth_financial_sales))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_financial_sales
end if
If lcase(varname) = lcase("h_wealth_financial_varcomp") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_financial_varcomp" & " " & CStr(UBound(h_wealth_financial_varcomp)) & " " & CStr(TypeName(h_wealth_financial_varcomp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_financial_varcomp
end if
If lcase(varname) = lcase("h_wealth_financial1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_financial1" & " " & CStr(UBound(h_wealth_financial1)) & " " & CStr(TypeName(h_wealth_financial1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_financial1
end if
If lcase(varname) = lcase("h_wealth_InterestDividends") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_InterestDividends" & " " & CStr(UBound(h_wealth_InterestDividends)) & " " & CStr(TypeName(h_wealth_InterestDividends))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_InterestDividends
end if
If lcase(varname) = lcase("h_wealth_real") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_real" & " " & CStr(UBound(h_wealth_real)) & " " & CStr(TypeName(h_wealth_real))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_real
end if
If lcase(varname) = lcase("h_wealth_real_home") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_real_home" & " " & CStr(UBound(h_wealth_real_home)) & " " & CStr(TypeName(h_wealth_real_home))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_real_home
end if
If lcase(varname) = lcase("h_wealth_real_home1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_real_home1" & " " & CStr(UBound(h_wealth_real_home1)) & " " & CStr(TypeName(h_wealth_real_home1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_real_home1
end if
If lcase(varname) = lcase("h_wealth_real_other") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_real_other" & " " & CStr(UBound(h_wealth_real_other)) & " " & CStr(TypeName(h_wealth_real_other))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_real_other
end if
If lcase(varname) = lcase("h_wealth_real_other1") Then
txt = CStr(base_year + model_time) & " " & "h_wealth_real_other1" & " " & CStr(UBound(h_wealth_real_other1)) & " " & CStr(TypeName(h_wealth_real_other1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,h_wealth_real_other1
end if
If lcase(varname) = lcase("m_AAK1664") Then
txt = CStr(base_year + model_time) & " " & "m_AAK1664" & " " & "1" & " " & CStr(TypeName(m_AAK1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AAK1664
end if
If lcase(varname) = lcase("m_AAL1664") Then
txt = CStr(base_year + model_time) & " " & "m_AAL1664" & " " & "1" & " " & CStr(TypeName(m_AAL1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AAL1664
end if
If lcase(varname) = lcase("m_AAPSYS") Then
txt = CStr(base_year + model_time) & " " & "m_AAPSYS" & " " & "1" & " " & CStr(TypeName(m_AAPSYS))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AAPSYS
end if
If lcase(varname) = lcase("m_AAPTOT") Then
txt = CStr(base_year + model_time) & " " & "m_AAPTOT" & " " & "1" & " " & CStr(TypeName(m_AAPTOT))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AAPTOT
end if
If lcase(varname) = lcase("m_AKK1619") Then
txt = CStr(base_year + model_time) & " " & "m_AKK1619" & " " & "1" & " " & CStr(TypeName(m_AKK1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK1619
end if
If lcase(varname) = lcase("m_AKK2024") Then
txt = CStr(base_year + model_time) & " " & "m_AKK2024" & " " & "1" & " " & CStr(TypeName(m_AKK2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK2024
end if
If lcase(varname) = lcase("m_AKK2529") Then
txt = CStr(base_year + model_time) & " " & "m_AKK2529" & " " & "1" & " " & CStr(TypeName(m_AKK2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK2529
end if
If lcase(varname) = lcase("m_AKK3034") Then
txt = CStr(base_year + model_time) & " " & "m_AKK3034" & " " & "1" & " " & CStr(TypeName(m_AKK3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK3034
end if
If lcase(varname) = lcase("m_AKK3539") Then
txt = CStr(base_year + model_time) & " " & "m_AKK3539" & " " & "1" & " " & CStr(TypeName(m_AKK3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK3539
end if
If lcase(varname) = lcase("m_AKK4044") Then
txt = CStr(base_year + model_time) & " " & "m_AKK4044" & " " & "1" & " " & CStr(TypeName(m_AKK4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK4044
end if
If lcase(varname) = lcase("m_AKK4549") Then
txt = CStr(base_year + model_time) & " " & "m_AKK4549" & " " & "1" & " " & CStr(TypeName(m_AKK4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK4549
end if
If lcase(varname) = lcase("m_AKK5054") Then
txt = CStr(base_year + model_time) & " " & "m_AKK5054" & " " & "1" & " " & CStr(TypeName(m_AKK5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK5054
end if
If lcase(varname) = lcase("m_AKK5559") Then
txt = CStr(base_year + model_time) & " " & "m_AKK5559" & " " & "1" & " " & CStr(TypeName(m_AKK5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK5559
end if
If lcase(varname) = lcase("m_AKK6064") Then
txt = CStr(base_year + model_time) & " " & "m_AKK6064" & " " & "1" & " " & CStr(TypeName(m_AKK6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK6064
end if
If lcase(varname) = lcase("m_AKK6569") Then
txt = CStr(base_year + model_time) & " " & "m_AKK6569" & " " & "1" & " " & CStr(TypeName(m_AKK6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK6569
end if
If lcase(varname) = lcase("m_AKK7074") Then
txt = CStr(base_year + model_time) & " " & "m_AKK7074" & " " & "1" & " " & CStr(TypeName(m_AKK7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKK7074
end if
If lcase(varname) = lcase("m_AKM1619") Then
txt = CStr(base_year + model_time) & " " & "m_AKM1619" & " " & "1" & " " & CStr(TypeName(m_AKM1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM1619
end if
If lcase(varname) = lcase("m_AKM2024") Then
txt = CStr(base_year + model_time) & " " & "m_AKM2024" & " " & "1" & " " & CStr(TypeName(m_AKM2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM2024
end if
If lcase(varname) = lcase("m_AKM2529") Then
txt = CStr(base_year + model_time) & " " & "m_AKM2529" & " " & "1" & " " & CStr(TypeName(m_AKM2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM2529
end if
If lcase(varname) = lcase("m_AKM3034") Then
txt = CStr(base_year + model_time) & " " & "m_AKM3034" & " " & "1" & " " & CStr(TypeName(m_AKM3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM3034
end if
If lcase(varname) = lcase("m_AKM3539") Then
txt = CStr(base_year + model_time) & " " & "m_AKM3539" & " " & "1" & " " & CStr(TypeName(m_AKM3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM3539
end if
If lcase(varname) = lcase("m_AKM4044") Then
txt = CStr(base_year + model_time) & " " & "m_AKM4044" & " " & "1" & " " & CStr(TypeName(m_AKM4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM4044
end if
If lcase(varname) = lcase("m_AKM4549") Then
txt = CStr(base_year + model_time) & " " & "m_AKM4549" & " " & "1" & " " & CStr(TypeName(m_AKM4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM4549
end if
If lcase(varname) = lcase("m_AKM5054") Then
txt = CStr(base_year + model_time) & " " & "m_AKM5054" & " " & "1" & " " & CStr(TypeName(m_AKM5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM5054
end if
If lcase(varname) = lcase("m_AKM5559") Then
txt = CStr(base_year + model_time) & " " & "m_AKM5559" & " " & "1" & " " & CStr(TypeName(m_AKM5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM5559
end if
If lcase(varname) = lcase("m_AKM6064") Then
txt = CStr(base_year + model_time) & " " & "m_AKM6064" & " " & "1" & " " & CStr(TypeName(m_AKM6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM6064
end if
If lcase(varname) = lcase("m_AKM6569") Then
txt = CStr(base_year + model_time) & " " & "m_AKM6569" & " " & "1" & " " & CStr(TypeName(m_AKM6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM6569
end if
If lcase(varname) = lcase("m_AKM7074") Then
txt = CStr(base_year + model_time) & " " & "m_AKM7074" & " " & "1" & " " & CStr(TypeName(m_AKM7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKM7074
end if
If lcase(varname) = lcase("m_AKT1664") Then
txt = CStr(base_year + model_time) & " " & "m_AKT1664" & " " & "1" & " " & CStr(TypeName(m_AKT1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_AKT1664
end if
If lcase(varname) = lcase("m_ALK1619") Then
txt = CStr(base_year + model_time) & " " & "m_ALK1619" & " " & "1" & " " & CStr(TypeName(m_ALK1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK1619
end if
If lcase(varname) = lcase("m_ALK2024") Then
txt = CStr(base_year + model_time) & " " & "m_ALK2024" & " " & "1" & " " & CStr(TypeName(m_ALK2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK2024
end if
If lcase(varname) = lcase("m_ALK2529") Then
txt = CStr(base_year + model_time) & " " & "m_ALK2529" & " " & "1" & " " & CStr(TypeName(m_ALK2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK2529
end if
If lcase(varname) = lcase("m_ALK3034") Then
txt = CStr(base_year + model_time) & " " & "m_ALK3034" & " " & "1" & " " & CStr(TypeName(m_ALK3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK3034
end if
If lcase(varname) = lcase("m_ALK3539") Then
txt = CStr(base_year + model_time) & " " & "m_ALK3539" & " " & "1" & " " & CStr(TypeName(m_ALK3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK3539
end if
If lcase(varname) = lcase("m_ALK4044") Then
txt = CStr(base_year + model_time) & " " & "m_ALK4044" & " " & "1" & " " & CStr(TypeName(m_ALK4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK4044
end if
If lcase(varname) = lcase("m_ALK4549") Then
txt = CStr(base_year + model_time) & " " & "m_ALK4549" & " " & "1" & " " & CStr(TypeName(m_ALK4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK4549
end if
If lcase(varname) = lcase("m_ALK5054") Then
txt = CStr(base_year + model_time) & " " & "m_ALK5054" & " " & "1" & " " & CStr(TypeName(m_ALK5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK5054
end if
If lcase(varname) = lcase("m_ALK5559") Then
txt = CStr(base_year + model_time) & " " & "m_ALK5559" & " " & "1" & " " & CStr(TypeName(m_ALK5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK5559
end if
If lcase(varname) = lcase("m_ALK6064") Then
txt = CStr(base_year + model_time) & " " & "m_ALK6064" & " " & "1" & " " & CStr(TypeName(m_ALK6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK6064
end if
If lcase(varname) = lcase("m_ALK6569") Then
txt = CStr(base_year + model_time) & " " & "m_ALK6569" & " " & "1" & " " & CStr(TypeName(m_ALK6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK6569
end if
If lcase(varname) = lcase("m_ALK7074") Then
txt = CStr(base_year + model_time) & " " & "m_ALK7074" & " " & "1" & " " & CStr(TypeName(m_ALK7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALK7074
end if
If lcase(varname) = lcase("m_ALM1619") Then
txt = CStr(base_year + model_time) & " " & "m_ALM1619" & " " & "1" & " " & CStr(TypeName(m_ALM1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM1619
end if
If lcase(varname) = lcase("m_ALM2024") Then
txt = CStr(base_year + model_time) & " " & "m_ALM2024" & " " & "1" & " " & CStr(TypeName(m_ALM2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM2024
end if
If lcase(varname) = lcase("m_ALM2529") Then
txt = CStr(base_year + model_time) & " " & "m_ALM2529" & " " & "1" & " " & CStr(TypeName(m_ALM2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM2529
end if
If lcase(varname) = lcase("m_ALM3034") Then
txt = CStr(base_year + model_time) & " " & "m_ALM3034" & " " & "1" & " " & CStr(TypeName(m_ALM3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM3034
end if
If lcase(varname) = lcase("m_ALM3539") Then
txt = CStr(base_year + model_time) & " " & "m_ALM3539" & " " & "1" & " " & CStr(TypeName(m_ALM3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM3539
end if
If lcase(varname) = lcase("m_ALM4044") Then
txt = CStr(base_year + model_time) & " " & "m_ALM4044" & " " & "1" & " " & CStr(TypeName(m_ALM4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM4044
end if
If lcase(varname) = lcase("m_ALM4549") Then
txt = CStr(base_year + model_time) & " " & "m_ALM4549" & " " & "1" & " " & CStr(TypeName(m_ALM4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM4549
end if
If lcase(varname) = lcase("m_ALM5054") Then
txt = CStr(base_year + model_time) & " " & "m_ALM5054" & " " & "1" & " " & CStr(TypeName(m_ALM5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM5054
end if
If lcase(varname) = lcase("m_ALM5559") Then
txt = CStr(base_year + model_time) & " " & "m_ALM5559" & " " & "1" & " " & CStr(TypeName(m_ALM5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM5559
end if
If lcase(varname) = lcase("m_ALM6064") Then
txt = CStr(base_year + model_time) & " " & "m_ALM6064" & " " & "1" & " " & CStr(TypeName(m_ALM6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM6064
end if
If lcase(varname) = lcase("m_ALM6569") Then
txt = CStr(base_year + model_time) & " " & "m_ALM6569" & " " & "1" & " " & CStr(TypeName(m_ALM6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM6569
end if
If lcase(varname) = lcase("m_ALM7074") Then
txt = CStr(base_year + model_time) & " " & "m_ALM7074" & " " & "1" & " " & CStr(TypeName(m_ALM7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ALM7074
end if
If lcase(varname) = lcase("m_ap_aap_avs") Then
txt = CStr(base_year + model_time) & " " & "m_ap_aap_avs" & " " & "1" & " " & CStr(TypeName(m_ap_aap_avs))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_aap_avs
end if
If lcase(varname) = lcase("m_ap_adm_ip") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip
end if
If lcase(varname) = lcase("m_ap_adm_ip_ap") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip_ap" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip_ap
end if
If lcase(varname) = lcase("m_ap_adm_ip_ap_p") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip_ap_p" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip_ap_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip_ap_p
end if
If lcase(varname) = lcase("m_ap_adm_ip_ins") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip_ins" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip_ins))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip_ins
end if
If lcase(varname) = lcase("m_ap_adm_ip_ins_p") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip_ins_p" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip_ins_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip_ins_p
end if
If lcase(varname) = lcase("m_ap_adm_ip_p") Then
txt = CStr(base_year + model_time) & " " & "m_ap_adm_ip_p" & " " & "1" & " " & CStr(TypeName(m_ap_adm_ip_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_adm_ip_p
end if
If lcase(varname) = lcase("m_ap_ap") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ap" & " " & "1" & " " & CStr(TypeName(m_ap_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ap
end if
If lcase(varname) = lcase("m_ap_apfond") Then
txt = CStr(base_year + model_time) & " " & "m_ap_apfond" & " " & "1" & " " & CStr(TypeName(m_ap_apfond))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_apfond
end if
If lcase(varname) = lcase("m_ap_apfond_trf") Then
txt = CStr(base_year + model_time) & " " & "m_ap_apfond_trf" & " " & "1" & " " & CStr(TypeName(m_ap_apfond_trf))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_apfond_trf
end if
If lcase(varname) = lcase("m_ap_apfond1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_apfond1" & " " & "1" & " " & CStr(TypeName(m_ap_apfond1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_apfond1
end if
If lcase(varname) = lcase("m_ap_apfond2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_apfond2" & " " & "1" & " " & CStr(TypeName(m_ap_apfond2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_apfond2
end if
If lcase(varname) = lcase("m_ap_arv") Then
txt = CStr(base_year + model_time) & " " & "m_ap_arv" & " " & "1" & " " & CStr(TypeName(m_ap_arv))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_arv
end if
If lcase(varname) = lcase("m_ap_arv_59") Then
txt = CStr(base_year + model_time) & " " & "m_ap_arv_59" & " " & "1" & " " & CStr(TypeName(m_ap_arv_59))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_arv_59
end if
If lcase(varname) = lcase("m_ap_arv60_") Then
txt = CStr(base_year + model_time) & " " & "m_ap_arv60_" & " " & "1" & " " & CStr(TypeName(m_ap_arv60_))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_arv60_
end if
If lcase(varname) = lcase("m_ap_atp") Then
txt = CStr(base_year + model_time) & " " & "m_ap_atp" & " " & "1" & " " & CStr(TypeName(m_ap_atp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_atp
end if
If lcase(varname) = lcase("m_ap_atp_dead") Then
txt = CStr(base_year + model_time) & " " & "m_ap_atp_dead" & " " & "1" & " " & CStr(TypeName(m_ap_atp_dead))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_atp_dead
end if
If lcase(varname) = lcase("m_ap_atp_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_atp_ut" & " " & "1" & " " & CStr(TypeName(m_ap_atp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_atp_ut
end if
If lcase(varname) = lcase("m_ap_avg") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg" & " " & "1" & " " & CStr(TypeName(m_ap_avg))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg
end if
If lcase(varname) = lcase("m_ap_avg_37") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_37" & " " & "1" & " " & CStr(TypeName(m_ap_avg_37))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_37
end if
If lcase(varname) = lcase("m_ap_avg_ap") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ap" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ap
end if
If lcase(varname) = lcase("m_ap_avg_ap_37") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ap_37" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ap_37))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ap_37
end if
If lcase(varname) = lcase("m_ap_avg_ap1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ap1" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ap1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ap1
end if
If lcase(varname) = lcase("m_ap_avg_ap2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ap2" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ap2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ap2
end if
If lcase(varname) = lcase("m_ap_avg_ap3") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ap3" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ap3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ap3
end if
If lcase(varname) = lcase("m_ap_avg_atak") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_atak" & " " & "1" & " " & CStr(TypeName(m_ap_avg_atak))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_atak
end if
If lcase(varname) = lcase("m_ap_avg_ppm") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avg_ppm" & " " & "1" & " " & CStr(TypeName(m_ap_avg_ppm))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avg_ppm
end if
If lcase(varname) = lcase("m_ap_avgtill") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avgtill" & " " & "1" & " " & CStr(TypeName(m_ap_avgtill))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avgtill
end if
If lcase(varname) = lcase("m_ap_avgtill1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avgtill1" & " " & "1" & " " & CStr(TypeName(m_ap_avgtill1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avgtill1
end if
If lcase(varname) = lcase("m_ap_avgtill2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avgtill2" & " " & "1" & " " & CStr(TypeName(m_ap_avgtill2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avgtill2
end if
If lcase(varname) = lcase("m_ap_avgtill3") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avgtill3" & " " & "1" & " " & CStr(TypeName(m_ap_avgtill3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avgtill3
end if
If lcase(varname) = lcase("m_ap_avs") Then
txt = CStr(base_year + model_time) & " " & "m_ap_avs" & " " & "1" & " " & CStr(TypeName(m_ap_avs))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_avs
end if
If lcase(varname) = lcase("m_ap_balanstal") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balanstal" & " " & "1" & " " & CStr(TypeName(m_ap_balanstal))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balanstal
end if
If lcase(varname) = lcase("m_ap_balanstal_accum") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balanstal_accum" & " " & "1" & " " & CStr(TypeName(m_ap_balanstal_accum))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balanstal_accum
end if
If lcase(varname) = lcase("m_ap_balind") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balind" & " " & "1" & " " & CStr(TypeName(m_ap_balind))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balind
end if
If lcase(varname) = lcase("m_ap_balind_active") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balind_active" & " " & "1" & " " & CStr(TypeName(m_ap_balind_active))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balind_active
end if
If lcase(varname) = lcase("m_ap_balind1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balind1" & " " & "1" & " " & CStr(TypeName(m_ap_balind1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balind1
end if
If lcase(varname) = lcase("m_ap_balind2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_balind2" & " " & "1" & " " & CStr(TypeName(m_ap_balind2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_balind2
end if
If lcase(varname) = lcase("m_ap_favg") Then
txt = CStr(base_year + model_time) & " " & "m_ap_favg" & " " & "1" & " " & CStr(TypeName(m_ap_favg))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_favg
end if
If lcase(varname) = lcase("m_ap_fp_kvot_gifta") Then
txt = CStr(base_year + model_time) & " " & "m_ap_fp_kvot_gifta" & " " & "1" & " " & CStr(TypeName(m_ap_fp_kvot_gifta))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_fp_kvot_gifta
end if
If lcase(varname) = lcase("m_ap_fp_kvot_ogifta") Then
txt = CStr(base_year + model_time) & " " & "m_ap_fp_kvot_ogifta" & " " & "1" & " " & CStr(TypeName(m_ap_fp_kvot_ogifta))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_fp_kvot_ogifta
end if
If lcase(varname) = lcase("m_ap_fp30_dead") Then
txt = CStr(base_year + model_time) & " " & "m_ap_fp30_dead" & " " & "1" & " " & CStr(TypeName(m_ap_fp30_dead))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_fp30_dead
end if
If lcase(varname) = lcase("m_ap_fp30_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_fp30_ut" & " " & "1" & " " & CStr(TypeName(m_ap_fp30_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_fp30_ut
end if
If lcase(varname) = lcase("m_ap_gp_Inkindex_On") Then
txt = CStr(base_year + model_time) & " " & "m_ap_gp_Inkindex_On" & " " & "1" & " " & CStr(TypeName(m_ap_gp_Inkindex_On))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_gp_Inkindex_On
end if
If lcase(varname) = lcase("m_ap_he66") Then
txt = CStr(base_year + model_time) & " " & "m_ap_he66" & " " & "1" & " " & CStr(TypeName(m_ap_he66))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_he66
end if
If lcase(varname) = lcase("m_ap_index") Then
txt = CStr(base_year + model_time) & " " & "m_ap_index" & " " & "1" & " " & CStr(TypeName(m_ap_index))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_index
end if
If lcase(varname) = lcase("m_ap_inkind") Then
txt = CStr(base_year + model_time) & " " & "m_ap_inkind" & " " & "1" & " " & CStr(TypeName(m_ap_inkind))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_inkind
end if
If lcase(varname) = lcase("m_ap_inkind1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_inkind1" & " " & "1" & " " & CStr(TypeName(m_ap_inkind1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_inkind1
end if
If lcase(varname) = lcase("m_ap_inkind2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_inkind2" & " " & "1" & " " & CStr(TypeName(m_ap_inkind2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_inkind2
end if
If lcase(varname) = lcase("m_ap_ip_avs") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ip_avs" & " " & "1" & " " & CStr(TypeName(m_ap_ip_avs))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ip_avs
end if
If lcase(varname) = lcase("m_ap_ip_dead") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ip_dead" & " " & "1" & " " & CStr(TypeName(m_ap_ip_dead))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ip_dead
end if
If lcase(varname) = lcase("m_ap_ip_dead_korr") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ip_dead_korr" & " " & "1" & " " & CStr(TypeName(m_ap_ip_dead_korr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ip_dead_korr
end if
If lcase(varname) = lcase("m_ap_ip_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ip_ut" & " " & "1" & " " & CStr(TypeName(m_ap_ip_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ip_ut
end if
If lcase(varname) = lcase("m_ap_it") Then
txt = CStr(base_year + model_time) & " " & "m_ap_it" & " " & "1" & " " & CStr(TypeName(m_ap_it))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_it
end if
If lcase(varname) = lcase("m_ap_ls66") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ls66" & " " & "1" & " " & CStr(TypeName(m_ap_ls66))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ls66
end if
If lcase(varname) = lcase("m_ap_norm") Then
txt = CStr(base_year + model_time) & " " & "m_ap_norm" & " " & "1" & " " & CStr(TypeName(m_ap_norm))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_norm
end if
If lcase(varname) = lcase("m_ap_ot") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ot" & " " & "1" & " " & CStr(TypeName(m_ap_ot))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ot
end if
If lcase(varname) = lcase("m_ap_ot1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ot1" & " " & "1" & " " & CStr(TypeName(m_ap_ot1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ot1
end if
If lcase(varname) = lcase("m_ap_ot2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ot2" & " " & "1" & " " & CStr(TypeName(m_ap_ot2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ot2
end if
If lcase(varname) = lcase("m_ap_ot3") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ot3" & " " & "1" & " " & CStr(TypeName(m_ap_ot3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ot3
end if
If lcase(varname) = lcase("m_ap_ottak") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ottak" & " " & "1" & " " & CStr(TypeName(m_ap_ottak))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ottak
end if
If lcase(varname) = lcase("m_ap_ottak1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ottak1" & " " & "1" & " " & CStr(TypeName(m_ap_ottak1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ottak1
end if
If lcase(varname) = lcase("m_ap_pb_ip") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pb_ip" & " " & "1" & " " & CStr(TypeName(m_ap_pb_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pb_ip
end if
If lcase(varname) = lcase("m_ap_pb_tp") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pb_tp" & " " & "1" & " " & CStr(TypeName(m_ap_pb_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pb_tp
end if
If lcase(varname) = lcase("m_ap_pp_avs") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pp_avs" & " " & "1" & " " & CStr(TypeName(m_ap_pp_avs))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pp_avs
end if
If lcase(varname) = lcase("m_ap_pp_dead") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pp_dead" & " " & "1" & " " & CStr(TypeName(m_ap_pp_dead))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pp_dead
end if
If lcase(varname) = lcase("m_ap_pp_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pp_ut" & " " & "1" & " " & CStr(TypeName(m_ap_pp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pp_ut
end if
If lcase(varname) = lcase("m_ap_ppfond") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ppfond" & " " & "1" & " " & CStr(TypeName(m_ap_ppfond))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ppfond
end if
If lcase(varname) = lcase("m_ap_pr_ip") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pr_ip" & " " & "1" & " " & CStr(TypeName(m_ap_pr_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pr_ip
end if
If lcase(varname) = lcase("m_ap_pts_kvot") Then
txt = CStr(base_year + model_time) & " " & "m_ap_pts_kvot" & " " & "1" & " " & CStr(TypeName(m_ap_pts_kvot))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_pts_kvot
end if
If lcase(varname) = lcase("m_ap_sa") Then
txt = CStr(base_year + model_time) & " " & "m_ap_sa" & " " & "1" & " " & CStr(TypeName(m_ap_sa))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_sa
end if
If lcase(varname) = lcase("m_ap_shares_p") Then
txt = CStr(base_year + model_time) & " " & "m_ap_shares_p" & " " & "1" & " " & CStr(TypeName(m_ap_shares_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_shares_p
end if
If lcase(varname) = lcase("m_ap_skuld") Then
txt = CStr(base_year + model_time) & " " & "m_ap_skuld" & " " & "1" & " " & CStr(TypeName(m_ap_skuld))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_skuld
end if
If lcase(varname) = lcase("m_ap_skuld1") Then
txt = CStr(base_year + model_time) & " " & "m_ap_skuld1" & " " & "1" & " " & CStr(TypeName(m_ap_skuld1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_skuld1
end if
If lcase(varname) = lcase("m_ap_skuld2") Then
txt = CStr(base_year + model_time) & " " & "m_ap_skuld2" & " " & "1" & " " & CStr(TypeName(m_ap_skuld2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_skuld2
end if
If lcase(varname) = lcase("m_ap_skuld3") Then
txt = CStr(base_year + model_time) & " " & "m_ap_skuld3" & " " & "1" & " " & CStr(TypeName(m_ap_skuld3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_skuld3
end if
If lcase(varname) = lcase("m_ap_sp") Then
txt = CStr(base_year + model_time) & " " & "m_ap_sp" & " " & "1" & " " & CStr(TypeName(m_ap_sp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_sp
end if
If lcase(varname) = lcase("m_ap_summasnitt") Then
txt = CStr(base_year + model_time) & " " & "m_ap_summasnitt" & " " & "1" & " " & CStr(TypeName(m_ap_summasnitt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_summasnitt
end if
If lcase(varname) = lcase("m_ap_tp") Then
txt = CStr(base_year + model_time) & " " & "m_ap_tp" & " " & "1" & " " & CStr(TypeName(m_ap_tp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_tp
end if
If lcase(varname) = lcase("m_ap_tp_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_tp_ut" & " " & "1" & " " & CStr(TypeName(m_ap_tp_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_tp_ut
end if
If lcase(varname) = lcase("m_ap_u68") Then
txt = CStr(base_year + model_time) & " " & "m_ap_u68" & " " & "1" & " " & CStr(TypeName(m_ap_u68))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_u68
end if
If lcase(varname) = lcase("m_ap_ud68") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ud68" & " " & "1" & " " & CStr(TypeName(m_ap_ud68))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ud68
end if
If lcase(varname) = lcase("m_ap_ut") Then
txt = CStr(base_year + model_time) & " " & "m_ap_ut" & " " & "1" & " " & CStr(TypeName(m_ap_ut))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ap_ut
end if
If lcase(varname) = lcase("m_arbavg") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg" & " " & "1" & " " & CStr(TypeName(m_arbavg))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg
end if
If lcase(varname) = lcase("m_arbavg_akas_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_akas_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_akas_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_akas_p
end if
If lcase(varname) = lcase("m_arbavg_alon_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_alon_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_alon_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_alon_p
end if
If lcase(varname) = lcase("m_arbavg_arsk_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_arsk_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_arsk_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_arsk_p
end if
If lcase(varname) = lcase("m_arbavg_eft_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_eft_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_eft_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_eft_p
end if
If lcase(varname) = lcase("m_arbavg_forp_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_forp_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_forp_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_forp_p
end if
If lcase(varname) = lcase("m_arbavg_ovr") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_ovr" & " " & "1" & " " & CStr(TypeName(m_arbavg_ovr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_ovr
end if
If lcase(varname) = lcase("m_arbavg_ovr_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_ovr_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_ovr_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_ovr_p
end if
If lcase(varname) = lcase("m_arbavg_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_p
end if
If lcase(varname) = lcase("m_arbavg_pens") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_pens" & " " & "1" & " " & CStr(TypeName(m_arbavg_pens))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_pens
end if
If lcase(varname) = lcase("m_arbavg_pens_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_pens_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_pens_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_pens_p
end if
If lcase(varname) = lcase("m_arbavg_sjuk_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_sjuk_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_sjuk_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_sjuk_p
end if
If lcase(varname) = lcase("m_arbavg_slon") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_slon" & " " & "1" & " " & CStr(TypeName(m_arbavg_slon))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_slon
end if
If lcase(varname) = lcase("m_arbavg_slon_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_slon_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_slon_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_slon_p
end if
If lcase(varname) = lcase("m_arbavg_slon38_p") Then
txt = CStr(base_year + model_time) & " " & "m_arbavg_slon38_p" & " " & "1" & " " & CStr(TypeName(m_arbavg_slon38_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arbavg_slon38_p
end if
If lcase(varname) = lcase("m_arvsvinst_60") Then
txt = CStr(base_year + model_time) & " " & "m_arvsvinst_60" & " " & "1" & " " & CStr(TypeName(m_arvsvinst_60))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_arvsvinst_60
end if
If lcase(varname) = lcase("m_ASY1664") Then
txt = CStr(base_year + model_time) & " " & "m_ASY1664" & " " & "1" & " " & CStr(TypeName(m_ASY1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ASY1664
end if
If lcase(varname) = lcase("m_ASY2064R") Then
txt = CStr(base_year + model_time) & " " & "m_ASY2064R" & " " & "1" & " " & CStr(TypeName(m_ASY2064R))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ASY2064R
end if
If lcase(varname) = lcase("m_basbelopp") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp" & " " & "1" & " " & CStr(TypeName(m_basbelopp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp
end if
If lcase(varname) = lcase("m_basbelopp_f") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp_f" & " " & "1" & " " & CStr(TypeName(m_basbelopp_f))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp_f
end if
If lcase(varname) = lcase("m_basbelopp_ftp") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp_ftp" & " " & "1" & " " & CStr(TypeName(m_basbelopp_ftp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp_ftp
end if
If lcase(varname) = lcase("m_basbelopp_gp") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp_gp" & " " & "1" & " " & CStr(TypeName(m_basbelopp_gp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp_gp
end if
If lcase(varname) = lcase("m_basbelopp_income") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp_income" & " " & "1" & " " & CStr(TypeName(m_basbelopp_income))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp_income
end if
If lcase(varname) = lcase("m_basbelopp1") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp1" & " " & "1" & " " & CStr(TypeName(m_basbelopp1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp1
end if
If lcase(varname) = lcase("m_basbelopp2") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp2" & " " & "1" & " " & CStr(TypeName(m_basbelopp2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp2
end if
If lcase(varname) = lcase("m_basbelopp3") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp3" & " " & "1" & " " & CStr(TypeName(m_basbelopp3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp3
end if
If lcase(varname) = lcase("m_basbelopp4") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp4" & " " & "1" & " " & CStr(TypeName(m_basbelopp4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp4
end if
If lcase(varname) = lcase("m_basbelopp5") Then
txt = CStr(base_year + model_time) & " " & "m_basbelopp5" & " " & "1" & " " & CStr(TypeName(m_basbelopp5))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_basbelopp5
end if
If lcase(varname) = lcase("m_BEFK0014") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK0014" & " " & "1" & " " & CStr(TypeName(m_BEFK0014))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK0014
end if
If lcase(varname) = lcase("m_BEFK0015") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK0015" & " " & "1" & " " & CStr(TypeName(m_BEFK0015))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK0015
end if
If lcase(varname) = lcase("m_BEFK1519") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK1519" & " " & "1" & " " & CStr(TypeName(m_BEFK1519))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK1519
end if
If lcase(varname) = lcase("m_BEFK1619") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK1619" & " " & "1" & " " & CStr(TypeName(m_BEFK1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK1619
end if
If lcase(varname) = lcase("m_BEFK1664") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK1664" & " " & "1" & " " & CStr(TypeName(m_BEFK1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK1664
end if
If lcase(varname) = lcase("m_BEFK2024") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK2024" & " " & "1" & " " & CStr(TypeName(m_BEFK2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK2024
end if
If lcase(varname) = lcase("m_BEFK2529") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK2529" & " " & "1" & " " & CStr(TypeName(m_BEFK2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK2529
end if
If lcase(varname) = lcase("m_BEFK3034") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK3034" & " " & "1" & " " & CStr(TypeName(m_BEFK3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK3034
end if
If lcase(varname) = lcase("m_BEFK3539") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK3539" & " " & "1" & " " & CStr(TypeName(m_BEFK3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK3539
end if
If lcase(varname) = lcase("m_BEFK4044") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK4044" & " " & "1" & " " & CStr(TypeName(m_BEFK4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK4044
end if
If lcase(varname) = lcase("m_BEFK4549") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK4549" & " " & "1" & " " & CStr(TypeName(m_BEFK4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK4549
end if
If lcase(varname) = lcase("m_BEFK5054") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK5054" & " " & "1" & " " & CStr(TypeName(m_BEFK5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK5054
end if
If lcase(varname) = lcase("m_BEFK5559") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK5559" & " " & "1" & " " & CStr(TypeName(m_BEFK5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK5559
end if
If lcase(varname) = lcase("m_BEFK6064") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK6064" & " " & "1" & " " & CStr(TypeName(m_BEFK6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK6064
end if
If lcase(varname) = lcase("m_BEFK6569") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK6569" & " " & "1" & " " & CStr(TypeName(m_BEFK6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK6569
end if
If lcase(varname) = lcase("m_BEFK65WW") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK65WW" & " " & "1" & " " & CStr(TypeName(m_BEFK65WW))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK65WW
end if
If lcase(varname) = lcase("m_BEFK7074") Then
txt = CStr(base_year + model_time) & " " & "m_BEFK7074" & " " & "1" & " " & CStr(TypeName(m_BEFK7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFK7074
end if
If lcase(varname) = lcase("m_BEFM0014") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM0014" & " " & "1" & " " & CStr(TypeName(m_BEFM0014))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM0014
end if
If lcase(varname) = lcase("m_BEFM0015") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM0015" & " " & "1" & " " & CStr(TypeName(m_BEFM0015))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM0015
end if
If lcase(varname) = lcase("m_BEFM1519") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM1519" & " " & "1" & " " & CStr(TypeName(m_BEFM1519))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM1519
end if
If lcase(varname) = lcase("m_BEFM1619") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM1619" & " " & "1" & " " & CStr(TypeName(m_BEFM1619))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM1619
end if
If lcase(varname) = lcase("m_BEFM1664") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM1664" & " " & "1" & " " & CStr(TypeName(m_BEFM1664))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM1664
end if
If lcase(varname) = lcase("m_BEFM2024") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM2024" & " " & "1" & " " & CStr(TypeName(m_BEFM2024))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM2024
end if
If lcase(varname) = lcase("m_BEFM2529") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM2529" & " " & "1" & " " & CStr(TypeName(m_BEFM2529))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM2529
end if
If lcase(varname) = lcase("m_BEFM3034") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM3034" & " " & "1" & " " & CStr(TypeName(m_BEFM3034))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM3034
end if
If lcase(varname) = lcase("m_BEFM3539") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM3539" & " " & "1" & " " & CStr(TypeName(m_BEFM3539))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM3539
end if
If lcase(varname) = lcase("m_BEFM4044") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM4044" & " " & "1" & " " & CStr(TypeName(m_BEFM4044))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM4044
end if
If lcase(varname) = lcase("m_BEFM4549") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM4549" & " " & "1" & " " & CStr(TypeName(m_BEFM4549))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM4549
end if
If lcase(varname) = lcase("m_BEFM5054") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM5054" & " " & "1" & " " & CStr(TypeName(m_BEFM5054))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM5054
end if
If lcase(varname) = lcase("m_BEFM5559") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM5559" & " " & "1" & " " & CStr(TypeName(m_BEFM5559))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM5559
end if
If lcase(varname) = lcase("m_BEFM6064") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM6064" & " " & "1" & " " & CStr(TypeName(m_BEFM6064))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM6064
end if
If lcase(varname) = lcase("m_BEFM6569") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM6569" & " " & "1" & " " & CStr(TypeName(m_BEFM6569))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM6569
end if
If lcase(varname) = lcase("m_BEFM65WW") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM65WW" & " " & "1" & " " & CStr(TypeName(m_BEFM65WW))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM65WW
end if
If lcase(varname) = lcase("m_BEFM7074") Then
txt = CStr(base_year + model_time) & " " & "m_BEFM7074" & " " & "1" & " " & CStr(TypeName(m_BEFM7074))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_BEFM7074
end if
If lcase(varname) = lcase("m_bnpaf") Then
txt = CStr(base_year + model_time) & " " & "m_bnpaf" & " " & "1" & " " & CStr(TypeName(m_bnpaf))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_bnpaf
end if
If lcase(varname) = lcase("m_bnpal") Then
txt = CStr(base_year + model_time) & " " & "m_bnpal" & " " & "1" & " " & CStr(TypeName(m_bnpal))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_bnpal
end if
If lcase(varname) = lcase("m_bonds_return_ap") Then
txt = CStr(base_year + model_time) & " " & "m_bonds_return_ap" & " " & "1" & " " & CStr(TypeName(m_bonds_return_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_bonds_return_ap
end if
If lcase(varname) = lcase("m_born") Then
txt = CStr(base_year + model_time) & " " & "m_born" & " " & "1" & " " & CStr(TypeName(m_born))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_born
end if
If lcase(varname) = lcase("m_dead") Then
txt = CStr(base_year + model_time) & " " & "m_dead" & " " & "1" & " " & CStr(TypeName(m_dead))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_dead
end if
If lcase(varname) = lcase("m_dtalip_65") Then
txt = CStr(base_year + model_time) & " " & "m_dtalip_65" & " " & "1" & " " & CStr(TypeName(m_dtalip_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_dtalip_65
end if
If lcase(varname) = lcase("m_dtalpp_65") Then
txt = CStr(base_year + model_time) & " " & "m_dtalpp_65" & " " & "1" & " " & CStr(TypeName(m_dtalpp_65))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_dtalpp_65
end if
If lcase(varname) = lcase("m_egenavg_pens") Then
txt = CStr(base_year + model_time) & " " & "m_egenavg_pens" & " " & "1" & " " & CStr(TypeName(m_egenavg_pens))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_egenavg_pens
end if
If lcase(varname) = lcase("m_egenavg_pens_p") Then
txt = CStr(base_year + model_time) & " " & "m_egenavg_pens_p" & " " & "1" & " " & CStr(TypeName(m_egenavg_pens_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_egenavg_pens_p
end if
If lcase(varname) = lcase("m_egenavg_red_p") Then
txt = CStr(base_year + model_time) & " " & "m_egenavg_red_p" & " " & "1" & " " & CStr(TypeName(m_egenavg_red_p))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_egenavg_red_p
end if
If lcase(varname) = lcase("m_egenavg_tak_basb") Then
txt = CStr(base_year + model_time) & " " & "m_egenavg_tak_basb" & " " & "1" & " " & CStr(TypeName(m_egenavg_tak_basb))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_egenavg_tak_basb
end if
If lcase(varname) = lcase("m_emigrated") Then
txt = CStr(base_year + model_time) & " " & "m_emigrated" & " " & "1" & " " & CStr(TypeName(m_emigrated))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_emigrated
end if
If lcase(varname) = lcase("m_favg_ip") Then
txt = CStr(base_year + model_time) & " " & "m_favg_ip" & " " & "1" & " " & CStr(TypeName(m_favg_ip))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_favg_ip
end if
If lcase(varname) = lcase("m_favg_pp") Then
txt = CStr(base_year + model_time) & " " & "m_favg_pp" & " " & "1" & " " & CStr(TypeName(m_favg_pp))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_favg_pp
end if
If lcase(varname) = lcase("m_ftp_Inkindex_On") Then
txt = CStr(base_year + model_time) & " " & "m_ftp_Inkindex_On" & " " & "1" & " " & CStr(TypeName(m_ftp_Inkindex_On))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_ftp_Inkindex_On
end if
If lcase(varname) = lcase("m_hcount") Then
txt = CStr(base_year + model_time) & " " & "m_hcount" & " " & "1" & " " & CStr(TypeName(m_hcount))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_hcount
end if
If lcase(varname) = lcase("m_icount") Then
txt = CStr(base_year + model_time) & " " & "m_icount" & " " & "1" & " " & CStr(TypeName(m_icount))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_icount
end if
If lcase(varname) = lcase("m_immigrated") Then
txt = CStr(base_year + model_time) & " " & "m_immigrated" & " " & "1" & " " & CStr(TypeName(m_immigrated))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_immigrated
end if
If lcase(varname) = lcase("m_inc_earning") Then
txt = CStr(base_year + model_time) & " " & "m_inc_earning" & " " & "1" & " " & CStr(TypeName(m_inc_earning))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_earning
end if
If lcase(varname) = lcase("m_inc_taxable_snitt") Then
txt = CStr(base_year + model_time) & " " & "m_inc_taxable_snitt" & " " & "1" & " " & CStr(TypeName(m_inc_taxable_snitt))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_taxable_snitt
end if
If lcase(varname) = lcase("m_inc_taxable_snitt1") Then
txt = CStr(base_year + model_time) & " " & "m_inc_taxable_snitt1" & " " & "1" & " " & CStr(TypeName(m_inc_taxable_snitt1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_taxable_snitt1
end if
If lcase(varname) = lcase("m_inc_taxable_snitt2") Then
txt = CStr(base_year + model_time) & " " & "m_inc_taxable_snitt2" & " " & "1" & " " & CStr(TypeName(m_inc_taxable_snitt2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_taxable_snitt2
end if
If lcase(varname) = lcase("m_inc_taxable_snitt3") Then
txt = CStr(base_year + model_time) & " " & "m_inc_taxable_snitt3" & " " & "1" & " " & CStr(TypeName(m_inc_taxable_snitt3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_taxable_snitt3
end if
If lcase(varname) = lcase("m_inc_taxable_snitt4") Then
txt = CStr(base_year + model_time) & " " & "m_inc_taxable_snitt4" & " " & "1" & " " & CStr(TypeName(m_inc_taxable_snitt4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inc_taxable_snitt4
end if
If lcase(varname) = lcase("m_incmeas") Then
txt = CStr(base_year + model_time) & " " & "m_incmeas" & " " & "1" & " " & CStr(TypeName(m_incmeas))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_incmeas
end if
If lcase(varname) = lcase("m_incmeas1") Then
txt = CStr(base_year + model_time) & " " & "m_incmeas1" & " " & "1" & " " & CStr(TypeName(m_incmeas1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_incmeas1
end if
If lcase(varname) = lcase("m_incmeas4") Then
txt = CStr(base_year + model_time) & " " & "m_incmeas4" & " " & "1" & " " & CStr(TypeName(m_incmeas4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_incmeas4
end if
If lcase(varname) = lcase("m_inflation") Then
txt = CStr(base_year + model_time) & " " & "m_inflation" & " " & "1" & " " & CStr(TypeName(m_inflation))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_inflation
end if
If lcase(varname) = lcase("m_interest_long") Then
txt = CStr(base_year + model_time) & " " & "m_interest_long" & " " & "1" & " " & CStr(TypeName(m_interest_long))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_interest_long
end if
If lcase(varname) = lcase("m_interest_long99") Then
txt = CStr(base_year + model_time) & " " & "m_interest_long99" & " " & "1" & " " & CStr(TypeName(m_interest_long99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_interest_long99
end if
If lcase(varname) = lcase("m_interest_short") Then
txt = CStr(base_year + model_time) & " " & "m_interest_short" & " " & "1" & " " & CStr(TypeName(m_interest_short))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_interest_short
end if
If lcase(varname) = lcase("m_interest_short1") Then
txt = CStr(base_year + model_time) & " " & "m_interest_short1" & " " & "1" & " " & CStr(TypeName(m_interest_short1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_interest_short1
end if
If lcase(varname) = lcase("m_JmfInk_barn") Then
txt = CStr(base_year + model_time) & " " & "m_JmfInk_barn" & " " & "1" & " " & CStr(TypeName(m_JmfInk_barn))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_JmfInk_barn
end if
If lcase(varname) = lcase("m_KPI") Then
txt = CStr(base_year + model_time) & " " & "m_KPI" & " " & "1" & " " & CStr(TypeName(m_KPI))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_KPI
end if
If lcase(varname) = lcase("m_KPI1") Then
txt = CStr(base_year + model_time) & " " & "m_KPI1" & " " & "1" & " " & CStr(TypeName(m_KPI1))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_KPI1
end if
If lcase(varname) = lcase("m_KPI2") Then
txt = CStr(base_year + model_time) & " " & "m_KPI2" & " " & "1" & " " & CStr(TypeName(m_KPI2))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_KPI2
end if
If lcase(varname) = lcase("m_KPI3") Then
txt = CStr(base_year + model_time) & " " & "m_KPI3" & " " & "1" & " " & CStr(TypeName(m_KPI3))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_KPI3
end if
If lcase(varname) = lcase("m_KPI4") Then
txt = CStr(base_year + model_time) & " " & "m_KPI4" & " " & "1" & " " & CStr(TypeName(m_KPI4))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_KPI4
end if
If lcase(varname) = lcase("m_macro_index") Then
txt = CStr(base_year + model_time) & " " & "m_macro_index" & " " & "1" & " " & CStr(TypeName(m_macro_index))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_macro_index
end if
If lcase(varname) = lcase("m_netcontribution_ap") Then
txt = CStr(base_year + model_time) & " " & "m_netcontribution_ap" & " " & "1" & " " & CStr(TypeName(m_netcontribution_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_netcontribution_ap
end if
If lcase(varname) = lcase("m_netmigration") Then
txt = CStr(base_year + model_time) & " " & "m_netmigration" & " " & "1" & " " & CStr(TypeName(m_netmigration))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_netmigration
end if
If lcase(varname) = lcase("m_netreturn_ap") Then
txt = CStr(base_year + model_time) & " " & "m_netreturn_ap" & " " & "1" & " " & CStr(TypeName(m_netreturn_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_netreturn_ap
end if
If lcase(varname) = lcase("m_op_fond") Then
txt = CStr(base_year + model_time) & " " & "m_op_fond" & " " & "1" & " " & CStr(TypeName(m_op_fond))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_op_fond
end if
If lcase(varname) = lcase("m_pb_ip_active") Then
txt = CStr(base_year + model_time) & " " & "m_pb_ip_active" & " " & "1" & " " & CStr(TypeName(m_pb_ip_active))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pb_ip_active
end if
If lcase(varname) = lcase("m_pb_ip_active_n") Then
txt = CStr(base_year + model_time) & " " & "m_pb_ip_active_n" & " " & "1" & " " & CStr(TypeName(m_pb_ip_active_n))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pb_ip_active_n
end if
If lcase(varname) = lcase("m_pensage") Then
txt = CStr(base_year + model_time) & " " & "m_pensage" & " " & "1" & " " & CStr(TypeName(m_pensage))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pensage
end if
If lcase(varname) = lcase("m_pension_income_index") Then
txt = CStr(base_year + model_time) & " " & "m_pension_income_index" & " " & "1" & " " & CStr(TypeName(m_pension_income_index))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pension_income_index
end if
If lcase(varname) = lcase("m_pgb") Then
txt = CStr(base_year + model_time) & " " & "m_pgb" & " " & "1" & " " & CStr(TypeName(m_pgb))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgb
end if
If lcase(varname) = lcase("m_pgi") Then
txt = CStr(base_year + model_time) & " " & "m_pgi" & " " & "1" & " " & CStr(TypeName(m_pgi))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgi
end if
If lcase(varname) = lcase("m_pgi_bas") Then
txt = CStr(base_year + model_time) & " " & "m_pgi_bas" & " " & "1" & " " & CStr(TypeName(m_pgi_bas))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgi_bas
end if
If lcase(varname) = lcase("m_pgi_bas_gt_basb") Then
txt = CStr(base_year + model_time) & " " & "m_pgi_bas_gt_basb" & " " & "1" & " " & CStr(TypeName(m_pgi_bas_gt_basb))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgi_bas_gt_basb
end if
If lcase(varname) = lcase("m_pgi_bas_gt_basb_n") Then
txt = CStr(base_year + model_time) & " " & "m_pgi_bas_gt_basb_n" & " " & "1" & " " & CStr(TypeName(m_pgi_bas_gt_basb_n))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgi_bas_gt_basb_n
end if
If lcase(varname) = lcase("m_pgi_bas_n") Then
txt = CStr(base_year + model_time) & " " & "m_pgi_bas_n" & " " & "1" & " " & CStr(TypeName(m_pgi_bas_n))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pgi_bas_n
end if
If lcase(varname) = lcase("m_pp_fond") Then
txt = CStr(base_year + model_time) & " " & "m_pp_fond" & " " & "1" & " " & CStr(TypeName(m_pp_fond))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pp_fond
end if
If lcase(varname) = lcase("m_pr_op") Then
txt = CStr(base_year + model_time) & " " & "m_pr_op" & " " & "1" & " " & CStr(TypeName(m_pr_op))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_pr_op
end if
If lcase(varname) = lcase("m_price_change00") Then
txt = CStr(base_year + model_time) & " " & "m_price_change00" & " " & "1" & " " & CStr(TypeName(m_price_change00))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change00
end if
If lcase(varname) = lcase("m_price_change01") Then
txt = CStr(base_year + model_time) & " " & "m_price_change01" & " " & "1" & " " & CStr(TypeName(m_price_change01))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change01
end if
If lcase(varname) = lcase("m_price_change02") Then
txt = CStr(base_year + model_time) & " " & "m_price_change02" & " " & "1" & " " & CStr(TypeName(m_price_change02))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change02
end if
If lcase(varname) = lcase("m_price_change03") Then
txt = CStr(base_year + model_time) & " " & "m_price_change03" & " " & "1" & " " & CStr(TypeName(m_price_change03))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change03
end if
If lcase(varname) = lcase("m_price_change04") Then
txt = CStr(base_year + model_time) & " " & "m_price_change04" & " " & "1" & " " & CStr(TypeName(m_price_change04))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change04
end if
If lcase(varname) = lcase("m_price_change05") Then
txt = CStr(base_year + model_time) & " " & "m_price_change05" & " " & "1" & " " & CStr(TypeName(m_price_change05))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change05
end if
If lcase(varname) = lcase("m_price_change06") Then
txt = CStr(base_year + model_time) & " " & "m_price_change06" & " " & "1" & " " & CStr(TypeName(m_price_change06))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change06
end if
If lcase(varname) = lcase("m_price_change07") Then
txt = CStr(base_year + model_time) & " " & "m_price_change07" & " " & "1" & " " & CStr(TypeName(m_price_change07))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change07
end if
If lcase(varname) = lcase("m_price_change08") Then
txt = CStr(base_year + model_time) & " " & "m_price_change08" & " " & "1" & " " & CStr(TypeName(m_price_change08))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change08
end if
If lcase(varname) = lcase("m_price_change09") Then
txt = CStr(base_year + model_time) & " " & "m_price_change09" & " " & "1" & " " & CStr(TypeName(m_price_change09))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change09
end if
If lcase(varname) = lcase("m_price_change10") Then
txt = CStr(base_year + model_time) & " " & "m_price_change10" & " " & "1" & " " & CStr(TypeName(m_price_change10))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change10
end if
If lcase(varname) = lcase("m_price_change99") Then
txt = CStr(base_year + model_time) & " " & "m_price_change99" & " " & "1" & " " & CStr(TypeName(m_price_change99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_change99
end if
If lcase(varname) = lcase("m_price_rw_home") Then
txt = CStr(base_year + model_time) & " " & "m_price_rw_home" & " " & "1" & " " & CStr(TypeName(m_price_rw_home))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_rw_home
end if
If lcase(varname) = lcase("m_price_rw_home99") Then
txt = CStr(base_year + model_time) & " " & "m_price_rw_home99" & " " & "1" & " " & CStr(TypeName(m_price_rw_home99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_rw_home99
end if
If lcase(varname) = lcase("m_price_rw_other") Then
txt = CStr(base_year + model_time) & " " & "m_price_rw_other" & " " & "1" & " " & CStr(TypeName(m_price_rw_other))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_rw_other
end if
If lcase(varname) = lcase("m_price_rw_other99") Then
txt = CStr(base_year + model_time) & " " & "m_price_rw_other99" & " " & "1" & " " & CStr(TypeName(m_price_rw_other99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price_rw_other99
end if
If lcase(varname) = lcase("m_price99") Then
txt = CStr(base_year + model_time) & " " & "m_price99" & " " & "1" & " " & CStr(TypeName(m_price99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_price99
end if
If lcase(varname) = lcase("m_realwage") Then
txt = CStr(base_year + model_time) & " " & "m_realwage" & " " & "1" & " " & CStr(TypeName(m_realwage))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage
end if
If lcase(varname) = lcase("m_realwage_change00") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change00" & " " & "1" & " " & CStr(TypeName(m_realwage_change00))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change00
end if
If lcase(varname) = lcase("m_realwage_change01") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change01" & " " & "1" & " " & CStr(TypeName(m_realwage_change01))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change01
end if
If lcase(varname) = lcase("m_realwage_change02") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change02" & " " & "1" & " " & CStr(TypeName(m_realwage_change02))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change02
end if
If lcase(varname) = lcase("m_realwage_change03") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change03" & " " & "1" & " " & CStr(TypeName(m_realwage_change03))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change03
end if
If lcase(varname) = lcase("m_realwage_change04") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change04" & " " & "1" & " " & CStr(TypeName(m_realwage_change04))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change04
end if
If lcase(varname) = lcase("m_realwage_change05") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change05" & " " & "1" & " " & CStr(TypeName(m_realwage_change05))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change05
end if
If lcase(varname) = lcase("m_realwage_change06") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change06" & " " & "1" & " " & CStr(TypeName(m_realwage_change06))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change06
end if
If lcase(varname) = lcase("m_realwage_change07") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change07" & " " & "1" & " " & CStr(TypeName(m_realwage_change07))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change07
end if
If lcase(varname) = lcase("m_realwage_change08") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change08" & " " & "1" & " " & CStr(TypeName(m_realwage_change08))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change08
end if
If lcase(varname) = lcase("m_realwage_change09") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change09" & " " & "1" & " " & CStr(TypeName(m_realwage_change09))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change09
end if
If lcase(varname) = lcase("m_realwage_change10") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change10" & " " & "1" & " " & CStr(TypeName(m_realwage_change10))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change10
end if
If lcase(varname) = lcase("m_realwage_change99") Then
txt = CStr(base_year + model_time) & " " & "m_realwage_change99" & " " & "1" & " " & CStr(TypeName(m_realwage_change99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_realwage_change99
end if
If lcase(varname) = lcase("m_return_ap") Then
txt = CStr(base_year + model_time) & " " & "m_return_ap" & " " & "1" & " " & CStr(TypeName(m_return_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_return_ap
end if
If lcase(varname) = lcase("m_RFV_PB_On") Then
txt = CStr(base_year + model_time) & " " & "m_RFV_PB_On" & " " & "1" & " " & CStr(TypeName(m_RFV_PB_On))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_RFV_PB_On
end if
If lcase(varname) = lcase("m_shares_dividends") Then
txt = CStr(base_year + model_time) & " " & "m_shares_dividends" & " " & "1" & " " & CStr(TypeName(m_shares_dividends))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_dividends
end if
If lcase(varname) = lcase("m_shares_dividends99") Then
txt = CStr(base_year + model_time) & " " & "m_shares_dividends99" & " " & "1" & " " & CStr(TypeName(m_shares_dividends99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_dividends99
end if
If lcase(varname) = lcase("m_shares_rate") Then
txt = CStr(base_year + model_time) & " " & "m_shares_rate" & " " & "1" & " " & CStr(TypeName(m_shares_rate))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_rate
end if
If lcase(varname) = lcase("m_shares_rate99") Then
txt = CStr(base_year + model_time) & " " & "m_shares_rate99" & " " & "1" & " " & CStr(TypeName(m_shares_rate99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_rate99
end if
If lcase(varname) = lcase("m_shares_return") Then
txt = CStr(base_year + model_time) & " " & "m_shares_return" & " " & "1" & " " & CStr(TypeName(m_shares_return))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_return
end if
If lcase(varname) = lcase("m_shares_return_ap") Then
txt = CStr(base_year + model_time) & " " & "m_shares_return_ap" & " " & "1" & " " & CStr(TypeName(m_shares_return_ap))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_return_ap
end if
If lcase(varname) = lcase("m_shares_total99") Then
txt = CStr(base_year + model_time) & " " & "m_shares_total99" & " " & "1" & " " & CStr(TypeName(m_shares_total99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_shares_total99
end if
If lcase(varname) = lcase("m_TFR") Then
txt = CStr(base_year + model_time) & " " & "m_TFR" & " " & "1" & " " & CStr(TypeName(m_TFR))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_TFR
end if
If lcase(varname) = lcase("m_wage_change00") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change00" & " " & "1" & " " & CStr(TypeName(m_wage_change00))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change00
end if
If lcase(varname) = lcase("m_wage_change01") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change01" & " " & "1" & " " & CStr(TypeName(m_wage_change01))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change01
end if
If lcase(varname) = lcase("m_wage_change02") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change02" & " " & "1" & " " & CStr(TypeName(m_wage_change02))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change02
end if
If lcase(varname) = lcase("m_wage_change03") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change03" & " " & "1" & " " & CStr(TypeName(m_wage_change03))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change03
end if
If lcase(varname) = lcase("m_wage_change04") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change04" & " " & "1" & " " & CStr(TypeName(m_wage_change04))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change04
end if
If lcase(varname) = lcase("m_wage_change05") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change05" & " " & "1" & " " & CStr(TypeName(m_wage_change05))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change05
end if
If lcase(varname) = lcase("m_wage_change06") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change06" & " " & "1" & " " & CStr(TypeName(m_wage_change06))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change06
end if
If lcase(varname) = lcase("m_wage_change07") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change07" & " " & "1" & " " & CStr(TypeName(m_wage_change07))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change07
end if
If lcase(varname) = lcase("m_wage_change08") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change08" & " " & "1" & " " & CStr(TypeName(m_wage_change08))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change08
end if
If lcase(varname) = lcase("m_wage_change09") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change09" & " " & "1" & " " & CStr(TypeName(m_wage_change09))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change09
end if
If lcase(varname) = lcase("m_wage_change10") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change10" & " " & "1" & " " & CStr(TypeName(m_wage_change10))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change10
end if
If lcase(varname) = lcase("m_wage_change99") Then
txt = CStr(base_year + model_time) & " " & "m_wage_change99" & " " & "1" & " " & CStr(TypeName(m_wage_change99))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_wage_change99
end if
If lcase(varname) = lcase("m_weight") Then
txt = CStr(base_year + model_time) & " " & "m_weight" & " " & "1" & " " & CStr(TypeName(m_weight))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_weight
end if
If lcase(varname) = lcase("m_zpb_ip_korr") Then
txt = CStr(base_year + model_time) & " " & "m_zpb_ip_korr" & " " & "1" & " " & CStr(TypeName(m_zpb_ip_korr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_zpb_ip_korr
end if
If lcase(varname) = lcase("m_zpb_pp_korr") Then
txt = CStr(base_year + model_time) & " " & "m_zpb_pp_korr" & " " & "1" & " " & CStr(TypeName(m_zpb_pp_korr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_zpb_pp_korr
end if
If lcase(varname) = lcase("m_zpgb_korr") Then
txt = CStr(base_year + model_time) & " " & "m_zpgb_korr" & " " & "1" & " " & CStr(TypeName(m_zpgb_korr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_zpgb_korr
end if
If lcase(varname) = lcase("m_zpgi_korr") Then
txt = CStr(base_year + model_time) & " " & "m_zpgi_korr" & " " & "1" & " " & CStr(TypeName(m_zpgi_korr))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_zpgi_korr
end if
If lcase(varname) = lcase("m_zzz") Then
txt = CStr(base_year + model_time) & " " & "m_zzz" & " " & "1" & " " & CStr(TypeName(m_zzz))
Print #OutputData.filenr, txt
Put #OutputData.filenr2, ,m_zzz
end if
End Sub