Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
IF p_fauf = 'X' OR p_eckst = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1'.
screen-required = '0'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_cpo = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC1'.
screen-required = '2'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_cpo = 'X' OR p_eckst = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC2'.
screen-required = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_fauf = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC2'.
screen-required = '2'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_cpo = 'X' OR p_fauf = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC3'.
screen-required = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF p_eckst = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'SC3'.
screen-required = '2'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
screen-required = '2'
Code: Alles auswählen.
*--------------------------------------------------------------------*
* SELECTION-SCREEN
*--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.
* Mapping erstellen
PARAMETER: p_create RADIOBUTTON GROUP g1 USER-COMMAND radio.
* Mapping anzeigen
PARAMETER: p_show RADIOBUTTON GROUP g1.
* Mapping anwenden
PARAMETER: p_execut RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.
PARAMETER: p_ddic TYPE ddobjname OBLIGATORY.
PARAMETER: p_file TYPE rlgrap-filename OBLIGATORY MODIF ID mi1.
PARAMETER: p_proj TYPE trheader-prj_extpid OBLIGATORY. "Project
PARAMETER: p_sproj TYPE trheader-prj_extpid OBLIGATORY. "Subproject
PARAMETER: p_mtart TYPE mtart OBLIGATORY.
PARAMETER: p_matobj TYPE mdmgobjtyp OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block2.
AT SELECTION-SCREEN OUTPUT.
IF p_show = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'mi1'.
screen-required = '0'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-b01.
* * Mapping erstellen
PARAMETER: p_create RADIOBUTTON GROUP g1 USER-COMMAND radio.
* * Mapping anzeigen
PARAMETER: p_show RADIOBUTTON GROUP g1.
* * Mapping anwenden
PARAMETER: p_execut RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-b02.
PARAMETER: p_ddic TYPE ddobjname.
PARAMETER: p_file TYPE rlgrap-filename MODIF ID mi1.
PARAMETER: p_proj TYPE trheader-prj_extpid. "Project
PARAMETER: p_sproj TYPE trheader-prj_extpid. "Subproject
PARAMETER: p_mtart TYPE mtart.
PARAMETER: p_matobj TYPE matnr.
SELECTION-SCREEN END OF BLOCK block2.
AT SELECTION-SCREEN OUTPUT.
IF p_show = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'MI1'. <------------------groß schreiben
screen-required = '2'. "Mussausgabe setzen
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.