如何定義RPG中用於子文件顯示的顏色

如何在某些條件執行時將顏色設置爲子文件中的特定記錄？我有一個顯示文件，其中定義了SFL和CTL。我可以在DSP文件中引用指示器，或者在RPG中使用它們來觸發適當的調節。如何定義RPG中用於子文件顯示的顏色

對於如：

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

現在我想在我的子文件只有那些年齡顯示的記錄是大於30（年齡> 30）我希望那些在不同的被檢索的記錄顏色。在顯示文件控制，像這樣的顏色屬性

2012-07-22 techie

使用編號的指標：

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

2012-07-23 14:47:37

是的，雖然它通常是好疊加的顯示文件（帶有'indds'和'infds'）到一個DS類型，以便您可以_name_變量。沒有任何工作只通過**數字的6000行程序來判斷是否開啓/關閉... – 2012-07-23 16:10:26

@Tracy我在RPG/400程序中嘗試使用AGE IFGT 30 SETON 13 ENDIF，我已將13指標反對color.But引發編譯錯誤「因素1和2的條目是不是相同的類型」如何實現在RPG 400. – techie 2012-07-23 16:17:59

@ X-Zero，這是一個很好的觀點，但我認爲，除了這個答案的範圍。 – 2012-07-23 19:07:28

回答