Req. Sample code for the Updation of Master record in MDM using Java API..

Hi All,
Can anyone provide me the same code for Updation of master record in MDM using Java API ??

Hi SakthiNarayananD,
You can additionally go through the following links to work with MDM and Java API:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/2d18d355-0601-0010-fdbb-d8b143420f49 (Java API)
http://help.sap.com/javadocs/MDM/SP05/(Java api programs)
https://help.sap.com/javadocs/MDM/current/index.html (java api codes)
http://help.sap.com/javadocs/MDM/SP06P2/index.html (Java Docs for SP06)
Reg: Using JAVA API - Search
Re: Retrieving Drop Down List Value using JAVA API - Lookup values
How to retreive records from Lookuptable of type flat - Lookup Values
Reg: MDM with webdynpro - READ,INSERT,MODIFY
Hope It Helped
Thanks & Regards
Simona Pinto

Similar Messages

Search for a Multilingual value in MDM using JAVA API

Good day,
Could you kindly assist.
I am trying to search for a field in MDM, from Portal using JAVA API. I do retrieve the value in English, but the problem is when I am trying to retrieve it in other languages. Please see sample code:
     private Search getSearch(MDMConnection mdmconnection,String value, TableId tableid){
          Search search =null;
          FieldSearchDimension fielddimension=null;
          TextSearchConstraint textcontrain=null;
          RepositorySchema reposchema =mdmconnection.reposchema;
                                           if(value!=null)
               search= new Search(tableid);
               fielddimension=new FieldSearchDimension(reposchema.getFieldId("ATTR_VAL_ABBR","TEXT_VALUE"));
               textcontrain=new TextSearchConstraint(value,TextSearchConstraint.EQUALS);
               search.addSearchItem(fielddimension,textcontrain);
               search.setComparisonOperator(Search.AND_OPERATOR);
          return search;
Thank you in advance.
Regards,
Simni

Hi ,
Mdm- Multilingual value in MDM using JAVA API:
you can check the first point as its reagrdign youisue related pdf and soloutions for your question.
1. http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/b0e8aedc-cdfe-2c10-6d90-bea2994455c5?QuickLink=index&overridelayout=true
2. http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/b0e8aedc-cdfe-2c10-6d90-bea2994455c5?QuickLink=index&overridelayout=true
Hope this information helps you in solving the issue!!
Thanks&Regards
AswinChandraGirmaji

How to SaveAs the MSword file into xml file format using Java APIS?

Hello all,
I want to convert MSword file into Xml format using java APIS or any other inbuilt APIS that i can integrate in Java code.

Sorry, that doesn't make much sense.
The XML you gave is a configuration file for txt2xml utility. It doesn't represent the output format.
Are you a user of this utility?

Code for the updating the database

Can anyone send required code(EO,VO,CO) to update a row in the database table.
I have tried the code in the turorial example. but i am not getting.

i am getting this error while updating a column value in a database
oracle.apps.fnd.framework.OAException: java.lang.IndexOutOfBoundsException: Index: 8, Size: 8
at oracle.apps.fnd.framework.OAException.wrapperInvocationTargetException(OAException.java:972)
at oracle.apps.fnd.framework.server.OAUtility.invokeMethod(OAUtility.java:210)
at oracle.apps.fnd.framework.server.OAUtility.invokeMethod(OAUtility.java:132)
can anyone help.

Generate Sample data for the cube .- I don't want to use the flat file

Hello BI Gurus,
I know there is a sap sap standard program where you write records to the cube. I think first you change the cube from basisc to real time cube and then another program which displays a ALV layout- you can create,delete or change ther records.
I don't want to create a flat file load for this. I want to create 5 records to check the layout.
I forgot the program name.
Can you please let me know the program name.
Thanks
Senthil

A long time for a simple question, so here it is: the program name is CUBE_SAMPLE_CREATE.
Please, mark this question as anweared.
Regards,
André

Kindly write some sample code for this scenario

Kindly write some sample code for the below Logic.
For a set of Deliveries entered on the selection screen get the relevant data from LIKP & LIPS.
for all the deliveries selected get the sales order data from VBAK & VBAP based on the VGBEL & VGPOS in LIPS.
The Output internal table should contain only deliveries which are created with reference to a sales order.
Thanx in Advance.
Akshitha.

Hi,
Select avbeln bposnr bmatnr blfimg bvgbel bvgpos into table ITAB
   from likp as a join lips as b on Avbeln = bvbeln
   where a~vbeln in s_vbeln..
if not itab[] is initial.
   select avbeln bposnr b~matnr ... into table itab1 from vbak as a join vbap as b
   on avbeln = bvbeln
   for all entries in itab where avbeln = itab-vgbel and bposnr = itab-vgpos.
endif.
loop at itab.
read table itab1 with key vbeln = itab-vgbel posnr = itab-vgpos.
if sy-subrc <> 0.
      delete itab index sy-tabix.
   endif.
endloop.
Now ITAB will have only deliveries created against Sales orders.
reward points if useful
regards,
Anji

Where Can the Sample Code for That Balloon Game Demoed on WWDC for Swift Be Downloaded

Hi. I can't find the balloon game sample code used in the WWDC in the Sample Code for iOS or OS X (assuming it's available for download). If it is available for download by Apple, where can it be downloaded?
Thank you in advance.
God bless, Cor. 13

The assets are in the .playground file's file package. Select the .playground file in the Finder, right-click, and choose Show Package Contents to browse the file package. The graphics files are in the Resources folder inside the file package.

Exception in running the sample code for XA

Hi,
I'm trying out sample code for XA with Two-phase commit operation - X4.java provided in "Oracle8i JDBC Developer's Guide and Reference"
http://technet.oracle.com/docs/products/oracle8i/doc_library/817_doc/java.817/a83724/samapp9.htm#1012235
I'm getting the following exception.
java.sql.SQLException: ORA-06550: line 1, column 13:
PLS-00201: identifier 'JAVA_XA.XA_START' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
     at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java:168)
     at oracle.jdbc.ttc7.TTIoer.processError(TTIoer.java:208)
     at oracle.jdbc.ttc7.Oall7.receive(Oall7.java:543)
     at oracle.jdbc.ttc7.TTC7Protocol.doOall7(TTC7Protocol.java:1405)
     at oracle.jdbc.ttc7.TTC7Protocol.parseExecuteFetch(TTC7Protocol.java:822)
     at oracle.jdbc.driver.OracleStatement.executeNonQuery(OracleStatement.java:1446)
     at oracle.jdbc.driver.OracleStatement.doExecuteOther(OracleStatement.java:1371)
     at oracle.jdbc.driver.OracleStatement.doExecuteWithTimeout(OracleStatement.java:1900)
     at oracle.jdbc.driver.OraclePreparedStatement.executeUpdate(OraclePreparedStatement.java:363)
     at oracle.jdbc.driver.OraclePreparedStatement.execute(OraclePreparedStatement.java:407)
     at oracle.jdbc.xa.client.OracleXAResource.start(OracleXAResource.java:156)
     at orajta.XA4.main(XA4.java:126)
oracle.jdbc.xa.OracleXAException
     at oracle.jdbc.xa.OracleXAResource.checkError(OracleXAResource.java:498)
     at oracle.jdbc.xa.client.OracleXAResource.start(OracleXAResource.java:190)
     at orajta.XA4.main(XA4.java:126)
What's the reason for the above exception and can someone help me with a possible fix for the same? Your help is greatly appreciated.
Thanks,
Haja

Hi,
I dont have access to a 8i db, but i ran the sample between two oracle9i db and it ran successfully.
Regards
Elango.

How can I get the sample code for crawler plugins?

Hi,
One SES document mentioned that there are three sample crawler plugins, which reside in $ORACLE_HOME/search/sample/agent. However, I couldn't find them. Did I miss installing something? Can anyone share with me the sample code?
Thanks.
Jun Gao

The original 10.1.6 sample plugins are no longer distributed in 10.1.8.1 as there were a few problems with them. I would suggest you take a look at
Simple File Crawler
http://www.oracle.com/technology/products/oses/pdf/Buidling_Custom_CrawlersJan12_07.doc
Sourcecode here:
http://www.oracle.com/technology/products/oses/files/simplefilecrawlerpluginmanager.java
and here
http://www.oracle.com/technology/products/oses/files/simplefilecrawlerplugin.java
And the two crawlers under "Sample Code" on the OTN page:
http://www.oracle.com/technology/products/oses/index.html

ABAP Sample code for HR_MAINTAIN_MASTERDATA

Hi folks,
I want to delimit a record in the HR master Table wi the help of Function Module HR_MAINTAIN_MASTERDATA, but its not updating HR master table correctly so please send me some sample code for that function module.
usefull points will rewarded.
Reg,
Hariharan

hi
good
check with this code
Call update function module:
      CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
        EXPORTING
          PERNR           = SS300_0001T-PERNR
          ACTIO           = OPERATION
          BEGDA           = VALIDITYBEGIN
          ENDDA           = '99991231'
          SUBTY           = SPACE
          NO_ENQUEUE      = SPACE
        IMPORTING
          RETURN1         = RETURN
        TABLES
          PROPOSED_VALUES = VALUES
        MODIFIED_KEYS   =
        EXCEPTIONS
          OTHERS          = 1.
      IF RETURN IS INITIAL.
        CONCATENATE SS300_0002-VORNA SS300_0002-NACHN
          INTO ENAME SEPARATED BY SPACE.
        CONDENSE ENAME.
        MESSAGE S006 WITH ENAME SPACE.
      ELSE.
        MESSAGE ID     RETURN-ID
                TYPE   'S'
                NUMBER RETURN-NUMBER
                WITH   RETURN-MESSAGE_V1 RETURN-MESSAGE_V2
                       RETURN-MESSAGE_V3 RETURN-MESSAGE_V4.
      ENDIF.
http://help.sap.com/saphelp_nw04/helpdata/en/f1/0ce464dc8b11d2803800c04f99fbf0/content.htm
reward point if helpful.
thanks
mrutyun^

Hi guys please give me sample code for call transaction that handles error

hi guys, please give me sample code for call transaction that handles error,
please send me the sample code in which there should be all decleration part and everything, based on the sample code i will develop my code.
please do help me as it is urgent.
thanks and regards.
prasadnn.

Hi Prasad,
Check this code.
Source Code for BDC using Call Transaction
*Code used to create BDC
*& Report ZBDC_EXAMPLE                                                *
*& Example BDC program, which updates net price of item 00010 of a     *
*& particular Purchase order(EBELN).                                   *
REPORT ZBDC_EXAMPLE NO STANDARD PAGE HEADING
                      LINE-SIZE 132.
Data declaration
TABLES: ekko, ekpo.
TYPES: BEGIN OF t_ekko,
    ebeln TYPE ekko-ebeln,
    waers TYPE ekko-waers,
    netpr TYPE ekpo-netpr,
    err_msg(73) TYPE c,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko,
      it_error TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_error TYPE t_ekko,
      it_success TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_success TYPE t_ekko.
DATA: w_textout            LIKE t100-text.
DATA: gd_update TYPE i,
      gd_lines TYPE i.
*Used to store BDC data
DATA: BEGIN OF bdc_tab OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA: END OF bdc_tab.
*Used to stores error information from CALL TRANSACTION Function Module
DATA: BEGIN OF messtab OCCURS 0.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF messtab.
*Screen declaration
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
                                    TITLE text-001. "Purchase order Num
SELECT-OPTIONS: so_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME
                                    TITLE text-002. "New NETPR value
PARAMETERS: p_newpr(14)   TYPE c obligatory. "LIKE ekpo-netpr.
SELECTION-SCREEN END OF BLOCK block2.
*START-OF-SELECTION
START-OF-SELECTION.
Retrieve data from Purchase order table(EKKO)
SELECT ekkoebeln ekkowaers ekpo~netpr
    INTO TABLE it_ekko
    FROM ekko AS ekko INNER JOIN ekpo AS ekpo
      ON ekpoebeln EQ ekkoebeln
   WHERE ekko~ebeln IN so_ebeln AND
         ekpo~ebelp EQ '10'.
*END-OF-SELECTION
END-OF-SELECTION.
Check data has been retrieved ready for processing
DESCRIBE TABLE it_ekko LINES gd_lines.
IF gd_lines LE 0.
Display message if no data has been retrieved
    MESSAGE i003(zp) WITH 'No Records Found'(001).
    LEAVE TO SCREEN 0.
ELSE.
Update Customer master data (instalment text)
    LOOP AT it_ekko INTO wa_ekko.
      PERFORM bdc_update.
    ENDLOOP.
Display message confirming number of records updated
    IF gd_update GT 1.
      MESSAGE i003(zp) WITH gd_update 'Records updated'(002).
    ELSE.
      MESSAGE i003(zp) WITH gd_update 'Record updated'(003).
    ENDIF.
Display Success Report
Check Success table
    DESCRIBE TABLE it_success LINES gd_lines.
    IF gd_lines GT 0.
    Display result report column headings
      PERFORM display_column_headings.
    Display result report
      PERFORM display_report.
    ENDIF.
Display Error Report
Check errors table
    DESCRIBE TABLE it_error LINES gd_lines.
If errors exist then display errors report
    IF gd_lines GT 0.
    Display errors report
      PERFORM display_error_headings.
      PERFORM display_error_report.
    ENDIF.
ENDIF.
*&      Form DISPLAY_COLUMN_HEADINGS
      Display column headings
FORM display_column_headings.
WRITE:2 ' Success Report '(014) COLOR COL_POSITIVE.
SKIP.
WRITE:2 'The following records updated successfully:'(013).
WRITE:/ sy-uline(42).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(004), sy-vline,
          (11) 'Old Netpr'(005), sy-vline,
          (11) 'New Netpr'(006), sy-vline.
WRITE:/ sy-uline(42).
ENDFORM.                    " DISPLAY_COLUMN_HEADINGS
*&      Form BDC_UPDATE
      Populate BDC table and call transaction ME22
FORM bdc_update.
PERFORM dynpro USING:
      'X'   'SAPMM06E'        '0105',
      ' '   'BDC_CURSOR'      'RM06E-BSTNR',
      ' '   'RM06E-BSTNR'     wa_ekko-ebeln,
      ' '   'BDC_OKCODE'      '/00',                      "OK code
      'X'   'SAPMM06E'        '0120',
      ' '   'BDC_CURSOR'      'EKPO-NETPR(01)',
      ' '   'EKPO-NETPR(01)' p_newpr,
      ' '   'BDC_OKCODE'      '=BU'.                      "OK code
Call transaction to update customer instalment text
CALL TRANSACTION 'ME22' USING bdc_tab MODE 'N' UPDATE 'S'
         MESSAGES INTO messtab.
Check if update was succesful
IF sy-subrc EQ 0.
    ADD 1 TO gd_update.
    APPEND wa_ekko TO it_success.
ELSE.
Retrieve error messages displayed during BDC update
    LOOP AT messtab WHERE msgtyp = 'E'.
    Builds actual message based on info returned from Call transaction
      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
           EXPORTING
                msgid               = messtab-msgid
                msgnr               = messtab-msgnr
                msgv1               = messtab-msgv1
                msgv2               = messtab-msgv2
                msgv3               = messtab-msgv3
                msgv4               = messtab-msgv4
           IMPORTING
                message_text_output = w_textout.
    ENDLOOP.
Build error table ready for output
    wa_error = wa_ekko.
    wa_error-err_msg = w_textout.
    APPEND wa_error TO it_error.
    CLEAR: wa_error.
ENDIF.
Clear bdc date table
CLEAR: bdc_tab.
REFRESH: bdc_tab.
ENDFORM.                    " BDC_UPDATE
      FORM DYNPRO                                                   *
      stores values to bdc table                                    *
--> DYNBEGIN                                                      *
--> NAME                                                          *
--> VALUE                                                         *
FORM dynpro USING    dynbegin name value.
IF dynbegin = 'X'.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-program,
           value TO bdc_tab-dynpro,
           'X' TO bdc_tab-dynbegin.
    APPEND bdc_tab.
ELSE.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-fnam,
           value TO bdc_tab-fval.
    APPEND bdc_tab.
ENDIF.
ENDFORM.                               " DYNPRO
*&      Form DISPLAY_REPORT
      Display Report
FORM display_report.
FORMAT COLOR COL_NORMAL.
Loop at data table
LOOP AT it_success INTO wa_success.
    WRITE:/      sy-vline,
            (10) wa_success-ebeln, sy-vline,
            (11) wa_success-netpr CURRENCY wa_success-waers, sy-vline,
            (11) p_newpr, sy-vline.
    CLEAR: wa_success.
ENDLOOP.
WRITE:/ sy-uline(42).
REFRESH: it_success.
FORMAT COLOR COL_BACKGROUND.
ENDFORM.                    " DISPLAY_REPORT
*&      Form DISPLAY_ERROR_REPORT
      Display error report data
FORM display_error_report.
LOOP AT it_error INTO wa_error.
    WRITE:/      sy-vline,
            (10) wa_error-ebeln, sy-vline,
            (11) wa_error-netpr CURRENCY wa_error-waers, sy-vline,
            (73) wa_error-err_msg, sy-vline.
ENDLOOP.
WRITE:/ sy-uline(104).
REFRESH: it_error.
ENDFORM.                    " DISPLAY_ERROR_REPORT
*&      Form DISPLAY_ERROR_HEADINGS
      Display error report headings
FORM display_error_headings.
SKIP.
WRITE:2 ' Error Report '(007) COLOR COL_NEGATIVE.
SKIP.
WRITE:2 'The following records failed during update:'(008).
WRITE:/ sy-uline(104).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(009), sy-vline,
          (11) 'Netpr'(010), sy-vline,
          (73) 'Error Message'(012), sy-vline.
WRITE:/ sy-uline(104).
FORMAT COLOR COL_NORMAL.
ENDFORM.                    " DISPLAY_ERROR_HEADINGS
Hope this resolves your query.
Reward all the helpful answers.
Regards

Sample code for creation of contact

Creation of contact using the java api does not work as it should for me. I think i dont have the correct format for the vcard will someone help me with this!! A sample code example will be very helpfull§. I am using calander version 9.0.4.
any additional information can be provided!
thanks
joyce

Creation of contact using the java api does not work
as it should for me. I think i dont have the correct
format for the vcard will someone help me with this!!
A sample code example will be very helpfull§. Hi Joyce,
The thread "create contact returns -- CAPI_STAT_LIBRARY_INTERNAL_COSMICRAY"
is the correct way to store a contact. Note that I just updated the thread.
What is your problem exactly?
Jean-Philippe

ABAP Routine code for the below logic

Hello BW Experts ,
I need to write a complex ABAP routine in BW .
Following is the detail explaination .
Can anyone tell me the ABAP code for the below logic?
It would be a greate help as I am unable to do this
since last two days.
WBS Elements are maintained at IOS and Warranty levels in R/3 side.
The IOS WBS is a top level of WBS element and below that the Warranty WBS level.
The IOS and Warranty WBS elements can be differentiated by means of priority field.
When priority = i   , WBS Element is known as IOS Level WBS Element and
When priority = Y the WBS element is known as Warranty WBS element.
The Equipment Number is maintained compulsorily at IOS Level WBS elements only.
It is not maintained at Warranty WBS Element.
But the Cost is maintained at Warranty WBS Elements.
In BW I need all Warranty WBS ( priority = Y) along with their cost figures and Equipment Numbers.
But as the Equipment Number is not maintained compulsorily at Warranty WBS level we have asked to
Copy it from IOS WBS ( priority = i ) and assign it to Warranty WBS level ( priority = Y ).
So I have included the Equipment Number in the ODS and in update rules I need to write the routine for it as
per the above logic.
The Equipment Number is coming from Master data of WBS Element.
The WBS element master data we are loading in BW .
Also the same WBS Element transaction data is coming from the transaction data data source in BW.
Following fields / infoobjects and the table names in BW :
1. Equipment Number : /BIC/ZEQUIPMNT and table name /BIC/MZWBS_ELEM.
2. WBS Element       : ZWBS_ELEM is coming from transaction data data source as well as master data.
                                 In ODS update rules it is coming from transaction data data source Comm_structure-ZWBS_ELEM.
                                 Also we are loading separetly the master data for ZWBS_ELEM.
                                 The ZEQUIPMNT is an attribute of ZWBS_ELEM.
3. Priority                : PRIORITY     and table name /BIC/MZWBS_ELEM.
                                  The info object name for Priority is 0Priority but in master data table /BIC/MZWBS_ELEM
                                  the field name is    PRIORITY.
                                 When PRIORITY = ' i ' then    ZWBS_ELEM is at IOS Level
                                 When PRIORITY = ' y ' then ZWBS_ELEM is at Warranty Level.
4. ODS name : /BIC/AZCOST00 and same is table name active data table .
So please tell me the routine Code .
Best Regards ,
Amol.

Hi Dinaker,
Did you find any solution for this issue. I too have a similar requirement of pulling all the service orders for a specific Purchase Order in the BW report.
Thanks,
SAPBWI

Sample code for Org Management

Hi,
         I am new to Org Management coding in HR ABAP.
   Can anybody post some simple sample code for Org. Management so that I can understand the flow of coding..
Thanks and Regards,
Ram

Hi
see the sample code using Orgn management infotypes like HRP1000 etc
report zporgr0040
       line-size 108
       line-count 60(1)
       no standard page heading
       message-id zndc.
Database Tables
tables: hrp1001,     " HR Master Record (Orgn. Assignment)
        pa0002,      " Personal Data
        t528t,       " Position Texts
        t527x,       " Org Unit Text
        t528b,       " Positions
        csks,        " Cost Center
        cskt.        " Cost Center Texts
Declaration of Internal Tables
Internal Table for Orgn Object Data HRP1000
data: begin of obj_tab occurs 0,
        otype like hrp1000-otype,      " Object Type
        objid like hrp1000-objid,      " Object ID
        plvar like hrp1000-plvar,      " Plan Version
        istat like hrp1000-istat,      " Planning Status
        begda like hrp1000-begda,      " Begin date
        endda like hrp1000-endda,      " End date
      end of obj_tab.
Internal Table for Active Employees data PA0000
data: begin of stat_tab occurs 0,
        pernr like pa0000-pernr,       " Object Type
        begda like pa0000-begda,       " Begin date
        endda like pa0000-endda,       " End date
        stat2 like pa0000-stat2,       " Employment Status
      end of stat_tab.
Internal Table for Actual Orgn Assignment Data PA0001
data: begin of act_tab occurs 0,
        pernr like pa0001-pernr,       " Object Type
        begda like pa0001-begda,       " Begin date
        endda like pa0001-endda,       " End date
        kostl like pa0001-kostl,       " Cost Center
        orgeh like pa0001-orgeh,       " Org Unit
        plans like pa0001-plans,       " Position
        natio like pa0002-natio,       " Nationality
      end of act_tab.
Internal Table for Orgn Data HRP1001
data: begin of org_tab occurs 0,
        otype like hrp1001-otype,      " Object Type
        objid like hrp1001-objid,      " Object ID
        plvar like hrp1001-plvar,      " Plan Version
        istat like hrp1001-istat,      " Planning Status
        begda like hrp1001-begda,      " Begin date
        endda like hrp1001-endda,      " End date
        subty like hrp1001-subty,      " Sub Type
        sclas like hrp1001-sclas,      " Type of Related Object
        sobid like hrp1001-sobid,      " Id of Related Object
        kostl like pa0001-kostl,       " Cost Center
        plstx like t528t-plstx,        " Position Text
        orgtx like t527x-orgtx,        " Org Unit Text
      end of org_tab.
Internal Table for Position Calculations
data: begin of org1_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        objid like hrp1001-objid,      " Object ID
      end of org1_tab.
Internal Table for Position Calculations
data: begin of org2_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        count type i,                  " No of Positions
      end of org2_tab.
Internal Table for Actual Manpower Calculations
data: begin of act1_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        natio like pa0002-natio,       " Nationality
        plans like pa0001-plans,       " Position
      end of act1_tab.
Internal Table for Actual Manpower Calculations(UAE)
data: begin of act2_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        natio like pa0002-natio,       " Nationality
      end of act2_tab.
Internal Table for Actual Manpower Calculations(Others)
data: begin of act3_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        natio like pa0002-natio,       " Nationality
      end of act3_tab.
Internal Table for Actual Manpower Calculations(UAE)
data: begin of act4_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        count1 type i,                 " No of Positions(UAE)
      end of act4_tab.
Internal Table for Actual Manpower Calculations(OTHERS)
data: begin of act5_tab occurs 0,
        kostl like pa0001-kostl,       " Cost Center
        count2 type i,                 " No of Positions(Others)
      end of act5_tab.
Internal Table for Vaccancies Data
data: begin of vac_tab occurs 0,
        plvar like hrp1007-plvar,      " Plan Version
        otype like hrp1007-otype,      " Object Type
        objid like hrp1007-objid,      " Object ID
        istat like hrp1007-istat,      " Planning Status
        begda like hrp1007-begda,      " Begin date
        endda like hrp1007-endda,      " End date
        vacan like hrp1007-vacan,      " Vacancy Indicator
        status like hrp1007-status,    " Status of Vacancy
      end of vac_tab.
Internal Table to store the Report Output data
data : begin of rep_tab occurs 0 ,
         kostl(10) type n,                  " Cost Cente
         plans   like pa0001-plans,         " Position
         vacan   like hrp1007-vacan,        " Vacancy Indicator
         status like hrp1007-status,       " Status of Vacancy
         plstx   like t528t-plstx,          " Position Text
         orgtx like t527x-orgtx,            " Org Unit Text
       end of rep_tab.
Internal Table to store the Report Output data
data : begin of rep1_tab occurs 0 ,
         kostl(10) type n,                  " Cost Cente
         cnt     type i,                    " No of Vacancies
       end of rep1_tab.
Internal Table to store the Report Output data
data : begin of rep2_tab occurs 0 ,
         kostl(10) type n,                  " Cost Cente
         app_no    type i,                  " Approved
         nat_no    type i,                  " National
         exp_no    type i,                  " Expatriate
         tot_no    type i,                  " Total
         vac_no    type i,                  " Vacancies
       end of rep2_tab.
Declaration of Variables
data: v_sobid like hrp1001-sobid,   " Object Id
      v_sobid1 like hrp1001-sobid,   " Object Id
      v_sobid2 like hrp1001-sobid,   " Object Id
      v_sclas like hrp1001-sclas,   " Related Obj Type
      v_subty like hrp1001-subty,   " Related Object Id
      v_otype like hrp1007-otype,   " Object Type
     v_str(9)    type c,            " Text
     v_str1(10) type c,            " Text
      v_cnt    like sy-tabix.        " Table Index
Declaration of Constants
constants : c_x         type c value 'X',            " Flag
            c_stat1 like pa0000-stat2 value '3',   " Emp Status
            c_plan   like hrp1001-plvar value '01', " Plan Version
            c_name   like hrp1000-uname value 'SAP', " Uname
            c_uae    like pa0002-natio value 'AE', " Country
            c_type   like hrp1007-otype value 'O', " Object Type
            c_otype like hrp1007-otype value 'S', " Object Type
            c_stat   like hrp1007-status value '0', " Status
            c_pstat like hrp1007-istat value '1', " Plang Status
            c_sclas like hrp1001-sclas value 'K',    " Rel. Obj Type
            c_subty like hrp1001-subty value 'A002', " Related ObjId
            c_subty2 like hrp1001-subty value 'A003', " Related ObjId
            c_sclas1 like hrp1001-sclas value 'O',    " Rel.Obj Type
            c_subty1 like hrp1001-subty value 'A011', " Rel.Object Id
            c_kokrs like coej-kokrs value '1000'. " Controlling Area
Selection Screen
selection-screen begin of block b1 with frame title text-001.
parameters     :
p_date like pa0001-begda obligatory default sy-datum. " Date
select-options :
s_kostl for csks-kostl,                     " Cost Center
s_plans for t528b-plans.                    " Position ID
selection-screen end of block b1.
At selection-screen
at selection-screen.
Validate the Selection Screen fields
perform validate_screen.
Start-of-Selection
start-of-selection.
Get the Orgn data from database Table HRP1001
perform get_org_data.
Get the Actual Manpower from PA0001
perform get_act_data.
Get the Vaccancies data from database Table HRP1007
perform get_vac_data.
Append the data into final Internal Table
perform append_data.
Top-of-page
top-of-page.
Write the Report and Column Headings
perform top_of_page.
End-of-Page
end-of-page.
write /1(108) sy-uline.
End-of-Selection
end-of-selection.
Display the Output Report.
perform display_report.
Form-Routines
*&      Form validate_screen
Validation of selection Screen fields
form validate_screen.
Validation of Position ID
clear t528b.
if not s_plans[] is initial.
    select single plans
      into t528b-plans
      from t528b
      where plans in s_plans.
    if sy-subrc <> 0.
      message e999 with 'Invalid Position ID'(009).
    endif.
endif.
Validation of Cost Center
clear csks.
if not s_kostl[] is initial.
    select single kostl
      into csks-kostl
      from csks
      where kostl in s_kostl.
    if sy-subrc <> 0.
      message e999 with 'Invalid Cost Center'(008).
    endif.
endif.
endform.                  "validate_screen
*&      Form get_org_data
Get the Orgn Data from Database Table HRP1001
form get_org_data.
v_str = 'Developee'(002).
v_str1 = 'Deployment'(003).
Select All the Positions from HRP1000
select otype       " Object Type
         objid       " Object ID
         plvar       " Plan Version
         istat       " Planning Status
         begda       " Begin date
         endda       " End date
     into table obj_tab
     from hrp1000
     where otype = c_otype and
           plvar = c_plan   and
           istat = c_pstat and
           begda le p_date and
           endda ge p_date and
           objid in s_plans and
           uname ne c_name.
sort obj_tab by otype objid.
Get the Orgn and Cost Center for all the above Positions
if not obj_tab[] is initial.
    select otype       " Object Type
           objid       " Object ID
           plvar       " Plan Version
           istat       " Planning Status
           begda       " Begin date
           endda       " End date
           subty       " Sub Type
           sclas       " Type of Related Object
           sobid       " Id of Related Object
       into table org_tab
       from hrp1001
       for all entries in obj_tab
       where otype = c_otype and
             plvar = c_plan   and
             istat = c_pstat and
             begda le p_date and
             endda ge p_date and
             sclas eq c_sclas1 and
             subty eq c_subty2 and
             objid eq obj_tab-objid.
endif.
sort org_tab by otype objid.
Get the Cost Center
loop at org_tab.
    v_otype = c_otype.       " S
    v_sclas = c_sclas.       " K
    v_subty = c_subty1.                                     " A011
    v_sobid = org_tab-objid.
    perform get_org using v_otype v_sclas v_subty
                    v_sobid.
    if sy-subrc = 0.
      org_tab-kostl = hrp1001-sobid+0(10).
    else.
      v_otype = c_otype.    " S
      v_sclas = c_sclas1.   " O
      v_subty = c_subty2.                                   " A003
      v_sobid = org_tab-objid.
      perform get_org using v_otype v_sclas v_subty
                     v_sobid.
      if sy-subrc = 0.
        v_otype = c_type.     " O
        v_sclas = c_sclas.    " K
        v_subty = c_subty1.                                 " A011
        v_sobid1 = v_sobid.
        perform get_org using v_otype v_sclas v_subty
                             v_sobid.
        if sy-subrc <> 0.
          v_otype = c_type.    " O
          v_sclas = c_sclas1. " O
          v_subty = c_subty.                                " A002
          v_sobid = v_sobid1.
          perform get_org using v_otype v_sclas v_subty
                    v_sobid.
          if sy-subrc = 0.
            v_otype = c_type.   " O
            v_sclas = c_sclas. " K
            v_subty = c_subty1.                             " A011
            v_sobid2 = v_sobid.
            perform get_org using v_otype v_sclas v_subty
                             v_sobid.
            if sy-subrc <> 0.
              v_otype = c_type.   " O
              v_sclas = c_sclas1. " O
              v_subty = c_subty.                            " A002
              v_sobid = v_sobid2.
              perform get_org using v_otype v_sclas v_subty
                      v_sobid.
            else.
              org_tab-kostl = hrp1001-sobid+0(10).
            endif.
          endif.
        else.
          org_tab-kostl = hrp1001-sobid+0(10).
        endif.
      else.
        v_otype = c_otype.   " S
        v_sclas = c_otype.   " S
        v_subty = c_subty.                                  " A002
        v_sobid = org_tab-objid.
        perform get_org using v_otype v_sclas v_subty
                       v_sobid.
        if sy-subrc = 0.
          v_otype = c_otype. " S
          v_sclas = c_sclas. " K
          v_subty = c_subty1.                               " A011
          v_sobid1 = v_sobid.
          perform get_org using v_otype v_sclas v_subty
                               v_sobid.
          if sy-subrc <> 0.
            v_otype = c_otype. " S
            v_sclas = c_sclas1. " O
            v_subty = c_subty2.                             " A003
            v_sobid = v_sobid1.
            perform get_org using v_otype v_sclas v_subty
                      v_sobid.
            if sy-subrc = 0.
              v_otype = c_type.   " O
              v_sclas = c_sclas. " K
              v_subty = c_subty1.                           " A011
              v_sobid2 = v_sobid.
              perform get_org using v_otype v_sclas v_subty
                               v_sobid.
              if sy-subrc <> 0.
                v_otype = c_type.    " O
                v_sclas = c_sclas1. " O
                v_subty = c_subty.                          " A002
                v_sobid = v_sobid2.
                perform get_org using v_otype v_sclas v_subty
                        v_sobid.
              else.
                org_tab-kostl = hrp1001-sobid+0(10).
              endif.
            endif.
          else.
            org_tab-kostl = hrp1001-sobid+0(10).
          endif.
        endif.
      endif.
    endif.
Get the Position Text
    clear t528t.
    select single plstx from t528t into t528t-plstx
      where sprsl = sy-langu and
            otype = c_otype and
            plans = org_tab-objid.
    org_tab-plstx = t528t-plstx.
Get the Org Unit Text
    clear t527x.
    select single orgtx from t527x into t527x-orgtx
      where sprsl = sy-langu and
            orgeh = org_tab-sobid+0(8).
    org_tab-orgtx = t527x-orgtx.
    modify org_tab index sy-tabix.
    clear v_sobid.
endloop.
sort org_tab by otype objid.
Calculate the Approved No of Positions
loop at org_tab.
    if org_tab-kostl in s_kostl.
      move-corresponding org_tab to org1_tab.
      append org1_tab.
      clear org1_tab.
    endif.
endloop.
sort org1_tab by kostl objid.
clear v_cnt.
loop at org1_tab.
    at end of kostl.
      sy-tabix = sy-tabix - v_cnt.
      org2_tab-kostl = org1_tab-kostl.
      org2_tab-count   = sy-tabix.
      v_cnt = v_cnt + sy-tabix.
      append org2_tab.
      clear:org2_tab.
    endat.
endloop.
sort org2_tab by kostl.
endform.              "get_org_data
*&      Form get_act_data
Get the Actual Manpower Data from Database Table PA0001
form get_act_data.
clear : stat_tab, act_tab.
refresh: stat_tab, act_tab.
Get all the Active Employees
select pernr       " Object Type
         begda       " Begin date
         endda       " End date
         stat2       " Emp Status
       into table stat_tab
       from pa0000
       where stat2 eq c_stat1 and
             begda le p_date and
             endda ge p_date.
sort act_tab by pernr.
if not stat_tab[] is initial.
    select pernr       " Object Type
           begda       " Begin date
           endda       " End date
           kostl       " Cost Center
           orgeh       " Org Unit
           plans       " Position
       into table act_tab
       from pa0001
       for all entries in stat_tab
       where pernr eq stat_tab-pernr and
             kostl in s_kostl and
             plans in s_plans and
             persg eq '1'     and
             begda le p_date and
             endda ge p_date.
endif.
sort act_tab by pernr.
loop at act_tab.
    move-corresponding act_tab to act1_tab.
    clear pa0002-natio.
    select single natio into pa0002-natio from pa0002
      where pernr = act_tab-pernr.
    if sy-subrc = 0.
      act1_tab-natio = pa0002-natio.
    endif.
    append act1_tab.
    clear act1_tab.
endloop.
sort act1_tab by kostl natio.
Calculate the Local and Expatriate Manpower
loop at act1_tab.
    if act1_tab-natio = c_uae.
      act2_tab-kostl = act1_tab-kostl.
      act2_tab-natio = act1_tab-natio.
    else.
      act3_tab-kostl = act1_tab-kostl.
      act3_tab-natio = act1_tab-natio.
    endif.
    append: act2_tab, act3_tab.
    clear : act2_tab,act3_tab.
endloop.
sort act2_tab by kostl.
sort act3_tab by kostl.
Actual UAE Manpower
clear v_cnt.
loop at act2_tab.
    at end of kostl.
      sy-tabix = sy-tabix - v_cnt.
      act4_tab-kostl   = act2_tab-kostl.
      act4_tab-count1 = sy-tabix.
      v_cnt = v_cnt + sy-tabix.
      append act4_tab.
      clear:act4_tab.
    endat.
endloop.
sort act4_tab by kostl.
Other Countries
clear v_cnt.
loop at act3_tab.
    at end of kostl.
      sy-tabix = sy-tabix - v_cnt.
      act5_tab-kostl   = act3_tab-kostl.
      act5_tab-count2 = sy-tabix.
      v_cnt = v_cnt + sy-tabix.
      append act5_tab.
      clear:act5_tab.
    endat.
endloop.
sort act5_tab by kostl.
endform.              "get_act_data
*&      Form get_org
Get the Cost Center from Parent Org Id
form get_org using p_v_otype p_v_sclas p_v_subty p_v_sobid.
clear hrp1001.
select single * from hrp1001
        where otype = p_v_otype and
              plvar = c_plan   and
              istat = c_pstat and
              begda le p_date and
              endda ge p_date and
              sclas eq p_v_sclas   and
              subty eq p_v_subty and
              objid eq p_v_sobid.
v_sobid = hrp1001-sobid+0(8).
endform.                    " get_org
*&      Form get_vac_data
Get the Vaccancies Data from Database Table HRP1007
form get_vac_data.
if not org_tab[] is initial.
    select plvar       " Plan Version
           otype       " Object Type
           objid       " Object ID
           istat       " Planning Status
           begda       " Begin date
           endda       " End date
           vacan       " Vacancy Indicator
           status      " Status of Vacancy
       into table vac_tab
       from hrp1007
       for all entries in org_tab
       where plvar = c_plan   and
             otype = c_otype and
             istat eq c_pstat and
             objid = org_tab-objid and
             begda le p_date and
             endda ge p_date and
             vacan eq c_x and
             status eq c_stat.
endif.
sort vac_tab by plvar otype objid.
Get the HR data into the rep_tab Internal Table
loop at vac_tab.
    rep_tab-plans = vac_tab-objid.
    rep_tab-vacan = vac_tab-vacan.
    rep_tab-status = vac_tab-status.
    read table org_tab with key objid = vac_tab-objid.
    if sy-subrc = 0.
      rep_tab-kostl = org_tab-kostl.
      rep_tab-plstx = org_tab-plstx.
      rep_tab-orgtx = org_tab-orgtx.
    endif.
    append rep_tab.
    clear rep_tab.
endloop.
loop at rep_tab.
    if not rep_tab-kostl in s_kostl.
      delete rep_tab index sy-tabix.
    endif.
endloop.
sort rep_tab by kostl plans.
delete rep_tab where plstx cs v_str.
delete rep_tab where orgtx cs v_str1.
Calculate the Count of Vacancies in each Division
clear v_cnt.
loop at rep_tab.
    at end of kostl.
      sy-tabix = sy-tabix - v_cnt.
      rep1_tab-kostl = rep_tab-kostl.
      rep1_tab-cnt   = sy-tabix.
      v_cnt = v_cnt + sy-tabix.
      append rep1_tab.
      clear:rep1_tab.
    endat.
endloop.
sort rep1_tab by kostl.
endform.                  "get_vac_data
*&      Form append_data
Append the data into final Internal Table
form append_data.
loop at org2_tab.
    rep2_tab-kostl = org2_tab-kostl.
    rep2_tab-app_no = org2_tab-count.
    read table act4_tab with key kostl = org2_tab-kostl
                                 binary search.
    if sy-subrc = 0.
      rep2_tab-nat_no = act4_tab-count1.
    endif.
    read table act5_tab with key kostl = org2_tab-kostl
                                 binary search.
    if sy-subrc = 0.
      rep2_tab-exp_no = act5_tab-count2.
    endif.
    read table rep1_tab with key kostl = org2_tab-kostl
                                 binary search.
    if sy-subrc = 0.
      rep2_tab-vac_no = rep1_tab-cnt.
    endif.
    rep2_tab-tot_no = rep2_tab-nat_no + rep2_tab-exp_no.
    append rep2_tab.
    clear rep2_tab.
endloop.
sort rep2_tab by kostl.
endform.             "append_data
*&      Form top_of_page
Write the Report and Column Headings
form top_of_page.
skip.
format color col_heading on.
write: /1(108) 'NATIONAL DRILLING COMPANY'(010) centered,
         /1(108) 'Summary of Manning Level Report'(011) centered.
format color off.
skip.
write: /2 'Key Date        :'(013), p_date,
         75 'Report Run Date:'(041), sy-datum.
if not s_kostl[] is initial.
    if s_kostl-high is initial.
      write: /2 'Cost Center     :'(023), s_kostl-low,
             75 'Time           :'(042), sy-uzeit.
    else.
      write: /2 'Cost Center From:'(024), s_kostl-low+7(3),
                                'To'(022), s_kostl-high,
             75 'Time           :'(042), sy-uzeit.
    endif.
else.
    write: /75 'Time           :'(042), sy-uzeit.
endif.
if not s_plans[] is initial.
    if s_plans-high is initial.
      write: /2 'Position Id     :'(019), s_plans-low,
             75 'User           :'(043), sy-uname.
    else.
      write: /2 'Position Id From:'(021), s_plans-low,
                          'To'(022), s_plans-high,
             75 'User           :'(043), sy-uname.
    endif.
else.
    write: /75 'User           :'(043), sy-uname.
endif.
write: /75 'Page No        :'(044), sy-pagno.
skip.
write /1(108) sy-uline.
format color col_heading.
write:/1 sy-vline,
        12 sy-vline, 53 sy-vline,
        64 sy-vline, 65(32) 'Actual'(018) centered,
        97 sy-vline,108 sy-vline.
write:/1 sy-vline, 2(10) 'CostCenter'(014),
        12 sy-vline, 13(40) 'Description'(026) centered,
        53 sy-vline, 54(10) 'Approved'(025) centered,
        64 sy-vline, 65(32) sy-uline,
        97 sy-vline, 98(10) 'Vacancies'(017),
       108 sy-vline.
write:/1 sy-vline,
        12 sy-vline, 53 sy-vline,
        64 sy-vline, 65(10) 'National'(015) centered,
        75 sy-vline, 76(10) 'Expatriate'(020) centered,
        86 sy-vline, 87(10) 'Total'(016) centered,
        97 sy-vline,108 sy-vline.
format color off.
write /1(108) sy-uline.
endform.               "top_of_page
*&      Form Display_report
Write the Report Output
form display_report.
if rep2_tab[] is initial.
    message i999 with
    'No Data found for the entered Selection'(035).
else.
    loop at rep2_tab.
Authorization Check for the Orgn and Cost Centers
      perform auth_check_org.
      if sy-subrc = 0.
        clear cskt.
        select single ltext into cskt-ltext from cskt
            where spras = sy-langu and
                  kokrs = c_kokrs and
                  kostl = rep2_tab-kostl.
        format color col_normal.
        write: /1 sy-vline, 2(10) rep2_tab-kostl+7(3),
               12 sy-vline, 13(40) cskt-ltext,
               53 sy-vline, 54(10) rep2_tab-app_no,
               64 sy-vline, 65(10) rep2_tab-nat_no,
               75 sy-vline, 76(10) rep2_tab-exp_no,
               86 sy-vline, 87(10) rep2_tab-tot_no,
               97 sy-vline, 98(10) rep2_tab-vac_no,
              108 sy-vline.
        format color off.
        at last.
          sum.
          format color 3.
          write /1(108) sy-uline.
          write: /1 sy-vline, 2(10) 'Total'(027),
                 12 sy-vline,
                 53 sy-vline, 54(10) rep2_tab-app_no,
                 64 sy-vline, 65(10) rep2_tab-nat_no,
                 75 sy-vline, 76(10) rep2_tab-exp_no,
                 86 sy-vline, 87(10) rep2_tab-tot_no,
                 97 sy-vline, 98(10) rep2_tab-vac_no,
                108 sy-vline.
          format color off.
        endat.
      endif.
    endloop.
endif.
write /1(108) sy-uline.
endform.                    " Display_report
*&      Form auth_check_org
Authorization Check for the Orgn and Cost Center
form auth_check_org.
authority-check object 'ZNDCHROM'
        id 'PLVAR' dummy
        id 'OTYPE' dummy
        id 'KOSTL' field rep2_tab-kostl.
endform.                  "auth_check_org
<b>Reward points for useful Answers</b>
Regards
Anji

Routine sample code for reading 2 fields from existing DSO

Hi Gurus,
I am a monkey when it comes to write ABAP code. I have one DSO-A where we store accounting info of purchading (from DS 2lis_02_acc) and one DSO-B getting data from 2lis_02_scl data source.
We need to write a rountine to read DSO-A for G/L account and populate DSO-B G/L account field.
Please provide me the sample code for this.
Warm Regards,
Anil

Hi anil,
Create a local table this is type of you source,
Data : LV_table TYPE XXXX
use the select statement to read the table of DSO .You have to use th active table for the dso that you want to read data from.
Select xxxfieldxxx FROM /BIC/A..........50
into lv_table where
filed name of of scheule line probably order no and item no .
<soruce-fields>-IOBELN = IOBELN
and <source-fields>-IOBELP = IOBELP.
Checke the techinal name i am not sure about it. It will be something like that.
Cheers mate

Req. Sample code for the Updation of Master record in MDM using Java API..

Similar Messages

Maybe you are looking for