colors - 如何定义要在 RPG 中用于子文件显示的颜色

Question

如何在某些条件执行时为子文件中的特定记录设置颜色？我有一个显示文件，其中定义了 SFL 和 CTL。我在哪里可以参考 DSP 文件中的指标或在 RPG 中使用它们来触发适当的调节。

例如：

       Name      Age       Location
      Rosell     26        Amsterdam
      Smarkon    31        London
      Jack       40        Chicago
      Jim        22        Mauritius

我现在只想在我的子文件中显示年龄大于 30 岁的记录。(age>30) 我想要那些以不同颜色检索的记录。

Answer 1

在显示文件中使用编号指示器来控制颜色属性，如下所示：

.....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+
                  S1AGE          3  0   5 12EDTCDE(Z)
    30                                  COLOR(BLU)

显示文件记录中的这些数字指示符以显示文件的记录格式来回传递给 RPG 程序。因此，在您的 RPG 中，您根据人的年龄值将指示器 30 设置为打开或关闭。（注意：以下示例是自由形式的 RPG。）

If S1AGE > 30;
  *IN30 = *On;
Else;
  *IN30 = *Off;
EndIf;

或者，如果您喜欢 RPG 中的简洁代码：

*IN30 = (S1Age > 30);