如何在SAS日志中删除警告消息

Question

当我将记录插入表

“警告：字符表达式将被截断为字符列inputjob时，

我如何停止将此消息写入SAS日志，因此我的作业返回代码时， 下面的警告消息将写入SAS日志中。将是0而不是4

%MACRO INSDRY(inpdsn);

data _NULL_;

   set DB2TS;
   length jobname $8 jobid $8;
   tiotptr = peek(peek(540)+12);
   jobname = peekc(tiotptr,8);
   jscbptr = peek(peek(540)+180);
   ssibptr = peek(jscbptr+316);
   jobid = peekc(ssibptr+15,5);

   inputjob = jobname || ' ' || "JOB" || jobid;

   call symputx('inputjob',inputjob);

run;

proc sql;
  insert into table
(filename, inputjob)

values
(%sysfunc(quote(&inpdsn)),%sysfunc(quote(&inputjob)));
quit;
%MEND;

do i=1 to f_count;
   set ftp_dir_list point=i nobs=f_count;
   if prxmatch(iPat_RE, trim(dir_file)) > 0 then do;
      iFTP_DSN = dir_file;
      CALL EXECUTE (cats('%INSDRY(',trim(iFTP_DSN),');'));
      incount+1;
      found+1;
   end;
end;

获取列的警告消息，该列input_job定义为17位数字，我得到的值也是17位数字。

删除宏时，我不会收到此警告。

Answer 1

我看不到任何数据步骤。我看到了一个宏定义（这应该是代码中的第一件事，因为它只是一个定义，而不是实际执行）。

如果要通过呼叫execute（）调用宏观，请确保至少包围％nrstr（）宏函数的％insdry，以防止SAS在呼叫执行语句执行时执行宏。这只会将宏生成的SAS语句推到数据步骤结束后要执行的堆栈上。相反，您希望将宏调用本身添加到堆栈中，以便在数据步骤结束后将执行。

如果宏引用的宏变量通过宏生成的SAS代码更改其值的宏变量，则尤其如此。在您的情况下，调用Symputx（）语句。因此，当宏尝试使用宏变量生成代码时，尚未设置其值，因为设置其值的语句仍在等待运行。

因此程序流应该是这样的：

%MACRO INSDRY(inpdsn);
... body of the macro definition here ...
%MEND;

data _null_;
   set ftp_dir_list ; 
   if prxmatch(iPat_RE, trim(dir_file)) then do;
      iFTP_DSN = dir_file;
      CALL EXECUTE(cats('%nrstr(%INSDRY)(',iFTP_DSN,')'));
      incount+1;
      found+1;
   end;
end;

Answer 2

Jobname和JobID均为$ 8，因此，串联分配语句

inputjob = jobname || ' ' || "JOB" || jobid;

将隐式创建变量inputjob长度$ 20。

从串联中删除“ job”，您将以$ 17为单位。

很多时候，最好在步骤开始时代码<代码>长度 attrib 语句，以确保您明确定义PDV中的变量。