(ABAP 코드) SELECTION-SCREEN TABBED BLOCK

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.

  PARAMETERS: P_DEVID TYPE ZTBD2_12_01-DEVNR,

              P_DEVNM TYPE ZTBD2_12_01-DEVNM MODIF ID NMM.

SELECTION-SCREEN END OF SCREEN 101.

 

SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.

  PARAMETERS: P_PRJID TYPE ZTBD2_12_02-PRJID,

              P_PRJNM TYPE ZTBD2_12_02-PRJNM MODIF ID NMM.

SELECTION-SCREEN END OF SCREEN 102.

 

SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN.

  PARAMETERS: P_CETCD TYPE ZTBD2_12_05-CETCD,

              P_CETNM TYPE ZTBD2_12_05-CETNM MODIF ID NMM.

SELECTION-SCREEN END OF SCREEN 103.

 

SELECTION-SCREEN BEGIN OF TABBED BLOCK TB1 FOR 5 LINES.

  SELECTION-SCREEN TAB (10) TAB1 USER-COMMAND COMM1 DEFAULT SCREEN 101.

  SELECTION-SCREEN TAB (10) TAB2 USER-COMMAND COMM2 DEFAULT SCREEN 102.

  SELECTION-SCREEN TAB (10) TAB3 USER-COMMAND COMM3 DEFAULT SCREEN 103.

SELECTION-SCREEN END OF BLOCK TB1.

 

 

DATA: BEGIN OF LS_CETI,

       CETCD LIKE ZTBD2_12_06-CETCD,

       CETNM LIKE ZTBD2_12_05-CETNM,

      END OF LS_CETI.

 

DATA: BEGIN OF LS_PRJ,

       PRJID LIKE ZTBD2_12_02-PRJID,

       PRJNM LIKE ZTBD2_12_02-PRJNM,

      END OF LS_PRJ.

 

 

 

*-- Initialization ------------------------

INITIALIZATION.

 

  TAB1 = '개발자'.

  TAB2 = '프로젝트'.

  TAB3 = '자격증'.

 

  TB1-ACTIVETAB = 'COMM1'.

  TB1-DYNNR = 101.

 

*-- At selection-screen output------------------------

AT SELECTION-SCREEN OUTPUT.

 

  LOOP AT SCREEN.

    IF SCREEN-GROUP1 = 'NMM'.

      SCREEN-INPUT = 0.

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.