Want to add OBTYP field in existing filtergroup in BD64

Hi Guru's,
I want to add OBTYP field in existing filtergroup in BD64 can any one help me in this regard.

Hi......
Check these links :
http://help.sap.com/saphelp_nw70/helpdata/EN/ae/d4712d2cad43ffb56f82733a560c3d/content.htm
http://help.sap.com/saphelp_nw04s/helpdata/en/01/3b15301edf48169f91ec2b5b0cbe2c/frameset.htm
It may help you.......
Regards,
Debjani.....

Similar Messages

  • 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.

  • Regarding rental object-I want to add some fields in output list?

    Hi,
    I am creating Ze program of transaction REISROOC.I want to add some fields in the output list .
    here logical database is used & for adding some fields i need to write Select query.
    how n where should i add this query?
    can anyone help me????
    Thanks,
    vaishali

    Solved
    Edited by: vaishali patil on Mar 2, 2009 1:32 PM

  • Want to add 2 fields in report ARXAGMW.rdf

    Hi,
    I want to add to fields in the report ARXAGMW.rdf.
    The fields are:
    - ps.trx_date transactiedatum, --transactiondate
    - ps.amount_due_original factuurbedrag, --transactionamount
    I changed the function below. I pasted not the whole code.
    But when i run the report i get the error:
    MSG-01001: after build_invoice_select
    ORA-01789: query block has incorrect number of result columns
    ==> select rpad ( 'a' , 50 , '-' ) cust_name_inv , rpad ( 'a' , 30 , '-' ) cust_no_inv , rpad ( 'a' , 4000 , '-' ) sort_field1_inv , rpad ( 'a' , 4000 , '-' ) sort_field2_inv , 0 inv_tid_inv , 0 contact_site_id_inv , rpad ( 'a' , 60 , '-' ) cust_state_i
    FUNCTION BUILD_INVOICE_SELECT
    RETURN LONG IS
    l_inv_sel LONG;
    l_inv_sel1 LONG;
    l_inv_sel2 LONG;
    l_inv_sel3 LONG;
    l_inv_sel4 LONG;
    l_inv_sel5 LONG;
    new_line VARCHAR2(10) := '
    BEGIN
    -- BUILD FIRST SELECT STATEMENT
    srw.message('1000','inside build_invoice_select');
    srw.message('1001','*** BUILDING SELECT #1 All outstanding transactions ***');
    l_inv_sel1 :=
    'select substrb(party.party_name,1,50) cust_name_inv,
    cust_acct.account_number cust_no_inv,';
    l_inv_sel1 := l_inv_sel1 || new_line;
    if (:p_rep_type = 'ARXAGS') then
    l_inv_sel1 := l_inv_sel1 || 'decode(upper(:p_in_sortoption),''CUSTOMER'',NULL,
    arpt_sql_func_util.get_org_trx_type_details(ps.cust_trx_type_id,ps.org_id))';
    elsif (:p_rep_type = 'ARXAGL') then
    l_inv_sel1 := l_inv_sel1 || 'col.name';
    elsif(:p_rep_type = 'ARXAGR') then
    l_inv_sel1 := l_inv_sel1 || 'sales.name';
    elsif(:p_rep_type = 'ARXAGF') then
    l_inv_sel1 := l_inv_sel1 || :lp_accounting_flexfield;
    end if;
    l_inv_sel1 := l_inv_sel1 ||
    ' sort_field1_inv,' || new_line;
    l_inv_sel1 := l_inv_sel1 ||
    'arpt_sql_func_util.get_org_trx_type_details(ps.cust_trx_type_id,ps.org_id) sort_field2_inv,' || new_line;
    if (:p_rep_type = 'ARXAGS') then
    l_inv_sel1 := l_inv_sel1 ||
    'decode(upper(:p_in_sortoption),''CUSTOMER'',-999,ps.cust_trx_type_id)';
    elsif (:p_rep_type = 'ARXAGL') then
    l_inv_sel1 := l_inv_sel1 || 'col.collector_id';
    elsif(:p_rep_type = 'ARXAGR') then
    l_inv_sel1 := l_inv_sel1 || 'nvl(sales.salesrep_id, -3)';
    elsif(:p_rep_type = 'ARXAGF') then
    l_inv_sel1 := l_inv_sel1 || 'c.code_combination_id';
    end if;
    l_inv_sel1 := l_inv_sel1 || ' inv_tid_inv, ';
    l_inv_sel1 := l_inv_sel1 ||
    ' site.site_use_id contact_site_id_inv,
    loc.state cust_state_inv,
    loc.city cust_city_inv,
    decode(:format_detailed,NULL,-1,acct_site.cust_acct_site_id) addr_id_inv,
    nvl(cust_acct.cust_account_id,-999) cust_id_inv,
    ps.payment_schedule_id payment_sched_id_inv,
    ps.class class_inv,
    ps.due_date due_date_inv,
    amt_due_remaining_inv,
    ps.trx_number invnum,
    ceil(to_date(:as_of_date) - ps.due_date) days_past_due,
    ps.amount_adjusted amount_adjusted_inv,
    ps.amount_applied amount_applied_inv,
    ps.amount_credited amount_credited_inv,
    ps.gl_date gl_date_inv,
         ps.trx_date transactiedatum,
         ps.amount_due_original factuurbedrag,
    decode(ps.invoice_currency_code, :functional_currency, NULL,
    decode(ps.exchange_rate, NULL, ''*'', NULL)) data_converted_inv,
    nvl(ps.exchange_rate, 1) ps_exchange_rate_inv, '
    l_inv_sel1 := l_inv_sel1 ||
    ' arpt_sql_func_util.bucket_function(:bucket_line_type_0,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_0,:bucket_days_to_0,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b0_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_1,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_1,:bucket_days_to_1,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b1_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_2,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_2,:bucket_days_to_2,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b2_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_3,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_3,:bucket_days_to_3,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b3_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_4,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_4,:bucket_days_to_4,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b4_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_5,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_5,:bucket_days_to_5,
    ps.due_date,:bucket_category,to_date(:as_of_date)) b5_inv,
    arpt_sql_func_util.bucket_function(:bucket_line_type_6,
    dh.amount_in_dispute,ps.amount_adjusted_pending,
    :bucket_days_from_6,:bucket_days_to_6,
    ps.due_date,:bucket_category,to_Date(:as_of_date)) b6_inv,';
    l_inv_sel1 := l_inv_sel1 || :lp_acct_flex_bal_seg || ' company_inv,';
    l_inv_sel1 := l_inv_sel1 || :lp_query_show_bill || ' cons_billing_number, ';
    l_inv_sel1 := l_inv_sel1 || ' arpt_sql_func_util.get_org_trx_type_details(ps.cust_trx_type_id,ps.org_id)'
    || ' invoice_type_inv ';
    IF upper(:p_mrcsobtype) = 'R' then
    l_inv_sel1 := l_inv_sel1 ||
    ' from hz_cust_accounts cust_acct,
    hz_parties party, ';
    /*Bug 3487101 : Incorporated the logic of COMP_AMT_DUE_REM_INVFORMULA() in the main query itself */
    l_inv_sel1 := l_inv_sel1 ||
    '(select a.customer_id,
    a.customer_site_use_id ,
    a.customer_trx_id,
    a.payment_schedule_id,
    a.class ,
    sum(a.primary_salesrep_id) primary_salesrep_id,
    a.due_date ,
    sum(a.amount_due_remaining) amt_due_remaining_inv,
    a.trx_number,
    a.amount_adjusted,
    a.amount_applied ,
    a.amount_credited ,
    a.amount_adjusted_pending,
    a.gl_date ,
              a.trx_date ,
    Where do i have to add to two fields?
    Regards,
    thijs

    This code is not formatted and therefore very hard to read. Please use the <pre></pre> tags to format code.
    Error: ORA-01789: query block has incorrect number of result columns
    Cause: You tried to execute a SELECT statement (probably a UNION or a UNION ALL), and all of the queries did not contain the same number of result columns.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               

  • 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

  • I want to add some fields in the report of FBL5N, Can anybody tell me how ?

    I want to add some fields in the report of FBL5N, Can anybody tell me how to do it?
    The fields are sales order, delivery, order quantity, net value and others.
    I can only find the shipment number in FI document.
    Thank you very much.

    Dear Jie,
    Billing document number can be displayed in customer line item display
    (FBL5N) and not in G/L line item display (FBL3N).
    The value of VBELN is saved in table BSEG. So, this means, you
    have to define the field BSEG-VBELN as a special field in table
    T021S. Then you can use it in FBL3N, because then the report looks
    directly in BSEG-VBELN.
    For further information,please read the SAP note 207436. You don't have to
    implement the coding corrections, if they are already in your system
    with the hotpackage. But it explains very detailed the system
    behaviour. The example in the note with field EBELN could be
    replicated on your field VBELN.
    About the MEINS field, please refer to 1-U_MEINS (bseg-meins field).
    The SAP note 215798 may also be helpful.
    Mauri

  • Add value field to existing/ productive operating concern

    Dear All,
    I need to create a new value field and add it to an existing operating concern, which is already in use (there is already transaction data in the live system).
    In my opinion I have to do the following steps:
    1. Create new value field (KEA6).
    2. Add value field to operating concern (KEA0).
    3. Activate operating concern (KEA0).
    4. Transport operating concern (KE3I).
    Is that strategy ok?
    Is it ok, to transport an operating concern, when the system is already "live" and there is transaction data in the system?
    Thanks for your answers,
    Regards,
    Michael

    Hi,
    first create new value field in KEA6. then take those new Value field in your operating concern Data Structure in t-code KEA0. Then generate the operating Concern.
    Regards,
    Sreekanth

  • REG: How to add new fields to existing Infospoke

    Hi All,
    We have an existing Infospoke, It has ODS as a Source and some fields are being pulled.
    But here is the scenario....
    I need some extra fields that are available in other ODS. How to add that fields ?
    By some research came to know that.. I need to lookup on the ODS and populate into existing Infospoke.How to add these fields to InfoSpoke using BAdi implementaion.
    Note: already BAdi is active in the infospoke.
    Please help me in this regard

    Hi Chase,
    As you mentioned that BADI is already implemented then I guess you should be able to extend the existing BADI itself.
    For doing lookup first you should know the key fields of source DSO then by using the existing field of Infospoke you will have to read data from DSO.
    DATA: it_data type standard table of 'DSO Name'.
    select Key1 key2 etc...
              Field1 Field2 Field3 Field4
              from DSO
              into table it_data
              for all entries of infospoke
             where key1 = infospoke1-key1
                         key2 = infospoke2-key2.
    This will give you all the required records from source DSO into internal table it_data. Now you using this table you can populate the original table of Infospoke.
    Regards,
    Durgesh.

  • I want to add new mac to existing wired and wireless network

    I have a imac 400mz connected (ethernet) to a network - CABLE Modem to Balkin 5.4 G Wire/Wireless router. I have 2 wintel machines hard wired, plus 1 via Motorola PCIMA wireless. I want to add either of the following new Apple products -
    mini mac or imac 17 - both have Airport extereme installed. OK how do I get the new apple on to the existing network.
    Please advise

    On the Mac - click on the Airport menu icon located near the right side of the MacOS menu bar at the top of the screen. A list of all in-range wireless networks will appear. Click on the name of your wireless network to connnect to it. If your wireless network is protected by WEP or WPA security, the Mac will prompt you to enter the key. That's it!

  • How can I add table fields with existing structure ?

    I like to add PSTLZ field to stucture KOMGG.Is it possible to add table field with the existind structure.If yes how can I do this?kindly help me on this.

    hi
    go to se11
    in change mode select the button append
    create new append which starts from Zpstlz in this komgg structure and add data element and domain to this field and activate with request number
    then in field catalogue this field should be visible ,here ends your append
    now it is ready to use in condition tables.
    reward if helps !!!!!

  • I want to add indesign to my existing cs5 web premium

    i bought cs5 web premium 3 years ago
    i want to add indesign to it also
    so how do i download cs5 indesign and have trial run and purchase it

    Hi aasamhussain,
    As suggested by Mylenium we do not sell CS5 anymore however you may download and run the trial for 30 days from here: http://www.adobe.com/downloads/other-downloads.html.
    Regards,
    Romit Sinha

  • Can we add new field to existing Sales Analysis by Item report?

    I would like to add sum total weight of all the items sold so far to the above system report?
    How could i do that please?
    Thanks.

    You need to have your own report. This system report is hard coded. You do not have option to add fields there.
    Thanks,
    Gordon

  • I want to add a field in po header

    hi,
    i am kishore. i have assignment. i have to add a customer field in purchase order header.
    pls provide any exit how i will write that code?
    K. Kishore

    Hi Narendran,
    I am not getting values in output for this programme.Can you plz suggest
    *& Report  YALV1                                                       *
    REPORT  YALV1                                   .
    type-pools: slis.
    tables: mara,makt.
    CONSTANTS: GC_FORMNAME_TOP_OF_PAGE(15) TYPE
               c VALUE 'TOP_OF_PAGE',
               GC_FORMNAME_USER_COMMAND TYPE
               SLIS_FORMNAME VALUE 'USER_COMMAND'.
    data :  toutdt     like  prps-post1,
            touttm     like  prps-post1.
    *INTERNAL TABLE DECLARATION.
    types: begin of itab_alv,
          matnr like mara-matnr,
          mbrsh like mara-mbrsh,
          mtart like mara-mtart,
          meins like mara-meins,
          end of itab_alv.
    DATA: itab TYPE STANDARD TABLE OF itab_alv INITIAL SIZE 0,
          itab1 TYPE itab_alv.
    types: begin of itab_alv1,
          matnr like makt-matnr,
          maktx like makt-maktx,
          spras like makt-spras,
          end of itab_alv1.
    *data: itab1 type itab_alv1.
    data: itab2 type standard table of itab_alv1 initial size 0,
          itab3 type itab_alv1.
    data: ok-code like sy-ucomm.
    data: gd_repid like sy-repid.
    *ALV-GRID DATA DECLARATION.
    data: fieldcatalog type slis_t_fieldcat_alv.
    DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
    FIELD CATALOG.
    *data: fieldcatalog1 type slis_fieldcat_alv.
    data: gd_layout type slis_layout_alv.
    LAYOUT DECLARATION.
    data: id_color type c.
    data: I_EVENTS type slis_t_event.
    data: wa_event type slis_alv_event.
    *data: ok-code like sy-ucomm.
    *ALV-GRID DATA DECLARATION.
    FIELD CATALOG.
    LAYOUT DECLARATION.
    *data: ls_sort type slis_sortinfo_alv.
    data: IT_SORT TYPE SLIS_T_SORTINFO_ALV.
    selection-screen: begin of block b1 with frame title new.
    select-options: s_matnr for mara-matnr.
    selection-screen: end of block b1.
    initialization.
    gd_repid = sy-repid.
    perform t_fieldcat.
    PERFORM EVENTTAB_BUILD USING I_EVENTS[].
    start-of-selection.
    perform data_selection.
    *PERFORM EVENTTAB_BUILD USING I_EVENTS[].
    PERFORM E04_COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
    *perform t_fieldcat.
    *perform t_fieldcat1.
    *perform sort_order.
    perform display.
    *CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME               = gd_repid
      I_INTERNAL_TABNAME           = 'ITAB'
      I_STRUCTURE_NAME             =
      I_CLIENT_NEVER_DISPLAY       = 'X'
      I_INCLNAME                   = gd_repid
      I_BYPASSING_BUFFER           =
      I_BUFFER_ACTIVE              =
    CHANGING
       CT_FIELDCAT                  = fieldcatalog.
    EXCEPTIONS
      INCONSISTENT_INTERFACE       = 1
      PROGRAM_ERROR                = 2
      OTHERS                       = 3
    *IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    *ENDIF.
    *perform data_selection.
    *&      Form  t_fieldcat
          text
    -->  p1        text
    <--  p2        text
    FORM t_fieldcat .
    data: fieldcatalog1 type slis_fieldcat_alv.
    fieldcatalog1-seltext_s = 'materialno'.
    fieldcatalog1-col_pos = 1.
    fieldcatalog1-FIELDNAME    = 'matnr'.
    fieldcatalog1-TABNAME      = 'ITAB'.
    fieldcatalog1-outputlen = 20.
    fieldcatalog1-do_sum = 'X'.
    fieldcatalog1-key = 'X'.                 "this field is not scroolable
    "and hideble
    fieldcatalog1-hotspot = 'X'.
    fieldcatalog1-emphasize   = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    fieldcatalog1-seltext_s = 'industry'.
    fieldcatalog1-col_pos = 2.
    fieldcatalog1-FIELDNAME    = 'mbrsh'.
    fieldcatalog1-TABNAME      = 'ITAB'.
    fieldcatalog1-outputlen = 4.
    fieldcatalog1-key = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    *append fieldcatalog1 to fieldcatalog.
    fieldcatalog1-seltext_s = 'type'.
    fieldcatalog1-col_pos = 3.
    fieldcatalog1-FIELDNAME    = 'mtart'.
    fieldcatalog1-TABNAME      = 'ITAB'.
    fieldcatalog1-outputlen = 6.
    fieldcatalog1-key = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    fieldcatalog1-seltext_s = 'Unit'.
    fieldcatalog1-col_pos = 4.
    fieldcatalog1-FIELDNAME    = 'meins'.
    fieldcatalog1-TABNAME      = 'ITAB'.
    fieldcatalog1-outputlen = 2.
    fieldcatalog1-key = 'X'.
    *fieldcatalog1-do_sum = 'X'.
    *fieldcatalog1-sp_group = 'A'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    append fieldcatalog1 to fieldcatalog.
    clear fieldcatalog1.
    ENDFORM.                    " t_fieldcat
    *&      Form  EVENTTAB_BUILD
          text
         -->P_I_EVENTS[]  text
    FORM EVENTTAB_BUILD  USING   T_EVENTS TYPE SLIS_T_EVENT.
    DATA LS_EVENT TYPE SLIS_ALV_EVENT.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
         I_LIST_TYPE           = 0
       IMPORTING
         ET_EVENTS             = T_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG       = 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.
      READ TABLE T_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.
        MODIFY  T_EVENTS FROM LS_EVENT
                TRANSPORTING FORM
                where name = slis_ev_top_of_page.
      ENDIF.
      READ TABLE T_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND
         INTO LS_EVENT.
      IF SY-SUBRC = 0.
        MOVE GC_FORMNAME_USER_COMMAND TO LS_EVENT-FORM.
        MODIFY  T_EVENTS FROM LS_EVENT
                TRANSPORTING FORM
                where name = slis_ev_user_command.
      ENDIF.
    ENDFORM.                    " EVENTTAB_BUILD
    *&      Form  data_selection
          text
    -->  p1        text
    <--  p2        text
    FORM data_selection .
    select matnr mbrsh mtart meins into
    table itab from mara
    where matnr in s_matnr.
    ENDFORM.                    " data_selection
    *&      Form  E04_COMMENT_BUILD
          text
         -->P_GT_LIST_TOP_OF_PAGE[]  text
    FORM E04_COMMENT_BUILD  USING    T_LISTHEADER TYPE SLIS_T_LISTHEADER.
    DATA: LS_LINE TYPE SLIS_LISTHEADER.
      LS_LINE-TYP = 'H'.
      LS_LINE-INFO = 'AREVA T&D'.
      APPEND LS_LINE TO T_LISTHEADER.
    CALL FUNCTION 'CONVERSION_EXIT_LDATE_OUTPUT'
           EXPORTING
                INPUT  = SY-DATUM
           IMPORTING
                OUTPUT = TOUTDT.
      CALL FUNCTION 'CONVERSION_EXIT_TIMLO_OUTPUT'
           EXPORTING
                INPUT  = SY-UZEIT
           IMPORTING
                OUTPUT = TOUTTM.
    CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = '  Run Date and Time'.
      CONCATENATE TOUTDT '-' TOUTTM INTO LS_LINE-INFO.
      APPEND LS_LINE TO T_LISTHEADER.
      CLEAR LS_LINE.
      LS_LINE-TYP = 'S'.
      LS_LINE-KEY = 'INV RECON REPORT'.
      APPEND LS_LINE TO T_LISTHEADER.
    ENDFORM.                    " E04_COMMENT_BUILD
    *&      Form  display
          text
    -->  p1        text
    <--  p2        text
    FORM display .
    break-point.
    gd_repid = sy-repid.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK                 = ' '
      I_BYPASSING_BUFFER                = ' '
      I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = gd_repid
      I_CALLBACK_PF_STATUS_SET          = ' '
      I_CALLBACK_USER_COMMAND           = ' '
      I_CALLBACK_TOP_OF_PAGE            = ' '
      I_CALLBACK_HTML_TOP_OF_PAGE       = 'TOP-OF-PAGE'
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      I_STRUCTURE_NAME                  =
      I_BACKGROUND_ID                   = ' '
       I_GRID_TITLE                      = 'INVOICE RECONCILLATION REPORT'
    I_GRID_SETTINGS                   =
      IS_LAYOUT                         = gd_layout
       IT_FIELDCAT                       = fieldcatalog[]
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
      IT_SORT                           = IT_SORT
      IT_FILTER                         =
      IS_SEL_HIDE                       =
       I_DEFAULT                         = 'X'
       I_SAVE                            = 'A'
      IS_VARIANT                        =
       IT_EVENTS                         = I_EVENTS
      IT_EVENT_EXIT                     =
      IS_PRINT                          =
      IS_REPREP_ID                      =
      I_SCREEN_START_COLUMN             = 0
      I_SCREEN_START_LINE               = 0
      I_SCREEN_END_COLUMN               = 0
      I_SCREEN_END_LINE                 = 0
      IT_ALV_GRAPHICS                   =
      IT_HYPERLINK                      =
      IT_ADD_FIELDCAT                   =
      IT_EXCEPT_QINFO                   =
      I_HTML_HEIGHT_TOP                 =
      I_HTML_HEIGHT_END                 =
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER           =
      ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = ITAB.
    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.
    ENDFORM.                    " display
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
           EXPORTING
                IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE
                I_LOGO             = 'AREVA_LOGO'.
        I_END_OF_LIST_GRID       = GT_LIST_TOP_OF_PAGE.
    ENDFORM.
    FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
    RS_SELFIELD TYPE SLIS_SELFIELD.
    CASE R_UCOMM.
    WHEN '&IC1'.
    READ TABLE itab INTO itab1 INDEX RS_SELFIELD-TABINDEX.
    PERFORM BUILD_FIELDCATLOG_EKPO.
    PERFORM EVENTTAB_BUILD  USING I_EVENTS[].
    PERFORM DATA_RETRIEVAL_EKPO.
    PERFORM BUILD_LISTHEADER_EKPO USING GT_LIST_TOP_OF_PAGE.
    PERFORM DISPLAY_ALV_EKPO.
    ENDCASE.
    ENDFORM. "user_command
    *&      Form  sort_order
          text
    -->  p1        text
    <--  p2        text
    FORM sort_order .
    PERFORM SORT_ORDER_FILL USING: '01'
                                    'matnr'
                                    'X'.
      PERFORM SORT_ORDER_FILL USING: '02'
                                    'mbrsh'
                                    'X'
    ENDFORM.                    " sort_order
    *&      Form  SORT_ORDER_FILL
          text
         -->P_0508   text
         -->P_0509   text
         -->P_0510   text
         -->P_0511   text
         -->P_0512   text
    FORM SORT_ORDER_FILL  USING   P_SPOS TYPE SLIS_SPOS
                                  P_FIELDNAME TYPE SLIS_FIELDNAME
                                  P_UP TYPE SLIS_SOUP
                                  P_DOWN TYPE SLIS_SODN.
                                 P_SUBTOT TYPE SLIS_DOSUB.
    DATA: WA_SORT TYPE SLIS_SORTINFO_ALV.
      WA_SORT-SPOS      = P_SPOS.
      WA_SORT-FIELDNAME = P_FIELDNAME.
      WA_SORT-TABNAME   = 'ITAB_ALV'.
      WA_SORT-UP        = P_UP.
      WA_SORT-DOWN      = P_DOWN.
    WA_SORT-SUBTOT    = P_SUBTOT.
      WA_SORT-GROUP     = 'UL'.
      WA_SORT-COMP      = ' '.
      WA_SORT-EXPA      = ' '.
      WA_SORT-OBLIGATORY = ' '.
      APPEND WA_SORT TO IT_SORT.
    ENDFORM.                    " SORT_ORDER_FILL
    *&      Form  BUILD_FIELDCATLOG_EKPO
          text
    -->  p1        text
    <--  p2        text
    FORM BUILD_FIELDCATLOG_EKPO .
    data: fieldcatalog1 type slis_fieldcat_alv.
    loop at fieldcatalog into fieldcatalog1.
    case fieldcatalog1-fieldname.
    when 'matnr'.
    fieldcatalog1-seltext_s = 'materialno'.
    fieldcatalog1-col_pos = 1.
    *fieldcatalog1-FIELDNAME    = 'matnr'.
    *fieldcatalog1-TABNAME      = itab_alv.
    fieldcatalog1-outputlen = 20.
    fieldcatalog1-do_sum = 'X'.
    fieldcatalog1-key = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    when 'maktx'.
    fieldcatalog1-seltext_s = 'description'.
    fieldcatalog1-col_pos = 2.
    *fieldcatalog1-FIELDNAME    = 'mbrsh'.
    *fieldcatalog1-TABNAME      = itab_alv.
    fieldcatalog1-outputlen = 10.
    fieldcatalog1-key = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    *append fieldcatalog1 to fieldcatalog.
    when 'spras'.
    fieldcatalog1-seltext_s = 'language'.
    fieldcatalog1-col_pos = 3.
    *fieldcatalog1-FIELDNAME    = 'mtart'.
    *fieldcatalog1-TABNAME      = itab_alv.
    fieldcatalog1-outputlen = 10.
    fieldcatalog1-key = 'X'.
    fieldcatalog1-REF_TABNAME   = 'makt'.
    endcase.
    modify fieldcatalog from fieldcatalog1.
    endloop.
    ENDFORM.                    " BUILD_FIELDCATLOG_EKPO
    *&      Form  EVENT_CALL_EKPO
          text
    -->  p1        text
    <--  p2        text
    FORM EVENT_CALL_EKPO  USING   T_EVENTS TYPE SLIS_T_EVENT.
    DATA LS_EVENT TYPE SLIS_ALV_EVENT.
    CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
         I_LIST_TYPE           = 0
       IMPORTING
         ET_EVENTS             = T_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG       = 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.
      READ TABLE T_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.
        MODIFY  T_EVENTS FROM LS_EVENT
                TRANSPORTING FORM
                where name = slis_ev_top_of_page.
      ENDIF.
      READ TABLE T_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND
         INTO LS_EVENT.
      IF SY-SUBRC = 0.
        MOVE GC_FORMNAME_USER_COMMAND TO LS_EVENT-FORM.
        MODIFY  T_EVENTS FROM LS_EVENT
                TRANSPORTING FORM
                where name = slis_ev_user_command.
      ENDIF.
    ENDFORM.                    " EVENT_CALL_EKPO
    *&      Form  DATA_RETRIEVAL_EKPO
          text
    -->  p1        text
    <--  p2        text
    FORM DATA_RETRIEVAL_EKPO .
    select matnr maktx spras from makt into table itab2.
    ENDFORM.                    " DATA_RETRIEVAL_EKPO
    *&      Form  BUILD_LISTHEADER_EKPO
          text
         -->P_IT_LISTHEADER  text
    FORM BUILD_LISTHEADER_EKPO  USING    P_IT_LISTHEADER.
    DATA: HLINE1 TYPE SLIS_LISTHEADER.
    HLINE1-TYP = 'H'.
    HLINE1-INFO = 'CHECKING PGM'.
    ENDFORM.                    " BUILD_LISTHEADER_EKPO
    *&      Form  DISPLAY_ALV_EKPO
          text
    -->  p1        text
    <--  p2        text
    FORM DISPLAY_ALV_EKPO .
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_INTERFACE_CHECK                 = ' '
      I_BYPASSING_BUFFER                = ' '
      I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = gd_repid
      I_CALLBACK_PF_STATUS_SET          = ' '
       I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
      I_CALLBACK_TOP_OF_PAGE            = ' '
      I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
      I_CALLBACK_HTML_END_OF_LIST       = ' '
      I_STRUCTURE_NAME                  = t_field[]
      I_BACKGROUND_ID                   = ' '
       I_GRID_TITLE                      = 'SECONDARY LIST'
      I_GRID_SETTINGS                   =
      IS_LAYOUT                         =
       IT_FIELDCAT                       = fieldcatalog[]
      IT_EXCLUDING                      =
      IT_SPECIAL_GROUPS                 =
      IT_SORT                           =
      IT_FILTER                         =
      IS_SEL_HIDE                       =
       I_DEFAULT                         = 'X'
       I_SAVE                            = 'A'
      IS_VARIANT                        =
       IT_EVENTS                         = I_EVENTS
      IT_EVENT_EXIT                     =
      IS_PRINT                          =
      IS_REPREP_ID                      =
      I_SCREEN_START_COLUMN             = 0
      I_SCREEN_START_LINE               = 0
      I_SCREEN_END_COLUMN               = 0
      I_SCREEN_END_LINE                 = 0
      IT_ALV_GRAPHICS                   =
      IT_HYPERLINK                      =
      IT_ADD_FIELDCAT                   =
      IT_EXCEPT_QINFO                   =
      I_HTML_HEIGHT_TOP                 =
      I_HTML_HEIGHT_END                 =
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER           =
      ES_EXIT_CAUSED_BY_USER            =
      TABLES
        T_OUTTAB                          = itab2.
    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.
    ENDFORM.                    " DISPLAY_ALV_EKPO
    *&      Form  display
          text
    -->  p1        text
    <--  p2        text
    *FORM display .
    *ENDFORM.                    " display
    Regards,
    Mohit

  • Want to add Custom field in IW22 transaction

    Hi All,
    I have requirement to add a custom field (Zfield) work class in IW22 transaction in Start/End Dates section.
    The  custom field has some constant values. When I choose the work class, the Priority field value should automatically populated according to value of work class. Plaese guide me step step procedure.
    Regards,
    sanjib.

    Hi,
    Use this Exit QQMA0001:
    Create a subscreen in SAPLXQQM Screen No: 0113(Mention the custom screen as per your FD)
    I Hope we can achive this by customizations in SPRO.
    SPRO>Quality Management>Quality Notification-->Overview of notification
    Select the Notification Type-->click on  Nofication --> Detail
    In this screen enter the screen number which we created at module pool with reference to
    custom screen 091 and save the entries.
    I hope this may helpfull.
    Thanks,
    AMS

  • Want to add Time Capsule to existing AEBS wireless network

    I currently have a wireless network with Airport Extreme as the base. I have a Time Capsule that someone didn't want anymore and would like to use that ONLY for backup of my IMac (Using Time Machine). Is there a way to only use the hard drive part of Time Capsule without having it be used to create a wireless network?

    Welcome to the discussions, fargodenny!
    Is there a way to only use the hard drive part of Time Capsule without having it be used to create a wireless network?
    Yes, you have a couple of options here.
    1) Configure the TC to "join" the wireless network that the AirPort Extreme is providing. Backups will be over wireless only. The ethernet ports are not enabled in this type of setup, so you would not be able to use ethernet to backup.
    2) Turn off the wireless on the TC and connect it to the AirPort Extreme using an ethernet cable. This would be the recommended way to set this up because you would have the option to backup using either ethernet or wireless.

Maybe you are looking for

  • Is shaking an iPad bad ?

    Playing a game on my iPad and it tells me to shake the iPad, is this bad to do ?

  • Upload dell printer software on my macbook, how can i tell if it is compatible?

    I want to upload dell printer software on my macbook, how can I tell if it is compatible for mac's? I need to print a project for one of my classes and I would like to print at home but we only have a dell printer for my mom's dell laptop and I want

  • Struts - tiles definition not reflecting for a JSP

    Hi everyone, I am struggling with this problem since 2 weeks..I will be thankful to you if u can tell me the solution...the problem is : In my tiles-defs.xml, all the definitions are working fine but for only one jsp, its not getting reflected. I wan

  • Dock/Quicktime issues in Leopard?

    My computer is a 2.2GHz MacBook Pro with 2GB of RAM (late 2007). Under Tiger, when I minimized a Quicktime movie into the dock, the movie thumbnail would actually be playing in the dock. On my very same computer, under Leopard, when I minimize a movi

  • Pls help...i'm very, very new 2 this...

    hi, ok...i've got 2 questions : 1. if i get any sort of warning msg when compiling...does that mean i can still run the program, or are there certain exceptions? 2. what on earth does this mean? Exception in thread "main" java.lang.NoClassDefFoundErr