SQR按位置替换，而不是多个IF LET ENDIF

如何解决SQR按位置替换，而不是多个IF LET ENDIF

在将代码从一个数据库转换到另一个数据库时，我必须为每个代码使用IF LET ENDIF。 如果$ CODE ='A11' LET $ CODE ='AAA' 万一 如果$ CODE ='B11' LET $ CODE ='BBB' 万一 如果$ CODE ='C11' LET $ CODE ='CCC' 万一。 。 .ad nauseum

SQR中是否可以进行位置替换？ 替换（'A11'，'B11'，'C11'）IN（'AAA'，'BBB'，'CCC'）

谢谢， 大卫

解决方法

不幸的是，LET语句的REPLACE和TRANSLATE子命令都只允许一次转换。

作为多个if-then-else的替代方法，您可以使用Evaluate语句：

Evaluate $Code
   When = 'A11'
      Let $Code = 'AAA'
   When = 'B11'
      Let $Code = 'BBB'
   When-Other
End-Evaluate

这将使代码更易于查看且更冗长。