如何防止用户在文本字段（字符类型）中输入特殊字符（例如键盘上不可见的符号）？

Question

如何防止用户在AS400的文本字段（字符类型）中输入特殊字符（例如键盘上不可见的符号）？ 显然，在大多数情况下，iseries / as400接受它并将其保存到文件中并没有问题，但是有时，当数据在下游报告系统中处理时，它会由于系统错误而被拒绝。 有没有办法防止进入点本身？

例如：在“客户”的“地址”字段中，最终用户从网页或文档中复制粘贴（ctrl + c ctrl + v）详细信息，导致输入垃圾字符或空值，这些字符或空值被存储而没有问题，但随后在其他报告应用程序中引起了问题。

Answer 1

使用%CHECK功能验证屏幕字段，并在出现无效内容时显示错误。

D allow           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ+
D                                      abcdefghijklmnopqrstuvwxyz+
D                                      0123456789'

/free
    if %check(allow:scrfld01) > 0;
        error = 1;
    endif; 
/end-free

或者，您可以遍历屏幕字段，在保存记录之前删除允许的字符集中不存在的所有字符。

Answer 2

不确定是否要询问如何在接受数据的程序中查找字符，或者如何防止所有程序写入此类数据。 我认为是后者。

我唯一确定地做到这一点的方法是使用触发器程序。 系统没有在字段中允许/不允许使用的黑名单字符（而且您还是不希望这样做）。

希望只有少数几个表（文件）以这种方式与您有关，并且您可以编写一个触发器程序，为每个表附加BEFORE_UPDATE和BEFORE_INSERT，以检查所涉及的字段，并检查其中的一个：

更改看到的所有控制字符（通常是错误的形式）

  or

 > Fails the write, allowing the entry program to re-prompt the user (most 
   programmers do not properly handle errors - especially write errors - so 
   this solution is iffy)

如果您有很多这样的文件，则可以使用“检索字段” API设置通用触发器，该触发器将确定所讨论表的布局（表名是触发器的参数）。 警惕性能下降。

Answer 3

此处列出了与无效字符有关的大多数问题。 您可以在％XLATE操作码的任何字符字段上使用它。 例：

在您的“ D”规格中使用此...

     * Special Characters used for EBCDIC converision using CCSID 37       ----                
     * Invalid Control Characters not allowed in XML, including 
     * Plus CR and LF since ----                
     D RC              C                   Const(x'000102030B0C0D0E0F1011121316-                
     D                                     18191C1D1E1F2526272D2E2F32373C3D3F')                 
      * Blank characters to replace RC with in Xlate. 31 of them.           ----                
     D BC              C                   Const(                                               
     D                                     '                               ')                   

而且，在您的代码中...

    MyText = %XLate(RC:BC,MyText);