*----------------------------------------------------------------------*
* TITLE : Dynamic Selection-Screen With List-Box *
* PROGRAM NAME : Z_DYNAMIC_SCREEN (TYPE: REPORT) *
* AUTHOR : CHANHOON KIM *
* CREATED ON : 2010.04.01 *
* DESCRIPTION : Ref. Source by Joyjit Ghosh, IBM India *
* REF.PROGRAM : *
*----------------------------------------------------------------------*
REPORT Z_DYNAMIC_SCREEN.
TYPE-POOLS: VRM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
TABLES: SSCRFIELDS.
PARAMETERS: PS_PARM AS LISTBOX VISIBLE LENGTH 10 USER-COMMAND ABC.
PARAMETERS: RB1 RADIOBUTTON GROUP AB MODIF ID BL1,
RB2 RADIOBUTTON GROUP AB MODIF ID BL2,
RB3 RADIOBUTTON GROUP AB MODIF ID BL3.
INITIALIZATION.
NAME = 'PS_PARM'.
VALUE-KEY = '1'. VALUE-TEXT = 'RB1 RB2'. APPEND VALUE TO LIST.
VALUE-KEY = '2'. VALUE-TEXT = 'RB3'. APPEND VALUE TO LIST.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
LOOP AT SCREEN.
IF PS_PARM = 1.
IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' .
SCREEN-INVISIBLE = 0.
ELSEIF SCREEN-NAME = 'RB3'.
SCREEN-INVISIBLE = 1.
ENDIF.
MODIFY SCREEN.
ELSEIF PS_PARM = 2.
IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' .
SCREEN-INVISIBLE = 1.
ELSEIF SCREEN-NAME = 'RB3'.
SCREEN-INVISIBLE = 0.
ENDIF.
MODIFY SCREEN.
ELSEIF PS_PARM = SPACE.
RB1 = 'X'.
CLEAR: RB2,RB3.
IF SCREEN-NAME = 'RB1' OR SCREEN-NAME = 'RB2' OR
SCREEN-NAME = 'RB3'.
SCREEN-INVISIBLE = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'ABC'. ENDIF.
START-OF-SELECTION.
WRITE: / 'Parameter:', PS_PARM.
<2/2>
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
630 | REPORT z17_06 . | sapjoy | 2012.08.01 | 859 |
629 | REPORT z05_12. | sapjoy | 2012.07.30 | 863 |
628 | REPORT z05_21. | sapjoy | 2012.07.30 | 865 |
627 | REPORT z05_27. | sapjoy | 2012.07.30 | 867 |
626 | REPORT z05_25. [1] | sapjoy | 2012.07.30 | 870 |
625 | REPORT z05_35. [1] | sapjoy | 2012.07.30 | 871 |
624 | REPORT Z12_26. | sapjoy | 2012.07.30 | 872 |
623 | REPORT z14_03. | sapjoy | 2012.08.01 | 872 |
622 | REPORT z04_18. | sapjoy | 2012.07.30 | 873 |
621 | REPORT z05_22. | sapjoy | 2012.07.30 | 874 |
620 | REPORT z11_02. | sapjoy | 2012.07.30 | 874 |
619 | REPORT z10_10. [1] | sapjoy | 2012.07.30 | 876 |
618 | REPORT z08_04. | sapjoy | 2012.07.30 | 877 |
617 | REPORT z05_31. | sapjoy | 2012.07.30 | 877 |
616 | REPORT z05_24. | sapjoy | 2012.07.30 | 878 |
615 | REPORT Z11_01. | sapjoy | 2012.07.30 | 878 |
614 | REPORT z10_12. | sapjoy | 2012.07.30 | 882 |
613 | REPORT z10_04. | sapjoy | 2012.07.30 | 885 |
612 | REPORT z05_23. | sapjoy | 2012.07.30 | 888 |
611 | REPORT z11_06. | sapjoy | 2012.07.30 | 892 |
good