Saturday, 24 March 2012

Radio Buttons ( AT SELECTION-SCREEN OUTPUT )

REPORT  ZCLASS_G12.

PARAMETERS: P_RAD1 RADIOBUTTON GROUP GP1 USER-COMMAND 123,
            P_RAD2 RADIOBUTTON GROUP GP1.

TABLES: EKKO, VBAK.

SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN MODIF ID DDD,
                S_KUNNR FOR VBAK-KUNNR MODIF ID DDD,
                S_EBELN FOR EKKO-EBELN MODIF ID XXX.

INITIALIZATION.

  P_RAD1 = 'X'.


AT SELECTION-SCREEN OUTPUT.

  IF P_RAD1 EQ 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 EQ 'XXX'.
        SCREEN-INPUT = 0.
        SCREEN-INVISIBLE = 1.

        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.


  IF P_RAD2 EQ 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 EQ 'DDD'.
        SCREEN-INPUT = 0.
        SCREEN-INVISIBLE = 1.

        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.