我们可以使用以下代码来编写一个宏，该宏可以读取多个没有标题的原始数据文件，并为每个原始数据文件创建一个同名的SAS数据集：

%macro read_raw_data(input_dir=, output_dir=); /* 定义输入和输出目录变量 / %let input_files=%sysfunc(filename(dir,&input_dir)); %let output_files=%sysfunc(filename(dir,&output_dir)); / 获取目录中的所有文件 / filename dummy &input_files; data null; length fname $256; rc=filename('dir','&dir.'); did=dopen('dir'); if did > 0 then do; do i=1 to dnum(did); fname=dread(did,i); if (index(upcase(fname),'RAW') > 0) then do; / 扩展名为'raw”的文件 / input_file = "&dir."||fname; / 创建SAS数据集的名称与原始数据文件相同 / output_file = "&output_dir."||left(scan(fname, 1, ".")||".sas7bdat"); / 读取原始数据文件并创建SAS数据集 / data &output_file.; infile "&input_file." LRECL=10000 DLM=',' TRUNCOVER MISSOVER; input @; if n = 1 then delete; input / 定义每个变量 */; run; end; end; end; rc=dclose(did); run; filename dummy clear; %mend;

我们可以使用以下代码来调用此宏：

%read_raw_data(input_dir="D:\raw_data", output_dir="D:\sas_data");

上面的代码将读取'D：\raw_data”文件夹中的所有扩展名为'raw”的文件，并在'D：\sas_data”文件夹中为每个文件创建一个同名的SAS数据集。

需要根据自己的情况修改代码中指定的输入和输出目录。