正确的方式来处理在坦密诺斯T24版AUTH.ROUTINE

Question

我写坦密诺斯T24版（输入画面）授权程序（AUTH.ROUTINE）做一些处理，我需要授权才能停止错误时的错误。这里是我写的错误处理：

AF=1; AV=1; AS=1 
ETEXT = "Some error message" 
CALL STORE.END.ERROR 
MESSAGE = "ERROR" 

这样的错误处理场1，多值1，子值1显示错误消息，并且不允许继续。然而，更改记录本身已经提交到数据库。

什么是正确的方式来阻止版本AUTH.ROUTINE授权？

Answer 1

首先要进行现场级的任何检查，然后更好地使用验证RTN因为它会调用被触发授权程序之前。

现在我来谈谈为什么它更新字段值，即使它引发错误是因为Authroise例程在对文件执行F.WRITE之后执行，以避免出现这种情况，您需要将BeforeAuth例程编写为它也将获得触发在授权阶段，但正在执行F.Write之前，所以你的目的，将即误差表中的数据不会被更新的情况下提供服务。