*----------------------------------------------------------------------*
* 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 Z09_005 | sapjoy | 2006.12.18 | 2514 |
629 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
628 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
627 | REPORT Z09_010 | sapjoy | 2006.12.19 | 2523 |
626 | PUT_SPFLI PUT_SFLIGHT PUT_SBOOK | sapjoy | 2006.12.19 | 2614 |
625 | REPORT Z11_001 | sapjoy | 2006.12.20 | 2977 |
624 | REPORT z11_004 . | sapjoy | 2006.12.22 | 2465 |
623 | REPORT Z11_005 | sapjoy | 2006.12.22 | 2273 |
622 | REPORT Z11_008 | sapjoy | 2006.12.22 | 2496 |
621 | REPORT Z11_010 | sapjoy | 2006.12.22 | 2358 |
620 | module f4_drum_S101 input. | sapjoy | 2006.12.26 | 2541 |
619 | MODULE f4_drum_s101 INPUT. 2 | sapjoy | 2006.12.26 | 2375 |
618 | REPORT z12_002 | sapjoy | 2006.12.28 | 2629 |
617 | REPORT Z13_002 | sapjoy | 2007.01.03 | 2309 |
616 | REPORT Z12_004 | sapjoy | 2007.01.03 | 2256 |
615 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
614 | REPORT Z13_003 | sapjoy | 2007.01.05 | 2437 |
613 | REPORT Z13_001 | sapjoy | 2007.01.08 | 2362 |
612 | REPORT Z13_012 | sapjoy | 2007.01.08 | 2282 |
611 | REPORT Z13_013 | sapjoy | 2007.01.08 | 2634 |
good