HCM: Head cout report for infotype 1019

Dear Experts,
           I am new to HCM abap. I want to develope a head count report of three coloumns
in which I have to show designation/postion, number of overall planned employees in whole organization
for this designation , and number of employees currently working in this designation(in whole organization)
e.g;
Position                                           Planned Employees                             Current Employees
Manager Maintenance                               2                                                             1
Foreman                                                   10                                                           12
Infotype which manage this data is 1019. But I can't see any table to get this data. My question is that how I should proceed with this report, which table, FM etc. I should use to do the above task.
Thanks and Regards,
Sohail

thanks

Similar Messages

  • Standard report for SAP HR Infotype 8 India

    Hi,
    I would like to know if SAP has provided standard report for infotype 8.
    1) I would like to download personal no wise wage type data from infotype 8 for a period.
    2) And I would like to compare the basic rate data prior to increment or promotion of a personal no?
    Can you please suggest a standard SAP HR report present in SAP 4.7?
    Shankar

    Hi,
    Use wage type repoter (TC-pc00_m99_cwtr) OR best to use ADHOC query (TC - PAAH)

  • Issue regarding Standrad report for IT0057

    Dear All,
    Is there a standard report for infotype 0057(member ship fees)
    Regards
    Nalla

    Hi,
    You can use HARCSI00 report - this report evaluates both membership fees IT 0057 and payroll results.
    or
    You can use PC00_M99_CWTR (wage type reporter) and choose relevant Membership wage type to check the values.
    Regards
    Chandrashekar
    Edited by: CVKHCM on Jul 29, 2010 1:15 PM

  • Create a Link for HCM Header Infotype

    Dear.
    How can add a link(URL)  in the header for an Infotype?
    I found this document of Marcio Leoni.
    http://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/806cda54-610c-2b10-3089-85f254e318de?quicklink=index&overridelayout=true
    Is posible do this?
    Regards

    Hi,
    I don't think it is possible.
    Infotype header data is a restricted are and DAT (field contents ) has a maximum of 41 characters for Infotype 0105.
    However, for URL or e-mail address you need at least 241 characters which is not possible to have in header.
    Although I don't believe so, if I come across a solution in this regard, I'll let you know.
    Regards,
    Dilek

  • Want to know the sale order report for Delivery bclok at header level

    Dear,
    i would like to know some reports
    1). I would like to know  is ther any  SAP std report  is available for Sale order if Blocked for delivery(VBAK-LIFSK)??
    2). is ther any report for knowing the Sale order  if header/item text  is maintained??
    Pl advice if any std report is available.
    Thanks in advance

    Dear Pradyumna,
    Thanks for your reply, I did't find any Header r item text in the report.
    Pl suggest is there any other report is availble???
    Thanks in adv.

  • Z-Report for PR using ES language not getting the Header and Item text deta

    Hi,
    We have developed Z report for PR report and we ahve used ES and EN language, but when i select language ES and execute the report then we are not getting the Header and Item text data,
    Secondly when We select language EN and execute the report then we are getting the Header and Item text details.
    Please guide me.
    Thanks
    Shital

    Have you maintained Tetexxt in ES language or is it that you are expecting  on selecting ES the text from En will get coverted to ES and display in your report?

  • Format Column Header in Crosstab Query in Crystal Reports for Enterprise

    Hi
    I am using Crystal reports for Enterprise and I would like to format the Column header of a crosstab query one block of colour say light blue.  However I cannot select the header in isolation to the rest of the cross tab.  All I can select is either column text boxes, which doesnu2019t look good formatted as a different colour to the background of the crosstab.  Or I can only select either entire column or the entire row, which kind of defeats the object of formatting just the column header itself.  Is there a way to isolate the column headers so I can format just the header, as the report is looking extremely bland all in white?
    Many Thanks in advance
    Regards
    Neil

    Alright, here's what you need to do:
    1) RIght-click one of the Column Headers and select 'Format Result Object Element' > Appearance > click on the formula button (fx) beside 'Fill' and use this code:
    if currentrowindex < 0 then crBlue
    You wanted light blue right? So, the rgb value for light blue or sky blue would be 135-206-250. So, you can change the color by modifying the formula like this:
    if currentrowindex < 0 then color(135,206,250)
    If this is not the exact blue you're after, just google!
    Hope this helps!
    -Abhilash

  • Standard BW reports for SAP HCM Performance Management

    Hi all,
    I'm preparing a blueprint workshop for SAP HCM Performance Management and the customer wants to see the reporting in BW. Does anyone have experience with standard BW reports for this HCM solution and could someone please provide me with screenshots of these reports?
    Thanks!
    Marijn van Amelsfort
    SAP NL

    Hi,
    Did you get the solution?
    I also have the same requirement but did not find any solution.I have posted a similar question on SDN.
    Re: Require links for ESS , MSS and TMS
    please reply if you have answer.
    Thanks,
    Ravi

  • Infotype 34 & 35, is there any report for them?

    Dear all,
          Anyone knows if there is a report to show data from infotype 34 and 35?
    Thanks in advance for your help

    Hi,
    You may create a custom ad-hoc report for these infotypes using t-code SQ01.
    Hope this helps,
    Reward points if helpful,
    Thank You,

  • SAP Standard Reports for HCM

    Dear All,
    please suggest that following reports are availbale in Standard Indian Payroll or not.
    Sno     Report Name
    1     Form21
    2     Form22
    3     S.S.N Form
    4     Overtime/good Work Incentive report
    5     Changes in Payslip(PC00_M40_CEDT)
    6     Dept. wise Salary register(HO)
    7     Salary summary(Branches)
    8     Dept. Wise Monthly PF
    9     Dept. wise Monthly ESI
    10     TDS and Advance Tax
    11     Arrear Sheet
    12     Arrear ESI Monthly Report
    13     CTC Details/ stack up sheet
    14     LTA& Medical
    15     Leave Encashment
    16     Bonus
    17     Bonus Summary
    18     Bonus submitted annually
    19     Contractor details
    20     Attendance upload
    With Regards
    Ashwani

    Hi Ashwini,
    For Indian Payroll standard reports: Reports related to Income Tax you can go to
    SAP Easy Access  Menu-> Human Resources ->Payroll ->Asia/Pacific -> India -> Subsequent Activities -> Annual -> Legal Reports -> Income Tax
    Here you can get standard reports for PF, Pension and other statutory reports.
    Thanks & Regards
    Pallavi

  • Bapi for infotypes

    can any one send any program for uploading data through bapi for any infotype. so that i can understand bapi for infotypes.

    hi
    just create a message class and text according to the code as follows (copy and paste in se 38)
    REPORT  ZCHR007_01 NO STANDARD PAGE HEADING MESSAGE-ID ZHR LINE-COUNT 65(8) LINE-SIZE 180.
    TABLES : PA0003, P0000,P0006,T005S,T005,T591A.                                                     " TABLES REQUIRED
             *INTERNAL TABLE AND WORK AREA WITH STRUCTURE ON BASIS FLAT FILE DATA.
    TYPES : BEGIN     OF       x_flat_infotype,                                                        "Flat file structure
          Screen data
            PERNR    TYPE     PERSNO,                                                                  "Personal Number
            BEGDA    TYPE     BEGDA,                                                                   "Begin Date
            ENDDA    TYPE     ENDDA,                                                                   "End Date
            ANSSA    TYPE     ANSSA,                                                                   "Address Record Type
            STRAS    TYPE     PAD_STRAS,                                                               "House number and street
            LOCAT    TYPE     PAD_LOCAT,                                                               "2nd Address Line
            PSTLZ    TYPE     PSTLZ_HR,                                                                "Postal Code
            ORT01    TYPE     PAD_ORT01,                                                               "City
            ORT02    TYPE     PAD_ORT02,                                                                   "District
            STATE    TYPE     REGIO,                                                                   "State
            land1    TYPE     land1,                                                                   "Country
            telnr    TYPE     telnr,                                                                   "Telephone Number
            wkwng    TYPE     wkwng,                                                                   "Company Housing
            END      OF       x_flat_infotype.
    TYPES : BEGIN     OF       x_valid.
            INCLUDE   TYPE     x_flat_infotype.                                                        "structure for valid data
    TYPES : END       OF       x_valid.
    TYPES : BEGIN     OF       x_invalid.
            INCLUDE   TYPE     x_flat_infotype.                                                        "structure for invalid data
    TYPES : error     TYPE     string,                                                                 "string to hold error field details
            END       OF       x_invalid,
            BEGIN     OF       x_pernr,                                                                "STRUCTURE DECLARATION FOR Personal No
            pernr     TYPE     persno,
            END       OF       x_pernr,
            BEGIN     OF       x_state,                                                                "STRUCTURE DECLARATION FOR Region
            land1     type     land1,
            state     TYPE     regio,
            END       OF       x_state,
            BEGIN     OF       x_land1,                                                                "STRUCTURE DECLARATION FOR Country
            land1     TYPE     land1,
            END       OF       x_land1.
    DATA : t_infotype   TYPE STANDARD TABLE OF x_flat_infotype INITIAL SIZE 0,                         "internal table to hold data
           t_valid      TYPE STANDARD TABLE OF x_valid INITIAL SIZE 0,                                 "internal table to hold valid data
           t_invalid    TYPE STANDARD TABLE OF x_invalid INITIAL SIZE 0,                               "internal table to hold invalid data
           t_v_final  TYPE   STANDARD   TABLE   OF   x_valid            INITIAL    SIZE   0,           "internal table to hold valid data
         DECLARE IT_BDCDATA INTERNAL TABLE BASED ON BDCDATA STRUCTURE
           t_bdcdata    TYPE STANDARD TABLE OF bdcdata INITIAL SIZE 0,                                 "internal table to hold BDC data
         Work area for the above internal tables
           wa_infotype  TYPE                x_flat_infotype,                                           "work area to hold data
           wa_valid     TYPE                x_valid,                                                   "work area to hold valid data
           wa_invalid   TYPE                x_invalid,                                                 "work area to hold invalid data
           wa_v_final   TYPE                x_valid,                                                   "work area to hold valid data
           wa_bdcdata   TYPE                bdcdata,                                                   "work area to hold BDC data
           g_file       TYPE                string,                                                    "Variable to hold file name entered by user
           g_errfile    TYPE                string.                                                    "Variable to hold file name entered by user
          MAINTAINING  A BLOCK WITH FLAT FILE AS INPUT
             PARAMETER   :  p_file   TYPE  fc03tab-pl00_file OBLIGATORY.                               "variable to hold flat file name during runtime
    INITIALIZATION.
             PERFORM     sub_refreshing_inttables.                                                     "Subroutine for refreshing all internal tables
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
             PERFORM     sub_get_file USING p_file.                                                    "TO SELECT A FILE USING F4 KEY.
    START-OF-SELECTION.
             PERFORM     sub_upload_file.                                                              " UPLOADING FILE WITH DATA
             PERFORM     sub_file_validations.                                                         " flat file validations
             IF NOT t_valid[] IS INITIAL.                                                              "checking for valid data
                         PERFORM      sub_data_updatation.                                             "updation of data depending on selected method
             ENDIF.
             IF NOT t_invalid[] IS INITIAL.
                         PERFORM      sub_download_error_file.                                         "TO DOWNLOAD ERRROR FILE
             ENDIF.
                         Perform      sub_details.                                                     "Subroutine for loading details
    END-OF-SELECTION.
             PERFORM     sub_free.                                                                     "TO Free Memory
    *&      Form  sub_refreshing_inttables
          "Subroutine for refreshing all internal tables
    FORM sub_refreshing_inttables .                                                                    "REFRESH ALL INTERNAL TABLES
      REFRESH :  t_infotype,t_valid,t_invalid,t_bdcdata.
    ENDFORM.                                                                                " sub_refreshing_inttables
    *&      Form  sub_get_file
           Subroutine for selection a file during runtime
         -->P_P_FILE  Input File
    FORM sub_get_file  USING    p_p_file.
      CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
        EXPORTING
          field_name = 'PA_FILE'
        CHANGING
          file_name  = p_p_file.
    ENDFORM.                                                                                " sub_get_file
    *&      Form  sub_upload_file
           Subroutine for uploading data into internal table
    FORM sub_upload_file.
      CONSTANTS :  lc_ftype TYPE char10 VALUE 'ASC',
                   lc_fsepe  TYPE char01 VALUE 'X'.
      g_file   =        p_file.                                                             "STORE FILENAME IN VARIABLE(g_FILE)
      IF p_file IS INITIAL.                                                                              " if file is not selected
        MESSAGE i002.
        LEAVE LIST-PROCESSING.
      ELSE.
        CALL FUNCTION 'GUI_UPLOAD'                                                                       "CALLLING FUNCTION TO UPLOAD THE FILE DATA
               EXPORTING
                    filename                      =   g_file
                    filetype                      =   lc_ftype
                    has_field_separator           =   lc_fsepe
               TABLES
                    data_tab                      =   t_infotype
               EXCEPTIONS
                    file_open_error               =   1
                    file_read_error               =   2
                    no_batch                      =   3
                    gui_refuse_filetransfer       =   4
                    invalid_type                  =   5
                    no_authority                  =   6
                    unknown_error                 =   7
                    bad_data_format               =   8
                    header_not_allowed            =   9
                    separator_not_allowed         =   10
                    header_too_long               =   11
                    unknown_dp_error              =   12
                    access_denied                 =   13
                    dp_out_of_memory              =   14
                    disk_full                     =   15
                    dp_timeout                    =   16
                    OTHERS                        =   17
        IF sy-subrc <> 0.                                                                                "message to display is file is not selected
          MESSAGE i001.
          LEAVE LIST-PROCESSING.
        ENDIF.
      ENDIF.
    ENDFORM.                                                                                " sub_upload_file
    *&      Form  sub_file_validations
          Subroutine for validating required fields in flat file
    FORM sub_file_validations .
      CONSTANTS: lc_anssa1         TYPE char04 VALUE  '1',                                              "Constant address type
                 lc_anssa2         TYPE char04 VALUE  '2',                                              "Constant address type
                 lc_anssa3         TYPE char04 VALUE  '3',                                              "Constant address type
                 lc_anssa4         TYPE char04 VALUE  '4',                                              "Constant address type
                 lc_wkwng1         TYPE char01 VALUE  '1',                                              "Constant Company Housing
                 lc_wkwng2         TYPE char01 VALUE  '2'.                                              "Constant Company Housing
      DATA :  t_pernr   TYPE STANDARD TABLE OF x_pernr INITIAL SIZE 0,                                   "INTERNAL TABLE FOR Personal No data
              t_state   TYPE STANDARD TABLE OF x_state INITIAL SIZE 0,                                   "INTERNAL TABLE FOR Region data
              t_land1   TYPE STANDARD TABLE OF x_land1 INITIAL SIZE 0.                                   "INTERNAL TABLE FOR Country data
      IF t_infotype IS NOT INITIAL.
      validate Personal No
        SELECT pernr FROM pa0003 INTO TABLE t_pernr                                                    " Extracting Personal No Data FROM  TO VALIDATE THE FIELD
               FOR ALL ENTRIES IN t_infotype WHERE pernr = t_infotype-pernr.
        IF sy-subrc = 0.
          SORT t_pernr BY pernr.
        ENDIF.
      validate Region
        SELECT land1 bland FROM t005s INTO TABLE t_state .                                                   " Extracting Region DATA FROM  TO VALIDATE THE FIELD
        IF sy-subrc = 0.
          SORT t_state BY land1 state.
        ENDIF.
      validate Country
        SELECT land1 FROM t005 INTO TABLE t_land1 .                                                    " Extracting country DATA FROM  TO VALIDATE THE FIELD
        IF sy-subrc = 0.
          SORT t_land1 BY land1 .
        ENDIF.
      ELSE.
        MESSAGE i004.
        LEAVE LIST-PROCESSING.
      ENDIF.
      CLEAR wa_infotype.                                                                             "clearing data from work area of infotype internal table
      LOOP AT t_infotype INTO wa_infotype.
        PERFORM sub_valid_nonvalidatefield.
        PERFORM sub_startdate_validaion.                                                             "Subroutine to validate start date field
        PERFORM sub_enddate_validaion.                                                               "Subroutine to validate end date field
        IF wa_valid-begda GE wa_valid-endda.                                                           "If start date is less than or equal to end date
          wa_invalid-begda = wa_infotype-begda.                                                        "moving start date to invalid workarea of start date
          wa_invalid-endda = wa_infotype-endda.                                                        "moving start date to invalid workarea of start date
          CONCATENATE text-032 wa_invalid-begda
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
          validate field Address Type of flat file with field in check table
        IF wa_infotype-anssa = lc_anssa1 OR wa_infotype-anssa = lc_anssa2
           OR wa_infotype-anssa = lc_anssa3 OR wa_infotype-anssa = lc_anssa4  .
          wa_valid-anssa     =    wa_infotype-anssa.                                                 "moving Address type from internal table to valid internal table
        ELSE.
          wa_invalid-anssa   =    wa_infotype-anssa.                                                 "moving Address type from internal table to invalid internal table
          CONCATENATE text-033 wa_invalid-anssa
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
          validate field Personal No of flat file with field in check table
        READ TABLE t_pernr WITH KEY pernr = wa_infotype-pernr
        BINARY SEARCH
        TRANSPORTING NO FIELDS .
        IF sy-subrc = 0.                                                                               "checking for validation of the Personal No
          wa_valid-pernr     =    wa_infotype-pernr.                                                   "moving Personal No from internal table to valid internal table
        ELSE.
          wa_invalid-pernr   =    wa_infotype-pernr.                                                   "moving Personal No from internal table to invalid internal table
          CONCATENATE text-030 wa_invalid-pernr
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
          validate field State of flat file with field in check table
        READ TABLE t_state WITH KEY land1 = wa_infotype-land1 STATE = wa_infotype-state
        BINARY SEARCH
        TRANSPORTING NO FIELDS .
        IF sy-subrc = 0.                                                                               "checking for validation of the State
          wa_valid-state     =    wa_infotype-state.                                                   "moving State from internal table to valid internal table
        ELSE.
          wa_invalid-state   =    wa_infotype-state.                                                   "moving State from internal table to invalid internal table
          CONCATENATE text-010 wa_invalid-state
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
          validate field Country of flat file with field in check table
        READ TABLE t_land1 WITH KEY land1 = wa_infotype-land1
        BINARY SEARCH
        TRANSPORTING NO FIELDS .
        IF sy-subrc = 0.                                                                               "checking for validation of the Country
          wa_valid-land1     =    wa_infotype-land1.                                                   "moving Country from internal table to valid internal table
        ELSE.
          wa_invalid-land1   =    wa_infotype-land1.                                                   "moving Country from internal table to invalid internal table
          CONCATENATE text-011 wa_invalid-land1
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
        IF wa_infotype-wkwng = lc_wkwng1 OR wa_infotype-wkwng = lc_wkwng2 .
          wa_valid-wkwng     =    wa_infotype-wkwng.                                                 "moving Company Housing from internal table to valid internal table
        ELSE.
          wa_invalid-wkwng   =    wa_infotype-wkwng.                                                 "moving Company Housing from internal table to invalid internal table
          CONCATENATE text-034 wa_invalid-wkwng
          wa_invalid-error INTO wa_invalid-error SEPARATED BY space .
        ENDIF.
          For Invalid data
        IF  wa_invalid IS NOT INITIAL.                                                                 "checking all fields data for invalid entries
          CONCATENATE  text-012
          wa_invalid-error INTO wa_invalid-error.
          PERFORM sub_invalid_nonvalidatefield.
          IF wa_invalid-pernr IS INITIAL.
            wa_invalid-pernr   =    wa_valid-pernr.                                                    "Personal No
          ENDIF.
          IF wa_invalid-begda IS INITIAL.
            wa_invalid-begda   =    wa_valid-begda.                                                    "Begin date
          ENDIF.
          IF wa_invalid-endda IS INITIAL.
            wa_invalid-endda   =    wa_valid-endda.                                                    "End Date
          ENDIF.
          IF wa_invalid-anssa IS INITIAL.
            wa_invalid-anssa   =    wa_valid-anssa.                                                    "Address Type
          ENDIF.
          IF wa_invalid-state IS INITIAL.
            wa_invalid-state   =    wa_valid-state.                                                    "State
          ENDIF.
          IF wa_invalid-land1 IS INITIAL.
            wa_invalid-land1   =    wa_valid-land1.                                                    "Country
          ENDIF.
          APPEND wa_invalid         TO   t_invalid.                                                    "Appending data to invalid internal table
        ELSE.
          APPEND wa_valid           TO   t_valid.                                                      "Appending data to valid internal table
        ENDIF.
        CLEAR wa_valid.
        CLEAR wa_invalid.
      ENDLOOP.
    ENDFORM.                                                                                " sub_file_validations
    *&      Form  sub_valid_nonvalidatefield
          Subroutine for updating non-validated fields into valid work area
    FORM sub_valid_nonvalidatefield .
      wa_valid-stras   =    wa_infotype-stras.                                             "moving Str&Hou from internal table to valid internal table
      wa_valid-locat   =    wa_infotype-locat.                                             "moving 2nd Address line from internal table to valid internal table
      wa_valid-pstlz   =    wa_infotype-pstlz.                                             "moving Postal Code from internal table to valid internal table
      wa_valid-ort01   =    wa_infotype-ort01.                                             "moving City from internal table to valid internal table
      wa_valid-ort02   =    wa_infotype-ort02.                                             "moving District from internal table to valid internal table
      wa_valid-telnr   =    wa_infotype-telnr.                                             "moving Telephone No from internal table to valid internal table
    ENDFORM.                                                                                " sub_valid_nonvalidatefield
    *&      Form  sub_startdate_validaion
         "Subroutine to validate start date field
    FORM sub_startdate_validaion .
    *This Funciton module is used for Conversion of date, ie External to
    *internal date (like screen conversion)
      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
        EXPORTING
          date_external            = wa_infotype-begda                                                 "External date or date given in flat file
        IMPORTING
          date_internal            = wa_valid-begda                                                    "Date converted to internal format for conversion
        EXCEPTIONS
          date_external_is_invalid = 1
          OTHERS                   = 2.
      IF sy-subrc <> 0.                                                                                "If conversion of date fails
        wa_invalid-begda = wa_infotype-begda.                                                          "moving date from flat file work area to inavlid work area
        CONCATENATE text-035 wa_invalid-begda
        wa_invalid-error INTO wa_invalid-error SEPARATED BY space.                                     " Adding start date error to error field of invalid internal table
      ENDIF.
    ENDFORM.                                                                                " sub_startdate_validaion
    *&      Form  sub_enddate_validaion
         "Subroutine to validate end date field
    FORM sub_enddate_validaion .
    *This Funciton module is used for Conversion of date, ie External to
    *internal date (like screen conversion)
      CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
        EXPORTING
          date_external            = wa_infotype-endda                                                 "External date or date given in flat file
        IMPORTING
          date_internal            = wa_valid-endda                                                    "Date converted to internal format for conversion
        EXCEPTIONS
          date_external_is_invalid = 1
          OTHERS                   = 2.
      IF sy-subrc <> 0.                                                                                "If conversion of date fails
        wa_invalid-endda = wa_infotype-endda.                                                          "moving date from flat file work area to inavlid work area
        CONCATENATE text-036 wa_invalid-endda
        wa_invalid-error INTO wa_invalid-error SEPARATED BY space.                                     " Adding end date error to error field of invalid internal table
      ENDIF.
    ENDFORM.                                                                                " sub_enddate_validaion
    *&      Form  sub_invalid_nonvalidatefield
        Subroutine for updating non-validated fields into invalid work area
    FORM sub_invalid_nonvalidatefield .
      wa_invalid-stras   =    wa_infotype-stras.                                           "moving Str&Hou from internal table to invalid internal table
      wa_invalid-locat   =    wa_infotype-locat.                                           "moving 2nd Address line from internal table to invalid internal table
      wa_invalid-pstlz   =    wa_infotype-pstlz.                                           "moving Postal Code from internal table to invalid internal table
      wa_invalid-ort01   =    wa_infotype-ort01.                                           "moving City from internal table to invalid internal table
      wa_invalid-ort02   =    wa_infotype-ort02.                                           "moving District from internal table to invalid internal table
      wa_invalid-telnr   =    wa_infotype-telnr.                                           "moving Telephone No from internal table to invalid internal table
    ENDFORM.                                                                                " sub_invalid_nonvalidatefield
    *&      Form  sub_data_updatation
          Subroutine for updation of data depending on selected method
    FORM sub_data_updatation .
      DATA : wa_return_enque TYPE bapireturn1.                                                         "variable to store error values
        clear wa_return_enque.
      LOOP AT t_valid INTO wa_valid.                                                                   "moving valid data to valid work area
        PERFORM sub_bapi_employee_enqueue using wa_return_enque .                                      "Subroutine to lock an employee
        IF wa_return_enque-type NE 'E'.
          PERFORM sub_bapi_addressempdk_create.                                                        "Subroutine to create  employee address data
        ENDIF.
      ENDLOOP.
    ENDFORM.                                                                                " sub_data_updatation
    *&      Form  sub_bapi_employee_enqueue
         Subroutine to lock an employee
         <--P_WA_RETURN_ENQUE  wa_return_enque-type
    FORM sub_bapi_employee_enqueue using p_wa_return_enque LIKE bapireturn1.
    *This funciton module is used to lock an employee so that the records
    *stored for this person cannot be accessed.
    *When an employee is locked, only user who has set  lock can access
    *records for this employee. Other users are denied access.
      CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
        EXPORTING
          number = wa_valid-pernr                                                                      "Personal number
        IMPORTING
          return = p_wa_return_enque.                                                                     "for error values returned
    ENDFORM.                                                                                " sub_bapi_employee_enqueue
    *&      Form  sub_BAPI_ADDRESSEMPDK_CREATE
           Subroutine to create  employee address data
    FORM sub_bapi_addressempdk_create.
      DATA : wa_data_create TYPE bapireturn1.                                                           "variable to store error values
    *This function module is used create a Address Data record (0006).
      CALL FUNCTION 'BAPI_ADDRESSEMPDK_CREATE'
        EXPORTING
          employeenumber    = wa_valid-pernr                                                   "Personal No
          validitybegin     = wa_valid-begda                                                   "Begin Date
          validityend       = wa_valid-endda                                                   "End Date
          addresstype       = wa_valid-anssa                                                   "Address type
          streetandhouseno  = wa_valid-stras                                                   "Street and house address
          scndaddressline   = wa_valid-locat                                                   "2nd address line
          city              = wa_valid-ort01                                                   "City
          district          = wa_valid-ort02                                                   "District
          postalcodecity    = wa_valid-pstlz                                                   "Postal Code
          state             = wa_valid-state                                                   "Region(State)
          country           = wa_valid-land1                                                   "Country
          company_apartment = wa_valid-wkwng                                                   "Company Housing
          telephonenumber   = wa_valid-telnr                                                   "Telephone No
        IMPORTING
          return            = wa_data_create
          employeenumber    = wa_valid-pernr
          subtype           = wa_valid-anssa
          validitybegin     = wa_valid-begda
          validityend       = wa_valid-endda.
        If error or abend message occurs while uploading data, then moving all the wa_valid fields to wa_invalid fields.
      IF wa_data_create-type EQ 'E'
      OR wa_data_create-type EQ 'A'.
        PERFORM         sub_bapi_employee_dequeue.                                                 "Subroutine to unlock an employee
        wa_invalid-pernr        =      wa_valid-pernr .                                            "Personal No
        wa_invalid-begda        =      wa_valid-begda .                                            "Begin Date
        wa_invalid-endda        =      wa_valid-endda .                                            "End Date
        wa_invalid-anssa        =      wa_valid-anssa .                                            "Address type
        wa_invalid-stras        =      wa_valid-stras .                                            "Street and house address
        wa_invalid-locat        =      wa_valid-locat .                                            "2nd address line
        wa_invalid-ort01        =      wa_valid-ort01 .                                            "City
        wa_invalid-ort02        =      wa_valid-ort02 .                                            "District
        wa_invalid-pstlz        =      wa_valid-pstlz .                                            "Postal Code
        wa_invalid-state        =      wa_valid-state .                                            "Region(State)
        wa_invalid-land1        =      wa_valid-land1 .                                            "Country
        wa_invalid-telnr        =      wa_valid-telnr .                                            "Telephone No
        wa_invalid-wkwng        =      wa_valid-wkwng .                                            "Company Housing
        wa_invalid-error        =      wa_data_create-message.                                          
        APPEND wa_invalid TO t_invalid.                                                            "appending wa_invalid to internal table
      ELSE.
        APPEND wa_valid TO t_v_final.                                                              "appending wa_valid to another internal table for the final count of valid records
      ENDIF.
        CLEAR: wa_invalid,                                                                         "clearing work area of invalid
               wa_valid.                                                                           "clearing work area of valid
    ENDFORM.                                                                                " sub_BAPI_ADDRESSEMP_CREATE
    *&      Form  sub_bapi_employee_dequeue
          Subroutine to unlock an employee
    FORM sub_bapi_employee_dequeue .
      DATA : wa_return_deque TYPE bapireturn1.
    *This function module is used to unlock an employee so that the records
    *stored for this person can be accessed.
    *If an employee is locked using the ENQUEUE method,the user who set the
    *lock can access this employee's records.
    *Other users are denied access to these records.
      CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
        EXPORTING
          number = wa_valid-pernr                                                                      "Personal number
        IMPORTING
          return = wa_return_deque.                                                                     "for error values returned
    ENDFORM.                                                                                " sub_bapi_employee_dequeue
    *&      Form  sub_download_error_file
          Subroutine to download error file for rectifications
    FORM sub_download_error_file .
        PROVIDE A VARIABLE FOR HOLDING FLAT FILE
      CONSTANTS :  lc_ftype     TYPE   char10   VALUE   'ASC',
                   lc_fsepe     TYPE   char01   VALUE   'X',
                   lc_err        TYPE   char5    VALUE   '_err.',                                      "constant to change error file name
                   lc_period     TYPE   c        VALUE   '.'.                                          "constant to change error file name
                   g_errfile    =      p_file.                                                         "STORE FILENAME IN VARIABLE(l_FILE)
      SHIFT        g_errfile    BY     4 PLACES RIGHT   CIRCULAR.
      REPLACE      lc_period     WITH  lc_err    INTO    g_errfile.                                    "lc_err to truncate .txt and lc_period to add _err.txt
      SHIFT        g_errfile    BY     8 PLACES LEFT    CIRCULAR.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
         filename                        = g_errfile
         filetype                        = lc_ftype
         write_field_separator           = lc_fsepe
        TABLES
          data_tab                        = t_invalid
       EXCEPTIONS
         file_write_error                = 1
         no_batch                        = 2
         gui_refuse_filetransfer         = 3
         invalid_type                    = 4
         no_authority                    = 5
         unknown_error                   = 6
         header_not_allowed              = 7
         separator_not_allowed           = 8
         filesize_not_allowed            = 9
         header_too_long                 = 10
         dp_error_create                 = 11
         dp_error_send                   = 12
         dp_error_write                  = 13
         unknown_dp_error                = 14
         access_denied                   = 15
         dp_out_of_memory                = 16
         disk_full                       = 17
         dp_timeout                      = 18
         file_not_found                  = 19
         dataprovider_exception          = 20
         control_flush_error             = 21
         OTHERS                          = 22
      IF sy-subrc NE 0.
        MESSAGE i003.
      ENDIF.
    ENDFORM.                                                                                " sub_download_error_file
    *&      Form  sub_details
          Subroutine for loading details
    FORM sub_details .
      DATA: l_count_total TYPE i,                                                                      "variable to count total no of records
            l_count_valid TYPE i,                                                                      "variable to count no of records uploaded
            l_count_invalid TYPE i.                                                                    "variable to count total no of error records
      ULINE.
      WRITE :/71 text-018 .                                                                            "title
      DESCRIBE TABLE t_infotype LINES l_count_total.                                                   "To count no of lines in internal table
      WRITE :/,text-019 ,30 text-020, 32 l_count_total,157 text-021,164 text-020, 166 sy-datum.
      DESCRIBE TABLE t_v_final LINES l_count_valid.                                                    "To count no of lines in internal table
      WRITE : text-022,30 text-020,32 l_count_valid,157 text-023,164 text-020, 166 sy-uzeit.
      DESCRIBE TABLE t_invalid LINES l_count_invalid.                                                  "To count no of lines in internal table
      WRITE : text-025,30 text-020,32 l_count_invalid,157 text-024,164 text-020, 166 sy-uname.
      WRITE :/,text-026 ,30 text-020 , 40 g_file .                                                     "name of the error file
    Print if only invalid records exist
      IF NOT t_invalid[] IS INITIAL.
        WRITE :/,text-027 ,30 text-020 , 40 g_errfile .                                                "variable to count total no of error records
        IF t_invalid IS INITIAL.
          g_errfile = text-029.
        ENDIF.
        WRITE :/ text-028.
        ULINE.
        WRITE :/ sy-vline,2 text-030,17 sy-vline, 20 text-031,178 sy-vline.                            "headings

  • HCM hange log report

    Our IT-auditor would like to have a HCM change log report that displays all changes including operation sign. When I execute report RPUAUD00, I'll get a list with infotype, user name, but not the operation sign. Which report do I have to execute instead?

    Thanks for your reply Vick.
    When I select a series of personel numbers, a series of infotypes, a date range, and output in ALV i get a list view with fields:
    date, time, number, personel number, transaction class, infotype, user.
    The operation sign is not displyed until I click one of the changes.
    But actually, I don't want to click all the separate changes. I want a reprot with all chnages including operation sigh rightaway. Which report can I use for that purpose?
    Edited by: J. Weemhoff on Nov 17, 2008 3:40 PM

  • How to create a report for open sales orde documents which are not invoiced

    Hi Experts this is urgent,
    +pls give the Logic for document flow+
    My requirement is create a report for sales orders which are not invoiced  using the following table.
    VBAK : sales order header
    VBAP : sales order item
    VBFA : sales document flow
    VBUK for processing status
    KOMV for duties value and sales order value
    LIKP : delivery not header
    LIPS :delivery note item
    For information : In the header level the processing Status is indicated in the table VBUK field LFSTK for one sales order number. A,B , C are the possible entries.
    Case A : When a sales order is invoiced we can display information on the header status :
    Overall status : Completed  and display a invoice number in the document flow. When the items of the sales orders are invoiced the process status is the following :  Overall status       Completed            
    Delivery status      Fully delivered      
    Case B : An open sales order not delivered and not invoiced will have overall status : Open on the header and item level and will not have subsequent documents.
    Case C :
    When the items for the sales order are delivered but not invoiced the status will be u201Cfully deliveredu201D
    And the subsequent documents will be delivery notes and good issue if the delivery note is issued.
    With regards
    ravi
    Edited by: ravik ravik on Jun 25, 2008 3:29 PM

    Hello Ravi,
    U neednot develop any report..
    there is std report with txn V.02
    or copy this and make necessary changes.
    Reward, if helpful.
    Rgds,
    Raghu.

  • Report for Comparison of Material Qty

    Hi All,
    I need to Develop an Interactive report for Comparison of Material Qty. ordered through Purchase requisition, ordered material through PO and corresponding Material Receipt report.
    Can Someone Give a brief description about this & fields tcode & tables regarding this report.A sample code would be much appreciated.
    Thanks & regards,
    Ravi S

    To get the material number combined with the PO text you will need the help of an ABAP programmer.  The programmer can create a report for you using the function module READ_TEXT in the function group STXD.  The tables to use are:
    STXH - STXD SAPscript text file header
    STXL - STXD SAPscript text file lines
    The selection screen should have at least the following:
    OBJECT - STXH-TDOBJECT
    NAME - STXH-TDNAME
    LANGUAGE - STXH-TDSPRAS
    TEXTID - STXH-TDID
    You find the information for these fields by going to the PO text entry screen and displaying the header information under Goto -> Header.  For materials, the object is MATERIAL, the name is "material number", the language is "EN", and the text ID is BEST.  You can use this program to get long text in lots of places like information records, purchase order texts, etc.
    Hope this helps.

  • Report for stock statement

    hi guy's,
       i am doing report for the stock statement .... my issue is in MB5B if i reverse some document it shows as it move's to issue QTY and my receipt is same but my closing stock is correct ...is there any std report avalible ....
    thank's in advance

    Use this code :
    TABLES : MSEG,MKPF,MARA,MAKT,BEWART,MSLB,BSIM.
    TYPE-POOLS : SLIS.
    DATA : IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
           IT_LIST_HEADER TYPE SLIS_T_LISTHEADER,
           IT_EVENTS TYPE SLIS_T_EVENT,
           GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
           WA_SORT TYPE SLIS_SORTINFO_ALV,
           IT_SORT TYPE SLIS_T_SORTINFO_ALV,
           REPID LIKE SY-REPID,
           FRM_DATE(10),TO_DATE(10),
           DISPTEXT(255),DISPTEXT2(255).
    TYPES : BEGIN OF ST_OPBAL,
             MATNR LIKE MSEG-MATNR,
             MAKTX LIKE MAKT-MAKTX,
             BATCH LIKE MSEG-CHARG,
             BWART LIKE MSEG-BWART,
             MENGE LIKE MSEG-MENGE,
             ZEILE LIKE MSEG-ZEILE,
             WERKS LIKE MSEG-WERKS,
             SOBKZ LIKE MSEG-SOBKZ,
             BUDAT LIKE MKPF-BUDAT,
             SHKZG LIKE MSEG-SHKZG,
             DMBTR LIKE MSEG-DMBTR,
             MBLNR LIKE MSEG-MBLNR,
             LGORT LIKE MSEG-LGORT,
           END OF ST_OPBAL.
    DATA : OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE,
           TMP_OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE.
    DATA : BEGIN OF BAL_NOREF OCCURS 0,
              MATNR LIKE MARA-MATNR,
              SHKZG LIKE MSEG-SHKZG,
              DMBTR LIKE MSEG-DMBTR,
           END OF BAL_NOREF.
    DATA : BEGIN OF OPBAL2 OCCURS 0,
             SNO(3)      TYPE N,
             MATNR       LIKE MSEG-MATNR,
             MAKTX       LIKE MAKT-MAKTX,
             OP_BAL      LIKE MSEG-MENGE,
             OP_STKVAL   LIKE MSEG-DMBTR,   "NEW
             REC         LIKE MSEG-MENGE,
             T_OPBAL_REC LIKE MSEG-MENGE,
             REC_STKVAL  LIKE MSEG-DMBTR,   "NEW
             ISS         LIKE MSEG-MENGE,
             ISS_STKVAL  LIKE MSEG-DMBTR,   "NEW
             SALES       LIKE MSEG-MENGE,
             T_ISS       LIKE MSEG-MENGE,
             CL_BAL      LIKE MSEG-MENGE,
             BATCH       LIKE MSEG-CHARG,
             SUBCON      LIKE MSEG-MENGE,
             CL_STKVAL   LIKE MSEG-DMBTR,
           END OF OPBAL2.
    DATA  SERNO(4) TYPE C.
    DATA OPTOT  TYPE P DECIMALS 3.
    DATA RECTOT TYPE P DECIMALS 3.
    DATA ISSTOT TYPE P DECIMALS 3.
    DATA TOTALL TYPE P DECIMALS 3.
    DATA FLG        TYPE N.
    DATA FLAG       TYPE N.
    DATA STOCKVAL        TYPE MSEG-DMBTR.
    DATA REC_STOCKVAL    TYPE MSEG-DMBTR.
    DATA ISS_STOCKVAL    TYPE MSEG-DMBTR.
    DATA CL_STKVAL       TYPE MSEG-DMBTR.
    SELECTION-SCREEN BEGIN OF BLOCK X WITH FRAME.
         SELECT-OPTIONS: P_MATNR FOR MSEG-MATNR,
                         P_MGRP  FOR MARA-MATKL,
                         P_DATE FOR MKPF-BUDAT,
         P_PLANT FOR MSEG-WERKS DEFAULT  'NB01' OBLIGATORY NO INTERVALS
                                                    NO-EXTENSION .
         SELECT-OPTIONS: P_STLOC FOR MSEG-LGORT NO INTERVALS NO-EXTENSION.
    SELECTION-SCREEN END OF BLOCK X.
    INITIALIZATION.
       REPID = SY-REPID.
       PERFORM FILL_FLDCAT USING IT_FLDCAT.
       PERFORM FILL_EVENTS USING IT_EVENTS.
       PERFORM FILL_LAYOUT USING GS_LAYOUT.
    START-OF-SELECTION.
      CONCATENATE P_DATE-LOW6(2) '.' P_DATE-LOW4(2) '.' P_DATE-LOW+0(4)
      INTO FRM_DATE.
      CONCATENATE P_DATE-HIGH6(2) '.' P_DATE-HIGH4(2) '.' P_DATE-HIGH+0(4)
      INTO TO_DATE.
      CONCATENATE TEXT-003 FRM_DATE' TO : ' TO_DATE INTO DISPTEXT.
      CONCATENATE TEXT-004 P_PLANT-LOW ' Storage Location : ' P_STLOC-LOW
      INTO DISPTEXT2.
      PERFORM FILL_HEADER USING IT_LIST_HEADER.
      SELECT  A~MATNR
              F~MAKTX
              A~CHARG
              A~BWART
              A~MENGE
              A~ZEILE
              A~WERKS
              A~SOBKZ
              D~BUDAT
              A~SHKZG
              A~DMBTR
              A~MBLNR
              A~LGORT
              INTO TABLE OPBAL
       FROM MKPF AS D JOIN MSEG AS A
               ON DMBLNR = AMBLNR  AND
                  DMJAHR = AMJAHR
            JOIN MARA AS E
               ON EMATNR = AMATNR
            JOIN MAKT AS F
               ON FMATNR = AMATNR
       WHERE   A~MATNR IN P_MATNR
         AND   A~WERKS IN P_PLANT
         AND   A~KZBEW IN (' ','B')
         AND   E~MATKL IN P_MGRP
         AND   A~BWART NOT IN ('541','542','321','322','121')
         AND   A~KZVBR NOT IN ('A')
         AND   D~BUDAT LE P_DATE-HIGH.
    LOOP AT OPBAL WHERE BWART EQ '544' AND LGORT EQ ''.
       TMP_OPBAL = OPBAL.
       APPEND TMP_OPBAL.
    ENDLOOP.
    DELETE OPBAL WHERE ( BWART EQ '309' AND DMBTR EQ 0  ).
    DELETE OPBAL WHERE ( BWART NE '543' AND LGORT EQ '' ).
    LOOP AT TMP_OPBAL.
       OPBAL = TMP_OPBAL.
       APPEND OPBAL.
    ENDLOOP.
    STOCKVAL = 0.
    SORT OPBAL BY MATNR BATCH BUDAT.
    LOOP AT OPBAL.
      SELECT SINGLE LBLAB INTO MSLB-LBLAB FROM MSLB
                            WHERE MATNR = OPBAL-MATNR.
      IF OPBAL-BUDAT LT P_DATE-LOW.
         IF OPBAL-SHKZG = 'H'.
            OPTOT = OPTOT - OPBAL-MENGE.
         ELSEIF OPBAL-SHKZG = 'S'.
            OPTOT = OPTOT + OPBAL-MENGE.
         ENDIF.
    For the duration   II part  *****************
      ELSEIF OPBAL-BUDAT IN P_DATE.
         IF OPBAL-SHKZG = 'H'.
            ISSTOT      = ISSTOT + OPBAL-MENGE.
         ELSEIF OPBAL-SHKZG = 'S'.
            RECTOT = RECTOT + OPBAL-MENGE.
         ENDIF.
      ENDIF.
    AT END OF BATCH. " modified for chek
       READ TABLE OPBAL INDEX SY-TABIX.
       CLEAR BAL_NOREF. REFRESH BAL_NOREF.
       SELECT MATNR SHKZG SUM( DMBTR )
         INTO TABLE BAL_NOREF
         FROM BSIM
        WHERE BUDAT LT P_DATE-LOW  AND
              MATNR EQ OPBAL-MATNR AND
              BWTAR EQ OPBAL-BATCH AND
              BWKEY IN P_PLANT     AND
              BLART IN ('RE','WE','WA','PR')
        GROUP BY MATNR SHKZG.
       LOOP AT BAL_NOREF.
          IF BAL_NOREF-SHKZG = 'H'.
             STOCKVAL = STOCKVAL - BAL_NOREF-DMBTR.
          ELSE.
             STOCKVAL = STOCKVAL + BAL_NOREF-DMBTR.
          ENDIF.
       ENDLOOP.
       CLEAR BAL_NOREF. REFRESH BAL_NOREF.
       SELECT MATNR SHKZG SUM( DMBTR )
         INTO TABLE BAL_NOREF
         FROM BSIM
        WHERE BUDAT IN P_DATE AND
              MATNR EQ OPBAL-MATNR AND
              BWTAR EQ OPBAL-BATCH AND
              BWKEY IN P_PLANT     AND
              BLART IN ('RE','WE','WA','PR')
        GROUP BY MATNR SHKZG.
       LOOP AT BAL_NOREF.
          IF BAL_NOREF-SHKZG = 'H'.
             ISS_STOCKVAL = ISS_STOCKVAL + BAL_NOREF-DMBTR.
          ELSE.
             REC_STOCKVAL = REC_STOCKVAL + BAL_NOREF-DMBTR.
          ENDIF.
       ENDLOOP.
       " MSLB-LBLAB (STOCK WITH SUBCONTRACTOR).
       CL_STKVAL       = STOCKVAL + REC_STOCKVAL - ISS_STOCKVAL.
       TOTALL =  OPTOT + RECTOT - ISSTOT.
       IF OPTOT = '0'   AND RECTOT = '0'  AND ISSTOT = '0'.
          FLG = 1.
       ENDIF.
       IF FLG = 1.
          CLEAR FLG.
       ELSE.
          SERNO = SERNO + 1.
          OPBAL2-SNO         = SERNO.
          OPBAL2-MATNR       = OPBAL-MATNR.
          OPBAL2-MAKTX       = OPBAL-MAKTX.
          OPBAL2-OP_BAL      = OPTOT.
          OPBAL2-REC         = RECTOT.
          OPBAL2-T_OPBAL_REC = OPTOT + RECTOT.
          OPBAL2-ISS         = ISSTOT.
          OPBAL2-T_ISS       = ISSTOT.
          OPBAL2-CL_BAL      = TOTALL.
          OPBAL2-BATCH       = OPBAL-BATCH.
          OPBAL2-SUBCON      = MSLB-LBLAB.
          OPBAL2-OP_STKVAL   = STOCKVAL.
          OPBAL2-ISS_STKVAL  = ISS_STOCKVAL.
          OPBAL2-REC_STKVAL  = REC_STOCKVAL.
          OPBAL2-CL_STKVAL   = CL_STKVAL.
          APPEND OPBAL2.
       ENDIF.
      OPTOT = 0.
      RECTOT = 0.
      ISSTOT = 0.
      STOCKVAL = 0.
      ISS_STOCKVAL = 0.
      REC_STOCKVAL = 0.
      CL_STKVAL    = 0.
    ENDAT.
    ENDLOOP.
      WA_SORT-SPOS = 1.
      WA_SORT-FIELDNAME = 'MATNR'.
      WA_SORT-UP = 'X'.
    WA_SORT-SUBTOT = 'X'.
    APPEND WA_SORT TO IT_SORT.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          I_CALLBACK_PROGRAM = REPID
          IT_FIELDCAT        = IT_FLDCAT
          IT_EVENTS          = IT_EVENTS
          IS_LAYOUT          = GS_LAYOUT
          IT_SORT            = IT_SORT
        TABLES
          T_OUTTAB           = OPBAL2.
    FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
       PERFORM FILL_PARAM_FLDCAT USING  1 'SNo'          'SNO'       ' ' 'X'
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  2 'Material No.' 'MATNR'     ' ' 'X'
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  3 'Description'  'MAKTX'     ' ' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  4 'Op.Bal'      'OP_BAL'     'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  5 'Op.Stock Val' 'OP_STKVAL' 'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  6 'Receipts'     'REC'       'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  7 'Total'     'T_OPBAL_REC'  'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  8 'Rect.Val.' 'REC_STKVAL'   'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING  9 'Issues'    'ISS'          'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING 10 'Iss. Val.' 'ISS_STKVAL'   'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING 11 'Cl. Bal.'     'CL_BAL'    'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING 12 'Cl.Stock Val' 'CL_STKVAL' 'X' ' '
       'OPBAL2' P_FLDCAT.
       PERFORM FILL_PARAM_FLDCAT USING 13 'BATCH '       'BATCH'     ' ' ' '
       'OPBAL2' P_FLDCAT.
    ENDFORM.
    FORM FILL_PARAM_FLDCAT USING VALUE(P_COL) VALUE(P_TEXT) VALUE(P_FLDNAME)
                           VALUE(P_DOSUM) VALUE(P_NOZERO) VALUE(P_TABNAME)
                           PP_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
       DATA : WA_FLDCAT TYPE SLIS_FIELDCAT_ALV.
       CLEAR WA_FLDCAT.
         WA_FLDCAT-COL_POS   = P_COL.
         WA_FLDCAT-SELTEXT_M = P_TEXT.
         WA_FLDCAT-FIELDNAME = P_FLDNAME.
         WA_FLDCAT-TABNAME   = P_TABNAME.
         WA_FLDCAT-DO_SUM    = P_DOSUM.
         WA_FLDCAT-NO_ZERO   = P_NOZERO.
       APPEND WA_FLDCAT TO PP_FLDCAT.
    ENDFORM.
    FORM FILL_HEADER USING P_IT_LIST_HEADER TYPE SLIS_T_LISTHEADER.
      DATA: LS_LINE TYPE SLIS_LISTHEADER.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-INFO = TEXT-002.
      APPEND LS_LINE TO P_IT_LIST_HEADER.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-INFO = DISPTEXT.
      APPEND LS_LINE TO P_IT_LIST_HEADER.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-INFO = DISPTEXT2.
      APPEND LS_LINE TO P_IT_LIST_HEADER.
    ENDFORM.
    FORM FILL_EVENTS USING P_IT_EVENTS TYPE SLIS_T_EVENT.
       DATA LS_EVENT TYPE SLIS_ALV_EVENT.
       MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
       MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
       APPEND LS_EVENT TO P_IT_EVENTS.
    ENDFORM.
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
         IT_LIST_COMMENTARY       = IT_LIST_HEADER.
    ENDFORM.
    FORM FILL_LAYOUT USING P_GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
       P_GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
       P_GS_LAYOUT-ZEBRA             = 'X'.
       P_GS_LAYOUT-FLEXIBLE_KEY      = 'X'.
    ENDFORM.
    FOR TESTING PURPOSE.
    *SORT OPBAL BY BUDAT.
    *CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
         I_CALLBACK_PROGRAM = REPID
         IT_FIELDCAT        = IT_FLDCAT
         IT_EVENTS          = IT_EVENTS
       TABLES
         T_OUTTAB           = OPBAL.
    *FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
      PERFORM FILL_PARAM_FLDCAT USING  1 'MBLNR'        'MBLNR'
      'OPBAL' P_FLDCAT.
      PERFORM FILL_PARAM_FLDCAT USING  2 'CREDIT/DEBIT' 'SHKZG'
      'OPBAL' P_FLDCAT.
      PERFORM FILL_PARAM_FLDCAT USING  3 'MOV.TYP.'     'BWART'
      'OPBAL' P_FLDCAT.
      PERFORM FILL_PARAM_FLDCAT USING  4 'ST.LOC.'     'LGORT'
      'OPBAL' P_FLDCAT.
      PERFORM FILL_PARAM_FLDCAT USING  5 'STOCK VAL'    'DMBTR'
      'OPBAL' P_FLDCAT.
      PERFORM FILL_PARAM_FLDCAT USING  6 'POS.DATE'     'BUDAT'
      'OPBAL' P_FLDCAT.
    *ENDFORM.

Maybe you are looking for

  • JRockit 1.4.2_04....is this a locking situation ?

    We migrated recently to JRockit VM with Weblogic 7 on multi-cpu mahcine running Linux. After multiple simultaneous calls to a bean, we see that the managed server stops responding ( no OutOfMemory errors - just no response for any http calls ). I was

  • I am trying to restore my iPhone to factory settings.

    Hello, I forgot the code to my iPhone and the keypad is locked.  I want to restore my phone to factory settings or unlock the keypad.  Please help. Thank you

  • Will a built-in MacBook battery eventually swell?

    Hi. I'm using a MacBook as a desktop machine connected to an external monitor. Currently, it's plugged in to the power all the time. I run it off the battery twice a week, to "keep the juices flowing", so to speak. Previously, I used a MacBook with a

  • HKEY_LOCAL_MACHINE\software\ etc. problem solved

    I have been trying to upgrade to itunes 7.0 since October. I have been all over this forum and others looking for the solutiuon to that annoying message. I know I am not the only one. I have tried regit, jacked around with permissions, and tried ever

  • Who's logged-in?

    How can I see/check who is logged-in? We are evaluating Final Cut Server and only have a 10-client license currently. How can I check who is connected if say 10 users are using the client? Is there a Leopard Server tool so I can see who is on the net