{"id":1357,"date":"2015-03-23T15:49:22","date_gmt":"2015-03-23T14:49:22","guid":{"rendered":"http:\/\/oprsteny.cz\/?p=1357"},"modified":"2015-03-23T15:51:34","modified_gmt":"2015-03-23T14:51:34","slug":"abap-working-with-dynamicallly-accessed-data","status":"publish","type":"post","link":"https:\/\/oprsteny.cz\/?p=1357","title":{"rendered":"ABAP – Working with dynamicallly accessed data"},"content":{"rendered":"

\"SAP\"In this article I’d like to present different possible approaches on accessing data and working with it dynamically.<\/p>\n

Your table name is initially unknown and is determined during runtime:<\/h2>\n
DATA:\r\n* This will be global variable holding the selected \r\n* table data\r\n  lo_data      TYPE REF TO data,\r\n  lv_tabname   TYPE tabname16 DEFAULT 'MARA',\r\n  lv_component TYPE fieldname DEFAULT 'MSTAE',\r\n  lv_value     TYPE string.\r\n\r\nFIELD-SYMBOLS:\r\n* This will be used to access the table data\r\n* dynamically:\r\n  <lt_data>     TYPE ANY TABLE,    \" Table data\r\n  <ls_data_line>  TYPE ANY,        \" Table line structure  \r\n  <lv_data_field> TYPE ANY.        \" Field of the structure \r\n\r\nSTART-OF-SELECTION.\r\n* Create variable of given type dynamically \r\n  CREATE DATA lo_data TYPE TABLE OF (lv_tabname).\r\n\r\n* Assign contents of the variable to field symbol\r\n* so you can manipulate the data\r\n  ASSIGN lo_data->* TO <lt_data>.\r\n\r\n* Get data from selected table\r\n  SELECT * FROM (p_tabnam)\r\n    INTO TABLE <lt_data>.<\/pre>\n
Assign components (fields) of a structure dynamically<\/h2>\n
LOOP AT <lt_data> ASSIGNING <ls_data_line>.\r\n  ASSIGN COMPONENT p_comp \r\n    OF STRUCTURE <ls_data_line> \r\n    TO           <lv_data_field>.\r\n  CHECK sy-subrc = 0.\r\n  IF <lv_data_field> IS INITIAL.\r\n    <lv_data_field> = p_value.\r\n  ENDIF.\r\nENDLOOP.<\/pre>\n
If you need to access more components of a structure in the loop, it might be a good idea to create a MACRO definition. In that case you can modify the above code snippet as the following:<\/p>\n
DEFINE assign_value.\r\n  ASSIGN COMPONENT &1 OF STRUCTURE <ls_data_line> TO <lv_data_field>.\r\n  IF sy-subrc = 0.\r\n    <lv_data_field> = &2.\r\n  ENDIF.\r\nEND-OF-DEFINITION.\r\n\r\nLOOP AT <lt_data> ASSIGNING <ls_data_line>.\r\n  assign_value 'MSTAE' 'ZX'.\r\n  assign_value 'MHDHB' '365'.\r\n  assign_value 'KZKFG' 'X'.\r\n* ...\r\nENDLOOP.<\/pre>\n
Append fields to your ITAB during runtime<\/h2>\n
DATA:\r\n  lo_data_line  TYPE REF TO DATA,\r\n  lo_sdescr     TYPE REF TO cl_abap_structdescr,\r\n  lo_tdescr     TYPE REF TO cl_abap_tabledescr,\r\n  lt_components TYPE abap_component_tab.\r\n\r\nFIELD-SYMBOLS:\r\n  <ls_component> TYPE abap_componentdescr.\r\n\r\n* Create dynamic line of our itab\r\nASSIGN lo_data->* TO <lt_data>.\r\nCREATE DATA lo_data_line LIKE LINE OF <lt_data>.\r\n\r\n* We are creating components of the new\/updated ITAB\r\nAPPEND INITIAL LINE TO lt_components ASSIGNING <ls_component>.\r\n \r\n* We get description of the current itab\r\n<ls_component>-type ?= cl_abap_structdescr=>describe_by_data_ref( lo_data_line ).\r\n* We assign some dummy name (will not be used anyhow)\r\n<ls_component>-name = 'DATA'.\r\n \r\n* Include all fields \r\n* If 'as_include' = abap_false, then all fields of the structure\r\n* would be added in our new itab as one field of type\r\n* \"structure\" with name 'DATA'\r\n<ls_component>-as_include = abap_true.\r\n \r\n* Now we're adding new component of type\r\n* LVC_T_SCOL - Internal table\r\nAPPEND INITIAL LINE TO lt_components ASSIGNING <ls_component>.\r\n<ls_component>-type ?= cl_abap_structdescr=>describe_by_data( l_lvc_t_scol ).\r\n<ls_component>-name = 'CELL_COLORS'.\r\n \r\n* We create reference to a line description of the new itab\r\nlo_sdescr = cl_abap_structdescr=>create( lt_components ).\r\n* ...we create reference to the new ITAB description\r\nlo_tdescr = cl_abap_tabledescr=>create( lo_sdescr ).\r\n \r\n* Finally we create our new ITAB, where\r\n* 1. all fields from fieldcat are included\r\n* 2. New field of type LCV_T_SCOL is appended\r\nCREATE DATA lo_data TYPE HANDLE lo_tdescr.<\/pre>\n
Call FORMs of other programs<\/h2>\n
Let’s assume you have a report called Z_REPORT and you want to call its FORM get_data<\/em> which e.g. reads data from VBEP.<\/p>\n
PERFORM get_data(Z_REPORT).<\/pre>\n
Access variables from other programs<\/h2>\n
Your previous call caused required data to be loaded but the data is available in the Z_REPORT’s global variable ‘gt_vbep’ only – how to access it?<\/p>\n
DATA:\r\n  lv_variable(40) TYPE c.\r\n\r\nFIELD-SYMBOLS:\r\n  <lt_vbep> TYPE TABLE OF vbep,\r\n  <ls_vbep> TYPE VBEP.\r\n\r\nlv_variable = \u2018(Z_REPORT)gt_vbep\u2019.\r\nASSIGN (lv_variable) TO <lt_vbep>.\r\n\r\nLOOP AT <lt_vbep> ASSIGNING <ls_vbep>.\r\n  <ls_vbep>-TDUHR = \u2018235959\u2019.\r\nENDLOOP.<\/pre>\n","protected":false},"excerpt":{"rendered":"
In this article I’d like to present different possible approaches on accessing data and working with it dynamically.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"ABAP - Working with dynamicallly accessed data","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[16,15,9],"tags":[216,215,213,214,179,221],"class_list":["post-1357","post","type-post","status-publish","format-standard","hentry","category-abap","category-algorithms","category-development","tag-abap_componentdescr","tag-abap_component_tab","tag-cl_abap_structdescr","tag-cl_abap_tabledescr","tag-dynamic-programming","tag-oo-abap"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3nYbe-lT","jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1357","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1357"}],"version-history":[{"count":4,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1357\/revisions"}],"predecessor-version":[{"id":1361,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/1357\/revisions\/1361"}],"wp:attachment":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1357"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1357"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1357"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}