ich muss auf dem Bildschirm einen Hinweis ausgeben, ob dieser schon archiviert wurde oder nicht. Beim Druck des Programm soll dieser Hinweis aber nicht angezeigt werden. Somit bin ich auf die Icons gestoßen, die nicht ausgedruckt werden können.
Nun habe ich aber das Problem, dass ich das Icon (bei nicht archviert rot) nach dem Archivieren (bei archviert grün) nicht mit modify line ersetzen kann:
Zusatz 5
... FIELD VALUE f1 FROM g1 ... fn FROM gn
Hinweise Will man per MODIFY eine Ikone durch eine andere ersetzen, so muß die neue Ikone zunächst aufbereitet werden, z. B. durch Aufruf des Funktionsbausteins LIST_ICON_PREPARE_FOR_MODIFY oder durch Angabe des Zusatzes PREPARE_NEW_ICON beim Funktionsbaustein LIST_MODIFY_QUICKINFO.
Beispiel
INCLUDE <ICON>.
DATA NEW_ICON LIKE ICON_SORT_DOWN VALUE ICON_SORT_DOWN.
. . .
WRITE ICON_SORT_UP AS ICON.
. . .
AT LINE-SELECTION.
CALL FUNCTION 'LIST_ICON_PREPARE_FOR_MODIFY'
CHANGING
NEW_ICON = NEW_ICON.
MODIFY CURRENT LINE FIELD VALUE ICON_SORT_UP FROM NEW_ICON.