AT SELECTION SCREEN

AT SELECTION-SCREEN OUTPUT

 "*  SELECTION-SCREEN COMMENT /1(79) note '''MODIF ID int'''.
  LOOP AT SCREEN.
    IF screen-group1 = 'INT'.
      screen-intensified = 1.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

PARAMETERS: p_single RADIOBUTTON GROUP rb DEFAULT 'X' USER-COMMAND uc,
            p_multi  RADIOBUTTON GROUP rb.
PARAMETERS: p_refbn  TYPE co_refbn MODIF ID sng,
            p_refpos TYPE co_refbn MODIF ID sng.
SELECT-OPTIONS s_refbn FOR cooi-refbn MODIF ID mul.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF p_single = abap_false AND screen-group1 = 'SNG'.
      screen-input = 0.
      screen-invisible = 1.
    ENDIF.
    IF p_multi = abap_false AND screen-group1 = 'MUL'.
      screen-input = 0.
      screen-invisible = 1.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN ON p_xyz.

 IF p_xyz IS INITIAL.
  MESSAGE e003(zbc_general).
 ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_xyz.

  TRY.
      p_doshow = ''.
      p_dodown = ''.
      IF p_doshow <> abap_true AND p_dodown <> abap_true.
        gv_title = 'Download file selection for template'(001).
        cl_gui_frontend_services=>file_open_dialog( EXPORTING window_title = gv_title
                                                    CHANGING file_table  = gt_filename
                                                             rc          = gv_cnt
                                                             user_action = gv_action ).
        IF gv_cnt > 1.
          MESSAGE e062(cacsib_edt).
        ELSE.
          IF NOT gv_cnt < 1.
            READ TABLE gt_filename INTO p_up INDEX 1.
          ENDIF.
        ENDIF.
      ENDIF.
    CATCH zcx_bc_basic INTO go_cx_bc_basic.
      gs_message_bal_msg = go_cx_bc_basic->get_msg_in_bal_structure( ).
      APPEND gs_message_bal_msg TO gt_messages_bal_msg.
  ENDTRY.