I have 6 radio buttons.i want to use a case statement to read them.

i have 6 radio buttons.i grouped them.i want to read them in a subroutine using a case statement.how can i read them

Hi Leela,
You cannot use the Case statement to read the radio buttons.
nstead you will have to use Loop at Screen under At Selection Screen Output.
Please refer to the below code or the reference:
*& Report  ZHYPERION                                                   *
*& Project : SubSea7
Created on : 07/02/2007
Created by : Puneet Jhari.
*& Purpose : For SAP Interface download Hyperion.
REPORT  zhyperion NO STANDARD PAGE HEADING  MESSAGE-ID zhyper.
Start of Data Declaration
TYPE-POOLS : truxs,vrm.
TABLES : glpct,cepc.
DATA : var TYPE i,
        total TYPE f.
DATA : BEGIN OF wa2,
       ryear LIKE glpct-ryear,
       rbukrs LIKE glpct-rbukrs,
       racct LIKE glpct-racct,
       ksl01 LIKE glpct-ksl01,
       END OF wa2.
DATA : BEGIN OF wa3,
       ryear LIKE glpct-ryear,
       rbukrs LIKE glpct-rbukrs,
       racct LIKE glpct-racct,
       ksl01 LIKE glpct-ksl01,
       END OF wa3.
DATA : BEGIN OF wa4,
       racct LIKE glpct-racct,
       END OF wa4.
DATA : BEGIN OF wa5,
       rbukrs LIKE glpct-rbukrs,
       racct LIKE glpct-racct,
       total1(8) TYPE p DECIMALS 2,
       END OF wa5.
DATA : BEGIN OF wa9,
       khinr LIKE cepc-khinr,
       racct LIKE glpct-racct,
       total1(8) TYPE p DECIMALS 2,
       END OF wa9.
DATA : BEGIN OF wa6,
       khinr LIKE cepc-khinr,
       prctr LIKE cepc-prctr,
       rprctr LIKE glpct-rprctr,
       ryear LIKE glpct-ryear,
       rbukrs LIKE glpct-rbukrs,
       racct LIKE glpct-racct,
       ksl01 LIKE glpct-ksl01,
       END OF wa6.
DATA : BEGIN OF wa7,
       khinr LIKE cepc-khinr,
       prctr LIKE cepc-prctr,
       rprctr LIKE glpct-rprctr,
       ryear LIKE glpct-ryear,
       rbukrs LIKE glpct-rbukrs,
       racct LIKE glpct-racct,
       ksl01 LIKE glpct-ksl01,
       END OF wa7.
DATA : itab3 LIKE TABLE OF wa2,
       itab4 LIKE TABLE OF wa3,
       itab5 LIKE TABLE OF wa4 WITH HEADER LINE,
       itab6 LIKE TABLE OF wa5 WITH HEADER LINE,
       itab7 LIKE TABLE OF wa6,
       itab8 LIKE TABLE OF wa7,
       itab10 LIKE TABLE OF wa9.
DATA : flag(1) TYPE c,
       temp(6) TYPE c.
DATA : itab2 TYPE truxs_t_text_data,
       itab9 TYPE truxs_t_text_data WITH HEADER LINE.
DATA : name TYPE vrm_id,
       list TYPE vrm_values,
       value LIKE LINE OF list,
       FILNAM11 TYPE STRING,
       FILNAM21 TYPE STRING.
End of Data Declaration
Begin of Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: r1 DEFAULT 'X' RADIOBUTTON GROUP g1 USER-COMMAND rad1,
r2 RADIOBUTTON GROUP g1 .
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-005.
PARAMETERS: rbukrs1 TYPE glpct-rbukrs MODIF ID ful,
            khinr1 TYPE cepc-khinr AS LISTBOX VISIBLE LENGTH 20
            MODIF ID sam ,
            ryear1 TYPE glpct-ryear MODIF ID ful,
            ryear2 TYPE glpct-ryear MODIF ID sam,
            rpmax1 TYPE i MODIF ID ful,
            rpmax2 TYPE i MODIF ID sam,
            filnam1 TYPE rlgrap-filename MODIF ID ful,
            filnam2 TYPE RLGRAP-FILENAME MODIF ID sam.
SELECTION-SCREEN END OF BLOCK b3.
End of Selection Screen
AT SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
PERFORM populate.          "For populating the drop-down list.
CLEAR VALUE.
REFRESH LIST.
NAME = 'KHINR1'.
VALUE-KEY = '1S7_NOCASV'.
VALUE-TEXT = '1S7_NOCASV'.
APPEND VALUE TO LIST.
VALUE-KEY = '1S7_NOCJOT'.
VALUE-TEXT = '1S7_NOCJOT'.
APPEND VALUE TO LIST.
LOOP AT SCREEN.            "For toggling between the selection screens.
    IF r1 EQ 'X'.
      IF screen-group1 = 'SAM'.
        screen-active = 0.
      ENDIF.
    ELSEIF r2 EQ 'X'.
      IF screen-group1 = 'FUL'.
        screen-active = 0.
      ENDIF.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
For the Drop-Down Listbox
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id                    = name
      values                = list
EXCEPTIONS
  ID_ILLEGAL_NAME       = 1
  OTHERS                = 2
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Begin of Data Selection
START-OF-SELECTION.
When Company Code radio button is selected.
  IF r1 EQ 'X'.            "If Company Code radio button is selected.
    IF rbukrs1 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF rpmax1 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF ryear1 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF filnam1 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
MOVE FILNAM1 TO FILNAM11.
    CASE rpmax1.
      WHEN '01'.
        SELECT ryear rbukrs racct ksl01
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '02'.
        SELECT ryear rbukrs racct ksl02
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '03'.
        SELECT ryear rbukrs racct ksl03
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '04'.
        SELECT ryear rbukrs racct ksl04
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '05'.
        SELECT ryear rbukrs racct ksl05
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '06'.
        SELECT ryear rbukrs racct ksl06
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '07'.
        SELECT ryear rbukrs racct ksl07
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '08'.
        SELECT ryear rbukrs racct ksl08
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '09'.
        SELECT ryear rbukrs racct ksl09
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '10'.
        SELECT ryear rbukrs racct ksl10
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '11'.
        SELECT ryear rbukrs racct ksl11
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '12'.
        SELECT ryear rbukrs racct ksl12
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '13'.
        SELECT ryear rbukrs racct ksl13
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '14'.
        SELECT ryear rbukrs racct ksl14
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '15'.
        SELECT ryear rbukrs racct ksl15
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
      WHEN '16'.
        SELECT ryear rbukrs racct ksl16
FROM glpct INTO TABLE itab3 WHERE rbukrs EQ rbukrs1 AND ryear EQ ryear1.
    ENDCASE.
    MOVE itab3 TO itab4.
    LOOP AT itab3 INTO wa2.
      flag = 0.
      LOOP AT itab5 INTO wa4.
        IF wa2-racct EQ wa4-racct.
          flag = 1.
          EXIT.
        ENDIF.
      ENDLOOP.
      DELETE ADJACENT DUPLICATES FROM itab5.
      IF flag = 1.
        CONTINUE.
      ENDIF.
      LOOP AT itab4 INTO wa3.
        IF wa2-rbukrs EQ wa3-rbukrs AND wa2-racct EQ wa3-racct AND
        wa2-ryear EQ wa3-ryear.
          total = total + wa3-ksl01.
        ENDIF.
      ENDLOOP.
      wa5-rbukrs = wa2-rbukrs.
      wa5-racct = wa2-racct+4(6).
      wa5-total1 = total.
      APPEND wa5 TO itab6.
      CLEAR total.
      APPEND wa2-racct TO itab5.
    ENDLOOP.
If no data is available corresponding to the values entered.
    IF itab6[] IS INITIAL.
      MESSAGE i003.
    ENDIF.
For making the file Comma separated
    CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
      EXPORTING
        i_field_seperator          = ','
I_LINE_HEADER              =
  I_FILENAME                 =
  I_APPL_KEEP                = ' '
      TABLES
        i_tab_sap_data             = itab6
     CHANGING
       i_tab_converted_data       = itab2
EXCEPTIONS
  CONVERSION_FAILED          = 1
  OTHERS                     = 2
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
For downloading it to the Presentation Server
   MOVE itab2[] TO itab9[].
   OPEN DATASET filnam1 FOR OUTPUT IN LEGACY TEXT MODE.
   LOOP AT itab9.
     TRANSFER itab9 TO filnam1.
   ENDLOOP.
   CLOSE DATASET filnam1.
   IF sy-subrc EQ 0.
     MESSAGE s004.
   ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                    =
    filename                        = FILNAM11
  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                      = ' '
  WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
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 eq 0.
message s004.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
When Region radio button is selected.
  ELSEIF r2 EQ 'X'.
    IF khinr1 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF rpmax2 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF ryear2 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
    IF filnam2 IS INITIAL.
      MESSAGE i002.
      LEAVE TO SCREEN 1000.
    ENDIF.
MOVE FILNAM2 TO FILNAM21.
    CASE rpmax2.
      WHEN '01'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl01
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '02'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl02
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '03'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl03
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '04'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl04
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '05'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl05
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '06'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl06
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '07'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl07
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '08'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl08
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '09'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl09
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '10'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl10
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '11'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl11
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '12'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl12
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '13'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl13
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '14'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl14
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '15'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl15
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
      WHEN '16'.
       SELECT ckhinr cprctr grprctr gryear grbukrs gracct g~ksl16
       INTO CORRESPONDING FIELDS OF TABLE itab7
       FROM (  glpct AS g
               INNER JOIN cepc AS c ON grprctr = cprctr )
       WHERE c~khinr = khinr1 AND
             g~ryear = ryear2.
    ENDCASE.
    MOVE itab7 TO itab8.
    LOOP AT itab7 INTO wa6.
      flag = 0.
      LOOP AT itab5 INTO wa4.
        IF wa6-racct EQ wa4-racct.
          flag = 1.
          EXIT.
        ENDIF.
      ENDLOOP.
      DELETE ADJACENT DUPLICATES FROM itab5.
      IF flag = 1.
        CONTINUE.
      ENDIF.
      LOOP AT itab8 INTO wa7.
        IF wa6-rbukrs EQ wa7-rbukrs AND wa6-racct EQ wa7-racct AND
        wa6-ryear EQ wa7-ryear.
          total = total + wa7-ksl01.
        ENDIF.
      ENDLOOP.
      wa9-khinr = khinr1.
      wa9-racct = wa6-racct+4(6).
      wa9-total1 = total.
      APPEND wa9 TO itab10.
      CLEAR total.
      APPEND wa6-racct TO itab5.
    ENDLOOP.
*If no data is available corresponding to the values entered.
    IF itab10 IS INITIAL.
      MESSAGE i003.
    ENDIF.
For making the file Comma separated
    CALL FUNCTION 'SAP_CONVERT_TO_TEX_FORMAT'
      EXPORTING
        i_field_seperator          = ','
  I_LINE_HEADER              =
  I_FILENAME                 =
  I_APPL_KEEP                = ' '
      TABLES
        i_tab_sap_data             = itab10
     CHANGING
       i_tab_converted_data       = itab2
EXCEPTIONS
  CONVERSION_FAILED          = 1
  OTHERS                     = 2
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
For downloading it to the Presentation Server
   MOVE itab2[] TO itab9[].
   OPEN DATASET filnam2 FOR OUTPUT IN LEGACY TEXT MODE.
   LOOP AT itab9.
     TRANSFER itab9 TO filnam2.
   ENDLOOP.
   CLOSE DATASET filnam2.
   IF sy-subrc EQ 0.
     MESSAGE s004.
   ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                    =
    filename                        = FILNAM21
  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                      = ' '
  WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
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 eq 0.
message s004.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
  ENDIF.
*&      Form  POPULATE
      text
FORM populate.
  CLEAR value.
  REFRESH list.
  name = 'KHINR1'.
  value-key = '1S7_SUBSEA'.
  value-text = '1S7_SUBSEA'.
  APPEND value TO list.
  value-key = '1S7_GEN'.
  value-text = '1S7_GEN'.
  APPEND value TO list.
  value-key = '1S7'.
  value-text = '1S7'.
  APPEND value TO list.
  value-key = '1S7_CORPTP'.
  value-text = '1S7_CORPTP'.
  APPEND value TO list.
  value-key = '1S7_BRRE'.
  value-text = '1S7_BRRE'.
  APPEND value TO list.
  value-key = '1S7_BRCON'.
  value-text = '1S7_BRCON'.
  APPEND value TO list.
  value-key = '1S7_BRCJOB'.
  value-text = '1S7_BRCJOB'.
  APPEND value TO list.
  value-key = '1S7_BRCJBU'.
  value-text = '1S7_BRCJBU'.
  APPEND value TO list.
  value-key = '1S7_BRCJCO'.
  value-text = '1S7_BRCJCO'.
  APPEND value TO list.
  value-key = '1S7_BRCJIR'.
  value-text = '1S7_BRCJIR'.
  APPEND value TO list.
  value-key = '1S7_BRCJEN'.
  value-text = '1S7_BRCJEN'.
  APPEND value TO list.
  value-key = '1S7_BRCJPI'.
  value-text = '1S7_BRCJPI'.
  APPEND value TO list.
  value-key = '1S7_BRCJSU'.
  value-text = '1S7_BRCJSU'.
  APPEND value TO list.
  value-key = '1S7_BRCJFL'.
  value-text = '1S7_BRCJFL'.
  APPEND value TO list.
  value-key = '1S7_BRCJOT'.
  value-text = '1S7_BRCJOT'.
  APPEND value TO list.
  value-key = '1S7_BRCASV'.
  value-text = '1S7_BRCASV'.
  APPEND value TO list.
  value-key = '1S7_BRCASE'.
  value-text = '1S7_BRCASE'.
  APPEND value TO list.
  value-key = '1S7_BRCOOC'.
  value-text = '1S7_BRCOOC'.
  APPEND value TO list.
  value-key = '1S7_BRCOHD'.
  value-text = '1S7_BRCOHD'.
  APPEND value TO list.
  value-key = '1S7_BRCGEN'.
  value-text = '1S7_BRCGEN'.
  APPEND value TO list.
  value-key = '1S7_BRDRI'.
  value-text = '1S7_BRDRI'.
  APPEND value TO list.
  value-key = '1S7_BRDJOB'.
  value-text = '1S7_BRDJOB'.
  APPEND value TO list.
  value-key = '1S7_BRDASV'.
  value-text = '1S7_BRDASV'.
  APPEND value TO list.
  value-key = '1S7_BRDASE'.
  value-text = '1S7_BRDASE'.
  APPEND value TO list.
  value-key = '1S7_BRDAEW'.
  value-text = '1S7_BRDAEW'.
  APPEND value TO list.
  value-key = '1S7_BRDAEO'.
  value-text = '1S7_BRDAEO'.
  APPEND value TO list.
  value-key = '1S7_BRDAET'.
  value-text = '1S7_BRDAET'.
  APPEND value TO list.
  value-key = '1S7_BRDOOC'.
  value-text = '1S7_BRDOOC'.
  APPEND value TO list.
  value-key = '1S7_BRDOHD'.
  value-text = '1S7_BRDOHD'.
  APPEND value TO list.
  value-key = '1S7_BRVER'.
  value-text = '1S7_BRVER'.
  APPEND value TO list.
  value-key = '1S7_BRVJOB'.
  value-text = '1S7_BRVJOB'.
  APPEND value TO list.
  value-key = '1S7_BRVASV'.
  value-text = '1S7_BRVASV'.
  APPEND value TO list.
  value-key = '1S7_BRVASE'.
  value-text = '1S7_BRVASE'.
  APPEND value TO list.
  value-key = '1S7_BRVOOC'.
  value-text = '1S7_BRVOOC'.
  APPEND value TO list.
  value-key = '1S7_BRVOHD'.
  value-text = '1S7_BRVOHD'.
  APPEND value TO list.
  value-key = '1S7_UKRE'.
  value-text = '1S7_UKRE'.
  APPEND value TO list.
  value-key = '1S7_UKCON'.
  value-text = '1S7_UKCON'.
  APPEND value TO list.
  value-key = '1S7_UKCJOB'.
  value-text = '1S7_UKCJOB'.
  APPEND value TO list.
  value-key = '1S7_UKCJBU'.
  value-text = '1S7_UKCJBU'.
  APPEND value TO list.
  value-key = '1S7_UKCJCO'.
  value-text = '1S7_UKCJCO'.
  APPEND value TO list.
  value-key = '1S7_UKCJIR'.
  value-text = '1S7_UKCJIR'.
  APPEND value TO list.
  value-key = '1S7_UKCJEN'.
  value-text = '1S7_UKCJEN'.
  APPEND value TO list.
  value-key = '1S7_UKCJPI'.
  value-text = '1S7_UKCJPI'.
  APPEND value TO list.
  value-key = '1S7_UKCJSU'.
  value-text = '1S7_UKCJSU'.
  APPEND value TO list.
  value-key = '1S7_UKCJFL'.
  value-text = '1S7_UKCJFL'.
  APPEND value TO list.
  value-key = '1S7_UKCJOT'.
  value-text = '1S7_UKCJOT'.
  APPEND value TO list.
  value-key = '1S7_UKCASV'.
  value-text = '1S7_UKCASV'.
  APPEND value TO list.
  value-key = '1S7_UKCASE'.
  value-text = '1S7_UKCASE'.
  APPEND value TO list.
  value-key = '1S7_UKCOOC'.
  value-text = '1S7_UKCOOC'.
  APPEND value TO list.
  value-key = '1S7_UKBA'.
  value-text = '1S7_UKBA'.
  APPEND value TO list.
  value-key = '1S7_UKBATE'.
  value-text = '1S7_UKBATE'.
  APPEND value TO list.
  value-key = '1S7_UKCOHD'.
  value-text = '1S7_UKCOHD'.
  APPEND value TO list.
  value-key = '1S7_UKCGEN'.
  value-text = '1S7_UKCGEN'.
  APPEND value TO list.
  value-key = '1S7_UKDRI'.
  value-text = '1S7_UKDRI'.
  APPEND value TO list.
  value-key = '1S7_UKDJOB'.
  value-text = '1S7_UKDJOB'.
  APPEND value TO list.
  value-key = '1S7_UKDASV'.
  value-text = '1S7_UKDASV'.
  APPEND value TO list.
  value-key = '1S7_UKDASE'.
  value-text = '1S7_UKDASE'.
  APPEND value TO list.
  value-key = '1S7_UKDAEW'.
  value-text = '1S7_UKDAEW'.
  APPEND value TO list.
  value-key = '1S7_UKDAEO'.
  value-text = '1S7_UKDAEO'.
  APPEND value TO list.
  value-key = '1S7_UKDAET'.
  value-text = '1S7_UKDAET'.
  APPEND value TO list.
  value-key = '1S7_UKDOOC'.
  value-text = '1S7_UKDOOC'.
  APPEND value TO list.
  value-key = '1S7_UKDOHD'.
  value-text = '1S7_UKDOHD'.
  APPEND value TO list.
  value-key = '1S7_UKVER'.
  value-text = '1S7_UKVER'.
  APPEND value TO list.
  value-key = '1S7_UKVJOB'.
  value-text = '1S7_UKVJOB'.
  APPEND value TO list.
  value-key = '1S7_UKVASV'.
  value-text = '1S7_UKVASV'.
  APPEND value TO list.
  value-key = '1S7_UKVASE'.
  value-text = '1S7_UKVASE'.
  APPEND value TO list.
  value-key = '1S7_UKVOOC'.
  value-text = '1S7_UKVOOC'.
  APPEND value TO list.
  value-key = '1S7_UKVOHD'.
  value-text = '1S7_UKVOHD'.
  APPEND value TO list.
  value-key = '1S7_NORE'.
  value-text = '1S7_NORE'.
  APPEND value TO list.
  value-key = '1S7_NOCON'.
  value-text = '1S7_NOCON'.
  APPEND value TO list.
  value-key = '1S7_NOCJOB'.
  value-text = '1S7_NOCJOB'.
  APPEND value TO list.
  value-key = '1S7_NOCJBU'.
  value-text = '1S7_NOCJBU'.
  APPEND value TO list.
  value-key = '1S7_NOCJCO'.
  value-text = '1S7_NOCJCO'.
  APPEND value TO list.
  value-key = '1S7_NOCJIR'.
  value-text = '1S7_NOCJIR'.
  APPEND value TO list.
  value-key = '1S7_NOCJEN'.
  value-text = '1S7_NOCJEN'.
  APPEND value TO list.
  value-key = '1S7_NOCJPI'.
  value-text = '1S7_NOCJPI'.
  APPEND value TO list.
  value-key = '1S7_NOCJSU'.
  value-text = '1S7_NOCJSU'.
  APPEND value TO list.
  value-key = '1S7_NOCJFL'.
  value-text = '1S7_NOCJFL'.
  APPEND value TO list.
  value-key = '1S7_NOCJOT'.
  value-text = '1S7_NOCJOT'.
  APPEND value TO list.
  value-key = '1S7_NOCASV'.
  value-text = '1S7_NOCASV'.
  APPEND value TO list.
  value-key = '1S7_NOCASE'.
  value-text = '1S7_NOCASE'.
  APPEND value TO list.
  value-key = '1S7_NOCOOC'.
  value-text = '1S7_NOCOOC'.
  APPEND value TO list.
  value-key = '1S7_NOCOHD'.
  value-text = '1S7_NOCOHD'.
  APPEND value TO list.
  value-key = '1S7_NOCGEN'.
  value-text = '1S7_NOCGEN'.
  APPEND value TO list.
  value-key = '1S7_NODRI'.
  value-text = '1S7_NODRI'.
  APPEND value TO list.
  value-key = '1S7_NODJOB'.
  value-text = '1S7_NODJOB'.
  APPEND value TO list.
  value-key = '1S7_NODASV'.
  value-text = '1S7_NODASV'.
  APPEND value TO list.
  value-key = '1S7_NODASE'.
  value-text = '1S7_NODASE'.
  APPEND value TO list.
  value-key = '1S7_NODAEW'.
  value-text = '1S7_NODAEW'.
  APPEND value TO list.
  value-key = '1S7_NODAEO'.
  value-text = '1S7_NODAEO'.
  APPEND value TO list.
  value-key = '1S7_NODAET'.
  value-text = '1S7_NODAET'.
  APPEND value TO list.
  value-key = '1S7_NODOOC'.
  value-text = '1S7_NODOOC'.
  APPEND value TO list.
  value-key = '1S7_NODOHD'.
  value-text = '1S7_NODOHD'.
  APPEND value TO list.
  value-key = '1S7_NOVER'.
  value-text = '1S7_NOVER'.
  APPEND value TO list.
  value-key = '1S7_NOVJOB'.
  value-text = '1S7_NOVJOB'.
  APPEND value TO list.
  value-key = '1S7_NOVASV'.
  value-text = '1S7_NOVASV'.
  APPEND value TO list.
  value-key = '1S7_NOVASE'.
  value-text = '1S7_NOVASE'.
  APPEND value TO list.
  value-key = '1S7_NOVOOC'.
  value-text = '1S7_NOVOOC'.
  APPEND value TO list.
  value-key = '1S7_NOVOHD'.
  value-text = '1S7_NOVOHD'.
  APPEND value TO list.
  value-key = '1S7_GORE'.
  value-text = '1S7_GORE'.
  APPEND value TO list.
  value-key = '1S7_GOCON'.
  value-text = '1S7_GOCON'.
  APPEND value TO list.
  value-key = '1S7_GOCJOB'.
  value-text = '1S7_GOCJOB'.
  APPEND value TO list.
  value-key = '1S7_GOCJBU'.
  value-text = '1S7_GOCJBU'.
  APPEND value TO list.
  value-key = '1S7_GOCJCO'.
  value-text = '1S7_GOCJCO'.
  APPEND value TO list.
  value-key = '1S7_GOCJIR'.
  value-text = '1S7_GOCJIR'.
  APPEND value TO list.
  value-key = '1S7_GOCJEN'.
  value-text = '1S7_GOCJEN'.
  APPEND value TO list.
  value-key = '1S7_GOCJPI'.
  value-text = '1S7_GOCJPI'.
  APPEND value TO list.
  value-key = '1S7_GOCJSU'.
  value-text = '1S7_GOCJSU'.
  APPEND value TO list.
  value-key = '1S7_GOCJFL'.
  value-text = '1S7_GOCJFL'.
  APPEND value TO list.
  value-key = '1S7_GOCJOT'.
  value-text = '1S7_GOCJOT'.
  APPEND value TO list.
  value-key = '1S7_GOCASV'.
  value-text = '1S7_GOCASV'.
  APPEND value TO list.
  value-key = '1S7_GOCASE'.
  value-text = '1S7_GOCASE'.
  APPEND value TO list.
  value-key = '1S7_GOCOOC'.
  value-text = '1S7_GOCOOC'.
  APPEND value TO list.
  value-key = '1S7_GOCOHD'.
  value-text = '1S7_GOCOHD'.
  APPEND value TO list.
  value-key = '1S7_GOCGEN'.
  value-text = '1S7_GOCGEN'.
  APPEND value TO list.
  value-key = '1S7_GODRI'.
  value-text = '1S7_GODRI'.
  APPEND value TO list.
  value-key = '1S7_GODJOB'.
  value-text = '1S7_GODJOB'.
  APPEND value TO list.
  value-key = '1S7_GODASV'.
  value-text = '1S7_GODASV'.
  APPEND value TO list.
  value-key = '1S7_GODASE'.
  value-text = '1S7_GODASE'.
  APPEND value TO list.
  value-key = '1S7_GODAEW'.
  value-text = '1S7_GODAEW'.
  APPEND value TO list.
  value-key = '1S7_GODAEO'.
  value-text = '1S7_GODAEO'.
  APPEND value TO list.
  value-key = '1S7_GODAET'.
  value-text = '1S7_GODAET'.
  APPEND value TO list.
  value-key = '1S7_GODOOC'.
  value-text = '1S7_GODOOC'.
  APPEND value TO list.
  value-key = '1S7_GODOHD'.
  value-text = '1S7_GODOHD'.
  APPEND value TO list.
  value-key = '1S7_GOVER'.
  value-text = '1S7_GOVER'.
  APPEND value TO list.
  value-key = '1S7_GOVJOB'.
  value-text = '1S7_GOVJOB'.
  APPEND value TO list.
  value-key = '1S7_GOVASV'.
  value-text = '1S7_GOVASV'.
  APPEND value TO list.
  value-key = '1S7_GOVASE'.
  value-text = '1S7_GOVASE'.
  APPEND value TO list.
  value-key = '1S7_GOVOOC'.
  value-text = '1S7_GOVOOC'.
  APPEND value TO list.
  value-key = '1S7_GOVOHD'.
  value-text = '1S7_GOVOHD'.
  APPEND value TO list.
  value-key = '1S7_GVRE'.
  value-text = '1S7_GVRE'.
  APPEND value TO list.
  value-key = '1S7_GVCON'.
  value-text = '1S7_GVCON'.
  APPEND value TO list.
  value-key = '1S7_GVCJOB'.
  value-text = '1S7_GVCJOB'.
  APPEND value TO list.
  value-key = '1S7_GVCJBU'.
  value-text = '1S7_GVCJBU'.
  APPEND value TO list.
  value-key = '1S7_GVCJCO'.
  value-text = '1S7_GVCJCO'.
  APPEND value TO list.
  value-key = '1S7_GVCJIR'.
  value-text = '1S7_GVCJIR'.
  APPEND value TO list.
  value-key = '1S7_GVCJEN'.
  value-text = '1S7_GVCJEN'.
  APPEND value TO list.
  value-key = '1S7_GVCJPI'.
  value-text = '1S7_GVCJPI'.
  APPEND value TO list.
  value-key = '1S7_GVCJSU'.
  value-text = '1S7_GVCJSU'.
  APPEND value TO list.
  value-key = '1S7_GVCJFL'.
  value-text = '1S7_GVCJFL'.
  APPEND value TO list.
  value-key = '1S7_GVCJOT'.
  value-text = '1S7_GVCJOT'.
  APPEND value TO list.
  value-key = '1S7_GVCASV'.
  value-text = '1S7_GVCASV'.
  APPEND value TO list.
  value-key = '1S7_GVCASE'.
  value-text = '1S7_GVCASE'.
  APPEND value TO list.
  value-key = '1S7_GVCOOC'.
  value-text = '1S7_GVCOOC'.
  APPEND value TO list.
  value-key = '1S7_GVCOHD'.
  value-text = '1S7_GVCOHD'.
  APPEND value TO list.
  value-key = '1S7_GVCGEN'.
  value-text = '1S7_GVCGEN'.
  APPEND value TO list.
  value-key = '1S7_GVDRI'.
  value-text = '1S7_GVDRI'.
  APPEND value TO list.
  value-key = '1S7_GVDJOB'.
  value-text = '1S7_GVDJOB'.
  APPEND value TO list.
  value-key = '1S7_GVDASV'.
  value-text = '1S7_GVDASV'.
  APPEND value TO list.
  value-key = '1S7_GVDASE'.
  value-text = '1S7_GVDASE'.
  APPEND value TO list.
  value-key = '1S7_GVDOOC'.
  value-text = '1S7_GVDOOC'.
  APPEND value TO list.
  value-key = '1S7_GVDOHD'.
  value-text = '1S7_GVDOHD'.
  APPEND value TO list.
  value-key = '1S7_GVVER'.
  value-text = '1S7_GVVER'.
  APPEND value TO list.
  value-key = '1S7_GVVJOB'.
  value-text = '1S7_GVVJOB'.
  APPEND value TO list.
  value-key = '1S7_GVVASV'.
  value-text = '1S7_GVVASV'.
  APPEND value TO list.
  value-key = '1S7_GVVASE'.
  value-text = '1S7_GVVASE'.
  APPEND value TO list.
  value-key = '1S7_GVVOOC'.
  value-text = '1S7_GVVOOC'.
  APPEND value TO list.
  value-key = '1S7_GVVOHD'.
  value-text = '1S7_GVVOHD'.
  APPEND value TO list.
  value-key = '1S7_GCRE'.
  value-text = '1S7_GCRE'.
  APPEND value TO list.
  value-key = '1S7_GCCON'.
  value-text = '1S7_GCCON'.
  APPEND value TO list.
  value-key = '1S7_GCCJOB'.
  value-text = '1S7_GCCJOB'.
  APPEND value TO list.
  value-key = '1S7_GCCJBU'.
  value-text = '1S7_GCCJBU'.
  APPEND value TO list.
  value-key = '1S7_GCCJCO'.
  value-text = '1S7_GCCJCO'.
  APPEND value TO list.
  value-key = '1S7_GCCJIR'.
  value-text = '1S7_GCCJIR'.
  APPEND value TO list.
  value-key = '1S7_GCCJEN'.
  value-text = '1S7_GCCJEN'.
  APPEND value TO list.
  value-key = '1S7_GCCJPI'.
  value-text = '1S7_GCCJPI'.
  APPEND value TO list.
  value-key = '1S7_GCCJSU'.
  value-text = '1S7_GCCJSU'.
  APPEND value TO list.
  value-key = '1S7_GCCJFL'.
  value-text = '1S7_GCCJFL'.
  APPEND value TO list.
  value-key = '1S7_GCCJOT'.
  value-text = '1S7_GCCJOT'.
  APPEND value TO list.
  value-key = '1S7_GCCASV'.
  value-text = '1S7_GCCASV'.
  APPEND value TO list.
  value-key = '1S7_GCCASE'.
  value-text = '1S7_GCCASE'.
  APPEND value TO list.
  value-key = '1S7_GCCOOC'.
  value-text = '1S7_GCCOOC'.
  APPEND value TO list.
  value-key = '1S7_GCCOHD'.
  value-text = '1S7_GCCOHD'.
  APPEND value TO list.
  value-key = '1S7_GCCRD'.
  value-text = '1S7_GCCRD'.
  APPEND value TO list.
  value-key = '1S7_GCCGEN'.
  value-text = '1S7_GCCGEN'.
  APPEND value TO list.
  value-key = '1S7_GCDRI'.
  value-text = '1S7_GCDRI'.
  APPEND value TO list.
  value-key = '1S7_GCDJOB'.
  value-text = '1S7_GCDJOB'.
  APPEND value TO list.
  value-key = '1S7_GCDASV'.
  value-text = '1S7_GCDASV'.
  APPEND value TO list.
  value-key = '1S7_GCDASE'.
  value-text = '1S7_GCDASE'.
  APPEND value TO list.
  value-key = '1S7_GCDOOC'.
  value-text = '1S7_GCDOOC'.
  APPEND value TO list.
  value-key = '1S7_GCDOHD'.
  value-text = '1S7_GCDOHD'.
  APPEND value TO list.
  value-key = '1S7_GCVER'.
  value-text = '1S7_GCVER'.
  APPEND value TO list.
  value-key = '1S7_GCVJOB'.
  value-text = '1S7_GCVJOB'.
  APPEND value TO list.
  value-key = '1S7_GCVASV'.
  value-text = '1S7_GCVASV'.
  APPEND value TO list.
  value-key = '1S7_GCVASE'.
  value-text = '1S7_GCVASE'.
  APPEND value TO list.
  value-key = '1S7_GCVOOC'.
  value-text = '1S7_GCVOOC'.
  APPEND value TO list.
  value-key = '1S7_GCVOHD'.

Similar Messages

Maybe you are looking for

  • Default a rtf template for a Xml publisher report!

    Hello, How to default a layout template if multiple templates are registered for a Data template? and also how to delete a template? Thanks,

  • Pages won't open, how do I fix it?

    I purchased Pages about a year ago from the app store for my MacBook Pro. No problems until today. When I logged on, the Pages icon in the dock had changed to a generic applications icon that would not open. What happened? How do I fix it? Virginia

  • Mac Mail gone wild

    I currently have the spinning ball in mac mail and can only get out of it by force quit.  I was having problems and trashed the com.apple.Mail.plist ... that did not help but "put back" selection in trash and still did not help.  email accounts just

  • Auto Update Illustrator CS6 version 16.0.3 error code U44M1P7

    I have received a failure code several times already.  The eror code is:  U44M1P7.  Currently running OS Windows 7.0. Please advise if anyone has a fix. Thank you

  • Reset plugin behavior

    Situation before: -have set Shockwave Flash to 'ask to activate'. -worked well, like expected: on a page with Flash, FF pops up a button to allow Flash or to continue blocking it Then: - accidentally clicked 'continue to block this site' instead of '