Выгрузка основных данных признака BW (вместе с атрибутами) для PCM

Программа описанная ниже, позволяет выгрузить в XML или ODS (с предварительной выгрузкой в промежуточную таблицу), основные данные признака BW вместе с данными его атрибутов, в формате готовом для загрузки в XML.

Структура для выгрузки в PCM
Структура для выгрузки в PCM
Транзакция для редактирования Simple transformation STRANS

Используемая трансформация в программе ZID

  1. <xsl:transform version="1.0"
  2.   xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform"
  3. >
  4. <xsl:template">http://www.w3.org/1999/XSL/Transform"
  5. >
  6. <xsl:template</a> match="/">
  7.   <xsl:copy-of select="."/>
  8. </xsl:template>
  9. </xsl:transform>

Полный текст программы:

  1. *&---------------------------------------------------------------------*
  2. *& Report  ZZXMLTST2TEST
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8. REPORT  ZZXMLTST2TEST.
  9.  
  10. TYPE-POOLS : abap.
  11.  
  12. data atrvsel(32).
  13. data atrvstr(64).
  14. data target2(32).
  15. data saveindex like sy-index.
  16. data: temptab LIKE ZPARENTCHILD.
  17.  
  18. SELECTION-SCREEN BEGIN OF BLOCK rad1
  19.   WITH FRAME TITLE  text-001.
  20. PARAMETERS: p_table(30) obligatory, " признак содержащий основные данные
  21.             target(32) lower case obligatory, " наименование целевого измерения в PCM
  22.             model(32) lower case obligatory DEFAULT 'Test 2'. " Наименование целевой модели PCM
  23. SELECT-OPTIONS atrvs for atrvsel. " атрибуты признака подлежащие выгрузке в PCM
  24. SELECTION-SCREEN END OF BLOCK rad1.
  25.  
  26. SELECTION-SCREEN BEGIN OF BLOCK rad2
  27.   WITH FRAME TITLE  text-002.
  28. PARAMETERS: Diskname(3) obligatory DEFAULT 'C:/',path(255) lower case obligatory DEFAULT 'pcm.xml'. " путь выгрузки файла
  29. PARAMETERS: odss AS CHECKBOX. "  выгружать в ОДС
  30. PARAMETERS: cleartab AS CHECKBOX. " очистка временных таблиц (файла)
  31. SELECTION-SCREEN END OF BLOCK rad2.
  32. *-------------- DATA
  33. DATA : ParentChildRecord type TABLE OF ZPARENTCHILDRECORD WITH HEADER LINE. " таблица со структурой для выгрузки в PCM
  34. DATA : ParentChildRecord2 type TABLE OF ZPARENTCHILDRECORD WITH HEADER LINE.
  35. DATA : ParentChildRecord3 type TABLE OF ZPARENTCHILDRECORD WITH HEADER LINE.
  36. DATA : fieldlist type TABLE OF ZFIELDLIST WITH HEADER LINE.
  37. DATA : chartlist type TABLE OF ZFIELDLIST WITH HEADER LINE.
  38. data: fullpath type string.
  39.  
  40. CONCATENATE Diskname path INTO fullpath. " полный путь до файла на PS
  41.  
  42. * так как структура таблиц с основными данными признаков
  43. * может быть разной, для унификации доступа определим динамические таблицы
  44. * через FIELD-SYMBOLS
  45. * field symbols to access the dynamic table
  46. FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE, " таблица
  47.              <dyn_wa>, " рабочай область
  48.              <dyn_field>, " поле
  49.              <dyn_field2>. " поле 2
  50. DATA: dy_table TYPE REF TO data, " для построяния динамической структуры
  51.     dy_line  TYPE REF TO data,
  52.     xfc TYPE lvc_s_fcat,
  53.     ifc TYPE lvc_t_fcat.
  54.  
  55. * additional data
  56. data: charname(30).
  57. charname = p_table.
  58. REPLACE ALL OCCURRENCES OF '/M'
  59. IN charname WITH '/'.
  60.  
  61.  
  62. DATA : BEGIN OF itab OCCURS 0,
  63. a(100) TYPE c,
  64. END OF itab.
  65.  
  66. DATA: xml_out TYPE string, " для вывода в XML
  67.       formstring type string,
  68.       tststrv type string.
  69.  
  70.  
  71. DATA : BEGIN OF upl OCCURS 0,
  72. f(255) TYPE c,
  73. END OF upl.
  74. DATA: xmlupl TYPE string .
  75.  
  76.  
  77. *------------------ Fetch Data
  78.  
  79. START-OF-SELECTION.
  80. *******Creates a dynamic internal table*********
  81.   PERFORM get_structure. " создать структуры таблицы
  82.   PERFORM create_dynamic_itab. " создать таблицу
  83.  
  84.  
  85. * получаем список атрибутов:
  86. loop at atrvs.
  87.   fieldlist-name = atrvs-low.
  88.   append fieldlist.
  89.   ENDLOOP.
  90. * get data
  91.   PERFORM get_data.
  92. * PERFORM write_out TABLES fieldlist.
  93. data: cter2(4).
  94. * stage 1 - get char values
  95.    LOOP AT <dyn_table> INTO <dyn_wa>.
  96.       ASSIGN COMPONENT charname " сами значения признака
  97.          OF STRUCTURE <dyn_wa> TO <dyn_field>.
  98.       IF sy-subrc <> 0.
  99.         EXIT.
  100.       ENDIF.
  101.  
  102. *      cter2 = <dyn_field>+0(4).
  103. *      if cter2 eq '0000'.
  104. *        SHIFT <dyn_field> LEFT DELETING LEADING '0'.
  105. *        ENDIF.
  106.        "WRITE: <dyn_field>.
  107.       ParentChildRecord-DimensionName = target.
  108.       ParentChildRecord-ParentName = target.
  109.       ParentChildRecord-ChildName = <dyn_field>.
  110.       ParentChildRecord-AttributeFlag = '8'.
  111.       ParentChildRecord-ConsolidationType = '+'.
  112.        APPEND ParentChildRecord.
  113.       chartlist-name = <dyn_field>. " формируем список значений атрибутов как отдельный лист
  114.       APPEND chartlist.
  115.   ENDLOOP.
  116. * stage 2 - FORMING ATTRIBUTES
  117. target2 = target.
  118. shift target2 by 1 places. " Отрежем справа один символ
  119. CONCATENATE target 'Attributes' into atrvstr SEPARATED BY space. " сформируем строку
  120.   LOOP AT fieldlist. " список атрибутов
  121.       ParentChildRecord-DimensionName = target.
  122.       ParentChildRecord-ParentName = atrvstr.
  123.       ParentChildRecord-ChildName = fieldlist-name.
  124.       ParentChildRecord-AttributeFlag = '15'.
  125.       ParentChildRecord-ConsolidationType = 'OR'.
  126.       APPEND ParentChildRecord.
  127.   ENDLOOP.
  128. * stage 3 - atributes values
  129.    LOOP AT fieldlist. " список атрибутов
  130.   LOOP AT <dyn_table> INTO <dyn_wa>.
  131.       ASSIGN COMPONENT fieldlist-name " сами значения признака
  132.          OF STRUCTURE <dyn_wa> TO <dyn_field>.
  133.       IF sy-subrc <> 0.
  134.         EXIT.
  135.       ENDIF.
  136.        "WRITE: <dyn_field>.
  137.       ParentChildRecord-DimensionName = target.
  138.       ParentChildRecord-ParentName = fieldlist-name.
  139.       ParentChildRecord-ChildName = <dyn_field>.
  140.       ParentChildRecord-AttributeFlag = '15'.
  141.       ParentChildRecord-ConsolidationType = '+'.
  142.       APPEND ParentChildRecord.
  143.   ENDLOOP.
  144.    ENDLOOP.
  145.  
  146. LOOP at ParentChildRecord.
  147. COLLECT ParentChildRecord INTO ParentChildRecord2.
  148. ENDLOOP.
  149. DELETE ParentChildRecord2 WHERE ChildName is INITIAL.
  150.  
  151.  
  152. * stage 4 - atributes values mapping
  153.  
  154. LOOP AT chartlist. " список значений признака
  155. LOOP AT fieldlist. " список атрибутов
  156.  
  157. LOOP AT <dyn_table> INTO <dyn_wa>.
  158.  
  159.   ASSIGN COMPONENT charname " сами значения признака
  160.          OF STRUCTURE <dyn_wa> TO <dyn_field2>.
  161.       IF sy-subrc <> 0.
  162.         EXIT.
  163.       ENDIF.
  164.       if <dyn_field2> eq chartlist-name.
  165.       ASSIGN COMPONENT fieldlist-name " сами значения признака
  166.          OF STRUCTURE <dyn_wa> TO <dyn_field>.
  167.       IF sy-subrc <> 0.
  168.         EXIT.
  169.       ENDIF.
  170.       ParentChildRecord2-DimensionName = target.
  171.       ParentChildRecord2-ParentName = <dyn_field>.
  172.       ParentChildRecord2-ChildName = chartlist-name.
  173.       ParentChildRecord2-AttributeFlag = '12'.
  174.       ParentChildRecord2-ConsolidationType = '+'.
  175.       APPEND ParentChildRecord2.
  176.       ENDIF.
  177.  
  178.   ENDLOOP.
  179.  
  180.  
  181. ENDLOOP.
  182. ENDLOOP.
  183. DELETE ParentChildRecord2 WHERE ParentName is INITIAL.
  184.  
  185. if odss is INITIAL or odss eq ''.
  186.  
  187. *XML formig
  188.  
  189. *------------------- XML
  190. CALL TRANSFORMATION ('ZID')
  191. SOURCE Action = ParentChildRecord2[]
  192. RESULT XML xml_out.
  193.  
  194. *------------------- EDIT XML
  195. CONCATENATE '<PPAData><Build>10.0.2.313</Build><Model>' model '</Model><Action Type="Update">'
  196. into formstring.
  197.  
  198. REPLACE ALL OCCURRENCES OF '<asx:abap xmlns:asx="<a href="http://www.sap.com/abapxml"">http://www.sap.com/abapxml"</a> version="1.0"><asx:values><ACTION>'
  199. IN xml_out WITH formstring.
  200.  
  201. REPLACE ALL OCCURRENCES OF '</ACTION></asx:values></asx:abap>'
  202. IN xml_out WITH '</Action></PPAData>'.
  203.  
  204. REPLACE ALL OCCURRENCES OF 'ZPARENTCHILDRECORD'
  205. IN xml_out WITH 'ParentChildRecord'.
  206.  
  207. REPLACE ALL OCCURRENCES OF 'CONSOLIDATIONTYPE'
  208. IN xml_out WITH 'ConsolidationType'.
  209.  
  210. REPLACE ALL OCCURRENCES OF 'PARENTNAME'
  211. IN xml_out WITH 'ParentName'.
  212. REPLACE ALL OCCURRENCES OF 'CHILDNAME'
  213. IN xml_out WITH 'ChildName'.
  214. REPLACE ALL OCCURRENCES OF 'ATTRIBUTEFLAG'
  215. IN xml_out WITH 'AttributeFlag'.
  216.  
  217. REPLACE ALL OCCURRENCES OF 'DIMENSIONNAME'
  218. IN xml_out WITH 'DimensionName'.
  219.  
  220.  
  221. *------------- Convert to TABLE
  222.  
  223. CALL FUNCTION 'Z_EFI_CONVERT_STRING_TO_TABLE'
  224. EXPORTING
  225. i_string = xml_out
  226. i_tabline_length = 100
  227. TABLES
  228. et_table = itab.
  229.  
  230. *-------------- Download
  231.  
  232. CALL FUNCTION 'GUI_DOWNLOAD'
  233. EXPORTING
  234. filetype = 'BIN'
  235. filename = fullpath
  236. TABLES
  237. data_tab = itab.
  238. ELSEIF odss eq 'X'.
  239.  
  240.   if cleartab eq 'X'.
  241. EXEC SQL.
  242.      TRUNCATE TABLE "ZPARENTCHILD"
  243. ENDEXEC.
  244.     endif.
  245.   LOOP at ParentChildRecord2.
  246.     temptab-DIMENTIONNAME = ParentChildRecord2-DimensionName.
  247.     temptab-PARENTNAME = ParentChildRecord2-ParentName.
  248.     temptab-CHILDNAME = ParentChildRecord2-ChildName.
  249.     temptab-ATTRIBUTEFLAG = ParentChildRecord2-AttributeFlag.
  250.     temptab-CONSOLIDATIONTYP =  ParentChildRecord2-ConsolidationType.
  251.  
  252.     insert ZPARENTCHILD from temptab.
  253.     ENDLOOP.
  254.   ENDIF.
  255. ******FORMES
  256. *write 'hello'.
  257.  
  258. *&---------------------------------------------------------------------*
  259. *&      Form  get_structure
  260. *&---------------------------------------------------------------------*
  261. FORM get_structure.
  262.   DATA : idetails TYPE abap_compdescr_tab,
  263.        xdetails TYPE abap_compdescr.
  264.   DATA : ref_table_des TYPE REF TO cl_abap_structdescr.
  265. * Get the structure of the table.
  266.   ref_table_des ?=
  267.       cl_abap_typedescr=>describe_by_name( p_table ).
  268.   idetails[] = ref_table_des->components[].
  269.   LOOP AT idetails INTO xdetails.
  270.     CLEAR xfc.
  271.     xfc-fieldname = xdetails-name .
  272. * Correction by Paul Robert Oct 28, 2009 17:04
  273. *    xfc-datatype = xdetails-type_kind.
  274.     CASE xdetails-type_kind.
  275.       WHEN 'C'.
  276.         xfc-datatype = 'CHAR'.
  277.       WHEN 'N'.
  278.         xfc-datatype = 'NUMC'.
  279.       WHEN 'D'.
  280.         xfc-datatype = 'DATE'.
  281.       WHEN 'P'.
  282.         xfc-datatype = 'PACK'.
  283.       WHEN OTHERS.
  284.         xfc-datatype = xdetails-type_kind.
  285.     ENDCASE.
  286.     xfc-inttype = xdetails-type_kind.
  287.     xfc-intlen = xdetails-length.
  288.     xfc-decimals = xdetails-decimals.
  289.     APPEND xfc TO ifc.
  290.   ENDLOOP.
  291. ENDFORM.                    "get_structure
  292. *&---------------------------------------------------------------------*
  293. *&      Form  create_dynamic_itab
  294. *&---------------------------------------------------------------------*
  295. FORM create_dynamic_itab.
  296. * Create dynamic internal table and assign to FS
  297.   CALL METHOD cl_alv_table_create=>create_dynamic_table
  298.     EXPORTING
  299.       it_fieldcatalog  = ifc
  300.       i_length_in_byte = 'X' "added by Paul Robert Oct 28, 2009 17:04
  301.     IMPORTING
  302.       ep_table         = dy_table.
  303.   ASSIGN dy_table->* TO <dyn_table>.
  304. * Create dynamic work area and assign to FS
  305.   CREATE DATA dy_line LIKE LINE OF <dyn_table>.
  306.   ASSIGN dy_line->* TO <dyn_wa>.
  307. ENDFORM.                    "create_dynamic_itab
  308.  
  309. *&---------------------------------------------------------------------*
  310. *&      Form  get_data
  311. *&---------------------------------------------------------------------*
  312. FORM get_data.
  313. * Select Data from table.
  314.   SELECT * INTO TABLE <dyn_table>
  315.              FROM (p_table).
  316. ENDFORM.                    "get_data
  317.  
  318. *&---------------------------------------------------------------------*
  319. *&      Form  write_out
  320. *&---------------------------------------------------------------------*
  321. *FORM write_out TABLES fieldlist.
  322. *  LOOP AT <dyn_table> INTO <dyn_wa>.
  323. *  "  DO.
  324. *      ASSIGN COMPONENT 'fieldlist-name'
  325. *         OF STRUCTURE <dyn_wa> TO <dyn_field>.
  326. *      IF sy-subrc <> 0.
  327. *        EXIT.
  328. *      ENDIF.
  329. *        WRITE: <dyn_field>.
  330. *
  331. *   " ENDDO.
  332. *  ENDLOOP.
  333. *ENDFORM.                    "write_out
NX     SAPBW.ru