**************************************************************** * PROGRAM: SPS.SAS * * PROGRAMMER: E. Valente (IEE section added by K. Noser) * * DATE: 03/29/94, revised 04/04/96, revised 10/28/96 * * -A. Cunningham, revised 01/16/03 Anne Corrigan * * PURPOSE: Create a SAS dataset containing derived * * variables of the (1) Home Interview With Child * * (HIWC), Social Problem Solving scale (SPS), * * and Interview on Emotional Experiences (IEE). * * MODIFIED: Work off aggregated datasets, score only SPS * * 11/12/01 Patrick Malone. Modified for input and * * output dataset identification when writing Year * * 2 report- 01/16/03 Anne Corrigan * ****************************************************************; **Fill out information in next section for data processed ** **in this run. **; %let source=Child; /* not used 01/16/03 AMC */ %let src=c; %let inst=b; %let longname=socialproblemsolving; /* not used 01/16/03 AMC */ %let scoredname=SPS; **Enter high-level path (e.g., l:\datasets) **; %let path=d:\SASDATA\SPS2DataAll; **Enter year of data collection **; %let yr=2; /**Enter variable which must be present to retain record (typically interviewer id) **; %let screen=intid;*/ /* not used 01/16/03 AMC */ **Specify Lib for input datasets **; Libname SASIN "&path."; **Specify Lib for output datasets **; LIBNAME SASOUT "&path."; ****** DO NOT MODIFY BELOW THIS LINE **************; data SASOUT.&scoredname.&yr.scores; /*output name on local disk ends in scores - sps2scores*/ set SASIN.&src.&yr.&inst.clean; /* input name on local disk ends in clean. It is preprocessed */ /* if &screen ne ''; */ /* not used 01/16/03 AMC */ ** Process Soc Prob Solv data **; array PICI {3} C&yr.BSP1 - C&yr.BSP3; array PICJ {3} C&yr.BSP7 - C&yr.BSP9; array PICK {3} C&yr.BSP13 - C&yr.BSP15; array PICL {3} C&yr.BSP19 - C&yr.BSP21; array PICM {3} C&yr.BSP25 - C&yr.BSP27; array PICN {3} C&yr.BSP31 - C&yr.BSP33; array PICO {3} C&yr.BSP37 - C&yr.BSP39; array PICP {3} C&yr.BSP43 - C&yr.BSP45; /* Counter for each response type for each of the eight pictures */ /* Aggressive */ C&yr.BAGG1= 0; C&yr.BAGG2= 0; C&yr.BAGG3= 0; C&yr.BAGG4= 0; C&yr.BAGG5= 0; C&yr.BAGG6= 0; C&yr.BAGG7= 0; C&yr.BAGG8= 0; /* Competent */ C&yr.BCOM1= 0; C&yr.BCOM2= 0; C&yr.BCOM3= 0; C&yr.BCOM4= 0; C&yr.BCOM5= 0; C&yr.BCOM6= 0; C&yr.BCOM7= 0; C&yr.BCOM8= 0; /* Punish */ C&yr.BPUN1= 0; C&yr.BPUN2= 0; C&yr.BPUN3= 0; C&yr.BPUN4= 0; C&yr.BPUN5= 0; C&yr.BPUN6= 0; C&yr.BPUN7= 0; C&yr.BPUN8= 0; /* Intervene */ C&yr.BINT1= 0; C&yr.BINT2= 0; C&yr.BINT3= 0; C&yr.BINT4= 0; C&yr.BINT5= 0; C&yr.BINT6= 0; C&yr.BINT7= 0; C&yr.BINT8= 0; /* Passive */ C&yr.BPAS1= 0; C&yr.BPAS2= 0; C&yr.BPAS3= 0; C&yr.BPAS4= 0; C&yr.BPAS5= 0; C&yr.BPAS6= 0; C&yr.BPAS7= 0; C&yr.BPAS8= 0; /* Irrelevant */ C&yr.BIRR1= 0; C&yr.BIRR2= 0; C&yr.BIRR3= 0; C&yr.BIRR4= 0; C&yr.BIRR5= 0; C&yr.BIRR6= 0; C&yr.BIRR7= 0; C&yr.BIRR8= 0; /* No Response */ C&yr.BNR1= 0; C&yr.BNR2= 0; C&yr.BNR3= 0; C&yr.BNR4= 0; C&yr.BNR5= 0; C&yr.BNR6= 0; C&yr.BNR7= 0; C&yr.BNR8= 0; /* Calculate number of responses in each category for */ /* each picture. NOTE: Missing values considered */ /* nonresponses */ do I = 1 to 3; if PICI{I}= 0 then C&yr.BAGG1 +1; else if PICI{I}= 1 then C&yr.BCOM1 +1; else if PICI{I}= 2 then C&yr.BPUN1 +1; else if PICI{I}= 3 then C&yr.BINT1 +1; else if PICI{I}= 4 then C&yr.BPAS1 +1; else if PICI{I}= 5 then C&yr.BIRR1 +1; else C&yr.BNR1 +1; if PICJ{I}= 0 then C&yr.BAGG2 +1; else if PICJ{I}= 1 then C&yr.BCOM2 +1; else if PICJ{I}= 2 then C&yr.BPUN2 +1; else if PICJ{I}= 3 then C&yr.BINT2 +1; else if PICJ{I}= 4 then C&yr.BPAS2 +1; else if PICJ{I}= 5 then C&yr.BIRR2 +1; else C&yr.BNR2 +1; if PICK{I}= 0 then C&yr.BAGG3 +1; else if PICK{I}= 1 then C&yr.BCOM3 +1; else if PICK{I}= 2 then C&yr.BPUN3 +1; else if PICK{I}= 3 then C&yr.BINT3 +1; else if PICK{I}= 4 then C&yr.BPAS3 +1; else if PICK{I}= 5 then C&yr.BIRR3 +1; else C&yr.BNR3 +1; if PICL{I}= 0 then C&yr.BAGG4 +1; else if PICL{I}= 1 then C&yr.BCOM4 +1; else if PICL{I}= 2 then C&yr.BPUN4 +1; else if PICL{I}= 3 then C&yr.BINT4 +1; else if PICL{I}= 4 then C&yr.BPAS4 +1; else if PICL{I}= 5 then C&yr.BIRR4 +1; else C&yr.BNR4 +1; if PICM{I}= 0 then C&yr.BAGG5 +1; else if PICM{I}= 1 then C&yr.BCOM5 +1; else if PICM{I}= 2 then C&yr.BPUN5 +1; else if PICM{I}= 3 then C&yr.BINT5 +1; else if PICM{I}= 4 then C&yr.BPAS5 +1; else if PICM{I}= 5 then C&yr.BIRR5 +1; else C&yr.BNR5 +1; if PICN{I}= 0 then C&yr.BAGG6 +1; else if PICN{I}= 1 then C&yr.BCOM6 +1; else if PICN{I}= 2 then C&yr.BPUN6 +1; else if PICN{I}= 3 then C&yr.BINT6 +1; else if PICN{I}= 4 then C&yr.BPAS6 +1; else if PICN{I}= 5 then C&yr.BIRR6 +1; else C&yr.BNR6 +1; if PICO{I}= 0 then C&yr.BAGG7 +1; else if PICO{I}= 1 then C&yr.BCOM7 +1; else if PICO{I}= 2 then C&yr.BPUN7 +1; else if PICO{I}= 3 then C&yr.BINT7 +1; else if PICO{I}= 4 then C&yr.BPAS7 +1; else if PICO{I}= 5 then C&yr.BIRR7 +1; else C&yr.BNR7 +1; if PICP{I}= 0 then C&yr.BAGG8 +1; else if PICP{I}= 1 then C&yr.BCOM8 +1; else if PICP{I}= 2 then C&yr.BPUN8 +1; else if PICP{I}= 3 then C&yr.BINT8 +1; else if PICP{I}= 4 then C&yr.BPAS8 +1; else if PICP{I}= 5 then C&yr.BIRR8 +1; else C&yr.BNR8 +1; end; /* Number of Responses to each picture (out of 3 poss) */ ARRAY NUM {8} C&yr.BNUM1-C&yr.BNUM8; ARRAY NR {8} C&yr.BNR1 -C&yr.BNR8; do I = 1 to 8; if NR{I}= 3 then NUM{I}= .; else NUM{I} = 3-NR{I}; end; label C&yr.BNUM1 = "Total # of resps to pic I SPS Y&yr." C&yr.BNUM2 = "Total # of resps to pic J SPS Y&yr." C&yr.BNUM3 = "Total # of resps to pic K SPS Y&yr." C&yr.BNUM4 = "Total # of resps to pic L SPS Y&yr." C&yr.BNUM5 = "Total # of resps to pic M SPS Y&yr." C&yr.BNUM6 = "Total # of resps to pic N SPS Y&yr." C&yr.BNUM7 = "Total # of resps to pic O SPS Y&yr." C&yr.BNUM8 = "Total # of resps to pic P SPS Y&yr."; /* Pct of responses of each type for each picture */ C&yr.BAGP1 = C&yr.BAGG1/C&yr.BNUM1; C&yr.BCOP1 = C&yr.BCOM1/C&yr.BNUM1; C&yr.BPUP1 = C&yr.BPUN1/C&yr.BNUM1; C&yr.BINP1 = C&yr.BINT1/C&yr.BNUM1; C&yr.BPAP1 = C&yr.BPAS1/C&yr.BNUM1; C&yr.BIRP1 = C&yr.BIRR1/C&yr.BNUM1; C&yr.BNRP1 = C&yr.BNR1/3; C&yr.BAGP2 = C&yr.BAGG2/C&yr.BNUM2; C&yr.BCOP2 = C&yr.BCOM2/C&yr.BNUM2; C&yr.BPUP2 = C&yr.BPUN2/C&yr.BNUM2; C&yr.BINP2 = C&yr.BINT2/C&yr.BNUM2; C&yr.BPAP2 = C&yr.BPAS2/C&yr.BNUM2; C&yr.BIRP2 = C&yr.BIRR2/C&yr.BNUM2; C&yr.BNRP2 = C&yr.BNR2/3; C&yr.BAGP3 = C&yr.BAGG3/C&yr.BNUM3; C&yr.BCOP3 = C&yr.BCOM3/C&yr.BNUM3; C&yr.BPUP3 = C&yr.BPUN3/C&yr.BNUM3; C&yr.BINP3 = C&yr.BINT3/C&yr.BNUM3; C&yr.BPAP3 = C&yr.BPAS3/C&yr.BNUM3; C&yr.BIRP3 = C&yr.BIRR3/C&yr.BNUM3; C&yr.BNRP3 = C&yr.BNR3/3; C&yr.BAGP4 = C&yr.BAGG4/C&yr.BNUM4; C&yr.BCOP4 = C&yr.BCOM4/C&yr.BNUM4; C&yr.BPUP4 = C&yr.BPUN4/C&yr.BNUM4; C&yr.BINP4 = C&yr.BINT4/C&yr.BNUM4; C&yr.BPAP4 = C&yr.BPAS4/C&yr.BNUM4; C&yr.BIRP4 = C&yr.BIRR4/C&yr.BNUM4; C&yr.BNRP4 = C&yr.BNR4/3; C&yr.BAGP5 = C&yr.BAGG5/C&yr.BNUM5; C&yr.BCOP5 = C&yr.BCOM5/C&yr.BNUM5; C&yr.BPUP5 = C&yr.BPUN5/C&yr.BNUM5; C&yr.BINP5 = C&yr.BINT5/C&yr.BNUM5; C&yr.BPAP5 = C&yr.BPAS5/C&yr.BNUM5; C&yr.BIRP5 = C&yr.BIRR5/C&yr.BNUM5; C&yr.BNRP5 = C&yr.BNR5/3; C&yr.BAGP6 = C&yr.BAGG6/C&yr.BNUM6; C&yr.BCOP6 = C&yr.BCOM6/C&yr.BNUM6; C&yr.BPUP6 = C&yr.BPUN6/C&yr.BNUM6; C&yr.BINP6 = C&yr.BINT6/C&yr.BNUM6; C&yr.BPAP6 = C&yr.BPAS6/C&yr.BNUM6; C&yr.BIRP6 = C&yr.BIRR6/C&yr.BNUM6; C&yr.BNRP6 = C&yr.BNR6/3; C&yr.BAGP7 = C&yr.BAGG7/C&yr.BNUM7; C&yr.BCOP7 = C&yr.BCOM7/C&yr.BNUM7; C&yr.BPUP7 = C&yr.BPUN7/C&yr.BNUM7; C&yr.BINP7 = C&yr.BINT7/C&yr.BNUM7; C&yr.BPAP7 = C&yr.BPAS7/C&yr.BNUM7; C&yr.BIRP7 = C&yr.BIRR7/C&yr.BNUM7; C&yr.BNRP7 = C&yr.BNR7/3; C&yr.BAGP8 = C&yr.BAGG8/C&yr.BNUM8; C&yr.BCOP8 = C&yr.BCOM8/C&yr.BNUM8; C&yr.BPUP8 = C&yr.BPUN8/C&yr.BNUM8; C&yr.BINP8 = C&yr.BINT8/C&yr.BNUM8; C&yr.BPAP8 = C&yr.BPAS8/C&yr.BNUM8; C&yr.BIRP8 = C&yr.BIRR8/C&yr.BNUM8; C&yr.BNRP8 = C&yr.BNR8/3; label C&yr.BAGG1 = "Num Agg resps to pic I SPS Y&yr." C&yr.BCOM1 = "Num Com resps to pic I SPS Y&yr." C&yr.BPUN1 = "Num Pun resps to pic I SPS Y&yr." C&yr.BINT1 = "Num Int resps to pic I SPS Y&yr." C&yr.BPAS1 = "Num Pas resps to pic I SPS Y&yr." C&yr.BIRR1 = "Num Irr resps to pic I SPS Y&yr." C&yr.BNR1 = "Num NR resps to pic I SPS Y&yr." C&yr.BAGG2 = "Num Agg resps to pic J SPS Y&yr." C&yr.BCOM2 = "Num Com resps to pic J SPS Y&yr." C&yr.BPUN2 = "Num Pun resps to pic J SPS Y&yr." C&yr.BINT2 = "Num Int resps to pic J SPS Y&yr." C&yr.BPAS2 = "Num Pas resps to pic J SPS Y&yr." C&yr.BIRR2 = "Num Irr resps to pic J SPS Y&yr." C&yr.BNR2 = "Num NR resps to pic J SPS Y&yr." C&yr.BAGG3 = "Num Agg resps to pic K SPS Y&yr." C&yr.BCOM3 = "Num Com resps to pic K SPS Y&yr." C&yr.BPUN3 = "Num Pun resps to pic K SPS Y&yr." C&yr.BINT3 = "Num Int resps to pic K SPS Y&yr." C&yr.BPAS3 = "Num Pas resps to pic K SPS Y&yr." C&yr.BIRR3 = "Num Irr resps to pic K SPS Y&yr." C&yr.BNR3 = "Num NR resps to pic K SPS Y&yr." C&yr.BAGG4 = "Num Agg resps to pic L SPS Y&yr." C&yr.BCOM4 = "Num Com resps to pic L SPS Y&yr." C&yr.BPUN4 = "Num Pun resps to pic L SPS Y&yr." C&yr.BINT4 = "Num Int resps to pic L SPS Y&yr." C&yr.BPAS4 = "Num Pas resps to pic L SPS Y&yr." C&yr.BIRR4 = "Num Irr resps to pic L SPS Y&yr." C&yr.BNR4 = "Num NR resps to pic L SPS Y&yr." C&yr.BAGG5 = "Num Agg resps to pic M SPS Y&yr." C&yr.BCOM5 = "Num Com resps to pic M SPS Y&yr." C&yr.BPUN5 = "Num Pun resps to pic M SPS Y&yr." C&yr.BINT5 = "Num Int resps to pic M SPS Y&yr." C&yr.BPAS5 = "Num Pas resps to pic M SPS Y&yr." C&yr.BIRR5 = "Num Irr resps to pic M SPS Y&yr." C&yr.BNR5 = "Num NR resps to pic M SPS Y&yr." C&yr.BAGG6 = "Num Agg resps to pic N SPS Y&yr." C&yr.BCOM6 = "Num Com resps to pic N SPS Y&yr." C&yr.BPUN6 = "Num Pun resps to pic N SPS Y&yr." C&yr.BINT6 = "Num Int resps to pic N SPS Y&yr." C&yr.BPAS6 = "Num Pas resps to pic N SPS Y&yr." C&yr.BIRR6 = "Num Irr resps to pic N SPS Y&yr." C&yr.BNR6 = "Num NR resps to pic N SPS Y&yr." C&yr.BAGG7 = "Num Agg resps to pic O SPS Y&yr." C&yr.BCOM7 = "Num Com resps to pic O SPS Y&yr." C&yr.BPUN7 = "Num Pun resps to pic O SPS Y&yr." C&yr.BINT7 = "Num Int resps to pic O SPS Y&yr." C&yr.BPAS7 = "Num Pas resps to pic O SPS Y&yr." C&yr.BIRR7 = "Num Irr resps to pic O SPS Y&yr." C&yr.BNR7 = "Num NR resps to pic O SPS Y&yr." C&yr.BAGG8 = "Num Agg resps to pic P SPS Y&yr." C&yr.BCOM8 = "Num Com resps to pic P SPS Y&yr." C&yr.BPUN8 = "Num Pun resps to pic P SPS Y&yr." C&yr.BINT8 = "Num Int resps to pic P SPS Y&yr." C&yr.BPAS8 = "Num Pas resps to pic P SPS Y&yr." C&yr.BIRR8 = "Num Irr resps to pic P SPS Y&yr." C&yr.BNR8 = "Num NR resps to pic P SPS Y&yr." C&yr.BAGP1 = "Pct Agg resps to pic I SPS Y&yr." C&yr.BCOP1 = "Pct Com resps to pic I SPS Y&yr." C&yr.BPUP1 = "Pct Pun resps to pic I SPS Y&yr." C&yr.BINP1 = "Pct Int resps to pic I SPS Y&yr." C&yr.BPAP1 = "Pct Pas resps to pic I SPS Y&yr." C&yr.BIRP1 = "Pct Irr resps to pic I SPS Y&yr." C&yr.BNRP1 = "Pct NR resps to pic I SPS Y&yr." C&yr.BAGP2 = "Pct Agg resps to pic J SPS Y&yr." C&yr.BCOP2 = "Pct Com resps to pic J SPS Y&yr." C&yr.BPUP2 = "Pct Pun resps to pic J SPS Y&yr." C&yr.BINP2 = "Pct Int resps to pic J SPS Y&yr." C&yr.BPAP2 = "Pct Pas resps to pic J SPS Y&yr." C&yr.BIRP2 = "Pct Irr resps to pic J SPS Y&yr." C&yr.BNRP2 = "Pct NR resps to pic J SPS Y&yr." C&yr.BAGP3 = "Pct Agg resps to pic K SPS Y&yr." C&yr.BCOP3 = "Pct Com resps to pic K SPS Y&yr." C&yr.BPUP3 = "Pct Pun resps to pic K SPS Y&yr." C&yr.BINP3 = "Pct Int resps to pic K SPS Y&yr." C&yr.BPAP3 = "Pct Pas resps to pic K SPS Y&yr." C&yr.BIRP3 = "Pct Irr resps to pic K SPS Y&yr." C&yr.BNRP3 = "Pct NR resps to pic K SPS Y&yr." C&yr.BAGP4 = "Pct Agg resps to pic L SPS Y&yr." C&yr.BCOP4 = "Pct Com resps to pic L SPS Y&yr." C&yr.BPUP4 = "Pct Pun resps to pic L SPS Y&yr." C&yr.BINP4 = "Pct Int resps to pic L SPS Y&yr." C&yr.BPAP4 = "Pct Pas resps to pic L SPS Y&yr." C&yr.BIRP4 = "Pct Irr resps to pic L SPS Y&yr." C&yr.BNRP4 = "Pct NR resps to pic L SPS Y&yr." C&yr.BAGP5 = "Pct Agg resps to pic M SPS Y&yr." C&yr.BCOP5 = "Pct Com resps to pic M SPS Y&yr." C&yr.BPUP5 = "Pct Pun resps to pic M SPS Y&yr." C&yr.BINP5 = "Pct Int resps to pic M SPS Y&yr." C&yr.BPAP5 = "Pct Pas resps to pic M SPS Y&yr." C&yr.BIRP5 = "Pct Irr resps to pic M SPS Y&yr." C&yr.BNRP5 = "Pct NR resps to pic M SPS Y&yr." C&yr.BAGP6 = "Pct Agg resps to pic N SPS Y&yr." C&yr.BCOP6 = "Pct Com resps to pic N SPS Y&yr." C&yr.BPUP6 = "Pct Pun resps to pic N SPS Y&yr." C&yr.BINP6 = "Pct Int resps to pic N SPS Y&yr." C&yr.BPAP6 = "Pct Pas resps to pic N SPS Y&yr." C&yr.BIRP6 = "Pct Irr resps to pic N SPS Y&yr." C&yr.BNRP6 = "Pct NR resps to pic N SPS Y&yr." C&yr.BAGP7 = "Pct Agg resps to pic O SPS Y&yr." C&yr.BCOP7 = "Pct Com resps to pic O SPS Y&yr." C&yr.BPUP7 = "Pct Pun resps to pic O SPS Y&yr." C&yr.BINP7 = "Pct Int resps to pic O SPS Y&yr." C&yr.BPAP7 = "Pct Pas resps to pic O SPS Y&yr." C&yr.BIRP7 = "Pct Irr resps to pic O SPS Y&yr." C&yr.BNRP7 = "Pct NR resps to pic O SPS Y&yr." C&yr.BAGP8 = "Pct Agg resps to pic P SPS Y&yr." C&yr.BCOP8 = "Pct Com resps to pic P SPS Y&yr." C&yr.BPUP8 = "Pct Pun resps to pic P SPS Y&yr." C&yr.BINP8 = "Pct Int resps to pic P SPS Y&yr." C&yr.BPAP8 = "Pct Pas resps to pic P SPS Y&yr." C&yr.BIRP8 = "Pct Irr resps to pic P SPS Y&yr." C&yr.BNRP8 = "Pct NR resps to pic P SPS Y&yr."; /* Mean Percentage score for each category across pics */ C&yr.BMAGP = mean(of C&yr.BAGP1-C&yr.BAGP8); C&yr.BMCOP = mean(of C&yr.BCOP1-C&yr.BCOP8); C&yr.BMPUP = mean(of C&yr.BPUP1-C&yr.BPUP8); C&yr.BMINP = mean(of C&yr.BINP1-C&yr.BINP8); C&yr.BMPAP = mean(of C&yr.BPAP1-C&yr.BPAP8); C&yr.BMIRP = mean(of C&yr.BIRP1-C&yr.BIRP8); label C&yr.BMAGP = "Mean pct of Agg resps all pics SPS Y&yr." C&yr.BMCOP = "Mean pct of Com resps all pics SPS Y&yr." C&yr.BMPUP = "Mean pct of Pun resps all pics SPS Y&yr." C&yr.BMINP = "Mean pct of Int resps all pics SPS Y&yr." C&yr.BMPAP = "Mean pct of Pas resps all pics SPS Y&yr." C&yr.BMIRP = "Mean pct of Irr resps all pics SPS Y&yr."; /* Calculate total missing across pics */ c&yr.totNR = C&yr.BNR1 + C&yr.BNR2 + C&yr.BNR3 + C&yr.BNR4 + C&yr.BNR5 + C&yr.BNR6 + C&yr.BNR7 + C&yr.BNR8; label c&yr.totNR = "Total No Responses"; keep COHORT SITE TCID NORM TREATMNT c&yr.totNR C&yr.BNUM1 C&yr.BNUM2 C&yr.BNUM3 C&yr.BNUM4 C&yr.BNUM5 C&yr.BNUM6 C&yr.BNUM7 C&yr.BNUM8 C&yr.BAGG1 C&yr.BCOM1 C&yr.BPUN1 C&yr.BINT1 C&yr.BPAS1 C&yr.BIRR1 C&yr.BNR1 C&yr.BAGG2 C&yr.BCOM2 C&yr.BPUN2 C&yr.BINT2 C&yr.BPAS2 C&yr.BIRR2 C&yr.BNR2 C&yr.BAGG3 C&yr.BCOM3 C&yr.BPUN3 C&yr.BINT3 C&yr.BPAS3 C&yr.BIRR3 C&yr.BNR3 C&yr.BAGG4 C&yr.BCOM4 C&yr.BPUN4 C&yr.BINT4 C&yr.BPAS4 C&yr.BIRR4 C&yr.BNR4 C&yr.BAGG5 C&yr.BCOM5 C&yr.BPUN5 C&yr.BINT5 C&yr.BPAS5 C&yr.BIRR5 C&yr.BNR5 C&yr.BAGG6 C&yr.BCOM6 C&yr.BPUN6 C&yr.BINT6 C&yr.BPAS6 C&yr.BIRR6 C&yr.BNR6 C&yr.BAGG7 C&yr.BCOM7 C&yr.BPUN7 C&yr.BINT7 C&yr.BPAS7 C&yr.BIRR7 C&yr.BNR7 C&yr.BAGG8 C&yr.BCOM8 C&yr.BPUN8 C&yr.BINT8 C&yr.BPAS8 C&yr.BIRR8 C&yr.BNR8 C&yr.BAGP1 C&yr.BCOP1 C&yr.BPUP1 C&yr.BINP1 C&yr.BPAP1 C&yr.BIRP1 C&yr.BNRP1 C&yr.BAGP2 C&yr.BCOP2 C&yr.BPUP2 C&yr.BINP2 C&yr.BPAP2 C&yr.BIRP2 C&yr.BNRP2 C&yr.BAGP3 C&yr.BCOP3 C&yr.BPUP3 C&yr.BINP3 C&yr.BPAP3 C&yr.BIRP3 C&yr.BNRP3 C&yr.BAGP4 C&yr.BCOP4 C&yr.BPUP4 C&yr.BINP4 C&yr.BPAP4 C&yr.BIRP4 C&yr.BNRP4 C&yr.BAGP5 C&yr.BCOP5 C&yr.BPUP5 C&yr.BINP5 C&yr.BPAP5 C&yr.BIRP5 C&yr.BNRP5 C&yr.BAGP6 C&yr.BCOP6 C&yr.BPUP6 C&yr.BINP6 C&yr.BPAP6 C&yr.BIRP6 C&yr.BNRP6 C&yr.BAGP7 C&yr.BCOP7 C&yr.BPUP7 C&yr.BINP7 C&yr.BPAP7 C&yr.BIRP7 C&yr.BNRP7 C&yr.BAGP8 C&yr.BCOP8 C&yr.BPUP8 C&yr.BINP8 C&yr.BPAP8 C&yr.BIRP8 C&yr.BNRP8 C&yr.BMAGP C&yr.BMCOP C&yr.BMPUP C&yr.BMINP C&yr.BMPAP C&yr.BMIRP ; RENAME c&yr.bagg1=sps&yr.NA1 c&yr.bagg2=sps&yr.NA2 c&yr.bagg3=sps&yr.NA3 c&yr.bagg4=sps&yr.NA4 c&yr.bagg5=sps&yr.NA5 c&yr.bagg6=sps&yr.NA6 c&yr.bagg7=sps&yr.NA7 c&yr.bagg8=sps&yr.NA8 c&yr.bagp1=sps&yr.PA1 c&yr.bagp2=sps&yr.PA2 c&yr.bagp3=sps&yr.PA3 c&yr.bagp4=sps&yr.PA4 c&yr.bagp5=sps&yr.PA5 c&yr.bagp6=sps&yr.PA6 c&yr.bagp7=sps&yr.PA7 c&yr.bagp8=sps&yr.PA8 c&yr.bcom1=sps&yr.NC1 c&yr.bcom2=sps&yr.NC2 c&yr.bcom3=sps&yr.NC3 c&yr.bcom4=sps&yr.NC4 c&yr.bcom5=sps&yr.NC5 c&yr.bcom6=sps&yr.NC6 c&yr.bcom7=sps&yr.NC7 c&yr.bcom8=sps&yr.NC8 c&yr.bcop1=sps&yr.PC1 c&yr.bcop2=sps&yr.PC2 c&yr.bcop3=sps&yr.PC3 c&yr.bcop4=sps&yr.PC4 c&yr.bcop5=sps&yr.PC5 c&yr.bcop6=sps&yr.PC6 c&yr.bcop7=sps&yr.PC7 c&yr.bcop8=sps&yr.PC8 c&yr.binp1=sps&yr.PI1 c&yr.binp2=sps&yr.PI2 c&yr.binp3=sps&yr.PI3 c&yr.binp4=sps&yr.PI4 c&yr.binp5=sps&yr.PI5 c&yr.binp6=sps&yr.PI6 c&yr.binp7=sps&yr.PI7 c&yr.binp8=sps&yr.PI8 c&yr.bint1=sps&yr.NI1 c&yr.bint2=sps&yr.NI2 c&yr.bint3=sps&yr.NI3 c&yr.bint4=sps&yr.NI4 c&yr.bint5=sps&yr.NI5 c&yr.bint6=sps&yr.NI6 c&yr.bint7=sps&yr.NI7 c&yr.bint8=sps&yr.NI8 c&yr.birp1=sps&yr.PR1 c&yr.birp2=sps&yr.PR2 c&yr.birp3=sps&yr.PR3 c&yr.birp4=sps&yr.PR4 c&yr.birp5=sps&yr.PR5 c&yr.birp6=sps&yr.PR6 c&yr.birp7=sps&yr.PR7 c&yr.birp8=sps&yr.PR8 c&yr.birr1=sps&yr.NR1 c&yr.birr2=sps&yr.NR2 c&yr.birr3=sps&yr.NR3 c&yr.birr4=sps&yr.NR4 c&yr.birr5=sps&yr.NR5 c&yr.birr6=sps&yr.NR6 c&yr.birr7=sps&yr.NR7 c&yr.birr8=sps&yr.NR8 c&yr.bnr1=sps&yr.NN1 c&yr.bnr2=sps&yr.NN2 c&yr.bnr3=sps&yr.NN3 c&yr.bnr4=sps&yr.NN4 c&yr.bnr5=sps&yr.NN5 c&yr.bnr6=sps&yr.NN6 c&yr.bnr7=sps&yr.NN7 c&yr.bnr8=sps&yr.NN8 c&yr.bnrp1=sps&yr.PN1 c&yr.bnrp2=sps&yr.PN2 c&yr.bnrp3=sps&yr.PN3 c&yr.bnrp4=sps&yr.PN4 c&yr.bnrp5=sps&yr.PN5 c&yr.bnrp6=sps&yr.PN6 c&yr.bnrp7=sps&yr.PN7 c&yr.bnrp8=sps&yr.PN8 c&yr.bnum1=sps&yr.NT1 c&yr.bnum2=sps&yr.NT2 c&yr.bnum3=sps&yr.NT3 c&yr.bnum4=sps&yr.NT4 c&yr.bnum5=sps&yr.NT5 c&yr.bnum6=sps&yr.NT6 c&yr.bnum7=sps&yr.NT7 c&yr.bnum8=sps&yr.NT8 c&yr.bpap1=sps&yr.PP1 c&yr.bpap2=sps&yr.PP2 c&yr.bpap3=sps&yr.PP3 c&yr.bpap4=sps&yr.PP4 c&yr.bpap5=sps&yr.PP5 c&yr.bpap6=sps&yr.PP6 c&yr.bpap7=sps&yr.PP7 c&yr.bpap8=sps&yr.PP8 c&yr.bpas1=sps&yr.NP1 c&yr.bpas2=sps&yr.NP2 c&yr.bpas3=sps&yr.NP3 c&yr.bpas4=sps&yr.NP4 c&yr.bpas5=sps&yr.NP5 c&yr.bpas6=sps&yr.NP6 c&yr.bpas7=sps&yr.NP7 c&yr.bpas8=sps&yr.NP8 c&yr.bpun1=sps&yr.NU1 c&yr.bpun2=sps&yr.NU2 c&yr.bpun3=sps&yr.NU3 c&yr.bpun4=sps&yr.NU4 c&yr.bpun5=sps&yr.NU5 c&yr.bpun6=sps&yr.NU6 c&yr.bpun7=sps&yr.NU7 c&yr.bpun8=sps&yr.NU8 c&yr.bpup1=sps&yr.PU1 c&yr.bpup2=sps&yr.PU2 c&yr.bpup3=sps&yr.PU3 c&yr.bpup4=sps&yr.PU4 c&yr.bpup5=sps&yr.PU5 c&yr.bpup6=sps&yr.PU6 c&yr.bpup7=sps&yr.PU7 c&yr.bpup8=sps&yr.PU8 c&yr.bMAGP=sps&yr.MPA c&yr.bMCOP=sps&yr.MPC c&yr.bMINP=sps&yr.MPI c&yr.bMIRP=sps&yr.MPR c&yr.bMPAP=sps&yr.MPP c&yr.bMPUP=sps&yr.MPU; run;