Modify Screen 1000

맨날 잊어 버리넹....

  PARAMETERS: P_2    TYPE CHAR10 MODIF ID A,
            P_13   RADIOBUTTON GROUP radi  USER-COMMAND TEST DEFAULT 'X',
            P_13_2 RADIOBUTTON GROUP radi  .

AT SELECTION-SCREEN OUTPUT.
  PERFORM PPP.

*&---------------------------------------------------------------------*
*&      Form  PPP
*&---------------------------------------------------------------------*
FORM PPP .
  LOOP AT SCREEN.
    IF P_13 = 'X'.
      IF SCREEN-GROUP1 = 'A'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF P_13_2 = 'X'.
      IF SCREEN-GROUP1 = 'A'.
        SCREEN-INPUT = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " PPP