AS400/IBMi サブファイルのフィールドごとに文字色を変える

こんなことは当たり前の話かもしれないが、講習会に行くお金も出ない会社でずっと黙々と自社で開発していると、こんな情報も入ってこない悲しい話。

ＤＤＳのフラグに関するカラーや表示に関する設定を【WRITEで書き込む前にフラグを立てること】により行ごとに変更できる。

例）ＤＤＳ　変数AKAがFLG70のときCOLOR(RED)と設定する
ＲＰＧ　変数AKAが’1’のとき文字色を赤にする

　　　　　　　　　SETOF　　　　　　　　　 70
DAI IFEQ ’01’
SETON　　　　　　　　　 70
ENDIF
WRITE SFL

これだけ。