【Code Teaching】Data Step基礎語法 – 下

Data test;
  Num=12345; /*Assignment statement1*/
  String="Test String"; /*Assignment statement2*/
run;

Data test;
	set sashelp.cars;
	keep Origin Make MSRP;
run;

Data test;
	set sashelp.cars;
	drop Origin Make MSRP;
run;

Data test;
	set sashelp.cars;
	label 
		Make='製造商'
		Origin='產地'
		MSRP='建議售價';
run;

data test;
	retain msrp invoice;
	set sashelp.cars;
run;

data test;
	format num1 z8. num2 best12.;
	input str1 $ str2 $ num1 num2;
cards;
A1 CV 323 12
A2 BS 535 16
A3 SE 65 18
;
run;

data test;
	informat num comma6. ;
	input str1 $ str2 $ num;
cards;
A1 CV 32,312
A2 BS 53,516
A3 SE 62,518
;
run;

data test;
	length short $10. long $20.;
	input short $ long $;
cards;
abcdefghijk kjsldfjlksajlkefsdvz
;
run;

data test;
	set sashelp.cars;
	rename 
		make=car_make
		origin=car_origin
		msrp=car_msrp;
run;

/*打印到SAS LOG*/ 
data _null_;
	set sashelp.cars;
	put 'Model: ' model;
run;

/*搭配File敘述句*/
data _null_;
	file "C:\test.txt";
	put 'This is a test string!';
run;

data test;
  math_sum=sum(19, 81, 29, 64, 58);           /*251*/
  math_int=int(45.2136);                      /*45*/
  math_round=round(29.8, 1);                  /*30*/
  math_floor=floor(63.7);                     /*63*/
  math_ceil=ceil(7.3);                        /*8*/
  math_abs=abs(-7.2);                         /*7.2*/
  math_divide=divide(120, 2);                 /*60*/
  math_mod=mod(9, 2);                         /*1*/
  math_sqrt=sqrt(14.4);                       /*3.7947331922	*/
  math_max=max(41, 98, 35);                   /*98*/
  math_min=min(41, 98, 35);                   /*35*/
  math_N=N(1, 3, ., 7, 9);                    /*4*/
  math_NMISS=NMISS( ., 4, ., 8, 10);          /*2*/
run;

data test;
  str_upcase=upcase('abcde');                       /*ABCDE*/
  str_lowcase=lowcase('ABCDE');                     /*abcde*/
  str_substr=substr('123456789', 2, 4);             /*2345*/
  str_compress=compress('*><*>///<*>3<*', "*");     /*><>///<>3<*/
  str_tranwrd=tranwrd('*><*>///<*>3<*', "*", "@");  /*@><@>///<@>3<@*/
  str_catx=catx("~", '  AA', 'BB', 'CC  ');         /*AA~BB~CC*/
  str_cats=cats('   12345   ');                     /*12345*/
run;

data test;
  string='This is a test sentence.'; 
  search_index=index(string, 'test');  /*11*/
  search_find=find(string, 'test');    /*11*/
  search_scan=scan(string, 2, ' ');    /*is*/
run;

data test;
  dt_time=time();                                      /*22:17:44*/
  dt_today=today();                                    /*25NOV2024*/
  dt_datetime=datetime();                              /*25NOV24:22:17:44*/
  dt_datepart=datepart( dt_datetime );                 /*25NOV2024*/
  dt_day=day('26Nov2024'd);                            /*26*/
  dt_month=month('26Nov2024'd);                        /*11*/
  dt_year=year('26Nov2024'd);                          /*2024*/
  dt_mdy=mdy(11, 26, 2024);                            /*26NOV2024*/
  dt_intck=intck('month', '02Feb2024'd, '15Jul2024'd); /*5*/
  dt_intnx=intnx('year', '01Jan2011'd, 2);             /*01JAN2013*/
  dt_YRDIF=yrdif('08Jul2017'd, '26Feb2026'd, 'age');   /*8.6383561644*/
  /*change format*/
  format dt_time time. dt_today date9. dt_datetime datetime. dt_datepart date9. dt_mdy date9. dt_intnx date9.;
run;

data test;
  str='984563123';
  str_input=input(str, best12.);
run;

data test;
  num1=5201314;
  num1_put=put(num1, 7.);      /*5201314*/
  num2=25120;
  num2_put=put(num2, date9.);  /*10OCT2028*/
run;

Data _Null_;
  input No $ Age;
  put _N_ No= Age=;
cards;
1 19
2 23
3 17
4 21
5 22
;
run; 

Data _Null_;
  input No $ Age;
  put _N_= _Error_=;
cards;
1 DD
2 23
3 17
4 21
5 22
;
run; 

Data test;
  input No $ male $ female $; 
  put _all_;
cards;
1 Andy Viola
2 Jonny Aly
3 Nicola Melissa
;
run;

Data test;
  input No $ Score1 Score2;
  array num_old{*} _Numeric_ ;
  array num_new{*} new_Score1-new_Score2;
  do i=1 to 2;
  	num_new[i]=num_old[i]+10;
  end;
cards;
1 59 77
2 46 31
3 81 58
4 46 89
5 71 72
;
run;

Data test;
  input No $ male $ female $; 
  array char_old{*} $ _char_;
  array char_new{*} $20 new_male new_female;
  do i=1 to 2;
  	char_new[i]=cats("Prefix-", char_old[i], "-Suffix");
  end;
cards;
1 Andy Viola
2 Jonny Aly
3 Nicola Melissa
;
run; 

data test;
  set sashelp.cars;
  by make;
  if first.make=1 then make_first=1;
  else make_first=0;
run;

data test;
  set sashelp.cars;
  by make;
  if last.make=1 then make_last=1;
  else make_last=0;
run;

data test;
  set sashelp.cars;
  /*Implicit-Output statement*/
run;

data test;
  set sashelp.cars;
  if origin='Asia' then output; /*僅輸出Origin='Asia'到test這個資料集*/
run;