R3load procedure creates additional tables in the target system

Hi All
My source system is 46C SR2 /oracle 817/HP_UX PARISC and
Target System is 46CSR2 /Oracle 10202/HPUX IA
I used R3load procedure to export database from source system and completed import successfully into target system without any problem.The new system is up and running.
My Source system has total 23193 tables but the target system has 23771 tables and source system has 27011 indexes and the target system has 27701 indexes.
Can someone tell me why there are additional tables and indexes in my Target system.
Your help will be appreciated.
Thanks

I used wrong id.I want to open a new message

Similar Messages

Homegeneouscopy R3load procedure generated more tables on target system

Hi All
My source system is 46C SR2 /oracle 817/HP_UX PARISC and
Target System is 46CSR2 /Oracle 10202/HPUX IA
I used R3load procedure to export database from source system and completed import successfully into target system without any problem.The new system is up and running.
My Source system has total 23193 tables but the target system has 23771 tables and source system has 27011 indexes and the target system has 27701 indexes.
Can someone tell me why there are additional tables and indexes in my Target system.Is it due to oracle 10g.
Your help will be appreciated.
Thanks
Amit

Markus,
I got this information from DB02 first screen where it shows number of tables and indexes.
Actually I used r3load procedure to export data from source and prepared target system also by r3load,
The source systems had less tables but the target got more.I have upgraded the target system to ecc6
and working fine.UAT completed and gone live.
Auditors have raised the question .
Let me know if there is any way to find this difference of tables though target is now ECC6.
Thanks
Amit

Adding additional tables to the extractor configuration

Hi Experts,
Can you please help me adding additional tables to the SAP extractor and to configure the field data in the orgstructure to show a flag against the position.
Luke - I have tried using the option said by you from Application-wide Settings-->Data Centre --> Read SAP Table, it has properly save the added table, but not able to see it from SAP extractor configruation and not able to extract any data. Also, can you please guide me how to use the fields from this table (HRP1010) to write a small piece of logic to show a flag for a particualr position based on data.
Thanks in advance,
Purandhar

Hi Purandhar,
I have tried using the option said by you from Application-wide Settings-->Data Centre
--> Read SAP Table, it has properly save the added table, but not able to see it from
SAP extractor configruation and not able to extract any data.
This has probably added a data element - I would check in the dataelementconfiguration folder in your build's .delta folder. IF so then you have the first step completed. Now you need to add the necessary configurations to use the data that comes through this data element.
Go to your orgchart/hierarchy and navigate to Views. Here select your view (or your first view if this needs to be done for more than one view - if so you'll need to repeate these steps but not the step you already did in the Data Centre), and then click the + icon next to Design Details. Here you can add a new linked detail to your view detail. Simply give it a name, select the detail to link it to (usually the top level detail which is in blue), select a link field and then select your data element that was created in the Data Centre.
Now if you try to add a section to your view inside the Design Details view designer you will see your new detail added. You can then select it and add fields from this detail.
Also, can you please guide me how to use the fields from this table (HRP1010) to write
a small piece of logic to show a flag for a particualr position based on data.
Once you have been able to add the data in the views designer you will probably need to do some XML and XSL editing because you cannot edit XSL files in the AdminConsole and you will need to do this to get your icon/flag to show.
First of all you need to create a new XSL file and put it into a folder in your .delta\root folder. For example, My_XSL_files. Here you need to write the code to render your flag based on your variable. You can find plenty of examples in all of the pre-existing XSL files. Then you need to copy PresentationResources.xml to .delta\root\XML and add the reference to your new XSL file.
Go to your build's .delta folder and go to detailconfiguration. Find the detail you just created and open it. You'll find a section in their that you just added with a reference to an XSL file (e.g. if you added a Simple Caption section it will probably be something like SimpleCaptionXSL). Change this to the reference in the PresentationResources.xml.
Load your build in the AdminConsole and hit Publish. Once done you should see your icon. Sometimes if your XSL is invalid or the code doesn't work you won't see anything. This is not unusual as the whole process can be quite tricky - even for us with lots of experience!
Good luck!
Luke

Creating tables on SQL studio and viewing the table in the SAP system

i have just created a table using the SQL studio and wants to use it view it in the SAP system using the SAP logon. till now i have not found a way to create it therefore any help is much appreciated.

Hmm... you want to see tables via SAPLogon ??
Ok, let's assume you really want to access tables via ABAP instead.
For that you've two options:
1. Create the table in the ABAP dictonary (SE11) exactly like you created it in the database and activate the table.
After that you can access the table via SE16 or any ABAP as you like.
2. You don't create the table in the ABAP dictonary and use native SQL to access the data.
Neither of these options is meant to be the way to do it.
The correct way would be to design the whole table in the ABAP dictionary and create the table on the database from that.
regards,
Lars

How to Create a table in the middle of a transaction ?

This software was written for sql and has a number of temporary table calls within transactions. We cannot precreate the temporary tables as some of the columns vary.
So we create temp tables on the fly during the transaction, but the problem with that is that Oracle will commit your transaction at the point you create a temp table.
Here's the logic:
Begin Transaction
Do some inserts, updates and deletes (IUDs)
Create Global temp Table zx as select <some of those IUDs>
Do some more inserts, updates and deletes
Drop temp tables
If worked
Commit
else
Rollback entire transaction
This is what I've tried so far:
1. Run the create table on a different connection - has no visibility to the IUDs in the current transaction
2. Split the create table and insert (instead of using CREATE AS) statements - to allow just the create table to be on a different connection - its going to be too much work to rewrite all the statements
3. Create a permanent table instead of a temp table - same problem with committing data before the transaction has ended
4. Put the Create As in a stored proc with AUTONOMOUS TRANSACTION turned on - same problem it has no visibility to the current outer transaction

Thanks for coming on this thread
The tables are used throughout the product, for example to
(a) simplify complex queries, some too complex for oracle to process in one stmt
(b) sub selects which will be reused
(c) performance enhancements
(d) left joins to summary queries
We have 120 tables in our data model and there are many scenarios where temp tables are used. In sql server its not considered such a problem and programmers often create temp tables "on the fly".
In fact, when we ported to oracle a couple of years ago, we had to add more temp table creates because some of the queries were too complex for oracle.
It would be at least a months work to rewrite so temp tables are either not used or precreated, and we really have to go live with this build by the end of the week.
No doubt we will rewrite these parts of the product to cut out temp tables, or perhaps drop oracle as a supported database, but for the time being we have oracle customers waiting for other fixes so I must find a way of giving them this software without doing this huge rewrite

How to create a table in the following format?

Hi,
I want to create a table of the following layout :
ATTRIBUTE     Text Key     Description
                     12           B
                    13           C
                     8           D
                     0           F
                     8           G
                     8           G
                     8           U
Base                    8            K
                    8            M
                    8            N
                    8           Pre
                   80           Pre
In the table i have added Text key and Description fields.
But I dont know how to add attribute field with only one value in the middle of the coloumn(BASE) and the whole colomn as blank.
Please help
Smriti

Hi.. Singh....
What is the table you are talking about?
Custom table?
Internal table?
What all you given? Entries?
Get back again....
Thanks,
Naveen.I

How to create a table in the file using java code.?

HI,
I should export the data from the view objects to a word document. I have done that but I should
display the data in the form of a table.
Kindly come up with the necessary information on how to create a table in the file using java.
Thanks,
Phani

Hi, Thank you for responding to my query.
The below are the details of my code.
DCBindingContainer dcBindings =
(DCBindingContainer)BindingContext.getCurrent().getCurrentBindingsEntry();
DCIteratorBinding StudentDetailsContent =
(DCIteratorBinding)dcBindings.get("StudentView1Iterator");
OutputStreamWriter w = new OutputStreamWriter(outputStream, "UTF-8");
Row currentRow =
StudentDetailsContent.getRowSetIterator().first();
Object a[]= currentRow.getAttributeValues();
int i;
for(i=0 ;i<=a.length;i++){
w.write(a.toString());
w.write(" ");
w.flush();
I am usning this coding to achieve the task of exporting data to file.
I need to display this information in the table that is where I need help from you people.
Thanks,

Issue in creating a connection to the target GlassFish Server .

Hi ,
I am facing issue Creating a connection to the target GlassFish Server.
I am using jdevelepor version 11.1.1.4.0. Here i am trying to create an application server connection.
But in the Application navigator i couldnt able to lcate the (In the Application Server Navigator, right-click Application Servers and choose New Application Server Connection) new aplication server connection.
In the componet palette there is IDE connection inside it the appliction server is present.When i right click on it i am able to locate the New Application Server Connection.
But i am not able to get the the below mentioned steps,
In the New Gallery, expand General, select Connections and then Application Server Connection, and click OK.
In the Resource Palette, choose New > New Connections > Application Server.
In the Create AppServer Connection dialog, on the Usage page, select Standalone Server.
On the Name and Type page, enter a connection name.
In the Connection Type dropdown list, choose:
GlassFish 3.1 to create a connection to the GlassFish Server
Click Next.
Could you please help me on this issue.
Thanks & regards
Binsy

Hi,
So i don't need to configure this manually as per the steps.
Then why i am getting the error when trying to deploy an EAr to glassfish?
Steps which i followed to Deploy the EAr,
1)I have created a ear file in JDEV.
2)in glassfish admin console, deployed the ear by choosing the file from the deploy location.
I am geting eror ..
For one application i am getting
Error occurred during deployment: Exception while loading the app : java.lang.IllegalStateException: ContainerBase.addChild: start: org.apache.catalina.LifecycleException: java.lang.IllegalArgumentException: java.lang.ClassNotFoundException: oracle.adf.mbean.share.connection.ADFConnectionLifeCycleCallBack.
For another application getting the error,
Interceptor binding contains an interceptor class name = oracle.jbo.server.svc.ServiceContextInterceptor that is not defined as an interceptor.
Could you please help me...

Creating Custom Tables in the Portal Database

Is there a way to create custom tables in the portal database in EP6?
Thanks,
Melissa

Thanks for responding, Nick.
We want to be able to display informational messages on the logon page before the user logs in. Currently we make changes to several ASP files in EP5 to display the messages. We want to be able to give privileged users the ability to enter the message, enter start/end date, etc. We want to do this in EP6 as well.

Users are created but Roles are not Provisioned in the Target System

Hi,
It would be great if somebody would provided solution to my problem. The problem is when I try to create the Users in Identity Managment UI then the Users are created in the Target systems but the Roles are not provisioned to the Users.
In the provisioning job SetABAPRole&ProfileForUser,
It is says In the Error putNextEntry failed storing
Exception from Modify operation:com.sap.idm.ic.ToPassException: User does not exist
MSKEY 58437
Please note the When we create the User, the user is created however the Roles is not provisioned to the user.
Regards,
Hakim

Hello Nits,
since this thread is from 2010 and the OP was logged on last in 2012 (as you can see in the profile), I don't think you'll get an answer here.
Please create a new thread to explain your problem (with version and SP numbers, logs etc). You can add a link to this thread to show, that the problem is similar.
Regards,
Steffi.

I am creating a request for proposal form and I need to add a commission structure field. I created a table using the ranking field and now I need to delete the "dots/buttons" and turn them into text fields, is this possible?

I created a table using the ranking field and now I need to delete the "dots/buttons" and turn them into text fields, is this possible?

It sounds like what you are trying to do is edit the choices in a likert field to something other than the default radio button. This is not something that you can do in Formscentral at this time.
Andrew

How do I create installer that checks the available Run Time Engine on the target system

Hi,
I am looking for a soultion on custom Installer where this Installer once done with the Installation should be capable of checking the presence of Runtime Engine on the target system. I amaware of including/checking the LV RTE checkbox for such options and we are working on some other concept. The thing is we would like to give the user a pop-up or any message that shows the presence of Runtime engine on the target system after finishing the installation. In case the runtime engine is not already installed on the target system, this time the message will be for the link to get the .exe and close the installation.
Overall we would like to minimize the size of our Installer that in case will get increased if we include Run Time Engine along with the Installer.
I am also assuming that such checking can be done through Advanced Tab in the Installer properties by including any such .exe for performing those things but looking for more options if possible to get it done.
Please do let me know if someone has any idea about it.
Thnaks in Advance,
Vivek

Hi teststand,
you can start another program which checks if the rte is available. It should also be possible with only a batch file.
Mike

How to use FTP_COMMAND to put a file in the target system

Hi All,
I have the requirement to put an excel file from apllication server to another remote system for this i am using the function modules
1) FTP_CONNECT to connect to the sourece as well as the destination systems --- Here i am able to hit the both systems.
2) for sending the data to the target system i am using FTP_COMMAND by passing the 'put' statement along with the soruce and destinations for the command parameter.
See the bellow code
CONCATENATE 'put' v_fname '
' 'wbrs1\' folder
into cmd separated by space.
CALL FUNCTION 'FTP_COMMAND'
EXPORTING
   HANDLE                = dhdl
    command              = cmd
   COMPRESS              = 'N'
VERIFY                =
RFC_DESTINATION       =
IMPORTING
FILESIZE              =
FILEDATE              =
FILETIME              =
tables
    data                  = result
EXCEPTIONS
   TCPIP_ERROR           = 1
   COMMAND_ERROR         = 2
   DATA_ERROR            = 3
   OTHERS                = 4
Here v_name is the file path and name in the application server suppose say :
/usr/sap/TD2/DVEBMGS01/work/TD2_20060901_1008_WAY-LY.XLS
and wbrs1 is the target system and 'Waynesboro DFS' is the folder name i ma passing to the command .
Also I tried with the following statement
CONCATENATE 'put' v_fname '
' dhost folder
into cmd separated by space.
Here v_name is the file path and name in the application server suppose say :
/usr/sap/TD2/DVEBMGS01/work/TD2_20060901_1008_WAY-LY.XLS,
Dhost is wbrs1.wb.na.webdti.com
And Waynesboro DFS is the folder .
Here i am getting the error as invalid argument.
See the bellow messages from result internal table.
put /usr/sap/TD2/DVEBMGS01/work/TD2_20060901_1008_WAY-LY.XLS
wbrs1\ Waynesboro DFS
open /usr/sap/TD2/DVEBMGS01/work/TD2_20060901_1008_WAY-LY.XLS errno 22: Invalid argument
Please let me know how i can resolve this problem and how can I put this file in the destination system.
Thanks in advance.
Regards,
Venkat

check this code....here data is transferred from SAP to Informatica box..
REPORT zfo_phoenix_acc_reconciliation NO STANDARD PAGE HEADING
                                                MESSAGE-ID zz
                                                LINE-SIZE 255
                                                LINE-COUNT 65.
                        PROGRAM DECLARATION
PROGRAM ID            : ZFO_PHOENIX_ACC_RECONCILIATION
DESCRIPTION           : Phoneix Account Reconcilation Program-Feed
                        Balance sheet account balances from GL
                        3 files needed to be enhanced. The files are " Master
              Attribute File" & "Transaction File(GL Balance)". For
              Master Attribute File, data needs to be retrieved from
              T001, ZDATSRC_T, SKA1, T003, T856. The corresponding
              data from all the tables is downloaded into file
              according to the condition specified. For Transaction
              File, data needs to be retrieved from ZGEIST based on
              Ledger(GG), Record Type(0), Fiscal Year, Period(016).
              Then the current period is used to determine which TSLxx
              & KSLxx needs to be used. Also, the conditions are
              specified in specs which have been used accordingly.
              The final data fetched will need to processed as files
              which neednot be downloaded to Presentation/Application
              server. Instead the files are been FTPed to the
              Informatica Server using FTP. The location where the
              files need to be located is ERC\GLOBALSAP.
                     TABLES
TABLES : ADR6.
                     TYPES
Output File - Master COA(Chart of Account)
TYPES : BEGIN OF ty_coacode ,
         coa_code(20),         "COA Code
         coa_description(50), "COA Description
         field11 TYPE x,       "Line Feed
         END OF ty_coacode.
Output File - Master Account
TYPES : BEGIN OF ty_acctcode ,
         act_code(20),         "GL Account Number
         act_desc(60),         "GL Account Description
         act_act_flag(1),      "Account marked for deletion indicator
         glact_type(1),        "GL Account type
         fi_line(20),          "Corporate Financial Statement Line
         coa_code(20),         "COA Code
         act_defcode(3),       "Account Defination Code
         field11 TYPE x,       "Line Feed
       END OF ty_acctcode.
Output File - Master Entity
TYPES : BEGIN OF ty_entitycode,
         entity_code(12),     "Entity Code
         com_desc(40),        "Company Name
         coa_code(20),        "COA Code
         field11 TYPE x,      "Line Feed
        END OF ty_entitycode.
Output File - Master Attribute
TYPES : BEGIN OF ty_attribcode,
         attrib_code(5),       "Attribute Code
         attrib_value(20),     "Attribute Value
         attrib_desc(60),      "Attribute Description
         field11 TYPE x,       "Line Feed
        END OF ty_attribcode.
Output File - Transaction GL Balance
TYPES : BEGIN OF ty_glbal,
         gl_reccode(2),        "GL Reconciliation Code
         gl_entity(12),        "GL Entity - Company Code
         gl_accnum(20),        "Gl Group Account Number
         site(4),              "Site
         currency_type(6),     "Transaction Currency Code
         year(4) TYPE n,       "Year
         month(2) TYPE n,      "Month
         as_of_date(8),        "Date Account Balance
         tran_cur_amt(21),     "Transaction Currency Amount
         usd_amount(21),       "USD Amount
         racct(20),            "GL Account Number
         zzbewar(20),          "Consolidation Transaction Type
         zzdatsrc(20),         "Data Source
         zzblart(20),          "Document Type
         rassc(20),          "Trading Partner
         field1(20),           "Attribute field1
         field2(20),           "Attribute field2
         field3(20),           "Attribute field3
         field4(20),           "Attribute field4
         field5(20),           "Attribute field5
         field11 TYPE x,       "Line Feed
       END OF ty_glbal.
Output File - Control
TYPES :BEGIN OF ty_globalsap,
        clnt_name(6),          "Client Name
        source_name(12),       "Source Name
        as_of_date(8),         "AS of Date
        time_stamp(6),         "Time Stamp
        time_zone(8),          "Time Zone
        num_of_files(3),       "Number of Files
        num_of_records(9),     "Number of Records
        user_ids(60),          "User ID(s)
        field11 TYPE x,        "Line Feed
       END OF ty_globalsap.
Int'table to hold ZGEIST Data
TYPES : BEGIN OF ty_zgeist_data,
          rldnr    TYPE rldnr,      "Ledger
          rrcty    TYPE rrcty,      "Record Type
          rvers    TYPE rvers,      "Version
          ryear    TYPE gjahr,      "Fiscal Year
          rbukrs   TYPE bukrs,      "Company Code
          racct    TYPE racct,      "Account Number
          robjnr   TYPE gobjnr_r,   "Object Number for objects
          cobjnr   TYPE gobjnr_c,   "Object Number for transaction
          sobjnr   TYPE gobjnr_s,   "Object Number for partner
          rtcur    TYPE rtcur,      "Currency Key
          runit    TYPE meins,      "Base Unit of Measure
          drcrk    TYPE shkzg,      "Debit/Credit Indicator
          rpmax    TYPE rpmax,      "Period
          rzzstagr TYPE stagr,      "Statistical key figure
          zzaltkt TYPE altkt,      "Account Number in Group
          zzdatsrc TYPE zdatsrc,    "Data Source code
          zzbewar TYPE rmvct,      "Transaction Type
          zzblart TYPE blart,      "Document Type
          rassc    TYPE rassc,       "Trading Partner
          zzvbund TYPE rassc,      "Trading Partner
          tslvt    TYPE tslvt9,     "Transactional Currency
          kslvt    TYPE kslvt9,     "Group Currency
        END   OF ty_zgeist_data.
Int'table to hold ZGEIST Error Data based on conditions
TYPES : BEGIN OF ty_zgeist_error_data,
          rldnr    TYPE rldnr,      "Ledger
          rrcty    TYPE rrcty,      "Record Type
          rvers    TYPE rvers,      "Version
          ryear    TYPE gjahr,      "Fiscal Year
          rbukrs   TYPE bukrs,      "Company Code
          robjnr   TYPE gobjnr_r,   "Object Number for objects
          cobjnr   TYPE gobjnr_c,   "Object Number for transaction
          sobjnr   TYPE gobjnr_s,   "Object Number for partner
          rtcur    TYPE rtcur,      "Currency Key
          runit    TYPE meins,      "Base Unit of Measure
          drcrk    TYPE shkzg,      "Debit/Credit indicator
          rpmax    TYPE rpmax,      "Period
        END   OF ty_zgeist_error_data.
                     FIELD SYMBOLS
FIELD-SYMBOLS : <fs> TYPE ANY.
                     CONSTANTS
DATA : c_selected    TYPE c VALUE 'X', "Field for constant value 'X'
       c_y           TYPE c VALUE 'Y', "For Acc marked for deletion
       c_n           TYPE c VALUE 'N', "For Acc not marked for deletion
       c_a           TYPE c VALUE 'A', "For GL Account type Asset
       c_l           TYPE c VALUE 'L', "For GL Account type Liability
       c_q           TYPE c VALUE 'Q', "For GL Account type Equity
       c_r           TYPE c VALUE 'R', "For GL Account type Revenue
       c_e           TYPE c VALUE 'E', "For GL Account type Expense
       c_t           TYPE c VALUE 'T', "For GL Account type
       c_userid(60) TYPE c ,
       c_curtp       TYPE curtp VALUE '10', "Currency type
       c_curtp1      TYPE curtp VALUE '30', "Currency type
       c_rassc(5)    TYPE c VALUE 'RASSC', "Trading Partner
       c_dtsrce(6)   TYPE c VALUE 'DTSRC', "Data Source
       c_sacct(5)    TYPE c VALUE 'SACCT', "GL Account
       c_docty(5)    TYPE c VALUE 'DOCTY', "Document Type
       c_trxtp(5)    TYPE c VALUE 'TRXTP', "Transaction Type
       c_tradptn(15) TYPE c VALUE 'Trading Partner', "Trading Partner
       c_datsrc(11) TYPE c VALUE 'Data Source',      "Data Source
       c_glacc(10)   TYPE c VALUE 'GL Account',       "GL Account
       c_doctyp(13) TYPE c VALUE 'Document Type',    "Document Type
       c_trantyp(16) TYPE c VALUE 'Transaction Type'. "Transaction Type
                     DATA (Simple Fields)
DATA: w_cnt1         TYPE i, "No Of records in output file COA Code
      w_cnt2         TYPE i, "No Of records in output file Account
      w_cnt3         TYPE i, "No Of records in output file Entity
      w_cnt4         TYPE i, "No Of records in output file attribute
      w_cnt5         TYPE i, "No Of records in output file GL Balance
      w_tot_recs     TYPE i, "TOtal number of records downloaded
      w_date         LIKE sy-datum, "System date
      w_timediff     LIKE sy-uzeit, "Time Difference to GMT
      w_timezone(10) TYPE c,       "Time Difference to GMT
      w_file_count(3) TYPE n,       "File Count
      w_period TYPE poper,          "To hold Period Value
      w_year LIKE t009b-bdatj,      "To hold Fiscal Year Value
      w_outfile       TYPE char64, "FTPed file path
      w_hdl           TYPE i.       "Handle for FTP
                     INTERNAL TABLES
Intenal table for GL Account details
DATA: BEGIN OF it_gl_detail OCCURS 0,
          saknr      TYPE saknr,
          txt50_skat TYPE txt50_skat,
          xloev      TYPE xloev,
      END OF it_gl_detail.
DATA: it_company_list LIKE bapi0014_1 OCCURS 0 WITH HEADER LINE,
      it_coacode TYPE STANDARD TABLE OF ty_coacode WITH HEADER LINE,
      it_acctcode TYPE STANDARD TABLE OF ty_acctcode WITH HEADER LINE,
      it_entitycode TYPE STANDARD TABLE OF ty_entitycode
                                        WITH HEADER LINE,
      it_attribcode TYPE STANDARD TABLE OF ty_attribcode
                                        WITH HEADER LINE,
      it_glbal TYPE STANDARD TABLE OF ty_glbal WITH HEADER LINE,
      it_globalsap TYPE STANDARD TABLE OF ty_globalsap WITH HEADER LINE,
      it_t001 TYPE STANDARD TABLE OF t001 WITH HEADER LINE,
      it_zdatsrc TYPE STANDARD TABLE OF zdatsrc_t WITH HEADER LINE,
      it_ska1 TYPE STANDARD TABLE OF ska1 WITH HEADER LINE,
      it_t003 TYPE STANDARD TABLE OF t003 WITH HEADER LINE,
      it_t856 TYPE STANDARD TABLE OF t856 WITH HEADER LINE,
      it_zgeist_data    TYPE STANDARD TABLE OF ty_zgeist_data
                             WITH HEADER LINE,
      it_zgeist_data1   TYPE STANDARD TABLE OF ty_zgeist_data
                             WITH HEADER LINE,
      it_zgeist_data_all TYPE STANDARD TABLE OF zgeist,
      wa_it_zgeist_data1 TYPE ty_zgeist_data,
      wa_it_zgeist_data TYPE zgeist,
      it_zgeist_error_data TYPE STANDARD TABLE OF ty_zgeist_error_data,
      wa_it_zgeist_error_data TYPE ty_zgeist_error_data.
                     SELECTION-SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-009.
SELECTION-SCREEN : BEGIN OF LINE,
            COMMENT 1(30) TEXT-006,
            POSITION POS_LOW.
PARAMETERS :       P_USER(30) TYPE C LOWER CASE OBLIGATORY.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE,
            COMMENT 1(30) TEXT-007,
            POSITION POS_LOW.
PARAMETERS :       P_PWD(30) TYPE C LOWER CASE OBLIGATORY.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE,
            COMMENT 1(30) TEXT-008,
            POSITION POS_LOW.
PARAMETERS :       P_HOST(64) TYPE C LOWER CASE OBLIGATORY.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN : BEGIN OF LINE,
            COMMENT 1(30) TEXT-010,
            POSITION POS_LOW.
SELECT-OPTIONS :   S_EMAIL FOR ADR6-SMTP_ADDR NO INTERVALS.
SELECTION-SCREEN : END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
-- Password not visible--
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF screen-name = 'P_PWD'.
      screen-invisible = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
I N I T I A L I Z A T I O N                                         *
INITIALIZATION.
w_date0(2) = sy-datum4(2).
w_date2(2) = sy-datum6(2).
w_date4(4) = sy-datum0(4).
S_EMAIL-SIGN = 'I'.
S_EMAIL-OPTION = 'EQ'.
S_EMAIL-LOW = '[email protected]'.
APPEND S_EMAIL.
S_EMAIL-SIGN = 'I'.
S_EMAIL-OPTION = 'EQ'.
S_EMAIL-LOW = '[email protected]'.
APPEND S_EMAIL.
                     START - OF - SELECTION
START-OF-SELECTION.
Geting Company Details
PERFORM get_company_list.
Geting GL Account Details
PERFORM get_gl_acc_detail.
Geting GL Balance Details
PERFORM get_zgeist_data.
                     END - OF - SELECTION
PERFORM process_coacode.
PERFORM process_acctcode.
PERFORM process_entitycode.
PERFORM process_attribcode.
PERFORM process_glbal.
PERFORM process_ftp_file.
IF NOT it_zgeist_error_data[] IS INITIAL.
    PERFORM write_error_report.
ENDIF.
*&      Form GET_COMPANY_LIST
           Form to get Company List                                 *
FORM get_company_list.
CALL FUNCTION 'BAPI_COMPANY_GETLIST'
    TABLES
      company_list = it_company_list.
ENDFORM.                    "GET_COMPANY_LIST
*&      Form GET_GL_ACC_DETAIL
      Form to get the GL Account details                            *
FORM get_gl_acc_detail.
DATA : l_txt50 LIKE skat-txt50,
         l_tabix LIKE sy-tabix.
SELECT saknr xloev
    INTO TABLE it_gl_detail
    FROM ska1
    WHERE ktopl = 'G001'
    AND   ( saknr GE '1000000000' AND saknr LE '4500000000' ).
LOOP AT it_gl_detail.
    l_tabix = sy-tabix.
    SELECT SINGLE txt50
      INTO l_txt50
      FROM skat
      WHERE spras = 'EN'
      AND   ktopl = 'G001'
      AND   saknr = it_gl_detail-saknr.
    it_gl_detail-txt50_skat = l_txt50.
    MODIFY it_gl_detail INDEX l_tabix.
    CLEAR l_txt50.
ENDLOOP.
ENDFORM.                    "GET_GL_ACC_DETAIL
*&      Form PROCESS_COACODE
Form to Populate COA data to Output internal table IT_COACODE *
FORM process_coacode.
it_coacode-coa_code          = text-023.     "GLOBAL.
it_coacode-coa_description   = text-022.     "Global SAP for ERC
it_coacode-field11           = '11'.
APPEND it_coacode.
CLEAR it_coacode.
ENDFORM.                    "PROCESS_COACODE
*&      Form PROCESS_ACCTCODE
Form to Populate Account data to Output Internal table IT_ACCTCODE *
FORM process_acctcode.
DATA:l_saknr(10).
DATA : it_gl_detail2 LIKE it_gl_detail OCCURS 0 WITH HEADER LINE.
IF NOT it_gl_detail[] IS INITIAL.
    it_gl_detail2[] = it_gl_detail[].
    SORT it_gl_detail2 BY saknr.
    DELETE ADJACENT DUPLICATES FROM it_gl_detail2 COMPARING saknr.
ENDIF.
IF NOT it_gl_detail2[] IS INITIAL.
    LOOP AT it_gl_detail2.
      MOVE it_gl_detail2-saknr      TO it_acctcode-act_code.
      MOVE it_gl_detail2-txt50_skat TO it_acctcode-act_desc.
Check GL Account is marked for deletion or not
      IF it_gl_detail2-xloev     = c_selected.
        it_acctcode-act_act_flag = c_n.
      ELSE.
        it_acctcode-act_act_flag = c_y.
      ENDIF.
Determine GL Account type based on GL account number
      l_saknr = it_gl_detail2-saknr.
      SHIFT l_saknr LEFT DELETING LEADING '0'.
      IF l_saknr CP '1*'.
        it_acctcode-glact_type = c_a.
      ELSEIF l_saknr CP '2*'.
        it_acctcode-glact_type = c_l.
      ELSEIF l_saknr CP '3*'.
        it_acctcode-glact_type = c_q.
Start of Addition by C.Ramesh Babu on 11/04/2005   "DR1K907900
      ELSEIF l_saknr CP '4*'.
        it_acctcode-glact_type = c_l.
End of Addition by C.Ramesh Babu on 11/04/2005   "DR1K907900
      ELSEIF l_saknr CP '5*'.
        it_acctcode-glact_type = c_r.
      ELSEIF l_saknr CP '6*'.
        it_acctcode-glact_type = c_e.
      ELSEIF l_saknr CP '7*'.
        it_acctcode-glact_type = c_t.
      ENDIF.
      it_acctcode-fi_line      = 'CDR'.
      it_acctcode-coa_code     = 'GLOBAL'.
      it_acctcode-act_defcode = '001'.
      it_acctcode-field11      = '11'.
      APPEND :it_acctcode.
      CLEAR :it_acctcode,it_gl_detail2.
    ENDLOOP.
ENDIF.
ENDFORM.                    "PROCESS_ACCTCODE
*&      Form PROCESS_ENTITYCODE
Form to Populate Entiti data to Output file internal table        *
FORM process_entitycode.
IF NOT it_company_list[] IS INITIAL.
    LOOP AT it_company_list.
      SHIFT it_company_list-company LEFT DELETING LEADING '0'.
      MOVE it_company_list-company TO it_entitycode-entity_code.
      MOVE it_company_list-name1   TO it_entitycode-com_desc.
      it_entitycode-coa_code    = 'GLOBAL'.
      it_entitycode-field11     = '11'.
      APPEND it_entitycode.
      CLEAR : it_company_list,it_entitycode.
    ENDLOOP.
ENDIF.
ENDFORM.                    "PROCESS_ENTITYCODE
*&      Form PROCESS_ATTRIBCODE
    Form to Populate Attribute data to output file internal table   *
FORM process_attribcode.
Getting data from T001.
SELECT * FROM t001 INTO TABLE it_t001.
LOOP AT it_t001.
    MOVE c_rassc TO it_attribcode-attrib_code.
    MOVE it_t001-bukrs TO it_attribcode-attrib_value.
    MOVE c_tradptn TO it_attribcode-attrib_desc.
    it_attribcode-field11 = '11'.
    APPEND it_attribcode.
    CLEAR it_attribcode.
ENDLOOP.
Getting data from table ZDATSRC_T.
SELECT * FROM zdatsrc_t INTO TABLE it_zdatsrc.
LOOP AT it_zdatsrc.
    MOVE c_dtsrce TO it_attribcode-attrib_code.
    MOVE it_zdatsrc-zdatsrc TO it_attribcode-attrib_value.
    MOVE c_datsrc TO it_attribcode-attrib_desc.
    it_attribcode-field11 = '11'.
    APPEND it_attribcode.
    CLEAR it_attribcode.
ENDLOOP.
Getting data from table SKA1.
SELECT * FROM ska1 INTO TABLE it_ska1.
LOOP AT it_ska1.
    MOVE c_sacct TO it_attribcode-attrib_code.
    MOVE it_ska1-saknr TO it_attribcode-attrib_value.
    MOVE c_glacc TO it_attribcode-attrib_desc.
    it_attribcode-field11 = '11'.
    APPEND it_attribcode.
    CLEAR it_attribcode.
ENDLOOP.
Getting data from table T003.
SELECT * FROM t003 INTO TABLE it_t003.
LOOP AT it_t003.
    MOVE c_docty TO it_attribcode-attrib_code.
    MOVE it_t003-blart TO it_attribcode-attrib_value.
    MOVE c_doctyp TO it_attribcode-attrib_desc.
    it_attribcode-field11 = '11'.
    APPEND it_attribcode.
    CLEAR it_attribcode.
ENDLOOP.
Getting data from table T856.
SELECT * FROM t856 INTO TABLE it_t856.
LOOP AT it_t856.
    MOVE c_trxtp TO it_attribcode-attrib_code.
    MOVE it_t856-trtyp TO it_attribcode-attrib_value.
    MOVE c_trantyp TO it_attribcode-attrib_desc.
    it_attribcode-field11 = '11'.
    APPEND it_attribcode.
    CLEAR it_attribcode.
ENDLOOP.
ENDFORM.                    "PROCESS_ATTRIBCODE
*&      Form PROCESS_GLBAL
Form to Populate GL Balance data to Output file internal table    *
FORM process_glbal.
DATA : l_ctran_amt(21),
         l_cusd_amt(21).
LOOP AT it_zgeist_data INTO wa_it_zgeist_data1.
*Start of change by 501030559 on 11/04/2005
   it_glbal-gl_reccode = '04'.
     it_glbal-gl_reccode = '05'.
*End of change by 501030559 on11/04/2005
    it_glbal-gl_entity = wa_it_zgeist_data1-rbukrs.
    it_glbal-gl_accnum = wa_it_zgeist_data1-zzaltkt.
    it_glbal-site       = 'ERC'.
    it_glbal-currency_type = wa_it_zgeist_data1-rtcur.
    it_glbal-year = w_year.
    it_glbal-month = w_period.
    it_glbal-as_of_date = w_date.
    l_ctran_amt = wa_it_zgeist_data1-tslvt.
Put sign to left side of the value
    IF l_ctran_amt LT 0.
      TRANSLATE l_ctran_amt USING ' 0'.
      CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
        CHANGING
          value = l_ctran_amt.
    ELSE.
Trailing Zero's to the value
      SHIFT l_ctran_amt RIGHT DELETING TRAILING space.
      TRANSLATE l_ctran_amt USING ' 0'.
      REPLACE '0' WITH '' INTO l_ctran_amt.
    ENDIF.
    it_glbal-tran_cur_amt = l_ctran_amt.
    l_cusd_amt = wa_it_zgeist_data1-kslvt.
Put Sign to leftside of the value
    IF l_cusd_amt LT 0.
      TRANSLATE l_cusd_amt USING ' 0'.
      CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'
        CHANGING
          value = l_cusd_amt.
    ELSE.
Trailing Zero's to the value
      SHIFT l_cusd_amt RIGHT DELETING TRAILING space.
      TRANSLATE l_cusd_amt USING ' 0'.
      REPLACE '0' WITH '' INTO l_cusd_amt.
    ENDIF.
    it_glbal-usd_amount = l_cusd_amt.
    it_glbal-racct   = wa_it_zgeist_data1-racct.
    it_glbal-zzbewar = wa_it_zgeist_data1-zzbewar.
    it_glbal-zzdatsrc = wa_it_zgeist_data1-zzdatsrc.
    it_glbal-zzblart = wa_it_zgeist_data1-zzblart.
    it_glbal-rassc = wa_it_zgeist_data1-rassc.
    it_glbal-field11 = '11'.
    APPEND it_glbal.
    CLEAR : wa_it_zgeist_data1, it_glbal.
ENDLOOP.
ENDFORM.                    "PROCESS_GLBAL
*&      Form PROCESS_GLOBALSAP
   Form to Populate COntrol data to Output file internal table      *
FORM process_globalsap.
DATA :l_total(9),
        l_len(3) type c.
Logic to get Time Zone
w_timediff = sy-tzone.
IF sy-tzone LT '0'.
    w_timediff = sy-tzone * -1.
    CONCATENATE 'GMT-' w_timediff(4) INTO w_timezone.
ELSE.
    w_timediff = sy-tzone.
    CONCATENATE 'GMT+' w_timediff(4) INTO w_timezone.
ENDIF.
LOOP AT S_EMAIL.
    CONCATENATE C_USERID S_EMAIL-LOW ',' INTO C_USERID.
ENDLOOP.
l_len = strlen( c_userid ).
l_len = l_len - 1.
c_userid = c_userid+0(l_len).
it_globalsap-clnt_name    = 'ERC'.
it_globalsap-source_name = 'GLOBALSAP'.
it_globalsap-as_of_date   = w_date.
it_globalsap-time_stamp   = sy-uzeit.
it_globalsap-time_zone    = w_timezone.
it_globalsap-num_of_files = w_file_count.
MOVE w_tot_recs TO l_total.
SHIFT l_total RIGHT DELETING TRAILING space.
TRANSLATE l_total USING ' 0'.
it_globalsap-num_of_records = l_total.
it_globalsap-user_ids = c_userid.
it_globalsap-field11 = '11'.
APPEND it_globalsap.
CLEAR it_globalsap.
ENDFORM.                  "PROCESS_GLOBALSAP
*&      Form COUNT_RECORDS
Form to count total number of records Downlaoded                   *
FORM count_records.
DESCRIBE TABLE it_coacode    LINES w_cnt1.
DESCRIBE TABLE it_acctcode   LINES w_cnt2.
DESCRIBE TABLE it_entitycode LINES w_cnt3.
DESCRIBE TABLE it_attribcode LINES w_cnt4.
DESCRIBE TABLE it_glbal      LINES w_cnt5.
w_tot_recs = w_cnt1 + w_cnt2 + w_cnt3 + w_cnt4 + w_cnt5.
ENDFORM.                    "COUNT_RECORDS
*&      Form get_zgeist_data
Form used to fetch data from ZGEIST table for the GL BAL file
FORM get_zgeist_data .
PERFORM get_period_year.
SELECT * INTO TABLE it_zgeist_data_all
           FROM zgeist
           WHERE rldnr EQ 'GG'
           AND   ryear EQ w_year
           AND   rrcty EQ 0
           AND   rpmax EQ '016'
           AND ( zzaltkt GE '1000000000' AND zzaltkt LE '4500000000' )
           AND   rzzstagr = space.
sort it_zgeist_data_all by rbukrs rldnr zzaltkt racct
                             zzdatsrc zzbewar zzblart rtcur rassc.
LOOP AT it_zgeist_data_all INTO wa_it_zgeist_data.
    IF wa_it_zgeist_data-zzaltkt EQ space.
      wa_it_zgeist_error_data-rldnr = wa_it_zgeist_data-rldnr.
      wa_it_zgeist_error_data-rrcty = wa_it_zgeist_data-rrcty.
      wa_it_zgeist_error_data-rvers = wa_it_zgeist_data-rvers.
      wa_it_zgeist_error_data-ryear = wa_it_zgeist_data-ryear.
      wa_it_zgeist_error_data-rbukrs = wa_it_zgeist_data-rbukrs.
      wa_it_zgeist_error_data-robjnr = wa_it_zgeist_data-robjnr.
      wa_it_zgeist_error_data-cobjnr = wa_it_zgeist_data-cobjnr.
      wa_it_zgeist_error_data-sobjnr = wa_it_zgeist_data-sobjnr.
      wa_it_zgeist_error_data-rtcur = wa_it_zgeist_data-rtcur.
      wa_it_zgeist_error_data-runit = wa_it_zgeist_data-runit.
      wa_it_zgeist_error_data-drcrk = wa_it_zgeist_data-drcrk.
      wa_it_zgeist_error_data-rpmax = wa_it_zgeist_data-rpmax.
      APPEND wa_it_zgeist_error_data TO it_zgeist_error_data.
    ELSE.
      it_zgeist_data1-rbukrs   = wa_it_zgeist_data-rbukrs.
      it_zgeist_data1-rldnr    = wa_it_zgeist_data-rldnr.
      it_zgeist_data1-zzaltkt = wa_it_zgeist_data-zzaltkt.
      it_zgeist_data1-racct    = wa_it_zgeist_data-racct.
      it_zgeist_data1-zzdatsrc = wa_it_zgeist_data-zzdatsrc.
      it_zgeist_data1-zzbewar = wa_it_zgeist_data-zzbewar.
      it_zgeist_data1-zzblart = wa_it_zgeist_data-zzblart.
      it_zgeist_data1-rassc = wa_it_zgeist_data-rassc.
      it_zgeist_data1-rtcur    = wa_it_zgeist_data-rtcur.
      PERFORM get_tslvt_kslvt_values USING w_period.
      COLLECT it_zgeist_data1.
    ENDIF.
    CLEAR : wa_it_zgeist_data, wa_it_zgeist_error_data,
            it_zgeist_data1.
ENDLOOP.
it_zgeist_data[] = it_zgeist_data1[].
ENDFORM.                    " get_zgeist_data
*&      Form write_error_report
Form used to display error data for the GL BAL fetched data
FORM write_error_report .
DATA : l_text(80) TYPE c.
CASE w_period.
    WHEN '001' OR '01'.
      l_text = text-e01.
    WHEN '002' OR '02'.
      l_text = text-e02.
    WHEN '003' OR '03'.
      l_text = text-e03.
    WHEN '004' OR '04'.
      l_text = text-e04.
    WHEN '005' OR '05'.
      l_text = text-e05.
    WHEN '006' OR '06'.
      l_text = text-e06.
    WHEN '007' OR '07'.
      l_text = text-e07.
    WHEN '008' OR '08'.
      l_text = text-e08.
    WHEN '009' OR '09'.
      l_text = text-e09.
    WHEN '010' OR '10'.
      l_text = text-e10.
    WHEN '011' OR '11'.
      l_text = text-e11.
    WHEN '012' OR '12'.
      l_text = text-e12.
    WHEN '013' OR '13'.
      l_text = text-e13.
    WHEN '014' OR '14'.
      l_text = text-e14.
    WHEN '015' OR '15'.
      l_text = text-e15.
    WHEN '016' OR '16'.
      l_text = text-e16.
ENDCASE.
SKIP 2.
WRITE:/45 text-h01 COLOR COL_HEADING.
SKIP 2.
FORMAT COLOR 4.
WRITE:/(234) sy-uline.
WRITE:/1   sy-vline,
         2   text-h02,
         9   sy-vline,
         10 text-h03,
         19 sy-vline,
         20 text-h04,
         28 sy-vline,
         29 text-h05,
         41 sy-vline,
         42 text-h06,
         49 sy-vline,
         50 text-h07,
         69 sy-vline,
         70 text-h08,
         89 sy-vline,
         90 text-h09,
         109 sy-vline,
         110 text-h10,
         119 sy-vline,
         120 text-h11,
         130 sy-vline,
         131 text-h12,
         144 sy-vline,
         145 text-h13,
         152 sy-vline,
         153 text-h14,
         234 sy-vline.
WRITE:/(234) sy-uline.
FORMAT COLOR OFF.
LOOP AT it_zgeist_error_data INTO wa_it_zgeist_error_data.
    FORMAT COLOR 2.
    WRITE:/1   sy-vline,
           4   wa_it_zgeist_error_data-rldnr,
           9   sy-vline,
           13 wa_it_zgeist_error_data-rrcty,
           19 sy-vline,
           22 wa_it_zgeist_error_data-rvers,
           28 sy-vline,
           32 wa_it_zgeist_error_data-ryear,
           41 sy-vline,
           42 wa_it_zgeist_error_data-rbukrs,
           49 sy-vline,
           50 wa_it_zgeist_error_data-robjnr,
           69 sy-vline,
           70 wa_it_zgeist_error_data-cobjnr,
           89 sy-vline,
           90 wa_it_zgeist_error_data-sobjnr,
           109 sy-vline,
           112 wa_it_zgeist_error_data-rtcur,
           119 sy-vline,
           123 wa_it_zgeist_error_data-runit,
           130 sy-vline,
           135 wa_it_zgeist_error_data-drcrk,
           144 sy-vline,
           147 wa_it_zgeist_error_data-rpmax,
           152 sy-vline,
           153 l_text,
           234 sy-vline.
    FORMAT COLOR OFF.
ENDLOOP.
WRITE:/(234) sy-uline.
ENDFORM.                    " write_error_report
*&      Form get_tslvt_kslvt_values
Form used to get TSLxx & KSLxx values for the period fetched
FORM get_tslvt_kslvt_values USING period.
FIELD-SYMBOLS : <f1> TYPE ANY,
                 <f2> TYPE ANY.
DATA : l_tslvt_val(25) VALUE 'wa_it_zgeist_data-tsl',
        l_kslvt_val(25) VALUE 'wa_it_zgeist_data-ksl',
        l_tslvt TYPE tslvt9,
        l_kslvt TYPE kslvt9,
        l_period TYPE poper.
clear l_period.
l_period = period.
DO l_period TIMES.
      CONCATENATE l_tslvt_val l_period+1(2) INTO l_tslvt_val.
      CONCATENATE   l_kslvt_val l_period+1(2) INTO l_kslvt_val.
    ASSIGN (l_tslvt_val) TO <f1>.
    l_tslvt = <f1>.
    it_zgeist_data1-tslvt = it_zgeist_data1-tslvt + l_tslvt.
    ASSIGN (l_kslvt_val) TO <f2>.
    l_kslvt = <f2>.
    it_zgeist_data1-kslvt = it_zgeist_data1-kslvt + l_kslvt.
    l_period = l_period - 1.
    clear : l_tslvt, l_kslvt, l_tslvt_val, l_kslvt_val.
    l_tslvt_val = 'wa_it_zgeist_data-tsl'.
    l_kslvt_val = 'wa_it_zgeist_data-ksl'.
    if l_period = 0.
      exit.
    endif.
ENDDO.
ENDFORM.                    "get_tslvt_kslvt_values
*&      Form process_ftp_file
Form used to connect & disconnect to Informatica Server using FTP
Also, used to transfer files to the Informatica location
--> p1        text
<-- p2        text
FORM process_ftp_file .
DATA: l_slen     TYPE i,
        l_error,
        l_pwd(30) TYPE c.
CONSTANTS: c_dest TYPE rfcdes-rfcdest VALUE 'SAPFTP',
             c_key TYPE i              VALUE 26101957.
l_error = 0.
connect to ftp server
l_pwd = p_pwd.
l_slen = STRLEN( l_pwd ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = l_pwd
      sourcelen   = l_slen
      key         = c_key
    IMPORTING
      destination = l_pwd.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = 'Connect to FTP Server'.
To Connect to the Server using FTP
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      user            = p_user
      password        = l_pwd
      host            = p_host
      rfc_destination = c_dest
    IMPORTING
      handle          = w_hdl
    EXCEPTIONS
      OTHERS          = 1.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CLEAR : w_outfile, w_file_count.
MOVE 'ERC/GLOBALSAP/M_ERC_GLOBALSAP_COACODE' TO w_outfile.
PERFORM download_to_ftp TABLES it_coacode USING w_outfile.
w_file_count = w_file_count + 1.
CLEAR : w_outfile.
MOVE 'ERC/GLOBALSAP/M_ERC_GLOBALSAP_ACCTCODE' TO w_outfile.
PERFORM download_to_ftp TABLES it_acctcode USING w_outfile.
w_file_count = w_file_count + 1.
CLEAR : w_outfile.
MOVE 'ERC/GLOBALSAP/M_ERC_GLOBALSAP_ENTITYCODE' TO w_outfile.
PERFORM download_to_ftp TABLES it_entitycode USING w_outfile.
w_file_count = w_file_count + 1.
CLEAR : w_outfile.
MOVE 'ERC/GLOBALSAP/M_ERC_GLOBALSAP_ATTRIBCODE' TO w_outfile.
PERFORM download_to_ftp TABLES it_attribcode USING w_outfile.
w_file_count = w_file_count + 1.
CLEAR : w_outfile.
MOVE 'ERC/GLOBALSAP/ERC_GLOBALSAP_GLBAL' TO w_outfile.
PERFORM download_to_ftp TABLES it_glbal USING w_outfile.
w_file_count = w_file_count + 1.
CLEAR : w_outfile, w_tot_recs.
PERFORM count_records.
PERFORM process_globalsap.
MOVE 'ERC/GLOBALSAP/C_ERC_GLOBALSAP' TO w_outfile.
PERFORM download_to_ftp TABLES it_globalsap USING w_outfile.
To disconnect the FTP
CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      handle = w_hdl.
To disconnect the RFC Connection
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      destination = c_dest
    EXCEPTIONS
      OTHERS      = 1.
ENDFORM.                    " process_ftp_file
*&      Form download_to_ftp
Form to put the files in the Informatica Location using FTP
Path is ERC\GLOBALSAP\<filename>
FORM download_to_ftp TABLES it_tab
                     USING l_string TYPE char64.
CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      handle         = w_hdl
      fname          = l_string
      character_mode = 'X'
    TABLES
      text           = it_tab[]
    EXCEPTIONS
      tcpip_error    = 1
      command_error = 2
      data_error     = 3
      OTHERS         = 4.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            RAISING invalid_output_file.
ENDIF.
ENDFORM.                    " download_to_ftp
*&      Form get_period_year
Form to fill the Period & Year based on the Sy-datum
FORM get_period_year .
DATA : l_month(2) TYPE c,
         l_day(2)   TYPE c,
         l_year(4) TYPE c.
l_year = sy-datum+0(4).
l_month = sy-datum+4(2).
l_day   = sy-datum+6(2).
CASE l_month.
    WHEN '01'.
      IF l_day <= '15'.
        w_period = '12'.
        w_year = l_year - 1.
      ELSE.
        w_period = '1'.
        w_year = l_year.
      ENDIF.
    WHEN '02'.
      IF l_day <= '15'.
        w_period = '1'.
        w_year = l_year.
      ELSE.
        w_period = '2'.
        w_year = l_year.
      ENDIF.
    WHEN '03'.
      IF l_day <= '15'.
        w_period = '2'.
        w_year = l_year.
      ELSE.
        w_period = '3'.
        w_year = l_year.
      ENDIF.
    WHEN '04'.
      IF l_day <= '15'.
        w_period = '3'.
        w_year = l_year.
      ELSE.
        w_period = '4'.
        w_year = l_year.
      ENDIF.
    WHEN '05'.
      IF l_day <= '15'.
        w_period = '4'.
        w_year = l_year.
      ELSE.
        w_period = '5'.
        w_year = l_year.
      ENDIF.
    WHEN '06'.
      IF l_day <= '15'.
        w_period = '5'.
        w_year = l_year.
      ELSE.
        w_period = '6'.
        w_year = l_year.
      ENDIF.
    WHEN '07'.
      IF l_day <= '15'.
        w_period = '6'.
        w_year = l_year.
      ELSE.
        w_period = '7'.
        w_year = l_year.
      ENDIF.
    WHEN '08'.
      IF l_day <= '15'.
        w_period = '7'.
        w_year = l_year.
      ELSE.
        w_period = '8'.
        w_year = l_year.
      ENDIF.
    WHEN '09'.
      IF l_day <= '15'.
        w_period = '8'.
        w_year = l_year.
      ELSE.
        w_period = '9'.
        w_year = l_year.
      ENDIF.
    WHEN '10'.
      IF l_day <= '15'.
        w_period = '9'.
        w_year = l_year.
      ELSE.
        w_period = '10'.
        w_year = l_year.
      ENDIF.
    WHEN '11'.
      IF l_day <= '15'.
        w_period = '10'.
        w_year = l_year.
      ELSE.
        w_period = '11'.
        w_year = l_year.
      ENDIF.
    WHEN '12'.
      IF l_day <= '15'.
        w_period = '11'.
        w_year = l_year.
      ELSE.
        w_period = '12'.
        w_year = l_year.
      ENDIF.
ENDCASE.
ENDFORM.                    " get_period_year

Transaction SCMP - Get the name of the target system

I am using Transaction SCMP as example to compare the contents of a table in two different systems.
I would like to know how can I actually know the exact address in the second field which enables the transaction to connect to the system?
Thanks and Best Regards,
Pramod.

Thanks,
I used F1 and all I came to know that these names are configured in the Transaction SM59. But I do not know how to create an entry for a new RFC Destination and also determine the parameters required for the target system to configure the new connection.
Does anyone know how this is done?

Maintaining the MDM ID on the target systems

Hi
I understand that maintaining the MDM Id on the target helps in better traceability. But is it absolutely necessary to maintain MDM Id on target systems? this would require identifying an additional field on all the target systems.This will be quite challenging some times and would require business justification if we plan to use an existing field for a different purpose. Can you pls help me with all the conditions or reasons that you have come across that makes it an absolute necessity.
Thanks & Regards
Arvind

Hi Arvind,
When ever MDM is been used for consolidation and Deduplication purpose of Master Data a Global ID is assigned to the merged records to identify them as possible duplicates by the target system.But when this Global id is send to the target sytem it will have to be accomodated on the receiveing end which is not possible in most cases:
Below are the Few Scenario where and how can the Global ID be accomodated:
- BI-MDM: One of the major areas where Master data management is required is for BI reporting without MDM is place Bi will be reporting on inconsistent data which will result in wrong reports and thus wrong business decisions So Master data are first filtered out in MDM and then passed to BI for correct reporting in this case. If we are using BI 7 then we have a MDM-BI package that needs to be deployed on BI By doing this an Additionla Field is generated in BI which handles the Global Id send from MDm without much difficulty so this justification is sufficient as the receipient system has provision to handle it.This can also be taken care when working with BI3.5
You can follow the below link to understand the same:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d06a92de-614e-2b10-4989-d913c2154a64
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/b01e4269-f744-2b10-929b-fa7b49aac540
- R/3/ECC- MDM:This is the second Major area where MDM is used for consolidation and harmonization of master data,but in this case ERP system has no provision to take care of the global id field as that would require modifying the std tables and fields in ECc which are not desirable.In this case i would suggest that MDM be used for inding duplicates howeevr the deuplictaes rec need not be merged and send back rather just be marked as duplicates to notify that thaey ar similar rec and then the care be taken to handle them in ECC iself.
- SRM-MDM etc:In most other scenario besides the two mentioned above MDM is used for data enrichment such as RPCM(Rich product catalog managemnet) where matching and merging is not the prime focus.
It is important to note that although MDM is primarily used for finding duplictaes it has many other functionlaities which it can perform like ensure Data completeness,Data accuracy,Enrichment,Governance etc
Hope It Helped,
Thanks & Regards
Simona Pinto

R3load procedure creates additional tables in the target system

Similar Messages

Maybe you are looking for