<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic File Creation direct into Application Server in Application Development and Automation Discussions</title>
    <link>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496368#M563798</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I want to CREATE .txt file direct on Application server,  using open dataset for output. Application operation system is Sun Sol. Please write if you know regarding this.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Vijay&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Tue, 17 Jul 2007 13:06:05 GMT</pubDate>
    <dc:creator>Former Member</dc:creator>
    <dc:date>2007-07-17T13:06:05Z</dc:date>
    <item>
      <title>File Creation direct into Application Server</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496368#M563798</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;I want to CREATE .txt file direct on Application server,  using open dataset for output. Application operation system is Sun Sol. Please write if you know regarding this.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Vijay&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 17 Jul 2007 13:06:05 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496368#M563798</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-07-17T13:06:05Z</dc:date>
    </item>
    <item>
      <title>Re: File Creation direct into Application Server</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496369#M563799</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi ,&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Go through the following code :-&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;tables : zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_contracts1&lt;/P&gt;&lt;P&gt;data : begin of i_contracts1 occurs 0,&lt;/P&gt;&lt;P&gt;        ebeln like ekko-ebeln,&lt;/P&gt;&lt;P&gt;        i1 value 'Ï',&lt;/P&gt;&lt;P&gt;        waers1(5),&lt;/P&gt;&lt;P&gt;        i2 value 'Ï',&lt;/P&gt;&lt;P&gt;        date1(10),&lt;/P&gt;&lt;P&gt;        i3 value 'Ï',&lt;/P&gt;&lt;P&gt;        date2(10),&lt;/P&gt;&lt;P&gt;        i4 value 'Ï',&lt;/P&gt;&lt;P&gt;        ekorg1 like ekko-ekorg,&lt;/P&gt;&lt;P&gt;        i5 value 'Ï',&lt;/P&gt;&lt;P&gt;        lifnr like ekko-lifnr,&lt;/P&gt;&lt;P&gt;        i6 value 'Ï',&lt;/P&gt;&lt;P&gt;        ekgrp like ekko-ekgrp,&lt;/P&gt;&lt;P&gt;        i7 value 'Ï',&lt;/P&gt;&lt;P&gt;        zterm like ekko-zterm,&lt;/P&gt;&lt;P&gt;        i8 value 'Ï',&lt;/P&gt;&lt;P&gt;        bukrs like ekko-bukrs,&lt;/P&gt;&lt;P&gt;        i9 value 'Ï',&lt;/P&gt;&lt;P&gt;        inco1 like ekko-inco1,&lt;/P&gt;&lt;P&gt;        i10 value 'Ï',&lt;/P&gt;&lt;P&gt;        inco2 like ekko-inco2,&lt;/P&gt;&lt;P&gt;        i11 value 'Ï',&lt;/P&gt;&lt;P&gt;        ktwrt(20),&lt;/P&gt;&lt;P&gt;        i12 value 'Ï',&lt;/P&gt;&lt;P&gt;        waers2(5),&lt;/P&gt;&lt;P&gt;        i13 value 'Ï',&lt;/P&gt;&lt;P&gt;        ekorg2 like ekko-ekorg,&lt;/P&gt;&lt;P&gt;  end of i_contracts1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_contracts2&lt;/P&gt;&lt;P&gt;data : begin of i_contracts2 occurs 0,&lt;/P&gt;&lt;P&gt;        ebeln  like ekpo-ebeln,&lt;/P&gt;&lt;P&gt;        i1 value 'Ï',&lt;/P&gt;&lt;P&gt;        ebelp  like ekpo-ebelp,&lt;/P&gt;&lt;P&gt;        i2 value 'Ï',&lt;/P&gt;&lt;P&gt;        matnr  like ekpo-matnr,&lt;/P&gt;&lt;P&gt;        i3 value 'Ï',&lt;/P&gt;&lt;P&gt;        werks  like ekpo-werks,&lt;/P&gt;&lt;P&gt;        i4 value 'Ï',&lt;/P&gt;&lt;P&gt;        txz01  like ekpo-txz01,&lt;/P&gt;&lt;P&gt;        i5 value 'Ï',&lt;/P&gt;&lt;P&gt;        matkl  like ekpo-matkl,&lt;/P&gt;&lt;P&gt;        i6 value 'Ï',&lt;/P&gt;&lt;P&gt;        meins1(3),&lt;/P&gt;&lt;P&gt;        i7 value 'Ï',&lt;/P&gt;&lt;P&gt;        brtwr(16),&lt;/P&gt;&lt;P&gt;        i8 value 'Ï',&lt;/P&gt;&lt;P&gt;        bprme1(3),&lt;/P&gt;&lt;P&gt;        i9 value 'Ï',&lt;/P&gt;&lt;P&gt;        menge(17),&lt;/P&gt;&lt;P&gt;        i10 value 'Ï',&lt;/P&gt;&lt;P&gt;        meins2(3),&lt;/P&gt;&lt;P&gt;        i11 value 'Ï',&lt;/P&gt;&lt;P&gt;        waers(5),                    "absent&lt;/P&gt;&lt;P&gt;        i12 value 'Ï',&lt;/P&gt;&lt;P&gt;        mwskz  like ekpo-mwskz,&lt;/P&gt;&lt;P&gt;        i13 value 'Ï',&lt;/P&gt;&lt;P&gt;        bprme2(3),&lt;/P&gt;&lt;P&gt;        i14 value 'Ï',&lt;/P&gt;&lt;P&gt;        netpr(14),&lt;/P&gt;&lt;P&gt;        i15 value 'Ï',&lt;/P&gt;&lt;P&gt;        untto(4),&lt;/P&gt;&lt;P&gt;        i16 value 'Ï',&lt;/P&gt;&lt;P&gt;        uebto(4),&lt;/P&gt;&lt;P&gt;        i17 value 'Ï',&lt;/P&gt;&lt;P&gt;        uebtk  like ekpo-uebtk,&lt;/P&gt;&lt;P&gt;        i18 value 'Ï',&lt;/P&gt;&lt;P&gt;        loekz  like ekpo-loekz,&lt;/P&gt;&lt;P&gt;     end of i_contracts2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_contracts3&lt;/P&gt;&lt;P&gt;data : begin of i_contracts3 occurs 0,&lt;/P&gt;&lt;P&gt;        ebeln  like ekpa-ebeln,&lt;/P&gt;&lt;P&gt;        i1 value 'Ï',&lt;/P&gt;&lt;P&gt;        ebelp  like ekpa-ebelp,&lt;/P&gt;&lt;P&gt;        i2 value 'Ï',&lt;/P&gt;&lt;P&gt;        parvw  like ekpa-parvw,&lt;/P&gt;&lt;P&gt;        i3 value 'Ï',&lt;/P&gt;&lt;P&gt;        lifn2  like ekpa-lifn2,&lt;/P&gt;&lt;P&gt;      end of i_contracts3.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_contracts4&lt;/P&gt;&lt;P&gt;data : begin of i_contracts4 occurs 0,&lt;/P&gt;&lt;P&gt;           ebeln like ekko-ebeln,&lt;/P&gt;&lt;P&gt;           i1 value 'Ï',&lt;/P&gt;&lt;P&gt;           ebelp like ekpo-ebelp,&lt;/P&gt;&lt;P&gt;           i2 value 'Ï',&lt;/P&gt;&lt;P&gt;           kschl like konv-kschl,&lt;/P&gt;&lt;P&gt;           i3 value 'Ï',&lt;/P&gt;&lt;P&gt;           kmein(3),&lt;/P&gt;&lt;P&gt;           i4 value 'Ï',&lt;/P&gt;&lt;P&gt;           waers(5),&lt;/P&gt;&lt;P&gt;           i5 value 'Ï',&lt;/P&gt;&lt;P&gt;           kpein(5),&lt;/P&gt;&lt;P&gt;           i6 value 'Ï',&lt;/P&gt;&lt;P&gt;           kawrt(21),&lt;/P&gt;&lt;P&gt;      end of i_contracts4.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_contracts5&lt;/P&gt;&lt;P&gt;data : begin of i_contracts5 occurs 0,&lt;/P&gt;&lt;P&gt;         ebeln like ekpo-ebeln,&lt;/P&gt;&lt;P&gt;         i1 value 'Ï',&lt;/P&gt;&lt;P&gt;         ebelp like ekpo-ebelp,&lt;/P&gt;&lt;P&gt;         i2 value 'Ï',&lt;/P&gt;&lt;P&gt;         tdid  like thead-tdid,&lt;/P&gt;&lt;P&gt;         i3 value 'Ï',&lt;/P&gt;&lt;P&gt;         tdline like tline-tdline,&lt;/P&gt;&lt;P&gt;       end of i_contracts5.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_ekpo&lt;/P&gt;&lt;P&gt;data : begin of i_ekpo occurs 0,&lt;/P&gt;&lt;P&gt;          ebeln like ekpo-ebeln,&lt;/P&gt;&lt;P&gt;          ebelp like ekpo-ebelp,&lt;/P&gt;&lt;P&gt;          matnr  like ekpo-matnr,&lt;/P&gt;&lt;P&gt;          werks like ekpo-werks,&lt;/P&gt;&lt;P&gt;          txz01  like ekpo-txz01,&lt;/P&gt;&lt;P&gt;          matkl  like ekpo-matkl,&lt;/P&gt;&lt;P&gt;          brtwr  like ekpo-brtwr,&lt;/P&gt;&lt;P&gt;          bprme  like ekpo-bprme,&lt;/P&gt;&lt;P&gt;          menge  like ekpo-menge,&lt;/P&gt;&lt;P&gt;          meins  like ekpo-meins,&lt;/P&gt;&lt;P&gt;          mwskz  like ekpo-mwskz,&lt;/P&gt;&lt;P&gt;          netpr  like ekpo-netpr,&lt;/P&gt;&lt;P&gt;          untto  like ekpo-untto,&lt;/P&gt;&lt;P&gt;          uebto  like ekpo-uebto,&lt;/P&gt;&lt;P&gt;          uebtk  like ekpo-uebtk,&lt;/P&gt;&lt;P&gt;          loekz  like ekpo-loekz,&lt;/P&gt;&lt;P&gt;          end of i_ekpo.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_ekko&lt;/P&gt;&lt;P&gt;data : begin of i_ekko occurs 0,&lt;/P&gt;&lt;P&gt;          ebeln like ekko-ebeln,&lt;/P&gt;&lt;P&gt;          waers like ekko-waers,&lt;/P&gt;&lt;P&gt;          kdatb like ekko-kdatb,&lt;/P&gt;&lt;P&gt;          kdate like ekko-kdate,&lt;/P&gt;&lt;P&gt;          ekorg like ekko-ekorg,&lt;/P&gt;&lt;P&gt;          lifnr like ekko-lifnr,&lt;/P&gt;&lt;P&gt;          ekgrp like ekko-ekgrp,&lt;/P&gt;&lt;P&gt;          zterm like ekko-zterm,&lt;/P&gt;&lt;P&gt;          bukrs like ekko-bukrs,&lt;/P&gt;&lt;P&gt;          inco1 like ekko-inco1,&lt;/P&gt;&lt;P&gt;          inco2 like ekko-inco2,&lt;/P&gt;&lt;P&gt;          ktwrt like ekko-ktwrt,&lt;/P&gt;&lt;P&gt;          knumv like ekko-knumv,&lt;/P&gt;&lt;P&gt;      end of i_ekko.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_ekpa&lt;/P&gt;&lt;P&gt;data : begin of i_ekpa occurs 0,&lt;/P&gt;&lt;P&gt;         ebeln  like ekpa-ebeln,&lt;/P&gt;&lt;P&gt;         ebelp  like ekpa-ebelp,&lt;/P&gt;&lt;P&gt;         parvw  like ekpa-parvw,&lt;/P&gt;&lt;P&gt;         lifn2  like ekpa-lifn2,&lt;/P&gt;&lt;P&gt;       end of i_ekpa.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : i_konv&lt;/P&gt;&lt;P&gt;data : begin of i_konv occurs 0,&lt;/P&gt;&lt;P&gt;         knumv like konv-knumv,&lt;/P&gt;&lt;P&gt;         kschl like konv-kschl,&lt;/P&gt;&lt;P&gt;         kmein like konv-kmein,&lt;/P&gt;&lt;P&gt;         waers like konv-waers,&lt;/P&gt;&lt;P&gt;         kpein like konv-kpein,&lt;/P&gt;&lt;P&gt;         KAWRT like konv-KAWRT,&lt;/P&gt;&lt;P&gt;      end of i_konv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : h_text&lt;/P&gt;&lt;P&gt;data: begin of h_text occurs 0.&lt;/P&gt;&lt;P&gt;        include structure thead.&lt;/P&gt;&lt;P&gt;data: end of h_text.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Declearation Of Internal Table : text_lines&lt;/P&gt;&lt;P&gt;data: begin of text_lines occurs 0.&lt;/P&gt;&lt;P&gt;        include structure tline.&lt;/P&gt;&lt;P&gt;data: end of text_lines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;data : w_name(70).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Variable For Object Name&lt;/P&gt;&lt;P&gt;data: obj_name(10) type c value 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Variable For Datadrop&lt;/P&gt;&lt;P&gt;data : datadrop(4).&lt;/P&gt;&lt;P&gt;data: ln type i.&lt;/P&gt;&lt;P&gt;*Variable For Hash Field&lt;/P&gt;&lt;P&gt;data: cnt1(20),cnt2(20),cnt3(20),cnt4(20),cnt5(20).&lt;/P&gt;&lt;P&gt;data : date1(10),&lt;/P&gt;&lt;P&gt;       date2(10).&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Variable For Data Sets&lt;/P&gt;&lt;P&gt;data :       dataset1 like rlgrap-filename value '/var/sapgl/migrate',&lt;/P&gt;&lt;P&gt;             dataset2 like rlgrap-filename value '/var/sapgl/migrate',&lt;/P&gt;&lt;P&gt;             dataset3 like rlgrap-filename value '/var/sapgl/migrate',&lt;/P&gt;&lt;P&gt;             dataset4 like rlgrap-filename value '/var/sapgl/migrate',&lt;/P&gt;&lt;P&gt;             dataset5 like rlgrap-filename value '/var/sapgl/migrate'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**Selection Screen&lt;/P&gt;&lt;P&gt;selection-screen skip 2.&lt;/P&gt;&lt;P&gt;selection-screen begin of block b1 with frame title text-t01.&lt;/P&gt;&lt;P&gt;parameters : mc1 radiobutton group rad1,&lt;/P&gt;&lt;P&gt;             mc2 radiobutton group rad1,&lt;/P&gt;&lt;P&gt;             mc3 radiobutton group rad1,&lt;/P&gt;&lt;P&gt;             im1 radiobutton group rad1,&lt;/P&gt;&lt;P&gt;             tr1 radiobutton group rad1 default 'X',&lt;/P&gt;&lt;P&gt;             pt1 radiobutton group rad1.&lt;/P&gt;&lt;P&gt;selection-screen end of block b1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;at selection-screen on radiobutton group rad1.&lt;/P&gt;&lt;P&gt;  if mc1 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/MC1'.&lt;/P&gt;&lt;P&gt;  elseif mc2 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/MC2'.&lt;/P&gt;&lt;P&gt;  elseif mc3 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/MC3'.&lt;/P&gt;&lt;P&gt;  elseif im1 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/IM1'.&lt;/P&gt;&lt;P&gt;  elseif tr1 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/TR1'.&lt;/P&gt;&lt;P&gt;  elseif pt1 = 'X'.&lt;/P&gt;&lt;P&gt;    datadrop = '/PT1'.&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;start of selection&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;start-of-selection.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Subroutine To Select The Data&lt;/P&gt;&lt;P&gt;  perform select_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Subroutine To Process The Data&lt;/P&gt;&lt;P&gt;  perform process_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Down Load The Data To The Application Server&lt;/P&gt;&lt;P&gt;  perform download_app_server.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM select_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  data : v1(3) value '26%',&lt;/P&gt;&lt;P&gt;         v2(3) value '46%',&lt;/P&gt;&lt;P&gt;         v3(3) value '66%',&lt;/P&gt;&lt;P&gt;         v4(2) value 'C%',&lt;/P&gt;&lt;P&gt;         v5(2) value 'N%'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*select data from EKPO&lt;/P&gt;&lt;P&gt;  select  ebeln ebelp  matnr werks txz01 matkl  brtwr bprme&lt;/P&gt;&lt;P&gt;          menge meins mwskz netpr untto uebto uebtk loekz&lt;/P&gt;&lt;P&gt;   from ekpo into table i_ekpo&lt;/P&gt;&lt;P&gt;   where ( ebeln like  v1 or&lt;/P&gt;&lt;P&gt;           ebeln like  v2 or&lt;/P&gt;&lt;P&gt;           ebeln like  v3 or&lt;/P&gt;&lt;P&gt;           ebeln like  v4 or&lt;/P&gt;&lt;P&gt;           ebeln like  v5 )&lt;/P&gt;&lt;P&gt;  and  werks not in ('ADMN','LGHS','XO01','NGM1','ADMM').&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  sort i_ekpo by ebeln ebelp.&lt;/P&gt;&lt;P&gt;*select data from EKKO&lt;/P&gt;&lt;P&gt;  if not i_ekpo[] is initial.&lt;/P&gt;&lt;P&gt;    select ebeln waers kdatb kdate ekorg lifnr ekgrp&lt;/P&gt;&lt;P&gt;           zterm bukrs inco1 inco2 ktwrt knumv&lt;/P&gt;&lt;P&gt;    from ekko into table i_ekko for all entries in i_ekpo&lt;/P&gt;&lt;P&gt;    where  ebeln = i_ekpo-ebeln&lt;/P&gt;&lt;P&gt;           and kdate ge '20071001'."R001&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*select data from EKPA&lt;/P&gt;&lt;P&gt;  if not i_ekpo[] is initial.&lt;/P&gt;&lt;P&gt;    select ebeln ebelp parvw lifn2&lt;/P&gt;&lt;P&gt;    from ekpa into table i_ekpa for all entries in i_ekpo&lt;/P&gt;&lt;P&gt;    where ebeln = i_ekpo-ebeln&lt;/P&gt;&lt;P&gt;      and werks = i_ekpo-werks.&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;*select data from KONV&lt;/P&gt;&lt;P&gt;  if not i_ekko[] is initial.&lt;/P&gt;&lt;P&gt;    select knumv  kschl kmein waers kpein kawrt&lt;/P&gt;&lt;P&gt;    from konv into table i_konv for all entries in i_ekko&lt;/P&gt;&lt;P&gt;     where  knumv = i_ekko-knumv.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " select_data&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM process_data.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  loop at i_ekpo.&lt;/P&gt;&lt;P&gt;    i_contracts2-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts2-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts2-matnr = i_ekpo-matnr.&lt;/P&gt;&lt;P&gt;    i_contracts2-werks = i_ekpo-werks.&lt;/P&gt;&lt;P&gt;    i_contracts2-txz01 = i_ekpo-txz01.&lt;/P&gt;&lt;P&gt;    i_contracts2-matkl = i_ekpo-matkl.&lt;/P&gt;&lt;P&gt;    i_contracts2-meins1 = i_ekpo-meins.&lt;/P&gt;&lt;P&gt;    i_contracts2-meins2 = i_ekpo-meins.&lt;/P&gt;&lt;P&gt;    i_contracts2-brtwr = i_ekpo-brtwr.&lt;/P&gt;&lt;P&gt;    i_contracts2-bprme1 = i_ekpo-bprme.&lt;/P&gt;&lt;P&gt;    i_contracts2-bprme2 = i_ekpo-bprme.&lt;/P&gt;&lt;P&gt;    i_contracts2-menge = i_ekpo-menge.&lt;/P&gt;&lt;P&gt;    i_contracts2-waers = '     '.&lt;/P&gt;&lt;P&gt;    i_contracts2-mwskz = i_ekpo-mwskz.&lt;/P&gt;&lt;P&gt;    i_contracts2-netpr = i_ekpo-netpr.&lt;/P&gt;&lt;P&gt;    i_contracts2-untto = i_ekpo-untto.&lt;/P&gt;&lt;P&gt;    i_contracts2-uebto = i_ekpo-uebto.&lt;/P&gt;&lt;P&gt;    i_contracts2-uebtk = i_ekpo-uebtk.&lt;/P&gt;&lt;P&gt;    i_contracts2-loekz = i_ekpo-loekz.&lt;/P&gt;&lt;P&gt;    i_contracts2-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i4 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i5 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i6 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i7 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i8 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i9 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i10 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i11 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i12 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i13 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i14 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i15 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i16 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i17 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts2-i18 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts2.&lt;/P&gt;&lt;P&gt;    clear i_contracts2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**get standard Texts  for K01&lt;/P&gt;&lt;P&gt;    clear w_name.&lt;/P&gt;&lt;P&gt;    concatenate i_ekpo-ebeln  i_ekpo-ebelp  into w_name.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    CALL FUNCTION 'READ_TEXT'&lt;/P&gt;&lt;P&gt;         EXPORTING&lt;/P&gt;&lt;P&gt;              ID                      = 'K01'&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 'E'&lt;/P&gt;&lt;P&gt;              NAME                    = w_name&lt;/P&gt;&lt;P&gt;              OBJECT                  = 'EKPO'&lt;/P&gt;&lt;P&gt;         IMPORTING&lt;/P&gt;&lt;P&gt;              HEADER                  = h_text&lt;/P&gt;&lt;P&gt;         TABLES&lt;/P&gt;&lt;P&gt;              LINES                   = text_lines&lt;/P&gt;&lt;P&gt;         EXCEPTIONS&lt;/P&gt;&lt;P&gt;              ID                      = 1&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 2&lt;/P&gt;&lt;P&gt;              NAME                    = 3&lt;/P&gt;&lt;P&gt;              NOT_FOUND               = 4&lt;/P&gt;&lt;P&gt;              OBJECT                  = 5&lt;/P&gt;&lt;P&gt;              REFERENCE_CHECK         = 6&lt;/P&gt;&lt;P&gt;              WRONG_ACCESS_TO_ARCHIVE = 7&lt;/P&gt;&lt;P&gt;              OTHERS                  = 8.&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      read table text_lines index 1.&lt;/P&gt;&lt;P&gt;      if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts5-tdline = text_lines-tdline.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts5-tdid = 'K01'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts5.&lt;/P&gt;&lt;P&gt;    clear : i_contracts5, h_text, text_lines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**get standard Texts  for K02&lt;/P&gt;&lt;P&gt;    CALL FUNCTION 'READ_TEXT'&lt;/P&gt;&lt;P&gt;         EXPORTING&lt;/P&gt;&lt;P&gt;              ID                      = 'K02'&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 'E'&lt;/P&gt;&lt;P&gt;              NAME                    = w_name&lt;/P&gt;&lt;P&gt;              OBJECT                  = 'EKPO'&lt;/P&gt;&lt;P&gt;         IMPORTING&lt;/P&gt;&lt;P&gt;              HEADER                  = h_text&lt;/P&gt;&lt;P&gt;         TABLES&lt;/P&gt;&lt;P&gt;              LINES                   = text_lines&lt;/P&gt;&lt;P&gt;         EXCEPTIONS&lt;/P&gt;&lt;P&gt;              ID                      = 1&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 2&lt;/P&gt;&lt;P&gt;              NAME                    = 3&lt;/P&gt;&lt;P&gt;              NOT_FOUND               = 4&lt;/P&gt;&lt;P&gt;              OBJECT                  = 5&lt;/P&gt;&lt;P&gt;              REFERENCE_CHECK         = 6&lt;/P&gt;&lt;P&gt;              WRONG_ACCESS_TO_ARCHIVE = 7&lt;/P&gt;&lt;P&gt;              OTHERS                  = 8.&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      read table text_lines index 1.&lt;/P&gt;&lt;P&gt;      if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts5-tdline = text_lines-tdline.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts5-tdid = 'K02'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts5.&lt;/P&gt;&lt;P&gt;    clear : i_contracts5, h_text, text_lines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**get standard Texts  for K03&lt;/P&gt;&lt;P&gt;    CALL FUNCTION 'READ_TEXT'&lt;/P&gt;&lt;P&gt;         EXPORTING&lt;/P&gt;&lt;P&gt;              ID                      = 'K03'&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 'E'&lt;/P&gt;&lt;P&gt;              NAME                    = w_name&lt;/P&gt;&lt;P&gt;              OBJECT                  = 'EKPO'&lt;/P&gt;&lt;P&gt;         IMPORTING&lt;/P&gt;&lt;P&gt;              HEADER                  = h_text&lt;/P&gt;&lt;P&gt;         TABLES&lt;/P&gt;&lt;P&gt;              LINES                   = text_lines&lt;/P&gt;&lt;P&gt;         EXCEPTIONS&lt;/P&gt;&lt;P&gt;              ID                      = 1&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 2&lt;/P&gt;&lt;P&gt;              NAME                    = 3&lt;/P&gt;&lt;P&gt;              NOT_FOUND               = 4&lt;/P&gt;&lt;P&gt;              OBJECT                  = 5&lt;/P&gt;&lt;P&gt;              REFERENCE_CHECK         = 6&lt;/P&gt;&lt;P&gt;              WRONG_ACCESS_TO_ARCHIVE = 7&lt;/P&gt;&lt;P&gt;              OTHERS                  = 8.&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      read table text_lines index 1.&lt;/P&gt;&lt;P&gt;      if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts5-tdline = text_lines-tdline.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts5-tdid = 'K03'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts5.&lt;/P&gt;&lt;P&gt;    clear : i_contracts5, h_text, text_lines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**get standard Texts  for K04&lt;/P&gt;&lt;P&gt;    CALL FUNCTION 'READ_TEXT'&lt;/P&gt;&lt;P&gt;         EXPORTING&lt;/P&gt;&lt;P&gt;              ID                      = 'K04'&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 'E'&lt;/P&gt;&lt;P&gt;              NAME                    = w_name&lt;/P&gt;&lt;P&gt;              OBJECT                  = 'EKPO'&lt;/P&gt;&lt;P&gt;         IMPORTING&lt;/P&gt;&lt;P&gt;              HEADER                  = h_text&lt;/P&gt;&lt;P&gt;         TABLES&lt;/P&gt;&lt;P&gt;              LINES                   = text_lines&lt;/P&gt;&lt;P&gt;         EXCEPTIONS&lt;/P&gt;&lt;P&gt;              ID                      = 1&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 2&lt;/P&gt;&lt;P&gt;              NAME                    = 3&lt;/P&gt;&lt;P&gt;              NOT_FOUND               = 4&lt;/P&gt;&lt;P&gt;              OBJECT                  = 5&lt;/P&gt;&lt;P&gt;              REFERENCE_CHECK         = 6&lt;/P&gt;&lt;P&gt;              WRONG_ACCESS_TO_ARCHIVE = 7&lt;/P&gt;&lt;P&gt;              OTHERS                  = 8.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      read table text_lines index 1.&lt;/P&gt;&lt;P&gt;      if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts5-tdline = text_lines-tdline.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts5-tdid = 'K04'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts5.&lt;/P&gt;&lt;P&gt;    clear : i_contracts5, h_text, text_lines.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;**get standard Texts  for K05&lt;/P&gt;&lt;P&gt;    CALL FUNCTION 'READ_TEXT'&lt;/P&gt;&lt;P&gt;         EXPORTING&lt;/P&gt;&lt;P&gt;              ID                      = 'K05'&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 'E'&lt;/P&gt;&lt;P&gt;              NAME                    = w_name&lt;/P&gt;&lt;P&gt;              OBJECT                  = 'EKPO'&lt;/P&gt;&lt;P&gt;         IMPORTING&lt;/P&gt;&lt;P&gt;              HEADER                  = h_text&lt;/P&gt;&lt;P&gt;         TABLES&lt;/P&gt;&lt;P&gt;              LINES                   = text_lines&lt;/P&gt;&lt;P&gt;         EXCEPTIONS&lt;/P&gt;&lt;P&gt;              ID                      = 1&lt;/P&gt;&lt;P&gt;              LANGUAGE                = 2&lt;/P&gt;&lt;P&gt;              NAME                    = 3&lt;/P&gt;&lt;P&gt;              NOT_FOUND               = 4&lt;/P&gt;&lt;P&gt;              OBJECT                  = 5&lt;/P&gt;&lt;P&gt;              REFERENCE_CHECK         = 6&lt;/P&gt;&lt;P&gt;              WRONG_ACCESS_TO_ARCHIVE = 7&lt;/P&gt;&lt;P&gt;              OTHERS                  = 8.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      read table text_lines index 1.&lt;/P&gt;&lt;P&gt;      if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts5-tdline = text_lines-tdline.&lt;/P&gt;&lt;P&gt;      endif.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts5-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts5-tdid = 'K05'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts5-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts5.&lt;/P&gt;&lt;P&gt;    clear : i_contracts5, h_text, text_lines.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;***Populate i_contracts1&lt;/P&gt;&lt;P&gt;  loop at i_ekko.&lt;/P&gt;&lt;P&gt;    i_contracts1-ebeln = i_ekko-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts1-waers1 = i_ekko-waers.&lt;/P&gt;&lt;P&gt;    i_contracts1-waers2 = i_ekko-waers.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    if i_ekko-kdatb ne '00000000'.&lt;/P&gt;&lt;P&gt;      concatenate i_ekko-kdatb&lt;EM&gt;6(2) '/' i_ekko-kdatb&lt;/EM&gt;4(2) '/'&lt;/P&gt;&lt;P&gt;                   i_ekko-kdatb(4) into date1.&lt;/P&gt;&lt;P&gt;      i_contracts1-date1 = date1.&lt;/P&gt;&lt;P&gt;    else.&lt;/P&gt;&lt;P&gt;      date1 = '          '.&lt;/P&gt;&lt;P&gt;      i_contracts1-date1 = date1.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    if i_ekko-kdate ne '00000000'.&lt;/P&gt;&lt;P&gt;      concatenate i_ekko-kdate&lt;EM&gt;6(2) '/' i_ekko-kdate&lt;/EM&gt;4(2) '/'&lt;/P&gt;&lt;P&gt;                   i_ekko-kdate(4) into date2.&lt;/P&gt;&lt;P&gt;      i_contracts1-date2 = date2.&lt;/P&gt;&lt;P&gt;    else.&lt;/P&gt;&lt;P&gt;      date2 = '          '.&lt;/P&gt;&lt;P&gt;      i_contracts1-date2 = date2.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    i_contracts1-ekorg1 = i_ekko-ekorg.&lt;/P&gt;&lt;P&gt;    i_contracts1-ekorg2 = i_ekko-ekorg.&lt;/P&gt;&lt;P&gt;    i_contracts1-lifnr = i_ekko-lifnr.&lt;/P&gt;&lt;P&gt;    i_contracts1-ekgrp = i_ekko-ekgrp.&lt;/P&gt;&lt;P&gt;    i_contracts1-zterm = i_ekko-zterm.&lt;/P&gt;&lt;P&gt;    i_contracts1-bukrs = i_ekko-bukrs.&lt;/P&gt;&lt;P&gt;    i_contracts1-inco1 = i_ekko-inco1.&lt;/P&gt;&lt;P&gt;    i_contracts1-inco2 = i_ekko-inco2.&lt;/P&gt;&lt;P&gt;    i_contracts1-ktwrt = i_ekko-ktwrt.&lt;/P&gt;&lt;P&gt;    i_contracts1-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i4 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i5 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i6 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i7 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i8 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i9 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i10 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i11 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i12 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts1-i13 = 'Ï'.&lt;/P&gt;&lt;P&gt;    append i_contracts1.&lt;/P&gt;&lt;P&gt;    clear i_contracts1.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;***Populate i_contracts4&lt;/P&gt;&lt;P&gt;  loop at i_ekpo.&lt;/P&gt;&lt;P&gt;    i_contracts4-ebelp = i_ekpo-ebelp.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    read table i_ekko with key ebeln = i_ekpo-ebeln.&lt;/P&gt;&lt;P&gt;    if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;      i_contracts4-ebeln = i_ekko-ebeln.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;      read table i_konv with key  knumv = i_ekko-knumv.&lt;/P&gt;&lt;P&gt;       if sy-subrc = 0.&lt;/P&gt;&lt;P&gt;        i_contracts4-kschl = i_konv-kschl.&lt;/P&gt;&lt;P&gt;        i_contracts4-kmein = i_konv-kmein.&lt;/P&gt;&lt;P&gt;        i_contracts4-waers = i_konv-waers.&lt;/P&gt;&lt;P&gt;        i_contracts4-kpein = i_konv-kpein.&lt;/P&gt;&lt;P&gt;        i_contracts4-KAWRT = i_konv-KAWRT.&lt;/P&gt;&lt;UL&gt;&lt;LI level="1" type="ul"&gt;&lt;P&gt;       MOVE i_konv-KAWRT TO i_contracts4-KAWRT.&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;P&gt;        endif.&lt;/P&gt;&lt;P&gt;        i_contracts4-i1   = 'Ï'.&lt;/P&gt;&lt;P&gt;        i_contracts4-i2   = 'Ï'.&lt;/P&gt;&lt;P&gt;        i_contracts4-i3   = 'Ï'.&lt;/P&gt;&lt;P&gt;        i_contracts4-i4   = 'Ï'.&lt;/P&gt;&lt;P&gt;        i_contracts4-i5   = 'Ï'.&lt;/P&gt;&lt;P&gt;        i_contracts4-i6  = 'Ï'.&lt;/P&gt;&lt;P&gt;        append i_contracts4.&lt;/P&gt;&lt;P&gt;        clear i_contracts4.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;***Populate i_contracts3&lt;/P&gt;&lt;P&gt;  loop at i_ekpa.&lt;/P&gt;&lt;P&gt;    i_contracts3-ebeln = i_ekpa-ebeln.&lt;/P&gt;&lt;P&gt;    i_contracts3-ebelp = i_ekpa-ebelp.&lt;/P&gt;&lt;P&gt;    i_contracts3-parvw = i_ekpa-parvw.&lt;/P&gt;&lt;P&gt;    i_contracts3-lifn2 = i_ekpa-lifn2.&lt;/P&gt;&lt;P&gt;    i_contracts3-i1 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts3-i2 = 'Ï'.&lt;/P&gt;&lt;P&gt;    i_contracts3-i3 = 'Ï'.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;    append i_contracts3.&lt;/P&gt;&lt;P&gt;    clear i_contracts3.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " process_data&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM download_app_server.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  concatenate  dataset1 datadrop '_' obj_name '_' '0010'  '_'&lt;/P&gt;&lt;P&gt;                          sy-datum '_' '01' '.DAT' into dataset1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  concatenate  dataset2 datadrop '_' obj_name '_' '0020' '_'&lt;/P&gt;&lt;P&gt;                         sy-datum  '_' '01' '.DAT' into dataset2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  concatenate  dataset3 datadrop '_' obj_name '_' '0030'  '_'&lt;/P&gt;&lt;P&gt;                          sy-datum '_' '01' '.DAT' into dataset3.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  concatenate  dataset4 datadrop '_' obj_name '_' '0040'  '_'&lt;/P&gt;&lt;P&gt;                          sy-datum '_' '01' '.DAT' into dataset4.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  concatenate  dataset5 datadrop '_' obj_name '_' '0050'  '_'&lt;/P&gt;&lt;P&gt;                          sy-datum '_' '01' '.DAT' into dataset5.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Create First Data Set&lt;/P&gt;&lt;P&gt;  perform open_dataset using dataset1.&lt;/P&gt;&lt;P&gt;  transfer text-001 to dataset1.&lt;/P&gt;&lt;P&gt;  loop at i_contracts1.&lt;/P&gt;&lt;P&gt;    transfer i_contracts1 to dataset1.&lt;/P&gt;&lt;P&gt;    if  i_contracts1-ebeln+0(1) ca '0123456789'.&lt;/P&gt;&lt;P&gt;      cnt1 = cnt1 + i_contracts1-ebeln.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;  perform close_dataset using dataset1.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Create Second Data Set&lt;/P&gt;&lt;P&gt;  perform open_dataset using dataset2.&lt;/P&gt;&lt;P&gt;  transfer text-002 to dataset2.&lt;/P&gt;&lt;P&gt;  loop at i_contracts2.&lt;/P&gt;&lt;P&gt;    transfer i_contracts2 to dataset2.&lt;/P&gt;&lt;P&gt;    if  i_contracts2-matnr+0(1) ca '0123456789'.&lt;/P&gt;&lt;P&gt;      cnt2 = cnt2 + i_contracts2-matnr.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;  perform close_dataset using dataset2.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Create Third Data Set&lt;/P&gt;&lt;P&gt;  perform open_dataset using dataset3.&lt;/P&gt;&lt;P&gt;  transfer text-003 to dataset3.&lt;/P&gt;&lt;P&gt;  loop at i_contracts3.&lt;/P&gt;&lt;P&gt;    transfer i_contracts3 to dataset3.&lt;/P&gt;&lt;P&gt;    if  i_contracts3-ebeln+0(1) ca '0123456789'.&lt;/P&gt;&lt;P&gt;      cnt3 = cnt3 + i_contracts3-ebeln.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;  perform close_dataset using dataset3.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Create Fourth Data Set&lt;/P&gt;&lt;P&gt;  perform open_dataset using dataset4.&lt;/P&gt;&lt;P&gt;  transfer text-004 to dataset4.&lt;/P&gt;&lt;P&gt;  loop at i_contracts4.&lt;/P&gt;&lt;P&gt;    transfer i_contracts4 to dataset4.&lt;/P&gt;&lt;P&gt;    if  i_contracts4-ebeln+0(1) ca '0123456789'.&lt;/P&gt;&lt;P&gt;      cnt4 = cnt4 + i_contracts4-ebeln.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;  perform close_dataset using dataset4.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*Create Fifth Data Set&lt;/P&gt;&lt;P&gt;  perform open_dataset using dataset5.&lt;/P&gt;&lt;P&gt;  transfer text-005 to dataset5.&lt;/P&gt;&lt;P&gt;  loop at i_contracts5.&lt;/P&gt;&lt;P&gt;    transfer i_contracts5 to dataset5.&lt;/P&gt;&lt;P&gt;    if  i_contracts5-ebeln+0(1) ca '0123456789'.&lt;/P&gt;&lt;P&gt;      cnt5 = cnt5 + i_contracts5-ebeln.&lt;/P&gt;&lt;P&gt;    endif.&lt;/P&gt;&lt;P&gt;  endloop.&lt;/P&gt;&lt;P&gt;  perform close_dataset using dataset5.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;Audit &amp;amp; Reconcilation for Rec-id 0010&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  describe table i_contracts1 lines  ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-object = 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-ext_date = sy-datum.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_id = '0010'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_cnt = ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_cnt = '14'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-hash = cnt1.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_name = 'EBELN-Purchasing document number'.&lt;/P&gt;&lt;P&gt;  modify zerp_extract_anr from zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;Audit &amp;amp; Reconcilation for Rec-id 0020&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  describe table i_contracts2 lines  ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-object = 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-ext_date = sy-datum.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_id = '0020'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_cnt = ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_cnt = '19'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-hash = cnt2.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_name = 'MATNR-Material number'.&lt;/P&gt;&lt;P&gt;  modify zerp_extract_anr from zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;Audit &amp;amp; Reconcilation for Rec-id 0030&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  describe table i_contracts3 lines  ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-object = 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-ext_date = sy-datum.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_id = '0030'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_cnt = ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_cnt = '4'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-hash = cnt3.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_name = 'EBELN-Purchasing document number'.&lt;/P&gt;&lt;P&gt;  modify zerp_extract_anr from zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;Audit &amp;amp; Reconcilation for Rec-id 0040&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  describe table i_contracts4 lines  ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-object = 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-ext_date = sy-datum.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_id = '0040'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_cnt = ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_cnt = '07'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-hash = cnt4.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_name = 'EBELN-Purchasing document number'.&lt;/P&gt;&lt;P&gt;  modify zerp_extract_anr from zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;UL&gt;&lt;UL&gt;&lt;LI level="2" type="ul"&gt;&lt;P&gt;Audit &amp;amp; Reconcilation for Rec-id 0050&lt;/P&gt;&lt;/LI&gt;&lt;/UL&gt;&lt;/UL&gt;&lt;P&gt;  describe table i_contracts5 lines  ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-object = 'SCM_C_46'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-ext_date = sy-datum.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_id = '0050'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-rec_cnt = ln.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_cnt = '04'.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-hash = cnt5.&lt;/P&gt;&lt;P&gt;  zerp_extract_anr-column_name = 'EBELN-Purchasing document number'.&lt;/P&gt;&lt;P&gt;  modify zerp_extract_anr from zerp_extract_anr.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " download_app_server&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM open_dataset USING    P_DATASET.&lt;/P&gt;&lt;P&gt;  open dataset p_dataset for output in  text mode.&lt;/P&gt;&lt;P&gt;  if sy-subrc &amp;lt;&amp;gt; 0.&lt;/P&gt;&lt;P&gt;    write: / text-e00, sy-subrc.&lt;/P&gt;&lt;P&gt;    stop.&lt;/P&gt;&lt;P&gt;  endif.&lt;/P&gt;&lt;P&gt;ENDFORM.                    " open_dataset&lt;/P&gt;&lt;P&gt;*&amp;amp;----&lt;/P&gt;&lt;HR originaltext="---------------------------------------------------------------" /&gt;&lt;P&gt;*&lt;/P&gt;&lt;P&gt;FORM close_dataset USING    P_DATASET.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;  close dataset p_dataset.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;ENDFORM.                    " close_dataset&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Reaward points if helpful.&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards.&lt;/P&gt;&lt;P&gt;Srikanta Gope&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 17 Jul 2007 13:10:43 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496369#M563799</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-07-17T13:10:43Z</dc:date>
    </item>
    <item>
      <title>Re: File Creation direct into Application Server</title>
      <link>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496370#M563800</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;Here is the simple example Program&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;PRE&gt;&lt;CODE&gt;[code]*&amp;amp;---------------------------------------------------------------------*
*&amp;amp; Report  ZUPLOADTAB                                                  *
*&amp;amp;                                                                     *
*&amp;amp;---------------------------------------------------------------------*
*&amp;amp; Example of Uploading tab delimited file                             *
*&amp;amp;                                                                     *
*&amp;amp;---------------------------------------------------------------------*
REPORT  zuploadtab                    .

PARAMETERS: p_infile  LIKE rlgrap-filename
                        OBLIGATORY DEFAULT  '/usr/sap/'..

DATA: ld_file LIKE rlgrap-filename.

*Internal tabe to store upload data
TYPES: BEGIN OF t_record,
    name1 like pa0002-VORNA,
    name2 like pa0002-name2,
    age   type i,
    END OF t_record.
DATA: it_record TYPE STANDARD TABLE OF t_record INITIAL SIZE 0,
      wa_record TYPE t_record.

*Text version of data table
TYPES: begin of t_uploadtxt,
  name1(10) type c,
  name2(15) type c,
  age(5)  type c,
 end of t_uploadtxt.
DATA: wa_uploadtxt TYPE t_uploadtxt.

*String value to data in initially.
DATA: wa_string(255) type c.

constants: con_tab TYPE x VALUE '09'.

*If you have Unicode check active in program attributes then you will
*need to declare constants as follows:

*class cl_abap_char_utilities definition load.
*constants:
*    con_tab  type c value cl_abap_char_utilities=&amp;gt;HORIZONTAL_TAB.



************************************************************************
*START-OF-SELECTION
START-OF-SELECTION.
ld_file = p_infile.
OPEN DATASET ld_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
ELSE.
  DO.
    CLEAR: wa_string, wa_uploadtxt.
    READ DATASET ld_file INTO wa_string.
    IF sy-subrc NE 0.
      EXIT.
    ELSE.
      SPLIT wa_string AT con_tab INTO wa_uploadtxt-name1
                                      wa_uploadtxt-name2
                                      wa_uploadtxt-age.
      MOVE-CORRESPONDING wa_uploadtxt TO wa_upload.
      APPEND wa_upload TO it_record.
    ENDIF.
  ENDDO.
  CLOSE DATASET ld_file.
ENDIF.


************************************************************************
*END-OF-SELECTION
END-OF-SELECTION.
*!! Text data is now contained within the internal table IT_RECORD

* Display report data for illustration purposes
  loop at it_record into wa_record.
    write:/     sy-vline,
           (10) wa_record-name1, sy-vline,
           (10) wa_record-name2, sy-vline,
           (10) wa_record-age, sy-vline.
  endloop.&lt;/CODE&gt;&lt;/PRE&gt;&lt;P&gt;[/code]&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;&lt;/P&gt;&lt;P&gt;Regards&lt;/P&gt;&lt;P&gt; Sudheer&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Tue, 17 Jul 2007 13:13:23 GMT</pubDate>
      <guid>https://community.sap.com/t5/application-development-and-automation-discussions/file-creation-direct-into-application-server/m-p/2496370#M563800</guid>
      <dc:creator>Former Member</dc:creator>
      <dc:date>2007-07-17T13:13:23Z</dc:date>
    </item>
  </channel>
</rss>

