- Sapscript output convert to XML -

Hi Gurus,
I need to convert sapscript output with values - not template - to an XML File or txt.
i tried RSTXSCRP program and FB_CONVERT_FORM_TO_XML function module but doesn't help me.
Please help me with the solution.
Regards
Emre.
Edited by: emre karakurum on May 21, 2010 11:38 AM

In my opinion, SAPScript form is something quite unstructured - the layout of it can be very complicated and as well containing graphic and so on. XML is, on the other side, something pretty structured. I don't think that you can find something standard for simple conversion SAPScript to XML. SAPScript is simply not like IDOC - it's human readable layout rather than strucutre of data. You will have to write your own print-program which will create your own XML file instead of printing SAPScript form. The logic how to structure the XML file (which tags will be there and which values) will be coded in this print-program.

Similar Messages

Convert a xml structure in CDATA

Hello,
I'm using xslt to convert a xml file to another and i want to copy part of de original xml as a CDATA type in the output xml file. My first attempt was something like this:
<![CDATA[<xsl:copy-of select="."/>]]>
of course it didn't work. Could you give me an idea?
thank's

hummmm, thats not what i need.... for instance, in my xml file i have something like this:
<person>
<name>My name</name>
<lastName> My last name</lastName>
</person>
i want the output file to have something like this:
<oldFile><person><name>My name< ..... </oldFile>
Do you think it's possible to do that?

Convert/Interpret XML to Character/ABAP

Hi,
I am consuming a web-Service via client-proxy method. for this I've created the client proxy and called one of the methods in the class in the program.
After passing the input values (country Code) to the web-service I am receiving the result (country Name) in a varliable (string format) but, the format of the returned data is XML.
example:
<NewDataSet> <Table> <countrycode>in</countrycode> <name>India</name> </Table> <Table> <countrycode>in</countrycode> <name>India</name> </Table> </NewDataSet>
How can I get the vaule mentioned in variable <name> in the output ??
Is there a way to convert this XML into character format and read the value in the variable <name> or parse every field from the output in the internal table what can be the approch and solution to do this ?
/Mike

Try using the code below for xml parsing...
TYPE-POOLS: ixml.
TYPE-POOLS : abap.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
               <dyn_table1> TYPE STANDARD TABLE,
               <dyn_wa>,
               <dyn_fieldvalue>,
               <dyn_wa1>,
               <dyn_field>,
               <dyn_field1>,
               <fs_1> TYPE table,
               <fs_2> TYPE ANY,
               <fs_3> TYPE ANY,
               <fs_5> TYPE ANY.
FIELD-SYMBOLS: <fs_fields>.
DATA: dy_table TYPE REF TO data,
      dy_line TYPE REF TO data,
      dy_datatype TYPE REF TO data,
      dy_table1 TYPE REF TO data,
      dy_line1 TYPE REF TO data,
      new_line TYPE REF TO data,
      xfc TYPE lvc_s_fcat,
      ifc TYPE lvc_t_fcat.
TYPES: BEGIN OF t_xml_line,
        data(256) TYPE x,
      END OF t_xml_line.
TYPES: BEGIN OF gs_elem_value,
         element(30) TYPE c,
         value(30) TYPE c,
         recordid TYPE i,
       END OF gs_elem_value.
DATA: gi_elem_value TYPE TABLE OF gs_elem_value ,
      gw_elem_value TYPE gs_elem_value.
DATA: l_ixml            TYPE REF TO if_ixml,
      l_streamfactory   TYPE REF TO if_ixml_stream_factory,
      l_parser          TYPE REF TO if_ixml_parser,
      l_istream         TYPE REF TO if_ixml_istream,
      l_document        TYPE REF TO if_ixml_document,
      l_node            TYPE REF TO if_ixml_node,
      l_xmldata         TYPE string.
DATA: l_elem            TYPE REF TO if_ixml_element,
      l_root_node       TYPE REF TO if_ixml_node,
      l_next_node       TYPE REF TO if_ixml_node,
      l_name            TYPE string,
      l_iterator        TYPE REF TO if_ixml_node_iterator.
DATA: l_xml_table       TYPE TABLE OF t_xml_line,
      l_xml_line        TYPE t_xml_line,
      l_xml_table_size TYPE i.
DATA: l_filename        TYPE string.
DATA : gv_projectdetails TYPE string .
DATA : xref TYPE REF TO cx_dynamic_check .
PERFORM get_complete_path USING p_path2 p_file2 CHANGING gv_complete_path .
Creating the main iXML factory
l_ixml = cl_ixml=>create( ).
Creating a stream factory
l_streamfactory = l_ixml->create_stream_factory( ).
PERFORM get_xml_table CHANGING l_xml_table_size l_xml_table.
wrap the table containing the file into a stream
l_istream = l_streamfactory->create_istream_itable( table = l_xml_table
                                                  size = l_xml_table_size ).
Creating a document
l_document = l_ixml->create_document( ).
Create a Parser
l_parser = l_ixml->create_parser( stream_factory = l_streamfactory
                                    istream        = l_istream
                                    document       = l_document ).
Validate a document
IF pa_val EQ 'X'.
    l_parser->set_validating( mode = if_ixml_parser=>co_validate ).
ENDIF.
Parse the stream
IF l_parser->parse( ) NE 0.
    IF l_parser->num_errors( ) NE 0.
      DATA: parseerror TYPE REF TO if_ixml_parse_error,
            str        TYPE string,
            i          TYPE i,
            count      TYPE i,
            index      TYPE i.
      count = l_parser->num_errors( ).
      WRITE: count, ' parse errors have occured:'.
      index = 0.
      WHILE index < count.
        parseerror = l_parser->get_error( index = index ).
        i = parseerror->get_line( ).
        WRITE: 'line: ', i.
        i = parseerror->get_column( ).
        WRITE: 'column: ', i.
        str = parseerror->get_reason( ).
        WRITE: str.
        index = index + 1.
      ENDWHILE.
      SKIP 2.
      WRITE : 'The input xml ' , p_file , ' is invalid and does not conform to the inset DTD. '.
      EXIT.
    ENDIF.
Process the document if there are no errors
ELSEIF l_parser->is_dom_generating( ) EQ 'X'.
    PERFORM process_dom USING l_document.
ENDIF.
*&      Form get_xml_table
FORM get_xml_table CHANGING l_xml_table_size TYPE i
                            l_xml_table      TYPE STANDARD TABLE.
Local variable declaration
DATA: l_len      TYPE i,
        l_len2     TYPE i,
        l_tab      TYPE tsfixml,
        l_content TYPE string,
        l_str1     TYPE string,
        c_conv     TYPE REF TO cl_abap_conv_in_ce,
        l_itab     TYPE TABLE OF string.
l_filename = p_file.
upload a file from the client's workstation
CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename   = l_filename
      filetype   = 'BIN'
    IMPORTING
      filelength = l_xml_table_size
    CHANGING
      data_tab   = l_xml_table
    EXCEPTIONS
      OTHERS     = 19.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    "get_xml_table
*&      Form process_dom
FORM process_dom USING document TYPE REF TO if_ixml_document.
DATA: node      TYPE REF TO if_ixml_node,
        iterator TYPE REF TO if_ixml_node_iterator,
        nodemap   TYPE REF TO if_ixml_named_node_map,
        attr      TYPE REF TO if_ixml_node,
        name      TYPE string,
        prefix    TYPE string,
        value     TYPE string,
        indent    TYPE i,
        count     TYPE i,
        index     TYPE i.
node ?= document.
CHECK NOT node IS INITIAL.
ULINE.
IF node IS INITIAL. EXIT. ENDIF.
create a node iterator
iterator = node->create_iterator( ).
get current node
node = iterator->get_next( ).
loop over all nodes
WHILE NOT node IS INITIAL.
    indent = node->get_height( ) * 2.
    indent = indent + 20.
    CASE node->get_type( ).
      WHEN if_ixml_node=>co_node_element.
        element node
        name    = node->get_name( ).
        nodemap = node->get_attributes( ).
        gw_elem_value-element = name.
        IF NOT nodemap IS INITIAL.
          attributes
          count = nodemap->get_length( ).
          DO count TIMES.
            index = sy-index - 1.
            attr   = nodemap->get_item( index ).
            name   = attr->get_name( ).
            prefix = attr->get_namespace_prefix( ).
            value = attr->get_value( ).
          ENDDO.
        ENDIF.
      WHEN if_ixml_node=>co_node_text OR
           if_ixml_node=>co_node_cdata_section.
        text node
        value = node->get_value( ).
        TRANSLATE value TO UPPER CASE.
        gw_elem_value-value = value.
        IF gw_elem_value-element = 'table_name'.
          gv_id = gv_id + 1.
        ENDIF.
        gw_elem_value-recordid = gv_id.
        APPEND gw_elem_value TO gi_elem_value.
        CLEAR gw_elem_value.
    ENDCASE.
    advance to next node
    node = iterator->get_next( ).
ENDWHILE.
ENDFORM.                    "process_dom

How to convert hierarchy XML to CSV format using PI/XI

Hi All,
     I am working with SAP PI/XI for the first time and need some help file conversion of complex hierarchy XML to CSV file using PI. I have done plenty of research on SDN and could find much related to what I want to do.
Here is the example of how my input XML would look like:
<?xml version="1.0" encoding="UTF-8"?>
<PartyMaster type="OrgHierarchy" name="Compass Group Owned">
    <PartyMasterHierarchy>
         <Hierarchy level="3" nodeName="Bon Appetit Sector" type="Sector" ID="A00000" refID="A00000">
               <Hierarchy level="4" nodeName="BA Division" type="Division" ID="AB0000" refID="AB0000" >               <Hierarchy level="5" nodeName="BA East Coast Region" type="Region" ID="ABE000" refID="ABE000">
                         <Hierarchy level="6" nodeName="Engstrom, John RVP" type="District" ID="ABE01" refID="ABE01" >
                         </Hierarchy>
                       </Hierarchy>
     </Hierarchy>
                </Hierarchy>
                <Hierarchy level="3" nodeName="Levy Sector" type="Sector" ID="K00000" refID="K00000".               <Hierarchy level="4" nodeName="Levy Sector Division" type="Division" ID="K90000" refID="K90000">              <Hierarchy level="5" nodeName="Levy Sector Region" type="Region" ID="K99000" refID="K99000">                   <Hierarchy level="6" nodeName="TBA Total" type="District" ID="K9901" refID="K9901">                        </Hierarchy>
          </Hierarchy>
     </Hierarchy>
                 </Hierarchy>
        </PartyMasterHierarchy>
</PartyMaster>
I would like to get CSV output in the format below
*DISPLAY_NAME     DOCUMENT_DESCRIPTION      PARENT           EXTERNAL_ID     ORG_UNIT_TYPE*
Bon Appetit Sector     Bon Appetit Sector      constant value    A00000                       constant value
Levy Sector          Levy Sector           constant value    K00000                 constant value
BA Division          BA Division            A00000                 AB0000                       constant value
Levy Sector Division         Levy Sector Division       K00000              K90000                       constant value
BA East Coast Region     BA East Coast Region          AB0000             ABE000                        constant value
Levy Sector Region     Levy Sector Region       K90000              K99000                        constant value
Engstrom, John RVP     Engstrom, John RVP        ABE000               ABE01              constant value
TBA Total                    TBA Total             K99000               K9901             constant value
1) How do I go about this? I think I have to configure an adapter but which adapter would give me the desired result?
2) How do I tell PI when to pick the file from and where to place it after conversion? Could this be done in adapter configuration?
Any help will be greatly appreciated.
Thanks.
--Mithun

Mithun,
you would get lot of answers if you looking in the PI (process integration forum)... There is something calles File content coversion in XI file adapter (which can convert the xml to csv and viceversa)

Spool read data (sapscript output value)

Hi Gurus,
I need to read spool data. I tried following program ;
DATA : mem_tab LIKE abaplist OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF itab OCCURS 0,
data(2000),
END OF itab.
SUBMIT rspolst2 EXPORTING LIST TO MEMORY AND RETURN
WITH rqident = '158593'
WITH first = '1'.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
    listobject = mem_tab."( TABLE LIKE TABLE OF abaplist ).
break xkbahar.
IF NOT mem_tab[] IS INITIAL.
CALL FUNCTION 'LIST_TO_ASCI'
    EXPORTING
      list_index = -1
    TABLES
      listasci   = itab
      listobject = mem_tab." (LIKE TABLE OF abaplist)
ENDIF.
and   [converting spool contents into internal table;
but doesn't help me. Because i want to read sapscript output value in spool.
anybody have idea ? how do i read my sapscript output data in spool? Any function any program?
Please help me with the solution.
Regards
Emre.

Hi,
By selecting print icon of your form output ur able to generate spool of the document.
Ex: va03->provide orden no ->frm menu -> Sales Document -> issue output to-> select output type-> click on print icon(ctrl+p).
Spool of the form will be creatted for u, Check the same in SPO1 transaction.
For further details you can debug the same after selecting print icon.
If you need further details, Provide me the exact business requirement.
Regards,
Bysani.

How to acheive this output during the XML conversion ?.

I am converting the data into XML. I am using Oracle8i.
create table emp(empno number,
ename varchar2(20),
deptno number);
insert into emp values(101,'Krish',10);
insert into emp values(102,null, 10);
insert into emp values(103,'Scott',20);
commit;
CREATE OR REPLACE PROCEDURE STP_TEST_XML AS
v_context DBMS_XMLQUERY.CTXTYPE;
v_document CLOB;
v_error_code VARCHAR2(3) := 'OK';
BEGIN
v_context:= DBMS_XMLQUERY.NEWCONTEXT('SELECT * FROM EMP');
DBMS_XMLQUERY.USENULLATTRIBUTEINDICATOR(v_context,TRUE);
DBMS_XMLQUERY.SETROWSETTAG(v_context,'EMPIMPORT');
DBMS_XMLQUERY.SETROWTAG(v_context,'EMP');
v_document := DBMS_XMLQUERY.GETXML(v_context);
DBMS_XMLQUERY.CLOSECONTEXT(V_context);
PRINT_XML(v_document);
END;
CREATE OR REPLACE PROCEDURE print_xml(result IN OUT NOCOPY CLOB) is
xmlstr varchar2(32767);
line varchar2(2000);
begin
xmlstr := dbms_lob.SUBSTR(result,32767);
loop
exit when xmlstr is null;
line := substr(xmlstr,1,instr(xmlstr,chr(10))-1);
dbms_output.put_line('| '||line);
xmlstr := substr(xmlstr,instr(xmlstr,chr(10))+1);
end loop;
end;
The output is showing as below.
<?xml version = '1.0'?>
<EMPIMPORT>
<EMP num="1">
<EMPNO>101</EMPNO>
<ENAME>Krish</ENAME>
<DEPTNO>10</DEPTNO>
</EMP>
<EMP num="2">
<EMPNO>102</EMPNO>
<ENAME NULL="YES"/>
<DEPTNO>10</DEPTNO>
</EMP>
<EMP num="3">
<EMPNO>103</EMPNO>
<ENAME>Scott</ENAME>
<DEPTNO>20</DEPTNO>
</EMP>
</EMPIMPORT>
But my requirement needs my output should be as below. Please let me know how to achieve this output.
<?xml version = '1.0'?>
<EMPIMPORT>
<EMP num="1">
<EMPNO>101</EMPNO>
<ENAME>Krish</ENAME>
<DEPTNO>10</DEPTNO>
</EMP>
<EMP num="2">
<EMPNO>102</EMPNO>
<ENAME/>
<DEPTNO>10</DEPTNO>
</EMP>
<EMP num="3">
<EMPNO>103</EMPNO>
<ENAME>Scott</ENAME>
<DEPTNO>20</DEPTNO>
</EMP>
</EMPIMPORT>

can you please tell me how to acheive 1,2,3 instead of the chars.
Also if I use virtual characteristic can I able to access the query structure in the user exit like the restricted key figures etc or just the records how they appear in the cube.
Thank you guys for the quick response.

XML publisher report not generating output for huge XML files

Changed Depreciation Projections Report output type to XML.
Defined a Data Definition and a new Data Template (RTF) for this report.
Ran the Depreciation Projection Report to generate the XML output.
Ran the XML Report Publisher report to generate teh PDF/Excel output of the above report.
Output generated for smaller XML files. When XML size is big, the program is running for hours without generating the output.
Teh RTF template is basically a matrix report in which the number of columns in the report is based on the number of periods the report is run for.
The same is not working in the Desktop version also. The system is hanging when i try to view the preview pdf.
The XML file size is approximately 33 MB.
Please let me know if there is any way we can increase the memory size to see the output.
Thanks,
Ram.

for publisher use Category: E-Business Suite

Report will not generate PDF only the XML output. View XML icon disabled

I created a PDF format report.
When the report completes, View Output shows XML code not the PDF output.
View XML button is disabled from Diagnostic on view request screen.
Any thoughts. All settings are the same as when other XML to PDF reports are created. Not sure why this one is not working.
Thanks

I'm afraid this is not an installation issue, it rather sounds and application server one, at the operative level.
I suggest you to post your thread at the Fusion Middleware or Developer Tools forums.
You didn't provide any OS nor Oracle / AS version, I suggest you to specify this information when posting in future threads.
~ Madrid.

ALV output converted into PDF format and send that PDF to user through mail

Hi Experts,
I have report earlier its output was in alv grid.
Now i want that ALV output converted into PDF format.And that PDF output send to user through mail.
Can u please tell how to do?
My code is here(output is displaying in ALV grid).
INCLUDE <icon>.
TYPE-POOLS: slis, kkblo.
TABLES : zmsd_freight_hdr, zmsd_freight_det, zmsd_blinfo, zmsd_diheader.
TABLES : lfa1.
DATA : t_hdr   LIKE   zmsd_freight_hdr   OCCURS 0 WITH HEADER LINE,
       T_DET   LIKE   ZMSD_FREIGHT_DET   OCCURS 0 WITH HEADER LINE,
       t_bl    LIKE   zmsd_blinfo        OCCURS 0 WITH HEADER LINE,
       t_di    LIKE   zmsd_diheader      OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_det OCCURS 0.
        INCLUDE STRUCTURE zmsd_freight_det.
DATA    type(30).
DATA: END OF t_det.
DATA: v_target2(30),
      v_zsammg LIKE t_det-zsammg,
      v_gsttotal LIKE t_det-zamount.
DATA : BEGIN OF t_data OCCURS 0,
         zsammg       LIKE zmsd_freight_hdr-zsammg,
         zdidbl       LIKE zmsd_freight_hdr-zdidbl,
         zvkorg       LIKE zmsd_freight_hdr-zvkorg,
         zinvno       LIKE zmsd_freight_hdr-zinvno,
         zttlamt      LIKE zmsd_freight_hdr-zttlamt,
         zstatus      LIKE zmsd_freight_hdr-zstatus,
         ztype        LIKE zmsd_freight_hdr-ztype,
         zconfirm     LIKE zmsd_freight_hdr-zconfirm,
         zconfirmdate LIKE zmsd_freight_hdr-zconfirmdate,
         erdat        LIKE zmsd_freight_hdr-erdat,
         ernam        LIKE zmsd_freight_hdr-ernam,
         erzet        LIKE zmsd_freight_hdr-erzet,
         aedat(10),
         aenam        LIKE zmsd_freight_hdr-aenam,
         aezet        LIKE zmsd_freight_hdr-aezet,
         zline        LIKE zmsd_freight_det-zline,
         zfptype      LIKE zmsd_freight_det-zfptype,
         zchrcode     LIKE zmsd_freight_det-zchrcode,
         zcurcode     LIKE zmsd_freight_det-zcurcode,
         zqty         LIKE zmsd_freight_det-zqty,
         zuom         LIKE zmsd_freight_det-zuom,
         zrate        LIKE zmsd_freight_det-zrate,
         zamount      LIKE zmsd_freight_det-zamount,
         zexrate      LIKE zmsd_freight_det-zexrate,
       zccode       LIKE zmsd_blinfo-zccode,      "MADK991565
         zccode       like ZMSD_FREIGHT_HDR-zfcode, "MADK991565
         zbldate(10),
         zbl          LIKE zmsd_blinfo-zbl,
         type(3),
         waerk        LIKE zmsd_freight_det-zcurcode,
         zamountl     LIKE zmsd_freight_det-zamount,
       END OF t_data.
DATA : w_layout      TYPE   slis_layout_alv,
       w_catalog     TYPE   slis_fieldcat_alv,
       t_catalog     TYPE   slis_t_fieldcat_alv,
       w_sort        TYPE   slis_sortinfo_alv,
       t_sort        TYPE   slis_t_sortinfo_alv.
DATA   V_ZINVNO    like   T_HDR-ZINVNO.                   "MADK991565
DATA : v_count TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK a0 WITH FRAME TITLE text-001.
PARAMETERS     : p_zvkorg LIKE zmsd_freight_hdr-zvkorg OBLIGATORY .
SELECT-OPTIONS : s_zdidbl FOR zmsd_freight_hdr-zdidbl             ,
                  s_zccode FOR lfa1-lifnr                          ,
                  s_status FOR zmsd_freight_hdr-zstatus            ,
                  s_ztype FOR zmsd_freight_hdr-ztype              ,
                  s_erdat FOR zmsd_freight_hdr-erdat              ,
                  s_ernam FOR zmsd_freight_hdr-ernam              ,
                  s_zconfd FOR zmsd_freight_hdr-zconfirmdate       .
PARAMETERS     : p_zconf AS   CHECKBOX                            .
SELECTION-SCREEN END OF BLOCK a0.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-002.
PARAMETERS     : p_hdr    RADIOBUTTON GROUP rad DEFAULT 'X'        ,
                  p_det    RADIOBUTTON GROUP rad                    .
SELECTION-SCREEN END OF BLOCK a1.
INITIALIZATION.
AT SELECTION-SCREEN.
START-OF-SELECTION.
PERFORM get_data.
PERFORM process.
PERFORM display.
END-OF-SELECTION.
PERFORM fm_get_num_pages.
AT USER-COMMAND.
AT LINE-SELECTION.
TOP-OF-PAGE.
PERFORM fm_top_of_page USING '7010' sy-title space.
FORM get_data.
SELECT   *
    FROM   zmsd_freight_hdr
    INTO   TABLE t_hdr
   WHERE   zvkorg        EQ p_zvkorg
     AND   zdidbl        IN s_zdidbl
     AND   zstatus       IN s_status
     AND   ztype         IN s_ztype
     AND   erdat         IN s_erdat
     AND   ernam         IN s_ernam
     AND   zconfirmdate IN s_zconfd
     AND   ZFCODE        IN S_ZCCODE.                      "MADK991565
IF p_zconf = 'X'.
    DELETE t_hdr WHERE zconfirm NE 'C'.
ENDIF.
CHECK NOT t_hdr[] IS INITIAL.
SELECT   *
    FROM   zmsd_blinfo
    INTO   TABLE t_bl
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_bl BY zsammg.
SELECT   *
    FROM   zmsd_diheader
    INTO   TABLE t_di
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg.
SORT t_di BY zsammg.
IF P_DET = 'X'. "MADK933361
SELECT   *
    FROM   zmsd_freight_det
    INTO   TABLE t_det
     FOR   ALL ENTRIES IN t_hdr
   WHERE   zsammg = t_hdr-zsammg
   AND ZINVNO = T_HDR-ZINVNO .                           "MADK991565
SORT t_det BY zsammg zline.                            "MADK991565
   SORT T_DET BY ZSAMMG ZINVNO ZLINE.                     "MADK991565
ENDIF. "MADK933361
ENDFORM.
FORM process.
REFRESH t_data.
CLEAR v_gsttotal.                                         "MADK933361
LOOP AT t_hdr.
Start of MADK933361
    CLEAR: v_target2.
    v_zsammg = t_hdr-zsammg.
    V_ZINVNO = T_HDR-ZINVNO.                                "MADK991565
   AT NEW zsammg.                                         "MADK991565
     AT NEW ZINVNO.                                         "MADK991565
      PERFORM get_gst_value.
    ENDAT.
End of MADK933361
    PERFORM move_header.
    CHECK t_data-zccode IN s_zccode.
    IF p_det = 'X'.
CSF Project Changes Starts   DEV34    MADK985782
    LOOP AT T_DET WHERE ZSAMMG = T_HDR-ZSAMMG..
      LOOP AT t_det WHERE zsammg = t_hdr-zsammg AND
                          zinvno = t_hdr-zinvno.
CSF Project Changes Ends     DEV34    MADK985782
        PERFORM move_header.
        CHECK t_data-zccode IN s_zccode.
        MOVE-CORRESPONDING t_det TO t_data.
        t_data-zamountl = t_data-zamount * t_data-zexrate.
        APPEND t_data.
        CLEAR t_data.
      ENDLOOP.
    ELSE.
      APPEND t_data.
      CLEAR t_data.
    ENDIF.
    AT END OF zsammg.
      CLEAR v_gsttotal.
    ENDAT.
*Start of changes for IS090901289-PIA MADK991565
    AT END OF ZINVNO.
      CLEAR V_GSTTOTAL.
    ENDAT.
*End of changes for IS090901289-PIA MADK991565
ENDLOOP.
ENDFORM.
FORM move_header.
MOVE-CORRESPONDING t_hdr TO t_data.
t_data-zttlamt = t_data-zttlamt + v_gsttotal.             "MADK933361
t_data-waerk = 'SGD'.
IF NOT t_hdr-aedat IS INITIAL.
    WRITE: t_hdr-aedat TO t_data-aedat.
ELSE.
    CLEAR : t_data-aedat.
ENDIF.
READ TABLE t_bl WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
IF sy-subrc EQ 0.
t_data-zccode = t_bl-zccode.   "MADK991565
    T_DATA-ZCCODE = T_HDR-ZFCODE.   "MADK991565
    IF NOT t_bl-zbldate IS INITIAL.
      WRITE: t_bl-zbldate TO t_data-zbldate.
    ENDIF.
    t_data-zbl     = t_bl-zbl.
    t_data-type    = 'DBL'.
ELSE.
    READ TABLE t_di WITH KEY zsammg = t_hdr-zsammg BINARY SEARCH.
    IF sy-subrc EQ 0.
    t_data-zccode = t_di-zdiforcode.     "MADK991565
      T_DATA-ZCCODE = T_HDR-ZFCODE.         "MADK991565
      t_data-type    = 'DI'.
    ENDIF.
ENDIF.
ENDFORM.
FORM display.
IF t_data[] IS INITIAL.
    MESSAGE s398(00) WITH 'No Data Selected'.
    EXIT.
ENDIF.
DATA : l_repid LIKE sy-repid.
l_repid = sy-repid.
REFRESH t_catalog.
CLEAR   t_catalog.
w_layout-cell_merge = 'X'.
PERFORM map_fields.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = l_repid
            i_callback_user_command = 'ALV_USER_COMMAND'
            is_layout               = w_layout
            it_fieldcat             = t_catalog[]
            i_grid_title            = sy-title
            i_save                  = 'A'
            it_sort                 = t_sort[]
       TABLES
            t_outtab                = t_data
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.
FORM map_fields.
Sort Order
CLEAR v_count.
PERFORM sf USING 'ZDIDBL'   'X' 'X'.
Fields to be displayed
CLEAR v_count.
IF p_hdr = 'X'.
    PERFORM af USING :
   DESCRIPTION       FIELD        LEN   RTABLE             RFIELD
    'DI/DBL         ' 'ZDIDBL'     '14' '                ' '        ',
    'Type           ' 'TYPE'       '04' '                ' '        ',
    'Forwarder Code ' 'ZCCODE'     '14' '                ' '        ',
    'BL Number      ' 'ZBL'        '14' '                ' '        ',
    'BL Date        ' 'ZBLDATE'    '10' '                ' '        ',
    'Invoice Number ' 'ZINVNO'     '15' '                ' '        ',
    'Extraction     ' 'ZSTATUS'    '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type   ' 'ZTYPE'      '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation   ' 'ZCONFIRM'   '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date   ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount   ' 'ZTTLAMT'    '18' '                ' '        ',
    'Created On     ' 'ERDAT'      '10' '                ' '        ',
    'Created By     ' 'ERNAM'      '10' '                ' '        ',
    'Changed On     ' 'AEDAT'      '10' '                ' '        ',
    'Changed By     ' 'AENAM'      '10' '                ' '        '.
ELSE.
    PERFORM af USING :
   DESCRIPTION         FIELD     LEN   RTABLE             RFIELD
    'DI/DBL           ' 'ZDIDBL'   '14' '                ' '        ',
    'Type             ' 'TYPE'     '04' '                ' '        ',
    'Forwarder Code   ' 'ZCCODE'   '14' '                ' '        ',
    'BL Number        ' 'ZBL'      '14' '                ' '        ',
    'BL Date          ' 'ZBLDATE' '10' '                ' '        ',
    'Invoice Number   ' 'ZINVNO'   '15' '                ' '        ',
    'Extraction       ' 'ZSTATUS' '05' 'ZMSD_FREIGHT_HDR' 'ZSTATUS ',
    'Freight Type     ' 'ZTYPE'    '05' 'ZMSD_FREIGHT_HDR' 'ZTYPE   ',
    'Confirmation     ' 'ZCONFIRM' '05' 'ZMSD_FREIGHT_HDR' 'ZCONFIRM',
    'Confirm Date     ' 'ZCONFIRMDATE' '10' 'ZMSD_FREIGHT_HDR'
'ZCONFIRMDATE',
    'Total Amount     ' 'ZTTLAMT' '18' '                ' '        ',
    'Freight Payment ' 'ZFPTYPE' '14' '                ' '        ',
    'Charge Code      ' 'ZCHRCODE' '10' '                ' '        ',
    'Currency         ' 'ZCURCODE' '08' '                ' '        ',
    'Quantity         ' 'ZQTY'     '13' '                ' '        ',
    'UoM              ' 'ZUOM'     '04' '                ' '        ',
    'Rate             ' 'ZRATE'    '15' '                ' '        ',
    'Amt(Foreign Curr)' 'ZAMOUNT' '16' '                ' '        ',
    'Exchange Rate    ' 'ZEXRATE' '13' '                ' '        ',
    'Amt(Local Curr) ' 'ZAMOUNTL' '16' '                ' '        ',
    'Created On       ' 'ERDAT'    '10' '                ' '        ',
    'Created By       ' 'ERNAM'    '10' '                ' '        ',
    'Changed On       ' 'AEDAT'    '10' '                ' '        ',
    'Changed By       ' 'AENAM'    '10' '                ' '        '.
ENDIF.
ENDFORM.
FORM af USING text
              field
              len
              table
              reffield.
v_count = v_count + 1.
w_catalog-col_pos       = v_count.
w_catalog-fieldname     = field.
w_catalog-ref_tabname   = table.
w_catalog-ref_fieldname = reffield.
w_catalog-seltext_s     = text.
w_catalog-seltext_m     = text.
w_catalog-seltext_l     = text.
w_catalog-outputlen     = len.
IF field = 'ZTTLAMT' OR field = 'ZAMOUNTL'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'WAERK'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF FIELD = 'ZRATE' OR FIELD = 'ZAMOUNT'.
IF field = 'ZAMOUNT'.
    w_catalog-no_zero     = 'X'.
    w_catalog-cfieldname = 'ZCURCODE'.
    w_catalog-datatype    = 'CURR'.
ENDIF.
IF field = 'ZQTY' OR field = 'ZRATE'.
    w_catalog-no_zero     = 'X'.
    w_catalog-datatype = 'DEC'.
ENDIF.
APPEND w_catalog TO t_catalog.
CLEAR w_catalog.
ENDFORM.
FORM sf    USING   fieldname sortup group.
v_count = v_count + 1.
CLEAR w_sort.
w_sort-fieldname = fieldname.
w_sort-spos      = v_count.
w_sort-up        = sortup.
w_sort-group     = group.
APPEND w_sort TO t_sort.
ENDFORM.
FORM alv_user_command USING in_ucomm    LIKE sy-ucomm
                             in_selfield TYPE slis_selfield.
DATA: lfs_data LIKE t_data.
IF in_ucomm = '&IC1'.
    READ TABLE t_data INDEX in_selfield-tabindex INTO lfs_data.
    CHECK NOT lfs_data-zdidbl IS INITIAL.
    IF lfs_data-type = 'DBL'.
      DATA: l_zdbl LIKE zmsd_diheader-zdinum.
      l_zdbl = in_selfield-value.
      EXPORT l_zdbl TO MEMORY ID 'VBL'.
      CALL TRANSACTION 'ZMSD_BL01'.
    ENDIF.
    IF lfs_data-type = 'DI'.
      DATA: v_dinum LIKE zmsd_diheader-zdinum.
      v_dinum = in_selfield-value.
      EXPORT v_dinum TO MEMORY ID 'VDI'.
      CALL TRANSACTION 'ZMSD_DI01'.
    ENDIF.
ENDIF.
ENDFORM.
FORM get_gst_value.
LOOP AT t_det WHERE zsammg = v_zsammg
     AND ZINVNO = V_ZINVNO.                              "MADK991565
    CHECK t_data-zccode IN s_zccode.
    t_det-zamount = t_det-zamount * t_det-zexrate.
    SELECT SINGLE y0mmtarget2
            INTO   v_target2
            FROM   y0mmipstranslate
            WHERE y0mmdatatype = '70' AND
                   y0mmsource = t_det-zchrcode.
    SELECT SINGLE y0mmtarget1
           INTO   t_det-type
           FROM   y0mmipstranslate
           WHERE y0mmdatatype = '76' AND
                  y0mmsource = v_target2.
    IF t_det-type NE '3Z'.
      v_gsttotal    = v_gsttotal +
                           ( t_det-zamount * 5 / 100 ).
    ENDIF.
ENDLOOP.
Regards,
Raj.

Hello,
Following is the procedure to convert alv output to spool and then it to PDF Format.
After we display the ALV, we can check whether it is running in the background using system field u2018sy-batchu2018. Then,we call an function module named u2018GET_JOB_RUNTIME_INFOu2019 to get the current job information. Then go to spool request table tbtcp to get the spool id.
Get current job details
CALL FUNCTION u2018GET_JOB_RUNTIME_INFOu2019
       IMPORTING
            eventid                 = gd_eventid
            eventparm               = gd_eventparm
            external_program_active = gd_external_program_active
            jobcount                = gd_jobcount
            jobname                 = gd_jobname
            stepcount               = gd_stepcount
       EXCEPTIONS
            no_runtime_info         = 1
            OTHERS                  = 2.
SELECT * FROM tbtcp
                 INTO TABLE it_tbtcp
                 WHERE      jobname     = gd_jobname
                           AND jobcount = gd_jobcount
                           AND stepcount = gd_stepcount
                           AND listident <> u20180000000000u2032
                           ORDER BY   jobname
                                               jobcount
                                               stepcount.
READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
Finally, we can call function module u2018CONVERT_ABAPSPOOLJOB_2_PDFu2018 to convert spool reqeust(which is stored in OTF format) to PDF format. Then we can call either function module u2018SO_DOCUMENT_SEND_API1u2032 or SAP BCS (Business Communication Service) to send the pdf as an email attachment.
CALL FUNCTION u2018CONVERT_ABAPSPOOLJOB_2_PDFu2019
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount = gd_bytecount
       TABLES
            pdf = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
Regards,
Sayali
Edited by: Sayali Paradkar on Apr 20, 2010 12:51 PM

Excel output for the xml publisher report when it is [b]scheduled [/b]

How to get the excel output for the xml publisher report when it is scheduled by a apps user? Like what is the user profile option (for the apps user who runs the report) and what are the other things that needs to be taken care of so that only this xml publisher report run by this apps user produces a EXCEL output (When scheduled) ???
Really appreciate it if any one can help me in this regards.
Thanks
Munna

Hi Munna,
For eBusiness Suite (apps user) the report output is stored the same way whether executed immediately or scheduled.,To get excel set the options > output format to Excel. Only the user that submitted the report can view it, or you can get the output file from the server. Or you can set the notify option so that a Workflow Notification is sent when the request completes.
Regards,
Gareth
Blog: http://garethroberts.blogspot.com/

Steps in converting a xml file with an rtf template to a pdf

Hey all,
What are the steps in converting a xml file with an rtf template to a pdf using XML Publisher from command line.
Thanks
Ravi

I don't have any code to do exactly what you wish, but it shouldn't be too difficult and http://www.dadhi.com/2007/06/generate-and-store-pdf-file-in-same.html is a good starting point.
Paul

Can't convert oracle.xml.parser.DTD to oracle.xml.parser.v2.DTD.

I am getting the following Error while trying
to compile the SampleMain.java file(Generating an XML document from a given Employee.dtd).
I have set my classpath to use xmlparser.jar.
D:\XMls>javac SampleMain.java
SampleMain.java:65: Can't convert oracle.xml.parser.DTD to oracle.xml.parser.v2.DTD.
main(java.l
ang.String[]).
generator.generate(dtd, doctype_name);

Would you check the java parser version you are using? If using java parser V2, the normal lib name is xmlparserv2.jar.
null

Error: unable to copy to output directory, ReqMgmtActionsVO.xml not found

hi,
While running a page using jdeveloper am getting error like
Error: unable to copy to output directory, ReqMgmtActionsVO.xml not found.
am very thankful to the response
Thanks
Surya

Hi,
I faced the same issue.
I fixed it by searching the missing file (In my case MyEO.xml which is a removed file) using JDeveloper (Menu Search/Search Files...).
It found an occurence in the related .jpr file.
In the .jpr, I deleted the related lines:
<Item>
<Key class="java.net.URL" path="xx/oracle/apps/.../MyEO.xml"/>
<Value idref="15"/>
</Item>
That's it.
Regards,
Olivier

Does anyone know how to convert an XML file to a readable file?

All,
I have been using an APP called "SMS Backup & Restore" to backup my message conversations to my Laptop PC. It works fine BUT the backup file, once in my PC, has an XML extent such as "filename.XML"
I would like to read and/or print and/or save the text message file so does anyone know how to convert the XML file to something else so it shows all the messages without all the formatting instructions.
When I try to see the XML file it shows all the formatting. If I replace the .XML with .TXT that too shows all the formatting mixed in with the text message narrative.
When I look at the XML file in SMS Backup & Restore in the Charge phone it looks great showing all the messages just as they were on the phones display. The problem with this is that there is no way to print or read or save the messages as they appear in the file from the phone itself. I tried screen capture but if you have, let's say, a 28 message conversation you have to do 7 or 8 screen captures to get them all.
If only I could convert the XML in my PC to something that is printable or savable or readable that would be the "cats meow."
Anyone know how???
JerryF
PS, You might take a look at my related post.
https://community.verizonwireless.com/message/809832#809832

Ann154,
You were correct again. I deleted everything I had done to date and re-did the entire SMS backup of my 28 message conversation again and YES I was able to open it using IE-8. It looks great and it prints great and life is good! I am going to go make a donation.
Thanks again for the help. I marked this thread as answered by you.
JerryF

Converting hexadecimal XML data to a string

Hello!
Until now I generated XML data with the FM 'SDIXML_DOM_TO_XML'.
After that I did a loop over the xml_as_table in which I was casting each line of that table to a string.
ASSIGN <line> TO <line_c> CASTING.
After the inftroduction of unicode in our system I get a error:
In the current program an error occured when setting the field symbol <LINE_C> with ASSIGN or ASSIGNING (maybe in combination with the CASTING addition).
When converting the base entry of the field symbol <LINE_C> (number in base table: 32776), it was found that the target type requests a memory alignment of 2
What does it mean? Does somebody have a solution.
I need this function for sending this XML data as string over a simple old CPIC connection.
Best regards
Martin

Hello Martin
Perhaps my sample report ZUS_SDN_XML_XSTRING_TO_STRING provides a solution for your problem.
*& Report ZUS_SDN_XML_XSTRING_TO_STRING
*& Thread: Converting hexadecimal XML data to a string
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1029652"></a>
REPORT zus_sdn_xml_xstring_to_string.
*-- data
*-- read the XML document from the frontend machine
TYPES: BEGIN OF xml_line,
        data(256) TYPE x,
      END OF xml_line.
DATA: xml_table TYPE TABLE OF xml_line.
DATA: go_xml_doc       TYPE REF TO cl_xml_document,
      gd_xml_string    TYPE string,
      gd_rc            TYPE i.
PARAMETERS:
p_file TYPE localfile DEFAULT 'C:payload_idoc.xml'.
START-OF-SELECTION.
CREATE OBJECT go_xml_doc.
" Load XML file from PC and get XML itab
CALL METHOD go_xml_doc->import_from_file
    EXPORTING
      filename = p_file
    RECEIVING
      retcode = gd_rc.
CALL METHOD go_xml_doc->get_as_table
    IMPORTING
      table   = xml_table
*      size    =
*      retcode =
" NOTE: simulate creation of XML itab
go_xml_doc->display( ).
create object go_xml_doc.
CALL METHOD go_xml_doc->parse_table
    EXPORTING
      table   = xml_table
*      size    = 0
    receiving
      retcode = gd_rc.
CALL METHOD go_xml_doc->render_2_string
*    EXPORTING
*      pretty_print = 'X'
    IMPORTING
      retcode      = gd_rc
      stream       = gd_xml_string
*      size         =
write: / gd_xml_string.
END-OF-SELECTION.
Regards
Uwe

- Sapscript output convert to XML -

Similar Messages

Maybe you are looking for