Terveisiä auringosta

[viesti Survo-keskustelupalstalla (2001-2013)]

Kirjoittaja: Marjut Schreck
Sähköposti:    marjut.schreck'at'survo.fi
Päiväys: 4.10.2007 9:54

Etelän aurinkoa kaksi viikkoa palvoneena joku voisi ajatella, että
on tuskaa palata syksyyn ja töihin, mutta ei suinkaan!!!

Yksi sähköpostiin ilmenneistä työpyynnöistä kun oli
yksinkertaisuudessaan seuraava:

"Voisitko siirtää oheiset SPSS-datat Survoon uusiksi havainnoiksi
edellisten perään."

No, hommahan vaikuttaa varsin yksinkertaiselta, kyseessä on vain 9 eri
maan tiedostot. Mutta mitäpäs, kun uusissa datoissa on myös uusia
muuttujia ja vanhoja on vastaavasti poistettu, muuttujat ovat eri
järjestyksissä ja niiden määrät vaihtelevat tuhannen molemmin puolin ja
lopullisessa datassa pitää tietenkin olla kaikki muuttujat.

Siispä:

Otetaan ensin sekä uuden että vanhan tiedoston tiedostokuvaukset
kenttään

FILE STATUS UUSI
 Copied from text file BE.TXT
FIELDS: (active)
   1 NA_   8 IDNR     (###########)
   2 SA_   8 QUEST3
   3 SA_   5 locale
   4 SA_   9 survedat
   5 SA_   8 survetb
   6 SA_   8 survete
   7 NA_   1 COUNTRY  (#######)
   8 NA_   1 RELEASE  (#######)
   9 NA_   1 contst   (######)
  10 NA_   2 nrofjob1 (########)
  11 NA_   2 contstno (########)
  12 NA_   2 yynojob  (#######)
  13 NA_   2 controth (########)
  14 NA_   2 nrofjobs (########)
  15 NA_   2 contrac4 (########)
  16 SA_   8 hrssecon
  17 NA_   4 HRSSECO  (#####.#)
  18 NA_   2 FIRMPRI  (#######)
  19 NA_   8 SECTOR_I (########)
  20 NA_   8 NACE6NUM (########)
  21 NA_   2 NACE4NUM (########)
  22 NA_   2 NACE3NUM (########)
  23 NA_   2 NACE2NUM (########)
  24 NA_   2 NACE1NUM (########)
  25 NA_   2 NACEFNUM (########)
.
.
.
 724 NA_   1 FIRMFEM3 (########)
END
Survo data file UUSI: record=1820 bytes, M1=659 L=64  M=724 N=1312

FILE STATUS VANHA
 Copied from text file BE.TXT
FIELDS: (active)
   1 NA_   8 IDNR     (###########)
   2 NA_   4 RELEASE  (#####.#)
   3 NA_   1 SURVENR  (#######)
   4 SA_  10 survedat
   5 SA_   8 survetb
   6 SA_   8 survete
   7 NA_   2 SURVEYY  (#######)
   8 NA_   1 SURVEMM  (#######)
   9 NA_   1 SURVEWW  (#######)
  10 NA_   1 SURVEDW  (#######)
  11 NA_   1 SURVEDM  (#######)
  12 NA_   2 SURVEDY  (#######)
  13 NA_   2 SURVEHH  (#######)
  14 NA_   2 SURVTIME (########)
  15 NA_   2 im_agr01 (########)
  16 NA_   2 im_agr02 (########)
  17 NA_   2 im_agr03 (########)
  18 NA_   2 im_agr04 (########)
  19 NA_   2 im_agr05 (########)
  20 NA_   2 im_agr06 (########)
  21 NA_   2 im_agr07 (########)
  22 NA_   2 im_agr08 (########)
  23 NA_   1 contst   (######)
  24 NA_   2 nrofjob1 (########)
  25 NA_   2 contstno (########)
.
.
.
 800 NA_   8 WAGEGRHH (####.##############)
END
Survo data file VANHA: record=3228 bytes, M1=754 L=64  M=800 N=22123

Sitten poistellaan turhat rivit ja lisätään kenttään uusi
DATA-rivi

DATA S,A,B,C,D
A1   A2  A3  NIMI     A4
AAAA AAA AAA AAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
   1 NA_   8 IDNR     (###########)
   2 SA_   8 QUEST3
   3 SA_   5 locale
   4 SA_   9 survedat
   5 SA_   8 survetb
   6 SA_   8 survete
   7 NA_   1 COUNTRY  (#######)
   8 NA_   1 RELEASE  (#######)
   9 NA_   1 contst   (######)
  10 NA_   2 nrofjob1 (########)
  11 NA_   2 contstno (########)
  12 NA_   2 yynojob  (#######)

ja tehdään FILE STATUS-kaavioista oma SVO-tiedosto

FILE DEL STATUS
FILE COPY S,STATUS

Sortataan se NIMI-sarakkeen mukaan

FILE SORT STATUS BY NIMI TO STATUS2

Katsotaanko löytyykö samannimisiä

VAR ONJO:S1=0 TO STATUS2
VAR ONJO=if(str(NIMI[-1])=str(NIMI))then(1)else(0) TO STATUS2

Kopioidaan vain erinimiset uuteen tiedostoon ja lasketaan A1-muuttujalle
järjestysnumero

FILE DEL STATUS3
FILE COPY STATUS2,STATUS3  /  IND=ONJO,0
VAR A1=ORDER TO STATUS3
FILE SHOW STATUS3

Ja sitten vain koko paketti kenttään

FILE LOAD STATUS3,END+6  / VARS=ALL,-ONJO

FILE CREATE, FIELDS JA END paikoilleen ja AVOILA! siinähän se on!

FILE CREATE BEL

FIELDS:
   1 NA_   2 AGE      (###)
   2 NA_   2 AGE_SQ   (######)
   3 NA_   2 BREAK    (#####)
   4 NA_   2 break0   (######)
   5 NA_   2 break01  (#######)
   6 NA_   2 break1   (######)
   7 NA_   2 break11  (#######)
   8 NA_   2 break12  (#######)
   9 NA_   2 break13  (#######)
  10 NA_   2 break14  (#######)
  11 NA_   2 break15  (#######)
  12 NA_   2 break16  (#######)
  13 NA_   2 break17  (#######)
  14 NA_   2 break18  (#######)
  15 NA_   2 break2   (######)
  16 NA_   2 break3   (######)
  17 NA_   2 BREAK3MO (########)
  18 NA_   2 break4   (######)
  19 NA_   2 break5   (######)
  20 NA_   2 break6   (######)
  21 NA_   2 break7   (######)
  22 NA_   2 break8   (######)
  23 NA_   2 CAOCATE  (#######)
  24 NA_   2 caocate4 (########)
  25 NA_   2 CAOFIRM  (#######)
.
.
.
 878 NA_   2 YYYOCHLD (########)
END


Parit kopioinnit perään

FILE COPY VANHA,BEL
FILE COPY UUSI,BEL

Teepä jollakin toisella ohjelmalla ja kerro kokemuksesi.
Täällä Survon kanssa aurinko paistaa ja loma jatkuu !!!!


- Marjut

Vastaukset:

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!

Etusivu  |  Keskustelu
Copyright © Survo Systems 2001-2013. All rights reserved.
Updated 2013-06-15.