OpenVMS 下 SAS 中套接字的错误处理

Question

我在 OpenVMS 上使用 SAS 9.2 通过文件名语句指定的套接字连接到外部数据源：

filename extsrc SOCKET "extserver:port" recfm=v;

data foo;
infile extsrc;
input;
.... some statements to read stuff ...;
run;

这在 99% 的情况下都有效（应该如此）。 然而，有时本应监听远程端口的程序却没有监听。 目前，这会导致程序退出并出现错误：

Error: Connection refused.

之后我们重试，通常会起作用。 然而，这变得很乏味，所以我想检测程序中的这个错误并在那里处理它。 有谁知道 SAS 中检测此类错误的方法吗？

我尝试使用 fileref() 函数检查 fileref extsrc 的有效性，但只返回 -20005 ，这意味着 fileref 已分配但不指向本地文件（这是正确的）。 仅当我在数据步骤中使用 fileref 时，该错误才会变得明显，因此我想做一些类似的事情：

data _null_;
rc=infile extsrc;
if rc=0 then do;
  //whatever I want to do;
end;
else do;
  //throw some error and try again later;
end;
run;

[update1] 我正在尝试下面完成的建议，但在真正的 heisenbug 时尚中，问题未能突然出现这几天都在讨论，所以我不确定最终的解决方案是什么。 [/更新1]

[更新2] 错误终于又出现了。 根据 cmjohns 的回答，发生此错误后 syserr 的值为 1012。 我现在将观察 syserr 的值，如果失败则重试固定次数。 [/更新2]

[更新3] 我已经运行了一些代码几天了，现在可以工作了。 另一个问题是（当然）如果 &syserr 获得的值高于 6，就会发生错误情况，因此根据您的 errorabend/noerrorabend 设置，这会导致程序完全结束，或者导致程序在语法检查模式下以 obs=0 继续。 两者都是不可取的。 解决方案是在产生此错误的数据步骤之前设置 options noerrorabend nosyntaxcheck。 此外，如果发生错误，我必须清除文件名 extsrc 并重新分配它。 最后，一旦这段代码完成，我就会恢复 errorabend。 如果我恢复 nosyntaxcheck，这会导致 SAS 检测到先前的错误情况并在此时切换到语法检查模式，这也是不可取的。 [/更新3]

Answer 1

您是否尝试过测试 &syserr. 任何不为 0 的值通常都表明有问题。

您可以在此处查看返回值。 从列表来看，我猜测 1012 或 1020 是您在套接字错误期间得到的结果。

Answer 2

你能测试数据 foo 吗？ 如果没有数据则可以设置重试循环，如果数据存在则继续？

就像是：

再次做：

（在此处插入您的套接字代码）

/*查看ds是否存在*/ 

  %如果不是 %sysfunc(exist(data.foo)) %则 %do ; 

  /*如果ds不存在则*/ 

  %put 警告：该文件不存在！   ; 

  %再次执行； 

  ％结尾; 
  

Answer 3

我知道这是一个过时的线程，但是：

SYNTAXCHECK 很高兴拥有； 而不是因为 &syserr （实际上是 &syscc）问题而裸露运行，一旦您越过了该敏感代码部分，您就可以将其清除为最后已知的正确值。

以下是我必须妥善处理 DB2 中的锁定表错误时的相关代码：

/*** temporarily disable ERRORABEND and SYNTAXCHECK ***/
options NOERRORABEND NOSYNTAXCHECK ;

/* save &syscc for laster restoration */
%let presyscc=&syscc;

%do until (...);
  /* do a task, handle some possible errors */
%end;

/* restore &syscc */
%let syscc=&presyscc;

/*** re-enable ERRORABEND and SYNTAXCHECK ***/
options ERRORABEND SYNTAXCHECK ;