Creation of selection screen with 2 radio button groups

Question

Hi All,
I have following selecton screen to be created:
1. Radio Button for File
   A. Radio Button for PC File
       - Parameter for PC File Input
   B. Radio Button for UNIX File
       - Parameter for Unix File Input
2. Radio Button for Material
    - Material Select-Option
As per above Either of Radio Buttons 1/2 File/Material will be selected.
If 1(File) Selected Radio Button for PC File/Unix File will be selected, No other radio buttons will be active.
If 2(Material) Selected Material Select-option input will be given, No other radio buttons will be active.
How can we write the selection screen code for above design.
Thanks in advance.
Thanks,
Deep.

Answer 1

Hi,
go through the following example-----
**************************************INTERNAL TABLE DECLERATION**************************************
DATA: BEGIN OF ITAB2 OCCURS 0,
         VALUE(250) TYPE C,
         END   OF ITAB2.
**************************************DATA DECLERATION************************************************
DATA: PATH LIKE DYNPREAD-FIELDNAME.
DATA : P TYPE STRING,
       D TYPE STRING.
DATA : V_DATASET    LIKE FILENAMECI-FILEEXTERN.
**************************************SELECTION SCREEN***********************************************
PARAMETERS: V_PATH TYPE RLGRAP-FILENAME DEFAULT 'C:\Documents and Settings\vchaturvedi\Desktop\vijay.txt'.
PARAMETERS: D_PATH TYPE RLGRAP-FILENAME.
SKIP 5.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
PARAMETERS: PC_ONE    RADIOBUTTON GROUP RAD1 DEFAULT 'X',
            PC_OTHER    RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR V_PATH.
HELP FOR SEARCHING FILES PATH************************************************
  IF PC_ONE = 'X'.
    CALL FUNCTION 'F4_FILENAME'
     EXPORTING
  PROGRAM_NAME        =  'Z8VIJAY_SHADOWER_COVERSIONDATA'
  DYNPRO_NUMBER       = SYST-DYNNR
       FIELD_NAME          = PATH
     IMPORTING
       FILE_NAME           = V_PATH.
*******CONVERT IN TO STRING************
    P = V_PATH.
  ENDIF.
**************************************SELECTION SCREEN VALIDATION***********************************
AT SELECTION-SCREEN.
  IF V_PATH = ''.
    MESSAGE E014.                    "FILE PATH NOT FOUND!!!!!!!
  ENDIF.
  IF D_PATH = ''.
    MESSAGE E016.                "TARGET FILE NOT FOUND!!!!!!!
  ENDIF.
*******************FOR DOWNLOAD**********
AT SELECTION-SCREEN ON VALUE-REQUEST FOR D_PATH.
  CALL FUNCTION 'F4_FILENAME'
   EXPORTING
  PROGRAM_NAME        = 'Z8VIJAY_SHADOWER_COVERSIONDATA'
  DYNPRO_NUMBER       = SYST-DYNNR
     FIELD_NAME           = PATH
   IMPORTING
     FILE_NAME           = D_PATH.
***************CONVERT INTO STRING***********
  D = D_PATH.
*******************************************MAIN LOGIC************************************************
START-OF-SELECTION.
  IF P = ''.
    P = 'C:\Documents and Settings\vchaturvedi\Desktop\vijay.txt'.
  ENDIF.
******************UPLOAD DATA FROM OTHERS TO INTERNAL TABLE****************
  CALL FUNCTION 'GUI_UPLOAD'
          EXPORTING
            FILENAME                      = P
         FILETYPE                      = 'ASC'
         HAS_FIELD_SEPARATOR           = ' '
         HEADER_LENGTH                 = 0
         READ_BY_LINE                  = 'X'
         DAT_MODE                      = ' '
         CODEPAGE                      = ' '
         IGNORE_CERR                   = ABAP_TRUE
         REPLACEMENT                   = '#'
         CHECK_BOM                     = ' '
       IMPORTING
         FILELENGTH                    =
         HEADER                        =
          TABLES
            DATA_TAB                      = ITAB2
         EXCEPTIONS
           FILE_OPEN_ERROR               = 1
           FILE_READ_ERROR               = 2
           NO_BATCH                      = 3
           GUI_REFUSE_FILETRANSFER       = 4
           INVALID_TYPE                  = 5
           NO_AUTHORITY                  = 6
           UNKNOWN_ERROR                 = 7
           BAD_DATA_FORMAT               = 8
           HEADER_NOT_ALLOWED            = 9
           SEPARATOR_NOT_ALLOWED         = 10
           HEADER_TOO_LONG               = 11
           UNKNOWN_DP_ERROR              = 12
           ACCESS_DENIED                 = 13
           DP_OUT_OF_MEMORY              = 14
           DISK_FULL                     = 15
           DP_TIMEOUT                    = 16
           OTHERS                        = 17
      IF sy-subrc = 1.
       MESSAGE E014.                    "FILE PATH NOT FOUND!!!!!!!
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
******************************DOWNLOAD DATA FROM INTERNAL TABLE TO OTHERS******************************
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
  BIN_FILESIZE                    =
      FILENAME                        = D
  FILETYPE                        = 'ASC'
  APPEND                          = ' '
  WRITE_FIELD_SEPARATOR           = ' '
  HEADER                          = '00'
  TRUNC_TRAILING_BLANKS           = ' '
  WRITE_LF                        = 'X'
  COL_SELECT                      = ' '
  COL_SELECT_MASK                 = ' '
  DAT_MODE                        = ' '
  CONFIRM_OVERWRITE               = ' '
  NO_AUTH_CHECK                   = ' '
  CODEPAGE                        = ' '
  IGNORE_CERR                     = ABAP_TRUE
  REPLACEMENT                     = '#'
  WRITE_BOM                       = ' '
  TRUNC_TRAILING_BLANKS_EOL       = 'X'
  WK1_N_FORMAT                    = ' '
  WK1_N_SIZE                      = ' '
  WK1_T_FORMAT                    = ' '
  WK1_T_SIZE                      = ' '
IMPORTING
  FILELENGTH                      =
    TABLES
      DATA_TAB                        = ITAB2
  FIELDNAMES                      =
EXCEPTIONS
   FILE_WRITE_ERROR                = 1
   NO_BATCH                        = 2
   GUI_REFUSE_FILETRANSFER         = 3
   INVALID_TYPE                    = 4
   NO_AUTHORITY                    = 5
   UNKNOWN_ERROR                   = 6
   HEADER_NOT_ALLOWED              = 7
   SEPARATOR_NOT_ALLOWED           = 8
   FILESIZE_NOT_ALLOWED            = 9
   HEADER_TOO_LONG                 = 10
   DP_ERROR_CREATE                 = 11
   DP_ERROR_SEND                   = 12
   DP_ERROR_WRITE                  = 13
   UNKNOWN_DP_ERROR                = 14
   ACCESS_DENIED                   = 15
   DP_OUT_OF_MEMORY                = 16
   DISK_FULL                       = 17
   DP_TIMEOUT                      = 18
   FILE_NOT_FOUND                  = 19
   DATAPROVIDER_EXCEPTION          = 20
   CONTROL_FLUSH_ERROR             = 21
   OTHERS                          = 22
  IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  IF PC_OTHER = 'X'.
****************************8FOR ONE SERVER TO ANOTHER************************************************
  OPEN DATASET V_DATASET FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC = 0.
      DO.
        READ DATASET V_DATASET INTO ITAB2.
        IF SY-SUBRC <> 0.
          EXIT.
        ENDIF.
        APPEND ITAB2.
      ENDDO.
    ENDIF.
  ENDIF.
*********************************PRINTING DATA *********************************************************
  LOOP AT ITAB2.
    WRITE :/5 ITAB2-VALUE.
  ENDLOOP.
****do reward if usefull
Regards,
vijay