选择屏幕页签设置

image.png
SELECTION-SCREEN BEGIN OF TABBED BLOCK order_criteria FOR 32 LINES.

SELECTION-SCREEN TAB (30)       text-001
                 USER-COMMAND   tab1
                 DEFAULT SCREEN 1010.

SELECTION-SCREEN TAB (30)       text-002
                 USER-COMMAND   tab2
                 DEFAULT SCREEN 1020.

SELECTION-SCREEN TAB (30)       text-003
                 USER-COMMAND   tab3
                 DEFAULT SCREEN 1030.

SELECTION-SCREEN END OF BLOCK order_criteria.

SELECTION-SCREEN BEGIN OF SCREEN 1020 AS SUBSCREEN.
PARAMETERS: p_dest LIKE rfcdes-rfcdest  .
PARAMETERS: p_ftable TYPE dd02l-tabname .
SELECT-OPTIONS: s_field FOR rfc_db_fld-fieldname NO INTERVALS.
PARAMETERS: p_char TYPE sonv-flag .
PARAMETERS: p_opt1 TYPE rfc_db_opt-text,
            p_opt2 TYPE rfc_db_opt-text,
            p_opt3 TYPE rfc_db_opt-text,
            p_opt4 TYPE rfc_db_opt-text.

SELECTION-SCREEN END OF SCREEN 1020.


SELECTION-SCREEN BEGIN OF SCREEN 1030 AS SUBSCREEN.

PARAMETERS: r_file RADIOBUTTON GROUP r1 DEFAULT 'X' USER-COMMAND com1 .

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-007 MODIF ID m2.
PARAMETERS: p_filepa TYPE rlgrap-filename MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-018 MODIF ID m2.
PARAMETERS: p_filena TYPE rlgrap-filename MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-008 MODIF ID m2.
PARAMETERS: p_sep(1) TYPE c MODIF ID m2 DEFAULT ';'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-009 MODIF ID m2.
PARAMETERS: p_line TYPE i MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-019 MODIF ID m2.
PARAMETERS: p_stamp AS CHECKBOX MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(20) text-010 MODIF ID m2.
PARAMETERS: r_opta RADIOBUTTON GROUP grp2 USER-COMMAND com12 MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(20) text-011 MODIF ID m2.
PARAMETERS: r_optb RADIOBUTTON GROUP grp2 MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(20) text-012 MODIF ID m2.
PARAMETERS: r_optc RADIOBUTTON GROUP grp2 MODIF ID m2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

PARAMETERS: r_ifs RADIOBUTTON GROUP r1 .

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-017 MODIF ID m3.
PARAMETERS: p_lines TYPE i DEFAULT '999999' MODIF ID m3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-013 MODIF ID m3.
PARAMETERS: p_send LIKE /bshbc/ifs_ofile-partner MODIF ID m3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-014 MODIF ID m3.
PARAMETERS: p_recei LIKE /bshbc/ifs_ofile-receiver MODIF ID m3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-015 MODIF ID m3.
PARAMETERS: p_type LIKE /bshbc/ifs_ofile-data_type MODIF ID m3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-016 MODIF ID m3.
PARAMETERS: p_count LIKE /bshbc/ifs_ofile-counter MODIF ID m3.
SELECTION-SCREEN END OF LINE.

PARAMETERS: p_test TYPE /bshbc/ifs_process_test MODIF ID m3 NO-DISPLAY .

SELECTION-SCREEN SKIP 1.

PARAMETERS: r_table RADIOBUTTON GROUP r1 .

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 6(20) text-004 MODIF ID m1.
PARAMETERS: p_ttable TYPE rstable-tabname MODIF ID m1.
SELECTION-SCREEN END OF LINE.

"Radio button
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(20) text-006 MODIF ID m1 .
PARAMETERS: r_opt2 RADIOBUTTON GROUP grp1 MODIF ID m1 USER-COMMAND com11.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(20) text-005 MODIF ID m1.
PARAMETERS: r_opt1 RADIOBUTTON GROUP grp1 MODIF ID m1.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF SCREEN 1030.

AT SELECTION-SCREEN OUTPUT.

  IF r_table IS NOT INITIAL.

    LOOP AT SCREEN.
      IF screen-group1 = 'M2' OR screen-group1 = 'M3' .
        screen-active = '0'.  " 1-display
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.

  ELSEIF r_file IS NOT INITIAL.

    LOOP AT SCREEN.
      IF screen-group1 = 'M1' OR screen-group1 = 'M3' .
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.

  ELSEIF r_ifs IS NOT INITIAL.

    LOOP AT SCREEN.
      IF screen-group1 = 'M1' OR screen-group1 = 'M2' .
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.

  ELSE.

  ENDIF.


START-OF-SELECTION.