topic Re: COLUMN INTO A LINE in New SAS User

COLUMN INTO A LINE

Tecla1 — Thu, 05 Dec 2019 14:55:14 GMT

Good afternoon,

there is a best way to do this better (a very big program...) and in a few time ?:

Many tnks !!!!

data base_new_e_1911;
set Anadefi.Base_dati_90_e_1911;
if OUT_VOCE_CD= 'ALRTN1' and OUT_RISPOSTA_CD=2 then do;
ALRTN1_2=1;
ALRTN1_3=0;
ALRTN1_5=0;
ALRTN1_6=0;
ALRTN1_98=0;
ALRTN1_99=0;
ALRTN2_0=0;
ALRTN2_10=0;
ALRTN2_3=0;
ALRTN2_6=0;
ALRTN2_99=0;
ALRTN3_0=0;
ALRTN3_2=0;
ALRTN3_3=0;
ALRTN3_99=0;
ALRTN4_2=0;
ALRTN4_3=0;
ALRTN4_99=0;
ALRTN5_0=0;
ALRTN5_2=0;
ALRTN5_3=0;
ALRTN5_4=0;
ALRTN5_7=0;
ALRTN5_8=0;
ALRTN5_99=0;
ALRTN6_0=0;
ALRTN6_2=0;
ALRTN6_3=0;
ALRTN6_4=0;
ALRTN6_99=0;
ALRTN7_0=0;
ALRTN7_1=0;
ALRTN7_2=0;
ALRTN7_3=0;
ALRTN7_7=0;
ALRTN7_99=0;
ALRTN8_0=0;
ALRTN8_1=0;
ALRTN8_3=0;
ALRTN8_99=0;
ALRTN9_0=0;
ALRTN9_5=0;
ALRTN9_7=0;
ALRTN9_99=0;
CNTGL_0=0;
CNTGL_1=0;
CNTGL_2=0;
CNTGL_3=0;
CNTGL_4=0;
CNTGL_5=0;
C_B10_0=0;
C_B10_15=0;
C_B13_0=0;
C_B13_5=0;
C_B2_0=0;
C_B2_10=0;
C_B2_30=0;
C_B3_0=0;
C_B3_20=0;
C_B4_0=0;
C_B4_10=0;
C_B4_15=0;
C_B4_5=0;
C_B5_0=0;
C_B5_10=0;
C_B5_15=0;
C_B5_5=0;
C_B6_0=0;
C_B6_20=0;
C_B7_5=0;
C_B7_0=0;
C_B8P_0=0;
C_B8P_10=0;
C_B9_0=0;
C_B9_15=0;
C_B9_5=0;
C_B9B_0=0;
C_B9B_15=0;
C_P10_0=0;
C_P10_2=0;
C_P10_3=0;
C_P10_6=0;
C_P10_7=0;
C_P11_0=0;
C_P11_3=0;
C_P11_6=0;
C_P11_7=0;
C_P6_0=0;
C_P6_3=0;
C_P6_5=0;
C_P6_7=0;
C_P7_0=0;
C_P7_2=0;
C_P7_3=0;
C_P7_4=0;
C_P7_5=0;
C_P7_7=0;
C_P8_0=0;
C_P8_3=0;
C_P8_5=0;
C_P8_7=0;
C_P9_0=0;
C_P9_5=0;
C_P9_7=0;
C_P9_8=0;
DFNOT_0=0;
DFNOT_10=0;
DFNOT_11=0;
DFNOT_12=0;
DFNOT_13=0;
DFNOT_14=0;
DFNOT_15=0;
DFNOT_16=0;
DFNOT_17=0;
DFNOT_18=0;
DFNOT_19=0;
DFNOT_20=0;
DFNOT_3=0;
DFNOT_4=0;
DFNOT_5=0;
DFNOT_6=0;
DFNOT_7=0;
DFNOT_8=0;
DFNOT_9=0;
EPNOT_0=0;
EPNOT_10=0;
EPNOT_11=0;
EPNOT_12=0;
EPNOT_13=0;
EPNOT_14=0;
EPNOT_15=0;
EPNOT_16=0;
EPNOT_17=0;
EPNOT_18=0;
EPNOT_19=0;
EPNOT_2=0;
EPNOT_21=0;
EPNOT_3=0;
EPNOT_4=0;
EPNOT_5=0;
EPNOT_6=0;
EPNOT_7=0;
EPNOT_8=0;
EPNOT_9=0;
ERP_0=0;
ERP_1=0;
MANOT_0=0;
MANOT_10=0;
MANOT_11=0;
MANOT_12=0;
MANOT_13=0;
MANOT_14=0;
MANOT_15=0;
MANOT_16=0;
MANOT_17=0;
MANOT_19=0;
MANOT_2=0;
MANOT_21=0;
MANOT_3=0;
MANOT_4=0;
MANOT_5=0;
MANOT_6=0;
MANOT_7=0;
MANOT_8=0;
MANOT_9=0;
NCA_1=0;
NCA_2=0;
NCA_4=0;
NSRP_1=0;
NSRP_2=0;
NSRP_29=0;
NSRP_3=0;
NSRP_54=0;
NSRP_55=0;
NSRP_56=0;
NSRP_99=0;
NTCB1_0=0;
NTCB1_1=0;
NTCB2_0=0;
NTCB2_1=0;
NTCB3_0=0;
NTCB3_1=0;
NTCB4_0=0;
NTCB4_1=0;
NTFAT_0=0;
NTFAT_1=0;
NTFAT_10=0;
NTFAT_2=0;
NTFAT_3=0;
NTFAT_4=0;
NTFAT_5=0;
PDNOR_10=0;
PDNOR_11=0;
PDNOR_12=0;
PDNOR_13=0;
PDNOR_14=0;
PDNOR_15=0;
PDNOR_2=0;
PDNOR_3=0;
PDNOR_4=0;
PDNOR_5=0;
PDNOR_6=0;
PDNOR_7=0;
PDNOR_8=0;
PDNOR_9=0;
PDNOR_99=0;
SFNOT_0=0;
SFNOT_1=0;
SFNOT_10=0;
SFNOT_11=0;
SFNOT_12=0;
SFNOT_14=0;
SFNOT_2=0;
SFNOT_3=0;
SFNOT_4=0;
SFNOT_5=0;
SFNOT_6=0;
SFNOT_7=0;
SFNOT_8=0;
SFNOT_9=0;
SRP_0=0;
SRP_2=0;
SRP_3=0;
SRP_4=0;

end;
if OUT_VOCE_CD= 'ALRTN1' and OUT_RISPOSTA_CD=3 then do;
ALRTN1_2=0;
ALRTN1_3=1;
ALRTN1_5=0;

Re: COLUMN INTO A LINE

Astounding — Thu, 05 Dec 2019 15:09:17 GMT

Ask if you need help with this idea:

Put all the variables into an array
Set all the array elements to zero
Use IF/THEN statements to change variable(s) from 0 to 1.

It should be much shorter and much less prone to error.

Re: COLUMN INTO A LINE

Reeza — Thu, 05 Dec 2019 16:22:22 GMT

Here's a tutorial on using Arrays in SAS
https://stats.idre.ucla.edu/sas/seminars/sas-arrays/

What's the rule for setting those specific variables to 0?

Are those new variables or do they already exist in the data set?

@Tecla1 wrote:

Good afternoon,

there is a best way to do this better (a very big program...) and in a few time ?:

Many tnks !!!!

data base_new_e_1911;
set Anadefi.Base_dati_90_e_1911;
if OUT_VOCE_CD= 'ALRTN1' and OUT_RISPOSTA_CD=2 then do;
ALRTN1_2=1;
ALRTN1_3=0;
ALRTN1_5=0;
ALRTN1_6=0;
ALRTN1_98=0;
ALRTN1_99=0;
ALRTN2_0=0;
ALRTN2_10=0;
ALRTN2_3=0;
ALRTN2_6=0;
ALRTN2_99=0;
ALRTN3_0=0;
ALRTN3_2=0;
ALRTN3_3=0;
ALRTN3_99=0;
ALRTN4_2=0;
ALRTN4_3=0;
ALRTN4_99=0;
ALRTN5_0=0;
ALRTN5_2=0;
ALRTN5_3=0;
ALRTN5_4=0;
ALRTN5_7=0;
ALRTN5_8=0;
ALRTN5_99=0;
ALRTN6_0=0;
ALRTN6_2=0;
ALRTN6_3=0;
ALRTN6_4=0;
ALRTN6_99=0;
ALRTN7_0=0;
ALRTN7_1=0;
ALRTN7_2=0;
ALRTN7_3=0;
ALRTN7_7=0;
ALRTN7_99=0;
ALRTN8_0=0;
ALRTN8_1=0;
ALRTN8_3=0;
ALRTN8_99=0;
ALRTN9_0=0;
ALRTN9_5=0;
ALRTN9_7=0;
ALRTN9_99=0;
CNTGL_0=0;
CNTGL_1=0;
CNTGL_2=0;
CNTGL_3=0;
CNTGL_4=0;
CNTGL_5=0;
C_B10_0=0;
C_B10_15=0;
C_B13_0=0;
C_B13_5=0;
C_B2_0=0;
C_B2_10=0;
C_B2_30=0;
C_B3_0=0;
C_B3_20=0;
C_B4_0=0;
C_B4_10=0;
C_B4_15=0;
C_B4_5=0;
C_B5_0=0;
C_B5_10=0;
C_B5_15=0;
C_B5_5=0;
C_B6_0=0;
C_B6_20=0;
C_B7_5=0;
C_B7_0=0;
C_B8P_0=0;
C_B8P_10=0;
C_B9_0=0;
C_B9_15=0;
C_B9_5=0;
C_B9B_0=0;
C_B9B_15=0;
C_P10_0=0;
C_P10_2=0;
C_P10_3=0;
C_P10_6=0;
C_P10_7=0;
C_P11_0=0;
C_P11_3=0;
C_P11_6=0;
C_P11_7=0;
C_P6_0=0;
C_P6_3=0;
C_P6_5=0;
C_P6_7=0;
C_P7_0=0;
C_P7_2=0;
C_P7_3=0;
C_P7_4=0;
C_P7_5=0;
C_P7_7=0;
C_P8_0=0;
C_P8_3=0;
C_P8_5=0;
C_P8_7=0;
C_P9_0=0;
C_P9_5=0;
C_P9_7=0;
C_P9_8=0;
DFNOT_0=0;
DFNOT_10=0;
DFNOT_11=0;
DFNOT_12=0;
DFNOT_13=0;
DFNOT_14=0;
DFNOT_15=0;
DFNOT_16=0;
DFNOT_17=0;
DFNOT_18=0;
DFNOT_19=0;
DFNOT_20=0;
DFNOT_3=0;
DFNOT_4=0;
DFNOT_5=0;
DFNOT_6=0;
DFNOT_7=0;
DFNOT_8=0;
DFNOT_9=0;
EPNOT_0=0;
EPNOT_10=0;
EPNOT_11=0;
EPNOT_12=0;
EPNOT_13=0;
EPNOT_14=0;
EPNOT_15=0;
EPNOT_16=0;
EPNOT_17=0;
EPNOT_18=0;
EPNOT_19=0;
EPNOT_2=0;
EPNOT_21=0;
EPNOT_3=0;
EPNOT_4=0;
EPNOT_5=0;
EPNOT_6=0;
EPNOT_7=0;
EPNOT_8=0;
EPNOT_9=0;
ERP_0=0;
ERP_1=0;
MANOT_0=0;
MANOT_10=0;
MANOT_11=0;
MANOT_12=0;
MANOT_13=0;
MANOT_14=0;
MANOT_15=0;
MANOT_16=0;
MANOT_17=0;
MANOT_19=0;
MANOT_2=0;
MANOT_21=0;
MANOT_3=0;
MANOT_4=0;
MANOT_5=0;
MANOT_6=0;
MANOT_7=0;
MANOT_8=0;
MANOT_9=0;
NCA_1=0;
NCA_2=0;
NCA_4=0;
NSRP_1=0;
NSRP_2=0;
NSRP_29=0;
NSRP_3=0;
NSRP_54=0;
NSRP_55=0;
NSRP_56=0;
NSRP_99=0;
NTCB1_0=0;
NTCB1_1=0;
NTCB2_0=0;
NTCB2_1=0;
NTCB3_0=0;
NTCB3_1=0;
NTCB4_0=0;
NTCB4_1=0;
NTFAT_0=0;
NTFAT_1=0;
NTFAT_10=0;
NTFAT_2=0;
NTFAT_3=0;
NTFAT_4=0;
NTFAT_5=0;
PDNOR_10=0;
PDNOR_11=0;
PDNOR_12=0;
PDNOR_13=0;
PDNOR_14=0;
PDNOR_15=0;
PDNOR_2=0;
PDNOR_3=0;
PDNOR_4=0;
PDNOR_5=0;
PDNOR_6=0;
PDNOR_7=0;
PDNOR_8=0;
PDNOR_9=0;
PDNOR_99=0;
SFNOT_0=0;
SFNOT_1=0;
SFNOT_10=0;
SFNOT_11=0;
SFNOT_12=0;
SFNOT_14=0;
SFNOT_2=0;
SFNOT_3=0;
SFNOT_4=0;
SFNOT_5=0;
SFNOT_6=0;
SFNOT_7=0;
SFNOT_8=0;
SFNOT_9=0;
SRP_0=0;
SRP_2=0;
SRP_3=0;
SRP_4=0;

end;
if OUT_VOCE_CD= 'ALRTN1' and OUT_RISPOSTA_CD=3 then do;
ALRTN1_2=0;
ALRTN1_3=1;
ALRTN1_5=0;