Want to add new ICON to PPOME transaction plz suggest the procedure

Hi friends,
In my requriement, I want to add one ICON to PPOME transaction, in Basic Data tab section. I want some user action also to be performed.
Please suggest me how to tackle this issue.
Thanks in advance,
Phani Shankar.K

Please check Hararkey frame work in IMG
SPRO> Personnel Administration> Organizational Management>harrekey frame work.

Similar Messages

  • Want to add new field in QA32/QA11 transaction under inspection lot stock

    Dear Experts,
    I want to add new field in QA32 transaction under inspection lot stock tab or under characteristic tab.
    The reason behind is: Depends upon UD decision i want to assing customer name. So already we are having one Z Report for all the lots against this lot we have to display customer name.
    So in order to fetch customer name in the Z report we want to assing customer through F4 selection in the usage decision  screen.
    I know this is possibe for Make to order scenario, but our senario is make to stock.
    Please advice your valuable inputs.
    Regards.

    Hi Sujit,
    Can you please elaborate it,coz i'm using the same but if i place the break-point in PBO of sub screen,the break-point won't be triggered.and is there any additional step to get the data from function group? if yes, please explain me indetail.
    If possible please provide the sample code for this.
    Thanks Inadvance.
    Madan
    Edited by: Madan.ngt on Mar 3, 2011 7:16 AM
    Edited by: Madan.ngt on Mar 3, 2011 7:17 AM

  • Add new ICON on ME22N

    Hi All,
    Anyone know how to add NEW ICON on the input screen at the following location:
    /nME22N
    -> select one Purchase Order for Services
    -> select one Item Line
    -> at "Services" tab on Item Details Level
    -> Add new ICON behind "Serv. selection"
    Please help!!
    Thanks and Best Regards,
    Neil

    Hi,
    Please check this sample program to find BADI and enhancement for a given transaction code. You just need to create a custom program in your system by cut and paste below codes.
    REPORT ZTEST.
    TABLES: TSTC,
    TADIR,
    MODSAPT,
    MODACT,
    TRDIR,
    TFDIR,
    ENLFDIR,
    SXS_ATTRT ,
    TSTCT.
    DATA: JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
    DATA: FIELD1(30).
    DATA: V_DEVCLASS LIKE TADIR-DEVCLASS.
    PARAMETERS: P_TCODE LIKE TSTC-TCODE,
    P_PGMNA LIKE TSTC-PGMNA .
    DATA: WA_TADIR TYPE TADIR.
    START-OF-SELECTION.
    IF NOT P_TCODE IS INITIAL.
    SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
    ELSEIF NOT P_PGMNA IS INITIAL.
    TSTC-PGMNA = P_PGMNA.
    ENDIF.
    IF SY-SUBRC EQ 0.
    SELECT SINGLE * FROM TADIR
    WHERE PGMID = 'R3TR'
    AND OBJECT = 'PROG'
    AND OBJ_NAME = TSTC-PGMNA.
    MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
    IF SY-SUBRC NE 0.
    SELECT SINGLE * FROM TRDIR
    WHERE NAME = TSTC-PGMNA.
    IF TRDIR-SUBC EQ 'F'.
    SELECT SINGLE * FROM TFDIR
    WHERE PNAME = TSTC-PGMNA.
    SELECT SINGLE * FROM ENLFDIR
    WHERE FUNCNAME = TFDIR-FUNCNAME.
    SELECT SINGLE * FROM TADIR
    WHERE PGMID = 'R3TR'
    AND OBJECT = 'FUGR'
    AND OBJ_NAME EQ ENLFDIR-AREA.
    MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
    ENDIF.
    ENDIF.
    SELECT * FROM TADIR INTO TABLE JTAB
    WHERE PGMID = 'R3TR'
    AND OBJECT in ('SMOD', 'SXSD')
    AND DEVCLASS = V_DEVCLASS.
    SELECT SINGLE * FROM TSTCT
    WHERE SPRSL EQ SY-LANGU
    AND TCODE EQ P_TCODE.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19) 'Transaction Code - ',
    20(20) P_TCODE,
    45(50) TSTCT-TTEXT.
    SKIP.
    IF NOT JTAB[] IS INITIAL.
    WRITE:/(105) SY-ULINE.
    FORMAT COLOR COL_HEADING INTENSIFIED ON.
    * Sorting the internal Table
    sort jtab by OBJECT.
    data : wf_txt(60) type c,
    wf_smod type i ,
    wf_badi type i ,
    wf_object2(30) type C.
    clear : wf_smod, wf_badi , wf_object2.
    * Get the total SMOD.
    LOOP AT JTAB into wa_tadir.
    at first.
    FORMAT COLOR COL_HEADING INTENSIFIED ON.
    WRITE:/1 SY-VLINE,
    2 'Enhancement/ Business Add-in',
    41 SY-VLINE ,
    42 'Description',
    105 SY-VLINE.
    WRITE:/(105) SY-ULINE.
    endat.
    clear wf_txt.
    at new object.
    if wa_tadir-object = 'SMOD'.
    wf_object2 = 'Enhancement' .
    elseif wa_tadir-object = 'SXSD'.
    wf_object2 = ' Business Add-in'.
    endif.
    FORMAT COLOR COL_GROUP INTENSIFIED ON.
    WRITE:/1 SY-VLINE,
    2 wf_object2,
    105 SY-VLINE.
    endat.
    case wa_tadir-object.
    when 'SMOD'.
    wf_smod = wf_smod + 1.
    SELECT SINGLE MODTEXT into wf_txt
    FROM MODSAPT
    WHERE SPRSL = SY-LANGU
    AND NAME = wa_tadir-OBJ_NAME.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    when 'SXSD'.
    * For BADis
    wf_badi = wf_badi + 1 .
    select single TEXT into wf_txt
    from SXS_ATTRT
    where sprsl = sy-langu
    and EXIT_NAME = wa_tadir-OBJ_NAME.
    FORMAT COLOR COL_NORMAL INTENSIFIED ON.
    endcase.
    WRITE:/1 SY-VLINE,
    2 wa_tadir-OBJ_NAME hotspot on,
    41 SY-VLINE ,
    42 wf_txt,
    105 SY-VLINE.
    AT END OF object.
    write : /(105) sy-ULINE.
    ENDAT.
    ENDLOOP.
    WRITE:/(105) SY-ULINE.
    SKIP.
    FORMAT COLOR COL_TOTAL INTENSIFIED ON.
    WRITE:/ 'No.of Exits:' , wf_smod.
    WRITE:/ 'No.of BADis:' , wf_badi.
    ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(105) 'No userexits or BADis exist'.
    ENDIF.
    ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(105) 'Transaction does not exist'.
    ENDIF.
    AT LINE-SELECTION.
    data : wf_object type tadir-object.
    clear wf_object.
    GET CURSOR FIELD FIELD1.
    CHECK FIELD1(8) EQ 'WA_TADIR'.
    read table jtab with key obj_name = sy-lisel+1(20).
    move jtab-object to wf_object.
    case wf_object.
    when 'SMOD'.
    SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
    CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
    when 'SXSD'.
    SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).
    CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
    ENDCASE.
    To learn a BADI the best place are:
    http://help.sap.com/saphelp_nw04/helpdata/en/c8/19756543b111d1896f0000e8322d00/frameset.htm
    http://help.sap.com/saphelp_nw04/helpdata/en/9d/12233a0edd7978e10000000a11402f/frameset.htm
    /people/sergey.korolev/blog/2005/03/14/the-time-for-me-to-have-a-badi-of-my-own
    BADI comprises of 2 parts:
    First is definition which you do in SE18.
    Then comes the implemantion where you will write your custom code in SE19.
    Try to go through the link, you will get enough info to proceed .
    Also check this example ...
    First you need to implement the 2 BADIs in SE19.
    The BADI ME_GUI_PO_CUST is responsible for Screen display and data exchange b/n db and the screen.
    The second BADI ME_PROCESS_PO_CUST is responsible for PO upadate.
    To get the screen in the Transaction you need to code in the method SUBSCRIBE of the first BADI.
    Example:
    ls_subscriber-name = subscreen4.
    ls_subscriber-dynpro = 0700.
    ls_subscriber-program = prog_name.
    ls_subscriber-struct_name = structure.
    ls_subscriber-label = TEST.
    ls_subscriber-position = 4.
    ls_subscriber-height = 6.
    ls_subscriber-height = 8.
    append ls_subscriber to re_subscribers.
    clear ls_subscriber.
    Regards,
    Ferry Lianto

  • I want to add new field to this list

    hi all,
    i want to add new field to this list.
    kostenstelle from table zfmkstel
    *& Report  ZFM_MOBLIST                                                 *
    REPORT  ZFM_MOBLIST.
    TABLES: zfm_handy , pa0002.
    TYPE-POOLS : slis.
    DATA: g_repid LIKE sy-repid,
          gs_print            TYPE slis_print_alv,
          gt_list_top_of_page TYPE slis_t_listheader,
          gt_list_end_of_page TYPE slis_t_listheader,
          gt_events           TYPE slis_t_event,
          gt_sort             TYPE slis_t_sortinfo_alv,
          gs_layout           TYPE slis_layout_alv,
          gt_fieldcat         TYPE slis_t_fieldcat_alv,
          fieldcat_ln LIKE LINE OF gt_fieldcat,
          col_pos TYPE i.
    *DATA : BEGIN OF it_moblist OCCURS 0.
           INCLUDE STRUCTURE zfm_handy.
    *DATA :  nachn  TYPE  pa0002-nachn,     
           vorna TYPE  pa0002-vorna,
         END OF it_moblist.
    DATA : BEGIN OF IT_MOBLIST OCCURS 0,
           TELNUM TYPE ZFM_HANDY-TELNUM,
           KARTNR TYPE ZFM_HANDY-KARTNR,
           ZUTART TYPE ZFM_HANDY-ZUTART,
           PERNR TYPE ZFM_HANDY-PERNR,
           nachn  TYPE pa0002-nachn,
           VORNA TYPE pa0002-vorna,
           ZDATE TYPE ZFM_HANDY-ZDATE,
           PINNR TYPE ZFM_HANDY-PINNR,
           PUKNR TYPE ZFM_HANDY-PUKNR,
           TARIF1 TYPE ZFM_HANDY-TARIF1,
           TARIF2 TYPE ZFM_HANDY-TARIF2,
           TARIF3 TYPE ZFM_HANDY-TARIF3,
           GTYPE TYPE ZFM_HANDY-GTYPE,
           IMEI TYPE ZFM_HANDY-TARIF1,
            twincard type zfm_handy-twincard,
            twinbill type zfm_handy-twinbill,
            einbau type zfm_handy-einbau,
            beschr type zfm_handy-beschr,
            text1 type zfm_handy-text1,
             text2 type zfm_handy-text2,
              text3 type zfm_handy-text3,
              end of it_moblist.
    DATA : BEGIN OF IT_zfm_handy OCCURS 0,
         TELNUM TYPE ZFM_HANDY-TELNUM,
         KARTNR TYPE ZFM_HANDY-KARTNR,
         ZUTART TYPE ZFM_HANDY-ZUTART,
         PERNR TYPE ZFM_HANDY-PERNR,
         ZDATE TYPE ZFM_HANDY-ZDATE,
         PINNR TYPE ZFM_HANDY-PINNR,
         PUKNR TYPE ZFM_HANDY-PUKNR,
         TARIF1 TYPE ZFM_HANDY-TARIF1,
         TARIF2 TYPE ZFM_HANDY-TARIF2,
         TARIF3 TYPE ZFM_HANDY-TARIF3,
         GTYPE TYPE ZFM_HANDY-GTYPE,
         IMEI TYPE ZFM_HANDY-TARIF1,
          twincard type zfm_handy-twincard,
          twinbill type zfm_handy-twinbill,
          einbau type zfm_handy-einbau,
          beschr type zfm_handy-beschr,
          text1 type zfm_handy-text1,
           text2 type zfm_handy-text2,
            text3 type zfm_handy-text3,
            end of it_zfm_handy.
    *DATA : BEGIN OF it_zfm_handy OCCURS 0.
           INCLUDE STRUCTURE zfm_handy.
    *DATA END OF it_zfm_handy.
    DATA : BEGIN OF it_pa0002 OCCURS 0,
            pernr TYPE pa0002-pernr,
            nachn   TYPE pa0002-nachn,     
           vorna     TYPE pa0002-vorna,
           pernr TYPE pa0002-pernr,
           END OF it_pa0002.
    INITIALIZATION.
      g_repid = sy-repid.
      PERFORM print_build USING gs_print.      "Print PARAMETERS
    START-OF-SELECTION.
      PERFORM data_selection.
      PERFORM build_fieldcat.
      PERFORM eventtab_build CHANGING gt_events.
      PERFORM comment_build  CHANGING gt_list_top_of_page.
      PERFORM call_alv.
    *&      Form  TOP_OF_PAGE
    FORM top_of_page.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
        EXPORTING
          it_list_commentary = gt_list_top_of_page.
      WRITE: sy-datum, 'Page No', sy-pagno RIGHT-JUSTIFIED.
    ENDFORM.                    "TOP_OF_PAGE
    *&      Form  END_OF_PAGE
    FORM end_of_page.
      WRITE: /.
      WRITE AT (sy-linsz) sy-pagno CENTERED.
    ENDFORM.                    "END_OF_PAGE
    ### PRINT SETTINGS
    FORM print_build USING ls_print TYPE slis_print_alv.
      ls_print-print              = ' '. "PRINT IMMEDIATE
      ls_print-no_print_selinfos  = 'X'. "NO SELECTION INFO
      ls_print-no_coverpage       = ' '. "NO COVER PAGE
      ls_print-no_new_page        = ' '. "NO NEW PAGE
      ls_print-no_print_listinfos = 'X'. "NO PRINT LIST INFO
      ls_print-reserve_lines      = 2.   " FOOTERLINE
    ENDFORM.                    "PRINT_BUILD
    *&      Form  data_selection
          text
    -->  p1        text
    <--  p2        text
    FORM  data_selection .
      data : n(8) type n.
      SELECT * FROM
                 zfm_handy
           INTO CORRESPONDING FIELDS OF TABLE it_zfm_handy where pernr ne space.
      IF NOT it_zfm_handy[] IS INITIAL.
        loop at it_zfm_handy.
          n = it_zfm_handy-pernr.
          it_zfm_handy-pernr = n.
          modify it_zfm_handy.
        endloop.
        SELECT  pernr  nachn        
               vorna     
         FROM  pa0002
         INTO TABLE it_pa0002
         FOR ALL ENTRIES IN it_zfm_handy
         WHERE pernr = it_zfm_handy-pernr and endda = '99991231'.
       SELECT  pernr  nachn        
              vorna     
        FROM  pa0002
        INTO TABLE it_pa0002
        FOR ALL ENTRIES IN it_zfm_handy
        WHERE pernr = it_zfm_handy-pernr and begda le sy-datum and endda ge sy-datum.
      ENDIF.                              " not it_zfm_handy
      LOOP AT it_zfm_handy.
        MOVE-CORRESPONDING  it_zfm_handy TO it_moblist.
        clear it_pa0002.
        READ TABLE it_pa0002  WITH KEY pernr = it_zfm_handy-pernr.
        if sy-subrc = 0.
          move it_pa0002-nachn to it_moblist-nachn.
          move it_pa0002-vorna to it_moblist-vorna.
          move it_pa0002-pernr to it_moblist-pernr.
        ENDIF.
        APPEND  it_moblist.
        CLEAR   it_moblist.
    *endif.
      ENDLOOP.
    ENDFORM.                    " data_selection
    *&      Form  BUILD
          text
    -->  p1        text
    <--  p2        text
    FORM build_fieldcat .
    Explain Field Description to ALV
      DATA: fieldcat_in TYPE slis_fieldcat_alv.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname = 'TELNUM'.
      fieldcat_ln-tabname   = 'IT_MOBLIST'.
      fieldcat_ln-no_out    = ' '.
      fieldcat_ln-seltext_l = 'TELNUM'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname = 'KARTNR'.
      fieldcat_ln-tabname   = 'IT_MOBLIST'.
      fieldcat_ln-no_out    = ' '.
      fieldcat_ln-seltext_l = 'KARTNR'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname = 'ZUTART'.
      fieldcat_ln-tabname   = 'IT_MOBLIST'.
      fieldcat_ln-no_out    = ' '.
      fieldcat_ln-seltext_l = 'ZUTART'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'PERNR'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'PERNR'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'NACHN'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l =  'NACHN'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'VORNA'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'VORNA'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'ZDATE'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'ZDATE'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'PINNR'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'PINNR'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'PUKNR'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'PUKNR'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TARIF1'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TARIF1'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TARIF2'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TARIF2'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TARIF3'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TARIF3'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'GTYPE'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'GTYPE'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'IMEI'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'IMEI'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TWINCARD'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TWINCARD'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TWINBILL'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TWINBILL'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'EINBAU'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'EINBAU'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'BESCHR'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'BESCHR'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TEXT1'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TEXT1'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TEXT2'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TEXT2'.
      APPEND fieldcat_ln TO gt_fieldcat.
      CLEAR fieldcat_in.
      fieldcat_ln-fieldname     = 'TEXT3'.
      fieldcat_ln-tabname       = 'IT_MOBLIST'.
      fieldcat_ln-no_out        = ' '.
      fieldcat_ln-seltext_l = 'TEXT3'.
      APPEND fieldcat_ln TO gt_fieldcat.
    DATA SORTING
      DATA: gs_sort TYPE slis_sortinfo_alv.
      CLEAR gs_sort.
      gs_sort-fieldname = 'TELNUM'.
      gs_sort-spos      = 1.
      gs_sort-up        = 'X'.
    GS_SORT-SUBTOT    = 'X'.
      APPEND gs_sort TO gt_sort.
    CLEAR GS_SORT.
    GS_SORT-FIELDNAME = 'KARTNR'.
    GS_SORT-SPOS      = 2.
    GS_SORT-UP        = 'X'.
    *GS_SORT-SUBTOT    = 'X'.
      APPEND gs_sort TO gt_sort.
    ENDFORM.                    " BUILD
    *&      Form  EVENTTAB_BUILD
          text
         <--P_GT_EVENTS  text
    FORM eventtab_build  CHANGING lt_events TYPE slis_t_event.
      CONSTANTS:
    gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
    gc_formname_end_of_page TYPE slis_formname VALUE 'END_OF_PAGE'.
      DATA: ls_event TYPE slis_alv_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
        EXPORTING
          i_list_type = 0
        IMPORTING
          et_events   = lt_events.
      READ TABLE lt_events WITH KEY name =  slis_ev_top_of_page
                               INTO ls_event.
      IF sy-subrc = 0.
        MOVE gc_formname_top_of_page TO ls_event-form.
        APPEND ls_event TO lt_events.
      ENDIF.
    define END_OF_PAGE event
      READ TABLE lt_events WITH KEY name =  slis_ev_end_of_page
                               INTO ls_event.
      IF sy-subrc = 0.
        MOVE gc_formname_end_of_page TO ls_event-form.
        APPEND ls_event TO lt_events.
      ENDIF.
    ENDFORM.                    " EVENTTAB_BUILD
    *&      Form  COMMENT_BUILD
          text
         <--P_GT_LIST_TOP_OF_PAGE  text
    FORM comment_build  CHANGING gt_top_of_page TYPE slis_t_listheader.
      DATA: gs_line TYPE slis_listheader.
      DATA: today_date(10) TYPE c.
      CONCATENATE
      sy-datum+6(2) '.'
      sy-datum+4(2) '.'
      sy-datum(4) INTO today_date.
      CLEAR gs_line.
      gs_line-typ  = 'H'.
      gs_line-info = 'MOBLIST DETAILS'.
      APPEND gs_line TO gt_top_of_page.
      CLEAR gs_line.
      gs_line-typ  = 'S'.
      gs_line-key  = 'Date:'.
      gs_line-info = today_date.
      APPEND gs_line TO gt_top_of_page.
    GS_LINE-KEY  = 'User:'.
    GS_LINE-INFO = sy-uname.
      APPEND gs_line TO gt_top_of_page.
      CLEAR gs_line.
      gs_line-typ  = 'A'.
      gs_line-info = 'ACTION'.
      APPEND gs_line TO  gt_top_of_page.
    ENDFORM.                    " COMMENT_BUILD
    *&      Form  CALL_ALV
          text
    -->  p1        text
    <--  p2        text
    FORM call_alv .
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
       i_callback_program = g_repid
    I_CALLBACK_PF_STATUS_SET = ' '
    I_CALLBACK_USER_COMMAND = ' '
       is_layout =  gs_layout
       it_fieldcat = gt_fieldcat
         it_sort = gt_sort
         it_events = gt_events
         is_print = gs_print
       TABLES
         t_outtab = IT_MOBLIST
       EXCEPTIONS
         program_error = 1
       OTHERS = 2.
    ENDFORM.                    "CALL_ALV.

    Hi,
    add:
    1) to IT_MOBLIST
    text3 type zfm_handy-text3,
    kostl type csks-kostl,
    end of it_moblist.
    2)...
    CLEAR fieldcat_in.
    fieldcat_ln-fieldname = 'KOSTL'.
    fieldcat_ln-tabname = 'IT_MOBLIST'.
    fieldcat_ln-no_out = ' '.
    fieldcat_ln-seltext_l = 'KOSTL'.
    APPEND fieldcat_ln TO gt_fieldcat.

  • I want to add new songs to my ipod.  When I set it up with itunes years ago I had a different computer that I no longer have.  Now it will not let me add new songs to my ipod shuffle without erasing everything that is already on it.  Help!!!

    I want to add new songs to my ipod.  When I set it up with itunes years ago I had a different computer that I no longer have.  Now it will not let me add new songs to my ipod shuffle without erasing everything that is already on it.  Help!!!  Is there any way around this?

    Yes, I was aware of this but the phrase "Any items imported from audio CDs or acquired from other sources will not copy from your device to the iTunes library." is what worries me.  Will this eliminate my Notes, Calendar Events, etc or will it apply mostly just to the music?

  • How to add new tab screen in transaction BP

    Hi,
       Please let me know How to add new tab screen in transaction ukm_BP. Is there any SPRO configuration needed for this?
    Thanks,
    Debi.

    Hi,
    You may also try the exits available with the MIGO transaction. To find exits you can use the fillowing code by giving tranasaction code as input.
    REPORT  zrmexitfinder                               .
    TABLES: modsap, modact, tstc.
    PARAMETERS: input1 LIKE tstc-tcode DEFAULT ' ',
                input2 LIKE modsap-typ DEFAULT ' '.
    DATA: search1(6),
          search2(3),
          search3 LIKE modsap-member.
    DATA : first_row VALUE 'Y'.
    CONCATENATE: '%' input1 '%' INTO search1,
    '%' input2 INTO search2.
    SELECT * FROM tstc WHERE tcode LIKE search1.
      first_row = 'Y'.
      CHECK tstc-pgmna NE space.
      CONCATENATE '%' tstc-pgmna '%' INTO search3.
      SELECT * FROM modsap WHERE typ LIKE search2
      AND member LIKE search3.
        SELECT SINGLE * FROM modact WHERE member = modsap-name.
        IF first_row EQ 'Y'.
          WRITE: /0 tstc-tcode, 6 tstc-pgmna, 16 modsap-name, 32 modsap-typ,
                 45 modsap-member, 70 modact-name.
          first_row = 'N'.
        ELSE.
          WRITE: /16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name.
        ENDIF.
        CLEAR : modsap, modact.
      ENDSELECT.
      IF sy-subrc NE 0.
        WRITE : /0 tstc-tcode, 6 tstc-pgmna, 30 'No exits found'.
      ENDIF.
      CLEAR tstc.
    ENDSELECT.
    END-OF-SELECTION.
      CLEAR: search1, search2, search3.
    Regards,
    Renjith Michael.

  • Want to add new songs

    i want to add new songs cuz i just dl some.... but iono how to add it without syning it
    iono   Windows XP  

    Well, giving us a little more info would've helped!
    How do you currently have the iPod set to transfer songs, is it auto sync or manual?
    Do you keep all your songs stored in your iTunes library after transferring them to the iPod?

  • When I connect my iPod to my computer the AutoPlay window opens up and it doesn't give me the option of choosing iTunes. I want to add more music but all it gives me the option to do it put pictures my computer.

    Hi, for some reason I can't add more music to my iPod and it doesn't give me the choice of choosing iTunes to show my iPod. I want to add more music but all it gives me the option to do it put pictures my computer. I really need help and I have no clue what to do. Please help me

    Try using RecBoot to kick it out of recovery mode. If that does not work, try a manual install, as outlined in link below. If it STILL keeps entering recovery mode, you most likely need a new logic board.
    Basic troubleshooting steps  
    17" 2.2GHz i7 Quad-Core MacBook Pro  8G RAM  750G HD + OCZ Vertex 3 SSD Boot HD 
    Got problems with your Apple iDevice-like iPhone, iPad or iPod touch? Try Troubleshooting 101

  • "Add New Tab" button does not exist in the Window -Customize Toolbar, and not on my Navigator toolbar. Where can I find one to put on my Navigator toolbar, please?

    I see "Add New Window" but..."Add New Tab" button does not exist in the Window -Customize Toolbar any longer, and not on my Navigator toolbar. Where can I find one to put on my Navigator toolbar, please?
    Thanks

    It's the "+" on the Tab bar. You can move it to the Navigation Toolbar if you prefer. When you start Customize, the + moves to the far right end of the Tab bar. You can drag it where you want (see attached image).
    Any luck?

  • Want to add a 2TB internal hard drive, any suggestions?

    Want to add a 2TB internal hard drive, any suggestions?

    Hi bgardnerG5, and a warm welcome to the forums!
    WD Caviar Black 2 TB Internal hard drive...
    http://tinyurl.com/2bywnvz
    A WD Caviar Bue would do also, but only has a 3 year warranty, the Black has a 5 year warranty.
    The "Green" drives aren't really suited for a Boot drive.

  • The mail app on my Mac laptop will not open.  This began happening after an upgrade during which "Security UPdate 2012-004" was installed.  My mail app has a new icon, and I think i trashed the old program (trying to follow directions).  Suggest a fix?

    The mail app on my Mac laptop will not open.  This began happening after an upgrade during which "Security UPdate 2012-004" was installed.  My mail app has a new icon, and I think i trashed the old program (trying to follow directions).  Suggest a fix?

    See possible fixes here.
    https://discussions.apple.com/message/19760703#19760703
    https://discussions.apple.com/thread/4311280?tstart=0

  • Mail app quits when opened after installing Mavericks. I reinstalled and still the same. I noticed the mail app icon has not changed to the new icon in Mavericks. Any suggestions?

    Mail app quits when opened after installing Mavericks. I reinstalled and still the same. I noticed the mail app icon has not changed to the new icon in Mavericks. Any suggestions?

    I also forgot to note that this problem also persists with the new iBooks application. I cannot get past the 'Get Started' screen or access the iBooks Store. Again, all top bar menus are unresponsive.
    DT

  • Why does Firefox, like others, feel it's so important that their updated browser have a "brand new look"? I don't want a "brand new look." I'm happy with the look as it is. So I will NEVER go to Firefox4.

    Why does Firefox, like others, feel it's so important that their updated browser have a "brand new look"? I don't want a "brand new look." I'm happy with the look as it is. So I will NEVER go to Firefox4.

    Firefox is highly customizable and you can customize Firefox 4 to look like Firefox 3.6, for details see http://www.computertechtips.net/64/make-firefox-4-look-like-ff-3-6

  • I had used Iphone4 to update to ios 7.0.4(11B554a) but after update whenever I want to create new contact, I can't type in the word because the keypad don't appear, what should I do? Can I uninstall the update of ios 7.0.4?

    I had used Iphone4 to update to ios 7.0.4(11B554a) but after update whenever I want to create new contact, I can't type in the word because the keypad don't appear, what should I do? Can I uninstall the update of ios 7.0.4?

    You cannot uninstall the update. Apple does not support downgrading. What troubleshooting have you done? Start with a reset. Hold the sleep/wake and home buttons together until you see the Apple logo and then release. The phone will reboot. Are you syncing contacts with iCloud?

  • I want to start Manufacturing Of Apple Products In India,Whats the procedure to start this?

    Hi Team,
    I want to start Manufacturing Of Apple Products In India,Whats the procedure to start this? as we all know growing market of india, if we start manufacturing of apple products in india,it will be very-very helpfull for growing apple industry.
    Sachin
    [email protected]

    Trying to justify not reading the Terms of Use simply proves that an individual is incapable of understanding the purposes of these forums.
    Also, if the individual has failed to read the Terms of Use, for what silly reason would Apple (or any company) want to do business with that individual?

Maybe you are looking for