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

Question

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

例如:

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

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

Answer 1

在显示文件中使用编号指示器来控制COLOR属性,如下所示:

.....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);