Dump in UM4_UPDATE_WORKLIST MESSAGE_TYPE_X in Method GET_SETTINGS

Hi all,
I'm stuck in an unicode preparation, I get a dump at update Worklist in method GET_SETTINGS of Main program
Termination occurred in the ABAP program "CL_UMG_UTILITIES==============CP" -
  in "GET_SETTINGS".
The main program was "UM4_UPDATE_WORKLIST ".
In the source code you have the termination point in line 11
of the (Include) program "CL_UMG_UTILITIES==============CM00E".
The program "CL_UMG_UTILITIES==============CP" was started as a background job.
Job Name....... "UM4_PMIG_STOCK_UPDATE1"
none of the notes that I've found helped me, anyone with an clue?
the error is at:
   1 method get_settings.
   2
   3   data: l_settings_tab   type umgtsettings,
   4         l_num            type i.
   5
   6   select * from umgsettings
   7            into table l_settings_tab.
   8   if sy-subrc <> 0.
   9     if cl_abap_char_utilities=>charsize = 1.
  10 *     Non Unicode Systems
>>>>       message x069(pumg).   " short dump if settings were not found
  12     else.
  13 *     In Unicode Systems look in UMGHISTORY
  14       call method cl_umg_history=>get
  15         importing
  16           ex_new_spumg_settings = l_settings_tab.
  17       describe table l_settings_tab lines l_num.
  18       if l_num = 0.
  19         re_settings = cl_umg_utilities=>get_default_settings( ).
  20         return.
  21       endif.
  22     endif.
  23   endif.
In SPUMG I could not edit settings because language list is not defined, it is empty and even after restart and reset SPUMG it remains empty, in RSCPINSTall system languages are activated....
any idea is welcome..
best regards,
Pedro Rodrigues

Hi Pedro,
do you get the entrance screen of SPUMG with the according push buttons (after executing Scanner > Restart) ?
In the Guide you will find:
The last pushbutton Continue with transaction SPUMG will trigger the automatical initialization of the Language List and lead to the Consistency Check screen.
After you have done that, the language list should be available.
Best regards,
Nils

Similar Messages

  • How to dump array created by 'getrows method' into spreadsheet??

    hi,
    I'm sorry but I'm not goot as English.
    I'm trying to dump oo4o dynasets into farpoint spreadsheet without looping.
    first, I created the array of variant type through the 'getrows' method of oo4o.
    the 'getrows' method copies records from a Dynaset into a two-dimensional array. The first subscript identifies the field and the second identifies the row number.
    Then I found the method 'setarray' of spreadsheet but this method dumps a array into spread
    beginning with the row number. In result the spreadsheet views the recordset that the rows
    and the columns are exchanged.
    Please, Advice about my trying.

    MESSAGE FROM THE FORUMS ADMINISTRATORS and COMMUNITY
    This thread will be deleted_ within 24 business hours. You have posted
    an off-topic question in an area clearly designated for discussions
    about the features and functionality of the forums site. Community
    members looking to help you with your question won't be able to find
    it in this category.
    Please use the "Search Forums" element on the left panel to locate
    a forum based on your topic. A more appropriate forum for this post
    could be:
    New to Java http://forum.java.sun.com/forum.jspa?forumID=54

  • Short dumps of  CL_PERS_OBJECT_DATA using Set_data method

    Hi Experts,
    I am getting shortdumps on the class CL_PERS_OBJECT_DATA when calling set_data method.
    The error message is OBJECTS_OBJREF_NOT_ASSIGNED . There is one export parameter which of data type of "any" and mandantory.
    The details of the code as follows:
    data: rf_pers_object type ref to cl_pers_object_data.
    types:
    ty_spers_obj type spers_obj.
    data: lta_personalization type table of ty_spers_obj.
      call method rf_pers_object->set_data
        exporting
          p_pers_data     = lta_personalization
          p_write_through = space
        exceptions
          data_type_error = 1
          internal_error  = 2
          others          = 3.
      if sy-subrc <> 0.
        raise pers_object_error.
      endif.
    Could you please what exactly this means where i am missing the point.
    Any adivse early is much appreciated.
    Best Regards
    Good_Guy

    This object must be instantiated first in order you can call its instance methods.
    As it has private instantiation you are able to do so only be means of create_object static method, giving the key on the input. Then you use the returned instance for further processing. This goes like
    DATA: rf_pers_object TYPE REF TO cl_pers_object_data.
    TYPES:
    ty_spers_obj TYPE spers_obj.
    DATA: pers_key TYPE spers_key.
    DATA: lta_personalization TYPE TABLE OF ty_spers_obj.
    "first extract the key, I took first found
    SELECT SINGLE pers_key FROM spers_regt
          INTO pers_key
          WHERE lang = 'EN'.
    CHECK sy-subrc = 0.
    "then create the object
    CALL METHOD cl_pers_object_data=>create_object
      EXPORTING
        p_pers_key = pers_key 
      RECEIVING
        r_object   = rf_pers_object.  "and receive the object instance
    "now call the instance method
    CALL METHOD rf_pers_object->set_data
      EXPORTING
        p_pers_data     = lta_personalization
        p_write_through = space
      EXCEPTIONS
        data_type_error = 1
        internal_error  = 2
        OTHERS          = 3.
    Of course the pers_key must be provided by you. I assume you know one you want to use.
    Regards
    Marcin
    Also refer standard program R_USER_DEFAULTS .
    Edited by: Marcin Pciak on Jun 25, 2010 9:35 AM

  • Dump while accessing Menu- User menu  MESSAGE_TYPE_X

    In the SAP initial screen under the user menu(Menu->User menu->General user transactions), when I am having a big number of tree sturcture under a specific folder like under 'General user transactions', I am getting dump with message MESSAGE_TYPE_X, AC_SYSTEM_FLUSH. This is happening, when lots of transactions are attached under any folder like 'General user transactions'. How to solve this. I am getting error in ECC6.0

    Hi Sanjay,
    1. reduce the number of transactions in one folder. Create more folders.
    2. Ask your basis if it is because of memory issue?
    3. Check in OSS if there is any specific note on the restrictions on the number of entries in the folder.
    Regards,
    Atish

  • Dump when summing up CURR field in ALV GRID display

    Hi All,
    I am getting dump when I try to sum the CURR field in my ALV Grid Display. The field is of CURR 23.  I am using classes and methods to display alv grid.
    I tried passing <fs_fieldcat>-do_sum = 'X'. When I did this, it is dumping without even displaying the alv grid.
    Here is the part it is throwing dump:
            ls_lvc_data-value = space.
            clear ls_lvc_data-style.
            loop at it_fcat_local assigning <ls_fcat>
                    where tech ne 'X' and no_out ne 'X'.
              if l_invisible eq 'X'.
                clear l_invisible.
                if <ls_fcat>-do_sum is initial.
                  continue.
                else.
                  clear ls_lvc_data-col_pos.
                endif.
              endif.
              add 1 to ls_lvc_data-col_pos.
              assign component <ls_fcat>-fieldname
                               of structure <ls_data> to <l_field_value>.
              _if sy-subrc ne 0.
                message x000(0k).
              endif._
    Regards,
    Guru

    Thomas,
    Here is the dump:
    Runtime Errors         MESSAGE_TYPE_X
    Date and Time          10/22/2010 23:30:53
    Short text
    The current application triggered a termination with a short dump.
    What happened?
    The current application program detected a situation which really
    should not occur. Therefore, a termination with a short dump was
    triggered on purpose by the key word MESSAGE (type X).
    Error analysis
    Short text of error message:
    Long text of error message:
    Technical information about the message:
    Message class....... "0K"
    Number.............. 000
    Variable 1.......... " "
    Variable 2.......... " "
    Variable 3.......... " "
    Variable 4.......... " "
    How to correct the error
    Probably the only way to eliminate the error is to correct the program.
    If the error occures in a non-modified SAP program, you may be able to
    find an interim solution in an SAP Note.
    If you have access to SAP Notes, carry out a search with the following
    keywords:
    "MESSAGE_TYPE_X" " "
    "SAPLSLVC" or "LSLVCF36"
    "FILL_DATA_TABLE"
    If you cannot solve the problem yourself and want to send an error
    notification to SAP, include the following information:
    1. The description of the current problem (short dump)
    To save the description, choose "System->List->Save->Local File
    (Unconverted)".
    2. Corresponding system log
    Display the system log by calling transaction SM21.
    Restrict the time interval to 10 minutes before and five minutes
    after the short dump. Then choose "System->List->Save->Local File
    (Unconverted)".
    3. If the problem occurs in a problem of your own or a modified SAP
    program: The source code of the program
    In the editor, choose "Utilities->More
    Utilities->Upload/Download->Download".
    4. Details about the conditions under which the error occurred or which
    actions and input led to the error.
    Source Code Extract
    Line
    SourceCde
    2708
    is_subtottxt_info = ls_subtot_info
    2709
    ip_subtot_line    = lr_data
    2710
    changing
    2711
    c_subtottxt       = l_subtottxt.
    2712
    ls_lvc_data-value = l_subtottxt.
    2713
    2714
    append ls_lvc_data to ct_lvc_data.
    2715
    endif.
    2716
    2717
    2718
    Column per Fieldcat Entry
    2719
    2720
    ls_lvc_data-value = space.
    2721
    clear ls_lvc_data-style.
    2722
    loop at it_fcat_local assigning <ls_fcat>
    2723
    where tech ne 'X' and no_out ne 'X'.
    2724
    if l_invisible eq 'X'.
    2725
    clear l_invisible.
    2726
    if <ls_fcat>-do_sum is initial.
    2727
    continue.
    2728
    else.
    2729
    clear ls_lvc_data-col_pos.
    2730
    endif.
    2731
    endif.
    2732
    2733
    add 1 to ls_lvc_data-col_pos.
    2734
    2735
    assign component <ls_fcat>-fieldname
    2736
    of structure <ls_data> to <l_field_value>.
    2737
    if sy-subrc ne 0.
    >>>>>
    message x000(0k).
    2739
    endif.
    2740
    2741
    *... work on average
    2742
    if <ls_fcat>-do_sum eq 'C'.
    2743
              Initialize average result and entries
    2744
    <l_field_value> = 0.
    2745
    clear l_entries.
    2746
    2747
              retrive unit from fieldcatalog
    2748
    assign space to <l_unit>.
    2749
    if not <ls_fcat>-cfieldname is initial.
    2750
    assign component <ls_fcat>-cfieldname
    2751
    of structure <ls_data> to <l_unit>.
    2752
    endif.
    2753
    if not <ls_fcat>-qfieldname is initial.
    2754
    assign component <ls_fcat>-qfieldname
    2755
    of structure <ls_data> to <l_unit>.
    2756
    endif.
    2757

  • Short dump while client export

    Hi,
    I am trying to export a client from BI test system, I am getting the below message:
    InfoProvider ZSEBCST02 has been changed in the meantime
    Message no. UCM0142
    Diagnosis
    InfoProvider ZSEBCST02 is used in data basis QinetiQ Data Basis Management as the data target of data stream Totals Records. The InfoProvider has been changed since you last saved the data basis. Therefore, the definition of the data model of data basis QinetiQ Data Basis Management is now based on the state of the InfoProvider before it was last changed and may be obsolete.
    System Response
    The saved version of data basis QinetiQ Data Basis Management will remain active for now.
    Procedure
    Check the data model of data basis QinetiQ Data Basis Management as to whether adjustments need to be made to the changed definition of InfoProvider ZSEBCST02.
    Save data basis  QinetiQ Data Basis Management.
    The client export process does not start and it throws  a short dump:
    Runtime Errors         MESSAGE_TYPE_X
    Date and Time          01.08.2008 11:05:02
    Short text
    The current application triggered a termination with a short dump.
    What happened?
    The current application program detected a situation which really
    should not occur. Therefore, a termination with a short dump was
    triggered on purpose by the key word MESSAGE (type X).
    What can you do?
    Note down which actions and inputs caused the error.
    To process the problem further, contact you SAP system
    administrator.
    Using Transaction ST22 for ABAP Dump Analysis, you can look
    at and manage termination messages, and you can also
    keep them for a long time.
    Error analysis
    Short text of error message:
    Program error(s)
    Long text of error message:
    Diagnosis
    A program error occurred.
    System Response
    Processing terminated
    Procedure
    Please notify SAP.
    Procedure for System Administration
    Technical information about the message:
    Message class....... "UGMD"
    Number.............. 000
    Variable 1.......... " "
    Variable 2.......... " "
    Variable 3.......... " "
    Variable 4.......... " "
    How to correct the error
    Probably the only way to eliminate the error is to correct the program.
    If the error occures in a non-modified SAP program, you may be able to
    find an interim solution in an SAP Note.
    If you have access to SAP Notes, carry out a search with the following
    keywords:
    "MESSAGE_TYPE_X" " "
    "CL_UG_MD_STORAGE_CHAR_LOCAL===CP" or "CL_UG_MD_STORAGE_CHAR_LOCAL===CM00N"
    "IF_UG_MD_STORAGE_CHAR~TRANSPORT_BY_SEL"
    If you cannot solve the problem yourself and want to send an error
    notification to SAP, include the following information:
    1. The description of the current problem (short dump)
    To save the description, choose "System->List->Save->Local File
    (Unconverted)".
    2. Corresponding system log
    Display the system log by calling transaction SM21.
    Restrict the time interval to 10 minutes before and five minutes
    after the short dump. Then choose "System->List->Save->Local File
    (Unconverted)".
    3. If the problem occurs in a problem of your own or a modified SAP
    program: The source code of the program
    In the editor, choose "Utilities->More
    Utilities->Upload/Download->Download".
    4. Details about the conditions under which the error occurred or which
    actions and input led to the error.
    System environment
    SAP-Release 700
    Application server... "SFRNDEVSAP09"
    Network address...... "10.0.32.38"
    Operating system..... "Windows NT"
    Release.............. "5.2"
    Hardware type........ "8x AMD64 Level"
    Character length.... 16 Bits
    Pointer length....... 64 Bits
    Work process number.. 0
    Shortdump setting.... "full"
    Database server... "SFRNDEVSAP09"
    Database type..... "ORACLE"
    Database name..... "BI1"
    Database user ID.. "SAPSR3"
    Char.set.... "C"
    SAP kernel....... 700
    created (date)... "Feb 4 2008 00:38:16"
    create on........ "NT 5.2 3790 Service Pack 1 x86 MS VC++ 14.00"
    Database version. "OCI_10201_SHARE (10.2.0.1.0) "
    Patch level. 146
    Patch text.. " "
    Database............. "ORACLE 9.2.0.., ORACLE 10.1.0.., ORACLE 10.2.0.."
    SAP database version. 700
    Operating system..... "Windows NT 5.0, Windows NT 5.1, Windows NT 5.2, Windows
    NT 6.0"
    Memory consumption
    Roll.... 16192
    EM...... 67037440
    Heap.... 0
    Page.... 24576
    MM Used. 58875536
    MM Free. 3966304
    User and Transaction
    Client.............. 100
    User................ "SUPERUSER"
    Language key........ "E"
    Transaction......... "SCC8 "
    Transactions ID..... "44B15FDD2C31F115B69C00151736FC1B"
    Program............. "CL_UG_MD_STORAGE_CHAR_LOCAL===CP"
    Screen.............. "SAPMSCC1 0121"
    Screen line......... 15
    Information on where terminated
    Termination occurred in the ABAP program "CL_UG_MD_STORAGE_CHAR_LOCAL===CP" -
    in "IF_UG_MD_STORAGE_CHAR~TRANSPORT_BY_SEL".
    The main program was "SAPMSCC1 ".
    In the source code you have the termination point in line 491
    of the (Include) program "CL_UG_MD_STORAGE_CHAR_LOCAL===CM00N".
    Source Code Extract
    Line
    SourceCde
    461
    APPEND ls_idx_sel TO lt_idx_sel.
    462
    ENDIF.
    463
    464
    ENDLOOP.
    465
    466
        set initial combination
    467
    LOOP AT lt_idx_sel ASSIGNING <ls_idx_sel>.
    468
    READ TABLE <ls_idx_sel>-t_idx INTO ld_idx_sel INDEX 1.
    469
    READ TABLE lt_sel ASSIGNING <ls_sel> INDEX ld_idx_sel.
    470
    READ TABLE lt_key INTO ls_key
    471
    WITH TABLE KEY fieldname = <ls_sel>-fieldname.
    472
    ASSIGN COMPONENT <ls_sel>-fieldname
    473
    OF STRUCTURE <ls_data>
    474
    TO <data>.
    475
    <data> = <ls_sel>-low.
    476
    ENDLOOP.
    477
    478
    lf_found = abap_true.
    479
    WHILE lf_found = abap_true.
    480
    481
          create entry for current key selection combination
    482
    TRY.
    483
    cl_finb_tr_tabu_tabkey=>create_c(
    484
    EXPORTING i_tabname          = ld_tabname
    485
    i_key              = <ls_data>
    486
    i_keyfields_filled = ld_keyfields_filled
    487
    i_keymode          = ld_keymode
    488
    IMPORTING e_tabkey           = ls_transport-tabkey ).
    489
             CATCH cx_root .
    490
    CATCH cx_finb_tr.              "N875173
    >>>>>
    MESSAGE x000(ugmd). ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    492
    CATCH cx_sy_dyn_call_error.    "N875173
    493
    MESSAGE x000(ugmd). ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    494
    ENDTRY.
    495
    496
    INSERT ls_transport INTO TABLE et_transport.
    497
    498
          proceed to next combination
    499
    CLEAR: lf_found,
    500
    ld_count.
    501
    502
    WHILE lf_found IS INITIAL.
    503
    504
    ADD 1 TO ld_count.
    505
    READ TABLE lt_idx_sel ASSIGNING <ls_idx_sel> INDEX ld_count.
    506
    IF sy-subrc IS NOT INITIAL.
    507
    EXIT.
    508
    ENDIF.
    509
    510
    READ TABLE lt_key INTO ls_key
    Contents of system fields
    Name
    Val.
    SY-SUBRC
    0
    SY-INDEX
    1
    SY-TABIX
    2
    SY-DBCNT
    2
    SY-FDPOS
    0
    SY-LSIND
    0
    SY-PAGNO
    1
    SY-LINNO
    1
    SY-COLNO
    1
    SY-PFKEY
    121_C
    SY-UCOMM
    DBAC
    SY-TITLE
    Client Export
    SY-MSGTY
    X
    SY-MSGID
    UGMD
    SY-MSGNO
    000
    SY-MSGV1
    SY-MSGV2
    SY-MSGV3
    SY-MSGV4
    SY-MODNO
    1
    SY-DATUM
    20080801
    SY-UZEIT
    110457
    SY-XPROG
    SAPLSYST
    SY-XFORM
    SYSTEM_HOOK_OPEN_DATASET
    Active Calls/Events
    No.   Ty.          Program                             Include                             Line
    Name
    14 METHOD       CL_UG_MD_STORAGE_CHAR_LOCAL===CP    CL_UG_MD_STORAGE_CHAR_LOCAL===CM00N   491
    CL_UG_MD_STORAGE_CHAR_LOCAL=>IF_UG_MD_STORAGE_CHAR~TRANSPORT_BY_SEL
    13 METHOD       CL_UG_MD_DISPATCHER_CHAR======CP    CL_UG_MD_DISPATCHER_CHAR======CM00J     6
    CL_UG_MD_DISPATCHER_CHAR=>IF_UG_MD_CHAR_INTERNAL~TRANSPORT_BY_SEL
    12 METHOD       CL_UG_MD_BUFFER_CHAR==========CP    CL_UG_MD_BUFFER_CHAR==========CM00F     3
    CL_UG_MD_BUFFER_CHAR=>IF_UG_MD_CHAR_INTERNAL~TRANSPORT_BY_SEL
    11 METHOD       CL_UG_MD_CHAR=================CP    CL_UG_MD_CHAR=================CM01M    59
    CL_UG_MD_CHAR=>IF_UG_MD_MANUAL_TRANSPORT~TRANSPORT_BY_SEL
    10 METHOD       CL_UC_MD_CHAR=================CP    CL_UC_MD_CHAR=================CM00J    53
    CL_UC_MD_CHAR=>IF_UG_MD_MANUAL_TRANSPORT~TRANSPORT_BY_SEL
    9 METHOD       CL_UG_MD_TR_CLIENTCOPY========CP    CL_UG_MD_TR_CLIENTCOPY========CM006    84
    CL_UG_MD_TR_CLIENTCOPY=>COLLECT_FIELDNAME_CONTENT
    8 METHOD       CL_UG_MD_TR_CLIENTCOPY========CP    CL_UG_MD_TR_CLIENTCOPY========CM001    41
    CL_UG_MD_TR_CLIENTCOPY=>IF_FINB_TR_METHOD_CLIENTCOPY~CC_COLLECT_OBJECTS
    7 METHOD       CL_FINB_TR_OBJECT_BASE========CP    CL_FINB_TR_OBJECT_BASE========CM00M    17
    CL_FINB_TR_OBJECT_BASE=>IF_FINB_TR_OBJECT_CC~CC_COLLECT_OBJECTS
    6 FUNCTION     SAPLFINB_TR_CC                      LFINB_TR_CCU02                         83
    FINB_TR_CC_EXIT_ANALYZE
    5 FORM         SAPLFINB_TR_CC                      LFINB_TR_CCF01                        688
    CC_ANALYZE_CLIENT_LOCAL
    4 FUNCTION     SAPLFINB_TR_CC                      LFINB_TR_CCU01                        196
    FINB_TR_CC_EXIT
    3 FORM         SAPLSCCR                            LSCCRF2K                              293
    RUN_EXITS
    2 FUNCTION     SAPLSCCR                            LSCCRU06                             1087
    SCCR_PERFORM_CLIENT_COPY
    1 MODULE (PAI) SAPMSCC1                            MSCC1I03                              482
    CHECK_MODE
    Chosen variables
    Name
    Val.
    No.      14 Ty.          METHOD
    Name  CL_UG_MD_STORAGE_CHAR_LOCAL=>IF_UG_MD_STORAGE_CHAR~TRANSPORT_BY_SEL
    IT_SEL
    Table[initial]
    IF_COMPLETE
    2
    0
    0
    0
    IF_USE_MASK
    X
    5
    8
    0
    0
    IF_TEXT_ONLY
    2
    0
    0
    0
    ET_TRANSPORT
    Table[initial]
    ET_TRANSPORT_SEL
    Table[initial]
    LD_TABNAME
    T100A
    533342222222222222222222222222
    410010000000000000000000000000
    000000000000000000000000000000
    000000000000000000000000000000
    <LS_DATA>
    00000000000000
    2222222222222222222222222222222222222222222222222333333333333332222222222222222222222222222222
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    LD_KEYFIELDS_FILLED
    01
    33
    01
    00
    00
    LD_KEYMODE
    G
    4
    7
    0
    0
    LS_TRANSPORT-TABKEY
    00000000000000
    2222222222222222222222222222222222222222222222222333333333333332222222222222222222222222222222
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    %_DUMMY$$
    2222
    0000
    0000
    0000
    CL_ABAP_TABLEDESCR=>TABLEKIND_STD
    S
    5
    3
    0
    0
    %_PRINT
    000                                                                                0###
    2222333222222222222222222222222222222222222222222222222222222222222222222222222222222222223000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    %_ARCHIVE
    2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    SY-REPID
    CL_UG_MD_STORAGE_CHAR_LOCAL===CP
    4455454455545444544455444443334522222222
    3CF57FD4F34F2175F3812FCF31CDDD3000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    SY-MSGID
    UGMD
    54442222222222222222
    57D40000000000000000
    00000000000000000000
    00000000000000000000
    SPACE
    2
    0
    0
    0
    SY-MSGNO
    000
    333
    000
    000
    000
    SY-MSGV1
    22222222222222222222222222222222222222222222222222
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    SY-MSGV2
    22222222222222222222222222222222222222222222222222
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    SY-MSGV3
    22222222222222222222222222222222222222222222222222
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    SY-MSGV4
    22222222222222222222222222222222222222222222222222
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000000000
    SY-XPROG
    SAPLSYST
    5454555522222222222222222222222222222222
    310C393400000000000000000000000000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    No.      13 Ty.          METHOD
    Name  CL_UG_MD_DISPATCHER_CHAR=>IF_UG_MD_CHAR_INTERNAL~TRANSPORT_BY_SEL
    IT_SEL
    Table[initial]
    IF_COMPLETE
    2
    0
    0
    0
    IF_USE_MASK
    X
    5
    8
    0
    0
    IF_TEXT_ONLY
    2
    0
    0
    0
    ET_TRANSPORT
    Table[initial]
    ET_TRANSPORT_SEL
    Table[initial]
    %_SPACE
    2
    0
    0
    0
    SY-REPID
    CL_UG_MD_DISPATCHER_CHAR======CP
    4455454454455454445544453333334522222222
    3CF57FD4F4930143852F3812DDDDDD3000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    ME
    |
    | 3000C000 |
    | E0001C00 |
    | %_DUMMY$$ |
    |  |
    | 2222 |
    | 0000 |
    | 0000 |
    | 0000 |
    | ME->DO_LOCAL |
    |
    3000C000
    F0000C00
    %_PRINT
    000                                                                                0###
    2222333222222222222222222222222222222222222222222222222222222222222222222222222222222222223000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    No.      12 Ty.          METHOD
    Name  CL_UG_MD_BUFFER_CHAR=>IF_UG_MD_CHAR_INTERNAL~TRANSPORT_BY_SEL
    IT_SEL
    Table[initial]
    IF_COMPLETE
    2
    0
    0
    0
    IF_USE_MASK
    X
    5
    8
    0
    0
    IF_TEXT_ONLY
    2
    0
    0
    0
    ET_TRANSPORT
    Table[initial]
    ET_TRANSPORT_SEL
    Table[initial]
    %_SPACE
    2
    0
    0
    0
    SY-REPID
    CL_UG_MD_BUFFER_CHAR==========CP
    4455454454544455444533333333334522222222
    3CF57FD4F256652F3812DDDDDDDDDD3000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    SCREEN
    %_AUTOTEXT003
    2545545455333222222222222222222222222222222222222222222222222222222222222222222222222222222222
    5F154F4584003000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    %_DUMMY$$
    2222
    0000
    0000
    0000
    No.      11 Ty.          METHOD
    Name  CL_UG_MD_CHAR=>IF_UG_MD_MANUAL_TRANSPORT~TRANSPORT_BY_SEL
    IT_SEL
    Table[initial]
    IF_COMPLETE
    2
    0
    0
    0
    IF_USE_MASK
    X
    5
    8
    0
    0
    IF_TEXT_ONLY
    2
    0
    0
    0
    ET_TRANSPORT
    Table IT_111628[0x404]
    CLASS=CL_UG_MD_TR_CLIENTCOPYMETHOD=COLLECT_FIELDNAME_CONTENTDATA=LT_TRANSPORT
    Table reference: 13198
    TABH+  0(20) = 007B9174FE07000000E9F174FE07000000000000
    TABH+ 20(20) = 8E3300000CB401000000000094010000FFFFFFFF
    TABH+ 40(16) = 04E801000017000010000000A2278001
    store        = 0x007B9174FE070000
    ext1         = 0x00E9F174FE070000
    shmId        = 0     (0x00000000)
    id           = 13198 (0x8E330000)
    label        = 111628 (0x0CB40100)
    fill         = 0     (0x00000000)
    leng         = 404   (0x94010000)
    loop         = -1    (0xFFFFFFFF)
    xtyp         = TYPE#000108
    occu         = 16    (0x10000000)
    access       = 2     (ItAccessSorted)
    idxKind      = 0     (ItIndexNone)
    uniKind      = 1     (ItUnique)
    keyKind      = 3     (user defined)
    cmpMode      = 3     (cmpSingleMcmpU)
    occu0        = 1
    groupCntl    = 0
    rfc          = 0
    unShareable  = 0
    mightBeShared = 0
    sharedWithShmTab = 0
    isShmLockId  = 0
    gcKind       = 0
    isUsed       = 1
    isCtfyAble   = 1
    >>>>> Shareable Table Header Data <<<<<
    tabi         = 0xA0FBAD74FE070000
    pgHook       = 0x0000000000000000
    idxPtr       = 0x0000000000000000
    shmTabhSet   = 0x0000000000000000
    id           = 48249 (0x79BC0000)
    refCount     = 0     (0x00000000)
    tstRefCount  = 0     (0x00000000)
    lineAdmin    = 16    (0x10000000)
    lineAlloc    = 16    (0x10000000)
    shmVersId    = 0     (0x00000000)
    shmRefCount  = 1     (0x01000000)
    >>>>> 1st level extension part <<<<<
    regHook      = 0x0000000000000000
    collHook     = 0x0000000000000000
    ext2         = 0x0000000000000000
    >>>>> 2nd level extension part <<<<<
    tabhBack     = Not allocated
    delta_head   = Not allocated
    pb_func      = Not allocated
    pb_handle    = Not allocated
    ET_TRANSPORT_SEL
    Table IT_126753[0x176]
    CLASS=CL_UG_MD_TR_CLIENTCOPYMETHOD=COLLECT_FIELDNAME_CONTENTDATA=LT_TRANSPORT_SEL
    Table reference: 118
    TABH+  0(20) = B0315375FE070000C0294E75FE07000000000000
    TABH+ 20(20) = 7600000021EF010000000000B0000000FFFFFFFF
    TABH+ 40(16) = 04800400801B000010000000C1248001
    store        = 0xB0315375FE070000
    ext1         = 0xC0294E75FE070000
    shmId        = 0     (0x00000000)
    id           = 118   (0x76000000)
    label        = 126753 (0x21EF0100)
    fill         = 0     (0x00000000)
    leng         = 176   (0xB0000000)
    loop         = -1    (0xFFFFFFFF)
    xtyp         = TYPE#000132
    occu         = 16    (0x10000000)
    access       = 1     (ItAccessStandard)
    idxKind      = 0     (ItIndexNone)
    uniKind      = 2     (ItUniqueNon)
    keyKind      = 1     (default)
    cmpMode      = 2     (cmpSingleMcmpR)
    occu0        = 1
    groupCntl    = 0
    rfc          = 0
    unShareable  = 0
    mightBeShared = 0
    sharedWithShmTab = 0
    isShmLockId  = 0
    gcKind       = 0
    isUsed       = 1
    isCtfyAble   = 1
    >>>>> Shareable Table Header Data <<<<<
    tabi         = 0x60320F75FE070000
    pgHook       = 0x0000000000000000
    idxPtr       = 0x0000000000000000
    shmTabhSet   = 0x0000000000000000
    id           = 53553 (0x31D10000)
    refCount     = 0     (0x00000000)
    tstRefCount  = 0     (0x00000000)
    lineAdmin    = 16    (0x10000000)
    lineAlloc    = 16    (0x10000000)
    shmVersId    = 0     (0x00000000)
    shmRefCount  = 1     (0x01000000)
    >>>>> 1st level extension part <<<<<
    regHook      = 0x0000000000000000
    collHook     = 0x0000000000000000
    ext2         = 0x0000000000000000
    >>>>> 2nd level extension part <<<<<
    tabhBack     = Not allocated
    delta_head   = Not allocated
    pb_func      = Not allocated
    pb_handle    = Not allocated
    %_DUMMY$$
    2222
    0000
    0000
    0000
    <LS_SEL>
    %_ARCHIVE
    2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
    ME->DT_RFIELDNAME
    Table IT_126975[2x60]
    DATA=DT_RFIELDNAME |
    | Table reference: 5220 |
    | TABH+  0(20) = 309A0C75FE070000000000000000000000000000 |
    | TABH+ 20(20) = 64140000FFEF0100020000003C000000FFFFFFFF |
    | TABH+ 40(16) = 04E80100300B0000100000002A278001 |
    | store        = 0x309A0C75FE070000 |
    | ext1         = 0x0000000000000000 |
    | shmId        = 0     (0x00000000) |
    | id           = 5220  (0x64140000) |
    | label        = 126975 (0xFFEF0100) |
    | fill         = 2     (0x02000000) |
    | leng         = 60    (0x3C000000) |
    | loop         = -1    (0xFFFFFFFF) |
    | xtyp         = TYPE#000045 |
    | occu         = 16    (0x10000000) |
    | access       = 2     (ItAccessSorted) |
    | idxKind      = 1     (ItIndexLinear) |
    | uniKind      = 1     (ItUnique) |
    | keyKind      = 2     (table_line) |
    | cmpMode      = 3     (cmpSingleMcmpU) |
    | occu0        = 1 |
    | groupCntl    = 0 |
    | rfc          = 0 |
    | unShareable  = 0 |
    | mightBeShared = 0 |
    | sharedWithShmTab = 0 |
    | isShmLockId  = 0 |
    | gcKind       = 0 |
    | isUsed       = 1 |
    | isCtfyAble   = 1 |
    | >>>>> Shareable Table Header Data <<<<< |
    | tabi         = 0x6015FD74FE070000 |
    | pgHook       = 0x0000000000000000 |
    | idxPtr       = 0xA01BFD74FE070000 |
    | shmTabhSet   = 0x0000000000000000 |
    | id           = 53632 (0x80D10000) |
    | refCount     = 0     (0x00000000) |
    | tstRefCount  = 0     (0x00000000) |
    | lineAdmin    = 16    (0x10000000) |
    | lineAlloc    = 16    (0x10000000) |
    | shmVersId    = 0     (0x00000000) |
    | shmRefCount  = 1     (0x01000000) |
    | >>>>> 1st level extension part <<<<< |
    | regHook      = Not allocated |
    | collHook     = Not allocated |
    | ext2         = Not allocated |
    | >>>>> 2nd level extension part <<<<< |
    | tabhBack     = Not allocated |
    | delta_head   = Not allocated |
    | pb_func      = Not allocated |
    | pb_handle    = Not allocated |
    | <LS_SEL>-FIELDNAME |
    | ??? |
    | ?????? |
    | ?????? |
    | SY-SUBRC |
    | 0 |
    | 0000 |
    | 0000 |
    | LT_SEL |
    | Table[initial] |
    | LT_TRANSPORT |
    | Table[initial] |
    | LT_TRANSPORT_SEL |
    | Table[initial] |
    | %_SPACE |
    |  |
    | 2 |
    | 0 |
    | 0 |
    | 0 |
    | ME |
    |
    3000C000
    70008C00
    ME->DO_GUID_FIELD
    |
    | F0000000 |
    | F0000000 |
    | ME->DT_FDEP_INT |
    | Table IT_126944[1x124] |
    | DATA=DT_FDEP_INT
    Table reference: 215
    TABH+  0(20) = B0753A2EFF07000090203775FE07000000000000
    TABH+ 20(20) = D7000000E0EF0100010000007C000000FFFFFFFF
    TABH+ 40(16) = 04B701005009000001000000A2078C01
    store        = 0xB0753A2EFF070000
    ext1         = 0x90203775FE070000
    shmId        = 0     (0x00000000)
    id           = 215   (0xD7000000)
    label        = 126944 (0xE0EF0100)
    fill         = 1     (0x01000000)
    leng         = 124   (0x7C000000)
    loop         = -1    (0xFFFFFFFF)
    xtyp         = TYPE#000035
    occu         = 1     (0x01000000)
    access       = 2     (ItAccessSorted)
    idxKind      = 0     (ItIndexNone)
    uniKind      = 1     (ItUnique)
    keyKind      = 3     (user defined)
    cmpMode      = 3     (cmpSingleMcmpU)
    occu0        = 0
    groupCntl    = 0
    rfc          = 0
    unShareable  = 0
    mightBeShared = 1
    sharedWithShmTab = 1
    isShmLockId  = 0
    gcKind       = 0
    isUsed       = 1
    isCtfyAble   = 1
    >>>>> Shareable Table Header Data <<<<<
    tabi         = 0x10753A2EFF070000
    pgHook       = 0x0000000000000000
    idxPtr       = 0x0000000000000000
    shmTabhSet   = 0x0000000000000000
    id           = 27288 (0x986A0000)
    refCount     = 0     (0x00000000)
    tstRefCount  = 0     (0x00000000)
    lineAdmin    = 1     (0x01000000)
    lineAlloc    = 1     (0x01000000)
    shmVersId    = 1380  (0x64050000)
    shmRefCount  = 1     (0x01000000)
    >>>>> 1st level extension part <<<<<
    regHook      = 0x0043E873FE070000
    collHook     = 0x0000000000000000
    ext2         = 0x0000000000000000
    >>>>> 2nd level extension part <<<<<
    tabhBack     = Not allocated
    delta_head   = Not allocated
    pb_func      = Not allocated
    pb_handle    = Not allocated
    <LS_FDEP>
    No.      10 Ty.          METHOD
    Name  CL_UC_MD_CHAR=>IF_UG_MD_MANUAL_TRANSPORT~TRANSPORT_BY_SEL
    IT_SEL
    Table[initial]
    IF_COMPLETE
    2
    0
    0
    0
    IF_USE_MASK
    X
    5
    8
    0
    0
    IF_TEXT_ONLY
    2
    0
    0
    0
    ET_TRANSPORT
    Table IT_111628[0x404]
    ET_TRANSPORT_SEL
    Table IT_126753[0x176]
    %_SPACE
    2
    0
    0
    0
    SY-REPID
    CL_UC_MD_CHAR=================CP
    4455454454445333333333333333334522222222
    3CF53FD4F3812DDDDDDDDDDDDDDDDD3000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    ME
    |
    | 3000C000 |
    | 70008C00 |
    | SYST |
    | ################################################ð#################################x#####XC#### |
    | 000000000000000000000000000000000000002000000000F000000000000000000000000000109000700000540000 |
    | 1010202000000000000020001000100000000080000000000000000000000000000000000000B00000800000830500 |
    | 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 |
    | 000000000000000000000000000000000000008000000000000000000000000000000000000000000000000000000C |
    | %_DUMMY$$ |
    |  |
    | 2222 |
    | 0000 |
    | 0000 |
    | 0000 |
    | No.       9 Ty.          METHOD |
    | Name  CL_UG_MD_TR_CLIENTCOPY=>COLLECT_FIELDNAME_CONTENT |
    | IO_MSG |
    |
    A0005000
    F0000B00
    CT_OBJECT
    Table IT_43581[133x8]
    FUNCTION=FINB_TR_CC_EXIT_ANALYZEDATA=LT_TMP_OBJECTS
    Table reference: 3715
    TABH+  0(20) = 70438B74FE070000000000000000000000000000
    TABH+ 20(20) = 830E00003DAA00008500000008000000FFFFFFFF
    TABH+ 40(16) = 04720100D00400001B000000C1288001
    store        = 0x70438B74FE070000
    ext1         = 0x0000000000000000
    shmId        = 0     (0x00000000)
    id           = 3715  (0x830E0000)
    label        = 43581 (0x3DAA0000)
    fill         = 133   (0x85000000)
    leng         = 8     (0x08000000)
    loop         = -1    (0xFFFFFFFF)
    xtyp         = TYPE#000011
    occu         = 27    (0x1B000000)
    access       = 1     (ItAccessStandard)
    idxKind      = 0     (ItIndexNone)
    uniKind      = 2     (ItUniqueNon)
    keyKind      = 1     (default)
    cmpMode      = 4     (cmpSingleEq)
    occu0        = 1
    groupCntl    = 0
    rfc          = 0
    unShareable  = 0
    mightBeShared = 0
    sharedWithShmTab = 0
    isShmLockId  = 0
    gcKind       = 0
    isUsed       = 1
    isCtfyAble   = 1
    >>>>> Shareable Table Header Data <<<<<
    tabi         = 0xA0548C74FE070000
    pgHook       = 0x3066DB74FE070000
    idxPtr       = 0x0000000000000000
    shmTabhSet   = 0x0000000000000000
    id           = 24950 (0x76610000)
    refCount     = 0     (0x00000000)
    tstRefCount  = 0     (0x00000000)
    lineAdmin    = 1105  (0x51040000)
    lineAlloc    = 1105  (0x51040000)
    shmVersId    = 0     (0x00000000)
    shmRefCount  = 1     (0x01000000)
    >>>>> 1st level extension part <<<<<
    regHook      = Not allocated
    collHook     = Not allocated
    ext2         = Not allocated
    >>>>> 2nd level extension part <<<<<
    tabhBack     = Not allocated
    delta_head   = Not allocated
    pb_func      = Not allocated
    pb_handle    = Not allocated
    SYST-REPID
    CL_UG_MD_TR_CLIENTCOPY========CP
    4455454455554444454455333333334522222222
    3CF57FD4F42F3C95E43F09DDDDDDDD3000000000
    0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000
    LT_FATTR
    Table IT_122877[1x294]
    CLASS=CL_UG_MD_TR_CLIENTCOPYMETHOD=COLLECT_FIELDNAME_CONTENTDATA=LT_FATTR
    Table reference: 4265
    TABH+  0(20) = F0151175FE070000000000000000000000000000
    TABH+ 20(20) = A9100000FDDF01000100000026010000FFFFFFFF
    TABH+ 40(16) = 04E80100200C00000A000000A4058401
    store        = 0xF0151175FE070000
    ext1         = 0x0000000000000000
    shmId        = 0     (0x00000000)
    id  

    "InfoProvider ZSEBCST02 has been changed in the meantime"
    1. Lock all users.
    2. Put all jobs on hold.
    3. Make sure that your upstream system (R/3, etc.) are not pushing data into BI.
    4. Cycle the BI system.
    5. Retry.

  • MKT_ELEMENT_CREATE gives Dump during creation of Campaign Element

    Hi,
    I am trying to create campaign element through code and I am getting dump in the following class method.
    Class : CL_CRM_MKTPL_OL_MKTPROJECT
    Method : SET_ATTRIBUTES
    Line No : 15 ->> lr_header_item->get_attributes( EXPORTING iv_get_external_attributes = abap_true
                                      IMPORTING es_attributes              = ls_header_attr ).
    In above statement LR_HEADER_ITEM comes as Initial.
    Below is the code for creating campaign element.
    DATA: LR_TASK          TYPE REF TO CL_CGPL_TASK,
            LR_TASKS         TYPE REF TO CL_CGPL_TASKS,
            LR_PROJECT       TYPE REF TO CL_CGPL_PROJECT.
      DATA: WA_PROJECT  TYPE CGPL_PROJECT.
      DATA: WA_TASK     TYPE CGPL_TASK.
      DATA: LIT_TASKS   TYPE CGPLD_ITAB_TASK.
      DATA: WA_MESSAGE TYPE BAPIRET2.
      DATA: LIT_RETURN TYPE TABLE OF BAPIRETURN1.
      DATA: WA_CAMPAIGN TYPE CRM_MKTPL_CAMPAIGN,
            WA_ATTRIBUTES TYPE CRM_MKTPL_MKTELEMENT.
      DATA: LV_GUID TYPE SYSUUID-X."BAPI_MARKETINGELEMENT_GUID-MKTELEMENT_GUID.
      DATA: LV_CAMP_GUID TYPE BAPI_MARKETINGELEMENT_GUID-MKTELEMENT_GUID.
      CALL FUNCTION 'MKT_ELEMENT_READ'
        EXPORTING
          MARKETINGELEMENT = IV_SOURCE_GUID - THIS IS A IMPORT PARAMETER OF FUNCTION MODULE ( CAMPAIGN GUID ).
        IMPORTING
          EX_CAMPAIGN      = WA_CAMPAIGN
          EX_ATTRIBUTES    = WA_ATTRIBUTES.
      CONCATENATE WA_ATTRIBUTES-EXTERNAL_ID '_' SY-DATUM '_' SY-UZEIT INTO WA_ATTRIBUTES-EXTERNAL_ID.
      WA_ATTRIBUTES-OBJECT_TYPE = 'CPT'.
      CALL FUNCTION 'SYSTEM_UUID_CREATE'
        IMPORTING
          UUID = WA_ATTRIBUTES-GUID.
      LV_CAMP_GUID = WA_ATTRIBUTES-GUID.
      WA_ATTRIBUTES-PROJECT_GUID = IV_SOURCE_GUID.
      WA_ATTRIBUTES-PARENT_GUID = IV_SOURCE_GUID.
      CALL FUNCTION 'MKT_ELEMENT_CREATE'
        EXPORTING
          IM_MARKETINGELEMENT = LV_CAMP_GUID
          IM_ATTRIBUTES       = WA_ATTRIBUTES
        TABLES
          RETURN              = LIT_RETURN.
      IF LIT_RETURN[] IS INITIAL.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
      ENDIF.

    This would happen if you are not passing the right guid to the program or Function Module. Please check that the guid is available in cgpl_project table.
    Ajay Gupta

  • ABAP Dump while Changing the Layout fields in Report output - RCOPCA02

    Hi,
    I Copied the Standard Program RCOPCA02 to ZRCOPCA02. I added two new fields(AUART, AUGRU) in the report output. It is executing correctly with default layout, While Changing the layout for displaying new fields it is dumping.
    I am not understanding, What should i do...
    Here is the Code.
    report ZRCOPCA02 no standard page heading message-id km
                    line-count (2) line-size 81.
    type-pools: slis, ecarc.
    DDIC-Tabellen *******************************************************
    tables: glpca,                         "Einzelposten / Ist
            glu1,                          "Übergabestruktur FI-SL-Anzeige
            t000,
            tka01,
            sscrfields,
            vbak.
    Variablen und int. Tabellen *****************************************
    data: l_vbeln like vbak-vbeln,
    l_auart like vbak-auart,
    l_augru like vbak-augru.
    data: afield type slis_fieldcat_alv,
    sp_group type slis_sp_group_alv,
    t_listheader type slis_t_listheader with header line,
    t_layout type slis_layout_alv,
    t_fieldcat type slis_t_fieldcat_alv,
    t_spec_groups type slis_t_sp_group_alv,
    event type slis_alv_event,
    t_events type slis_t_event,
    g_variant like disvariant,
    gx_variant like disvariant,
    g_exit(1) type c,
    g_save(1) type c,
    g_repid like sy-repid,
    msgtyp like sy-msgty,
    lt_dynpread like dynpread occurs 1 with header line,
    ls_rpcak like rpcak, "note 0310592
    packsize type i value 1000,
    text1(60) type c,
    text2(60) type c,
    oldkokrs like glpca-kokrs,
    oldracct like glpca-racct.
    data: whr_size type i value 50,"Maximum of single values per MIC 46a
    "charact. in the where-clause of the select-statement
    lines type i, "number of lines of range table MIC 46a
    cnt_rldnr type i, "Zähler Anzahl selektierter Ledger
    cnt_kokrs type i, "Zähler Anzahl selektierter KoReKreise
    cnt_poper type i, "Zähler Anzahl selektierter Perioden
    cnt_ryear type i, "Zähler Anzahl selektierter GeschJahre
    cnt_rvers type i, "Zähler Anzahl selektierter Versionen
    cnt_bukrs type i, "Zähler Anzahl selektierter BuKreise
    empge like dkobr-empge,
    ksl_curr like tka01-pcacur,
    hsl_curr like t001-waers,
    a_rec like rstirec.
    data: begin of dim_data.
    include structure rgcdi. "data for dimensions
    data: end of dim_data.
    data: begin of tab_fields occurs 80,
    name like dntab-fieldname, "fields in table i_glpca
    end of tab_fields.
    data: begin of i_glpca occurs 0.
    include structure rpca2.
    data: racct_ktext like rpcak-ktext,
    psppp like prps-posid,
    v_auart like vbak-auart,
    v_augru like vbak-augru,
          end of i_glpca.
    data: rw_subrc   like sy-subrc,      "Flag: Report-Writer-Schnittstelle
          re_subrc   like sy-subrc,        "Flag: Recherche-Schnittstelle
          subrc      like sy-subrc.
    data: set_id    like sethier-setid,    "Set-ID        "RDI_SETS_4.0
          set_class like sethier-setclass, "Setklasse     "RDI_SETS_4.0
          set_sname like sethier-shortname."Setname (24)  "RDI_SETS_4.0
    data: authorised(1),
          s_message(1),
          auth_dbcount like sy-tabix,
        Hex-Konstanten für Minimum/Maximum-Werte
          begin of hex00,
            x1(12) type c,
            x2(12) type c,
          end of hex00,
          begin of hexff,
            x1(12) type c,
            x2(12) type c,
          end of hexff.
    ranges rclnt for glpca-rclnt.
    field-symbols:  type ecarc_glpca_curr.
    Selektionsoptionen *************************************************
    select-options:
      rldnr    for glpca-rldnr   default '8A' no-display,
      rassc    for glpca-rassc                no-display,
    rrcty    for glpca-rrcty   default 0,
      rrcty    for glpca-rrcty,
      rvers    for glpca-rvers   default '000',
      kokrs    for glpca-kokrs   memory id cac,
      bukrs    for glpca-rbukrs  memory id buk,
    poper    for glpca-poper   default sy-datlo+4(2),
    ryear    for glpca-ryear   default sy-datlo,
      poper    for glpca-poper,
      ryear    for glpca-ryear,
      prctr    for glpca-rprctr  matchcode object prct,
      pprctr   for glpca-sprctr  matchcode object prct,
    RACCT    FOR GLPCA-RACCT   MATCHCODE OBJECT KART,      "RD_P30K128304
      racct    for glpca-racct,            "RD_P30K128304
      drcrk    for glpca-drcrk,
      activ    for glpca-activ,
      rhoart   for glpca-rhoart,
      rfarea   for glpca-rfarea,
      stagr    for glpca-stagr,
      rtcur    for glpca-rtcur,
      runit    for glpca-runit,
      versa    for glpca-versa  no-display,
      eprctr   for glpca-eprctr no-display,
      afabe    for glpca-afabe  no-display,
      rmvct    for glpca-rmvct  no-display,
      hrkft    for glpca-hrkft  no-display,  "note 550972
      sbukrs   for glpca-sbukrs no-display,  "note 550972
      shoart   for glpca-shoart no-display,  "note 550972
      sfarea   for glpca-sfarea no-display,  "note 550972
      docct    for glpca-docct,
      docnr    for glpca-docnr,
      refdocct for glpca-refdocct,
      refdocnr for glpca-refdocnr,
      werks    for glpca-werks,
      repmatnr for glpca-rep_matnr matchcode object pca_shlp_rep_matnr,
      rscope   for glpca-rscope.
    parameters: no_rrint no-display default ' '." skip       "MICP40K066037
    " report-report-interface
    display variant                                       ">>MICP40K039857
    selection-screen begin of block 0 with frame title text-e01.
    parameters: p_vari like disvariant-variant.
    selection-screen comment 47(40) varname for field p_vari.
    selection-screen end of block 0.
    parameters log_grp(4) type c no-display default 'KE5Z'.
    "<<MICP40K039857
    ranges: v_racct  for glpca-racct,
            v_prctr  for glpca-rprctr,
            v_pprctr for glpca-sprctr.
    Tabelle mit Werten aus den Berichts-Set vom Report-Writer           *
    data  begin of val_tab occurs 50.
            include structure rgciv.
    data  end of val_tab.
           MICP30K166368
    feldkatalog und interface für bb-schnittstelle rw        MICP30K166368
           MICP30K166368
    "MICP30K166368
    data  begin of bbs_fieldtab occurs 20. "MICP30K166368
            include structure rstifields.  "MICP30K166368
    data  end of bbs_fieldtab.             "MICP30K166368
    archiv
    type-pools: rsds.
    types:      begin of ty_archive_objects,
                   object       like arch_obj-object,
                end   of ty_archive_objects,
                ty_t_archive_objects type ty_archive_objects occurs 2.
    constants:  lc_set          type  c           value 'X',
                lc_report       type  progname    value 'KE5Z',
                lc_reporttype   type  reporttype  value 'TR'.
    tables:     admi_files.
    select-options lr_files for admi_files-archiv_key no-display.
    parameter:  read_db       type c            default 'X' no-display,
                read_ar       type c                        no-display,
                arc_obj       like arch_obj-object          no-display,
                read_as       type c            default 'X' no-display.
    data  :     lt_arch_obj     type ty_t_archive_objects with header line,
                ls_selections   type rsds_frange,
                lt_selections   type rsds_frange_t,
                ls_selopt type rsdsselopt,
                lt_glpca_archiv type ecarc_t_glpca_curr.
    *********************************************************>>MICP40K039857
    INITIALIZATION
    initialization.
    Diverse Initialisierungen
      perform init_vars.
      g_repid = sy-repid.
    Set default values for record type
      rrcty-sign = 'I'.
      rrcty-option = 'EQ'.
      rrcty-low    = '0'.
      append rrcty.
      rrcty-low = '2'.
      append rrcty.
    Set default values for period and year (if kokrs or bukrs is known)
      get parameter id 'BUK' field bukrs-low.
      get parameter id 'CAC' field kokrs-low.
      if     kokrs-low is initial       "get contr. area from company code
         and not bukrs-low is initial.
        call function 'KOKRS_GET_FROM_BUKRS'
          exporting
            i_bukrs        = bukrs-low
          importing
            e_kokrs        = kokrs-low
          exceptions
            no_kokrs_found = 1
            others         = 2.
        if sy-subrc <> 0.
          clear kokrs-low.
        endif.
      endif.
      if not kokrs-low is initial.
        call function 'K_KOKRS_READ'       "get fiscal year variant
             exporting
                  kokrs           = kokrs-low
              importing
                  e_tka01         = tka01
            exceptions
                  not_found       = 1
                  not_found_gjahr = 2
                  others          = 3.
        if sy-subrc = 0.
          call function 'G_PERIOD_GET'
            exporting
              date                           = sy-datlo
              variant                        = tka01-lmona
            importing
              period                         = poper-low
              year                           = ryear-low
            exceptions
              ledger_not_assigned_to_company = 1
              period_not_defined             = 2
              variant_not_defined            = 3
              others                         = 4.
          if sy-subrc = 0.
            poper-sign = 'I'.
            poper-option = 'EQ'.
            append poper.
            ryear-sign = 'I'.
            ryear-option = 'EQ'.
            append ryear.
          endif.
        endif.
      endif.
    Settings for display variants
      g_save = 'A'.  "Schalter Varianten benutz./allg. speichern
      clear g_variant.
      g_variant-report = g_repid.
      g_variant-log_group = log_grp.
      g_variant-username = sy-uname.
    Get default variant
      gx_variant = g_variant.
      call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
        exporting
          i_save     = g_save
        changing
          cs_variant = gx_variant
        exceptions
          not_found  = 2.
      if sy-subrc = 0.
        p_vari = gx_variant-variant.
      endif.
    Set variant
      if p_vari is initial.
        p_vari = '1SAP'.
        move p_vari to gx_variant-variant.
        call function 'REUSE_ALV_VARIANT_EXISTENCE'
          exporting
            i_save     = g_save
          changing
            cs_variant = gx_variant
          exceptions
            not_found  = 1.
        if sy-subrc ne 0.
          clear p_vari.
          clear gx_variant-variant.
        endif.
      endif.
      varname = gx_variant-text.
      "<<MICP40K039857
    archiv
      call function 'KARL_DATA_INPUT_INIT'
        exporting
          i_report     = lc_report
          i_reporttype = lc_reporttype
        importing
          e_xusedb     = read_db
          e_xusear     = read_ar
          e_archobj    = arc_obj
          e_infosys    = read_as
        tables
          t_arch_sel   = lr_files.
      data: lt_excluding like sy-ucomm occurs 0 with header line.
      call function 'RS_SET_SELSCREEN_STATUS'
        exporting
          p_status  = 'SELSCREEN'
          p_program = 'RCOPCA02'
        tables
          p_exclude = lt_excluding.
    Initialisieren der Bericht/Bericht-Schnittstellen                   *
      data: ld_no_rrint type boole_d.      "note 490484 begin
      import rri = ld_no_rrint from memory id 'RCOPCA02_NO_RRI'.
      if ld_no_rrint = 'X'.
        free memory id 'RCOPCA02_NO_RRI'.
      else.                                "note 490484 end
        call function 'G_REPORT_INTERFACE_INIT'   "Report-Writer?
            exporting                      "MICP30K166368
                 table = 'GLPCT'           "MICP30K166368
             importing
                 subrc = rw_subrc          "MICP30K166368
            tables                         "MICP30K166368
                 it_fieldr = bbs_fieldtab. "MICP30K166368
        call function 'RSTI_APPL_STACK_POP'"oder Recherche?
             importing
                  i_rec                      = a_rec
             exceptions
                  appl_stack_not_initialized = 1.
        re_subrc = sy-subrc.
        if re_subrc = 0.
       check Receiver is this report
          if not ( ( a_rec-rtool = 'RT' and a_rec-ronam = 'RCOPCA02' )
                   or ( a_rec-rtool = 'TR' and a_rec-ronam = 'KE5Z' ) ) .
            re_subrc = 2.
          endif.
        endif.
      endif.
    AT SELCTION-SCREEN on value request**********************************
    *at selection-screen on value-request for racct-low.          "RD "4.6a
                                                                "RD "4.6a
    call function 'K_RACCT_VALUE_REQUEST'                       "RD "4.6a
         importing                                              "RD "4.6a
              e_racct      = racct-low.                         "RD "4.6a
                                                                "RD "4.6a
                                                                "RD "4.6a
    *at selection-screen on value-request for racct-high.         "RD "4.6a
                                                                "RD "4.6a
    call function 'K_RACCT_VALUE_REQUEST'                       "RD "4.6a
         importing                                              "RD "4.6a
              e_racct      = racct-high.                        "RD "4.6a
    at selection-screen on value-request for p_vari.         "MICP40K039857
      perform f4_for_variant.              "MICP40K039857
    at selection-screen on value-request for poper-low.         "RD "4.6a
    begin of insertion note 522715
      call function 'K_KOKRS_READ'
        exporting
          kokrs           = kokrs-low
        exceptions
          not_found       = 1
          not_found_gjahr = 2
          others          = 3.
      if sy-subrc = 0.
    end of insertion note 522715
        call function 'ECPCA_RPMAX_VALUE_REQUEST'               "RD "4.6a
             exporting                                          "RD "4.6a
                  i_kokrs     = kokrs-low                       "RD "4.6a
                  i_ryear     = ryear-low                       "RD "4.6a
             importing                                          "RD "4.6a
                  e_rpmax     = poper-low                       "RD "4.6a
    begin of insertion note 522715
             exceptions
                  table_empty = 1.
      endif.
    end of insertion note 522715
    at selection-screen on value-request for poper-high.        "RD "4.6a
    begin of insertion note 522715
      call function 'K_KOKRS_READ'
        exporting
          kokrs           = kokrs-low
        exceptions
          not_found       = 1
          not_found_gjahr = 2
          others          = 3.
      if sy-subrc = 0.
    end of insertion note 522715
        call function 'ECPCA_RPMAX_VALUE_REQUEST'               "RD "4.6a
             exporting                                          "RD "4.6a
                  i_kokrs     = kokrs-low                       "RD "4.6a
                  i_ryear     = ryear-low                       "RD "4.6a
             importing                                          "RD "4.6a
                  e_rpmax     = poper-high                      "RD "4.6a
    begin of insertion note 522715
             exceptions
                  table_empty = 1.
      endif.
    end of insertion note 522715
    AT SELCTION-SCREEN ***************************************************
    at selection-screen.
      perform pai_of_selection_screen.
    begin of insertion note 522715
      if not kokrs-low is initial.
        call function 'K_KOKRS_READ'
          exporting
            kokrs           = kokrs-low
          exceptions
            not_found       = 1
            not_found_gjahr = 2
            others          = 3.
        if sy-subrc <> 0.
          message e101(ki) with kokrs-low.
        endif.
      endif.
    end of insertion note 522715
    archiv
      if sy-ucomm = 'FC01' or sy-ucomm = 'UCDS'
        or sy-ucomm = 'ONLI' and read_ar = 'X'
        and read_as is initial and lr_files[] is initial.
        if lt_arch_obj[] is initial.
          lt_arch_obj-object = 'PCA_OBJECT'. append lt_arch_obj.
          lt_arch_obj-object = 'EC_PCA_ITM'. append lt_arch_obj.
        endif.
        call function 'KARL_DATA_INPUT_SELECT'
          exporting
            i_db_and_arc       = lc_set
            i_infosys_possible = lc_set
            i_object_fixed     = 'V'
            i_documentation    = 'KARL_DATA_INPUT_SEL_KE5YZ'
            i_report           = lc_report
            i_reporttype       = lc_reporttype
          tables
            t_objects          = lt_arch_obj
            t_arch_sel         = lr_files
          changing
            c_xusedb           = read_db
            c_xusear           = read_ar
            c_archobj          = arc_obj
            c_infosys          = read_as.
      endif.
    START-OF-SELECTION **************************************************
    start-of-selection.
      Default-Werte löschen, falls Aufruf über Recherche
      oder Report-Writer erfolgt ist
      if no_rrint is initial and ld_no_rrint is initial.        "note 490484
        if rw_subrc eq 0 or re_subrc eq 0.
          refresh: rldnr, rrcty, rvers,  kokrs, bukrs, poper,  ryear,
                   racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
                   versa, afabe, eprctr,
                   v_racct, v_prctr, v_pprctr.
          clear:   rldnr, rrcty, rvers,  kokrs, bukrs, poper,  ryear,
                   racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
                   versa, afabe, eprctr,
                   v_racct, v_prctr, v_pprctr.
        endif.
    Parameter einlesen über Report-Writer-Schnittstelle                 *
        if rw_subrc eq 0.
          perform rw_get_parameters.
    oder Parameter einlesen über Recherche-Schnittstelle                *
        elseif re_subrc eq 0.
          perform re_get_parameters.
        endif.
      endif.
      if read_db = 'X'.                     " read from DB (archiv)
    Bewegungsdaten einlesen und puffern...................................
        call function 'SAPGUI_PROGRESS_INDICATOR'
          exporting
            text = 'Einzelposten selektieren'(p10).
    Use dirty trick to mislead DB-optimizer
        call function 'DB_DO_NOT_USE_CLIENT_INDEX'
          exporting
            value    = sy-mandt
          tables
            mandttab = rclnt.
        select (tab_fields) from glpca
           client specified
           package size packsize
          APPENDING CORRESPONDING FIELDS OF TABLE i_glpcaO
            into corresponding fields of table i_glpca
           where rldnr     in rldnr
             and rrcty     in rrcty
             and rvers     in rvers
             and kokrs     in kokrs
             and rbukrs    in bukrs
             and ryear     in ryear
             and rassc     in rassc
             and hrkft     in hrkft   "note 550972
             and sbukrs    in sbukrs  "note 550972
             and shoart    in shoart  "note 550972
             and sfarea    in sfarea  "note 550972
             and racct     in racct
             and rprctr    in prctr
             and sprctr    in pprctr
             and poper     in poper
             and drcrk     in drcrk
             and activ     in activ
             and rhoart    in rhoart
             and rfarea    in rfarea
             and versa     in versa
             and eprctr    in eprctr
             and afabe     in afabe
             and rmvct     in rmvct
             and docct     in docct
             and docnr     in docnr
             and stagr     in stagr
             and rtcur     in rtcur
             and runit     in runit
             and refdocct  in refdocct
             and refdocnr  in refdocnr
             and werks     in werks
             and rep_matnr in repmatnr       "RDIP40K020663
             and rscope    in rscope         "RDIP40K020663
          and rclnt     in rclnt.       "dirty trick to mislead DB-optimizer
          if sy-dbcnt > 1.
            text1 = sy-dbcnt.
            condense text1.
            concatenate text1 text-m01 into text2 separated by space.
            call function 'SAPGUI_PROGRESS_INDICATOR'
              exporting
                text = text2.          " ... Datensätze gelesen
          endif.
        endselect.
    Entfernt nicht zugehörige Einträge....................................
        loop at i_glpca where ( not rprctr in v_prctr  )
                           or ( not sprctr in v_pprctr )
                           or ( not racct  in v_racct  ).
          delete i_glpca.
        endloop.
      endif.
    *archiv
      if read_ar = 'X' and not
        ( read_as is initial and lr_files[] is initial ).
        call function 'SAPGUI_PROGRESS_INDICATOR'
          exporting
            text = 'Lesen im Archiv'(p12).
        define fill_lt_selections.
          if not &2[] is initial.
            clear ls_selections.
            move &1 to ls_selections-fieldname.
            loop at &2.
              clear ls_selopt.
              move-corresponding &2 to ls_selopt.
              append ls_selopt to ls_selections-selopt_t.
            endloop.
            append ls_selections to lt_selections.
          endif.
        end-of-definition.
        fill_lt_selections 'RLDNR'  rldnr.
        fill_lt_selections 'RRCTY'  rrcty.
        fill_lt_selections 'RVERS'  rvers.
        fill_lt_selections 'KOKRS'  kokrs.
        fill_lt_selections 'RBUKRS' bukrs.
        fill_lt_selections 'POPER'  poper.
        fill_lt_selections 'RYEAR'  ryear.
        fill_lt_selections 'RPRCTR' prctr.
        fill_lt_selections 'SPRCTR' pprctr.
        fill_lt_selections 'RACCT'  racct.
        fill_lt_selections 'DRCRK'  drcrk.
        fill_lt_selections 'ACTIV'  activ.
        fill_lt_selections 'RHOART' rhoart.
        fill_lt_selections 'RFAREA' rfarea.    "note 401961
        fill_lt_selections 'STAGR'  stagr.
        fill_lt_selections 'RTCUR'  rtcur.
        fill_lt_selections 'RUNIT'  runit.
        fill_lt_selections 'VERSA'  versa.
        fill_lt_selections 'EPRCTR' eprctr.
        fill_lt_selections 'AFABE'  afabe.
        fill_lt_selections 'RMVCT'  rmvct.
        fill_lt_selections 'DOCCT'  docct.
        fill_lt_selections 'DOCNR'  docnr.
        fill_lt_selections 'REFDOCCT' refdocct.
        fill_lt_selections 'REFDOCNR' refdocnr.
        fill_lt_selections 'WERKS'  werks.
        fill_lt_selections 'REP_MATNR' repmatnr.
        fill_lt_selections 'RSCOPE' rscope.
        fill_lt_selections 'HRKFT'  hrkft.   "note 550972
        fill_lt_selections 'SBUKRS' sbukrs.  "note 550972
        fill_lt_selections 'SHOART' shoart.  "note 550972
        fill_lt_selections 'SFAREA' sfarea.  "note 550972
        call function 'EC_PCA_SELECT_FROM_ARCHIVE'
          exporting
            i_selections            = lt_selections[]
            i_files_sequential_read = lr_files[]
          importing
            e_glpca                 = lt_glpca_archiv[]
          exceptions
            no_infostruc_found      = 1.
        if sy-subrc = 1.
          message id sy-msgid type 'I' number sy-msgno
                  with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        endif.
        clear i_glpca.
        loop at lt_glpca_archiv assigning  to i_glpca.
          append i_glpca.
        endloop.
      endif.
      if i_glpca[] is initial.         "Info,nichts gefunden
        message s000.
        exit.
      endif.
    get texts for accounts ...............................................
      sort i_glpca by kokrs racct.
      loop at i_glpca assigning -racct_ktext = ls_rpcak-ktext.
      endloop.
    Liste mit Einzelposten geeignet sortieren.............................
      call function 'SAPGUI_PROGRESS_INDICATOR'
        exporting
          text = 'Einzelposten sortieren'(p30).
    if show_ref is initial.
       sort i_glpca by rldnr ryear rbukrs rrcty rvers
                       docct docnr docln.
    else.
      sort i_glpca by rldnr kokrs ryear rbukrs rrcty rvers poper
                      refdocct refdocnr refdocln.
    endif.
    Berechtigungsprüfung und gemerkte Belege aufbereiten .................
      call function 'SAPGUI_PROGRESS_INDICATOR'
        exporting
          text = 'Berechtigungsprüfungen'(p40).
      clear: cnt_rldnr, cnt_kokrs, cnt_ryear, cnt_rvers, cnt_bukrs.
      loop at i_glpca assigning .
      Berechtigungscheck
        perform check_repo_authority changing authorised.
        if authorised is initial.
          delete i_glpca.
          s_message = 'X'.
        zählen der Sätze ohne Berechtigung
          auth_dbcount = auth_dbcount + 1.
        else. "Weitere Bearbeitung nur für berechtigte Belege...
        Zusätzlich merken der Anzahl der Ausprägungen
        bestimmter Dimensionen
          on change of -rbukrs
                ct       = '10'
              importing
                currency = hsl_curr.
          endon.
        externe Immobilienbezeichnung                     "ww/kb
        on change of i_glpca-imkey.
          if ( not -dabrz
                    I_length   = 20
                 importing
                      e_empge    = -konty.
            endif.
          CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
          endif.
        endon.
        on change of i_glpca-dabrz.
           call function 'REMD_IMKEY_TO_EMPGE'
                exporting
                     i_imkey    = i_glpca-imkey
                     i_dabrz    = i_glpca-dabrz
                    i_length   = 20
                importing
                     e_empge    = i_glpca-empge
                     e_konty    = i_glpca-konty.
          CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
         endon.
        Konvertierungsproblem mit PSP-Nummer bereinigen
          if not -psppp.
            endif.
          endif.
        Währungen in Hilfsfeldern speichern
          if -ksl_curr = ksl_curr.
          endif.
        modify i_glpca.
        endif.
      endloop.
    Nachricht, wenn nicht alle Einzelposten angezeigt werden.
      if not s_message is initial.
        message s407(km) with auth_dbcount.
      endif.
    EP ausgeben...........................................................
      call function 'SAPGUI_PROGRESS_INDICATOR'
        exporting
          text = 'Einzelposten ausgeben'(p50).
      t_layout-detail_initial_lines = 'X'.
      t_layout-detail_popup         = 'X'.
      t_layout-f2code               = 'PIC1'.                "MICP40K039857
      t_layout-get_selinfos         = 'X'.
      t_layout-group_change_edit    = 'X'.                   "note 576149
      perform fill_listheader.
      perform fieldcat_fill.
      perform spec_groups_fill.
      perform events_fill.                 "MICP40K039857
      ">>MICP40K039857
    call function 'K_KKB_LIST_DISPLAY'
          exporting
               i_callback_program       = 'RCOPCA02'
               i_callback_user_command  = 'USR_CMD'
               i_callback_top_of_page   = 'TOP_OF_PAGE'
              I_CALLBACK_END_OF_PAGE   =
              I_CALLBACK_END_OF_LIST   =
               i_callback_pf_status_set = 'SET_PF_STATUS'
              I_CALLBACK_LAYOUT_SAVE   =
              I_CALLBACK_FIELDCAT_SAVE =
               i_tabname                = 'I_GLPCA'
               is_layout                = t_layout
               it_fieldcat              = t_fieldcat
              I_FCTYPE                 = 'R'
              IT_EXCLUDING             =
               it_special_groups        = t_spec_groups
              IT_SORT                  =
              IS_SEL_HIDE              =
              I_SCREEN_START_COLUMN    = 0
              I_SCREEN_START_LINE      = 0
              I_SCREEN_END_COLUMN      = 0
              I_SCREEN_END_LINE        = 0
          tables
               t_outtab                 = i_glpca
          exceptions
               others                   = 1.
    loop at i_glpca.
    select single vbeln auart augru
    into (l_vbeln, l_auart, l_augru)
    from vbak where vbeln = i_glpca-aubel.
    if sy-subrc = 0.
    move l_auart to i_glpca-v_auart.
    move l_augru to i_glpca-v_augru.
    modify i_glpca.
    endif.
    endloop.
      call function 'REUSE_ALV_GRID_DISPLAY'
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         exporting
            I_INTERFACE_CHECK        = ' '
               i_callback_program       = 'ZRCOPCA02'
               i_callback_pf_status_set = 'SET_PF_STATUS'
               i_callback_user_command  = 'USR_CMD'
               i_structure_name         = 'I_GLPCA'
               is_layout                = t_layout
               it_fieldcat              = t_fieldcat
            IT_EXCLUDING             =
               it_special_groups        = t_spec_groups
            IT_SORT                  =
            IT_FILTER                =
            IS_SEL_HIDE              =
               i_default                = 'X'
               i_save                   = g_save
               is_variant               = g_variant
               it_events                = t_events
            IT_EVENT_EXIT            =
            IS_PRINT                 =
            I_SCREEN_START_COLUMN    = 0
            I_SCREEN_START_LINE      = 0
            I_SCREEN_END_COLUMN      = 0
            I_SCREEN_END_LINE        = 0
       IMPORTING
            E_EXIT_CAUSED_BY_CALLER  =
            ES_EXIT_CAUSED_BY_USER   =
          tables
               t_outtab                 = i_glpca
        exceptions
             program_error            = 1
             others                   = 2.
      if sy-subrc <> 0.
        message id sy-msgid type sy-msgty number sy-msgno
                with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      endif.
      "<<MICP40K039857
      clear i_glpca.
    *&      Form  CHECK_REPO_AUTHORITY
    Check only new auth-object K_PCA                                    *
    -->  p1        text
    <--  p2        text
    form check_repo_authority changing authorized like authorised.
    fill structure for userexit in K_PCA_RESP_AUTHORITY_CHECK
      data: auth like pca_i_auth.          "46a MIC check K_PCA and G_GLTP
      auth-bukrs = -rrcty.
      clear authorized.
    check PrCtr/account/activity
      call function 'K_PCA_RESP_AUTHORITY_CHECK'
        exporting
          i_kokrs             = -racct
          i_vorgn             = 'REPP'
          i_actvt             = '28'
          i_auth              = auth
          i_no_dialog_message = 'X'
        exceptions
          no_authority        = 1
          data_missing        = 2
          others              = 3.
      if sy-subrc = 0.                                          "ok
    check ledger/version/record type
        call function 'PCA_G_GLTP_AUTH_CHECK'
          exporting
            rldnr            = -rrcty
          exceptions
            no_authorisation = 1
            others           = 2.
        if sy-subrc = 0.                   "ok, User is authorized
          authorized = 'X'.
        endif.
      endif.
    endform.                               " CHECK_REPO_AUTHORITY
    *&      Form  INIT_VARS
          Initialisieren diverser Hilfsvariablen und -tabellen           *
    form init_vars.
      data begin of nametab occurs 80. "Tabelle mit Feldern aus der RPCA2
              include structure dntab.
      data end of nametab.
      select single * from t000
                      client specified
                      where mandt = sy-mandt.
      refresh nametab.
      call function 'NAMETAB_GET'
        exporting
          only    = 'T'
          tabname = 'RPCA2'
        tables
          nametab = nametab.
    Übernehmen der Feldnamen, die auch in der GLPCA
    vorkommen.
      loop at nametab where fieldname ne 'KSL_CURR'
                        and fieldname ne 'HSL_CURR'
                        and fieldname ne 'EMPGE'               "ww/kb
                        and fieldname ne 'KONTY'.              "ww/kb
        move nametab-fieldname to tab_fields-name.
        append tab_fields.
      endloop.
    fill Fields of receiver for BBS                          "MIC46C
      call function 'RSTI_REPORT_FIELDS_FIND'
        exporting
          e_repid   = 'RCOPCA02'
          e_type    = 'R'
        tables
          it_fields = bbs_fieldtab.
    correct fieldnames
      read table bbs_fieldtab with key rfield = 'PRCTR'.
      if sy-subrc = 0.
        bbs_fieldtab-rfield = 'RPRCTR'.
        modify bbs_fieldtab index sy-tabix.
      endif.
      read table bbs_fieldtab with key rfield = 'PPRCTR'.
      if sy-subrc = 0.
        bbs_fieldtab-rfield = 'SPRCTR'.
        modify bbs_fieldtab index sy-tabix.
      endif.
      read table bbs_fieldtab with key rfield = 'BUKRS'.
      if sy-subrc = 0.
        bbs_fieldtab-rfield = 'RBUKRS'.
        modify bbs_fieldtab index sy-tabix.
      endif.
    Unicode
      class cl_abap_char_utilities definition load.
      clear hex00 with cl_abap_char_utilities=>minchar.
      clear hexff with cl_abap_char_utilities=>maxchar.
    endform.                               " INIT_VARS
          FORM FILL_LISTHEADER                                          *
          List-Header in Abhängigkeit der selektierten Daten            *
    form fill_listheader.
      read table i_glpca index 1.
      if sy-subrc ne 0.
        exit.
      endif.
      t_listheader-typ  = 'S'.
      t_listheader-key  = 'Ledger              '(h01).
      if cnt_rldnr <= 1.
        t_listheader-info = i_glpca-rldnr.
      else.
        t_listheader-info = '*'.
      endif.
      append t_listheader.
      t_listheader-typ  = 'S'.
      t_listheader-key  = 'Kostenrechnungskreis'(h02).
      if  cnt_kokrs <= 1.
        t_listheader-info = i_glpca-kokrs.
      else.
        t_listheader-info = '*'.
      endif.
      append t_listheader.
      t_listheader-typ  = 'S'.
      t_listheader-key  = 'Buchungskreis       '(h03).
      if cnt_bukrs <= 1.
        t_listheader-info = i_glpca-rbukrs.
      else.
        t_listheader-info = '*'.
      endif.
      append t_listheader.
      t_listheader-typ  = 'S'.
      t_listheader-key  = 'Buchungsperiode     '(h04).
      if cnt_poper <= 1.
        t_listheader-info = i_glpca-poper.
      else.
        t_listheader-info = '*'.
      endif.
      append t_listheader.
      if cnt_ryear <= 1.
        t_listheader-typ  = 'S'.
        t_listheader-key  = 'Geschäftsjahr       '(h05).
        t_listheader-info = i_glpca-ryear.
        append t_listheader.
      endif.
      t_listheader-typ  = 'S'.
      t_listheader-key  = 'Version             '(h06).
      if cnt_rvers <= 1.
        t_listheader-info = i_glpca-rvers.
      else.
        t_listheader-info = '*'.
      endif.
      append t_listheader.
    endform.                    "fill_listheader
    *&      Form  FIELDCAT_FILL
    *&      Aufbau des Feldkataloges für den K_KKB_LIST_DISPLAY,           *
    *&      bzw REUSE_ALV_LIST_DISPLAY,                                    *
    *&      weitere Infos enthält die FktBaustein-Doku                     *
    form fieldcat_fill.
      data: i type i value 0.
      refresh t_fieldcat.
    Ledger
    if cnt_rldnr > 1.
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'RLDNR'.
      afield-no_sum      = 'X'.
      afield-no_out      = 'X'.
      afield-key         = 'X'.
      afield-ref_tabname = 'GLPCA'.
      afield-sp_group    = '1'.
      append afield to t_fieldcat.
    endif.
    Satzart
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'RRCTY'.
      afield-no_sum      = 'X'.
      afield-ref_tabname = 'GLPCA'.
      afield-no_out      = 'X'.
      afield-sp_group    = '1'.
      append afield to t_fieldcat.
    Version
    if cnt_rvers > 1.
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'RVERS'.
      afield-no_sum      = 'X'.
      afield-ref_tabname = 'GLPCA'.
      afield-no_out      = 'X'.
      afield-sp_group    = '1'.
      append afield to t_fieldcat.
    endif.
    Periode
    if cnt_poper > 1.
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'POPER'.
      afield-no_sum      = 'X'.
      afield-ref_tabname = 'GLPCA'.
      afield-no_out      = 'X'.
      afield-sp_group    = '1'.
      append afield to t_fieldcat.
    endif.
    Geschäftsjahr
    if cnt_ryear > 1.
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'RYEAR'.
      afield-no_sum      = 'X'.
      afield-ref_tabname = 'GLPCA'.
      afield-no_out      = 'X'.
      afield-sp_group    = '1'.
      append afield to t_fieldcat.
    endif.
    Referenzbelegtyp
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'REFDOCCT'.
      afield-ref_tabname = 'GLPCA'.
      afield-key_sel     = 'X'.
      afield-no_sum      = 'X'.
      afield-sp_group    = '2'.
      afield-seltext_s   = 'Typ'(t01).
      afield-seltext_m   = 'Belegtyp'(t02).
      afield-seltext_l   = 'Ref.Belegtyp'(t03).
      afield-outputlen   = 3. "Platz für die Sterne der Zwischensummen
    if not show_ref is initial.
      afield-key = 'X'.
    else.
       afield-no_out = 'X'.
    endif.
      append afield to t_fieldcat.
    Referenzbelegnummer
      add 1 to i.
      clear afield.
      afield-col_pos     = i.
      afield-fieldname   = 'REFDOCNR'.
      afield-ref_tabname = 'GLPCA'.
      afield-key_sel     = 'X'.
      afield-no_sum      = 'X'.
      afield-sp_group    = '2'.
      afield-seltext_s  = 'Refbeleg'(t04).
      afield-seltext_m  = 'Refbelegnr'(t05).
      afield-seltext_l  = 'Ref.Belegnummer'(t06).
    if not show_ref is initial.
      afield-key = 'X'.
    else.
       afield-no_out = 'X'.
    endif.
      append

    Hi Prabhu,
    You are right, problem is with Field Catalog...
    When I use  FM 'REUSE_ALV_GRID_DISPLAY'  it is dumping...
    When i tried with FM 'REUSE_ALV_LIST_DISPLAY'  it is working perfectly....
    how can i use FM 'REUSE_ALV_GRID_DISPLAY' without dumping????
    do i need to pass any thing in FM????
    Here is the dump:
    Runtime Errors         MESSAGE_TYPE_X                                
           Occurred on     12/21/2006 at 01:03:24                                                                               
    The current application triggered a termination with a short dump.   
                                                             What happened?                                                       
    The current application program detected a situation which really    
    should not occur. Therefore, a termination with a short dump was     
    triggered on purpose by the key word MESSAGE (type X).               
                                                         Error analysis                                                       
    Short text of error message:                                                                               
    Technical information about the message:                             
    Message classe...... "0K "                                           
    Number.............. 000 
    User, transaction...                                                                               
    Language key........ "E"                                                    
    Transaction......... "SE38 "                                                
    Program............. "SAPLSLVC "                                            
    Screen.............. "SAPLSLVC_FULLSCREEN 0500"                             
    Screen line......... 3                                                                               
    Information on where termination occurred                                                                               
    The termination occurred in the ABAP program "SAPLSLVC " in "LINE_OUT_NEW_2".
    The main program was "ZRCOPCA02 ".                                          
    The termination occurred in line 918 of the source code of the (Include)    
    program "LSLVCF01 "                                                        
    of the source code of program "LSLVCF01 " (when calling the editor 9180).   
                                                             Source code extract                                                                               
    008880         gs_roid-row_id = rs_row-index * -1.                          
    008890       endif.                                                         
    008900       gs_roid-sub_row_id = rs_row-rowtype+7(10).                     
    008910       gs_poid-row_id = gs_roid-row_id.                               
    008920       gs_poid-sub_row_id = gs_roid-sub_row_id.                       
    008930       gs_poid-rowtype    = rs_row-rowtype.                           
    008940       gs_poid-index      = rs_row-index.                             
    008950       insert gs_poid into table rt_poid.  
    008960     endif.                                                               
    008970     append gs_roid to rt_roid.                                           
    008980                                                                          
    008990     loop at rt_fieldcat assigning <ls_fieldcat> where tech ne 'X' and    
    009000                                                       no_out ne 'X'.     
    009010                                                                          
    009020       if gflg_invisible = 'X'.                                           
    009030         if <ls_fieldcat>-do_sum is initial.                              
    009040           clear gflg_invisible.                                          
    009050           continue.                                                      
    009060         else.                                                            
    009070           clear g_col_counter.                                           
    009080           clear gflg_invisible.                                          
    009090         endif.                                                           
    009100       endif.                                                             
    009110                                                                          
    009120       clear gs_lvc_data.                                                 
    009130       clear g_style.                                                     
    009140                                                                          
    009150       assign component                                                   
    009160              <ls_fieldcat>-fieldname of structure rt_data to <g_field>.  
    009170       if sy-subrc ne 0.                                                  
         >         message x000(0k).                                                
    009190       endif.                                                             
    009200                                                                          
    009210       g_col_counter = g_col_counter + 1.                                 
    009220                                                                          
    009230       gs_lvc_data-row_pos = r_row_counter.                               
    009240       gs_lvc_data-col_pos = g_col_counter.                               
    009250       gs_lvc_data-row_id  = gs_roid-row_id.                              
    009260       gs_lvc_data-sub_row_id = gs_roid-sub_row_id.                       
    009270                                                                          
    009280   *   Endtotal and average                                               
    009290       if rs_row-rowtype(1) ca 'T' and <ls_fieldcat>-do_sum = 'C'.        
    009300   *     save the actual grouplevel information                    
    009310         gs_grouplevels = rs_grouplevels.                          
    009320         clear g_lines.                                            
    009330                                                                   
    009340   *     get number of lines of the collect table                  
    009350         describe table rt_data lines g_lines.                     
    009360   *     if there is only one line or the field has no references so
    009370   *     that only the first line has to be considered                                                                               
    Thanks,
    fractal
    null

  • Short Dump While Changing reservation line using BAPI_ALM_ORDER_MAINTAIN

    Hello!
    I have a problem changing the reservation line using BAPI_ALM_ORDER_MAINTAIN. I am very sure that I am passing all correct parameters in BAPI. It gives short dump with type  MESSAGE_TYPE_X and main program "SAPLCOBC" or "LCOBCU02" and "READ_RESB_IND". at line
    Satz gefunden?
      IF sy-subrc <> 0.
        MESSAGE x901.                                               "n779835
      ENDIF.
    This dump comes only when I run my Transfers workbench for the first time, when I run it for the second time, it executes correctly and reservation line gets changed successfully.
    Does anyone have face such problem or have any ideas about how this can be solved??
    Please let me know if you need more information......

    Hi Km,
    Here is your answer:
    SAP Note 1269069 - BAPI_ALM_ORDER_MAINTAIN: Runtime error MESSAGE_TYPE_X
    https://websmp130.sap-ag.de/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=1269069
    Also henceforth Pls try to navigate through service market place if you find Issues with Standard SAP Program as somebody else might have faced the same and there must be solution readily available.
    Let me know if it helps.
    Regards
    Shital
    Edited by: shital phadake on Mar 23, 2009 6:59 PM

  • Dump for custom planning books in SDP94

    Hi,
            We are having a fresh SCM APO 5.0 installation. We used to get a dump whenbever the SDP 94 transaction  was executed. We found a SAP note 889989 and applied. Now the problem is it is dumping for any other planning book except the standard SAP delivered ones when the SDP94 transaction is executed. I found a note 498861 but does it help?
    Here is the dump:
    Runtime Errors         MESSAGE_TYPE_X
    Date and Time          10/10/2007 16:39:31
    Short text
         The current application triggered a termination with a short dump.
    What happened?
         The current application program detected a situation which really
         should not occur. Therefore, a termination with a short dump was
         triggered on purpose by the key word MESSAGE (type X).
    Error analysis
         Short text of error message:
         Control Framework : Error processing control
         Long text of error message:
          Diagnosis
              An error occurred when the system tried to process the commands
              from the Automation Queue on the presentation server.
              There are several possible reasons for this:
              - The installation of the SAP GUI on the presentation server is
              faulty or obsolete.
              - There is an error in the application program
              - There is an error in the SAPGUI or an integrated control
          Procedure
              1. Make sure that you have imported the appropriate Support
              Package, the current kernel, and GUI patch for the release of your
              system
              2. Check whether the error occurs locally on one or a few PCs, or
              generally on all PCs. Note whether the error only occurs for some
              users, for example because of a specific Customizing setting.
              If it only occurs locally, this suggests an installation problem
              with the PC. Check the installation; if necessary, reinstall thesoftware. In the dump, search for the SY-MSGLI field, since it may
    point to the cause of the error.
    3. Activate the Automation Trace (in accordance with SAP Note
    158985).
    4.Start the transaction and continue until the screen immediately
    before the dump.
    5. From the System -> Utilities menu, choose Autom. Queue,
    Synchronous Processing.
    The status bar of the GUI displays the text:
       "Automation synchron flush mode on"
    6. If you now proceed with the application, the short dump will
    display the ABAP call that caused the error; the Automation Trace
    will contain the error on the presentation server.
    7. If necessary, load the short dump and trace files on to
    sapservX, so that SAP can analyze them.
    Trigger Location of Runtime Error
        Program                                 SAPLOLEA
        Include                                 LOLEAU02
        Row                                     29
        Module type                             (FUNCTION)
        Module Name                             AC_SYSTEM_FLUSH
             Can any one suggest me a solution please?
    Thanks.

    hi Raj,
    this normally happens for all the new installations when opening the planning books with tcode /SAPAPO/SDP94. every new installation gives different dump with the above tcode. the best option is to contact the SAP team.
    regards,

  • MESSAGE_TYPE_X   - In PR5

    All,
    I am done some code changes in Program ZEX_SAPLXRSA related to structure ZAMC11VA0ITM ,And field has been added in DS-2LIS_11_VAITM.
    All chnages transported to Production System,setup tables filling done and pulled data to ODS.
    In daily loads before starting loads in R/3 2LIS-02,03,11,13 V3 Jobs could be running , but today 2LIS 11 R/3 job cancelled due to shoort dump ( MESSAGE_TYPE_X ) in PR5 System.
    Once this 2LIS 11 R/3 Job is in finished status only i can pull the data to BW,All my daily loads dependent on 2LIS 11(SALES Data) PLease suggest.
    How could i resolve the dump(MESSAGE_TYPE_X   ) in PR5 to success the 2LIS 11 R/3 Job.
    Please suggest ASAP.

    Hi ,
    Can you please paste the dump here?
    MESSAGE_TYPE_X is a generic dump and it occurs for a variety of reasons.
    Regards,
    SK

  • MESSAGE_TYPE_X error

    Hello all,
    We are facing an issue, that "Message_type_X " short dump occurs .
    the actual short dump message is:
    "MESSAGE_TYPE_X" " "                                                                          |
    "CL_RSQ_ISET_SERVICE===========CP" or "CL_RSQ_ISET_SERVICE===========CM016"
    "EXTEND_FIELD_BUFFER"     .
    kindly help me..
    |

    hi,
    kindly check SAP Note 1137254 , it might be helpfult to you
    also check in sm21 about system log, in ST22 check on information on where termiinated and in error analysis that will give you some clue on job which is effected
    regards
    laksh

  • APD: dump GETWA_NOT_ASSIGNED

    When I try to display the data of a query as a source in the Analysis Process Designer (APD) in RSANWB, the dump GETWA_NOT_ASSIGNED occurs in the method CL_RSCRMBW_BAPI=>GET_KYF_DETAILS_BAPI as an error. Could anybody help me? Please give me your thoughts about it.

    Hi Tatsiana,
    You should check if the note 1408037 would solve the problem.
    Best Regards,
    Vincent

  • Short Dump 'ASSERTION_FAILED' during updating partner Functions

    Hi All,
    I am updating the Partner Functions for the Customers using FM 'SD_CUSTOMER_MAINTAIN_ALL' and passing the partner functions and numbers to the XKNVP structure.
    while running the program in am getting the short dump as ASSERTION_FAILED.
    Detailed Description:
    In the running application program, the ASSERT statement recognized a situation that should not have occurred.
    The runtime error was triggered for one of these reasons:
    - For the checkpoint group specified with the ASSERT statement, the   activation mode is set to "abort".
    - Via a system variant, the activation mode is globally set to "abort" for checkpoint groups in this system.
    - The activation mode is set to "abort" on program level.
    - The ASSERT statement is not assigned to any checkpoint group.
    The Dump is occuring in the method 'get_cvic_cust_to_bp1_line'.
    We have searched for a relevant SAP note but could not find any.
    can any one please help to solve this issue?
    Helpful answer will surely be rewarded.
    Thanks in Advance,
    Asif Ali Khan

    When you are (absolutely) sure you are using this function module in the correct way, only then opening a message for SAP is liable. However, most of the times this happens because not all (or all) parameters are not provided for the FM to work properly, or what ever reason that may be.
    It might be helpful to determine the checkpoint group and have a look at the log in transaction SAAB. This might give you a clue as to where the problems lies.

  • Dump after new Parameter in WD Application

    Hi,
    After adding a new parameter to a WebDynpro Application it dumps as the parameter is not sent with an initial value in case it is not provided in the URL.
    First I added the new parameter to the inbound plug handler (set to "Startup") parameters. After that I could add it using the F4 help in the parameter tab of the application.
    When executing in the test system everything works fine! But after transporting it to the q system, it dumps in a generated check method before the plug handler, as the passed parameter list (from application) does not contain an initial value for the new parameter (for which a check was generated correctly).
    My guess is that something goes wrong in the generation of the WD application. But as this happens again and again after new transports, I do not know how to tackle this...
    Does anyone know how this is caused and most important how I can repair it??
    Kind Regards
    Robert

    Hi,
    Found a solution myself:
    Setting the parameter to "optional" in the inbound plug handler did the trick.
    As all other parameters (like over 10) do not need that flag to work without a value from the URL, I do not think this is the master solution. But it nevertheless works!
    Kind Regards
    Robert

Maybe you are looking for

  • When i serch for something the headings come up but when i click on the link it takes me to a different site to the linkn i clicked??

    When i serch for a term on Firefoxthe page comes up with all the relevant serch items but when i click on one of them it takes me to a completely different web page to that on the serched items. So the only way i can find is to cut and paste the link

  • Windows 8 will not recognize iPhone 5 USB

    I just bought a new computer and went to setup itunes, My ipad synced well but iphone 5 will not get recognized in windows 8, can anyone who has overcame this help please Thank you all

  • Replace swatches and text?

    Is it possible (with javascript code) to do the following? 1.  Prompt user to select a color from a predetermined set of colors (hard coded in the script) via a dropdown list 2.   Take the value that the user selects, and replace the color of all  it

  • Won't display popup needed for download

    I accidentally deleted adobe flash player 9, thinking I didn't need it since I had version 10 and now youtube is saying I need an up-to-date version.  I'm not sure if my deleted that is the reason it won't work but I went to the adobe website to inst

  • The Loupe Tool feature of Adobe Pro X does not work

    When working properly the area within the blue box should be magnified.  The magnification of the designated area should appear off to the side.  This is not happening.  The blue box is visible but no magnification.