{"id":385,"date":"2010-02-22T11:47:24","date_gmt":"2010-02-22T09:47:24","guid":{"rendered":"http:\/\/www.karadere.com\/blog\/?p=385"},"modified":"2010-02-22T11:47:24","modified_gmt":"2010-02-22T09:47:24","slug":"internal-table-export-convert-to-xml-file","status":"publish","type":"post","link":"https:\/\/www.karadere.com\/blog\/internal-table-export-convert-to-xml-file.html","title":{"rendered":"Internal Table export (convert) to XML file"},"content":{"rendered":"

\"sap-abap-logo\"<\/p>\n

\u00a0<\/p>\n

\u00a0<\/p>\n

\u00a0<\/p>\n

\u00a0
\n* Report ZPRUEBA_MML_13 *
\n* Export an internal table to XML document *
\n* NO BORRAR ESTE CODIGO *<\/p>\n

\u00a0<\/p>\n

REPORT ZPRUEBA_MML_13.
\n* PANTALLA SELECCION *
\n\u00a0\u00a0\u00a0 PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.
\n* PANTALLA SELECCION *<\/p>\n

* TYPE TURNOS *
\nTYPES: BEGIN OF TURNOS,
\n\u00a0\u00a0\u00a0 LU LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 MA LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 MI LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 JU LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 VI LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 SA LIKE T552A-TPR01,
\n\u00a0\u00a0\u00a0 DO LIKE T552A-TPR01,
\nEND OF TURNOS.
\n* TYPE TURNOS *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* TYPE SOCIO *
\nTYPES: BEGIN OF SOCIO,
\n\u00a0\u00a0\u00a0 NUMERO LIKE PERNR-PERNR,
\n\u00a0\u00a0\u00a0 REPOSICION LIKE PA0050-ZAUVE,
\n\u00a0\u00a0\u00a0 NOMBRE LIKE PA0002-VORNA,
\n\u00a0\u00a0\u00a0 TURNOS TYPE TURNOS,
\nEND OF SOCIO.
\n* TYPE SOCIO *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* ESTRUCTURA ACCESOS *
\nDATA: BEGIN OF ACCESOS OCCURS 0,
\n\u00a0\u00a0\u00a0 SOCIO TYPE SOCIO,
\nEND OF ACCESOS.
\n* ESTRUCTURA ACCESOS *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* START OF SELECTION *
\nSTART-OF-SELECTION.
\n\u00a0\u00a0\u00a0 PERFORM LLENA_ACCESOS.
\n\u00a0\u00a0\u00a0 PERFORM DESCARGA_XML.
\nEND-OF-SELECTION.
\n* END OF SELECTION *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* FORM LLENA_ACCESOS *
\nFORM LLENA_ACCESOS.
\nREFRESH ACCESOS.
\nCLEAR ACCESOS.
\nMOVE: ‘45050’ TO ACCESOS-SOCIO-NUMERO,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘MOISES MORENO’ TO ACCESOS-SOCIO-NOMBRE,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘0’ TO ACCESOS-SOCIO-REPOSICION,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T1’ TO ACCESOS-SOCIO-TURNOS-LU,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T2’ TO ACCESOS-SOCIO-TURNOS-MA,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T3’ TO ACCESOS-SOCIO-TURNOS-MI,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T4’ TO ACCESOS-SOCIO-TURNOS-JU,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T5’ TO ACCESOS-SOCIO-TURNOS-VI,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T6’ TO ACCESOS-SOCIO-TURNOS-SA,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T7’ TO ACCESOS-SOCIO-TURNOS-DO.
\nAPPEND ACCESOS.
\nCLEAR ACCESOS.
\nMOVE: ‘45051’ TO ACCESOS-SOCIO-NUMERO,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘RUTH PE\ufffdA’ TO ACCESOS-SOCIO-NOMBRE,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘0’ TO ACCESOS-SOCIO-REPOSICION,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T1’ TO ACCESOS-SOCIO-TURNOS-LU,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T2’ TO ACCESOS-SOCIO-TURNOS-MA,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T3’ TO ACCESOS-SOCIO-TURNOS-MI,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T4’ TO ACCESOS-SOCIO-TURNOS-JU,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T5’ TO ACCESOS-SOCIO-TURNOS-VI,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T6’ TO ACCESOS-SOCIO-TURNOS-SA,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ‘T7’ TO ACCESOS-SOCIO-TURNOS-DO.
\nAPPEND ACCESOS.
\nENDFORM.
\n* FORM LLENA_ACCESOS *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* FORM DESCARGA_XML *
\nFORM DESCARGA_XML.
\nDATA: L_DOM TYPE REF TO IF_IXML_ELEMENT,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 M_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 G_IXML TYPE REF TO IF_IXML,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_STRING TYPE XSTRING,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_SIZE TYPE I,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_RESULT TYPE I,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_LINE TYPE STRING,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 IT_XML TYPE DCXMLLINES,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 S_XML LIKE LINE OF IT_XML,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_RC LIKE SY-SUBRC.<\/p>\n

DATA: XML TYPE DCXMLLINES.
\nDATA: RC TYPE SY-SUBRC,
\nBEGIN OF XML_TAB OCCURS 0,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 D LIKE LINE OF XML,
\nEND OF XML_TAB.<\/p>\n

CLASS CL_IXML DEFINITION LOAD.
\nG_IXML = CL_IXML=>CREATE( ).
\nCHECK NOT G_IXML IS INITIAL.
\nM_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).
\nCHECK NOT M_DOCUMENT IS INITIAL.
\nWRITE: \/ ‘Converting DATA TO DOM 1:’.
\nCALL FUNCTION ‘SDIXML_DATA_TO_DOM’
\nEXPORTING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 NAME = ‘ACCESOS’
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DATAOBJECT = ACCESOS[]
\nIMPORTING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DATA_AS_DOM = L_DOM
\nCHANGING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DOCUMENT = M_DOCUMENT
\nEXCEPTIONS
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ILLEGAL_NAME = 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 OTHERS = 2.
\nIF SY-SUBRC = 0.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE ‘Ok’.
\nELSE.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE: ‘Err =’,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SY-SUBRC.
\nENDIF.
\nCHECK NOT L_DOM IS INITIAL.
\nW_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).
\nIF W_RC IS INITIAL.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE ‘Ok’.
\nELSE.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE: ‘Err =’,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 W_RC.
\nENDIF.
\nCALL FUNCTION ‘SDIXML_DOM_TO_XML’
\nEXPORTING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DOCUMENT = M_DOCUMENT
\nIMPORTING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 XML_AS_STRING = W_STRING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SIZE = W_SIZE
\nTABLES
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 XML_AS_TABLE = IT_XML
\nEXCEPTIONS
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 NO_DOCUMENT = 1
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 OTHERS = 2.
\nIF SY-SUBRC = 0.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE ‘Ok’.
\nELSE.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WRITE: ‘Err =’,
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 SY-SUBRC.
\nENDIF.
\nLOOP AT IT_XML INTO XML_TAB-D.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 APPEND XML_TAB.
\nENDLOOP.
\nCALL FUNCTION ‘WS_DOWNLOAD’
\nEXPORTING
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 BIN_FILESIZE = W_SIZE
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FILENAME = GK_RUTA
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 FILETYPE = ‘BIN’
\nTABLES
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 DATA_TAB = XML_TAB
\nEXCEPTIONS
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 OTHERS = 10.
\nIF SY-SUBRC <> 0.
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
\nENDIF.<\/p>\n

ENDFORM.
\n* FORM DESCARGA_XML *
\n*———————————————————————-*<\/p>\n","protected":false},"excerpt":{"rendered":"

*———————————————————————-*
\n* Report ZPRUEBA_MML_13 *
\n* Export an internal table to XML document *
\n* NO BORRAR ESTE CODIGO *
\n*———————————————————————-*
\nREPORT ZPRUEBA_MML_13.
\n*———————————————————————-*
\n* PANTALLA SELECCION *
\n PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME.
\n* PANTALLA SELECCION *
\n*———————————————————————-*<\/p>\n

*———————————————————————-*
\n* TYPE TURNOS *
\nTYPES: BEGIN OF TURNOS,
\n LU LIKE T552A-TPR01,
\n MA LIKE T552A-TPR01,
\n MI LIKE T552A-TPR01,
\n JU LIKE T552A-TPR01,
\n VI LIKE T552A-TPR01,
\n SA LIKE T552A-TPR01,
\n DO LIKE T552A-TPR01,
\nEND OF TURNOS.
\n* TYPE TURNOS *<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":"","_links_to":"","_links_to_target":""},"categories":[87],"tags":[],"class_list":["post-385","post","type-post","status-publish","format-standard","hentry","category-advanced-business-application-programming","has-post-title","has-post-date","has-post-category","has-post-tag","has-post-comment","has-post-author",""],"aioseo_notices":[],"views":2196,"_links":{"self":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/385","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/comments?post=385"}],"version-history":[{"count":0,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/posts\/385\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/media?parent=385"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/categories?post=385"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.karadere.com\/blog\/wp-json\/wp\/v2\/tags?post=385"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}