Org Management - man power report

I am new to HR ABAP. I have to develop a report on man power. The requirements are as below.
Give the no. of employees in each department. Reports are produced at all levels i.e line manager, senior manager , director and company. For instance when a senior manager generates this report then he should see all the departments that his line managers are handling under him as well as the total no. of employees under him. The same goes for all levels.

Hi Suresh,
                    Thanks a lot for your valuable information...
   Can u pass some sample code for any OM report which clearly explains how exactly reporting in OM is done. 
         Can U give me the simple  sample code for the above requirement...
Thanks and Regards,
NEHA

Similar Messages

  • Org Management Reports.

    Hello All,
    We recently upgraded from 4.6c to ECC5.0. After the upgrade when we execute reports in Org Management like S_AHR_61016494 or any other reports, the reports changed a lot ( Layout ) the data is fine. In our previous version we are able to see many options and also we can save the report as a local file from the menu path system -> List -> Save -> Local File or any other options.
    But in our upgraded system there is no option like this and many others. We can not even right click on any object and edit it, we used to do that.
    Can someone explain if this has been changed like this or is this some problem with us.
    Its not authorization problem as I have my profile copied over from old system to the new one.
    Thanks a lot for your inputs!
    Chakri.

    Hi Chakri,
    Agree with you. Some workarounds :
    - To click and edit an object : Click the object, then goto Edit -> Maintain trans.
    - To save to a file :
      - Right mouse click at the header of the report and select "Export to Microsoft    Excel". Mine encounter an error when exporting to Excel.
      - Alternatively, run the report in the background. Then use sm37 to retrieve the
        spool file. When you view this spool file, you are able to save via List -> Save ->
        Local File.
    Hope it helps. Thanks.
    Regards
    Kir Chern

  • Trouble generating Org Managment Report

    When I want to send to the workplace an org management report generated with the transaction S_AHR_61016494 the positions are visualized by characters like \n.
    Has anybody know how to fix it?
    Thanks in advance,

    I have gone back through and scoured the code.
    Here is what I am finding. If I take out the option for either/or completely and specify 'xls' only, it works fine.
    When I put back in the option of either PDF or Excel, it forces a PDF no matter what I select.
    Any suggestions are greatly appreciated!
    --KWien                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               

  • Org.freedesktop.hal.power-management.reboot returns no

    Hallo,
    I'm a new Xfce4 user, and when I reboot as non-root, I get the message
    org.freedesktop.hal.power-management.reboot returns no
    When asking google, one solution would be to change in /usr/share/PolicyKit/policy/org.freedesktop.hal.power-management.policy
    <action id="org.freedesktop.hal.power-management.reboot">
    <description>Reboot the system</description>
    <message>System policy prevents rebooting the system</message>
    <defaults>
    <allow_inactive>no</allow_inactive>
    <allow_active>yes</allow_active>
    </defaults>
    </action>
    to
    <action id="org.freedesktop.hal.power-management.reboot">
    <description>Reboot the system</description>
    <message>System policy prevents rebooting the system</message>
    <defaults>
    <allow_any>yes</allow_any>
    </defaults>
    </action>
    But this is only a workaround - what is the meening of "active" and "inactive" in this context, and how can I get "active" to be able to reboot?
    Thx, Charly

    In this case, "active" and "inactive" refer to the status of the current ConsoleKit session.
    Do 'ck-list-sessions' command from a console to see the sessions, you should see a "Active = TRUE"
    If however you see no output, then your Xfce session isn't registered with ConsoleKit. This usually happens to people that are using 'startx' to load X (using GDM/KDM should automatically register the ConsoleKit session). Try editing your .xinitrc and change it from 'exec startxfce4' to 'exec ck-launch-session startxfce4'

  • Org Management programing Material

    Hi,
    Can any one pls send me the document on reporting in Org Management.
    Thankyou.

    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
    Also
    Check this link : http://www.sapdevelopment.co.uk/hr/hrhome.htm.
    Reward points if found helpful……
    Cheers,
    Chandra Sekhar.

  • 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

  • Relation ships in Org management

    Hi Every one,
    My first question is  regarding maintaing org management relation ships .How we maintain relation ships between persons(s) in development system coz there will be no data available  in development system.????
    My second question is ,For example I  created org unit A ,Org Unit B ,i assigned a position sr clerk to org unit A and sr Clerk to Org unit B. .Now my question is position  in org unit B should  reports to  position in  org unit  A..and .how their relation ships are  maintained????

    Hi,
    1. I think u got the solution for the first one from amit,
    2. This can be done using expert mode.kindly do the senario which u told and create relationship as u told which is possible here.
    kindly check out and let me know if u have any concern.
    Asha

  • Default Relationships in Org Management

    Hello All...
    I am having a big issue with the defaults of Org Management relationships.  For some reason, our installation does NOT allow me to automatically create positions dependent on other positions...like 'is supervised by' relationship between positions.  I have tried creating manually, and have checked the IMG for 'allowed relationships' and it shows that a position to position relationship of 'is supervisor of' is available.  Any and all help much appreciated...I can't figure out how to automatically do this.
    Thanks,
    Hope

    Hope,
    In the ECC6 system I am working with at the moment, it doesn't work that way either.  In PPOME I can create a new position from an Org Unit, but not from another position.
    Must admit, I have never tried to do that in this or older releases before though.  We tend to mostly use Chief positions, so any new positions are just created in the Org Unit and automatically report to the Chief.
    I did notice that if I created a new position in PPOME then added the "Reports To" relationship manually (via Go To > Detail object > Enhanced object description), any copies of the positon that I subsequently made in PPOME also got the same "Reports To" relationship created automatically.
    Regards,
    John

  • Wireless Keyboard & Magic Mouse - Battery Power Reporting Problem

    Problem Description: OS X Bluetooth Manager is constantly reporting that my 2009 Apple Wireless Keyboard has a low battery. For instance, Bluetooth Manager reports my Wireless Keyboard Battery Level is 18%. At the same time Bluetooth Manager reports my Mouse Battery Level is 65%. Because the Keyboard Battery Level is low I am being constantly nagged by the Bluetooth Manager about Battery Level and the possibility of the Keyboard disconnecting.
    I decided to swap batteries between the keyboard and mouse as part of a test to see if there is a problem with the way the keyboard or mouse reports available battery power. Sure enough it appears there is a problem with battery power level reporting.
    The batteries that were in the Wireless Keyboard, and that are now in the Magic Mous,e are now reported as having a Mouse Battery Level of 65%, compared to a Keyboard Battery Level of 18%. The batteries that were in the Magic Mouse, and that are now in the Wireless Keyboard, are now reported as having a Keyboard Battery Level of 18%, compared to a Mouse Battery Level of 65%.
    Conclusion, either the Wireless Keyboard, or the Magic Mouse, or both devices are incorrectly reporting the Battery Power Level. It may also be that the OS X Bluetooth Manager is incorrectly reporting the battery level of one or both devices as well.
    This needs Apple to investigate & fix the issue through updates to either the Magic Mouse, 2009 Wireless Keyboard or the OS X Bluetooth Stack.
    I am using Duracell NiMH 1.2V 2000MAh "Stay Charged" Batteries (same as the Apple Store battery version)
    I'm running Snow Leopard 10.6.4 + Apple 2009 Wireless Keyboard Firmware Update 1.0 + Bluetooth 2.0.1. Firmware Update.
    So Apple Support Techs... there is the challenge; are you up for investigating and fixing this problem??
    Cheers Pete

    Thanks for the link David. I used the Community Forums because I've found in the past that Apple Support do monitor them and do pick up problems with Apple gear and pass the info back to their developers. Mostly I used the Community Forums because I just couldn't find the link you provided, so thanks again.
    ps Apple & Macintosh are one in the same. My Apple Wireless Keyboard & Apple Magi Mouse are actually performing as per the descriptions in their respective user manuals, especially in terms of how they report battery state through their built in LED lights. So I deduced this as a problem with the Mac-mini Bluetooth Stack, so beleive it is appropriate to this forum.
    I'm sure other users have noticed this, or similar problems, so perhaps they will add their experience of this issue to my original post. When I did a search of the Community Forums using the search term "Keyboard OR Mouse AND Battery" I found plenty of similar issues.
    Thanks again for the link I'll chase Apple through that channel.

  • Sharepoint 2010 question : Error while deploying wsp file in using managment shell (power script)

    When I tried to deploy the wsp's using managment shell (power shell scripts) everything looks good.
    When I go and take a look the "manage farm solutions" thru sharepoint central admin, I see the deployment failed in two servers.
    Error is
    Could not load file or assembly 'c:\windows\Temp\solution-cxxxxxxxxxxxxxx\xxx.xxx.dll" or one of its dependencies. Access is denied.
    Can you please let me know what could be the reason.
    Note : I have two app servers and two web servers setup. The deployment is sucessful in 2 apps servers . but 2 web servers are giving error.
    Thanks
    Pichaimani

    Hi,
    According to your post, my understanding is that you wanted to failed to deploy the wsp's using managment shell.
    You need to make sure that the dll is registered in the GAC.
    Go to %Windows%\assembly. If the dll isn't there , you need to install it to the GAC on the server. Simply drag it into that folder in Windows Explorer, and it should install itself.
    Here is a similar thread for your reference:
    http://stackoverflow.com/questions/1265505/sharepoint-could-not-load-file-or-assembly-the-system-cannot-find-the-file-sp
    Best Regards,
    Linda Li
    Linda Li
    TechNet Community Support

  • HR-ABAP issue how to find manager in PA reporting

    hi all,
    my requirement is find the manager in PA reporting.
    Retrieve the Manager Personnel number from the HRP1001 table.Use this personnel number and retrieve Name (ENAME) from IT0001 and Email ID (USRID) from IT0105 SUBTYPE as u20180010u2019
    how to find the manager position and his relation ship.

    Hi,
    To get the position of the manager -
    Use the FM
    RH_READ_INFTY_1001
        CALL FUNCTION 'RH_READ_INFTY_1001'
         EXPORTING
      AUTHORITY              = 'DISP'
      WITH_STRU_AUTH         = 'X'
           plvar                  = '01'
           otype                  = 'P'
           objid                  = fs_pa0000-pernr (manager's id)
       subty                  = 'B008'
       begda                  = fs_pa0000-begda
       endda                  = fs_pa0000-endda
          TABLES
            i1001                  = t_i1001
      OBJECTS                =
         EXCEPTIONS
           nothing_found          = 1
           wrong_condition        = 2
           wrong_parameters       = 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.
        ENDIF.
        APPEND LINES OF t_i1001 TO t_pos.
    this table t_pos holds the postion.
    Regards
    Lekha

  • Org managament -Cost Center- Position

    Hi Experts,
    There is  a clarification required, I am creating Jobs,Positions from 01.01.1900 upto 31.12.9999 and the FI consultant has created his Cost centers mentioning the date as 01.04.2009. As se says that I need to mantain the cost center creation dates only 1 year prior to GO-LIVE date.
    Now the problem is when I am creating one of the Positions in the Account Assignment tab details and its Cost distribution tab in Org Managment with PPOCE transaction, by assigning the positions relevent Cost Center where he falls to....the system throws and error stating that Cost Center not maintained on 01.01.1900 as it is the matter of that cost centers have been created only from 01.04.2009.
    So, now can any of you let me know how myself and FI consultant need to resolve this issue?
    Best Regards,
    KishoreJ.

    Hi,
    So, I would go ahead and create Jobs & Positions according to Cost Center dates. Can you please clarify me with one thing is
    Now If I create the Jobs & Position of the date from which Cost Centers have been created in my case 01.04.2009, will I be able to hire an employee with the created Jobs & Positions with previous date like for example an employee is working with Organization from 01.01.2003 till date as when I do hiringaction, system asks me for joining date, so mentioning his joinning date as 01.01.2003 and maintain all the Org data with Account Assignment, Cost Distribution as per the relevent dates.
    Thank You,
    KishoreJ.

  • Request not visible in the version management of a Report Program

    Hi,
    We Imported an external request into the SAP System.
    The request was imported successfully and a program already existing is updated with that request,
    The problem is that the request number is not visible in the Version Management of the Report Program, but the other Programs have the request number visible in the version management, we could not find the request number in that  particular program
    We tried reimporting the request but the request is not visible.
    Regards

    Check the transport logs and see if there are any erros/warnings.

  • Interesting SCOM Reports and "Microsoft System Center Virtual Machine Manager 2012 R2 Reports" MP Issue , Some reports appear others don't

    Our test environment is quite simple one Operations Server 2012 R2; with the database and SSRS instance on another server; Service Manager 2012 is on it’s own virtual machine; and the Service Manager Data Warehouse on it’s own. I’ve been trying to demo chargeback
    with scvmm and I’m having issues with the chargeback reporting.
    I’ve followed this process to install chargeback reports:http://technet.microsoft.com/en-us/library/jj614406.aspx which
    completed successfully. All of the cubes seem to process correctly in Service Manager and I can create a chargeback analysis excel sheet with no issues in service manager. I still do not get any chargeback reports in the Operations console though. I get some
    reports under the “Microsoft System Center Virtual Machine Manager 2012 R2 Reports” heading like Capacity, Host Group Forecasting, Host Utilization, etc but no chargeback report.
    I can see the chargeback report in the SSRS website but cannot get it to appear in the Operations console. If anyone has any tips or troubleshooting they can point me at I would appreciate it.

    Hi,
    Hope the below link could be helpful:
    Enabling Chargeback in a Service Provider Cloud by Kristian Nese
    http://blogs.technet.com/b/privatecloud/archive/2013/04/12/enabling-chargeback-in-a-service-provider-cloud-by-kristian-nese.aspx
    Regards,
    Yan Li
    Regards, Yan Li

  • Does Solution Manager support Service Report for non-abap?

    Does Solution Manager support Service Report for non-abap?
    We can schedule and view reports for ABAP but for all the non-ABAP such as J2EE stack (PORTAL) we can not pull out a report.
    If the answer is yes please let me know where I can get the documentation of how to setup SLA for PORTAL or non-ABAP.
    I found a document on EWA non-abap but non for SLA.

    Hi
    actually i am in task of setting up ewa for portal.
    i had already done with abap components (ewa and sla)
    i stronly believe one of the pre-requiste to get sla is EWA.
    so i think if u can setup ewa for portal then you can get sla too.
    Regards,
    Vijay.

Maybe you are looking for