Dynamic reference

[Former Member]

Hi Experts,

I need to make my select statement completely DYNAMIC i.e. including names of fields and variables into which they are going to be stored and also the processing logic - in following way:

TABLES: PA0001.

DATA: BEGIN OF WA,

PERNR TYPE PERSNO,

END OF WA.

DATA: lv_f1(5) TYPE c.

PARAMETERS: p_pernr TYPE persno.

lv_f1 = 'PERNR'.

SELECT single (lv_f1) FROM pa0001 INTO WA-(LV_F1) WHERE pernr = p_pernr.

IF sy-subrc = 0.

WRITE:/ WA-(lv_f1).

ENDIF.

But the above code is whoing errors...... can you please suggest me how to correct the errors.....

Regards

Vasu

[Former Member]

Ignore

Edited by: Vikranth.Reddy on Jun 16, 2010 2:34 PM

[SuhaSaha]

Earlier response deleted.

You cannot use dynamic tokens with INTO , SAP documentation says:

For the specification of target, there is no dynamic variant that corresponds to the other additions. Instead, you can work with dynamically created data objects (see the example for CREATE DATA). 

Check this code snippet:

TYPES: BEGIN OF ty,
pernr TYPE persno,
END OF ty.

PARAMETERS: p_pernr TYPE persno.

DATA: dref TYPE REF TO data,
      lv_f1 TYPE fieldname.
FIELD-SYMBOLS: <wa> TYPE ANY,
               <val> TYPE ANY .

CREATE DATA dref TYPE ty.
ASSIGN dref->* TO <wa>.

lv_f1 = 'PERNR'. 

SELECT SINGLE (lv_f1) FROM pa0001
INTO <wa>  "-->Change this
WHERE pernr = p_pernr.
IF sy-subrc = 0.
  ASSIGN COMPONENT lv_f1 OF STRUCTURE <wa> TO <val>.
  IF sy-subrc = 0.
    WRITE / <val>.
  ENDIF.
ENDIF.

Edited by: Suhas Saha on Jun 16, 2010 2:48 PM

[Former Member]

select single wa-pernr ?

[Former Member]

Duplicate removed

Edited by: Vikranth.Reddy on Jun 16, 2010 2:44 PM

[Former Member]

Duplicate removed

Edited by: Vikranth.Reddy on Jun 16, 2010 2:44 PM

[Former Member]

Duplicate removed

Edited by: Vikranth.Reddy on Jun 16, 2010 2:44 PM

[kesavadas_thekkillath]

DATA: BEGIN OF wa,

pernr TYPE persno,

END OF wa.

DATA: lv_f1(5) TYPE c.

PARAMETERS: p_pernr TYPE persno.

DATA:lv_string TYPE string.

FIELD-SYMBOLS:<fs>.

lv_f1 = 'PERNR'.

CONCATENATE 'WA-' lv_f1 INTO lv_string.

assign (lv_string) to <fs>

SELECT SINGLE (lv_f1) INTO <fs> FROM pa0001 WHERE pernr = p_pernr.

IF sy-subrc = 0.

write wa-pernr.

skip 1. "or

write <fs>.

ENDIF.