Dynamic select with fieldsymbol

Question

Dear all,
I wanted to write a dynamic select for this code.
SELECT-OPTIONS: so_gjahr FOR bkpf-gjahr,
                so_belnr FOR bkpf-belnr,
                so_bukrs FOR bkpf-bukrs,
                so_aufnr FOR aufk-aufnr,
                so_vbeln FOR vbuk-vbeln.
PARAMETERS: p_bkpf    RADIOBUTTON GROUP r1 DEFAULT 'X',
            p_bseg    RADIOBUTTON GROUP r1,
            p_vbak    RADIOBUTTON GROUP r1,
            p_vbap    RADIOBUTTON GROUP r1,
            p_bsad    RADIOBUTTON GROUP r1,
CASE 'X'.
  WHEN p_bkpf.
    SELECT * INTO TABLE lt_bkpf  FROM bkpf WHERE bukrs IN so_bukrs[]
                                              AND  gjahr IN so_gjahr[]
                                              AND  belnr IN so_belnr[].
  WHEN p_bseg.
    SELECT * INTO TABLE lt_bseg  FROM bseg WHERE bukrs IN so_bukrs[]
                                             AND   gjahr IN so_gjahr[]
                                             AND   belnr IN so_belnr[].
  WHEN p_vbak.
    SELECT * INTO TABLE lt_vbak  FROM vbak WHERE vbeln    IN so_belnr[]
                                             AND   erdat    IN so_gjahr[]
                                             AND   bukrs_vf IN so_bukrs[].
  WHEN p_vbap.
    SELECT * INTO TABLE lt_vbap  FROM vbap WHERE vbeln IN so_vbeln[].
ENDCASE.
How can I do it?
best regards

Answer 1

Hi,
If I am correct , u wanna reduce number of select statements. In such case try using MACROs.
First define the macros . Then call the macro where ever applicable . Like I tried a bit of ur code. Give a try
define m_macro.
move &1 to source_table.
move &2 to dest_table.
SELECT * INTO TABLE dest_table FROM source_table WHERE bukrs IN so_bukrs[]
                                              AND  gjahr IN so_gjahr[]
                                              AND  belnr IN so_belnr[].
end-of-defination.
CASE 'X'.
  WHEN p_bkpf.
m_macro: 'bkpf'   lt_bkpf.
  WHEN p_bseg.
m_macro: bseg  it_bseg.
// like wise define macros for the select queries which are similar..
ENDCASE.
All d best. Please tell whether it worked or not.
regards,
Vishal