/*----------------------------------------------- origdata.sas Reads in SAS xport file written by SPSS of original data, mot computed variables Gillian Raab June 05 ------------------------------------------------------*/ libname ex6 'C:\Documents and Settings\gillian raab\My Documents\aprojects\peaslaptop\ex6datafiles\data' ; libname xp xport 'C:\Documents and Settings\gillian raab\My Documents\aprojects\peasorig\web\exemp6\preprocessnew\data\originaldata.xpt'; proc copy in=xp out=ex6; run; options fmtsearch=(ex6); proc contents data=ex6.sas position short; run; /*----------------------------------------------------------------------------- need to run ex6formats file before next step ------------------------------------------------------------------------------*/ data ex6.ex6 (keep= caseid sasmky80 sbsmky80 scsmky80 sdsmky80 sesmky80 sfsmky80 raalcy80 rbalcy80 rcalcy80 rdalcy80 realcy80 rfalcy80 gender ethgp hzrespre szindep szabs04 hzevrefi yzleave sector dvar1 dvar2 dvar3 dvar4 dvar5 dvar6 dvol1 dvol2 dvol3 dvol4 dvol5 dvol6 dprev1 dprev2 dprev3 dprev4 dprev5 dprev6 drgcode1 drgcode2 drgcode3 drgcode4 drgcode5 drgcode6) ; set ex6.sas; array sec yasector ybsector ycsector ydsector yesector yfsector ; sector=1; * any time in a special/independent/special/behavioural school; do over sec; if sec=2 then sector=2; end; do over sec; if sec=3 then sector=3; end; /* sector coded 3 for any time in a behavioural school */ if yaschool in (35,36,38) or ybschool in (35,36,38) or ycschool in (35,36,38) or ydschool in (35,36,38) or yeschool in (35,36,38) or yfschool in (35,36,38) then sector=4; /* get single school variable for grouping */ if yaschool^=. and yaschool^=99 then do; school=yaschool; end; else if ybschool^=. and ybschool^=99 then do; school=ybschool; end; else if ycschool^=. and ycschool^=99 then do; school=ycschool; end; else if ydschool^=. and ydschool^=99 then do; school=ydschool; end; if school=41 then do; school=39; end; * send these 3 with no schhoo lat S1 or later to pilrig special school; attrib sector label="independent, special or behavioural education at any time"; attrib school label="school at first contact"; /*---------------------------- sweep 1---------------------------------------*/ *Variety of delinquency at sweep one (n=15); array offp1 yaybus01 yaybop01 yayshp01 yayjrd01 yayscl01 yaywep01 yaygrf01 yayrob01 yayvnd01 yayhbk01 yayhom01 yaycbk01 yayars01 yayhit01 yayskv01; array offv1 yaybus02 yaybop02 yayshp02 yayjrd02 yayscl02 yaywep02 yaygrf02 yayrob02 yayvnd02 yayhbk02 yayhom02 yaycbk02 yayars02 yayhit02 yayskv02; dprev1=0; dvar1=0; dvol1=0; do i=1 to 15; if offp1[i]=1 then do dprev1=1; dvar1=dvar1+1; end; if offv1[i]=98 then offv1[i]=.; * code the item missings for how often to missings; if offv1[i]=7 then offv1[i]=11; * code to match SPSS; if offv1[i]=99 then offv1[i]=0; * code to match SPSS; dvol1=offv1[i]+dvol1; * like SPSS this sets value to missing if any item missing; end; do i=1 to 15; if offp1[i]=. or offp1[i]>90 then do; * all go to missing if any prevalence not ; dprev1=.; *answered coded to agree w SPSS; dvar1=.; dvol1=.; end; end;/*---------------------------- sweep 2---------------------------------------*/ *Variety of delinquency at sweep two (n=16); array offp2 ybybus01 ybybop01 ybyshp01 ybyjrd01 ybyscl01 ybywep01 ybygrf01 ybyrob01 ybyvnd01 ybyhbk01 ybyhom01 ybycbk01 ybyars01 ybyhit01 ybyskv01 ybypet01 ; array offv2 ybybus02 ybybop02 ybyshp02 ybyjrd02 ybyscl02 ybywep02 ybygrf02 ybyrob02 ybyvnd02 ybyhbk02 ybyhom02 ybycbk02 ybyars02 ybyhit02 ybyskv02 ybypet02 ; dprev2=0; dvar2=0; dvol2=0; do i=1 to 16; if offp2[i]=1 then do dprev2=1; dvar2=dvar2+1; end; if offv2[i]=98 then offv2[i]=.; * code the item missings for how often to missings; if offv2[i]=7 then offv2[i]=11; * code to match SPSS; if offv2[i]=99 then offv2[i]=0; * code to match SPSS; dvol2=offv2[i]+dvol2; * like SPSS this sets value to missing if any item missing; end; do i=1 to 16; if offp2[i]=. or offp2[i]>90 then do; * all go to missing if any prevalence not ; dprev2=.; *answered coded to agree w SPSS; dvar2=.; dvol2=.; end; end;/*---------------------------- sweep 3---------------------------------------*/ *Variety of delinquency at sweep three (n=18); array offp3 ycybus01 ycybop01 ycyshp01 ycyjrd01 ycyscl01 ycywep01 ycygrf01 ycyrob01 ycyvnd01 ycyhbk01 ycyhom01 ycycbk01 ycyars01 ycyhit01 ycyskv01 ycypet01 ycydrg01 ycyrab01 ; array offv3 ycybus02 ycybop02 ycyshp02 ycyjrd02 ycyscl02 ycywep02 ycygrf02 ycyrob02 ycyvnd02 ycyhbk02 ycyhom02 ycycbk02 ycyars02 ycyhit02 ycyskv02 ycypet02 ycydrg02 ycyrab02 ; dprev3=0; dvar3=0; dvol3=0; do i=1 to 18; if offp3[i]=1 then do dprev3=1; dvar3=dvar3+1; end; if offv3[i]=98 then offv3[i]=.; * code the item missings for how often to missings; if offv3[i]=7 then offv3[i]=11; * code to match SPSS; if offv3[i]=99 then offv3[i]=0; * code to match SPSS; dvol3=offv3[i]+dvol3; * like SPSS this sets value to missing if any item missing; end; do i=1 to 18; if offp3[i]=. or offp3[i]>90 then do; * all go to missing if any prevalence not ; dprev3=.; *answered coded to agree w SPSS; dvar3=.; dvol3=.; end; end;/*---------------------------- sweep 4---------------------------------------*/ *Variety of delinquency at sweep three (n=18); array offp4 ydybus01 ydybop01 ydyshp01 ydyjrd01 ydyscl01 ydywep01 ydygrf01 ydyrob01 ydyvnd01 ydyhbk01 ydyhom01 ydycbk01 ydyars01 ydyhit01 ydyskv01 ydypet01 ydydrg01 ydyrab01; array offv4 ydybus02 ydybop02 ydyshp02 ydyjrd02 ydyscl02 ydywep02 ydygrf02 ydyrob02 ydyvnd02 ydyhbk02 ydyhom02 ydycbk02 ydyars02 ydyhit02 ydyskv02 ydypet02 ydydrg02 ydyrab02; dprev4=0; dvar4=0; dvol4=0; do i=1 to 18; if offp4[i]=1 then do dprev4=1; dvar4=dvar4+1; end; if offv4[i]=98 then offv4[i]=.; * code the item missings for how often to missings; if offv4[i]=7 then offv4[i]=11; * code to match SPSS; if offv4[i]=99 then offv4[i]=0; * code to match SPSS; dvol4=offv4[i]+dvol4; * like SPSS this sets value to missing if any item missing; end; do i=1 to 18; if offp4[i]=. or offp4[i]>90 then do; * all go to missing if any prevalence not ; dprev4=.; *answered coded to agree w SPSS; dvar4=.; dvol4=.; end; end;/*---------------------------- sweep 5---------------------------------------*/ *Variety of delinquency at sweep five (n=17); array offp5 yeybus01 yeybop01 yeyshp01 yeyjrd01 yeywep01 yeygrf01 yeyrob01 yeyvnd01 yeyhbk01 yeycbk01 yeyars01 yeyhit01 yeyskv01 yeypet01 yeydrg01 yeyrab01 yeyrst01; array offv5 yeybus02 yeybop02 yeyshp02 yeyjrd02 yeywep02 yeygrf02 yeyrob02 yeyvnd02 yeyhbk02 yeycbk02 yeyars02 yeyhit02 yeyskv02 yeypet02 yeydrg02 yeyrab02 yeyrst02; dprev5=0; dvar5=0; dvol5=0; do i=1 to 17; if offp5[i]=1 then do dprev5=1; dvar5=dvar5+1; end; if offv5[i]=98 then offv5[i]=.; * code the item missings for how often to missings; if offv5[i]=7 then offv5[i]=11; * code to match SPSS; if offv5[i]=99 then offv5[i]=0; * code to match SPSS; dvol5=offv5[i]+dvol5; * like SPSS this sets value to missing if any item missing; end; do i=1 to 17; if offp5[i]=. or offp5[i]>90 then do; * all go to missing if any prevalence not ; dprev5=.; *answered coded to agree w SPSS; dvar5=.; dvol5=.; end; end; /*---------------------------- sweep 6---------------------------------------*/ *Variety of delinquency at sweep four (n=18); array offp6 yfybop01 yfyshp01 yfyjrd01 yfywep01 yfyrob01 yfyvnd01 yfyhbk01 yfycbk01 yfyars01 yfyhit01 yfypet01 yfyskv01 yfydrg01 yfyrab01 yfyrst01 yfyrst21 yfybft01 yfyfrd01; array offv6 yfybop02 yfyshp02 yfyjrd02 yfywep02 yfyrob02 yfyvnd02 yfyhbk02 yfycbk02 yfyars02 yfyhit02 yfypet02 yfyskv02 yfydrg02 yfyrab02 yfyrst02 yfyrst22 yfybft02 yfyfrd02; dprev6=0; dvar6=0; dvol6=0; do i=1 to 18; if offp6[i]=1 then do dprev6=1; dvar6=dvar6+1; end; if offv6[i]=98 then offv6[i]=.; * code the item missings for how often to missings; if offv6[i]=7 then offv6[i]=11; * code to match SPSS; if offv6[i]=99 then offv6[i]=0; * code to match SPSS; dvol6=offv6[i]+dvol6; * like SPSS this sets value to missing if any item missing; end; do i=1 to 18; if offp6[i]=. or offp6[i]>90 then do; * all go to missing if any prevalence not ; dprev6=.; *answered coded to agree w SPSS; dvar6=.; dvol6=.; end; end; attrib dprev1 label='prevalence of offending sweep 1'; attrib dprev2 label='prevalence of offending sweep 2'; attrib dprev3 label='prevalence of offending sweep 3'; attrib dprev4 label='prevalence of offending sweep 4'; attrib dprev5 label='prevalence of offending sweep 5'; attrib dprev6 label='prevalence of offending sweep 6'; attrib dvar1 label='variety of offending sweep 1'; attrib dvar2 label='variety of offending sweep 2'; attrib dvar3 label='variety of offending sweep 3'; attrib dvar4 label='variety of offending sweep 4'; attrib dvar5 label='variety of offending sweep 5'; attrib dvar6 label='variety of offending sweep 6'; attrib dvol1 label='volume of offending sweep 1'; attrib dvol2 label='volume of offending sweep 2'; attrib dvol3 label='volume of offending sweep 3'; attrib dvol4 label='volume of offending sweep 4'; attrib dvol5 label='volume of offending sweep 5'; attrib dvol6 label='volume of offending sweep 6'; *RECODE SMOKING VARIABLES; if SASMKY80=0 then SASMKY80=5; * diff code at sweep 1; /* now become 0 = 'non-smoker' 4 = 'Daily' 3 = 'Weekly' 2 = ' Less than weekly' 1 = 'Tried or hardly ever smoked' */ ARRAY SM SASMKY80 SBSMKY80 SCSMKY80 SDSMKY80 SESMKY80 SFSMKY80 ; DO OVER SM; IF SM>90 THEN SM=.; else sm=5-sm; END; format SASMKY80 SBSMKY80 SCSMKY80 SDSMKY80 SESMKY80 SFSMKY80 sm.; ARRAY alc raalcy80 rbalcy80 rcalcy80 rdalcy80 realcy80 rfalcy80 ;*RECODE alc VARIABLES; DO i= 1 to 6; IF alc[i]>90 THEN alc[i]=.;END; do i=2 to 4; alc[i]=5-alc[i];end; do i=5 to 6; alc[i]=6-alc[i];end; array qs yaybus01 yaybop01 yayshp01 yayjrd01 yayscl01 yaywep01 yaygrf01 yayrob01 yayvnd01 yayhbk01 yayhom01 yaycbk01 yayars01 yayhit01 yayskv01 yaybus02 yaybop02 yayshp02 yayjrd02 yayscl02 yaywep02 yaygrf02 yayrob02 yayvnd02 yayhbk02 yayhom02 yaycbk02 yayars02 yayhit02 yayskv02 ybybus01 ybybop01 ybyshp01 ybyjrd01 ybyscl01 ybywep01 ybygrf01 ybyrob01 ybyvnd01 ybyhbk01 ybyhom01 ybycbk01 ybyars01 ybyhit01 ybyskv01 ybypet01 ybybus02 ybybop02 ybyshp02 ybyjrd02 ybyscl02 ybywep02 ybygrf02 ybyrob02 ybyvnd02 ybyhbk02 ybyhom02 ybycbk02 ybyars02 ybyhit02 ybyskv02 ybypet02 ycybus01 ycybop01 ycyshp01 ycyjrd01 ycyscl01 ycywep01 ycygrf01 ycyrob01 ycyvnd01 ycyhbk01 ycyhom01 ycycbk01 ycyars01 ycyhit01 ycyskv01 ycypet01 ycydrg01 ycyrab01 ycybus02 ycybop02 ycyshp02 ycyjrd02 ycyscl02 ycywep02 ycygrf02 ycyrob02 ycyvnd02 ycyhbk02 ycyhom02 ycycbk02 ycyars02 ycyhit02 ycyskv02 ycypet02 ycydrg02 ycyrab02 ydybus01 ydybop01 ydyshp01 ydyjrd01 ydyscl01 ydywep01 ydygrf01 ydyrob01 ydyvnd01 ydyhbk01 ydyhom01 ydycbk01 ydyars01 ydyhit01 ydyskv01 ydypet01 ydydrg01 ydyrab01 ydybus02 ydybop02 ydyshp02 ydyjrd02 ydyscl02 ydywep02 ydygrf02 ydyrob02 ydyvnd02 ydyhbk02 ydyhom02 ydycbk02 ydyars02 ydyhit02 ydyskv02 ydypet02 ydydrg02 ydyrab02 yeybus01 yeybop01 yeyshp01 yeyjrd01 yeywep01 yeygrf01 yeyrob01 yeyvnd01 yeyhbk01 yeycbk01 yeyars01 yeyhit01 yeyskv01 yeypet01 yeydrg01 yeyrab01 yeyrst01 yeybus02 yeybop02 yeyshp02 yeyjrd02 yeywep02 yeygrf02 yeyrob02 yeyvnd02 yeyhbk02 yeycbk02 yeyars02 yeyhit02 yeyskv02 yeypet02 yeydrg02 yeyrab02 yeyrst02 yfybop01 yfyshp01 yfyjrd01 yfywep01 yfyrob01 yfyvnd01 yfyhbk01 yfycbk01 yfyars01 yfyhit01 yfyskv01 yfypet01 yfydrg01 yfyrab01 yfyrst01 yfyrst21 yfybft01 yfyfrd01 yfybop02 yfyshp02 yfyjrd02 yfywep02 yfyrob02 yfyvnd02 yfyhbk02 yfycbk02 yfyars02 yfyhit02 yfyskv02 yfypet02 yfydrg02 yfyrab02 yfyrst02 yfyrst22 yfybft02 yfyfrd02 ; do over qs ; if qs>90 then qs=.; end; /*--------------------- now a drug question for each year------------------------*/ array dqu yadrug01-yadrug10 ybdrug01-ybdrug12 ycdrug01-ycdrug13 yddrug01-yddrug10 yedrug01-yedrug13 yfdrug31-yfdrug43 yadrgy01 ybdrgy01 ycdrgy01 yddrgy01 yedrgy01 ; do over dqu; if dqu in (98,99) then dqu=.;end; *--------------- drugs sweep 1-----------------------; *---------- make sure something ticked , else missing---; if (yadrgy01 or yadrug01 or yadrug02 or yadrug01 or yadrug02 or yadrug03 or yadrug04 or yadrug05 or yadrug06 or yadrug07 or yadrug08 or yadrug09 or yadrug10 ) then drgcode=0; if (yadrug01 and yadrug01 in (2,3,4,5,96)) then drgcode=drgcode+1; if (yadrug02 and yadrug02 in (2,3,4,5,96)) then drgcode=drgcode+10; if (yadrug03 and yadrug03 in (2,3,4,5,96)) or (yadrug04 and yadrug04 in (2,3,4,5,96)) or (yadrug05 and yadrug05 in (2,3,4,5,96)) or (yadrug06 and yadrug06 in (2,3,4,5,96)) or (yadrug07 and yadrug07 in (2,3,4,5,96)) or (yadrug08 and yadrug08 in (2,3,4,5,96)) or (yadrug09 and yadrug09 in (2,3,4,5,96)) or (yadrug10 and yadrug10 in (2,3,4,5,96)) then drgcode=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode1=drgcode; drgcode=.; *--------------- drugs sweep 2-----------------------; *---------- make sure something ticked else missing---; if (ybdrgy01 or ybdrug01 or ybdrug02 or ybdrug01 or ybdrug02 or ybdrug03 or ybdrug04 or ybdrug05 or ybdrug06 or ybdrug07 or ybdrug08 or ybdrug09 or ybdrug10 or ybdrug12) then drgcode=0; if (ybdrug01 and ybdrug01 in (2,3,4,5,96)) then drgcode=drgcode+1; if (ybdrug02 and ybdrug02 in (2,3,4,5,96)) then drgcode=drgcode+10; if (ybdrug03 and ybdrug03 in (2,3,4,5,96)) or (ybdrug04 and ybdrug04 in (2,3,4,5,96)) or (ybdrug05 and ybdrug05 in (2,3,4,5,96)) or (ybdrug06 and ybdrug06 in (2,3,4,5,96)) or (ybdrug07 and ybdrug07 in (2,3,4,5,96)) or (ybdrug08 and ybdrug08 in (2,3,4,5,96)) or (ybdrug09 and ybdrug09 in (2,3,4,5,96)) or (ybdrug10 and ybdrug10 in (2,3,4,5,96)) or (ybdrug12 and ybdrug12 in (2,3,4,5,96)) then drgcode=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode2=drgcode; drgcode=.; *--------------- drugs sweep 3-----------------------; *---------- make sure something ticked and no seneraon ticked, else missing---; if (ycdrgy01 or ycdrug01 or ycdrug02 or ycdrug01 or ycdrug02 or ycdrug03 or ycdrug04 or ycdrug05 or ycdrug06 or ycdrug07 or ycdrug08 or ycdrug09 or ycdrug10 or ycdrug12) and (ycdrug13 ^in (2,3,4,5,96)) then drgcode=0; if (ycdrug01 and ycdrug01 in (2,3,4,5,96)) then drgcode=drgcode+1; if (ycdrug02 and ycdrug02 in (2,3,4,5,96)) then drgcode=drgcode+10; if (ycdrug03 and ycdrug03 in (2,3,4,5,96)) or (ycdrug04 and ycdrug04 in (2,3,4,5,96)) or (ycdrug05 and ycdrug05 in (2,3,4,5,96)) or (ycdrug06 and ycdrug06 in (2,3,4,5,96)) or (ycdrug07 and ycdrug07 in (2,3,4,5,96)) or (ycdrug08 and ycdrug08 in (2,3,4,5,96)) or (ycdrug09 and ycdrug09 in (2,3,4,5,96)) or (ycdrug10 and ycdrug10 in (2,3,4,5,96)) or (ycdrug12 and ycdrug12 in (2,3,4,5,96)) then drgcode=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode3=drgcode; drgcode=.; *--------------- drugs sweep4-----------------------; *---------- make sure something ticked and no seneraon ticked, else missing---; if (yddrgy01 or yddrug01 or yddrug02 or yddrug01 or yddrug02 or yddrug03 or yddrug04 or yddrug05 or yddrug06 or yddrug07 or yddrug08 or yddrug09 or yddrug10 or yddrug12) and (yddrug13 ^in (2,3,4,5,96)) then drgcode=0; if (yddrug01 and yddrug01 in (2,3,4,5,96)) then drgcode=drgcode+1; if (yddrug02 and yddrug02 in (2,3,4,5,96)) then drgcode=drgcode+10; if (yddrug03 and yddrug03 in (2,3,4,5,96)) or (yddrug04 and yddrug04 in (2,3,4,5,96)) or (yddrug05 and yddrug05 in (2,3,4,5,96)) or (yddrug06 and yddrug06 in (2,3,4,5,96)) or (yddrug07 and yddrug07 in (2,3,4,5,96)) or (yddrug08 and yddrug08 in (2,3,4,5,96)) or (yddrug09 and yddrug09 in (2,3,4,5,96)) or (yddrug10 and yddrug10 in (2,3,4,5,96)) or (yddrug12 and yddrug12 in (2,3,4,5,96)) then drgcode=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode4=drgcode; drgcode=.; *--------------- drugs sweep 5-----------------------; *---------- make sure something ticked and no seneraon ticked, else missing---; if (yedrgy01 or yedrug01 or yedrug02 or yedrug01 or yedrug02 or yedrug03 or yedrug04 or yedrug05 or yedrug06 or yedrug07 or yedrug08 or yedrug09 or yedrug10 or yedrug12) and (yedrug13 ^in (2,3,4,5,96)) then drgcode=0; if (yedrug01 and yedrug01 in (2,3,4,5,96)) then drgcode=drgcode+1; if (yedrug02 and yedrug02 in (2,3,4,5,96)) then drgcode=drgcode+10; if (yedrug03 and yedrug03 in (2,3,4,5,96)) or (yedrug04 and yedrug04 in (2,3,4,5,96)) or (yedrug05 and yedrug05 in (2,3,4,5,96)) or (yedrug06 and yedrug06 in (2,3,4,5,96)) or (yedrug07 and yedrug07 in (2,3,4,5,96)) or (yedrug08 and yedrug08 in (2,3,4,5,96)) or (yedrug09 and yedrug09 in (2,3,4,5,96)) or (yedrug10 and yedrug10 in (2,3,4,5,96)) or (yedrug12 and yedrug12 in (2,3,4,5,96)) then drgcode5=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode5=drgcode; drgcode=.; /*--------------- drugs sweep 6----------------------- different codes used this time ------------------------------------------------------------*/ *---------- make sure something ticked and no seneraon ticked, else missing---; if (yfdrug31 or yfdrug32 or yfdrug31 or yfdrug32 or yfdrug33 or yfdrug34 or yfdrug35 or yfdrug36 or yfdrug37 or yfdrug38 or yfdrug39 or yfdrug40 or yfdrug42) and (yfdrug43 ^in (1,2,3,4,96)) then drgcode=0; if (yfdrug31 and yfdrug31 in (1,2,3,4,96)) then drgcode=drgcode+1; if (yfdrug32 and yfdrug32 in (1,2,3,4,96)) then drgcode=drgcode+10; if (yfdrug33 and yfdrug33 in (1,2,3,4,96)) or (yfdrug34 and yfdrug34 in (1,2,3,4,96)) or (yfdrug35 and yfdrug35 in (1,2,3,4,96)) or (yfdrug36 and yfdrug36 in (1,2,3,4,96)) or (yfdrug37 and yfdrug37 in (1,2,3,4,96)) or (yfdrug38 and yfdrug38 in (1,2,3,4,96)) or (yfdrug39 and yfdrug39 in (1,2,3,4,96)) or (yfdrug40 and yfdrug40 in (1,2,3,4,96)) or (yfdrug42 and yfdrug42 in (1,2,3,4,96)) then drgcode=drgcode+100; if drgcode=10 then drgcode=2; if drgcode>10 then drgcode=3; drgcode6=drgcode; drgcode=.; attrib drgcode1 label='Drug use summary code at sweep 1'; attrib drgcode2 label='Drug use summary code at sweep 2'; attrib drgcode3 label='Drug use summary code at sweep 3'; attrib drgcode4 label='Drug use summary code at sweep 4'; attrib drgcode5 label='Drug use summary code at sweep 5'; attrib drgcode6 label='Drug use summary code at sweep 6'; format drgcode1-drgcode6 drgcode.; format gender gender. ethgp ethgp. saagegp saagegp. SZABS04 HZEVREFI yesno. szindep szindep. YZLEAVE yzleave. sector sector.; format raalcy80 rbalcy80 rcalcy80 rdalcy80 realcy80 rfalcy80 alc.; format SASMKY80 SBSMKY80 SCSMKY80 SDSMKY80 SESMKY80 SFSMKY80 sm.; formAT yaybus01 yaybop01 yayshp01 yayjrd01 yayscl01 yaywep01 yaygrf01 yayrob01 yayvnd01 yayhbk01 yayhom01 yaycbk01 yayars01 yayhit01 yayskv01 ybybus01 ybybop01 ybyshp01 ybyjrd01 ybyscl01 ybywep01 ybygrf01 ybyrob01 ybyvnd01 ybyhbk01 ybyhom01 ybycbk01 ybyars01 ybyhit01 ybyskv01 ybypet01 ycybus01 ycybop01 ycyshp01 ycyjrd01 ycyscl01 ycywep01 ycygrf01 ycyrob01 ycyvnd01 ycyhbk01 ycyhom01 ycycbk01 ycyars01 ycyhit01 ycyskv01 ycypet01 ycydrg01 ycyrab01 ydybus01 ydybop01 ydyshp01 ydyjrd01 ydyscl01 ydywep01 ydygrf01 ydyrob01 ydyvnd01 ydyhbk01 ydyhom01 ydycbk01 ydyars01 ydyhit01 ydyskv01 ydypet01 ydydrg01 ydyrab01 yeybus01 yeybop01 yeyshp01 yeyjrd01 yeywep01 yeygrf01 yeyrob01 yeyvnd01 yeyhbk01 yeycbk01 yeyars01 yeyhit01 yeyskv01 yeypet01 yeydrg01 yeyrab01 yeyrst01 yfybop01 yfyshp01 yfyjrd01 yfywep01 yfyrob01 yfyvnd01 yfyhbk01 yfycbk01 yfyars01 yfyhit01 yfyskv01 yfypet01 yfydrg01 yfyrab01 yfyrst01 yfyrst21 yfybft01 yfyfrd01 YESNO.; FORMAT yaybus02 yaybop02 yayshp02 yayjrd02 yayscl02 yaywep02 yaygrf02 yayrob02 yayvnd02 yayhbk02 yayhom02 yaycbk02 yayars02 yayhit02 yayskv02 ybybus02 ybybop02 ybyshp02 ybyjrd02 ybyscl02 ybywep02 ybygrf02 ybyrob02 ybyvnd02 ybyhbk02 ybyhom02 ybycbk02 ybyars02 ybyhit02 ybyskv02 ybypet02 ycybus02 ycybop02 ycyshp02 ycyjrd02 ycyscl02 ycywep02 ycygrf02 ycyrob02 ycyvnd02 ycyhbk02 ycyhom02 ycycbk02 ycyars02 ycyhit02 ycyskv02 ycypet02 ycydrg02 ycyrab02 ydybus02 ydybop02 ydyshp02 ydyjrd02 ydyscl02 ydywep02 ydygrf02 ydyrob02 ydyvnd02 ydyhbk02 ydyhom02 ydycbk02 ydyars02 ydyhit02 ydyskv02 ydypet02 ydydrg02 ydyrab02 yeybus02 yeybop02 yeyshp02 yeyjrd02 yeywep02 yeygrf02 yeyrob02 yeyvnd02 yeyhbk02 yeycbk02 yeyars02 yeyhit02 yeyskv02 yeypet02 yeydrg02 yeyrab02 yeyrst02 yfybop02 yfyshp02 yfyjrd02 yfywep02 yfyrob02 yfyvnd02 yfyhbk02 yfycbk02 yfyars02 yfyhit02 yfyskv02 yfypet02 yfydrg02 yfyrab02 yfyrst02 yfyrst22 yfybft02 yfyfrd02 TIMES.; run; /*----------------------------------------------------------------------- now version to go to SPSS and Stata no formats proc freq data=ex6.ex6detail; table y:; format _numeric_ best.; run; -----------------------------------------------------------------------------*/ data ex6.ex6spss;set ex6.ex6; format _numeric_ best.; run; proc contents data=ex6.ex6spss; run; proc freq data=temp; table yaybus01*yaybus02/nocol nopercent missprint ;*behav*ydschool * ydsector; *where behav=1;*sectors*yaschool;*special *(sectors dvar4 dvol4); run; proc sort data =temp2; by ydschool; run; /*------------------------------------------------------------------------------------ now make export file to go to R and Stata --------------------------------------------------------------------------------------*/ libname xp xport 'C:\Documents and Settings\gillian raab\My Documents\aprojects\peaslaptop\ex6datafiles\data\ex6.xpt'; * export file for Stata; proc copy in=ex6 out=xp; select ex6spss; run; libname xp clear;