Code: Alles auswählen.
PARAMETERS p1 RADIOBUTTON GROUP a USER-COMMAND xxx DEFAULT 'X'.
PARAMETERS p2 RADIOBUTTON GROUP a.
PARAMETERS p3 RADIOBUTTON GROUP a.
PARAMETERS p4 RADIOBUTTON GROUP a.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
PARAMETERS f1 TYPE char10.
PARAMETERS f2 TYPE char10.
PARAMETERS f3 TYPE char10.
PARAMETERS f4 TYPE char10.
SELECTION-SCREEN END OF SCREEN 1100.
AT SELECTION-SCREEN.
IF sy-ucomm = 'XXX'.
CALL SELECTION-SCREEN 1100.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CHECK screen-name(1) = 'F'.
screen-required = '0'.
CASE 'X'.
WHEN p1.
IF screen-name = 'F1'.
screen-required = '1'.
ENDIF.
WHEN p2.
IF screen-name = 'F2'.
screen-required = '1'.
ENDIF.
WHEN p3.
IF screen-name = 'F3'.
screen-required = '1'.
ENDIF.
WHEN p4.
IF screen-name = 'F4'.
screen-required = '1'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
Code: Alles auswählen.
PARAMETERS p1 RADIOBUTTON GROUP a USER-COMMAND xxx DEFAULT 'X'.
PARAMETERS p2 RADIOBUTTON GROUP a.
PARAMETERS p3 RADIOBUTTON GROUP a.
PARAMETERS p4 RADIOBUTTON GROUP a.
SELECTION-SCREEN BEGIN OF SCREEN 1100.
PARAMETERS f1 TYPE char10.
PARAMETERS f2 TYPE char10.
PARAMETERS f3 TYPE char10.
PARAMETERS f4 TYPE char10.
SELECTION-SCREEN END OF SCREEN 1100.
AT SELECTION-SCREEN.
IF sy-dynnr = '1100'.
CASE 'X'.
WHEN p1.
IF f1 IS INITIAL.
MESSAGE e000(oo) WITH 'Bitte alle Mussfelder ausfüllen: F1'.
ENDIF.
WHEN p2.
IF f2 IS INITIAL.
MESSAGE e000(oo) WITH 'Bitte alle Mussfelder ausfüllen: F2'.
ENDIF.
WHEN p3.
IF f3 IS INITIAL.
MESSAGE e000(oo) WITH 'Bitte alle Mussfelder ausfüllen: F3'.
ENDIF.
WHEN p4.
IF f4 IS INITIAL.
MESSAGE e000(oo) WITH 'Bitte alle Mussfelder ausfüllen: F4'.
ENDIF.
ENDCASE.
ELSE.
IF sy-ucomm = 'XXX'.
CALL SELECTION-SCREEN 1100.
ENDIF.
ENDIF.
START-OF-SELECTION.
WRITE: / 'F1', f1.
WRITE: / 'F2', f2.
WRITE: / 'F3', f3.
WRITE: / 'F4', f4.