Code: Alles auswählen.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN COMMENT 50(40) t_vari FOR FIELD p_vari.
*--------------------------------------------------------------------*
"Beschreibung zur Anzeigevariante auslesen
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
t_vari = 'ein Kommentar zur p_vari'.
Code: Alles auswählen.
TABLES: pa0001.
SELECT-OPTIONS: sachbe FOR pa0001-sachp.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT 10(40) t_sachbe FOR FIELD sachbe.
AT SELECTION-SCREEN OUTPUT.
IF sachbe-low <> ''.
SELECT SINGLE sachn FROM t526 INTO t_sachbe
WHERE sachx = sachbe-low.
ENDIF.