SAP Multiresource Scheduling MRS 700 - Help

Dear all,
I am looking for additional information regarding SAP Multiresource Scheduling.
The main is to control the detailed planning and capacity of a group of 150 resources, splitted in different sub teams, attached to different roles, with different skills and working potentially on 1 to n projects. We would like to control the detailed capacity and planning at the resources level. Currently all our projects are stored in the NPDI system.
I would like to know :
-if it is possible?
-if it is manageable with a solution not "too heavy" and complex to manage
-if somebody has a similar experience
Thanks a lot for your quick help.
Regards,
Patrick

Hi
With respect to the question I can tell you that the dump is generated because in configuration was not adding mrss positions on the screen Planner inside SPRO options:
Set up scheduler workplace -> Workplace Profile -> Define User Interface Profiles
Within this option exists Maintain Container positions in the layout
Regards
Damy

Similar Messages

KM Scheduler Task vs SAP Netweaver Scheduler for java

Hi Experts,
I need to know the key differences between KM Scheduler task implementation and SAP Netweaver Scheduler for java task implementation. Which one is better and why?
Thanks for looking into this and for you patience in answering the question.
Regards,
Kiran K Grandhi.

Hi,
Please look at this help
[SAP NetWeaver Scheduler for Java|http://help.sap.com/saphelp_nwce10/helpdata/en/44/03d66015ee10b3e10000000a11466f/content.htm] and [KM Scheduler task|http://help.sap.com/saphelp_nw04s/helpdata/en/3a/bc37b5789dee4eaa8005bff84f14cf/content.htm]
Best Regards
Vijay K

Multiresource Scheduling within Unconstrained Plan

Hello,
We are 12.0.6 hybrid manufacturing (Discrete and OSFM) using Unconstrained Plan.
When scheduling planned order for Make items the system calculates the Order Date according to the following formula:
Due Date-Fixed Lead Time-(Variable Lead Time*Planned Order Qty)-PreProcessing Lead Time.
Assuming Planned Order:
- for 10 units
- lead time 30 days (5 fixed+25 variable)
- order date calculation = 5+25*10
This is under an assumption that there is one resource performing that job.
We have multiple resource!
According to ASCP Documentation, chapter 6-105, "Multiresource Scheduling" the system has to schedule the planned orders simultaneously. This feature is contolled by 'Round Order Quantities" attribute at item level.
In our tests, I'm using item with this attribute as Checked.
Unfortunately, the system still schedule the planned orders in sequence, one by one. By that, Planned Order Date is moved beyond the items lead time.
What is the way to set the multiple resource working within Unconstrained Plan.
Taking into account multiple resource should shorten Order Date calculation.
I will appreciate any help.
Regards,
Max.

Dear Max
Have you defined the resources , attached routing to the item etc?. Not sure without that definition how will system know that you have x number of multiple resources..
Thnx
Partha

Is there any Data Mapping document Between S&OP ( model that uses supply planning operator ) and SAP ECC that I will help the client in Data Mapping activity.

Hello All,
Is there any Data Mapping document Between S&OP ( model that uses supply planning operator ) and SAP ECC that I will help in Data Mapping activity.
Thanks,
Mownesh

There are standard templates in HCI data sources.
e.g. 1) Customer Master data template is SOP_MD_CustomerMaster for extracting master data from SAP ECC and load it to S&OP
KNVP is the table for customer in ECC from that you can select the fields as required
KUNNR for customer Number
ADRNR for Address
List of a few commonly used table names of ECC:
Product Related:
MARA – Material Master (MATNR)
MARC – Material Master with Plant Data (MATNR, WERKS)
MARD – Material Master with Storage Location Data (MATNR, LGORT, WERKS)
MAKT – Material Master Material Descriptions (MATNR, MATKL)
MBEW – Material Valuation Data (MATNR, BWTAR)
MVKE – Material Master : Sales related Data
MDKP, MDTB – MRP related Data( Header, Item)
MCHA, MCHB – Material Batches (Header, Item) (MATNR, WERKS, LGORT, CHARG)
Vendor/Supplier related:
LFA1 – vendor data (LIFNR)
LFB1 -- Company Code Segment : Vendor Data(LIFNR, BUKRS)
LFC1 -- FI Related Vendor Data (LIFNR, BELNR)
LFM1 – Pur. Orgn. Related Vendor Data (LIFNR, EKORG)
PReq/PO, BOM Related:
EBAN – Pur. Req. Data( BANFN, BNFPO, BADAT, MATNR)
EINA – Purchase Info. Record(General Data)(INFNR, MATNR, LIFNR)
EINE – Purchase Info. Record (pur. Orgn. Data) (INFNR, EKORG)
ELBK, ELBN, ELBP – Vendor Evaluation Related Data
EKKO – PO Data (Header) (EBELN, BSTYP, BSART)
EKPO – PO Data (Item) (EBELN, EBELP, MATNR)
Pur. Req., RFQ and PO are differentiated by Doc Type (BSTYP) in EKKO table.
For RFQ it is ‘A’ and for PO it is ‘F’
MKPF – GRN Data (Header) (EBELN, BLDAT, BUDAT, XBLNR, BKTXT)
MSEG – GRN Data(Item) MBLNR, BWART, LIFNR, MATNR, EBELN)
Apart from this there are lot of tables which begin with ‘M’ & ‘E’, but we
use the following very often.
EQUK – Quota (Header)(QUNUM, MATNR)
EQUP – Quota (Item) (QUNUM, QUPOS, LIFNR)
EKBE – PO History Data (EBELN, EBELP, BELNR, BLDAT, MATNR, VGABE)
EKBZ – PO History with Delivery Costs(EBELN, BELNR, LIFNR, XBLNR)
EKET – Schedule lines data of a PO(EBELN, EINDT, SLFDT)
EKES – Vendor Confirmations Data (EBELN, EBTYP, EINDT, XBLNR)
T163F – Confirmation Texts (EBTYP, EBTXT)
T156 – Movement Types (BWARE)
T024 – Purchasing Groups
T024E – Purchase Organizations
T163 – Item Category’s in Purchasing Documents(PSTYP)
T149D – Valuation Types
T134 – Material Types
FVLK – Delivery Types
STKO, STPO – BOM(Bill Of Material) related Data (Header & Item)
STPU, STPN, STST, STZU – BOM Related Tables
RKPF, RBKP, RSEG (Header & Item) – MM – FI Related Data
KONO, KONH – Pricing data
T006 – Basic Unit Of Measurements
Customer/Sales Order Related:
VBAK : Sales Document(Header Data) (VBELN)
VBAP : Sales Document(Item Data) (VBELN, POSNR, MATNR, ARKTX, CHARG)
Enquiry, Quotation, Sales Order are differentiated based on Doc.
Type(VBTYP Field) in VBAK, VBAP Tables for Enquiry VBTYP = A, for Quotation ‘B’ & for Order it is ‘C’.)
LIKP : Delivery Table(Header Data) (VBELN, LFART, KUNNR, WADAT, INCOL)
LIPS : Delivery Table(Item Data)(VBELN, POSNR, WERKS, LGORT, MATNR, VGBEL)
(LIPS – VBGELN = VBAK- VBELN, LIPS-VGPOS = VBAP-POSNR)
VTTK : Shipment Table(Header Data) (TKNUM)
VTTP : Shipment Table (Item Data)(TKNUM, TPNUM, VBELN)
(VTTP – VBELN = LIKP – VBELN)
VBRK : Billing Table(Header Data) (VBELN, FKART, BELNF)
VBRP : Billing Table(Item Data) (VBELN, POSNR, FKIMG, NEWR, VGBEL, VGPOS)
(VERP – AUBEL = VBAK- VBELN, VBRP – VBEL = LIKP – VBELN)
Apart from these tables there are lot of other tables which starts with ‘V’, but we use the
following tables frequently.
VBUK: All Sales Documents status & Admn. Data(Header) (VBELN, VBTYP)
VBTYP = ‘C’ (Sales Order) VBTYP = ‘L’(Delivery) VBTYP = ‘M’(Invoice)
VBUP: Sales Documents status & Admin. Data(Item) (VBELN, POSNR)
VBEP : Sales Document Schedule Lines Data (VBELN, POSNR, EDATU, WMENG)
VBKD: To get sales related Business data like Payment terms etc.(VBELN, ZTERM)
VBFA: Sales Document flow data(VBELV, VBELN, POSNV, VBTYP)
VBPA: Partner functions Data(VBELN, PARVW, KUNNR, LIFNR)
TVLKT: Delivery Type: Texts(LFART, VTEXT)
KNA1, KNB1, KNC1 : Customer Master Data and Other Partner’s Data(KUNNR,
NAME1,LAND1)
KNVK: Customer Master Contact Person(PARNR, KUNNR)
KNVV: Customer Master Sales Data.
LFA1, LFB1, LFC1: Vendor Master Data(To get Transporter data)(LIFNR, NAME1, ORT01)
MARA, MARC, MARD : Material Master Data(Basic, Plant, St. Location Views)
TVKO: Sales Organizations(VKORG)
TVKOV: Distribution Channels(VTWEG)
TVTA: Divisions(SPART)
TVKBZ: Sales Office(VKBUR)
TVBVK: Sales Group(VKGRP)
T077D: Customer Account Group(KTOKD)
T001W: Plants(WERKS)
T001L: Storage Locations(LGORT)
TWLAD: To get address of Storage Location and Plant(LGORT, ADRNR)
TVAU: Sales Document (Order) Types
KONV: Condition Types (pricing) (KNUMV, KSCHL, KWETR)
T685T: Condition Types Texts.
ADRC: To get Addresses of Partners
VBBE, VBBS: Sales Requirements Data
VBKA: Sales Activities Data
VBPV: Sales Document Product Proposal
Based on the functionality you can search ECC table names and fields
Hope this information is helpful for you.
Thanks and Regards,
Anjali

Search criteria is not working in Responsible Group field in sap crm could you please help me this how to achieve.

search criteria is not working in Responsible Group field in sap crm could you please help me this how to achieve.I have writen code on EH_ONSEARCH .as per below...what changess i need to do..and through partner function and adding the selection params please send the sample .
code. partner funtction - ZRG DATA :
DATA : lv_partner_fct type .
types: begin of ty_resp,
       partner    type but000-partner,
       name_last type but000-name_last,
       name_first type but000-name_first,
       mc_name1   type but000-mc_name1,
       mc_name2   type but000-mc_name2,
       end of ty_resp.
DATA: lv_resp_bp type STANDARD TABLE OF ty_resp INITIAL SIZE 0,
       lw_resp_bp type ty_resp.
IF lv_attr_name = 'Rgroup'.
lr_entity->get_property_as_value( EXPORTING iv_attr_name = if_crm_srqm_uiu_const=>gc_attr_low
                                   IMPORTING ev_result = lv_low ).
IF lv_low IS INITIAL.
SELECT partner
       name_last
       name_first
       mc_name1
      mc_name2
FROM but000 INTO table lv_resp_bp
WHERE mc_name2 = lv_low and bu_group = '0010'.
loop at lv_resp_bp into lw_resp_bp.
    lv_low = lw_resp_bp-mc_name2.
lr_query_service2->add_selection_param( iv_attr_name = 'Rgroup'
                                            iv_sign = lv_sign
                                            iv_option = lv_option
                                            iv_low = lv_low
                                            iv_high = lv_high ).
ENDLOOP.
if lv_partner_fct = 'ZRG'.
lr_entity = lr_iterator->get_next( ).
CONTINUE.
ENDIF.
lv_attr_name = 'BU_PARTNER'.
ENDIF.

<b>You can acheive   this .... first by creating the search help exit    ... by creating the maintaince view   then   using it in the   Creation of the search help </b> ...
see the link for attaching the view   to the serach help .
<a href="http://">http://www.sapdevelopment.co.uk/dictionary/shelp/shelp_elementary.htm</a>
reward points if it is usefull...
Girish

SAP query transport error - need help

hello,
The system is throwing the following error when importing the query from development to QA client.
We already have the query imported the first time without errors. This is happening with subsequent transports if there is a change or any modification to the query.
Below is the error log from SAP regarding the failed transport :
R3TRAQQUFI was repaired in this system
Message no. TW104
Diagnosis
Object R3TRAQQUFI is in repair status. Therefore, it cannot be imported.
System Response
The object is not imported.
Procedure
If you still want to import the object, release the relevant repair and repeat the import.
Please help
Thanks in advance.

Hi
Here I am sending the step by step procedure for the SAP Query. Hope this helps you, if so please issue points.
1. Go to SQ02 .
Select Environment -> Query Areas
Select Standard Area (Client specific) as show below
2. Select Environment -> Transports
Select Import radio button
Check Overwriting allowed (only with import/upload/copy)
Remove Check for Test Run
Select Transport InfoSets and queries radio button
Fill Infoset and Query with corresponding names
Fill Import option with transport request number.
3. Click on Execute button
With this it will be done.
Thanks for your patience

If i want to learn unix-HP for SAP at first stage, please help me.

Dear Friend,
If i want to learn unix-HP for SAP at first stage, please help me.
Thanks,
Regards,
sachin

Hi Sachin,
please go thru the following url
http://www.uga.edu/~ucns/wsg/unix/gstart/
and
http://whitepapers.techrepublic.com.com/whitepaper.aspx?&docid=10197&promo=100511
happy learning!
with BR,
Raj
<i> award points, plz </i>

How sap can schedule to cancel a job

i know sap can schedule a job start. Reversely, how can cancel a job schedulely.

Hi all,
1st
I think btctrns1 program will lock all jobs, you cannot specify which one, it is used during upgrade and so on -> from SE38 documentation -> "transfers all jobs with the status 'Released' to the status 'Descheduled due to upgrade'." and btctrns2 unlocks them again.
2nd
I think in SM37 you can select also jobs which are started after event, just choose event which you are interested in in job start condition part of the SM37 window and what more you can goto "flexible selection criteria" and there you have a lot of selection properties.
anyway i think if someone wants just to cancel a job it is not necesary to delete it, just select job in SM37 and in job menu upwards select "cancell active job".
schelule the cancellation is not possible i think but you can setup the parameter in profile for long running apaps to canncel after some time (unfortunatelly i dont remember the parameter name now)... maybe it could prevent long running malfunctions jobs it it is your problem.

Errors During sap 4.7 installation-kindly help

Hi friends,
I am getting 3 errors during sap 4.7 installation.kindly help.
i herewwith giving the error details:-
1. R/3 Basis System Initialization DB-Connect Failed, Return code 000256
2. R/3 Basis System: operating system call Recv failed error no. 10054
3. R/3 Basis System: Database connection Disconnected.
After i have strated the sap server(MMC) first it will goto yellow and then green and againg goes to yellow color. message and dispatcher turned to gray.
Pls help.your advise is considered very useful
Thanks and Regards,
willaim

William
What OS are you using please? (Windows I assume) On the surface, it sounds like a socket error. (i.e. the message server port is blocked by an existing application).
The dispatcher will fail as a result of the message server not being available. Would you check and post the contents of the 'dev_ms" file in the work directory? Also, contents of the dev_disp would be helpful here also.
Thanks,
Tim

MRS 7.0 - MultiResource Scheduling

Hello,
I am trying to set up MRS 7.0 and have gone through and done the configuration guide step by step. I am trying to set it up for PM/CS scenarios, with forward integration (no feedback from MRS to PM/CS orders), no splits, no qualifications in either HR or MRS, no authorization checks, no workflow and no optimizer. I want to get MRS to work for this simple scenario and then scale up the complexity step by step. I am using HR resources and am trying to do all the transactions within the SAP GUI. I am not using
I am not able to get some of the transactions working. The following come with the message that the transaction do not exist
/MRSS/HCM_RPTWFMIF
/MRSS/SGE_PN_MNT
These transactions short dump (Error analysis is the same for both the T codes)
/MRSS/PLBOMGR
/MRSS/PLBOORG
Error Analysis:
Order worklist fields are inconsistent; error: "OBJECT-" expected, not "
CRMT_OBJECT_"
Technical information about the message:
Message class....... "/MRSS/SGU"
Number.............. 899
Variable 1.......... ""OBJECT-" expected, not "CRMT_OBJECT_""
Standard SAP worklist has not been modified.
Resource Planning node and evaluation path has been maintained as suggested in the config guide.
HR work center and Logistics work center (via T code PO01) has been maintained.
Would appreciate if you could help me out get past the hurdles I am facing.
Thanks
Venky

Hello MRS experts,
I need your help in doing the following config steps. We are on MRS 7.0 and ECC 6.0 (both are on the same systems) and using PM/CS scenario. The current config is for forward integration without qualifications.
Point 1
Under 'Define Resource planning nodes and evaluation path', and under section 'Objects for Resource planning node' and for the field 'Evaluation path for resource planner, I cannot see the option 'OMDISPO'.
How did you get this evaluation path defined ?
Would appreciate if you could please describe the details.
Point 2
I have linked the logistics work center to a HR work center via transaction code PO01 but in the PPOME screen, I cannot see my Logistics work center and HR work center underneath the Org unit.
How has this been achieved ? Is this a prerequisite to see demands show up on the planning board ?
Would appreciate if you could please describe the details.
Point 3
When I execute the planning board transcation /MRSS/PLBOORG, I do not see any demands show up.
When I execute /MRSS/PLBOSRV transaction for the service orders, I get the message XXXXXX is not a valid demand (XXXXXX is my service order number)
I would appreciate if you could please help me out resolve the above issues.
Thanks
Venky

MRS 700 planning board alternative working schedule

Hi MRS-colleagues,
There is a button in the planning board "alternative working schedule. If I highlight one resource, Ican define an alternative working schedule for this resource, based on a period HR-subtype and daily working schedule.
My question is, if you assign this alternative working schedule to a resource, then the display and calculation of the availibility will be changed for the respective period. A business case for this could be, that you have to schedule more work to a technician than his availibility allows. The benefit compared to a attendance time allocation is, that you can create a daily work schdule and assign it for a period instead of creating attendances manually. Is that correct?
Do you have guuys have some practical cases, where this functionality is used? Are there any "bad consequences" of the usage and can I just use it permanently and then remove the "transfer availiblity" tag from the HR Transfer report?
BR
Olaf

Hi,
As you said the purpose of alernative workschedule and the HR report are same. There are no impacts if you use this button. Apart from the actual workschedule if you want to assign some more work to a technician you can do through this. This will not greyed out the planningboard for that period. on the top of availability in the gantt chart, it will be appear as a bar to identify the type of work you has assigned.
Regards
Satish

SAP R/3 issue- Please Help

Hi All,
Please help in making suggestions on an R/3 issue. The Problem is we have a standard cube 0PUR_C08 (Purchase Order Item Service Level). Could you please suggest the appropriate ODS and Standard Datasources required to load data into the target cube.
If possible , please suggest which are the most appropriate R/3 standard tables

Hi,
ODS 0PUR_O01 used to load data to cube 0PUR_C08 and the following 4 DS's are used depends on the requierements
2LIS_02_ITM Purchase Order Items
2LIS_02_SGR Allocation Schedule Line with Goods Receipt
2LIS_02_CGR Allocation Confirmation with Goods Receipt
2LIS_02_SCN Allocation Schedule Line with Confirmation
Refer the below link for more info.,
http://help.sap.com/saphelp_nw04/helpdata/en/77/5c27cf43b290408efe91148095d7ff/content.htm
Regs,
VACHAN

Multiresource Scheduling message number /MRSS/SGE032

Hi guys,
I'm trying to integrate the MRS add-on to the PM / CS. If I try to call the Planning Board for the resource planner I get a message that my user is not assigned as a planning node. Even if I try in HCM to establish a new organizational unit, it still doesn't work. I have attached the exact message as jpg.
I would be very glad if someone could help me.
Thanks in advance.
With best regards
Christian

Hi,
This is SAP Business one forum for SAP add-on. Please find correct forum and repost above discussion to get quick response.
Please close this thread here with helpful answer.
Thanks & Regards,
Nagarajan

Replenishment lead time & Scheduling Agreements - Please help

Hi,
I have a few questions & issues in regards to Replenishment lead time & Scheduling Agreements.
1.     Where are stock requirements & Replenishment lead times configured?
2.     What is a stock/requirements list?
3.     What is Replenishment lead time in MD02/MD04?
4.     Why do negative supply values appear under replenishment lead time in MD02/MD04?
5.     What are the differences between MD02 & MD04?
6.     How do you get to the following screen, since I canu2019t get here from MD02 or MD04 (missing buttons and Replenishment lead time information):
http://i34.tinypic.com/9hl9hz.jpg
Please help. This is very important.
Thanks,
Laura

Hi Laura,
The RLT can be set in the Masters Materials.MMR and Also in the Documnet Type Configuration.
But as per SAP standard Procedure the Prority will be the document type.
That means the RLT given in the Order document will overseed the RLT given in the MMR.
Go to material master and select MRP3 view. There see what is maintained for "Strategy group". Now go to OVZG, select this Requirement Class and tick the field "Rq" against this.
Now go to OVZH, select your Requirement Type and ensure that the above Requirement Class is assigned to your Requirement Type.
Now create a sale order and check in MD04.
Hope ethis helps u..
Cheerzz..
subbzz..

Hi sap gurus can any body help me

REPORT ZFIR_GRIR_IPV
        NO STANDARD PAGE HEADING
        LINE-SIZE 120
        MESSAGE-ID ZFI02.
TABLES: BSEG,BKPF.
TYPES: BEGIN OF A_FINAL,
        BUKRS   TYPE CHAR12,
        HKONT_P TYPE CHAR18,
        GJAHR   TYPE CHAR11,
        BELNR   TYPE CHAR19,
        BUDAT   TYPE CHAR12,
        WAERS   TYPE CHAR8,
        XBLNR   TYPE CHAR20,
        BLART   TYPE CHAR13,
        MONAT   TYPE CHAR13,
        DMBTR_P TYPE CHAR13,
        KOSTL   TYPE CHAR11,
        PRCTR_P TYPE CHAR13,
        HKONT_G TYPE CHAR18,
        DMBTR_G TYPE CHAR13,
        PRCTR_G TYPE CHAR13,
        BUZID_G TYPE CHAR15,
        END OF A_FINAL.
changes on 30 th may by dileep
TYPES: BEGIN OF IT_FINAL,
        BUKRS   TYPE BUKRS ,
        HKONT TYPE HKONT,
        BELNR   TYPE BELNR_D,
        DMBTR TYPE DMBTR ,
        KOSTL   TYPE KOSTL,
        PRCTR TYPE PRCTR,
        END OF IT_FINAL.
TYPES: BEGIN OF IT_FINAL1,
        BUKRS   TYPE BUKRS,
        HKONT TYPE HKONT,
        GJAHR   TYPE GJAHR ,
        BELNR   TYPE BELNR_D,
        BUDAT   TYPE BUDAT,
        WAERS   TYPE WAERS ,
        XBLNR   TYPE XBLNR1,
        BLART   TYPE BLART,
        MONAT   TYPE MONAT,
        DMBTR TYPE DMBTR,
        KOSTL   TYPE KOSTL,
        PRCTR TYPE PRCTR,
         END OF IT_FINAL1.
end of changes on 30 th may by dileep
TYPES: BEGIN OF P_FINAL,
        BUKRS   TYPE CHAR12,
        DELIMITER_1         TYPE CHAR1,
        HKONT_P TYPE CHAR18,
         DELIMITER_2         TYPE CHAR1,
        GJAHR   TYPE CHAR11,
        DELIMITER_3         TYPE CHAR1,
        BELNR   TYPE CHAR19,
        DELIMITER_4         TYPE CHAR1,
        BUDAT   TYPE CHAR12,
        DELIMITER_5        TYPE CHAR1,
        WAERS   TYPE CHAR8,
        DELIMITER_6         TYPE CHAR1,
        XBLNR   TYPE CHAR20,
        DELIMITER_7         TYPE CHAR1,
        BLART   TYPE CHAR13,
        DELIMITER_8         TYPE CHAR1,
        MONAT   TYPE CHAR13,
        DELIMITER_9         TYPE CHAR1,
        DMBTR_P TYPE CHAR13,
        DELIMITER_10         TYPE CHAR1,
        KOSTL   TYPE CHAR11,
        DELIMITER_11         TYPE CHAR1,
        PRCTR_P TYPE CHAR13,
        DELIMITER_12         TYPE CHAR1,
        HKONT_G TYPE CHAR18,
        DELIMITER_13         TYPE CHAR1,
        DMBTR_G TYPE CHAR13,
        DELIMITER_14         TYPE CHAR1,
        PRCTR_G TYPE CHAR13,
        DELIMITER_15        TYPE CHAR1,
        BUZID_G TYPE CHAR15,
        END OF P_FINAL.
DATA: IT_BSEG TYPE STANDARD TABLE OF IT_FINAL INITIAL SIZE 0,
      I_BSEG TYPE STANDARD TABLE OF IT_FINAL1 INITIAL SIZE 0,
      I_FINAL TYPE STANDARD TABLE OF A_FINAL INITIAL SIZE 0 WITH HEADER LINE,
      I_FINAL_P TYPE STANDARD TABLE OF P_FINAL INITIAL SIZE 0 WITH HEADER LINE,
      W_FINAL_P TYPE P_FINAL,
      W_BSEG1 TYPE BSEG,
      WA_BSEG TYPE IT_FINAL OCCURS 0 WITH HEADER LINE,
      W_BSEG TYPE IT_FINAL1 OCCURS 0 WITH HEADER LINE,
      T_BSEG TYPE STANDARD TABLE OF BSEG INITIAL SIZE 0 WITH HEADER LINE,
      W_FINAL TYPE A_FINAL,
      F_YEAR TYPE BAPI0002_4-FISCAL_YEAR,
      F_PERIOD TYPE BAPI0002_4-FISCAL_PERIOD,
      RETURN1 TYPE BAPIRETURN1,
      V_DATE        TYPE CHAR8,               " Date in YYYYMMDD format
      V_PRESPATH    TYPE STRING,              " Path
      V_APPPATH     TYPE STRING,               " Path
      V_FILENAME(25) TYPE C,                    " File Name
      V_PERIOD      TYPE CHAR3,                " Date for Posting Period
      V_FSYEAR      TYPE BDATJ,                " Fiscal Year
      L_TEXT        TYPE CHAR1.                " Hypen
CONSTANTS:   C_TXT       TYPE    CHAR4    VALUE '.txt',          " File Extension
             C_TXT1      TYPE    STRING   VALUE 'txt',           " File Type
             C_FLAG_X    TYPE    CHAR1    VALUE 'X',             " Flag
             C_ASC       TYPE    FILETYPE VALUE 'ASC',           " File type
             C_DAT       TYPE    CHAR4    VALUE '.dat',          " File Type
             C_FLAG_1    TYPE    CHAR1    VALUE '1',             " Constant value
             C_ZERO      TYPE    CHAR1    VALUE '0',             " Constant
             C_GLD(10)    TYPE    C        VALUE 'GRIR021S',       " Constant in file Path
             C_DIR       TYPE    CHAR3    VALUE 'C:\',           " Presentation Server path
             C_FLAG_12   TYPE    CHAR2    VALUE '12',            " Constant value
             C_PCFILE    TYPE    STRING   VALUE 'PC File',
             C_DELIMITER TYPE    C        VALUE '|'.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
*--- Selection Criteria
SELECT-OPTIONS: S_BUKRS FOR    BSEG-BUKRS   DEFAULT '012T',       " Company Code
                S_HKONT FOR    BSEG-HKONT OBLIGATORY DEFAULT '4505001',
                S_GJAHR FOR    BKPF-GJAHR   DEFAULT SY-DATUM+0(4),
                S_MONAT FOR    BKPF-MONAT   DEFAULT SY-DATUM+4(2),
                S_BELNR FOR    BSEG-BELNR ,
                S_BUDAT FOR    BKPF-BUDAT ,
                S_PRCTR FOR    BSEG-PRCTR OBLIGATORY DEFAULT '12TOTH00',
                S_BLART FOR    BKPF-BLART   OBLIGATORY DEFAULT 'RE'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
*--- Radio Buttons for chose the PC Path or App.. Server Path
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_PFILE RADIOBUTTON GROUP RAD2 DEFAULT 'X' USER-COMMAND UCOMM1.
SELECTION-SCREEN COMMENT 5(27) TEXT-002 FOR FIELD RB_PFILE.
PARAMETERS:
P_PFILE   LIKE     RLGRAP-FILENAME LOWER CASE.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
RB_AFILE RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 5(27) TEXT-003 FOR FIELD RB_AFILE.
PARAMETERS:
P_AFILE   LIKE     RLGRAP-FILENAME LOWER CASE. " Path for AS
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PFILE.
*-- Select File name with Dialog Box
PERFORM SUB_GET_FILENAME CHANGING P_PFILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_AFILE.
*--- Attach F4 HELP CORRESPONDING TO THE FIELD
PERFORM SUB_AP_F4.
AT SELECTION-SCREEN OUTPUT.
*--Modify screen parameters
PERFORM SUB_MODIFY_SCREEN.
AT SELECTION-SCREEN.
*--- Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BUKRS.
*--- Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_HKONT.
*--- Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_GJAHR.
*--- Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_MONAT.
*--- Selection Screen validations for Company Code
PERFORM SUB_VALIDATION_BELNR.
*--- Selection Screen validations for Chart of Accounts
PERFORM SUB_VALIDATION_BUDAT.
*--- Selection Screen validations Fiscal Year
PERFORM SUB_VALIDATION_PRCTR.
*--- Selection Screen validations for Peiod
PERFORM SUB_VALIDATION_BLART.
                        START-OF-SELECTION
START-OF-SELECTION.
*--- Check whether filepath/name have been entered in the sel screen
PERFORM SUB_CHECK_FILEPATH.
*--- Prepare Final Internal Table.
PERFORM SUB_PREPARE_FINAL.
*--- Download data.
PERFORM SUB_DOWNLOAD_DATA .
*&      Form sub_get_filename
      text
     <--P_PFILE Presentation server File name
FORM SUB_GET_FILENAME CHANGING P_FILE TYPE C.
DATA : L_FILENAME   TYPE STRING,                " For File Name
          L_PATH       TYPE STRING,                " For Directory
          L_FULLPATH   TYPE STRING.                " Full path
*--- For File Open Dialog Box
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    EXPORTING
      WINDOW_TITLE         = C_PCFILE              " Window Title
      DEFAULT_EXTENSION    = C_TXT1                " File Extn
      PROMPT_ON_OVERWRITE = C_FLAG_X              " Over write
    CHANGING
      FILENAME             = L_FILENAME            " File Name
      PATH                 = L_PATH                " File Path
      FULLPATH             = L_FULLPATH            " Full Path
    EXCEPTIONS
      CNTL_ERROR           = 1
      ERROR_NO_GUI         = 2
      NOT_SUPPORTED_BY_GUI = 3
      OTHERS               = 4.
IF SY-SUBRC NE 0.
*--- Error in opening the file
    MESSAGE E000.
ELSE.
    CONCATENATE L_PATH
                L_FILENAME
           INTO P_FILE.
    V_PRESPATH = L_PATH.
ENDIF.
ENDFORM.                    " sub_get_filename
*&      Form sub_ap_f4
      f4 help attched with application server
FORM SUB_AP_F4 .
*--- FM for to get the Application Server Path
IF RB_AFILE = C_FLAG_X.
    CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
     EXPORTING
     DIRECTORY              =
       FILEMASK               = C_ASC                 " File Extn
    IMPORTING
       SERVERFILE             = P_AFILE               " File Path
    EXCEPTIONS
       CANCELED_BY_USER       = 1
       OTHERS                 = 2.
    IF SY-SUBRC NE 0.
*--- Error in opening the file
      MESSAGE E000.
    ENDIF.
ENDIF.
ENDFORM.                                                    " sub_ap_f4
*&      Form sub_modify_screen
      text
--> p1        text
<-- p2        text
FORM SUB_MODIFY_SCREEN .
*--- Selection screen Modifications
IF RB_PFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE' OR
         SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_FLAG_1.
        CONCATENATE C_DIR C_GLD V_DATE SY-UZEIT(4) C_TXT INTO P_PFILE.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE' OR
         SCREEN-NAME = '%_P_PFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_ZERO.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
IF RB_AFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_AFILE' OR
         SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_FLAG_1.
        CONCATENATE '/Solectron/Data/' C_GLD V_DATE SY-UZEIT(4) C_DAT
                      INTO P_AFILE.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSE.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_AFILE' OR
         SCREEN-NAME = '%_P_AFILE_%_APP_%-TEXT'.
        SCREEN-ACTIVE = C_ZERO.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
IF RB_PFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE'.
        SCREEN-ACTIVE = C_FLAG_1.
      ENDIF.
      IF SCREEN-NAME = 'P_AFILE'.
        SCREEN-ACTIVE = C_ZERO.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSEIF RB_AFILE = C_FLAG_X.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'P_PFILE'.
        SCREEN-ACTIVE = C_ZERO.
      ENDIF.
      IF SCREEN-NAME = 'P_AFILE'.
        SCREEN-ACTIVE = C_FLAG_1.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDFORM.                    " sub_modify_screen
*&      Form sub_validation_bukrs
      Validation For Company Code
FORM SUB_VALIDATION_BUKRS .
DATA: L_BUKRS TYPE BUKRS.                " Company Code
IF S_BUKRS IS NOT INITIAL.
    IF S_BUKRS-HIGH IS NOT INITIAL AND S_BUKRS-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT BUKRS                              " Company Code
      FROM T001 UP TO 1 ROWS
      INTO L_BUKRS
      WHERE BUKRS IN S_BUKRS.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid Company code
        MESSAGE E001.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_bukrs
*&      Form sub_validation_hkont
      Validation For General Ledger Account
FORM SUB_VALIDATION_HKONT .
DATA: L_HKONT TYPE HKONT.                " General Ledger Account
IF S_HKONT IS INITIAL.
    MESSAGE E002.
ELSE.
    IF S_HKONT-HIGH IS NOT INITIAL AND S_HKONT-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT SAKNR                             " General Ledger Account
      FROM SKA1 UP TO 1 ROWS
      INTO L_HKONT
      WHERE SAKNR IN S_HKONT AND KTOPL = '1SLR'.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid General Ledger Account
        MESSAGE E003.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_hkont
*&      Form sub_validation_gjahr
      Validation For Fiscal Year
FORM SUB_VALIDATION_GJAHR .
DATA: L_GJAHR TYPE GJAHR.                " Fiscal Year
IF S_GJAHR IS NOT INITIAL.
    IF S_GJAHR-HIGH IS NOT INITIAL AND S_GJAHR-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_gjahr
*&      Form sub_validation_monat
      Validation For Fiscal period
FORM SUB_VALIDATION_MONAT .
DATA: L_MONAT TYPE MONAT.                " Fiscal period
IF S_MONAT IS NOT INITIAL.
    IF S_MONAT-LOW LE C_ZERO.
*--- Invalid Fiscal Period
      MESSAGE E006.
    ENDIF.
    IF S_MONAT-HIGH GT C_FLAG_12.
*--- Invalid Fiscal Period
      MESSAGE E007.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_monat
*&      Form sub_validation_belnr
      Validation For Accounting Document Number
FORM SUB_VALIDATION_BELNR .
DATA: L_BELNR TYPE BELNR_D.                " Accounting Document Number
IF S_BELNR IS NOT INITIAL.
    IF S_BELNR-HIGH IS NOT INITIAL AND S_BELNR-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_belnr
*&      Form sub_validation_budat
      Validation For Posting Date
FORM SUB_VALIDATION_BUDAT .
DATA: L_BUDAT TYPE BUDAT.                " Posting Date
IF S_BUDAT IS NOT INITIAL.
    IF S_BUDAT-HIGH IS NOT INITIAL AND S_BUDAT-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_budat
*&      Form sub_validation_prctr
      Validation For Profit Center
FORM SUB_VALIDATION_PRCTR .
DATA: L_PRCTR TYPE PRCTR.                " Profit Center
IF S_PRCTR IS INITIAL.
    MESSAGE E010.
ELSE.
    IF S_PRCTR-HIGH IS NOT INITIAL AND S_PRCTR-LOW IS INITIAL.
      MESSAGE E006.
    ELSE.
*--- Validation for chart of accounts
      SELECT PRCTR                             " Profit Center
      FROM CEPC UP TO 1 ROWS
      INTO L_PRCTR
      WHERE PRCTR IN S_PRCTR.
      ENDSELECT.
      IF SY-SUBRC NE 0.
*--- Invalid Profit Center
        MESSAGE E011.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_prctr
*&      Form sub_validation_blart
      Validation For Document type
FORM SUB_VALIDATION_BLART .
DATA: L_BLART TYPE BLART.                " Document type
IF S_BLART IS INITIAL.
    MESSAGE E012.
ELSE.
    IF S_BLART-HIGH IS NOT INITIAL AND S_BLART-LOW IS INITIAL.
      MESSAGE E006.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_validation_blart
*&      Form sub_check_filepath
      Check user input for initial filename
FORM SUB_CHECK_FILEPATH .
IF RB_PFILE = C_FLAG_X.
    IF P_PFILE IS INITIAL.
*--- The Local File Path can not be Empty
      MESSAGE I014.
      LEAVE LIST-PROCESSING.
    ENDIF.
ELSEIF RB_AFILE = C_FLAG_X.
    IF P_AFILE IS INITIAL.
*--- The App Server File Path can not be Empty
      MESSAGE I015.
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
ENDFORM.                    " sub_check_filepath
*&      Form sub_prepare_final
      append the required output data in to the internal table.
FORM SUB_PREPARE_FINAL.
changes on 30 th may by dileep
SELECT * FROM BSEG INTO TABLE I_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
                                            GJAHR IN S_GJAHR AND
                                            PRCTR IN S_PRCTR AND "Profit Center
                                            BLART IN S_BLART . "Document Type
SELECT BUKRS
         HKONT
         BELNR
         DMBTR
         KOSTL
         PRCTR
         FROM BSEG INTO TABLE IT_BSEG WHERE HKONT IN S_HKONT AND "G/L Account
                                            PRCTR IN S_PRCTR. "Profit Center
LOOP AT IT_BSEG INTO WA_BSEG.
    SELECT SINGLE GJAHR
           BUDAT
           WAERS
           XBLNR
           BLART
           MONAT
           INTO (W_BSEG-GJAHR,W_BSEG-BUDAT,W_BSEG-WAERS,W_BSEG-XBLNR,W_BSEG-BLART,W_BSEG-MONAT)
             FROM BKPF WHERE BELNR = W_BSEG-BELNR AND
                   GJAHR IN S_GJAHR AND
                   BLART IN S_BLART . "Document Type
    MOVE WA_BSEG-BUKRS TO W_BSEG-BUKRS.
    MOVE WA_BSEG-HKONT TO W_BSEG-HKONT.
    MOVE WA_BSEG-BELNR TO W_BSEG-BELNR.
    MOVE WA_BSEG-DMBTR TO W_BSEG-DMBTR.
    MOVE WA_BSEG-KOSTL TO W_BSEG-KOSTL.
    MOVE WA_BSEG-PRCTR TO W_BSEG-PRCTR.
    APPEND W_BSEG TO I_BSEG.
ENDLOOP.
changes on 30 th may by dileep
IF S_BUKRS IS NOT INITIAL.
    SORT I_BSEG BY BUKRS ASCENDING.
    DELETE I_BSEG WHERE NOT BUKRS IN S_BUKRS.
ENDIF.
IF S_MONAT IS NOT INITIAL.
    SORT I_BSEG BY GJAHR MONAT ASCENDING.
    IF S_MONAT-HIGH IS NOT INITIAL AND S_MONAT-LOW IS NOT INITIAL.
      DELETE I_BSEG WHERE MONAT < S_MONAT-LOW OR MONAT > S_MONAT-HIGH.
    ENDIF.
    IF S_MONAT-HIGH IS INITIAL AND S_MONAT-LOW IS NOT INITIAL.
      DELETE I_BSEG WHERE MONAT NE S_MONAT-LOW.
    ENDIF.
ENDIF.
IF S_BELNR IS NOT INITIAL.
    SORT I_BSEG BY BELNR ASCENDING.
    DELETE I_BSEG WHERE NOT BELNR IN S_BELNR.
ENDIF.
IF S_BUDAT IS NOT INITIAL.
    SORT I_BSEG BY BUDAT ASCENDING.
    DELETE I_BSEG WHERE NOT BUDAT IN S_BUDAT.
ENDIF.
LOOP AT I_BSEG INTO W_BSEG.
    MOVE W_BSEG-BUKRS      TO W_FINAL-BUKRS.
    MOVE W_BSEG-HKONT      TO W_FINAL-HKONT_P.
    MOVE W_BSEG-GJAHR      TO W_FINAL-GJAHR.
    MOVE W_BSEG-BELNR      TO W_FINAL-BELNR.
    MOVE W_BSEG-BUDAT      TO W_FINAL-BUDAT.
    MOVE W_BSEG-WAERS      TO W_FINAL-WAERS.
    MOVE W_BSEG-XBLNR      TO W_FINAL-XBLNR.
    MOVE W_BSEG-BLART      TO W_FINAL-BLART.
    MOVE W_BSEG-MONAT      TO W_FINAL-MONAT.
    MOVE W_BSEG-DMBTR      TO W_FINAL-DMBTR_P.
    MOVE W_BSEG-KOSTL      TO W_FINAL-KOSTL.
    MOVE W_BSEG-PRCTR      TO W_FINAL-PRCTR_P.
    SELECT SINGLE * FROM BSEG INTO W_BSEG1 WHERE BELNR = W_BSEG-BELNR AND    "Document Type
                                          BUZID = 'W' .
    IF SY-SUBRC = 0.
      MOVE W_BSEG1-HKONT      TO W_FINAL-HKONT_G.
      MOVE W_BSEG1-DMBTR      TO W_FINAL-DMBTR_G.
      MOVE W_BSEG1-PRCTR      TO W_FINAL-PRCTR_G.
      MOVE W_BSEG1-BUZID      TO W_FINAL-BUZID_G.
    ELSE.
      EXIT.
    ENDIF.
    APPEND W_FINAL TO I_FINAL.
    SORT I_FINAL BY BELNR ASCENDING.
ENDLOOP.
ENDFORM.                  " sub_prepare_final
*&      Form sub_download_data
      Download data
FORM SUB_DOWNLOAD_DATA .
DATA : V_PRD(2) TYPE N.
IF RB_PFILE = C_FLAG_X.
*--- Downloading To presentation server
    V_PRESPATH = P_PFILE.
    PERFORM SUB_DOWNLOAD_PRESSERVER.
ELSEIF RB_AFILE = C_FLAG_X.
*--- Downloading To Application server in Auto Mode
    V_APPPATH = P_AFILE.
    PERFORM SUB_DOWNLOAD_APPSERVER.
ENDIF.
ENDFORM.                    " sub_download_data
*&      Form sub_download_presserver
      text
FORM SUB_DOWNLOAD_PRESSERVER.
DATA: MESSAGE TYPE STRING.
IF I_FINAL[] IS INITIAL.
    MESSAGE I016.
    EXIT.
ELSE.
    W_FINAL_P-BUKRS = 'Company Code'.
    W_FINAL_P-DELIMITER_1 = '|'.
    W_FINAL_P-HKONT_P = 'G/L Account Number'.
    W_FINAL_P-DELIMITER_2 = '|'.
    W_FINAL_P-GJAHR = 'Fiscal Year'.
    W_FINAL_P-DELIMITER_3 = '|'.
    W_FINAL_P-BELNR = 'A/c Document Number'.
    W_FINAL_P-DELIMITER_4 = '|'.
    W_FINAL_P-BUDAT = 'Posting Date' .
    W_FINAL_P-DELIMITER_5 = '|'.
    W_FINAL_P-WAERS = 'Currency'.
    W_FINAL_P-DELIMITER_6 = '|'.
    W_FINAL_P-XBLNR = 'Ref. Document Number'.
    W_FINAL_P-DELIMITER_7 = '|'.
    W_FINAL_P-BLART = 'Document Type'.
    W_FINAL_P-DELIMITER_8 = '|'.
    W_FINAL_P-MONAT = 'Fiscal Period'.
    W_FINAL_P-DELIMITER_9 = '|'.
    W_FINAL_P-DMBTR_P = 'Amount'.
    W_FINAL_P-DELIMITER_10 = '|'.
    W_FINAL_P-KOSTL = 'Cost Center'.
    W_FINAL_P-DELIMITER_11 = '|'.
    W_FINAL_P-PRCTR_P = 'Profit Center'.
    W_FINAL_P-DELIMITER_12 = '|'.
    W_FINAL_P-HKONT_G = 'G/L Account Number'.
    W_FINAL_P-DELIMITER_13 = '|'.
    W_FINAL_P-DMBTR_G = 'Amount'.
    W_FINAL_P-DELIMITER_14 = '|'.
    W_FINAL_P-PRCTR_G = 'Profit Center'.
    W_FINAL_P-DELIMITER_15 = '|'.
    W_FINAL_P-BUZID_G = 'Line Item Id'.
    APPEND W_FINAL_P TO I_FINAL_P.
    LOOP AT I_FINAL INTO W_FINAL.
      W_FINAL_P-BUKRS = W_FINAL-BUKRS.
      W_FINAL_P-DELIMITER_1 = '|'.
      W_FINAL_P-HKONT_P = W_FINAL-HKONT_P.
      W_FINAL_P-DELIMITER_2 = '|'.
      W_FINAL_P-GJAHR = W_FINAL-GJAHR.
      W_FINAL_P-DELIMITER_3 = '|'.
      W_FINAL_P-BELNR = W_FINAL-BELNR.
      W_FINAL_P-DELIMITER_4 = '|'.
      W_FINAL_P-BUDAT = W_FINAL-BUDAT .
      W_FINAL_P-DELIMITER_5 = '|'.
      W_FINAL_P-WAERS = W_FINAL-WAERS.
      W_FINAL_P-DELIMITER_6 = '|'.
      W_FINAL_P-XBLNR = W_FINAL-XBLNR.
      W_FINAL_P-DELIMITER_7 = '|'.
      W_FINAL_P-BLART = W_FINAL-BLART.
      W_FINAL_P-DELIMITER_8 = '|'.
      W_FINAL_P-MONAT = W_FINAL-MONAT.
      W_FINAL_P-DELIMITER_9 = '|'.
      W_FINAL_P-DMBTR_P = W_FINAL-DMBTR_P.
      W_FINAL_P-DELIMITER_10 = '|'.
      W_FINAL_P-KOSTL = W_FINAL-KOSTL.
      W_FINAL_P-DELIMITER_11 = '|'.
      W_FINAL_P-PRCTR_P = W_FINAL-PRCTR_P.
      W_FINAL_P-DELIMITER_12 = '|'.
      W_FINAL_P-HKONT_G = W_FINAL-HKONT_G.
      W_FINAL_P-DELIMITER_13 = '|'.
      W_FINAL_P-DMBTR_G = W_FINAL-DMBTR_G.
      W_FINAL_P-DELIMITER_14 = '|'.
      W_FINAL_P-PRCTR_G = W_FINAL-PRCTR_G.
      W_FINAL_P-DELIMITER_15 = '|'.
      W_FINAL_P-BUZID_G = W_FINAL-BUZID_G.
      APPEND W_FINAL_P TO I_FINAL_P.
      CLEAR : W_FINAL_P, W_FINAL.
    ENDLOOP.
ENDIF.
*---Downloading data to file on Presentation Server
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME                = V_PRESPATH
      FILETYPE                = 'ASC'
    TABLES
      DATA_TAB                = I_FINAL_P
    EXCEPTIONS
      FILE_WRITE_ERROR        = 1
      NO_BATCH                = 2
      GUI_REFUSE_FILETRANSFER = 3
      INVALID_TYPE            = 4
      NO_AUTHORITY            = 5
      UNKNOWN_ERROR           = 6
      HEADER_NOT_ALLOWED      = 7
      SEPARATOR_NOT_ALLOWED   = 8
      FILESIZE_NOT_ALLOWED    = 9
      HEADER_TOO_LONG         = 10
      DP_ERROR_CREATE         = 11
      DP_ERROR_SEND           = 12
      DP_ERROR_WRITE          = 13
      UNKNOWN_DP_ERROR        = 14
      ACCESS_DENIED           = 15
      DP_OUT_OF_MEMORY        = 16
      DISK_FULL               = 17
      DP_TIMEOUT              = 18
      FILE_NOT_FOUND          = 19
      DATAPROVIDER_EXCEPTION = 20
      CONTROL_FLUSH_ERROR     = 21
      OTHERS                  = 22.
*-- File can not be opened successfully
IF SY-SUBRC NE 0.
    IF SY-BATCH EQ C_FLAG_X. " Stop Processing
      MESSAGE E017.        " File could not be opened
    ELSE.
      MESSAGE I017.        " File could not be opened
      LEAVE LIST-PROCESSING.
    ENDIF.
ELSE.
    CONCATENATE 'Data Successfully downloaded to the Specified Location' V_PRESPATH INTO MESSAGE SEPARATED BY SPACE.
    MESSAGE MESSAGE TYPE 'S'.
ENDIF.
MODIFY SCREEN.
ENDFORM.                    " sub_download_presserver
*&      Form sub_download_appserver
      text
FORM SUB_DOWNLOAD_APPSERVER .
DATA: V_FILE        TYPE STRING,               " String
        P_DMBTR TYPE CHAR20,
        G_DMBTR TYPE CHAR20,
        MESSAGE1 TYPE STRING.
IF I_FINAL[] IS INITIAL.
    IF SY-BATCH EQ C_FLAG_X.
*--- File contains no data
      MESSAGE E016 .
    ELSE.
*--- File contains no data
      MESSAGE I016 .
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
*--- To Open The file in Application Server
OPEN DATASET V_APPPATH FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF SY-SUBRC NE 0.
*--- Display error message: "Could not open file"
    IF SY-BATCH EQ C_FLAG_X.
*--- File contains no data
      MESSAGE E016 .
    ELSE.
*--- File contains no data
      MESSAGE I016 .
      LEAVE LIST-PROCESSING.
    ENDIF.
ENDIF.
*--- Perform for building the Report header
CONCATENATE
             'COMPANY_CODE'
             'G/L_ACCOUNT_NUMBER'
             'FISCAL_YEAR'
             'A/C_DOCUMENT_NUMBER'
             'POSTING_DATE'
             'CURRENCY'
             'REF_DOCUMENT_NUMBER'
             'DOCUMENT_TYPE'
             'FISCAL_PERIOD'
             'AMOUNT'
             'COSTCENTER'
             'PROFIT_CENTER'
             'G/L_ACCOUNT_NUMBER'
             'AMOUNT'
             'PROFIT_CENTER'
             'LINE_ITEM_ID'
            INTO V_FILE SEPARATED BY C_DELIMITER.
TRANSFER V_FILE TO V_APPPATH.
*--- Transfer the data to application Server
LOOP AT I_FINAL INTO W_FINAL.
    P_DMBTR = W_FINAL-DMBTR_P.
    G_DMBTR = W_FINAL-DMBTR_G.
    CONCATENATE
             W_FINAL-BUKRS
             W_FINAL-HKONT_P
             W_FINAL-GJAHR
             W_FINAL-BELNR
             W_FINAL-BUDAT
             W_FINAL-WAERS
             W_FINAL-XBLNR
             W_FINAL-BLART
             W_FINAL-MONAT
             P_DMBTR
             W_FINAL-KOSTL
             W_FINAL-PRCTR_P
             W_FINAL-HKONT_G
             G_DMBTR
             W_FINAL-PRCTR_G
             W_FINAL-BUZID_G
          INTO V_FILE SEPARATED BY C_DELIMITER.
    TRANSFER V_FILE TO V_APPPATH.
    IF SY-SUBRC NE 0.
Display error message: "Data could not be written at the location"
      MESSAGE 'Data could not be written at the location' TYPE 'I'.
      EXIT.
    ENDIF.
    CLEAR V_FILE.
ENDLOOP.
CLOSE DATASET V_APPPATH.
IF SY-SUBRC NE 0.
Display error message: "File could not be closed"
    MESSAGE 'File could not be closed' TYPE 'I'.
    EXIT.
ELSE.
    CONCATENATE 'Data Successfully downloaded to the Specified Location' V_APPPATH INTO MESSAGE1 SEPARATED BY SPACE.
    MESSAGE MESSAGE1 TYPE 'S'.
ENDIF.
ENDFORM.                    " sub_download_appserver

Hi sneha,
The report seems not belongs to SAP standard, And if would have belonged also, the ABAP community people can help you better, so it's gender suggestion to post this thread to ABAP community may with bit more details?
Best Of Luck!!
Update us to help you more, Reward points to help you better!!
Regards,
Shyamal

SAP Multiresource Scheduling MRS 700 - Help

Similar Messages

Maybe you are looking for