Automatic program execution in the destination system.

SAP allows to include "special objects" into a transport
request which cause automatic program execution in the destinationsystem.
Can anybody let me know how can I do that?

Hi,
Do you mean installing/executing some program automatically
on user machine i.e. presentation system.
If yes, then following link will help you, see last section Installing the control
in which one setup file which is already uploaded to SAP Web Repository is downloded to presentation system and then executed on user machine to install the program.
Using .Net Windows Controls in the ABAP Control Framework
Regards,
Vishal

Similar Messages

CCC or Disk Utility to clone a Mac HD of one new iMac to another, over ThunderBolt, we are getting I/O errors. Even though the clone fails, the destination system does boot and log in, however, the logins take a very very very long time.

When using CCC (Carbon Cophy Cloner) or Disk Utility to clone a Mac HD of one new iMac to another, over ThunderBolt, we are getting I/O errors. Even though the clone fails, the destination system does boot and log in, however, the logins take a very very very long time.
Thoughts.
Edit: Already ran Disk Utility. Also reinstalled a fresh OS on top of the cloned OS and it seemed to remedy the problem. Then, cloned to next machine in the row of the lab. Same problem.

OK, by that I assume that you used Disk Utility to repair the subject disk and it reported "The volume (name) appears to be OK" in green.
Also verify you followed the instructions here: http://help.bombich.com/kb/usage-scenarios/i-want-to-clone-my-entire-hard-drive- to-a-new-hard-drive-or-a-new-machine
If so, the Thunderbolt connection begins to look suspicious.
Reinstalling OS X subsequent to the "clone" operation may be an acceptable workaround but you should not have had the I/O errors you describe, nor should the login times (subsequent to the initial login, that is) be unacceptably long. It calls into question the integrity of all the information that was transferrred.
I'll try to attract the attention of a CCC expert who will likely provide more competent assistance. You can also try the Bombich support site: http://help.bombich.com

Calling an RFC without the code being present on the destination system

Hi All,
Here is my problem.
I want to execute a piece of code on a system from a program currently running on another system,
get the data and return back.
E.G. I am having a subroutine on development system. Let's say there is a select query inside the subroutine to get PARTNER from BUT000 based on certain parameters. The program should call an RFC get the data for the select query from the Production system and return the result back to the development system.
Please note : Here, I don't want to write the same piece of code on the production system.
<b>Is there any function module for the same or any idea on how to go about it.</b>
<b>Helpful answers would be rewarded.</b>
Regards,
Amit Mishra

Hai
Sending system side(SEND--800)
Create function module by using Tcode SE37 or SE80
goto attributes select remote function
activate
Receiving system side(RECE--000)
goto Tcode SM59
here select the R/3 Connections-->click on Create Button
give RFC Desstination : TESTRFC
     Connection Type : 3 for Connecting two systems
     Description      : Some meaningful Description
Press enter
give Target system Name : SEND
          Language      : EN
          Client        : 800
          user Name     : sapuser
          Password      : xxxxxx
save this connections & click on test connections(f8)
                      & Remote logon(f7)---> it will open a session
                        with client 800 that is your sending system
                        then only your RFC is correct
create a report in SE38 Tcode
data : c1 type i.
data : itab like mara occurs 0 with header line.
call function 'ZRFCFM' destination 'TESTRFC' --->Function Module 'ZRFCFM' your just create at Sending system
     exporting
     importing
     exceptions.
Thanks & regards
Sreeni

Can Labview Programs run from the Windows System Tray?

Does anyone know if Labview Runtime executables can be run in the Windows System tray? Any help would be appreciated.
I'm creating a program that I want to run in the background, not visible on the desktop or taskbar.
Thanks,
Tom

Requirements Price: $29.95
Application Software:
LabVIEW 7.0+
Toolkits Software:
Additional Software:
Language's:
LabVIEW
INVtray LabVIEW Toolkit allows the programmer to create a LabVIEW program that can be hidden from the task bar and accessed through the System Tray. Comes with a sample VI that demonstrates all the features of the toolkit.

Automatic scrip execution on the console in single user mode on Solaris 10

Hi All,
On Solaris 8, I am able to launch my script automatically on the console when the system comes up into single user mode without having to enter the password. However, on Solaris 10, the script is display in the foreground on the console. When i do a ps -ef , I see the process running. Can someone please tell me how to get this to work on solaris 10?
To automatically boot the system into single user mode:
# svcadm milestone -d milestone/single-user:default
Files edited for this to work on solaris 8:
To login without a password:
# cat > /etc/default/sulogin <<EOF
PASSREQ=NO
CONSOLE=/dev/console
ALTSHELL=YES
EOF
# echo "/sbin/su -" > /sbin/rc1
(Solaris 10, I used rcS instead of rc1)
my script is called from the /.profile when the system comes up into single user mode.
I did the same on solaris 10, but no success.
Please let me know if you have any suggestions.
Thank you,
Brian

try
- add 'set -x' to your /etc/profile
- add 'set -x' to /etc/rc? scripts
- check /etc/vfstab for a nfs mountpoint not using 'bg'

Automatic start and Stop the SAP System

Hi experts,
We want to deploy the unattended/Scheduled Start SAP and stop SAP in IBM i series. How to do it? I have tried with WRKJOBSCDE and putted the command STOPSAP or STARTSAP but after finishing the job, now result. But when I simply put command STOPSAP/STARTSAP it works(start and stop sap system).
How to deploy it?
Thanks
Asad

Hi Ken,
yes, that is correct, but in the meantime, it is **** easier ;-)
As SAPHostAgent starts automatically, it is just needed in the default profile:
Autostart = 1
This is a really nice new feature ;-))
Regards,
Volker Gueldenpfennig, consolut international ag

Error out the ABAP program execution

I have an ABAP program which transfers data from a file to a database table thru function module in packages of 50,000 records.
Upon the successful completion of this ABAP program, I start dependent processes.
Sometimes the function module does not transfer the data and returns the exception back to the ABAP program - which is an expected scenario. Currently when ever an exception is received in the function module, I stop the ABAP program with a STOP statement.
The ABAP program stops, which meets my first objective. But what happens is, if you look at the job log --> it is Completed in terms of program execution and the dependent processes automatically start - which is not meeting my second objective.
My second objective is to force the ABAP program to error out in such a way that .........
1) The program execution is stopped
2) If I look at the job log it should not be Completed (I am looking for something like Cancelled so that the dependent process do not get started automatically)
Is it possible to error out the ABAP program execution by raising an exception or something, so that when i look at the job log - it shows Cancelled and not Completed?
Let me know if you have any questions.
Thanks,
RK.

Adrian,
Thanks - This is exactly what I was looking for, it works.
For some reason Messages skipped my mind and I was looking at raising Exceptions
Solution:
if sy-subrc NE 0.
message id 'abc' type 'E' number 000.
endif.
Thanks,
RK.
Edited by: RK on Jan 17, 2010 7:47 PM
Edited by: RK on Jan 17, 2010 7:50 PM
Edited by: RK on Jan 17, 2010 7:52 PM

Is there anyway to reset the GPIB driver during program execution?

Is there anyway to reset the GPIB driver during program execution?

The issue at hand is that a thread is executing a series of tests which may or may not be making GPIB calls at any given time. The thread may be killed at any time with the function CmtTerminateThreadPoolThread (due to the user pressing the stop button on the GUI). Cooperative thread termination is not an option since a test may cause the thread of execution to lock up the system. The problem is that there may be outstanding GPIB calls at the time that the thread is stopped. These calls time out and generate run-time errors usually via the GPIB function ibrd. The motivation is to completely stop the GPIB driver while the thread is being killed, after which it can be re-initialized. Ideally.

Obtain an program address in the system register

Hi,
how can i obtain an program adress, in the Windows system regestry, in Forms 4.5.
I want call from Forms 4.5 an program (.exe) but the path isn't always the same.
Thanks
Patrico Rojas

This isn't really a Forms question...
Forms has the ability to call out to the operating system in several ways, one of them being the HOST command. What you actually do is up to you. So if you implemented something to do the task you want, in this case finding a file, then do so, and call it from Forms. You could use a batch file or a create an executable to do it. Then use the HOST built-in to you call your program.
Regards,
Robin Zimmermann
Forms Product Management

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

IDOC not reaching destination system

Hello,
I am trying to send DOCMAS type IDOC from one SAP sys to another SAP sys.The IDOC has the status 03 (The IDoc was sent to an SAP system or an external program via a transactional RFC) but i dont see the IDOC in the target sys.
Please let me know what could have gone wrong.
Thanks,
Rakesh.

Hello Rakesh More ,
First let us know how you corrected the previous error???. What was wrong?
Then talk about the next issue.
If you maintain properly the Inbound IDOC partner profile this error should not come. Make sure you have the below things set-up properly:-
1) In the inbound IDOC in the destination system there should be a partner receiver in the IDOC control data. Make sure you have maintained the partner profile for that partner and for the partner type as well.
2) For the partner make sure you have maintained the proper inbound mesaage type and process code properly.
Thanks,
Greetson
Edited by: Greetson Shunmugasundaram on Aug 1, 2011 9:47 PM

Idoc status green but data not posted correctly to destination system.

Hi,
Can anyone help me out with idoc problem that I am facing.
The problem has come out with outbound idoc.
The status of the idoc is green when it has been sent but the objects that has been sent with that idoc are not getting posted in the destination system.Some of them are posted correctly but some of them are not.
What may be the reason behind this.
Regards,
Rachana.

Good morning
What was the resolution here? We are siitng with the same problem, but IDoc's are correct, but data packet not processed.
Thanks, have a nice day
Cj

How can we change the Job priority in the Source system

Hi All,
We are facing an issue with the process chain execution in the Production system. We have a process chain which runs daily in BI system and the chain is designed in such a way, that as soon as the chain starts in BI system, a corresponding job is triggered in the Source system (ECC 6.0system).
Now the issue is that after we have our Source system upgraded the memory allocation for the particular Job (FIGL )is reduced and due to which the FIGL job is failing frequently. When we have consulted some experts.They advised Us to increase the Priority of the Job in source system to A/1, as of now the job is running in B/2 priority.
Please let us know the way how we can increase the priority of the Source system Job, so that when the process chain triggers a job in source system and that particular jobs should run with Priority A/1.
Thanks in advance.
Regards,
Chandra.

Hi Chandra,
First please find the job name in SM37 for FIGL and check the job status to be in "released" status. Select that job and go to job menu and click on change. then it will take you to the job screen where you have "job class". Here you can change the job class to "A" to get to high priority.
If you are unable to edit the job then create a new job with the same variants by clicking STEP button in the Job screen.
Try these steps, let me know if are able to do so.
Regards,
Ravi Kanth

FI Doc does not create CO Document in destination system

We have implemented CFM on ECC6 which is posting a FI Doc to a destination FI System which is on 4.7. The FI document gets created successfully but the CO Document is not created. CO and PCA is active in the Destination system.
Can anyone please tell me what can be the reason of the same.
FI IDoc FIDCC1, FIDCCH, CODCMT posted to Destination System.

Hi,
look here http://help.sap.com/saphelp_nw04/helpdata/en/0b/2a620b507d11d18ee90000e8366fc2/frameset.htm
and oss note 114814
hope that helps
Andreas

RFC destination BW could not be created in the source system R3073

I'm creating a source system for our BW (version 7.0) dev client.I'm linking it to our R/3 4.7 QA client. From RSA1 I select create source system, I enter the system information and in the next screen I'm prompted to log on as system administrator. I'm in QA now and the system automatically crated the RFC connection. I test the connection and it runs ok. I log on to the BW client from QA and it logs on just fine. When I exit the screen I get the following message:
RFC destination BW could not be created in the source system message number R3073
Why is this happening? The connection tests just fine.
I'm using RFCREMOTE user in BW and ALEREMOTE in QA with the same password
Any ideas?
thanks

Hi,
I cannot tell you surely the settings for SCC4 now (I can't connect to my sys).
Nevertheless, create your R3QA RFCDEST manually in your BWDEV with SM59.
Create your BWDEV RFCDEST manually in your BWQA .
Perform test and authorization test within SM59 from both sys.
When creating the source system in BW the system will detect the RFC and ask you if you want to use it; accept an proceed the the rest of the procedure.
hope this helps...
Olivier.

Automatic program execution in the destination system.

Similar Messages

Maybe you are looking for