{"id":286,"date":"2013-03-18T11:01:46","date_gmt":"2013-03-18T10:01:46","guid":{"rendered":"http:\/\/oprsteny.cz\/?p=286"},"modified":"2013-04-17T19:38:55","modified_gmt":"2013-04-17T18:38:55","slug":"sap-how-to-create-data-source-based-on-infoset","status":"publish","type":"post","link":"https:\/\/oprsteny.cz\/?p=286","title":{"rendered":"SAP: How to create Data Source based on InfoSet"},"content":{"rendered":"

\"SAP\"If you want to create a new datasource based on InfoSet where data is retrieved by your own Z-program, then walk through this tutorial and use it as an example or guide during creation of your own data source.<\/p>\n

Go to SE11 and create new structure with fields you would like to have in the data source
\n\"Structure<\/a><\/p>\n

Go to SE38 and create new Cutomer executable program<\/p>\n

REPORT  zis_incmd_data .\r\n*\r\n*---------------------------------------------------------------------*\r\n*   declarations\r\n*   (insert your declarations in this section)\r\n*---------------------------------------------------------------------*\r\nDATA:\r\n  zds_incmd_data                 TYPE zds_incmd_data,\r\n  it_data TYPE STANDARD TABLE OF zds_incmd_data.\r\n\r\nDATA:\r\n  lt_prod TYPE TABLE OF \/incmd\/bapiproductintrange,\r\n  lt_loc TYPE TABLE OF \/incmd\/bapilocationintrange,\r\n  lt_header TYPE TABLE OF \/incmd\/bapigrphdr02,\r\n  lt_header_text TYPE TABLE OF \/incmd\/bapigrphdrtext02,\r\n  l_header_text TYPE \/incmd\/bapigrphdrtext02,\r\n  lt_items TYPE TABLE OF \/incmd\/bapigrpitem02,\r\n  lt_add_info TYPE TABLE OF \/incmd\/bapigrpaddinfotext02,\r\n  lt_group_models TYPE TABLE OF \/incmd\/bapigrpmodel02,\r\n  lt_grp_loc TYPE TABLE OF \/incmd\/bapigrplocassign02,\r\n  l_grp_loc TYPE \/incmd\/bapigrplocassign02,\r\n  lt_return TYPE TABLE OF bapiret2,\r\n  lt_fixvalues TYPE ddfixvalues,\r\n  ls_fixvalue  TYPE ddfixvalue,\r\n  ls_data    TYPE zds_incmd_data.\r\n\r\nFIELD-SYMBOLS: <fs_data> TYPE zds_incmd_data,\r\n               <fs_prod> TYPE \/incmd\/bapiproductintrange,\r\n               <fs_loc> TYPE \/incmd\/bapilocationintrange,\r\n               <fs_add_info> TYPE \/incmd\/bapigrpaddinfotext02,\r\n               <fs_return> TYPE bapiret2,\r\n               <fs_header> TYPE \/incmd\/bapigrphdr02,\r\n               <fs_item> TYPE \/incmd\/bapigrpitem02,\r\n               <fs_addinfo> TYPE \/incmd\/bapigrpaddinfotext02,\r\n               <fs_group_model> TYPE \/incmd\/bapigrpmodel02.\r\n\r\n*-------------------------------------------------------------------*\r\n*   selection screen statements\r\n*-------------------------------------------------------------------*\r\n*   (define your selection-screen here)\r\n\r\n* !! the following comment MUST NOT BE CHANGED !!\r\n*<QUERY_HEAD>\r\n\r\n*-------------------------------------------------------------------*\r\n*   read data into IT_DATA\r\n*-------------------------------------------------------------------*\r\n*  (select your data here into internal table IT_DATA)\r\n\r\nAPPEND INITIAL LINE TO lt_prod ASSIGNING <fs_prod>.\r\n<fs_prod>-sign = 'I'.\r\n<fs_prod>-option = 'BT'.\r\n<fs_prod>-low =  '000000000000000000'.\r\n<fs_prod>-high = '999999999999999999'.\r\n\r\nLOOP AT lt_prod ASSIGNING <fs_prod>.\r\n  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'\r\n    EXPORTING\r\n      input  = <fs_prod>-low\r\n    IMPORTING\r\n      output = <fs_prod>-low.\r\n\r\n  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'\r\n    EXPORTING\r\n      input  = <fs_prod>-high\r\n    IMPORTING\r\n      output = <fs_prod>-high.\r\nENDLOOP.\r\n\r\nAPPEND INITIAL LINE TO lt_loc ASSIGNING <fs_loc>.\r\n<fs_loc>-sign = 'I'.\r\n<fs_loc>-option = 'BT'.\r\n<fs_loc>-low =  '0000'.\r\n<fs_loc>-high = '9999'.\r\n\r\nCALL FUNCTION '\/INCMD\/BAPI_GROUP_GETLIST'\r\n  TABLES\r\n    product_int_selection      = lt_prod\r\n    location_int_selection     = lt_loc\r\n    group_header_data          = lt_header\r\n    group_header_text_data     = lt_header_text\r\n    group_item_data            = lt_items\r\n    group_add_info_text_data   = lt_add_info\r\n    group_location_assign_data = lt_grp_loc\r\n    group_models_data          = lt_group_models\r\n    return                     = lt_return.\r\n\r\nREAD TABLE lt_return ASSIGNING <fs_return> WITH KEY type = 'E' .\r\nIF sy-subrc = 0.\r\n  MESSAGE ID <fs_return>-id\r\n    TYPE 'E'\r\n    NUMBER <fs_return>-number\r\n    WITH <fs_return>-message_v1\r\n         <fs_return>-message_v2\r\n         <fs_return>-message_v3\r\n         <fs_return>-message_v4.\r\nELSE.\r\n  LOOP AT lt_header ASSIGNING <fs_header>.\r\n    CLEAR l_header_text.\r\n    READ TABLE lt_header_text\r\n      INTO l_header_text\r\n      WITH KEY group_number = <fs_header>-group_number\r\n               language     = sy-langu.\r\n\r\n    CLEAR l_grp_loc.\r\n    READ TABLE lt_grp_loc\r\n      INTO l_grp_loc\r\n      WITH KEY group_number = <fs_header>-group_number.\r\n\r\n    READ TABLE lt_group_models TRANSPORTING NO FIELDS WITH KEY group_number = <fs_header>-group_number.\r\n    IF sy-subrc <> 0.\r\n      APPEND INITIAL LINE TO lt_group_models ASSIGNING <fs_group_model>.\r\n      <fs_group_model>-group_number = <fs_header>-group_number.\r\n    ENDIF.\r\n    LOOP AT lt_group_models ASSIGNING <fs_group_model> WHERE group_number = <fs_header>-group_number.\r\n      LOOP AT lt_items ASSIGNING <fs_item> WHERE group_number = <fs_header>-group_number.\r\n        APPEND INITIAL LINE TO it_data ASSIGNING <fs_data>.\r\n        <fs_data>-model = <fs_group_model>-model.\r\n        <fs_data>-icno = <fs_item>-group_number.\r\n        <fs_data>-icdesc = l_header_text-group_description.\r\n        <fs_data>-item_no = <fs_item>-item_number.\r\n        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'\r\n          EXPORTING\r\n            input  = <fs_item>-preceding_productid_int\r\n          IMPORTING\r\n            output = <fs_data>-preceding_productid_int.\r\n\r\n        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'\r\n          EXPORTING\r\n            input  = <fs_item>-succeeding_productid_int\r\n          IMPORTING\r\n            output = <fs_data>-succeeding_productid_int.\r\n\r\n        READ TABLE lt_add_info ASSIGNING <fs_add_info>\r\n          WITH KEY group_number = <fs_item>-group_number\r\n                   item_number  = <fs_item>-item_number.\r\n        IF sy-subrc = 0.\r\n          <fs_data>-freetext = <fs_add_info>-additional_information.\r\n        ENDIF.\r\n\r\n        <fs_data>-datefr = <fs_item>-valid_from_date.\r\n        <fs_data>-istat = <fs_header>-status.\r\n        <fs_data>-reltype = <fs_item>-direction_of_interchange.\r\n        <fs_data>-reptype = <fs_item>-replacement_type.\r\n        <fs_data>-useupflg = <fs_item>-useup_strategy.\r\n        <fs_data>-denquant = <fs_item>-preceding_quantity_factor.\r\n        <fs_data>-numquant = <fs_item>-succeeding_quantity_factor.\r\n        CASE <fs_header>-group_type.\r\n          WHEN '1'.  \" Product-Product\r\n            <fs_data>-preceding_location = l_grp_loc-location.\r\n            <fs_data>-succeeding_location = l_grp_loc-location.\r\n          WHEN '8'.  \" Location product-Location product\r\n            <fs_data>-preceding_location = <fs_item>-preceding_location.\r\n            <fs_data>-succeeding_location = <fs_item>-succeeding_location.\r\n        ENDCASE.\r\n      ENDLOOP.\r\n    ENDLOOP.\r\n  ENDLOOP.\r\n  SORT it_data BY model icno item_no.\r\n\r\n* Update ISTAT \/ STATUS\r\n    CLEAR lt_fixvalues.\r\n    CALL FUNCTION 'DDIF_FIELDINFO_GET'\r\n      EXPORTING\r\n        tabname        = '\/INCMD\/LKUP'\r\n        fieldname      = 'ISTAT'\r\n        langu          = sy-langu\r\n        lfieldname     = 'ISTAT'\r\n      TABLES\r\n        fixed_values   = lt_fixvalues\r\n      EXCEPTIONS\r\n        not_found      = 1\r\n        internal_error = 2\r\n        OTHERS         = 3.\r\n    IF sy-subrc <> 0.\r\n*     Error in system\r\n    ENDIF.\r\n\r\n    LOOP AT it_data ASSIGNING <fs_data>.\r\n      CHECK <fs_data>-status IS INITIAL.\r\n\r\n      READ TABLE lt_fixvalues INTO ls_fixvalue WITH KEY low = <fs_data>-istat.\r\n      IF sy-subrc = 0.\r\n        CLEAR ls_data.\r\n        ls_data-istat = <fs_data>-istat.\r\n        ls_data-status = ls_fixvalue-ddtext.\r\n        MODIFY it_data FROM ls_data TRANSPORTING status WHERE istat = ls_data-istat.\r\n      ENDIF.\r\n    ENDLOOP.\r\nENDIF.\r\n\r\n*------------------------------------------------------------*\r\n*   output of the data\r\n*   (this section can be left unchanged)\r\n*------------------------------------------------------------*\r\nLOOP AT it_data ASSIGNING <fs_data>.\r\n  MOVE-CORRESPONDING <fs_data> TO zds_incmd_data                .\r\n* !! the following comment MUST NOT BE CHANGED !!\r\n*<QUERY_BODY>\r\nENDLOOP.<\/pre>\n
Please note the commented lines with *<QUERY_HEAD> and *<QUERY_BODY>. These lines MUST NOT BE DELETED and must be present in the program. These are considered as markup tags used by the info set.<\/p>\n
This program can also be incorporated into the query itself but its further maintenance is a bit of pain so I prefer to have the query and program for data retrieval separated.<\/p>\n
Now go to SQ02 and create new query. Enter a name for the query and select radio “Data retrieval by program” where you enter your “Data structure” and you select that you want to use “External program” where you enter the name of your data retrieval program that you created at beginning of this article.
\n\"Infoset<\/a><\/p>\n
After saving the new infoset, press the Generate button.
\n\"Infoset<\/a><\/p>\n
Infoset can be tested in transaction SQ01 but before this you need to assign your infoset to some user group (Menu – Environment – user Groups, section User group assignment). If you have assigned your infoset to a group you can go back to SQ01 and press the “InfoSet Query” button where you select your infoset.
\n\"Testing<\/a>
\nIn the displayed window you can play with data selection and retrieval. If you have written the data retrieval program correctly you’ll see some results.
\n\"Infoset<\/a><\/p>\n
Now go to transaction RSO2 where you create a new datasource with data “Extraction from Query” where you enter the name of your new query.
\n\"Creation<\/a>
\nPress SAVE and define which fields will be available for selection and which of them will be visible.
\n\"New<\/a>
\nPress SAVE again and your data source should be created.<\/p>\n
You can test the functionality using transaction RSA3 where you enter the name of your new datasource and press F8 (Extraction). If everything goes well a popup with number of retrieved items is displayed together with buttons “ALV Grid”, “List” and “Log” where you can view the selected results.
\n\"Testing<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
If you want to create a new datasource based on InfoSet where data is retrieved by your own Z-program, then walk through this tutorial and use it as an example or guide during creation of your own data source.<\/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":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[16,9],"tags":[446,64,55,63,65,17],"class_list":["post-286","post","type-post","status-publish","format-standard","hentry","category-abap","category-development","tag-abap","tag-data-source","tag-development-2","tag-infoset","tag-interchangeability-groups","tag-sap"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3nYbe-4C","jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/286","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=286"}],"version-history":[{"count":3,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/286\/revisions"}],"predecessor-version":[{"id":460,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/286\/revisions\/460"}],"wp:attachment":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=286"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=286"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=286"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}