***Comments***. Commands. ***. ***top97, date of survey: from October 1996 to February 1997***. ***. GET FILE='C:\work\TOP\tops\DATA\E96.sav'. fre var a1093 a1094. comp x=0. if (a1093 gt 0) x=a1093. comp y=0. if (a1094 gt 0) y=a1094. comp z=9. if (x gt 0) z=x. if (y gt 0) z=y. fre var z. recode z (51=99). missing value z (99). rename var (z=megye). comp dregi96c=99. if (megye eq 1 or megye eq 13) dregi96c=1. if (megye eq 8 or megye eq 18 or megye eq 20 or megye eq 11 or megye eq 19 or megye eq 7 or megye eq 14 or megye eq 2 or megye eq 17) dregi96c=2. if (megye eq 3 or megye eq 6 or megye eq 4 or megye eq 16 or megye eq 9 or megye eq 15 or megye eq 12 or megye eq 10 or megye eq 7 or megye eq 5) dregi96c=3. Missing value dregi96c (99). value label dregi96c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var dregi96c. fre var a393. comp dwave=1. comp dgood=minta. comp dsector=a393. comp din96d=k4. recode din96d (1=1) (2=0). ***test***. comp x=0. if (k25 gt 0) x=1. filter by dgood. crosstabs tables din96d by x /cells count total. ***O.K.***. comp dins96i=k41. comp dinm96i=k42. comp dint96i=k43. fre var k25 k27. crosstabs tables k25 by k27 /cells count total. comp dow96d=9. if (k25 ge 1) dow96d=1. if (k27 ge 1) dow96d=1. if (k25 = 0 and k27 =0) dow96d=0. missing value dow96d (9). fre var dow96d. rename var (k27 = dfore96o)/ (k25 = dhcom96o). recode dfore96o (0=1) (1=2) (2=3) (3=4) (4=5). recode dhcom96o (0=1) (1=2) (2=3) (3=4) (4=5). value label dfore96o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label dhcom96o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var dfore96o dhcom96o. comp dol96d=9. if (din96d =1 and k44 = 0) dol96d=0. if (din96d =1 and k44 ge 1) dol96d=1. missing value dol96d (9). crosstabs tables din96d by dol96d /missing=include. fre var k44. comp x=0. if (k44 gt 0) x=1. crosstabs tables din96d by x /missing=include. comp doli96i=-9. if (din96d = 0) doli96i=-9. if (din96d = 1 and x=1) doli96i=k51. if (din96d = 1 and x=0) doli96i=0. comp dolo96i=-9. if (din96d = 0) dolo96i=-9. if (din96d = 1 and x=1) dolo96i=k52. if (din96d = 1 and x=0) dolo96i=0. missing value doli96i dolo96i (-9). fre var din96d dol96d doli96i dolo96i. fre var k6. comp dil96d=9. if (k6 = 1 and dow96d =1) dil96d=1. if (k6 = 2 and dow96d =1) dil96d=0. fre var dil96d. recode kr612 (missing,sysmis, 0=0) (else=copy) into x12. recode kr622 (missing,sysmis, 0=0) (else=copy) into x22. recode kr632 (missing,sysmis, 0=0) (else=copy) into x32. recode kr642 (missing,sysmis, 0=0) (else=copy) into x42. recode kr613 (missing,sysmis, 0=0) (else=copy) into x13. recode kr623 (missing,sysmis, 0=0) (else=copy) into x23. recode kr633 (missing,sysmis, 0=0) (else=copy) into x33. recode kr643 (missing,sysmis, 0=0) (else=copy) into x43. comp dili96i =x12+x22+x32+x42. comp dilo96i=x13+x23+x33+x43. if (dilo96i gt 100) dilo96i=100. if (dili96i gt 100) dili96i =100. if (dil96d = 0) dili96i = 0. if (dil96d = 0) dilo96i = 0. if (dil96d = 9) dili96i =-9. if (dil96d = 9) dilo96i =-9. fre var dil96d dili96i dilo96i. missing value dili96i dilo96i (-9) /dil96d (9). fre var dil96d dili96i dilo96i. comp deux96d=0. comp dkgx96d=0. if (kk581 = 3) deux96d=1. if (kk582 = 3) deux96d=1. if (kk583 = 3) deux96d=1. if (kk581 = 2 and kk582 = 2) deux96d=1. if (kk582 = 2 and kk583 = 2) deux96d=1. if (kk581 = 2 and kk583 = 2) deux96d=1. if (kk584 = 3) dkgx96d=1. if (kk585 = 3) dkgx96d=1. if (kk586 = 3) dkgx96d=1. if (kk584 = 2 and kk585 = 2) dkgx96d=1. if (kk584 = 2 and kk586 = 2) dkgx96d=1. if (kk585 = 2 and kk586 = 2) dkgx96d=1. comp x=0. if (deux96d = 1 and dkgx96d=1) x=1. if (x=1) deux96d=0. if (x=1) dkgx96d=0. comp dofo96d=klfd. comp dost96d=allam. comp dohi96d=mmagan. comp doco96d=mceg. comp domi96d=vegyes. fre var domi96d. rename var (tultip=doty96c). rename var (nbv5mnt = dq95i). rename var (nbv6mnt = dq96i). rename var (ltsm5 = dl95i). rename var (ltsm6 = dl96i). rename var (ltsm7 = dl97i). rename var (beruh = di96d). rename var (kk29 = ddi97o). rename var (a1 = kshkod). rename var (kk355 =dlps96d). rename var (kk356 =dlpp96d). rename var (kk357 =dlpt96d). rename var (kk358 =dlqp96d). rename var (kk46 =dexr96i). rename var (sector =dsec96c). rename var (suly1 =dweight). rename var (num =dnum). missing value dexr96i (888). comp dexp96i=dexr96i/100*dq96i. fre var kk50. if (kk50 gt 100) kk50=100. missing value kk50 (888). fre var kk50. rename var (kk50 =dimr96i). fre var doli96i dili96i dolo96i dilo96i. comp x1=0. if (doli96i gt 0) x1=doli96i. comp x2=0. if (dili96i gt 0) x2=dili96i. comp x12=x1+x2. if (x12 gt 100) x12=100. if (dgood =0) x12=9. missing value x12 (9). fre var x12. comp x3=0. if (dolo96i gt 0) x3=dolo96i. comp x4=0. if (dilo96i gt 0) x1=dilo96i. comp x34=x3+x4. if (x34 gt 100) x34=100. if (dgood = 0) x34=9. missing value x34 (9). fre var x34. comp dhlr96i= (x12 + x34)/2. fre var dhlr96i. variable label dweight 'weight of d (1996) wave'/ dsec96c 'sector code'/ dexr96i 'export share in net turnover, %'/ dlps96d 'late payment to suppliers'/ dlpp96d 'late payment of payroll tax'/ dlpt96d 'late payment of other tax'/ dlqp96d 'liquidity problems'/ din96d 'ownership in other comp.?' / dow96d 'Is the firm owned by other firm?'/ dins96i 'numb. of c. owned' / dinm96i 'numb. of c. owned > 25%'/ dint96i 'numb. of c. owned > 50%'/ dol96d 'out-links & bus. links'/ doli96i 'share of out-links & bus. links in total input'/ dolo96i 'share of out-links & bus. links in total output'/ dil96d 'in-links & bus. links'/ dili96i 'share of in-links & bus. links in total input'/ dilo96i 'share of in-links & bus. links in total output' / deux96d 'EU > 50% in the export' / dkgx96d 'ex-COMECOM > 50% in the export' / dofo96d 'maj. own: foreign own.' / dost96d 'maj. own: state own.'/ dohi96d 'maj. own: hungarian individual'/ doco96d 'maj. own: domestic company'/ domi96d 'mixte own.'/ doty96c 'ownership type'/ dq95i 'net turnover in 1995'/ dq96i 'net turnover in 1996'/ dexp96i 'export turnover in 1996'/ dl95i 'empl. in 1995'/ dl96i 'empl. in 1996'/ dl97i 'empl. in 1997'/ di96d 'investment in 1996'/ ddi97o 'investment activity 97/96' / dimr96i 'import ratio in total input in 1996' / dhlr96i 'average share of purch/sales within holding in the total 1996'. comp dsec96c2=dsec96c. recode dsec96c2 (1,2,3=1) (4,5,6,8=2) (7=3). variable labels dsec96c2 1'15-22' 2'23-28,36,37' 3'29-35'. ***. crosstabs tables din96d by dow96d/cells count total. save outfile='C:\WORK\top\tops\data\top96.sav' /keep kshkod dnum dwave dgood dsector dsec96c dsec96c2 dweight dregi96c ddi97o dlps96d dlpp96d dlpt96d dlqp96d dl95i dl96i dl97i dq95i dq96i dexp96i di96d dexr96i din96d dins96i dinm96i dint96i dol96d doli96i dolo96i dil96d dili96i dilo96i dow96d dhcom96o dfore96o deux96d dkgx96d doty96c dofo96d dost96d dohi96d doco96d domi96d dimr96i dhlr96i /comp. ***income statment data***. get file='C:\WORK\top\tops\data\top96.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top96.sav' /comp. match files file='C:\WORK\top\tops\data\top96.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var dwave. sel if dwave=1. save outfile='C:\WORK\top\tops\data\top96x.sav' /drop tijtop /comp. ***to make matched file***. get file='C:\WORK\top\tops\data\top96x.sav'. comp inix=0. if (dili96i gt 0) inix=dili96i. comp inox=0. if (dilo96i gt 0) inox=dilo96i. comp onix=0. if (doli96i gt 0) onix=doli96i. comp onox=0. if (dolo96i gt 0) onox=dolo96i. comp x1=inix + onix. if (x1 gt 100) x1=100. comp x2=inox + onox. if (x2 gt 100) x2=100. comp inoniox=(x1 + x2)/2. fre var inix inox onix onox. fre var inoniox. comp inonioxo=inoniox. recode inonioxo (0=0) (0.0001 thru 20=1) (20.0001 thru 80=2) (80.0001 thru hi=3). fre var inonioxo. comp y = $casenum. fre var y. comp wave=4. comp dlt10i =dl96i/dl95i. comp dlt21i =dl97i/dl96i. comp dqt10i=dq96i/dq95i. comp dqt21i=-9. comp dexpt10i=-9. comp code = 4000000 + y. comp latepyi=-9. comp kshexpo=-9. comp kshlabo =-9. rename var (dgood=good)/ (dsector =sector)/ (dsec96c =sectorc)/ (dsec96c2=kshsecc)/ (dl96i =labort1i)/ (dq96i =nturt1i)/ (dexp96i =export1i)/ (ddi97o =invacto)/ (dlps96d=lpsupld)/ (dlpp96d=lpptaxd) (dlpt96d= lpotaxd) (dlqp96d=liqprod)/ (dexr96i=exprati)/ (din96d =incompd)/ (dow96d=owcompd)/ (dol96d =oulbld)/ (dil96d =inlbld)/ (deux96d=euexpd)/ (dkgx96d=kgexpd)/ (dfore96o=foreigo)/ (dhcom96o=hcompo)/ (doty96c =owntypec)/ (dofo96d =foreigd)/ (dost96d =publicd)/ (dohi96d =hungindd)/ (doco96d =hcompd)/ (domi96d =mixted) / (dimr96i =importri) / (dregi96c =regioc). comp otherd=-9. comp sectorc2=sectorc. save outfile='C:\WORK\top\tops\data\tops1.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***. ***top98/1 survey, date : form December 1 1997 - to January 14 1998*** ***. get file='c:\work\top\tops\data\top981_1.sav'. sort cases by kshkod. comp x1=1. fre var x1. match files file=* /file='C:\WORK\top\tops\data\x1.sav' /by kshkod. crosstabs tables x1 by x2. sel if x1=1. fre var megye. comp eregi98c=99. if (megye eq 1 or megye eq 13) eregi98c=1. if (megye eq 8 or megye eq 18 or megye eq 20 or megye eq 11 or megye eq 19 or megye eq 7 or megye eq 14 or megye eq 2 or megye eq 17) eregi98c=2. if (megye eq 3 or megye eq 6 or megye eq 4 or megye eq 16 or megye eq 9 or megye eq 15 or megye eq 12 or megye eq 10 or megye eq 7 or megye eq 5) eregi98c=3. missing value eregi98c (99). value label eregi98c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var eregi98c. if (irszam lt 1300) eregi98c=1. if ((irszam ge 2040 and irszam le 2376) or irszam = 2600) eregi98c=1. if ((irszam ge 2400 and irszam le 2541) or irszam = 2800 or irszam = 2890 or irszam = 2900 or (irszam ge 7000 and irszam le 9952)) eregi98c=2. if (irszam = 3100 or irszam = 3170 or irszam = 3200 or irszam = 3300 or (irszam ge 3214 and irszam le 3250) or (irszam ge 3525 and irszam le 6900)) eregi98c=3. if (irszam = 2931) eregi98c=2. if (irszam = 2840) eregi98c=2. if (irszam = 2870) eregi98c=2. if (irszam = 2851) eregi98c=2. if (irszam = 2760) eregi98c=3. if (irszam = 2660) eregi98c=3. if (irszam = 2654) eregi98c=3. if (irszam = 3032) eregi98c=3. if (irszam = 3023) eregi98c=3. fre var eregi98c. comp sector=szakag. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp esector=sector2. missing value esector (9). fre var esector. comp y=szakag. ***technical variables***. comp ewave=1. comp egood=good. filter by egood. comp kshkod=a1. comp enum= cbsorsz. rename var (suly1 = eweight). variable label eweight 'weight of e (1998/1) wave'. ***ownership links' variables***. fre var cb4. comp ein97d =cb4. comp eins97i =cb4a. fre var eins97i. comp eindo97i=0. fre var cb5b1. if (cb5b1 =1) eindo97i=cb5b2. fre var eindo97i. if (cb5c1 =1) eindo97i=eindo97i + cb5c2. if (cb5d1 =1) eindo97i=eindo97i + cb5d2. fre var cb4. if (cb4 ne 1) eindo97i=-9. if (missing(cb4)) eindo97i=-9. if (eindo97i=100) eindo97i=-9. missing value eindo97i (-9). fre var eindo97i. comp einma97i=0. fre var cb5c1. if (cb5c1 =1) einma97i=cb5c2. if (cb5d1 =1) einma97i=einma97i + cb5d2. fre var cb4. if (cb4 ne 1) einma97i=-9. if (missing(cb4)) einma97i=-9. if (einma97i=100) einma97i=-9. missing value einma97i (-9). fre var einma97i. variable labels ein97d 'ownership in other comp.?' / eins97i 'numb. of c. owned' / eindo97i 'numb. of c. owned > 25%'/ einma97i 'numb. of c. owned > 50%'. ***business links within the holding***. comp eol97d=9. if (cb6 gt 0) eol97d=1. if (cb6 = 0) eol97d=0. missing value eol97d (9). fre var eol97d. rename var (cb7 =eoli97i). rename var (cb8 =eolo97i). fre var ein97d eol97d eoli97i eolo97i. variable labels eol97d 'out-links & bus. links'/ eoli97i 'share of out-links & bus. links in total input'/ eolo97i 'share of out-links & bus. links in total output'. ***Is the firm owned by other firm?***. comp eow97d=9. if (cb2e ge 1) eow97d=1. if (cb2f ge 1) eow97d=1. if (cb2e = 0 and cb2f = 0) eow97d=0. missing value eow97d (9). fre var eow97d. variable labels eow97d 'Is the firm owned by other firms?'. rename var (cb2e = ehcom97o) / (cb2f = efore97o). recode efore97o (0=1) (1=2) (2=3) (3=4) (4=5). recode ehcom97o (0=1) (1=2) (2=3) (3=4) (4=5). value label efore97o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label ehcom97o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var efore97o ehcom97o. ***business links***. comp eil97d=9. if (eow97d = 0) eil97d=9. if (eow97d = 1 and cb3 = 1) eil97d=1. if (eow97d = 1 and cb3 = 0) eil97d=0. missing value eil97d (9). variable labels eil97d 'in-links & bus. links'. rename var (cb3a =eili97i). rename var (cb3b =eilo97i). if (eilo97i gt 100) eilo97i=100. if (eili97i gt 100) eili97i =100. if (eil97d = 0) eili97i = 0. if (eil97d = 0) eilo97i = 0. if (eow97d = 0) eili97i =-9. if (eow97d = 0) eilo97i =-9. missing value eili97i eilo97i (-9). fre var eow97d eil97d eili97i eilo97i. variable label eili97i 'share of in-links & bus. links in total input'/ eilo97i 'share of in-links & bus. links in total output' . comp x1=0. if (eoli97i gt 0) x1=eoli97i. comp x2=0. if (eili97i gt 0) x2=eili97i. comp x12=x1+x2. if (x12 gt 100) x12=100. if (egood =0) x12=9. missing value x12 (9). fre var x12. comp x3=0. if (eolo97i gt 0) x3=eolo97i. comp x4=0. if (eilo97i gt 0) x1=eilo97i. comp x34=x3+x4. if (x34 gt 100) x34=100. if (egood = 0) x34=9. missing value x34 (9). fre var x34. comp ehlr97i= (x12 + x34)/2. fre var ehlr97i. ***business links - old variables***. rename var ( i_links = eilinks)/ (o_links = eolinks)/ (link1 =elink1)/ (link2 =elink2)/ (ilink1d =eilink1d)/ (olink1d =eolink1d)/ (link3 =elink3)/ (linkso =elinkso)/ (io_links=eiolinks)/ (io_ld =eiold)/ (io_lo =eiolo). ***purchase from several type of firms***. rename var (cb48a =ebm97i)/ (cb48b =ebf97i)/ (cb48c =ebs97i)/ (cb48d =ebl97i)/ (cb48e =ebo97i). variable label ebm97i '% purchases from multis'/ ebf97i '% purchases from foreign'/ ebs97i '% purchases from small dom.'/ ebl97i '% purchases from large dom.'/ ebo97i '% purchases from other comp.'. ***sell to several type of firms***. rename var (cb49a =esm97i)/ (cb49b =esf97i)/ (cb49c =ess97i)/ (cb49d =esl97i)/ (cb49e =esp97i)/ (cb49f =eso97i). variable label esm97i '% sales to multis'/ esf97i '% sales to foreign'/ ess97i '% sales to small dom.'/ esl97i '% sales to large dom.'/ esp97i '% sales to public inst.'/ eso97i '% sales to other comp.'. ***type of competitor firm***. rename var (cb51a =ecm97o)/ (cb51b =ecf97o)/ (cb51c =ecs97o)/ (cb51d =ecl97o)/ (cb51e =eco97o). variable label ecm97o 'competition - multi'/ ecf97o 'competition - other foreign'/ ecs97o 'competition - small domestic'/ ecl97o 'competition - large domestic'/ eco97o 'competition - other companies'. ***variables of financial discipline***. rename var (cb46d = elps97d)/ (cb46e = elpp97d)/ (cb46f = elpt97d)/ (cb46g = elqp97d)/ (cb50 = elpu97i). variable labels elps97d 'late payment to suppliers'/ elpp97d 'late payment of payroll tax'/ elpt97d 'late payment of other tax'/ elqp97d 'liquidity problems'/ elpu97i 'late payment % of purchasers'. ***sector, net turnover, export, labor, export ratio****. rename var (sector2 = esec97c2)/ (sector = esec97c)/ (cb63 = eexr97i)/ (expo6 = eexp96i)/ (nbv6 = eq96i)/ (nbv7 = eq97i)/ (ltsm96 = el96i)/ (ltsm97 = el97i). rename var (ltsm98 = el98i). fre var eexr97i. comp eexp97i=eexr97i/100*eq97i. fre var eexp97i. variable labels esec97c2 'sector2 code'/ esec97c 'sector code'/ eexr97i 'export share in net turnover, %'/ eexp96i 'export turnover in 1996'/ eexp97i 'export turnover in 1997'/ eq96i 'net turnover in 1996'/ eq97i 'net turnover in 1997'/ el96i 'empl. in 1996'/ el97i 'empl. in 1997'/ el98i 'exp. empl. in 1998'. ***export to EU, export to post-communist countries***. comp eeux97d=0. comp ekgx97d=0. if (cb70a = 3) eeux97d=1. if (cb70b = 3) eeux97d=1. if (cb70c = 3) eeux97d=1. if (cb70a = 2 and cb70b = 2) eeux97d=1. if (cb70b = 2 and cb70c = 2) eeux97d=1. if (cb70a = 2 and cb70c = 2) eeux97d=1. if (cb70d = 3) ekgx97d=1. if (cb70e = 3) ekgx97d=1. if (cb70f = 3) ekgx97d=1. if (cb70d = 2 and cb70e = 2) ekgx97d=1. if (cb70e = 2 and cb70f = 2) ekgx97d=1. if (cb70d = 2 and cb70f = 2) ekgx97d=1. comp x=0. if (eeux97d = 1 and ekgx97d=1) x=1. if (x=1) eeux97d=0. if (x=1) ekgx97d=0. variable labels eeux97d 'EU > 50% in the export' / ekgx97d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp eofo97d =klfd. comp eost97d =allam. comp eohi97d =mmsz. comp eoco97d=mceg. comp eomi97d=vegyes. rename var (tultip = eoty97c). variable labels eofo97d 'maj. own: foreign own.' / eost97d 'maj. own: state own.'/ eohi97d 'maj. own: hungarian individual'/ eoco97d 'maj. own: domestic company'/ eomi97d 'mixte own.'/ eoty97c 'ownership type'. ***dynamic variables***. rename var (dq7 = edq97i)/ (dl76 = edl97i)/ (ber76 = edw97i) / (cb35 = edi97o)/ (cb37 = edi98o)/ (exp7 = edex97i). variable labels edq97i 'total net turnover 97/96'/ edl97i 'numb. of empl. 97/96'/ edw97i 'wages 97/96, %' / edi97o 'investment activity 97/96'/ edi98o 'investment activity 98/97' / edex97i 'export turnover 97/96, %'. ***investment***. rename var (beruh7 = ei97d)/ (cb34 = ei97i). variable label ei97d 'investment in 1997' / ei97i 'amount of investment in 1997'. ***test variables for goodness of fit test***. comp ekshl97o =ltsmkat. recode ekshl97o (3,6,7=1) (2=2) (1=3). value labels ekshl97o 1 '-50 head' 2 '51-300 head' 3 '301- head'. fre var ekshl97o. rename var (szakag = ekshs97c). variable labels ekshl97o 'empl. cat. - CSO'/ ekshs97c 'sector (nace=4) - CSO'. ****other variables***. rename var (cb12 = epro97o)/ (cb26 = ecapu97i). variable labels epro97o 'profit/zero/loss'/ ecapu97i 'capacity utilisation, %'. fre var cb56. ***test of inonioxi and inonioxo***. comp eimr97i=cb56. comp inix=0. if (eili97i gt 0) inix=eili97i. comp inox=0. if (eilo97i gt 0) inox=eilo97i. comp onix=0. if (eoli97i gt 0) onix=eoli97i. comp onox=0. if (eolo97i gt 0) onox=eolo97i. comp x1=inix + onix. if (x1 gt 100) x1=100. comp x2=inox + onox. if (x2 gt 100) x2=100. comp inonioxi=(x1 + x2)/2. fre var inix inox onix onox. fre var inonioxi. comp inonioxo=inonioxi. recode inonioxo (0=0) (0.0001 thru 20=1) (20.0001 thru 80=2) (80.0001 thru hi=3). fre var inonioxo. if (inonioxi gt 100) inonioxi=100. fre var eiolo eiolinks. comp x=0. if (eiolinks ne inonioxi) x=1. fre var x. temp. sel if x=1. list kshkod eili97i eilo97i eoli97i eolo97i eiolinks inoniox. ***the inonioxi is good in every case ***. ***choosing manufacturing industry***. sel if (y lt 5000). save outfile='C:\WORK\top\tops\data\top981.sav' /keep kshkod egood esector enum ewave eweight ekshs97c ekshl97o esec97c esec97c2 el96i el97i el98i eq96i eq97i eexp96i eexp97i edq97i edl97i edw97i edi97o edi98o edex97i eexr97i ei97d ei97i eoty97c eofo97d eost97d eohi97d eoco97d eomi97d eow97d ehcom97o efore97o ein97d eins97i eindo97i einma97i eol97d eoli97i eolo97i eil97d eili97i eilo97i eilinks eolinks elink1 elink2 eilink1d eolink1d elink3 elinkso eiolinks eiold eiolo elps97d elpp97d elpt97d elqp97d elpu97i ebm97i ebf97i ebs97i ebl97i ebo97i esm97i esf97i ess97i esl97i esp97i eso97i ecm97o ecf97o ecs97o ecl97o eco97o eeux97d ekgx97d epro97o ecapu97i eimr97i ehlr97i eregi98c /comp. ***income statement variables***. get file='C:\WORK\top\tops\data\top981.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top981.sav' /comp. match files file='C:\WORK\top\tops\data\top981.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var ewave. sel if ewave=1. save outfile='C:\WORK\top\tops\data\top981x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top981x.sav'. comp inix=0. if (eili97i gt 0) inix=eili97i. comp inox=0. if (eilo97i gt 0) inox=eilo97i. comp onix=0. if (eoli97i gt 0) onix=eoli97i. comp onox=0. if (eolo97i gt 0) onox=eolo97i. comp x1=inix + onix. if (x1 gt 100) x1=100. comp x2=inox + onox. if (x2 gt 100) x2=100. comp inoniox=(x1 + x2)/2. fre var inix inox onix onox. fre var inoniox. comp inonioxo=inoniox. recode inonioxo (0=0) (0.0001 thru 20=1) (20.0001 thru 80=2) (80.0001 thru hi=3). fre var inonioxo. if (inoniox gt 100) inoniox=100. comp y=$casenum. comp wave=5. comp dlt10i =el97i/el96i. comp dlt21i =el98i/el97i. comp dqt10i =eq97i/eq96i. comp dqt21i=-9. comp dexpt10i =eexp97i/eexp96i. comp code=5000000 + y. comp kshexpo=-9. rename var (egood=good)/ (esec97c=sectorc)/ (ekshl97o=kshlabo)/ (el97i =labort1i)/ (eq97i =nturt1i)/ (eexp97i=export1i)/ (edi97o =invacto)/ (elps97d=lpsupld)/ (elpp97d=lpptaxd) (elpt97d= lpotaxd) (elqp97d=liqprod)/ (elpu97i =latepyi)/ (eexr97i=exprati)/ (ein97d =incompd)/ (eow97d=owcompd)/ (eol97d =oulbld)/ (eil97d =inlbld)/ (eeux97d=euexpd)/ (ekgx97d=kgexpd)/ (efore97o=foreigo)/ (ehcom97o=hcompo)/ (eoty97c =owntypec)/ (eofo97d =foreigd)/ (eost97d =publicd)/ (eohi97d =hungindd)/ (eoco97d =hcompd)/ (eomi97d =mixted)/ (esector =sector)/ (eimr97i =importri)/ (eregi98c =regioc). comp sectorc2 =sectorc. comp otherd=-9. comp kshsecc=sectorc. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2'23-28,36,37' 3'29-35'. save outfile='C:\WORK\top\tops\data\tops2.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***. ***top98/2 survey, date of survey from June 2 1998 to July 2 1998***. ***. get file='c:\work\top\tops\data\top982_1.sav'. rename var (a1=kshkod). sort cases by kshkod. comp x2=1. save outfile='c:\work\top\tops\data\x1.sav' /keep kshkod megye x2. get file='c:\work\top\tops\data\top982_1.sav'. rename var (a1=kshkod). ***technical variables***. comp fwave=1. comp fgood=good. fre var fgood. comp fnum= tsorszam. rename var (suly1 = fweight). variable label fweight 'weight of f (1998/2) wave'. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp fsector=sector2. missing value fsector (9). fre var fsector. ***Is the firm owned by other firms?***. comp fow98d=9. if (t2e ge 1) fow98d=1. if (t2f ge 1) fow98d=1. if (t2e = 0 and t2f = 0) fow98d=0. missing value fow98d (9). fre var fow98d. variable labels fow98d 'Is the firms owned by other firms?'. rename var (t2e = fhcom98o) / (t2f = ffore98o). recode ffore98o (0=1) (1,2=2) (3=3) (4=4) (5=5). recode fhcom98o (0=1) (1,2=2) (3=3) (4=4) (5=5). value label ffore98o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label fhcom98o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. ***type of competitor firms***. rename var (t55a =fcm98o)/ (t55b =fchu98o)/ (t55c =fcee98o)/ (t55d =fcwe98o)/ (t55e =fcof98o). variable label fcm98o 'competition - multi'/ fchu98o 'competition - Hungarian'/ fcee98o 'competition - East-European'/ fcwe98o 'competition - West-European'/ fcof98o 'competition - other foreigner'. ***variables of financial discipline***. rename var (t43c = flps98d)/ (t43d = flpp98d)/ (t43e = flpt98d)/ (t43f = flqp98d). variable labels flps98d 'late payment to suppliers'/ flpp98d 'late payment of payroll tax'/ flpt98d 'late payment of other tax'/ flqp98d 'liquidity problems' . ***county, sector, net turnover, export, labor, export ratio, létszám, exportarány****. comp fregi98c=99. if (megye eq 1 or megye eq 13) fregi98c=1. if (megye eq 8 or megye eq 18 or megye eq 20 or megye eq 11 or megye eq 19 or megye eq 7 or megye eq 14 or megye eq 2 or megye eq 17) fregi98c=2. if (megye eq 3 or megye eq 6 or megye eq 4 or megye eq 16 or megye eq 9 or megye eq 15 or megye eq 12 or megye eq 10 or megye eq 7 or megye eq 5) fregi98c=3. Missing value fregi98c (99). value label fregi98c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var fregi98c. rename var (megye = fcoun97c) (sector2 = fsec97c2)/ (sector = fsec97c)/ (expr97 = fexr97i)/ (expr98 = fexr98i)/ (exp97 = fexp97i)/ (exp98 = fexp98i)/ (q7 = fq97i)/ (q8 = fq98i)/ (l97 = fl97i)/ (l98 = fl98i)/ (w7 = fw97i). variable labels fcoun97c 'county code'/ fsec97c2 'sector2 code'/ fsec97c 'sector code'/ fexr97i 'export share in net turnover, %'/ fexr98i 'export share in net turnover, %'/ fexp97i 'export turnover in 1997'/ fexp98i 'export turnover in 1998'/ fq97i 'net turnover in 1997'/ fq98i 'net turnover in 1998'/ fl97i 'empl. in 1997'/ fl98i 'empl. in 1998'/ fw97i 'wages in 1997'. ***Export to EU, Export to post-communist countries***. comp feux98d=0. comp fkgx98d=0. if (t57a = 3) feux98d=1. if (t57b = 3) feux98d=1. if (t57c = 3) feux98d=1. if (t57a = 2 and t57b = 2) feux98d=1. if (t57b = 2 and t57c = 2) feux98d=1. if (t57a = 2 and t57c = 2) feux98d=1. if (t57d = 3) fkgx98d=1. if (t57e = 3) fkgx98d=1. if (t57f = 3) fkgx98d=1. if (t57d = 2 and t57e = 2) fkgx98d=1. if (t57e = 2 and t57f = 2) fkgx98d=1. if (t57d = 2 and t57f = 2) fkgx98d=1. comp x=0. if (feux98d = 1 and fkgx98d=1) x=1. if (x=1) feux98d=0. if (x=1) fkgx98d=0. variable labels feux98d 'EU > 50% in the export' / fkgx98d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp fofo98d =klfd. comp fost98d=allam. comp fohi98d=mmsz. comp foco98d=mceg. comp fomi98d=vegyes. rename var (tultip = foty98c). variable labels fofo98d 'maj. own: foreign own.' / fost98d 'maj. own: state own.'/ fohi98d 'maj. own: hungarian individual'/ foco98d 'maj. own: domestic company'/ fomi98d 'mixte own.'/ foty98c 'ownership type'. ***dinamic variables***. rename var (dq87 = fdq98i)/ (dl87 = fdl98i)/ (dw7 = fdw97i) / (dw8 = fdw98i)/ (t37 = fdi98o)/ (t39 = fdi99o)/ (dexp87 = fdex98i). variable labels fdq98i 'total net turnover 98/97'/ fdl98i 'numb. of empl. 98/97'/ fdw97i 'wages 97/96, %' / fdw98i 'wages 98/97, %'/ fdi98o 'investment activity 98/97'/ fdi99o 'investment activity 99/98' / fdex98i 'export turnover 98/97, %'. ***investment***. rename var (inv98 = fi98d)/ (t36 = fi97i). variable label fi98d 'investment in 1998' / fi97i 'amount of investment in 1997'. ***test variables for goodness of fit test***. comp fkshl97o =ltsm_ksh. recode fkshl97o (1,2,3=1) (4,5=2) (6=3). value labels fkshl97o 1 '-50 head' 2 '51-250 head' 3 '251- head'. fre var fkshl97o. rename var (exp6_ksh = fkshe96o). variable labels fkshl97o 'empl. cat. - CSO'/ fkshe96o 'export turnover cat. - CSO'. ****other variables***. rename var (t4 = fpro97o)/ (t25 = fcapu98i)/ (t62 = fcbs98o)/ (t63 = fcebs98o). missing value t32 (999). comp ffosu98i=100-t32. variable labels fpro97o 'profit/zero/loss'/ fcapu98i 'capacity utilisation, %'/ fcbs98o 'company business situation' / fcebs98o 'comp. exp. bus. situation next 6 months' / ffosu98i 'share of foreign suppliers'. fre var t46. comp fimr98i=t46. comp fhlr98i =-9. save outfile='C:\WORK\top\tops\data\top982.sav' /keep kshkod fgood fsector fnum fwave fweight fkshl97o fkshe96o fsec97c fsec97c2 fregi98c fcoun97c fl97i fl98i fq97i fq98i fw97i fexp97i fexp98i fdq98i fdl98i fdw97i fdw98i fdi98o fdi99o fdex98i fexr97i fexr98i fi98d fi97i foty98c fofo98d fost98d fohi98d foco98d fomi98d fow98d fhcom98o ffore98o flps98d flpp98d flpt98d flqp98d fcm98o fchu98o fcee98o fcwe98o fcof98o feux98d fkgx98d fpro97o fcapu98i fcbs98o fcebs98o ffosu98i fimr98i fhlr98i /comp. ***income statement data***. get file='C:\WORK\top\tops\data\top982.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top982.sav' /comp. match files file='C:\WORK\top\tops\data\top982.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var fwave. sel if fwave=1. save outfile='C:\WORK\top\tops\data\top982x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top982x.sav'. comp y=$casenum. comp wave=6. comp dlt10i =fl98i/fl97i. comp dlt21i =-9. comp dqt10i =fq98i/fq97i. comp dqt21i =-9. comp dexpt10i =fexp98i/fexp97i. comp latepyi=-9. comp incompd=-9. comp owcompd=-9. comp oulbld=-9. comp inlbld=-9. comp code=6000000 + y. rename var (fgood=good)/ (fsec97c=sectorc)/ (fsec97c2=sectorc2)/ (fl98i =labort1i)/ (fq98i =nturt1i)/ (fexp98i=export1i)/ (fdi98o =invacto)/ (flps98d=lpsupld)/ (flpp98d=lpptaxd) (flpt98d= lpotaxd) (flqp98d=liqprod)/ (fexr98i=exprati)/ (feux98d=euexpd)/ (fkgx98d=kgexpd)/ (ffore98o=foreigo)/ (fhcom98o=hcompo)/ (foty98c =owntypec)/ (fofo98d =foreigd)/ (fost98d =publicd)/ (fohi98d =hungindd)/ (foco98d =hcompd)/ (fomi98d =mixted)/ (fsector = sector)/ (fimr98i = importri)/ (fregi98c = regioc). rename var (fkshe96o=kshexpo)/ (fkshl97o=kshlabo). comp otherd=-9. comp kshsecc=sectorc2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2'23-28,36,37' 3'29-35'. comp inoniox=-9. comp inonioxo=-9. save outfile='C:\WORK\top\tops\data\tops3.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ****. get file='c:\work\top\tops\data\top982x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\x1.sav' /keep kshkod fsector fregi98c /comp. get file='c:\work\top\tops\data\top983_1.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top983_1.sav' /comp. match files file='C:\WORK\top\tops\data\top983_1.sav' /file='C:\WORK\top\tops\data\x1.sav' /by kshkod. fre var fsector. save outfile='C:\WORK\top\tops\data\top983_1.sav' /comp. get file='c:\work\top\tops\data\top983_1.sav'. ***date of survey: from October 26 1998 to November 23 1998***. ***technical variables***. comp gwave=1. comp ggood=good. sel if (good ge 0). fre var good. comp gnum= tcsorsz. rename var (suly1 = gweight)/ (fsector = gsector) / (fregi98c=gregi98c). variable label gweight 'weight of g (1998/3) wave'. ***Is the firm owned by other firms?***. comp gow98d=9. if (tc2e gt 1) gow98d=1. if (tc2f gt 1) gow98d=1. if (tc2e = 1 and tc2f = 1) gow98d=0. missing value gow98d (9). fre var gow98d. variable labels gow98d 'Is the firm owned by other firms?'. rename var (tc2e = ghcom98o) / (tc2f = gfore98o). recode gfore98o (1=1)(2,3=2) (4=3) (5=4) (6=5). recode ghcom98o (1=1)(2,3=2) (4=3) (5=4) (6=5). value label gfore98o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label ghcom98o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var gfore98o ghcom98o. ***purchase from several type of firms***. rename var (tc47a =gbm98i)/ (tc47b =gbf98i)/ (tc47c =gbs98i)/ (tc47d =gbl98i)/ (tc47e =gbo98i). variable label gbm98i '% purchases from multis'/ gbf98i '% purchases from foreign'/ gbs98i '% purchases from small dom.'/ gbl98i '% purchases from large dom.'/ gbo98i '% purchases from other comp.'. ***sell to several type of firms***. rename var (tc48a =gsm98i)/ (tc48b =gsf98i)/ (tc48c =gss98i)/ (tc48d =gsl98i)/ (tc48e =gsp98i)/ (tc48f =gso98i). variable label gsm98i '% sales to multis'/ gsf98i '% sales to foreign'/ gss98i '% sales to small dom.'/ gsl98i '% sales to large dom.'/ gsp98i '% sales to public inst.'/ gso98i '% sales to other comp.'. ***variables of financial discipline***. rename var (tc39c = glps98d)/ (tc39d = glpp98d)/ (tc39e = glpt98d)/ (tc39f = glqp98d)/ (tc49 = glpu98i)/. variable labels glps98d 'late payment to suppliers'/ glpp98d 'late payment of payroll tax'/ glpt98d 'late payment of other tax'/ glqp98d 'liquidity problems' / glpu98i 'late payment % of purchasers'. ***county, sector, net turnover, export, labor, export ratio***. comp expr97=tc3a1/tc3a*100. comp expr98=tc3b1/tc3b*100. if (expr97 gt 100) expr97=100. if (expr98 gt 100) expr98=100. rename var (megye = gcoun98c) (sector2 = gsec98c2)/ (sector = gsec98c)/ (expr97 = gexr97i)/ (expr98 = gexr98i)/ (exp97 = gexp97i)/ (exp98 = gexp98i)/ (q97 = gq97i)/ (q98 = gq98i)/ (l97 = gl97i)/ (l98 = gl98i)/ (tc19c = gw97i). variable labels gcoun98c 'county code'/ gsec98c2 'sector2 code'/ gsec98c 'sector code'/ gexr97i 'export share in net turnover, %'/ gexr98i 'export share in net turnover, %'/ gexp97i 'export turnover in 1997'/ gexp98i 'export turnover in 1998'/ gq97i 'net turnover in 1997'/ gq98i 'net turnover in 1998'/ gl97i 'empl. in 1997'/ gl98i 'empl. in 1998'/ gw97i 'wages in 1997'. ***Export to EU, Export to post-communist countries***. comp geux98d=0. comp gkgx98d=0. if (tc57a = 4) geux98d=1. if (tc57b = 4) geux98d=1. if (tc57c = 4) geux98d=1. if (tc57a = 3 and tc57b = 3) geux98d=1. if (tc57b = 3 and tc57c = 3) geux98d=1. if (tc57a = 3 and tc57c = 3) geux98d=1. if (tc57d = 4) gkgx98d=1. if (tc57e = 4) gkgx98d=1. if (tc57f = 4) gkgx98d=1. if (tc57d = 3 and tc57e = 3) gkgx98d=1. if (tc57e = 3 and tc57f = 3) gkgx98d=1. if (tc57d = 3 and tc57f = 3) gkgx98d=1. comp x=0. if (geux98d = 1 and gkgx98d=1) x=1. if (x=1) geux98d=0. if (x=1) gkgx98d=0. variable labels geux98d 'EU > 50% in the export' / gkgx98d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp gofo98d =klfd. comp gost98d=kozos. comp gohi98d=mmsz. comp goco98d=mceg. comp gomi98d=vgys. rename var (ttip = goty98c). variable labels gofo98d 'maj. own: foreign own.' / gost98d 'maj. own: state own.'/ gohi98d 'maj. own: hungarian individual'/ goco98d 'maj. own: domestic company'/ gomi98d 'mixte own.'/ goty98c 'ownership type'. ***dinamic variables***. comp dw8=100+tc21c. fre var dexp8 dexp9. comp dexp8=dexp8*100. rename var (dq8 = gdq98i)/ (dl8 = gdl98i)/ (dw8 = gdw98i)/ (tc32 = gdi98o)/ (tc36 = gdi99o)/ (dexp8 = gdex98i)/ (dexp9 = gdex99i). variable labels gdq98i 'total net turnover 98/97'/ gdl98i 'numb. of empl. 98/97'/ gdw98i 'wages 98/97, %'/ gdi98o 'investment activity 98/97'/ gdi99o 'investment activity 99/98' / gdex98i 'export turnover 98/97, %' / gdex99i 'export turnover 99/98, %'. ***investment***. comp inv98=0. if (tc31a =1) inv98=1. if (tc31b =1) inv98=1. if (tc31c =1) inv98=1. if (tc31d =1) inv98=1. if (tc31e =1) inv98=1. if (tc31f =1) inv98=1. if (tc31g =1) inv98=1. fre var inv98. rename var (inv98 = gi98d)/ (tc331s = gi97i)/ (tc332s = gi98i). variable label gi98d 'investment in 1997' / gi97i 'amount of investment in 1997'/ gi98i 'amount of investment in 1998'. ***test variables for goodness of fit test***. comp gkshl98o =letszksh. recode gkshl98o (3,6,7=1) (2=2) (1=3). value labels gkshl98o 1 '-50 head' 2 '51-300 head' 3 '301- head'. fre var gkshl98o. rename var (exp_kat = gkshe97o). variable labels gkshl98o 'empl. cat. - CSO'/ gkshe97o 'export turnover cat. - CSO'. ****other variables***. rename var (tc4 = gpro97o)/ (tc5 = gpro98o)/ (tc25 = gcapu98i)/ (tc63 = gcbs98o)/ (tc64 = gcebs98o). missing value tc28 (999). comp gfosu98i=100-tc28. variable labels gpro97o 'profit/zero/loss'/ gpro98o 'profit/zero/loss'/ gcapu98i 'capacity utilisation, %'/ gcbs98o 'company business situation' / gcebs98o 'comp. exp. bus. situation next 6 months'/ gfosu98i 'share of foreign suppliers'. fre var tc42. comp gimr98i=tc42. comp ghlr98i=-9. save outfile='C:\WORK\top\tops\data\top983.sav' /keep kshkod ggood gnum gsector gwave gweight gkshl98o gkshe97o gsec98c gsec98c2 gregi98c gcoun98c gl97i gl98i gq97i gq98i gw97i gexp97i gexp98i gdq98i gdl98i gdw98i gdi98o gdi99o gdex98i gdex99i gexr97i gexr98i gi98d gi97i gi98i goty98c gofo98d gost98d gohi98d goco98d gomi98d gow98d ghcom98o gfore98o glps98d glpp98d glpt98d glqp98d glpu98i gbm98i gbf98i gbs98i gbl98i gbo98i gsm98i gsf98i gss98i gsl98i gsp98i gso98i geux98d gkgx98d gpro97o gpro98o gcapu98i gcbs98o gcebs98o gfosu98i gimr98i ghlr98i /comp. ***income statement data***. get file='C:\WORK\top\tops\data\top983.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top983.sav' /comp. match files file='C:\WORK\top\tops\data\top983.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var gwave. sel if gwave=1. save outfile='C:\WORK\top\tops\data\top983x.sav' /drop tijtop /comp. fre var ggood. ***to make mached file***. get file='C:\WORK\top\tops\data\top983x.sav'. comp inoniox=-9. comp inonioxo=-9. comp y=$casenum. comp wave=7. comp dlt10i =gl98i/gl97i. comp dlt21i =-9. comp dqt10i =gq98i/gq97i. comp dqt21i =-9. comp dexpt10i =gexp98i/gexp97i. comp latepyi=glpu98i. comp incompd=-9. comp owcompd=-9. comp oulbld=-9. comp inlbld=-9. comp code=7000000 + y. rename var (ggood=good)/ (gsec98c=sectorc)/ (gl98i =labort1i)/ (gq98i =nturt1i)/ (gexp98i=export1i)/ (gdi98o =invacto)/ (glps98d=lpsupld)/ (glpp98d=lpptaxd) (glpt98d= lpotaxd) (glqp98d=liqprod)/ (gexr98i=exprati)/ (geux98d=euexpd)/ (gkgx98d=kgexpd)/ (gfore98o=foreigo)/ (ghcom98o=hcompo)/ (goty98c =owntypec)/ (gofo98d =foreigd)/ (gost98d =publicd)/ (gohi98d =hungindd)/ (goco98d =hcompd)/ (gomi98d =mixted)/ (gsector =sector)/ (gimr98i =importri)/ (gregi98c =regioc). rename var (gkshe97o=kshexpo)/ (gkshl98o=kshlabo). comp otherd=-9. comp kshsecc=gsec98c2. comp sectorc2=gsec98c2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2'23-28,36,37' 3'29-35'. save outfile='C:\WORK\top\tops\data\tops4.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***1999/1 top survey, date: from May 26 1999 to July 29 1999***. ***. get file='c:\work\top\1999\1\data\top991_3.sav'. sort cases by kshkod. save outfile= 'c:\work\top\1999\1\data\top991_x.sav' /drop szakag g_forma exp_kat letszkat letszksh /comp. get file='c:\work\top\1999\1\data\top991_1.sav'. sort cases by kshkod. comp x=0. if (good=1 or szakag ge 1) x=1. fre var x. sel if (x=1). save outfile= 'c:\work\top\1999\1\data\top991_y.sav' /keep kshkod szakag g_forma exp_kat letszkat letszksh /comp. match files file='c:\work\top\1999\1\data\top991_y.sav' /file='c:\work\top\1999\1\data\top991_x.sav' /by kshkod. fre var good. save outfile= 'c:\work\top\1999\1\data\top991_4.sav' /comp. get file='c:\work\top\tops\data\top991_4.sav'. ***technical variables***. comp tdsorsz= tdora2*1000 + tdperc2*10 + tdszit1. fre var tdsorsz. comp hwave=1. comp hgood=good. fre var hgood. comp hnum= tdsorsz. rename var (suly1 = hweight). variable label hweight 'weight of h (1999/1) wave'. comp sector=szakag. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp hsector=sector2. missing value hsector (9). fre var hsector. ***Is the firm owned by other firms?***. comp how99d=9. if (td2e gt 1) how99d=1. if (td2f gt 1) how99d=1. if (td2e = 1 and td2f = 1) how99d=0. missing value how99d (9). fre var how99d. variable labels how99d 'Is the firm owned by other firms?'. rename var (td2e = hhcom99o) / (td2f = hfore99o). recode hfore99o (1=1)(2,3=2) (4=3) (5=4) (6=5). recode hhcom99o (1=1)(2,3=2) (4=3) (5=4) (6=5). value label hfore99o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label hhcom99o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var hfore99o hhcom99o. ***type of competitor firm***. rename var (td73a =hchp99o)/ (td73b =hcvp99o)/ (td73c =hccp99o)/ (td73d =hckp99o)/ (td73e =hcep99o)/ (td73f =hcap99o)/ (td73g =hcup99o). variable label hchp99o 'competition - Hungarian prod.'/ hcvp99o 'competition - Visegrad prod.'/ hccp99o 'competition - CIS prod.'/ hckp99o 'competition - other ex-COMECOM'/ hcep99o 'competition - EU prod.'/ hcap99o 'competition - Asian prod.'/ hcup99o 'competition - North-Amer. prod.'. ***variables of financial discipline***. rename var (td53c = hlps99d)/ (td53d = hlpp99d)/ (td53e = hlpt99d)/ (td53f = hlqp99d)/ (td64 = hlpu99i)/. variable labels hlps99d 'late payment to suppliers'/ hlpp99d 'late payment of payroll tax'/ hlpt99d 'late payment of other tax'/ hlqp99d 'liquidity problems' / hlpu99i 'late payment % of purchasers'. ***county, sector, net turnover, export, labor, export ratio***. comp hregi99c=99. if (megye eq 1 or megye eq 13) hregi99c=1. if (megye eq 8 or megye eq 18 or megye eq 20 or megye eq 11 or megye eq 19 or megye eq 7 or megye eq 14 or megye eq 2 or megye eq 17) hregi99c=2. if (megye eq 3 or megye eq 6 or megye eq 4 or megye eq 16 or megye eq 9 or megye eq 15 or megye eq 12 or megye eq 10 or megye eq 7 or megye eq 5) hregi99c=3. Missing value hregi99c (99). value label hregi99c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var hregi99c. comp expr97=td3a1/td3a*100. comp expr98=td3b1/td3b*100. comp expr99=td3c1/td3c*100. if (expr97 gt 100) expr97=100. if (expr98 gt 100) expr98=100. if (expr99 gt 100) expr99=100. rename var (megye = hcoun99c) (sector2 = hsec98c2)/ (sector = hsec98c)/ (expr97 = hexr97i)/ (expr98 = hexr98i)/ (expr99 = hexr99i)/ (exp97 = hexp97i)/ (exp98 = hexp98i)/ (exp99 = hexp99i)/ (q97 = hq97i)/ (q98 = hq98i)/ (q99 = hq99i)/ (l98 = hl98i)/ (l99 = hl99i)/ (td13c = hw98i). variable labels hcoun99c 'county code'/ hsec99c2 'sector2 code'/ hsec99c 'sector code'/ hexr97i 'export share in net turnover, %'/ hexr98i 'export share in net turnover, %'/ hexr99i 'export share in net turnover, %'/ hexp97i 'export turnover in 1997'/ hexp98i 'export turnover in 1998'/ hexp99i 'export turnover in 1999'/ hq97i 'net turnover in 1997'/ hq98i 'net turnover in 1998'/ hq99i 'net turnover in 1999'/ hl98i 'empl. in 1998'/ hl99i 'empl. in 1999'/ hw98i 'wages in 1998'. ***Export to EU, Export to post-communist countries***. comp heux99d=0. comp hkgx99d=0. if (td71a = 4) heux99d=1. if (td71b = 4) heux99d=1. if (td71c = 4) heux99d=1. if (td71a = 3 and td71b = 3) heux99d=1. if (td71b = 3 and td71c = 3) heux99d=1. if (td71a = 3 and td71c = 3) heux99d=1. if (td71d = 4) hkgx99d=1. if (td71e = 4) hkgx99d=1. if (td71f = 4) hkgx99d=1. if (td71d = 3 and td71e = 3) hkgx99d=1. if (td71e = 3 and td71f = 3) hkgx99d=1. if (td71d = 3 and td71f = 3) hkgx99d=1. comp x=0. if (heux99d = 1 and hkgx99d=1) x=1. if (x=1) heux99d=0. if (x=1) hkgx99d=0. variable labels heux99d 'EU > 50% in the export' / hkgx99d 'ex-COMECOM > 50% in the export' . fre var heux99d hkgx99d. ***type of majority owner***. comp hofo99d =klfd. comp host99d=kozos. comp hohi99d=mmsz. comp hoco99d=mceg. comp homi99d=vgys. comp hoot99d=egyb. rename var (ttip = hoty99c). variable labels hofo99d 'maj. own: foreign own.' / host99d 'maj. own: state own.'/ hohi99d 'maj. own: hungarian individual'/ hoco99d 'maj. own: domestic company'/ homi99d 'mixte own.'/ hoot99d 'other own.'/ hoty99c 'ownership type'. ***dinamic variables***. fre var td14c. comp dw9=td14c. fre var dexp8 dexp9. rename var (dq8 = hdq98i)/ (dq9 = hdq99i)/ (dl9 = hdl99i)/ (dw9 = hdw99i)/ (td45 = hdi99o)/ (td50 = hdi00o)/ (dexp8 = hdex98i) (dexp9 = hdex99i). variable labels hdq98i 'total net turnover 98/97'/ hdq99i 'total net turnover 99/98'/ hdl99i 'numb. of empl. 99/98'/ hdw98i 'wages 98/97, %'/ hdi99o 'investment activity 99/98'/ hdi00o 'investment activity 00/99' / hdex98i 'export turnover 98/97, %' / hdex99i 'export turnover 99/98, %'. ***investment***. comp inv99=0. if (td44a =1) inv99=1. if (td44b =1) inv99=1. if (td44c =1) inv99=1. if (td44d =1) inv99=1. if (td44e =1) inv99=1. if (td44f =1) inv99=1. if (td44g =1) inv99=1. fre var inv99. rename var (inv99 = hi99d)/ (td461d = hi98i)/ (td462d = hi99i). variable label hi99d 'investment in 1999' / hi98i 'amount of investment in 1998'/ hi99i 'amount of investment in 1999'. ***test variables for goodness of fit test***. fre var szakag g_forma exp_kat letszkat letszksh. comp hkshl98o =letszksh. recode hkshl98o (3,6,7=1) (2=2) (1=3). value labels hkshl98o 1 '-50 head' 2 '51-300 head' 3 '301- head'. fre var hkshl98o. rename var (exp_kat = hkshe97o). rename var (szakag = hkshs98c). variable labels hkshl98o 'empl. cat. - CSO'/ hkshe97o 'export turnover cat. - CSO'/ hkshs98c 'sector code (NACE=4) - CSO'. comp sector=hkshs98c. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1699) SECTOR2=1. IF (SECTOR GE 1700 AND SECTOR LE 1999) SECTOR2=2. IF (SECTOR GE 2000 AND SECTOR LE 2299) SECTOR2=3. IF (SECTOR GE 2300 AND SECTOR LE 2599) SECTOR2=4. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=5. IF (SECTOR GE 2700 AND SECTOR LE 2899) SECTOR2=6. IF (SECTOR GE 2900 AND SECTOR LE 3699) SECTOR2=7. IF (SECTOR GE 3600 AND SECTOR LE 3799) SECTOR2=8. missing value sector2 (9). value labels sector2 1 'ELELM. (15,16)' 2 'TEXTIL (17-19)' 3 'FA,PAPIR(20-22)' 4 'VEGYIPAR(23-25)' 5 'NEMFEM ASV.(26)' 6 'KOHASZAT(27,28)' 7 'GEPIPAR (29-35)' 8 'Egyeb F.(36,37)'. ****other variables***. rename var (td4a = hpro97o)/ (td4b = hpro98o)/ (td4c = hpro99o)/ (td31 = hcapu99i)/ (td78 = hcbs99o) / (td79 = hcebs99o). missing value td41 (999). comp hfosu99i=100-td41. fre var td59. comp himr99i =td59. comp hhlr99i =-9. variable labels hpro97o 'profit/zero/loss'/ hpro98o 'profit/zero/loss'/ hpro99o 'profit/zero/loss'/ hcapu99i 'capacity utilisation, %'/ hcbs99o 'company business situation' / hcebs99o 'comp. exp. bus. situation next 6 months'/ hfosu99i 'share of foreign suppliers'. sel if (hsector gt 1). save outfile='C:\WORK\top\tops\data\top991.sav' /keep kshkod hgood hsector hnum hwave hweight hkshl98o hkshe97o hkshs98c hsec98c hsec98c2 hregi99c hcoun99c hl98i hl99i hq97i hq98i hq99i hw98i hexp97i hexp98i hexp99i hdq98i hdq99i hdl99i hdw99i hdi99o hdi00o hdex98i hdex99i hexr97i hexr98i hexr99i hi99d hi98i hi99i hoty99c hofo99d host99d hohi99d hoco99d homi99d hoot99d how99d hhcom99o hfore99o hlps99d hlpp99d hlpt99d hlqp99d hlpu99i hchp99o hcvp99o hccp99o hckp99o hcep99o hcap99o hcup99o heux99d hkgx99d hpro97o hpro98o hpro99o hcapu99i hcbs99o hcebs99o hfosu99i himr99i hhlr99i /comp. ***income statement data***. get file='C:\WORK\top\tops\data\top991.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top991.sav' /comp. match files file='C:\WORK\top\tops\data\top991.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var hwave. sel if hwave=1. save outfile='C:\WORK\top\tops\data\top991x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top991x.sav'. comp inoniox=-9. comp inonioxo=-9. comp y=$casenum. comp wave=8. comp dlt10i =hl99i/hl98i. comp dlt21i =-9. comp dqt10i =hq99i/hq98i. comp dqt21i =-9. comp dexpt10i =hexp99i/hexp98i. comp latepyi=hlpu99i. comp incompd=-9. comp owcompd=-9. comp oulbld=-9. comp inlbld=-9. comp code=8000000 + y. rename var (hgood=good)/ (hsec98c=sectorc)/ (hl99i =labort1i)/ (hq99i =nturt1i)/ (hexp99i=export1i)/ (hdi99o =invacto)/ (hlps99d=lpsupld)/ (hlpp99d=lpptaxd) (hlpt99d= lpotaxd) (hlqp99d=liqprod)/ (hexr99i=exprati)/ (heux99d=euexpd)/ (hkgx99d=kgexpd)/ (hfore99o=foreigo)/ (hhcom99o=hcompo)/ (hoty99c =owntypec)/ (hofo99d =foreigd)/ (host99d =publicd)/ (hohi99d =hungindd)/ (hoco99d =hcompd)/ (homi99d =mixted)/ (hoot99d =otherd)/ (hsector =sector)/ (himr99i =importri)/ (hregi99c =regioc). rename var (hkshe97o=kshexpo)/ (hkshl98o=kshlabo). comp sec=hkshs98c. COMP sec2=9. IF (sec GE 1500 AND sec LE 1699) sec2=1. IF (sec GE 1700 AND sec LE 1999) sec2=2. IF (sec GE 2000 AND sec LE 2299) sec2=3. IF (sec GE 2300 AND sec LE 2599) sec2=4. IF (sec GE 2600 AND sec LE 2699) sec2=5. IF (sec GE 2700 AND sec LE 2899) sec2=6. IF (sec GE 2900 AND sec LE 3699) sec2=7. IF (sec GE 3600 AND sec LE 3799) sec2=8. missing value sec2 (9). value labels sec2 1 'ELELM. (15,16)' 2 'TEXTIL (17-19)' 3 'FA,PAPIR(20-22)' 4 'VEGYIPAR(23-25)' 5 'NEMFEM ASV.(26)' 6 'KOHASZAT(27,28)' 7 'GEPIPAR (29-35)' 8 'Egyeb F.(36,37)'. comp kshsecc=sec2. comp hsec98c2=sec2. missing value hsec98c2 (9). value labels hsec98c2 1 '15,16' 2 '17-19' 3 '20-22' 4 '23-25' 5 '26' 6 '27,28' 7 '29-35' 8 '36,37'. fre var hsec98c2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2 '23-28,36,37' 3 '29-35'. rename var (hsec98c2=sectorc2). save outfile='C:\WORK\top\tops\data\tops5.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***. ***az 2000/1 top survey, date: from January 2 2000 to February 1 2000***. get file='c:\work\top\2000\1\data\top001_2.sav'. ***technical variables***. comp iwave=1. comp igood=good. fre var igood. comp inum= sorszam. rename var (suly1 = iweight). variable label iweight 'weight of i (2000/1) wave'. comp sector=szakag. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp isector=sector2. missing value isector (9). fre var isector. ***test variables for goodness of fit test***. fre var szakag. comp ikshl99o =lkat. recode ikshl99o (1,2,3=1) (4,5=2) (6=3). value labels ikshl99o 1 '-50 head' 2 '51-250 head' 3 '251- head'. fre var ikshl99o. rename var (expkat = ikshe98o). rename var (szakag = ikshs99c). variable labels ikshl99o 'empl. cat. - CSO'/ ikshe98o 'export turnover cat. - CSO'/ ikshs99c 'sector code (NACE=4) - CSO'. ***ownership links' variables, business links***. comp iin00d =t5. comp iins00i =t5a. if (iins00i gt 90) iins00i=-9. missing value iins00i (-9). fre var iin00d iins00i. comp iindo00i=0. if (t6b1 =1) iindo00i=t6b2. fre var iindo00i. if (t6c1 =1) iindo00i=iindo00i + t6c2. if (t6d1 =1) iindo00i=iindo00i + t6d2. if (t5 ne 1) iindo00i=-9. if (missing(t5)) iindo00i=-9. if (iindo00i gt 70) iindo00i=-9. missing value iindo00i (-9). comp iinma00i=0. if (t6c1 =1) iinma00i=t6c2. if (t6d1 =1) iinma00i=iinma00i + t6d2. if (t5 ne 1) iinma00i=-9. if (missing(t5)) iinma00i=-9. if (iinma00i gt 70) iinma00i=-9. missing value iinma00i (-9). fre var iindo00i iinma00i. variable labels iin00d 'ownership in other comp.?' / iins00i 'numb. of c. owned' / iindo00i 'numb. of c. owned > 25%'/ iinma00i 'numb. of c. owned > 50%'. comp iol00d=9. if (t7 gt 0) iol00d=1. if (t7 = 0) iol00d=0. missing value iol00d (9). fre var iol00d. rename var (t8 =ioli00i). rename var (t9 =iolo00i). fre var iin00d iol00d ioli00i iolo00i. variable labels iol00d 'out-links & bus. links'/ ioli00i 'share of out-links & bus. links in total input'/ iolo00i 'share of out-links & bus. links in total output'. ***Is the firm owned by other firms?***. fre var t3e t3f. crosstabs tables t3e by t3f. comp iow00d=9. if (t3e ge 2) iow00d=1. if (t3f ge 2) iow00d=1. if (t3e = 1 and t3f = 1) iow00d=0. missing value iow00d (9). fre var iow00d. variable labels iow00d 'Is the firms owned by other firms?'. rename var (t3e = ihcom00o) / (t3f = ifore00o). recode ifore00o (1=1)(2,3=2) (4=3) (5=4) (6=5). recode ihcom00o (1=1)(2,3=2) (4=3) (5=4) (6=5). value label ifore00o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label ihcom00o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var ifore00o ihcom00o. ***business links***. comp iil00d=9. if (iow00d = 0) iil00d=9. if (iow00d = 1 and t4 = 1) iil00d=1. if (iow00d = 1 and t4 = 0) iil00d=0. missing value iil00d (9). variable labels iil00d 'in-links & bus. links'. rename var (t4a =iili00i). rename var (t4b =iilo00i). fre var iili00i iilo00i. if (iil00d = 0) iili00i = 0. if (iil00d = 0) iilo00i = 0. if (iow00d = 0) iili00i =-9. if (iow00d = 0) iilo00i =-9. missing value iili00i iilo00i (-9,999). fre var iow00d iil00d iili00i iilo00i. variable label iili00i 'share of in-links & bus. links in total input'/ iilo00i 'share of in-links & bus. links in total output' . comp x1=0. if (ioli00i gt 0) x1=ioli00i. comp x2=0. if (iili00i gt 0) x2=iili00i. comp x12=x1+x2. if (x12 gt 100) x12=100. if (igood =0) x12=9. missing value x12 (9). fre var x12. comp x3=0. if (iolo00i gt 0) x3=iolo00i. comp x4=0. if (iilo00i gt 0) x1=iilo00i. comp x34=x3+x4. if (x34 gt 100) x34=100. if (igood = 0) x34=9. missing value x34 (9). fre var x34. comp ihlr00i= (x12 + x34)/2. fre var ihlr00i. ***variables of financial discipline***. rename var (t72c = ilps00d)/ (t72d = ilpp00d)/ (t72e = ilpt00d)/ (t72f = ilqp00d)/ (t83 = ilpu00i)/. variable labels ilps00d 'late payment to suppliers'/ ilpp00d 'late payment of payroll tax'/ ilpt00d 'late payment of other tax'/ ilqp00d 'liquidity problems' / ilpu00i 'late payment % of purchasers'. ***county, sector, net turnover, export, labor, export ratio***. comp iregi99c=99. if (megye eq 1 or megye eq 13) iregi99c=1. if (megye eq 8 or megye eq 18 or megye eq 20 or megye eq 11 or megye eq 19 or megye eq 7 or megye eq 14 or megye eq 2 or megye eq 17) iregi99c=2. if (megye eq 3 or megye eq 6 or megye eq 4 or megye eq 16 or megye eq 9 or megye eq 15 or megye eq 12 or megye eq 10 or megye eq 7 or megye eq 5) iregi99c=3. Missing value iregi99c (99). value label iregi99c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var iregi99c. comp expr98=t10a2/t10a1*100. comp expr99=t10b2/t10b1*100. comp expr00=t10c2/t10c1*100. if (expr98 gt 100) expr98=100. if (expr99 gt 100) expr99=100. if (expr00 gt 100) expr00=100. rename var (megye = icoun99c) (sector2 = isec99c2)/ (sector = isec99c)/ (expr98 = iexr98i)/ (expr99 = iexr99i)/ (expr00 = iexr00i)/ (exp98 = iexp98i)/ (exp99 = iexp99i)/ (exp00 = iexp00i)/ (q98 = iq98i)/ (q99 = iq99i)/ (q00 = iq00i)/ (l98 = il98i)/ (l99 = il99i)/ (l00 = il00i)/ (t35c = iw99i). variable labels icoun99c 'county code'/ isec99c2 'sector2 code'/ isec99c 'sector code'/ iexr98i 'export share in net turnover, %'/ iexr99i 'export share in net turnover, %'/ iexr00i 'export share in net turnover, %'/ iexp98i 'export turnover in 1998'/ iexp99i 'export turnover in 1999'/ iexp00i 'export turnover in 2000'/ iq98i 'net turnover in 1998'/ iq99i 'net turnover in 1999'/ iq00i 'net turnover in 2000'/ il98i 'empl. in 1998'/ il99i 'empl. in 1999'/ il00i 'empl. in 2000'/ iw99i 'wages in 1999'. ***Export to EU, Export to post-communist countries***. comp ieux00d=0. comp ikgx00d=0. if (t98a = 4) ieux00d=1. if (t98b = 4) ieux00d=1. if (t98c = 4) ieux00d=1. if (t98a = 3 and t98b = 3) ieux00d=1. if (t98b = 3 and t98c = 3) ieux00d=1. if (t98a = 3 and t98c = 3) ieux00d=1. if (t98d = 4) ikgx00d=1. if (t98e = 4) ikgx00d=1. if (t98f =4) ikgx00d=1. if (t98d = 3 and t98e = 3) ikgx00d=1. if (t98e = 3 and t98f = 3) ikgx00d=1. if (t98d = 3 and t98f = 3) ikgx00d=1. comp x=0. if (ieux00d = 1 and ikgx00d=1) x=1. if (x=1) ieux00d=0. if (x=1) ikgx00d=0. variable labels ieux00d 'EU > 50% in the export' / ikgx00d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp iofo00d =klfd. comp iost00d=kozos. comp iohi00d=mmsz. comp ioco00d=mceg. comp iomi00d=vgys. comp ioot00d=egyb. rename var (ttip = ioty00c). variable labels iofo00d 'maj. own: foreign own.' / iost00d 'maj. own: state own.'/ iohi00d 'maj. own: hungarian individual'/ ioco00d 'maj. own: domestic company'/ iomi00d 'mixte own.'/ ioot00d 'other own.'/ ioty00c 'ownership type'. ***dinamic variables***. comp dexp9=iexp99i/iexp98i*100. fre var dexp9 dexp0. comp dw00=t36c. rename var (dq9 = idq99i)/ (dq0 = idq00i)/ (dl9 = idl99i)/ (dl0 = idl00i)/ (dw00 = idw00i)/ (t58 = idi99o)/ (t66 = idi00o)/ (dexp9 = idex99i)/ (dexp0 = idex00i). variable labels idq99i 'total net turnover 98/97'/ idq00i 'total net turnover 99/98'/ idl99i 'numb. of empl. 99/98'/ idl00i 'numb. of empl. 00/99'/ idw00i 'wages 00/99, %'/ idi99o 'investment activity 99/98'/ idi00o 'investment activity 00/99' / idex99i 'export turnover 99/98, %' / idex00i 'export turnover 00/99, %'. ***investment***. comp inv00=0. if (t60a =1) inv00=1. if (t60b =1) inv00=1. if (t60c =1) inv00=1. if (t60d =1) inv00=1. if (t60e =1) inv00=1. if (t60f =1) inv00=1. if (t60g =1) inv00=1. fre var inv00. rename var (inv00 = ii99d)/ (t61d1 = ii98i)/ (t61d2 = ii99i). variable label ii99d 'investment in 1999' / ii98i 'amount of investment in 1998'/ ii99i 'amount of investment in 1999'. ****other variables***. rename var (p8o = ipro98o)/ (p9o = ipro99o)/ (p0o = ipro00o)/ (t43 = icapu00i)/ (ch = icbs00o) / (t105 = icebs00o). missing value t55 (999). comp ifosu00i=100-t55. variable labels ipro98o 'profit/zero/loss'/ ipro99o 'profit/zero/loss'/ ipro00o 'profit/zero/loss'/ icapu00i 'capacity utilisation, %'/ icbs00o 'company business situation' / icebs00o 'comp. exp. bus. situation next 6 months'/ ifosu00i 'share of foreign suppliers'. fre var t78. comp iimr00i=t78. save outfile='C:\WORK\top\tops\data\top001.sav' /keep kshkod igood isector inum iwave iweight ikshl99o ikshe98o ikshs99c isec99c isec99c2 iregi99c icoun99c il98i il99i il00i iq98i iq99i iq00i iw99i iexp98i iexp99i iexp00i idq99i idq00i idl99i idl00i idw00i idi99o idi00o idex99i idex00i iexr98i iexr99i iexr00i ii99d ii98i ii99i ioty00c iofo00d iost00d iohi00d ioco00d iomi00d ioot00d iow00d ihcom00o ifore00o iin00d iins00i iindo00i iinma00i iol00d ioli00i iolo00i iil00d iili00i iilo00i ilps00d ilpp00d ilpt00d ilqp00d ilpu00i ieux00d ikgx00d ipro98o ipro99o ipro00o icapu00i icbs00o icebs00o ifosu00i iimr00i ihlr00i /comp. ***puting income statement data***. get file='C:\WORK\top\tops\data\top001.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top001.sav' /comp. match files file='C:\WORK\top\tops\data\top001.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var iwave. sel if iwave=1. save outfile='C:\WORK\top\tops\data\top001x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top001x.sav'. comp inix=0. if (iili00i gt 0) inix=iili00i. comp inox=0. if (iilo00i gt 0) inox=iilo00i. comp onix=0. if (ioli00i gt 0) onix=ioli00i. comp onox=0. if (iolo00i gt 0) onox=iolo00i. comp x1=inix + onix. if (x1 gt 100) x1=100. comp x2=inox + onox. if (x2 gt 100) x2=100. comp inoniox=(x1 + x2)/2. fre var inix inox onix onox. if (inoniox gt 100) inoniox=100. fre var inoniox. comp inonioxo=inoniox. recode inonioxo (0=0) (0.0001 thru 20=1) (20.0001 thru 80=2) (80.0001 thru hi=3). fre var inonioxo. comp y=$casenum. comp wave=9. comp dlt10i =il99i/il98i. comp dlt21i =il00i/il99i. comp dqt10i =iq99i/iq98i. comp dqt21i =iq00i/iq99i. comp dexpt10i =iexp99i/iexp98i. comp latepyi=ilpu00i. fre var iow00d iol00d iil00d. comp x=0. if (missing(iow00d))x=1. if (x=1 and igood=1) iow00d=0. fre var iow00d. recode iin00d (1=1)(2=0). comp code=9000000 + y. rename var (igood=good)/ (isec99c=sectorc)/ (isec99c2=sectorc2)/ (il99i =labort1i)/ (iq99i =nturt1i)/ (iexp99i=export1i)/ (idi99o =invacto)/ (ilps00d=lpsupld)/ (ilpp00d=lpptaxd) (ilpt00d =lpotaxd) (ilqp00d=liqprod)/ (iin00d =incompd)/ (iow00d=owcompd)/ (iol00d =oulbld)/ (iil00d =inlbld)/ (iexr99i=exprati)/ (ieux00d=euexpd)/ (ikgx00d=kgexpd)/ (ifore00o=foreigo)/ (ihcom00o=hcompo)/ (ioty00c =owntypec)/ (iofo00d =foreigd)/ (iost00d =publicd)/ (iohi00d =hungindd)/ (ioco00d =hcompd)/ (iomi00d =mixted)/ (ioot00d =otherd) / (isector =sector)/ (iimr00i =importri)/ (iregi99c =regioc). rename var (ikshe98o=kshexpo)/ (ikshl99o=kshlabo). comp kshsecc=sectorc2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2 '23-28,36,37' 3 '29-35'. save outfile='C:\WORK\top\tops\data\tops6.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***. ***2000/2 top survey, date: from June 23 2000 to July 24 2000***. get file='c:\work\top\2000\2\data\top002_1.sav'. ***technical variables***. comp jwave=1. comp jgood=good. fre var jgood. comp jnum= sorszam. rename var (suly1 = jweight). variable label jweight 'weight of j (2000/2) wave'. comp sector=szakag. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp jsector=sector2. missing value jsector (9). fre var jsector. ***test variables for goodness of fit test***. fre var szakag. comp jkshl99o =lab98. recode jkshl99o (1,2,3=1) (4,5=2) (6=3). value labels jkshl99o 1 '-50 head' 2 '51-250 head' 3 '251- head'. fre var jkshl99o. rename var (expk98 = jkshe98o). rename var (szakag = jkshs99c). variable labels jkshl99o 'empl. cat. - CSO'/ jkshe98o 'export turnover cat. - CSO'/ jkshs99c 'sector code (NACE=4) - CSO'. ***Is the firm owned by other firms?***. comp jow00d=9. if (o3e ge 1) jow00d=1. if (o3f ge 1) jow00d=1. if (o3e = 0 and o3f = 0) jow00d=0. missing value jow00d (9). fre var jow00d. variable labels jow00d 'Is the firm owned by other firms?'. rename var (o3e = jhcom00o) / (o3f = jfore00o). recode jfore00o (1=1)(2,3=2) (4=3) (5=4) (6=5). recode jhcom00o (1=1)(2,3=2) (4=3) (5=4) (6=5). value label jfore00o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label jhcom00o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. fre var jfore00o jhcom00o. ***variables of financial discipline***. rename var (o61c = jlps00d)/ (o61d = jlpp00d)/ (o61e = jlpt00d)/ (o61f = jlqp00d)/ (o71 = jlpu00i)/. variable labels jlps00d 'late payment to suppliers'/ jlpp00d 'late payment of payroll tax'/ jlpt00d 'late payment of other tax'/ jlqp00d 'liquidity problems' / jlpu00i 'late payment % of purchasers'. ***county, sector, net turnover, export, labor, export ratio***. comp jregi99c=99. if (megy98 eq 1 or megy98 eq 13) jregi99c=1. if (megy98 eq 8 or megy98 eq 18 or megy98 eq 20 or megy98 eq 11 or megy98 eq 19 or megy98 eq 7 or megy98 eq 14 or megy98 eq 2 or megy98 eq 17) jregi99c=2. if (megy98 eq 3 or megy98 eq 6 or megy98 eq 4 or megy98 eq 16 or megy98 eq 9 or megy98 eq 15 or megy98 eq 12 or megy98 eq 10 or megy98 eq 7 or megy98 eq 5) jregi99c=3. Missing value jregi99c (99). value label jregi99c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var jregi99c. comp expr98=o4a2/o4a1*100. comp expr99=o4b2/o4b1*100. comp expr00=o4c2/o4c1*100. if (expr98 gt 100) expr98=100. if (expr99 gt 100) expr99=100. if (expr00 gt 100) expr00=100. rename var (megy98 = jcoun99c) (sector2 = jsec99c2)/ (sector = jsec99c)/ (expr98 = jexr98i)/ (expr99 = jexr99i)/ (expr00 = jexr00i)/ (exp98 = jexp98i)/ (exp99 = jexp99i)/ (exp00 = jexp00i)/ (q98 = jq98i)/ (q99 = jq99i)/ (q00 = jq00i)/ (l99 = jl99i)/ (l00 = jl00i). variable labels jcoun99c 'county code'/ jsec99c2 'sector2 code'/ jsec99c 'sector code'/ jexr98i 'export share in net turnover, %'/ jexr99i 'export share in net turnover, %'/ jexr00i 'export share in net turnover, %'/ jexp98i 'export turnover in 1998'/ jexp99i 'export turnover in 1999'/ jexp00i 'export turnover in 2000'/ jq98i 'net turnover in 1998'/ jq99i 'net turnover in 1999'/ jq00i 'net turnover in 2000'/ jl99i 'empl. in 1999'/ jl00i 'empl. in 2000'. ***Export to EU, Export to post-communist countries***. comp jeux00d=0. comp jkgx00d=0. if (o82a = 4) jeux00d=1. if (o82b = 4) jeux00d=1. if (o82c = 4) jeux00d=1. if (o82a = 3 and o82b = 3) jeux00d=1. if (o82b = 3 and o82c = 3) jeux00d=1. if (o82a = 3 and o82c = 3) jeux00d=1. if (o82d = 4) jkgx00d=1. if (o82e = 4) jkgx00d=1. if (o82f = 4) jkgx00d=1. if (o82d = 3 and o82e = 3) jkgx00d=1. if (o82e = 3 and o82f = 3) jkgx00d=1. if (o82d = 3 and o82f = 3) jkgx00d=1. comp x=0. if (jeux00d = 1 and jkgx00d=1) x=1. if (x=1) jeux00d=0. if (x=1) jkgx00d=0. variable labels jeux00d 'EU > 50% in the export' / jkgx00d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp jofo00d =klfd. comp jost00d=kozos. comp johi00d=mmsz. comp joco00d=mceg. comp jomi00d=vgys. comp joot00d=egyb. rename var (ttip = joty00c). variable labels jofo00d 'maj. own: foreign own.' / jost00d 'maj. own: state own.'/ johi00d 'maj. own: hungarian individual'/ joco00d 'maj. own: domestic company'/ jomi00d 'mixte own.'/ joot00d 'other own.'/ joty00c 'ownership type'. ***dinamic variables***. comp dw00=o26c. rename var (dq9 = jdq99i)/ (dq0 = jdq00i)/ (dl90 = jdl00i)/ (dw00 = jdw00i)/ (o58 = jdi00o)/ (dexp9 = jdex99i)/ (dexp0 = jdex00i). variable labels jdq99i 'total net turnover 98/97'/ jdq00i 'total net turnover 99/98'/ jdl00i 'numb. of empl. 00/99'/ jdw00i 'wages 00/99, %'/ jdi00o 'investment activity 00/99' / jdex99i 'export turnover 99/98, %' / jdex00i 'export turnover 00/99, %'. ***investment***. comp inv00=0. if (o49a =1) inv00=1. if (o49b =1) inv00=1. if (o49c =1) inv00=1. if (o49d =1) inv00=1. if (o49e =1) inv00=1. if (o49f =1) inv00=1. if (o49g =1) inv00=1. fre var inv00. rename var (inv00 = ji00d)/ (o50d1 = ji99i)/ (o50d2 = ji00i). variable label ji00d 'investment in 1999' / ji99i 'amount of investment in 1998'/ ji00i 'amount of investment in 1999'. ****other variables***. rename var (o5 = jpro98o)/ (o6 = jpro99o)/ (o9 = jpro00o)/ (o33 = jcapu00i)/ (o89 = jcbs00o) / (o90 = jcebs00o). missing value o55 (999). comp jfosu00i=100-o55. fre var o66. comp jimr00i=o66. comp jhlr00i =-9. variable labels jpro98o 'profit/zero/loss'/ jpro99o 'profit/zero/loss'/ jpro00o 'profit/zero/loss'/ jcapu00i 'capacity utilisation, %'/ jcbs00o 'company business situation' / jcebs00o 'comp. exp. bus. situation next 6 months'/ jfosu00i 'share of foreign suppliers'. save outfile='C:\WORK\top\tops\data\top002.sav' /keep kshkod jgood jsector jnum jwave jweight jkshl99o jkshe98o jkshs99c jsec99c jsec99c2 jregi99c jcoun99c jl99i jl00i jq98i jq99i jq00i jexp98i jexp99i jexp00i jdq99i jdq00i jdl00i jdw00i jdi00o jdex99i jdex00i jexr98i jexr99i jexr00i ji00d ji99i ji00i joty00c jofo00d jost00d johi00d joco00d jomi00d joot00d jow00d jhcom00o jfore00o jlps00d jlpp00d jlpt00d jlqp00d jlpu00i jeux00d jkgx00d jpro98o jpro99o jpro00o jcapu00i jcbs00o jcebs00o jfosu00i jimr00i jhlr00i /comp. ***income statement data***. get file='C:\WORK\top\tops\data\top002.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top002.sav' /comp. match files file='C:\WORK\top\tops\data\top002.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var jwave. sel if jwave=1. save outfile='C:\WORK\top\tops\data\top002x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top002x.sav'. comp inoniox=-9. comp inonioxo=-9. comp y=$casenum. comp wave=10. comp dlt10i =jl00i/jl99i. comp dlt21i =-9. comp dqt10i =jq00i/jq99i. comp dqt21i =-9. comp dexpt10i =jexp00i/jexp99i. comp latepyi=jlpu00i. comp code=10000000 + y. comp incompd=-9. comp owcompd=-9. comp oulbld=-9. comp inlbld=-9. rename var (jgood=good)/ (jsec99c=sectorc)/ (jsec99c2=sectorc2)/ (jl99i =labort1i)/ (jq99i =nturt1i)/ (jexp99i=export1i)/ (jdi00o =invacto)/ (jlps00d=lpsupld)/ (jlpp00d=lpptaxd) (jlpt00d= lpotaxd) (jlqp00d=liqprod)/ (jexr99i=exprati)/ (jeux00d=euexpd)/ (jkgx00d=kgexpd)/ (jfore00o=foreigo)/ (jhcom00o=hcompo)/ (joty00c =owntypec)/ (jofo00d =foreigd)/ (jost00d =publicd)/ (johi00d =hungindd)/ (joco00d =hcompd)/ (jomi00d =mixted)/ (joot00d =otherd) / (jsector =sector)/ (jimr00i =importri)/ (jregi99c =regioc). rename var (jkshe98o=kshexpo)/ (jkshl99o=kshlabo). comp kshsecc=sectorc2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). variable labels kshsecc 1'15-22' 2 '23-28,36,37' 3 '29-35'. save outfile='C:\WORK\top\tops\data\tops7.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. ***2001/1 top survey, date: from January 1 2001 to January 31 2001***. get file='c:\work\top\2001\1\data\top011_1.sav'. sel if (top1500=1). ***technical variables***. comp kwave=1. comp kgood=good. fre var kgood. comp knum= sorsz011. rename var (suly1 = kweight). variable label kweight 'weight of k (2001/1) wave'. comp sector= nace. COMP SECTOR2=9. IF (SECTOR GE 1500 AND SECTOR LE 1599) SECTOR2=15. IF (SECTOR GE 1600 AND SECTOR LE 1699) SECTOR2=16. IF (SECTOR GE 1700 AND SECTOR LE 1799) SECTOR2=17. IF (SECTOR GE 1800 AND SECTOR LE 1899) SECTOR2=18. IF (SECTOR GE 1900 AND SECTOR LE 1999) SECTOR2=19. IF (SECTOR GE 2000 AND SECTOR LE 2099) SECTOR2=20. IF (SECTOR GE 2100 AND SECTOR LE 2199) SECTOR2=21. IF (SECTOR GE 2200 AND SECTOR LE 2299) SECTOR2=22. IF (SECTOR GE 2300 AND SECTOR LE 2399) SECTOR2=23. IF (SECTOR GE 2400 AND SECTOR LE 2499) SECTOR2=24. IF (SECTOR GE 2500 AND SECTOR LE 2599) SECTOR2=25. IF (SECTOR GE 2600 AND SECTOR LE 2699) SECTOR2=26. IF (SECTOR GE 2700 AND SECTOR LE 2799) SECTOR2=27. IF (SECTOR GE 2800 AND SECTOR LE 2899) SECTOR2=28. IF (SECTOR GE 2900 AND SECTOR LE 2999) SECTOR2=29. IF (SECTOR GE 3000 AND SECTOR LE 3099) SECTOR2=30. IF (SECTOR GE 3100 AND SECTOR LE 3199) SECTOR2=31. IF (SECTOR GE 3200 AND SECTOR LE 3299) SECTOR2=32. IF (SECTOR GE 3300 AND SECTOR LE 3399) SECTOR2=33. IF (SECTOR GE 3400 AND SECTOR LE 3499) SECTOR2=34. IF (SECTOR GE 3500 AND SECTOR LE 3599) SECTOR2=35. IF (SECTOR GE 3600 AND SECTOR LE 3699) SECTOR2=36. IF (SECTOR GE 3700 AND SECTOR LE 3799) SECTOR2=37. comp ksector=sector2. missing value ksector (9). fre var ksector. ***test variables for goodness of fit test***. fre var nace. comp kkshl00o =lab99. recode kkshl00o (1,2,3=1) (4,5=2) (6=3). value labels kkshl00o 1 '-49 head' 2 '50-249 head' 3 '250- head'. fre var kkshl00o. rename var (expk99 = kkshe99o). rename var (nace = kkshs00c). variable labels kkshl00o 'empl. cat. - CSO'/ kkshe99o 'export turnover cat. - CSO'/ kkshs00c 'sector code (NACE=4) - CSO'. ***ownership links' variables***. fre var top1500. ***. filter by good. comp x=0. if ( p3e gt 1) x=1. fre var p5. comp y=0. if (p5=1) y=1. crosstabs tables y by x/cells count total. OK***. missing value p5a (99). comp kin01d =p5. comp kins01i =p5a. fre var kins01i. missing value kins01i (-9). fre var kin01d kins01i. comp kindo01i=0. if (p6b1 =1) kindo01i=p6b2. fre var kindo01i. if (p6c1 =1) kindo01i=kindo01i + p6c2. if (p6d1 =1) kindo01i=kindo01i + p6d2. if (p5 ne 1) kindo01i=-9. if (missing(p5)) kindo01i=-9. fre var kindo01i. missing value kindo01i (-9). comp kinma01i=0. if (p6c1 =1) kinma01i=p6c2. if (p6d1 =1) kinma01i=kinma01i + p6d2. if (p5 ne 1) kinma01i=-9. if (missing(p5)) kinma01i=-9. missing value kinma01i (-9). fre var kindo01i kinma01i. variable labels kin01d 'ownership in other comp.?' / kins01i 'numb. of c. owned' / kindo01i 'numb. of c. owned > 25%'/ kinma01i 'numb. of c. owned > 50%'. ***business links***. comp kol01d=9. if (p7 gt 0) kol01d=1. if (p7 = 0) kol01d=0. missing value kol01d (9). fre var kol01d. missing value p8 p9 (999). rename var (p8 =koli01i). rename var (p9 =kolo01i). fre var kin01d kol01d koli01i kolo01i. variable labels kol01d 'out-links & bus. links'/ koli01i 'share of out-links & bus. links in total input'/ kolo01i 'share of out-links & bus. links in total output'. ***Is the firm owned by other firms?***. comp kow01d=9. fre var p3e p3f. if (p3e ge 2) kow01d=1. if (p3f ge 2) kow01d=1. if (p3e = 1 and p3f = 1) kow01d=0. missing value kow01d (9). variable labels kow01d 'Is the firm owned by other firms?'. fre var kow01d. fre var p3e p3f. rename var (p3e = khcom01o) / (p3f = kfore01o). recode kfore01o (1=1) (2,3=2) (4=3) (5=4) (6=5). recode khcom01o (1=1) (2,3=2) (4=3) (5=4) (6=5). value label kfore01o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. value label khcom01o 1 'none' 2 'bellow 25%' 3 '25-49%' 4 '50-74%' 5 'above 75%'. ****business links***. comp kil01d=9. if (kow01d = 0) kil01d=9. if (kow01d = 1 and p4 = 1) kil01d=1. if (kow01d = 1 and p4 = 0) kil01d=0. missing value kil01d (9). variable labels kil01d 'in-links & bus. links'. missing value p41 p42 (999). fre var p41 p42. rename var (p41 =kili01i). rename var (p42 =kilo01i). if (kil01d = 0) kili01i = 0. if (kil01d = 0) kilo01i = 0. if (kow01d = 0) kili01i =-9. if (kow01d = 0) kilo01i =-9. missing value kili01i kilo01i (-9,999). fre var kow01d kil01d kili01i kilo01i. variable label kili01i 'share of in-links & bus. links in total input'/ kilo01i 'share of in-links & bus. links in total output' . comp x1=0. if (koli01i gt 0) x1=koli01i. comp x2=0. if (kili01i gt 0) x2=kili01i. comp x12=x1+x2. if (x12 gt 100) x12=100. if (kgood =0) x12=9. missing value x12 (9). fre var x12. comp x3=0. if (kolo01i gt 0) x3=kolo01i. comp x4=0. if (kilo01i gt 0) x1=kilo01i. comp x34=x3+x4. if (x34 gt 100) x34=100. if (kgood = 0) x34=9. missing value x34 (9). fre var x34. comp khlr01i= (x12 + x34)/2. fre var khlr01i. ***variables of financial discipline***. rename var (p74c = klps01d)/ (p74d = klpp01d)/ (p74e = klpt01d)/ (p74f = klqp01d)/ (p84 = klpu01i)/. variable labels klps01d 'late payment to suppliers'/ klpp01d 'late payment of payroll tax'/ klpt01d 'late payment of other tax'/ klqp01d 'liquidity problems' / klpu01i 'late payment % of purchasers'. ***county, sector, net turnover, export, labor, export ratio***. comp kregi00c=99. if (megy99 eq 1 or megy99 eq 13) kregi00c=1. if (megy99 eq 8 or megy99 eq 18 or megy99 eq 20 or megy99 eq 11 or megy99 eq 19 or megy99 eq 7 or megy99 eq 14 or megy99 eq 2 or megy99 eq 17) kregi00c=2. if (megy99 eq 3 or megy99 eq 6 or megy99 eq 4 or megy99 eq 16 or megy99 eq 9 or megy99 eq 15 or megy99 eq 12 or megy99 eq 10 or megy99 eq 7 or megy99 eq 5) kregi00c=3. Missing value kregi00c (99). value label kregi00c 1 'Central (Bp. + Pest)' 2 'West-Hungary' 3 'East- or North Hungary'. fre var kregi00c. comp expr99=p11a2/p11a1*100. comp expr00=p11b2/p11b1*100. comp expr01=p11c2/p11c1*100. if (expr99 gt 100) expr99=100. if (expr00 gt 100) expr00=100. if (expr01 gt 100) expr01=100. rename var (megy99 = kcoun00c) (sector2 = ksec00c2)/ (sector = ksec00c)/ (expr99 = kexr99i)/ (expr00 = kexr00i)/ (expr01 = kexr01i)/ (exp99 = kexp99i)/ (exp00 = kexp00i)/ (exp01 = kexp01i)/ (q99 = kq99i)/ (q00 = kq00i)/ (q01 = kq01i)/ (l99 = kl99i)/ (l00 = kl00i)/ (l01 = kl01i)/ (p41c = kw00i). variable labels kcoun00c 'county code'/ ksec00c2 'sector2 code'/ ksec00c 'sector code'/ kexr99i 'export share in net turnover, %'/ kexr00i 'export share in net turnover, %'/ kexr01i 'export share in net turnover, %'/ kexp99i 'export turnover in 1999'/ kexp00i 'export turnover in 2000'/ kexp01i 'export turnover in 2001'/ kq99i 'net turnover in 1999'/ kq00i 'net turnover in 2000'/ kq01i 'net turnover in 2001'/ kl99i 'empl. in 1999'/ kl00i 'empl. in 2000'/ kl01i 'empl. in 2001'/ kw00i 'wages in 2000'. ***Export to EU, Export to post-communist countries***. comp keux01d=0. comp kkgx01d=0. if (p95a = 4) keux01d=1. if (p95b = 4) keux01d=1. if (p95c = 4) keux01d=1. if (p95a = 3 and p95b = 3) keux01d=1. if (p95b = 3 and p95c = 3) keux01d=1. if (p95a = 3 and p95c = 3) keux01d=1. if (p95d = 4) kkgx01d=1. if (p95e = 4) kkgx01d=1. if (p95f = 4) kkgx01d=1. if (p95d = 3 and p95e = 3) kkgx01d=1. if (p95e = 3 and p95f = 3) kkgx01d=1. if (p95d = 3 and p95f = 3) kkgx01d=1. comp x=0. if (keux01d = 1 and kkgx01d=1) x=1. if (x=1) keux01d=0. if (x=1) kkgx01d=0. variable labels keux01d 'EU > 50% in the export' / kkgx01d 'ex-COMECOM > 50% in the export' . ***type of majority owner***. comp kofo01d =klfd. comp kost01d=kozos. comp kohi01d=mmsz. comp koco01d=mceg. comp komi01d=vgys. comp koot01d=egyb. rename var (ttip = koty01c). variable labels kofo01d 'maj. own: foreign own.' / kost01d 'maj. own: state own.'/ kohi01d 'maj. own: hungarian individual'/ koco01d 'maj. own: domestic company'/ komi01d 'mixte own.'/ koot01d 'other own.'/ koty01c 'ownership type'. ***dinamic variables***. comp dw01=p42c. rename var (dq0 = kdq00i)/ (dq1 = kdq01i)/ (dl90 = kdl00i)/ (dl01 = kdl01i)/ (dw01 = kdw01i)/ (p69 = kdi01o)/ (dexp0 = kdex00i)/ (dexp1 = kdex01i). variable labels kdq00i 'total net turnover 00/99'/ kdq01i 'total net turnover 01/00'/ kdl00i 'numb. of empl. 00/99'/ kdl01i 'numb. of empl. 01/00'/ kdw01i 'wages 01/00, %'/ kdi01o 'investment activity 01/00' / kdex00i 'export turnover 00/99, %' / kdex01i 'export turnover 01/00, %'. ***investment***. comp inv00=0. if (p63a =1) inv00=1. if (p63b =1) inv00=1. if (p63c =1) inv00=1. if (p63d =1) inv00=1. if (p63e =1) inv00=1. if (p63f =1) inv00=1. if (p63g =1) inv00=1. fre var inv00. rename var (inv00 = ki00d)/ (p64a = ki99i)/ (p64b = ki00i). variable label ki00d 'investment in 2000 II. half' / ki99i 'amount of investment in 1999'/ ki00i 'amount of investment in 2000'. ****other variables***. rename var (p12 = kpro99o)/ (p13 = kpro00o)/ (p18 = kpro01o)/ (p48 = kcapu01i)/ (p101= kcbs01o) / (p102= kcebs01o). fre var p58. missing value p58 (999). comp kfosu01i=100-p58. fre var p81. missing value p81 (-9). comp kimr01i=p81. variable labels kpro99o 'profit/zero/loss'/ kpro00o 'profit/zero/loss'/ kpro01o 'profit/zero/loss'/ kcapu01i 'capacity utilisation, %'/ kcbs01o 'company business situation' / kcebs01o 'comp. exp. bus. situation next 6 months'/ kfosu01i 'share of foreign suppliers'. save outfile='C:\WORK\top\tops\data\top011.sav' /keep kshkod kgood ksector knum kwave kweight kkshl00o kkshe99o kkshs00c ksec00c ksec00c2 kregi00c kcoun00c kl99i kl00i kl01i kq99i kq00i kq01i kw00i kexp99i kexp00i kexp01i kdq00i kdq01i kdl00i kdl01i kdw01i kdi01o kdex00i kdex01i kexr99i kexr00i kexr01i ki00d ki99i ki00i koty01c kofo01d kost01d kohi01d koco01d komi01d koot01d kow01d khcom01o kfore01o kin01d kins01i kindo01i kinma01i kol01d koli01i kolo01i kil01d kili01i kilo01i klps01d klpp01d klpt01d klqp01d klpu01i keux01d kkgx01d kpro99o kpro00o kpro01o kcapu01i kcbs01o kcebs01o kfosu01i kimr01i khlr01i kregi00c /comp. ***income statement data***. get file='C:\WORK\top\tops\data\top011.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top011.sav' /comp. match files file='C:\WORK\top\tops\data\top011.sav' /file='C:\WORK\top\tops\data\t96_99.sav' /by kshkod. fre var tijtop. fre var kwave. sel if kwave=1. save outfile='C:\WORK\top\tops\data\top011x.sav' /drop tijtop /comp. ***to make mached file***. get file='C:\WORK\top\tops\data\top011x.sav'. comp inix=0. if (kili01i gt 0) inix=kili01i. comp inox=0. if (kilo01i gt 0) inox=kilo01i. comp onix=0. if (koli01i gt 0) onix=koli01i. comp onox=0. if (kolo01i gt 0) onox=kolo01i. comp x1=inix + onix. if (x1 gt 100) x1=100. comp x2=inox + onox. if (x2 gt 100) x2=100. comp inoniox= (x1 + x2)/2. fre var inix inox onix onox. fre var inoniox. comp inonioxo=inoniox. recode inonioxo (0=0) (0.0001 thru 20=1) (20.0001 thru 80=2) (80.0001 thru hi=3). fre var inonioxo. comp y=$casenum. comp wave=11. comp dlt10i =kl00i/kl99i. comp dlt21i =kl01i/kl00i. comp dqt10i =kq00i/kq99i. comp dqt21i =kq01i/kq00i. comp dexpt10i =kexp00i/kexp99i. comp latepyi=klpu01i. comp code=11000000 + y. comp mixted=-9. rename var (kgood=good)/ (ksec00c=sectorc)/ (ksec00c2=sectorc2)/ (kl00i =labort1i)/ (kq00i =nturt1i)/ (kexp00i=export1i)/ (kdi01o =invacto)/ (klps01d=lpsupld)/ (klpp01d=lpptaxd) (klpt01d=lpotaxd) (klqp01d=liqprod)/ (kin01d =incompd)/ (kow01d =owcompd)/ (kol01d =oulbld)/ (kil01d =inlbld)/ (kexr00i=exprati)/ (keux01d=euexpd)/ (kkgx01d=kgexpd)/ (kfore01o=foreigo)/ (khcom01o=hcompo)/ (koty01c =owntypec)/ (kofo01d =foreigd)/ (kost01d =publicd)/ (kohi01d =hungindd)/ (koco01d =hcompd)/ (koot01d =otherd)/ (ksector =sector)/ (kimr01i =importri)/ (kregi00c =regioc). rename var (kkshe99o=kshexpo)/ (kkshl00o=kshlabo). comp kshsecc=sectorc2. recode kshsecc (1,2,3=1) (4,5,6,8=2) (7=3). value labels kshsecc 1'15-22' 2 '23-28,36,37' 3 '29-35'. comp x=0. if (missing(owcompd))x=1. if (good = 1 and x=1) owcompd=0. fre var owcompd. recode incompd (1=1) (2=0). save outfile='C:\WORK\top\tops\data\tops8.sav' /keep kshkod wave code good kshlabo kshexpo kshsecc sector sectorc sectorc2 invacto labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i lpsupld lpptaxd lpotaxd liqprod latepyi exprati incompd owcompd oulbld inlbld inoniox inonioxo euexpd kgexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc fogl97 jegyt97 allt97 onkt97 bfma97 bftars97 mrp97 kulft97 szovt97 egyebt97 targye97 reszes97 eszkoz97 holek97 rolek97 exp97 arbe97 anyje97 szemje97 amort97 uzered97 fogl98 jegyt98 allt98 onkt98 bfma98 bftars98 mrp98 kulft98 szovt98 egyebt98 targye98 reszes98 eszkoz98 holek98 rolek98 exp98 arbe98 anyje98 szemje98 amort98 uzered98 fogl99 jegyt99 allt99 onkt99 bfma99 bftars99 mrp99 kulft99 szovt99 egyebt99 targye99 reszes99 eszkoz99 holek99 rolek99 exp99 arbe99 anyje99 szemje99 amort99 uzered99 /comp. get file='C:\WORK\top\tops\data\tops1.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops1.sav' /comp. get file='C:\WORK\top\tops\data\tops2.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops2.sav' /comp. get file='C:\WORK\top\tops\data\tops3.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops3.sav' /comp. get file='C:\WORK\top\tops\data\tops4.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops4.sav' /comp. get file='C:\WORK\top\tops\data\tops5.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops5.sav' /comp. get file='C:\WORK\top\tops\data\tops6.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops6.sav' /comp. get file='C:\WORK\top\tops\data\tops7.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops7.sav' /comp. get file='C:\WORK\top\tops\data\tops8.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\tops8.sav' /comp. get file='C:\WORK\top\tops\data\top96x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top96x.sav' /comp. get file='C:\WORK\top\tops\data\top981x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top981x.sav' /comp. get file='C:\WORK\top\tops\data\top982x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top982x.sav' /comp. get file='C:\WORK\top\tops\data\top983x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top983x.sav' /comp. get file='C:\WORK\top\tops\data\top991x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top991x.sav' /comp. get file='C:\WORK\top\tops\data\top001x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top001x.sav' /comp. get file='C:\WORK\top\tops\data\top002x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top002x.sav' /comp. get file='C:\WORK\top\tops\data\top011x.sav'. sort cases by kshkod. save outfile='C:\WORK\top\tops\data\top011x.sav' /comp. ***data set matching by HCSO codes***. match files file='C:\WORK\top\tops\data\top96x.sav' /file='C:\WORK\top\tops\data\top981x.sav' /file='C:\WORK\top\tops\data\top982x.sav' /file='C:\WORK\top\tops\data\top983x.sav' /file='C:\WORK\top\tops\data\top991x.sav' /file='C:\WORK\top\tops\data\top001x.sav' /file='C:\WORK\top\tops\data\top002x.sav' /file='C:\WORK\top\tops\data\top011x.sav' /by kshkod. fre var dwave. comp goods=0. if (dgood = 1 or egood=1 or fgood=1 or ggood=1 or hgood=1 or igood=1 or jgood=1 or kgood=1) goods=1. fre var goods. save outfile='C:\WORK\top\tops\data\top9601.sav' /comp. ***codes***. save outfile='C:\WORK\top\tops\data\topkod.sav' /keep kshkod /comp. ***adding files (surveys) from tops1 to tops8***. add files file='C:\WORK\top\tops\data\tops1.sav' /file='C:\WORK\top\tops\data\tops2.sav' /file='C:\WORK\top\tops\data\tops3.sav' /file='C:\WORK\top\tops\data\tops4.sav' /file='C:\WORK\top\tops\data\tops5.sav' /file='C:\WORK\top\tops\data\tops6.sav' /file='C:\WORK\top\tops\data\tops7.sav' /file='C:\WORK\top\tops\data\tops8.sav' /by kshkod. ***missing values, labels***. fre var wave. fre var good. comp x=0. if (sysmis(good))x=1. fre var x. if (x = 1) good=0. fre var good. if (latepyi = -9) latepyi=999. if (latepyi = 888) latepyi=999. if (otherd = 9) otherd=-9. if (good=0) euexpd=9. if (good=0) kgexpd=9. missing value sectorc2 invacto lpsupld lpptaxd lpotaxd liqprod euexpd kgexpd hcompo (9)/ kshlabo kshexpo mixted otherd (-9). variable labels kshsecc 'ksh sector'. value labels kshsecc 1'15-22' 2 '23-28,36,37' 3 '29-35'. missing value kshsecc (9) /nturt1i export1i dlt21i dqt21i dexpt10i (-9) /latepyi (99, 999) / inlbld oulbld incompd owcompd (-9, 9). recode lpsupld (1=1) (0=0) (2=0). recode lpptaxd (1=1) (0=0) (2=0). recode lpotaxd (1=1) (0=0) (2=0). recode liqprod (1=1) (0=0) (2=0). fre var good kshlabo kshexpo kshsecc sectorc invacto. fre var labort1i nturt1i export1i dlt10i dlt21i dqt10i dqt21i dexpt10i/format notables/stat all. fre var lpsupld lpptaxd lpotaxd liqprod latepyi. fre var euexpd kgexpd. fre var foreigo hcompo. fre var owntypec. fre var foreigd publicd hungindd hcompd mixted otherd. fre var incompd owcompd oulbld inlbld. format lpsupld lpptaxd lpotaxd liqprod latepyi (f8.5). missing value oulbld inlbld ( ). recode oulbld (-9=9) / inlbld (-9=9). missing value oulbld inlbld (9). comp buslinks=9. if (oulbld = 1) buslinks=1. if (inlbld = 1) buslinks=1. if (oulbld = 0 and inlbld = 0) buslinks=0. missing value buslinks (9). fre var buslinks. COMP sector2=9. IF (sector GE 15 AND sector LE 16) sector2=1. IF (sector GE 17 AND sector LE 19) sector2=2. IF (sector GE 20 AND sector LE 22) sector2=3. IF (sector GE 23 AND sector LE 25) sector2=4. IF (sector GE 26 AND sector LE 26) sector2=5. IF (sector GE 27 AND sector LE 28) sector2=6. IF (sector GE 29 AND sector LE 36) sector2=7. IF (sector GE 36 AND sector LE 37) sector2=8. missing value sector2 (9). variable labels sector2 'sector (NACE)' . value labels sector2 1 ' (15,16)' 2 ' (17-19)' 3 ' (20-22)' 4 ' (23-25)' 5 ' (26)' 6 ' (27,28)' 7 ' (29-35)' 8 ' (36,37)'. fre var sector2. comp s1=0. comp s2=0. comp s3=0. comp s4=0. comp s5=0. comp s6=0. comp s7=0. if (sector2 =1) s1=1. if (sector2 =2) s2=1. if (sector2 =3) s3=1. if (sector2 =4) s4=1. if (sector2 =5) s5=1. if (sector2 =6) s6=1. if (sector2 =7) s7=1. comp dlab=dlt10i. if (dlab gt 2) dlab=-9. missing value dlab (-9). fre var dqt10i. comp dq=dqt10i. if (dq gt 2.86) dq=-9. missing value dq (-9). comp dlprod=dq/dlab. fre var dlprod. if (dlprod ge 3) dlprod=-9. missing value dlprod (-9). rename var (wave=survey). recode survey (4=1) (5=2) (6=3) (7=4) (8=5) (9=6) (10=7) (11=8). fre var survey. value labels survey 1 '02/97' 2 '01/98' 3 '07/98' 4'12/98' 5 '07/99' 6 '01/00' 7 '07/00' 8 '01/01'. fre var survey. fre var foreigd. if (good=0) foreigd=9. missing value foreigd (9). fre var foreigd. if (good=0) publicd=9. missing value publicd (9). fre var publicd. if (good=0) hungindd=9. missing value hungindd (9). fre var hungindd. if (good=0) hcompd=9. missing value hcompd (9). fre var hcompd. if (good=0) mixted=9. missing value mixted (9,-9). fre var mixted. if (good=0) otherd=9. missing value otherd (9,-9). fre var otherd. fre var foreigd foreigo. comp foreigd2=9. if (foreigo ge 4) foreigd2=1. if (foreigo lt 4) foreigd2=0. missing value foreigd2 (9). fre var foreigd2. crosstabs tables foreigd by foreigd2. ***Is 'foreigd' good? Yes.*** comp fdisc=9. if (lpsupld = 1 or lpptaxd = 1 or lpotaxd = 1) fdisc=1. if (lpsupld = 0 and lpptaxd = 0 and lpotaxd = 0) fdisc=0. missing value fdisc (9). rename var (fdisc = bfdiscd). variable label bfdiscd 'breach of financial discipline'. value label bfdiscd 1 'yes' 0 'no'. fre var bfdiscd. variable labels incompd 'Does the firm own a domestic enterprise?' / owcompd 'Is there a firm among the firm"s owners?' / inlbld 'suppl./purch. links with owner companies'/ oulbld 'suppl./purch. links with owned companies' / buslinks 'suppl./purch. links within the holding'. rename var (holding=holdingd). rename var (kgexpd=pcexpd). ***. ***data analysis***. ***. comp is=0. variable label is 'income statment'. if (eszkoz97 gt 0 or eszkoz98 gt 0 or eszkoz99 gt 0) is=1. fre var is. fre var dgood. comp panel=0. if (dgood=1 and egood=1 and fgood=1 and ggood=1 and hgood=1 and igood=1 and jgood=1 and kgood=1)panel=1. fre var panel. comp x=0. if (missing(dwave)) x=1. if (x=1) dwave=0. fre var dwave. comp x=0. if (missing(ewave)) x=1. if (x=1) ewave=0. fre var ewave. comp x=0. if (missing(fwave)) x=1. if (x=1) fwave=0. fre var fwave. comp x=0. if (missing(gwave)) x=1. if (x=1) gwave=0. fre var gwave. comp x=0. if (missing(hwave)) x=1. if (x=1) hwave=0. fre var hwave. comp x=0. if (missing(iwave)) x=1. if (x=1) iwave=0. fre var iwave. comp x=0. if (missing(jwave)) x=1. if (x=1) jwave=0. fre var jwave. comp x=0. if (missing(kwave)) x=1. if (x=1) kwave=0. fre var kwave. comp panel=0. if (dwave=1 and ewave=1 and fwave=1 and gwave=1 and hwave=1 and iwave=1 and jwave=1 and kwave=1)panel=1. fre var panel. comp dg=dgood. comp eg=egood. comp fg=fgood. comp gg=ggood. comp hg=hgood. comp ig=igood. comp jg=jgood. comp kg=kgood. comp x=0. if (missing(dg))x=1. if (x=1) dg=0. comp x=0. if (missing(eg))x=1. if (x=1) eg=0. comp x=0. if (missing(fg))x=1. if (x=1) fg=0. comp x=0. if (missing(gg))x=1. if (x=1) gg=0. comp x=0. if (missing(hg))x=1. if (x=1) hg=0. comp x=0. if (missing(ig))x=1. if (x=1) ig=0. comp x=0. if (missing(jg))x=1. if (x=1) jg=0. comp x=0. if (missing(kg))x=1. if (x=1) kg=0. comp lpanel=0. if (dg=1 and eg=1 and fg=1 and gg=1 and hg=1 and ig=1 and jg=1 and kg=1) lpanel=1. fre var lpanel. comp x=0. if ((eg=1 and fg =1) or (eg=1 and gg=1) or (fg=1 and gg=1)) x=1. fre var x. comp x=0. if (ig=1 and jg =1) x=1. fre var x. ***data selection: I dropped out 183 (183/900) cases from 1998 surveys, because they were surveyed two times in 1998***. comp x=0. if (eg=1 and fg =1) x=1. fre var x. ***x=1, n=43, keep e* survey's cases'***. comp x=0. if (eg=1 and gg =1) x=1. fre var x. ****x=1, n=53, keep e* suvey's cases***. comp x=0. if (fg=1 and gg =1) x=1. fre var x. ***x=1, n=131 cases, keep g* survey's cases***. sort cases by kshkod by survey. fre var survey. ***2nd and 3th surveys correction*** fre var good. comp xgood=good. comp x=lag(good). comp y=lag(kshkod). comp z=0. if (x = good and good=1) z=1. if (z=1 and y =kshkod and survey=3) xgood=0. crosstabs tables good by xgood. fre var xgood. ***dropping out 46 cases***. ***. ***2nd and 4th surveys correction***. fre var xgood. comp y1=lag(kshkod). comp y=lag(y1). comp z1=lag(xgood). comp z=lag(z1). comp x=0. if (y = kshkod and xgood=1 and survey=4 and z=xgood) x=1. fre var x. if (x=1) xgood=0. crosstabs tables good by xgood. ***dropping out 50 cases*** . ***3th and 4th surveys correction***. fre var xgood. comp z=lag(xgood). comp y=lag(kshkod). comp x=0. if (y = kshkod and xgood=1 and survey=4 and z=xgood) x=1. fre var x. if (x=1) xgood=0. crosstabs tables good by xgood. ***dropping out 112 cases***. ***6th and 7th surveys correction***. fre var xgood. comp y=lag(kshkod). comp z=lag(xgood). comp x=0. if (y = kshkod and xgood=1 and survey=7 and z=xgood) x=1. fre var x. if (x=1) xgood=0. crosstabs tables good by xgood. crosstabs tables survey by xgood. ***dropping out 3 cases***. ***goodness of fit test by ownership structure***. comp fore97_d=0. comp y= (kulft97/jegyt97). if (y gt 0.5) fore97_d=1. comp fore98_d=0. comp y= (kulft98/jegyt98). if (y gt 0.5) fore98_d=1. comp fore99_d=0. comp y= (kulft99/jegyt99). if (y gt 0.5) fore99_d=1. fre var fore97_d fore98_d fore99_d. temp. sel if (survey ge 3 and survey le 5). fre var fore97_d. temp. sel if (survey ge 3 and survey le 5 and good=1). fre var foreigd. temp. sel if (survey = 6 or survey = 7). fre var fore98_d. temp. sel if ((survey = 6 or survey = 7) and good=1). fre var foreigd. temp. sel if (survey = 8). fre var fore99_d. temp. sel if (survey = 8 and good=1). fre var foreigd. temp. sel if (survey = 8 and good=1). NPAR TEST /CHISQUARE=foreigd /EXPECTED= 48.0 52.0 /MISSING ANALYSIS. temp. sel if ((survey = 6 or survey =7) and good=1). NPAR TEST /CHISQUARE=foreigd /EXPECTED= 49.7 50.3 /MISSING ANALYSIS. temp. sel if (survey ge 3 and survey le 5 and good=1). NPAR TEST /CHISQUARE=foreigd /EXPECTED= 53.6 46.4 /MISSING ANALYSIS. ***There isn't statistically systematic bias***. variable labels labort1i 'number of employees in t1'. missing value labort1i (0). filter by xgood. fre var labort1i /format notable /stat all. comp labort1o=labort1i. recode labort1o (lo thru 50=1) (51 thru 250=2) (251 thru hi=3). value label labort1o 1'x-50' 2 '51-250' 3'251-x'. variable label labort1o 'empl. categories'. fre var labort1o. comp holding=9. if (incompd = 1 or owcompd = 1) holding=1. if (incompd = 0 and owcompd= 0) holding=0. missing value holding (9). fre var holding. if (inonioxi gt 100) inonioxi=100. if (holdingd ne 1) inonioxo=-9. if (holdingd ne 1) inoxioxi =-9. fre var inonioxi inonioxo. value label inonioxo 0 'no business rel.' 1 '-20%' 2 '21-80%' 3' above 80%' . variable label inonioxo 'average share of purch. or / and sales within the holding'. variable label inonioxi 'average share of purch. or / and sales within the holding'. if (missing (inonioxo)) inonioxi=-9. if (sysmis (inonioxo)) inonioxi=-9. missing value inonioxi inonioxo (-9). fre var inonioxi inonioxo. missing value owntypec (0,9). value labels owntypec 1 'Foreign' 2 'Hungarian ind.' 3 'Domestic comp.' 4 'Public' 5 'Other'. variable labels lpsupld 'late payment to suppliers' / lpptaxd 'late payment of payroll tax' / lpotaxd 'late payment of other taxes'/ liqprod 'solvency problems'/ latepyi 'late payment: % of customers'. comp exprt1i=export1i/nturt1i*100. variable label importri 'share of import in total input'. variable label exprt1i 'share of export in total turnover'. fre var importri. fre var exprt1i. missing value exprt1i (0,999). rename var (bfdisc=bfdiscd). fre var bfdiscd. filter off. save outfile='C:\WORK\top\tops\data\tops.sav' /drop x y z y1 z1 internri inoxioxi /comp. get file='C:\WORK\top\tops\data\tops.sav'. ***summary tables***. crosstabs tables sector2 by survey /cells count column. crosstabs tables labort1o by survey /cells count column. variable label labort1i 'number of employees in t1 (head)' / nturt1i 'turnover in t1 (mHUF)' / export1i 'export in t1 (mHUF)'. ***distribution by sub-sectors***. crosstabs tables sectorc2 by survey/cells column. ***foreign ownership***. crosstabs tables foreigo hcompo foreigd by survey/cells column. means tables importri by kgexpd/stat anova. filter by xgood. fre var hcompd. comp compd=0. comp y=0. if (hcompo gt 1) y=1. if (incompd =1 or y= 1) compd=1. fre var compd. comp x=0. if (missing(incompd)) x=1. fre var x. if (x=1) compd=9. missing value compd (9). variable labels compd 'ownership links'. value labels compd 0 'none' 1'yes'. fre var compd. crosstabs tables survey by compd/cells count row. temp. sel if (survey =1). crosstabs tables incompd by y/cells count total. temp. sel if (survey =2). crosstabs tables incompd by y/cells count total. temp. sel if (survey =6). crosstabs tables incompd by y/cells count total. temp. sel if (survey =8). crosstabs tables incompd by y/cells count total. ***O.K.***. ***indicators*** 1. holding (HOLDING) - binominal 2. business links within the holding (INONIOXI, INONIOXO) - interval, ordinal 3. Export ratio (EXPRT1I) - interval 4. import ratio (IMPORTRI) - interval 5. Export orientation (EUEXPD, KGEXPD) - binominal 6. Financial discipline of purchasers ( LATEPYI) - interval 7. Financial discipline of surveyed firm (BFDISCD) - binominal 8. Ownership links (COMPD) - binominal ***value of indicators between 1996-2001***. tables / observation exprt1i / table exprt1i by survey/stat=mean ('av. prob.'). fre var exprt1i/format notable /stat mean. formats importri (f8.4). tables / observation importri / table importri by survey/stat=mean ('av prob'). fre var importri/format notable /stat mean. crosstabs tables euexpd kgexpd by survey /cells count column. tables / observation latepyi / table latepyi by survey/stat=mean ('av prob'). fre var latepyi/format notable /stat mean. fre var bfdiscd. crosstabs tables bfdiscd by survey /cells count column. fre var compd. crosstabs tables compd by survey /cells count column. ***financial discipline***. filter by xgood. fre var latepyi/stat all. fre var latepyi. tables /observation lpsupld lpptaxd lpotaxd latepyi /table survey by lpsupld + lpptaxd + lpotaxd + latepyi/stat=mean. tables /observation lpsupld lpptaxd lpotaxd latepyi /table survey by lpsupld + lpptaxd + lpotaxd + latepyi/stat=validn. means tables latepyi by labort1o/stat anova. means tables latepyi by owntypec/stat anova. fre var bfdiscd. GRAPH /BAR(GROUPED)=PCT BY bfdiscd BY foreigd. GRAPH /BAR(GROUPED)=PCT BY bfdiscd BY labort1o. GRAPH /BAR(GROUPED)=MEDIAN (latepyi) BY bfdiscd BY foreigd /MISSING=noREPORT. GRAPH /BAR(GROUPED)=STD(latepyi) BY labort1o BY foreigd /MISSING=noREPORT. GRAPH /BAR(GROUPED)=MEDIAN (latepyi) BY sector2 BY foreigd /MISSING=noREPORT. GRAPH /HILO(SIMPLE)=MEAN(latepyi) BY bfdiscd BY foreigd . means tables latepyi by euexpd pcexpd labort1o holdingd inonioxo compd /stat anova. corr var latepyi inonioxi exprt1i importri. crosstabs tables lpsupld lpptaxd lpotaxd by liqprod /cells count row asresid/ stat phi. fre var latepyi. comp x=latepyi. recode x (0=0) (0.001 thru 20=1) (21 thru 30=2) (31 thru 40=3) (41 thru 50=4) (51 thru 60=5) (61 thru 70=6) (71 thru 80=7) (81 thru hi=8). fre var x. LOGISTIC REGRESSION VAR=bfdiscd /METHOD=ENTER sector2 labort1i inonioxo foreigd importri exprt1i /CONTRAST (sector2)=Indicator /CONTRAST (inonioxo)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . LOGISTIC REGRESSION VAR=bfdiscd /METHOD=ENTER sector2 labort1i inonioxo /CONTRAST (sector2)=Indicator /CONTRAST (inonioxo)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . ***nincs semmi*** ***holding (kulfoldi es belfoldi tulajdonos es tulajdonolt ceg)***. filter by xgood. fre var holdingd. value label holdingd 1 'yes' 0 'no'. crosstabs tables survey by holding /cells count row. crosstabs tables labort1o by holding/ cells count row asresid/stat phi. crosstabs tables sector2 by holding/ cells count row asresid/stat phi. crosstabs tables foreigo by holding/ cells count row asresid/stat phi. GRAPH /BAR(GROUPED)=PCT BY holdingd BY foreigd. ***inonioxi*** filter by xgood. crosstabs tables survey by holding /cells count row. temp. sel if (holding=1). GRAPH /HISTOGRAM=inonioxi. means tables inonioxi by foreigd owntypec sector2 labort1o/cells count mean / stat anova. GRAPH /HILO(SIMPLE)=MEAN(inonioxi) BY euexpd BY foreigd . value label foreigd 1 'yes' 0 'no'. GRAPH /BAR(GROUPED)=MEAn (inonioxi) BY foreigd /MISSING=noREPORT. fre var inonioxi/format notable/stat all. if holdingd ne 1) inonioxi=-9. missing value inonioxi (-9). temp. sel if (holdingd=1). tables / observation inonioxi / table inonioxi by survey/stat=mean ('av. prob.'). temp. sel if (holding=1 and foreigd=1). tables / observation inonioxi / table inonioxi by survey/stat=mean ('av. prob.'). temp. sel if (holding=1 and foreigd=1). crosstabs tables survey by inonioxo /cells count row. temp. sel if (holding=1 and euexpd=1). crosstabs tables survey by inonioxo /cells count row. ****export and import ratio***. means tables exprt1i importri by foreigd owntypec sector2 labort1o/ cells count mean / stat anova. corr var foreigd exprt1i importri euexpd pcexpd inonioxi holdingd. corr var exprt1i importri labort1i. corr var compd foreigd. GRAPH /HILO(SIMPLE)=MEAN(exprt1i) BY euexpd BY foreigd . GRAPH /HILO(SIMPLE)=MEAN(importri) BY labort1o BY foreigd . ****productivity indicators*** comp yl97= ln((amort97 + szemje97)/fogl97). comp yl98= ln((amort98 + szemje98)/fogl98). comp yl99= ln((amort99 + szemje99)/fogl99). comp kl97=ln( targye97/fogl97). comp kl98=ln( targye98/fogl98). comp kl99=ln( targye99/fogl99). comp dyl=yl99 - yl97. comp f97=kulft97/jegyt97*100. comp f99=kulft99/jegyt99*100. comp df =f99-f97. fre var df. comp y97= ln(amort97 + szemje97). comp k97= ln(targye97). comp l97= ln(fogl97). comp y99= ln(amort99 + szemje99). comp k99= ln(targye99). comp l99= ln(fogl99). comp dy = y99 - y97. comp dl = l99 - l97. comp dk=k99 - k97. comp q97=ln(arbe97). comp x97= ln(exp97). comp xr97=exp97/arbe97*100. comp q99=ln(arbe99). comp x99= ln(exp99). comp xr99=exp99/arbe99*100. comp dq_is=q99 - q97. comp dxr=xr99 - xr97. comp p97=ln(uzered97). comp p99=ln(uzered99). comp dp=p99 - p97. corr dy dyl dp. comp pq97=ln(uzered97/arbe97). comp pq99=ln(uzered99/arbe99). corr var dyl dxr dq_is dq pq99 pq97. des foreigx. corr var dyl f99 f97 fore99_d foreigd. comp yl97x=(amort97 + szemje97)/fogl97. comp yl99x=(amort99 + szemje99)/fogl99. comp kl99x= targye99/fogl99. comp l99x =fogl99. comp l97x= fogl97. comp k97x=targye97. comp k99x=targye99. comp y97x=amort97 + szemje97. comp y99x=amort99 + szemje99. comp q97x= arbe97. comp q99x= arbe99. comp dqx = arbe99/arbe97. ***basic statistics for the estimations***. missing value l97x l99x k97x k99x y97x y99x yl97x yl99x kl99x (0). fre var l97x l99x k97x k99x y97x y99x /format notable /stat=default median skewness seskew kurtosis sekurt . fre var yl97x yl99x kl99x /format notable /stat=default median skewness seskew kurtosis sekurt . fre var q97x q99x /format notable /stat=default median skewness seskew kurtosis sekurt . GRAPH /HISTOGRAM=l97. GRAPH /HISTOGRAM=l99. GRAPH /HISTOGRAM=k97. GRAPH /HISTOGRAM=k99. GRAPH /HISTOGRAM=y97. GRAPH /HISTOGRAM=y99. GRAPH /HISTOGRAM=q97. GRAPH /HISTOGRAM=q99. GRAPH /HISTOGRAM=yl97. GRAPH /HISTOGRAM=yl99. GRAPH /HISTOGRAM=kl99. GRAPH /HISTOGRAM=dyl. GRAPH /HISTOGRAM=dy. temp. sel if (f97 gt 0 and df ne 0). graph /histogram=df. temp. sel if (y97 gt 10 and y97 lt 12 and y99 gt 10 and y99 lt 12). GRAPH /SCATTERPLOT(BIVAR)=y97 WITH y99 BY bfdiscd /MISSING=LISTWISE . comp q97= arbe97. means tables q97 by sector2/cells count mean/stat anova. if (sector2 =1) scale97= (arbe97/ 5024714.9). if (sector2 =2) scale97= arbe97/ 681613.7. if (sector2 =3) scale97= arbe97/ 2702124.5. if (sector2 =4) scale97= arbe97/18482852. if (sector2 =5) scale97= arbe97/ 1699912.9. if (sector2 =6) scale97= arbe97/ 3313217.4. if (sector2 =7) scale97= arbe97/ 3342689.5. if (sector2 =8) scale97= arbe97/ 782269.7. comp q98= arbe98. means tables q98 by sector2/cells count mean/stat anova. if (sector2 =1) scale98= arbe98/ 5461121.5. if (sector2 =2) scale98= arbe98/ 833579.7. if (sector2 =3) scale98= arbe98/ 3352460.2. if (sector2 =4) scale98= arbe98/18269424. if (sector2 =5) scale98= arbe98/ 2127612.1. if (sector2 =6) scale98= arbe98/ 3891833.4. if (sector2 =7) scale98= arbe98/ 5168634.0. if (sector2 =8) scale98= arbe98/ 964241. comp q99= arbe99. means tables q99 by sector2/cells count mean/stat anova. if (sector2 =1) scale99= arbe99/ 5370792.8. if (sector2 =2) scale99= arbe99/ 885387.7. if (sector2 =3) scale99= arbe99/ 3585041.1. if (sector2 =4) scale99= arbe99/20783564. if (sector2 =5) scale99= arbe99/ 2392372. if (sector2 =6) scale99= arbe99/ 4113028.4. if (sector2 =7) scale99= arbe99/ 6576952.9. if (sector2 =8) scale99= arbe99/ 1096484.9. ***models and estimations***. yl = f ( c, scale by sector, foreign, industry, market structure)***. ***financial discipline***. comp yls=ln( nturt1i/ labort1i). GRAPH /HILO(SIMPLE)=MEAN(exprt1i) BY bfdiscd BY foreigd . means tables yls by foreigd/cells count mean/stat anova. correlations lpsupld lpptaxd lpotaxd liqprod. LOGISTIC REGRESSION VAR=bfdiscd /METHOD=enter foreigd yls sector2 labort1o /CONTRAST (sector2)=Indicator /CONTRAST (labort1o)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . LOGISTIC REGRESSION VAR=bfdiscd /METHOD=enter foreigd exprt1i sector2 labort1o /CONTRAST (sector2)=Indicator /CONTRAST (labort1o)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . LOGISTIC REGRESSION VAR=bfdiscd /METHOD=enter foreigd importri sector2 labort1o /CONTRAST (sector2)=Indicator /CONTRAST (labort1o)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . LOGISTIC REGRESSION VAR=bfdiscd /METHOD=enter foreigd holdingd sector2 labort1o /CONTRAST (sector2)=Indicator /CONTRAST (labort1o)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . LOGISTIC REGRESSION VAR=bfdiscd /METHOD=enter foreigd inonioxo sector2 labort1o /CONTRAST (inonioxo)=Indicator /CONTRAST (sector2)=Indicator /CONTRAST (labort1o)=Indicator /CRITERIA PIN(.05) POUT(.10) ITERATE(20) CUT(.5) . comp x=0. if (survey ge 2 and survey le 5) x=1. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd pcexpd /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd euexpd /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd inonioxi /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd holdingd /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd compd /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd bfdiscd /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd latepyi /descriptives=defaults /dependent yl99 /method enter. temp. sel if x=1. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 foreigd exprt1i /descriptives=defaults /dependent yl99 /method enter. ***indicators of business links***. tables / observation foreigd publicd hungindd hcompd mixted otherd / table foreigd + publicd + hungindd + hcompd + mixted + otherd by survey/stat=mean ('av. prob.'). tables /observation exprati euexpd kgexpd foreigd incompd owcompd oulbld inlbld buslinks /table exprati + euexpd + kgexpd + foreigd + incompd + owcompd + oulbld + inlbld + buslinks by survey /stat=validn. tables /observation exprati euexpd kgexpd foreigd incompd owcompd oulbld inlbld buslinks /table exprati + euexpd + kgexpd + foreigd + incompd + owcompd + oulbld + inlbld + buslinks by survey /stat=mean. tables /observation lpsupld lpptaxd lpotaxd liqprod latepyi /table lpsupld + lpptaxd + lpotaxd + liqprod + latepyi by survey /stat=validn. tables /observation lpsupld lpptaxd lpotaxd liqprod latepyi /table lpsupld + lpptaxd + lpotaxd + liqprod + latepyi by survey /stat=mean. des var dlt10i dqt10i dexpt10i/stat all. GRAPH /HISTOGRAM=dlprod. ***. inonioxi compd holdingd bfdiscd latepyi exprt1i importri euexpd pcexpd ***. comp foreigx=9. if (foreigo=1 ) foreigx=0. if (foreigo gt 1) foreigx=1. missing value foreigx (9). fre var foreigx. corr var dlprod foreigd labort1i nturt1i. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i inonioxi /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i compd /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i holdingd /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i bfdiscd /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i latepyi /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i exprt1i /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i importri /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i euexpd /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i pcexpd /des=default /dependent dlprod /method enter. regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 df labort1i /des=default /dependent dlprod /method enter. ***growth***. fre var dq. means tables dq by sector2/cells mean median/stat anova. comp dqo=9. if (dq le 1) dqo=-1. if (dq gt 1 and dq le 1.111 and sector2 = 1) dqo=0. if (dq gt 1.111 and sector2=1) dqo=1. if (dq gt 1 and dq le 1.079 and sector2 = 2) dqo=0. if (dq gt 1.079 and sector2=2) dqo=1. if (dq gt 1 and dq le 1.111 and sector2 = 3) dqo=0. if (dq gt 1.111 and sector2=3) dqo=1. if (dq gt 1 and dq le 1.151 and sector2 = 4) dqo=0. if (dq gt 1.151 and sector2=4) dqo=1. if (dq gt 1 and dq le 1.123 and sector2 = 5) dqo=0. if (dq gt 1.123 and sector2=5) dqo=1. if (dq gt 1 and dq le 1.163 and sector2=6) dqo=0. if (dq gt 1.163 and sector2=6) dqo=1. if (dq gt 1 and dq le 1.149 and sector2 = 7) dqo=0. if (dq gt 1.149 and sector2=7) dqo=1. if (dq gt 1 and dq le 1.100 and sector2 = 8) dqo=0. if (dq gt 1.100 and sector2=8) dqo=1. missing value dqo (9). fre var dqo. fre var inonioxi latepyi exprt1i importri /format notable /stat=default median skewness seskew kurtosis sekurt . regression /variables dlprod s1 s2 s3 s4 s5 s6 s7 foreigd labort1i exprt1i /des=default /dependent dlprod /method enter. ***indirect mesure of a type of spillover***. temp. sel if (f97 gt 0). GRAPH /HISTOGRAM=df. comp f97d=0. if (f97 gt 0) f97d=1. comp f99d=0. if (f99 gt 0) f99d=1. fre var fore99_d f99d. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 fore99_d /descriptives=defaults /dependent yl99 /method enter. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 f99d /descriptives=defaults /dependent yl99 /method enter. regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 scale99 kl99 df /descriptives=defaults /dependent yl99 /method enter. temp. sel if (f97 gt 0). regression /variables dyl s1 s2 s3 s4 s5 s6 s7 scale99 kl99 df /descriptives=defaults /dependent dyl /method enter. temp. sel if (f97 gt 0). regression /variables y99 k99 l99 s1 s2 s3 s4 s5 s6 s7 scale99 fore99_d /descriptives=defaults /dependent y99 /method enter. comp x=0. if (survey = 1) x=1. if (survey = 2) x=1. if (survey = 4) x=1. if (survey = 6) x=1. if (survey = 8) x=1. fre var x. comp lns99=ln(s99). temp. sel if (x=1). regression /variables yls s1 s2 s3 s4 s5 s6 s7 lns99 kl99 foreigd inonioxi exprt1i euexpd bfdiscd /descriptives=defaults /stat= defaults tol /dependent yls /method stepwise. comp jo2=x. temp. sel if (jo2=1). regression /variables yls s7 lns99 kl99 inonioxi bfdiscd /descriptives=defaults /stat= defaults tol /dependent yls /method stepwise. comp x=0. if (survey = 2) x=1. if (survey = 3) x=1. if (survey = 4) x=1. if (survey = 5) x=1. fre var x. comp jo=x. temp. sel if (jo=1). regression /variables yl99 s1 s2 s3 s4 s5 s6 s7 kl99 lns99 foreigd exprt1i euexpd bfdiscd /descriptives=defaults /stat= defaults tol /dependent yl99 /method stepwise. temp. sel if (jo=1). regression /variables yl99 s2 s4 s5 s6 s7 kl99 lns99 foreigd bfdiscd /descriptives=defaults /stat= defaults tol /dependent yl99 /method stepwise. crosstabs tables foreigd by fore99_d/cells count asresid /stat phi. temp. sel if (survey gt 1). means tables yls by euexpd by survey /cells mean median count/stat anova. corr exprt1i importri. GRAPH /LINE(MULTIPLE) MEAN(exprt1i) BY importri by foreigd /MISSING=noREPORT. ***transformations for stata***. rename var (scale97=s97). rename var (scale98=s98). rename var (scale99=s99). comp m97=ln(anyje97). comp m99=ln(anyje99). comp w99=ln( szemje99). comp w97=ln(szemje97). comp dw =w99 - w97. comp dm=m99-m97. sel if xgood=1. fre var xgood. export outfile='C:\WORK\top\tops\data\tops.por'. /keep survey labort1i nturt1i export1i inonioxi inonioxo euexpd pcexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc latepyi sector2 s1 s2 s3 s4 s5 s6 s7 dlab dq dlprod bfdiscd fore97_d fore98_d fore99_d labort1o holdingd exprt1i compd yl97 yl98 yl99 c97 c98 c99 scale97 scale98 scale99 kl97 kl98 kl99 foreigx dqo f97 f99 df f97d f99d dyl y97 k97 l97 y99 k99 l99 dy dl dk foreigx dqo . sel if xgood=1. fre var xgood. SAVE TRANSLATE OUTFILE='C:\work\TOP\tops\data\tops.xls' /TYPE=XLS /MAP /keep survey labort1i nturt1i export1i inonioxi inonioxo euexpd pcexpd foreigo hcompo owntypec foreigd publicd hungindd hcompd mixted otherd importri regioc latepyi sector2 s1 s2 s3 s4 s5 s6 s7 dlab dq dlprod bfdiscd fore97_d fore98_d fore99_d labort1o holdingd exprt1i compd yl97 yl98 yl99 c97 c98 c99 s97 s98 s99 kl97 kl98 kl99 foreigx dqo f97 f99 df f97d f99d dyl y97 k97 l97 y99 k99 l99 dy dl dk yls q97 x97 xr97 q99 x99 xr99 dq_is dxr p97 p99 dp pq99 pq97 m97 m99 dm w99 w97 dw /REPLA /FIELDNAMES. sel if xgood=1. save outfile='C:\WORK\top\tops\data\tops03.sav' /drop kshsecc /comp.