......
PARAMETERS:
RB_S1 RADIOBUTTON GROUP RAD1 DEFAULT 'X' USER-COMMAND x,
RB_S2 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK BLK1.
......
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF RB_S1 = CNS_X.
IF SCREEN-NAME = 'P_ZDATE2'.
SCREEN-INPUT = 1.
SCREEN-REQUIRED = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
IF RB_S2 = CNS_X.
IF SCREEN-NAME = 'P_ZDATE2'.
SCREEN-REQUIRED = '0'.
SCREEN-INPUT = 0.
P_ZDATE2 = SPACE.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
No comments:
Post a Comment