SQR 按位置替換而不是多個 IF LET ENDIF

Question

在將代碼從一個數據庫轉換到另一個數據庫時，我必須對每個代碼使用 IF LET ENDIF。 IF $CODE = 'A11' LET $CODE = 'AAA' END-IF IF $CODE = 'B11' LET $CODE = 'BBB' END-IF IF $CODE = 'C11' LET $CODE = 'CCC' END-如果。 . . 惡心

SQR 中有沒有辦法進行位置替換？ 替換 ('A11', 'B11', 'C11') IN ('AAA', 'BBB', 'CCC')

謝謝，大衛

Answer 1

不幸的是，LET 語句的 REPLACE 和 TRANSLATE 子命令都只允許一次轉換。

作為多個 if-then-else 的替代方法，您可以使用 Evaluate 語句：

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

這將使代碼更容易審查並且不那么冗長。