Elementi a comparsa nella videata di selezione

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: PUSHBUTTON 1(4) pb_ucomm USER-COMMAND com001.
PARAMETERS      : pa_scomp AS CHECKBOX DEFAULT ' ' MODIF ID cmx.
SELECTION-SCREEN: COMMENT (30) TEXT-009.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b44 WITH FRAME.
SELECT-OPTIONS  : so_colle FOR S602-/AFS/COLLE MODIF ID cmp.
SELECTION-SCREEN END OF BLOCK b44.
SELECTION-SCREEN END OF BLOCK b4.

*----------------------------------------------------------------------*
* EVENTS                                                               *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  IF SY-UCOMM = 'COM001'.
    IF pa_scomp IS INITIAL.
      pa_scomp = 'X'.
    ELSE.
      CLEAR pa_scomp.
    ENDIF.
  ENDIF.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'CMX'.
      SCREEN-INPUT = '0'.
      SCREEN-INTENSIFIED  = '1'.
      MODIFY SCREEN.
    ELSEIF SCREEN-GROUP1 = 'CMP'.
      IF pa_scomp = ' '.
        SCREEN-INPUT = '0'.
        SCREEN-INVISIBLE = '1'.
      ELSE.
        SCREEN-OUTPUT = '1'.
        SCREEN-INVISIBLE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

*----------------------------------------------------------------------*
* INIT                                                                 *
*----------------------------------------------------------------------*
INITIALIZATION.
  MOVE '@3J@' TO pb_ucomm.