Find variable name in runtime

[adrianos_campanhola]

Hello,

I'll explain this question in 2 parts , the general idea and it's intents

I've been trying to do some dynamic coding and I still didn't manage a way to find out a variable name at runtime.

I wanted to pass the variable into a method/subroutine and find out what is the variable name along with some other properties:

  o_dynsel->add_select_option( s_matnr[] ).

Here's the idea:

While using the dynamic selection FM's (FREE_SELECTION_INIT), I wanted to map the select-options I have on screen to their corresponding fields inside the function. This can be achieved If:

1. I know the name of the select option variable and its table-field. -> So I can map it and ensure unicity.
2. I know it's contents -> to map from/to the dynamic selection screen/

Plus, I wanted to do this as generic as possible.

I could do this using a text with the variable name:

  o_dynsel->add_select_option( i_selop = 'S_MATNR'

                               i_ref_field = 'MARA-MATNR' ).

But I simply don't like it that way(plus, I can always get spelling errors! )

[Former Member]

You will only have access to actual parameter, not that format parameter.

If the variable name is not being passed, you can read the call stack , read the code where it was called, and then do string manipulation to get the variable name.

Look at this snippet where method is able to return the names select-options being passed.

1. *----------------------------------------------------------------------*
2. CLASS main DEFINITION.
3.   PUBLIC SECTION.
4.     METHODS:
5.     find_name
6.       IMPORTING selopt TYPE ANY TABLE
7.       RETURNING value(result) TYPE string.
9. ENDCLASS.                    "main DEFINITION
10. *----------------------------------------------------------------------*
11. CLASS main IMPLEMENTATION.
12.   METHOD find_name.
14.     TYPES:
15.       BEGIN OF formatted_entry,
16.               stack_depth TYPE tpda_stack_level,
17.               kind TYPE tpda_event_type,
18.               progname TYPE tpda_program,
19.               includename TYPE tpda_include,
20.               line TYPE tpda_sc_line,
21.               event TYPE tpda_event,
22.            END OF formatted_entry,
23.       formatted_entry_stack TYPE STANDARD TABLE OF formatted_entry WITH DEFAULT KEY .
25.     DATA lt_stack TYPE formatted_entry_stack.
26.     lt_stack =  cl_abap_get_call_stack=>format_call_stack_with_struct(
27.                   cl_abap_get_call_stack=>get_call_stack( )
28.                 ).
30.     DATA ls_stack TYPE formatted_entry.
31.     DATA lt_report TYPE TABLE OF string.
32.     DATA lv_report TYPE string.
33.     READ TABLE lt_stack INTO ls_stack INDEX 2.
34.     IF sy-subrc EQ 0.
35.       READ REPORT ls_stack-includename INTO lt_report.
36.       IF sy-subrc EQ 0.
37.         READ TABLE lt_report INTO lv_report INDEX ls_stack-line.
38.         IF sy-subrc EQ 0.
39.           TRANSLATE lv_report TO UPPER CASE.
40.           FIND REGEX '->FIND_NAME\W*(\w*)\W*' IN lv_report SUBMATCHES result.
41.         ENDIF.
42.       ENDIF.
43.     ENDIF.
44.   ENDMETHOD.                    "find_name
45. ENDCLASS.                    "main IMPLEMENTATION
47. TABLES mara.
48. SELECT-OPTIONS:
49.   s_matnr FOR mara-matnr,
50.   s_mtart FOR mara-mtart.
52. START-OF-SELECTION.
53.   DATA lv_name TYPE string.
54.   DATA lr_main TYPE REF TO main.
55.   CREATE OBJECT lr_main.
57.   lv_name = lr_main->find_name( s_matnr[] ).
58.   WRITE / lv_name.
59.   lv_name = lr_main->find_name( s_mtart[] ).
60.   WRITE / lv_name.

/.