【SAS】yyyymmddhhmmss形式の値のSAS日時値への変換

data sample ;
 	val_num  =  20180102030405 ;
	val_char = "20180102030405";
run ;

data sample2 ;
	set sample ;
	
	/* num to sas datetime */
	format val_date datetime20.;
	val_date = input(put(val_num, 14.), B8601DN.);
	
	/* char to sas datetime */
	date  = input(substr(val_char,1,8), yymmdd8.);
	hour  = input(put(input(substr(val_char, 9,2), 4.),z4.),4.);
 	min   = input(put(input(substr(val_char,11,2), 4.),z4.),4.);
 	sec   = input(put(input(substr(val_char,13,2), 4.),z4.),4.);

	format val_date2 datetime20.;
	val_date2 = dhms(date,hour,min,sec);
	
run ;