Passing values for field catalog

Hi experts,
    To pass values to fieldcatalog i need one practical example
     Can anyone help me
Reg
R.Vijai

*& Report  ZSUJ
REPORT  zsuj.
TYPE-POOLS: slis.
Data Declaration Section
DATA:wa_fieldcat_alv TYPE slis_fieldcat_alv.
DATA:it_fieldcat_alv TYPE slis_t_fieldcat_alv.
DATA:BEGIN OF itab OCCURS 0,
       ch    TYPE c,
       vbeln TYPE vbak-vbeln,
       posnr TYPE vbap-posnr,
       netwr TYPE vbap-netwr,
       vkorg TYPE vbak-vkorg,
       matnr TYPE vbap-matnr,
       meins TYPE vbap-meins,
     END OF itab.
DATA:BEGIN OF it_head OCCURS 0,
       vbeln TYPE vbak-vbeln,
      vkorg TYPE vbak-vkorg,
     END OF it_head.
DATA:BEGIN OF it_item OCCURS 0,
       vbeln TYPE vbak-vbeln,
       posnr TYPE vbap-posnr,
       netwr TYPE vbap-netwr,
      vkorg TYPE vbak-vkorg,
       matnr TYPE vbap-matnr,
       meins TYPE vbap-meins,
     END OF it_item.
DATA:wa_keyinfo TYPE slis_keyinfo_alv.
DATA:it_events TYPE slis_t_event,
     wa_event TYPE slis_alv_event.
DATA:it_listheader TYPE slis_t_listheader,
     wa_listheader TYPE slis_listheader.
DATA:wa_sortinfo TYPE slis_sortinfo_alv,
     it_sortinfo TYPE slis_t_sortinfo_alv.
DATA:wa_layout TYPE slis_layout_alv.
DATA: v_report TYPE sy-repid.
Selection Screen
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : so_erdat FOR sy-datum.
PARAMETERS : r_list RADIOBUTTON GROUP rad1,
             r_grid RADIOBUTTON GROUP rad1,
             r_hier RADIOBUTTON GROUP rad1,
             r_blck RADIOBUTTON GROUP rad1.
SELECTION-SCREEN : END OF BLOCK b1.
Start-of-selection.
START-OF-SELECTION.
  IF r_list EQ 'X' OR r_grid EQ 'X'.
    SELECT vbakvbeln vbapposnr vbapnetwr vbakvkorg vbapmatnr vbapmeins
                    INTO CORRESPONDING FIELDS OF TABLE itab
                    FROM vbak INNER JOIN vbap ON vbakvbeln = vbapvbeln
                    WHERE vbak~erdat IN so_erdat.
  ELSEIF r_hier EQ 'X'.
    SELECT vbeln FROM vbak INTO TABLE it_head
                      WHERE erdat IN so_erdat.
    IF it_head[] IS NOT INITIAL.
      SELECT vbeln posnr netwr matnr meins FROM vbap INTO TABLE it_item
                      FOR ALL ENTRIES IN it_head
                      WHERE vbeln = it_head-vbeln.
    ENDIF.
  ELSEIF r_blck EQ 'X'.
  ENDIF.
Build Field Catalogue
  IF r_list EQ 'X' OR r_grid EQ 'X'.
    PERFORM build_catalog.
  ELSEIF r_hier EQ 'X'.
    PERFORM build_catalog1.
  ELSEIF r_blck EQ 'X'.
    PERFORM build_catalog2.
  ENDIF.
Events
  PERFORM get_events.
Build Comment
  PERFORM buil_comment.
Sort Info on Table
  PERFORM build_sortinfo.
Layout
  PERFORM build_layout.
Key info for Heirarchical list.
  PERFORM set_keyinfo.
  v_report = sy-repid.
End-of-selection.
END-OF-SELECTION.
  IF r_list EQ 'X'.
    PERFORM list_display.
  ELSEIF r_grid EQ 'X'.
    PERFORM grid_display.
  ELSEIF r_hier EQ 'X'.
    PERFORM hier_display.
  ELSEIF r_blck EQ 'X'.
    PERFORM blockd_list.
  ENDIF.
*&      Form  build_catalog
  Build Field Catalogue.
FORM build_catalog .
  DATA : c_pos TYPE i.
row_pos        like sy-curow, " output in row
        col_pos        like sy-cucol, " position of the column
        fieldname      type slis_fieldname,
        tabname        type slis_tabname,
        currency(5)    type c,
        cfieldname     type slis_fieldname, " field with currency unit
        ctabname       type slis_tabname,   " and table
        ifieldname     type slis_fieldname, " initial column
        quantity(3)    type c,
        qfieldname     type slis_fieldname, " field with quantity unit
        qtabname       type slis_tabname,   " and table
        round          type i,        " round in write statement
        exponent(3)       type c,     " exponent for floats
        key(1)         type c,        " column with key-color
        icon(1)        type c,        " as icon
        symbol(1)      type c,        " as symbol
        checkbox(1)    type c,        " as checkbox
        just(1)        type c,        " (R)ight (L)eft (C)ent.
        lzero(1)       type c,        " leading zero
        no_sign(1)     type c,        " write no-sign
        no_zero(1)     type c,        " write no-zero
        no_convext(1)  type c,
        edit_mask      type slis_edit_mask,                "
        emphasize(4)   type c,        " emphasize
        fix_column(1)   type c,       " Spalte fixieren
        do_sum(1)      type c,        " sum up
        no_out(1)      type c,        " (O)blig.(X)no out
        tech(1)        type c,        " technical field
        outputlen      like dd03p-outputlen,
        offset         type dd03p-outputlen,     " offset
        seltext_l      like dd03p-scrtext_l, " long key word
        seltext_m      like dd03p-scrtext_m, " middle key word
        seltext_s      like dd03p-scrtext_s, " short key word
        ddictxt(1)     type c,        " (S)hort (M)iddle (L)ong
        rollname       like dd03p-rollname,
        datatype       like dd03p-datatype,
        inttype        like dd03p-inttype,
        intlen         like dd03p-intlen,
        lowercase      like dd03p-lowercase,
*ref_fieldname  like dd03p-fieldname,
        ref_tabname    like dd03p-tabname,
        roundfieldname type slis_fieldname,
        roundtabname   type slis_tabname,
        decimalsfieldname type slis_fieldname,
        decimalstabname   type slis_tabname,
        decimals_out(6)   type c,     " decimals in write statement
        text_fieldname type slis_fieldname,
        reptext_ddic   like dd03p-reptext,   " heading (ddic)
        ddic_outputlen like dd03p-outputlen,
*key_sel(1)     type c,        " field not obligatory
        no_sum(1)      type c,        " do not sum up
        sp_group(4)    type c,        " group specification
        reprep(1)      type c,        " selection for rep/rep
        input(1)       type c,        " input
        edit(1)        type c,        " internal use only
        hotspot(1)     type c,        " hotspot
  c_pos = 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'CH'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 2.
  wa_fieldcat_alv-seltext_l  = ' '.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-checkbox = 'X'.
  wa_fieldcat_alv-edit = 'X'.
  wa_fieldcat_alv-input = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'VBELN'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Sales Doc'.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-hotspot    = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'POSNR'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 6.
  wa_fieldcat_alv-seltext_l  = 'Item'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'NETWR'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Net Price in Doc Curr'.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-do_sum = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'VKORG'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 6.
  wa_fieldcat_alv-seltext_l  = 'Sales Org'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'MATNR'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Mat Invoiced'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  c_pos = c_pos + 1.
  wa_fieldcat_alv-col_pos = c_pos.
  wa_fieldcat_alv-fieldname = 'MEINS'.
  wa_fieldcat_alv-tabname   = 'ITAB'.
  wa_fieldcat_alv-outputlen  = 4.
  wa_fieldcat_alv-seltext_l  = 'UoM'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
ENDFORM.                    " build_catalog
*&      Form  build_fieldcat
      Build Field Catalog.
    -->   p_col_pos   : Column Position
    -->   p_fieldname : Field name
    -->   p_tabname   : Table Name
    -->   p_outputlen : Output Length
    -->   p_seltext_l : Field Name
    -->   p_no_out    : No Output flag
FORM build_fieldcat  USING p_col_pos TYPE sy-curow
                           p_fieldname TYPE slis_fieldname
                           p_tabname   TYPE slis_tabname
                           p_outputlen TYPE dd03p-outputlen
                           p_seltext_l TYPE dd03p-scrtext_l
                           p_no_out    TYPE c
                           p_hotspot     TYPE c.
  wa_fieldcat_alv-col_pos = p_col_pos.
  wa_fieldcat_alv-fieldname = p_fieldname.
  wa_fieldcat_alv-tabname   = p_tabname.
  wa_fieldcat_alv-outputlen  = p_outputlen.
  wa_fieldcat_alv-seltext_l  = p_seltext_l.
  wa_fieldcat_alv-no_out     = p_no_out.
  wa_fieldcat_alv-hotspot    = p_hotspot.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
ENDFORM.                    " build_fieldcat
*&      Form  top_of_page
   Top_of_page
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo                   = 'XANSA_LOGO'
      it_list_commentary       = it_listheader
  I_END_OF_LIST_GRID       =
  I_ALV_FORM               = 'X'
ENDFORM.                    " build_heading
*&      Form  get_events
   Events.
FORM get_events .
  wa_event-name = slis_ev_top_of_page.
  wa_event-form = 'TOP_OF_PAGE'.
  APPEND wa_event TO it_events.
  CLEAR wa_event.
ENDFORM.                    " get_events
*&      Form  buil_comment
      text
FORM buil_comment .
  REFRESH it_listheader.
  CLEAR wa_listheader.
  wa_listheader-typ = 'H'.
  wa_listheader-info = 'DEMO EXAMPLE'.
  APPEND wa_listheader TO it_listheader.
ENDFORM.                    " buil_comment
*&      Form  build_layout
      Layout Settings
FORM build_layout.
  wa_layout-zebra    = 'X'.
ENDFORM.                    " build_layout
*&      Form  build_sortinfo
    Sort Information
FORM build_sortinfo .
spos like alvdynp-sortpos,
        fieldname type slis_fieldname,
        tabname type slis_fieldname,
       up(1) type c,
       down(1) type c,
       group(2) type c,
       subtot(1) type c,
        up like alvdynp-sortup,
        down like alvdynp-sortdown,
        group like alvdynp-grouplevel,
        subtot like alvdynp-subtotals,
        comp(1) type c,
        expa(1) type c,
        obligatory(1) type c,
  wa_sortinfo-fieldname = 'MEINS'.
  wa_sortinfo-tabname   = 'IT_DATA'.
  wa_sortinfo-subtot   = 'X'.
  APPEND wa_sortinfo TO it_sortinfo.
  CLEAR wa_sortinfo.
ENDFORM.                    " build_sortinfo
*&      Form  user_command
    Handle User command
FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.
  SET PARAMETER ID 'AUN' FIELD rs_selfield-value.
  CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDFORM.                    "user_command
*&      Form  LIST_DISPLAY
     Data in List display
FORM list_display .
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                = ' '
     i_callback_program             = v_report
  I_CALLBACK_PF_STATUS_SET       = ' '
     i_callback_user_command        = 'USER_COMMAND'
  I_STRUCTURE_NAME               =
     is_layout                      = wa_layout
     it_fieldcat                    = it_fieldcat_alv
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
     it_events                      = it_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
  IR_SALV_LIST_ADAPTER           =
  IT_EXCEPT_QINFO                =
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
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.                    " LIST_DISPLAY
*&      Form  GRID_DISPLAY
      Data in Grid Display
FORM grid_display .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
      i_callback_program                = v_report
  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                  =
  I_BACKGROUND_ID                   = ' '
  I_GRID_TITLE                      =
  I_GRID_SETTINGS                   =
      is_layout                         = wa_layout
      it_fieldcat                       = it_fieldcat_alv
  IT_EXCLUDING                      =
  IT_SPECIAL_GROUPS                 =
  IT_SORT                           =
  IT_FILTER                         =
  IS_SEL_HIDE                       =
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        =
      it_events                         = it_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
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   =
  IT_HYPERLINK                      =
  IT_ADD_FIELDCAT                   =
  IT_EXCEPT_QINFO                   =
  IR_SALV_FULLSCREEN_ADAPTER        =
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.                    " GRID_DISPLAY
*&      Form  hier_display
    Heirarchical display of Data.
FORM hier_display .
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
  I_INTERFACE_CHECK              = ' '
     i_callback_program             = v_report
  I_CALLBACK_PF_STATUS_SET       = ' '
     i_callback_user_command        = 'USER_COMMAND'
     is_layout                      = wa_layout
     it_fieldcat                    = it_fieldcat_alv
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
     it_events                      = it_events
  IT_EVENT_EXIT                  =
      i_tabname_header               = 'IT_HEAD'
      i_tabname_item                 = 'IT_ITEM'
  I_STRUCTURE_NAME_HEADER        = 'IT_HEAD'
  I_STRUCTURE_NAME_ITEM          = 'IT_ITEM'
      is_keyinfo                     = wa_keyinfo
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
  IR_SALV_HIERSEQ_ADAPTER        =
  IT_EXCEPT_QINFO                =
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
    TABLES
      t_outtab_header                = it_head
      t_outtab_item                  = it_item
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.                    " hier_display
*&      Form  set_keyinfo
   Set key information
FORM set_keyinfo .
  wa_keyinfo-header01 = 'VBELN'.
  wa_keyinfo-item01 = 'VBELN'.
ENDFORM.                    " set_keyinfo
*&      Form  BUILD_CATALOG1
      text
-->  p1        text
<--  p2        text
FORM build_catalog1 .
  wa_fieldcat_alv-fieldname = 'VBELN'.
  wa_fieldcat_alv-tabname   = 'IT_HEAD'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Sales Doc'.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-hotspot    = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  wa_fieldcat_alv-fieldname = 'VBELN'.
  wa_fieldcat_alv-tabname   = 'IT_ITEM'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Sales Doc'.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-hotspot    = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  wa_fieldcat_alv-fieldname = 'POSNR'.
  wa_fieldcat_alv-tabname   = 'IT_ITEM'.
  wa_fieldcat_alv-outputlen  = 6.
  wa_fieldcat_alv-seltext_l  = 'Item'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  wa_fieldcat_alv-fieldname = 'NETWR'.
  wa_fieldcat_alv-tabname   = 'IT_ITEM'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Net Price in Doc Curr'.
  wa_fieldcat_alv-no_out     = ' '.
  wa_fieldcat_alv-do_sum = 'X'.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  wa_fieldcat_alv-fieldname = 'MATNR'.
  wa_fieldcat_alv-tabname   = 'IT_ITEM'.
  wa_fieldcat_alv-outputlen  = 20.
  wa_fieldcat_alv-seltext_l  = 'Mat Invoiced'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
  wa_fieldcat_alv-fieldname = 'MEINS'.
  wa_fieldcat_alv-tabname   = 'IT_ITEM'.
  wa_fieldcat_alv-outputlen  = 4.
  wa_fieldcat_alv-seltext_l  = 'UoM'.
  wa_fieldcat_alv-no_out     = ' '.
  APPEND wa_fieldcat_alv TO it_fieldcat_alv.
  CLEAR wa_fieldcat_alv.
ENDFORM.                    " BUILD_CATALOG1
*&      Form  BUILD_CATALOG2
      text
FORM build_catalog2 .
ENDFORM.                    " BUILD_CATALOG2
*&      Form  blockd_list
      text
FORM blockd_list .
ENDFORM.                    " blockd_list
I hope this will help u.

Similar Messages

  • I need to pass value for Actual GI date field in VL01N t code, I am using BAPI_DELIVERYPROCESSING_EXEC. can any one tell me how can i pass vaule ?

    I need to pass value for Actual GI date field in VL01N t code, I am using BAPI_DELIVERYPROCESSING_EXEC. can any one tell me how can i pass vaule ?

    Hi Abdul,
    Sorry for my unprecise answer, but you talk about a tcode, but you're using a BAPI Call. Maybe you want to call the transaction in batch mode?
    http://help.sap.com/saphelp_erp60_sp/helpdata/de/fa/09715a543b11d1898e0000e8322d00/content.htm
    Regards,
    Franz

  • Exist Optional parameter for field catalog ?

    Hi,
            Can I pass the optional parameter for field catalog. I mean I use only one field catalog setting for many grids. I don't want to fill SPACE for blank field for the last parameter.
            Please tell me ABAP has a function like I said which exist in Ms.Visual Studio.
            Thank you very much.
    Regards,
    TRA

    Hello Ravi,
                    Thanks for your quick reply.
                    I don't mean no output in output screen.
                   We need to write all parameter value when calling field catalog setting form. But I don't want to write last 2 parameter.
                    for example:
                    Add_FieldCat form has 5 things.(REF_TABLE, FIELDNAME,COL_POS,KEY,EDIT)
                   I called this form for 2 alv grid.
                  for 1st Grid,
                                  All 5 parameters is passed to the Add_FieldCat Form.
                   for 2nd Grid,
                                 Only first 3 parameters is passed to the Add_FieldCat Form.
    In Visual Basic,
                  We use "optional" keyword for this kind of parameter passing. Thus, in ABAP, can I use lke that for parameter passing.
    Regards,
    TRA

  • Error  Enter a value for field BP_GUID

    I am using MDG  7.0
    When I create a  Request for "Create ERP Customer",
    I then enter data including the sales Area Data and Company Code data
    Then Submit
    at the following approval step , Sales Area data and CC data is missing.
    I get ERROR message  "Enter a value for Field BP_GUID"
    Please advise what Table or T-code am I missing values for .
    Thanks for your assistance,

    hi,
    See the attached screen shot.
    Regards,
    Tushar

  • Default values for fields in infotype 0017

    Is there any way to set default values for fields in infotype 0017? Maybe a
    feature? I'm thinking about defaulting values based on pay scale group.
    Thanks before.

    Hi
    You can implement what i suggested in my previous post.
    Or else, you can do what we did in one of our client requirement.
    We created a custom Ztable where we had defined which value of the the employee grouping to be placed for which record.
    We did that on the basis of the company code fields.
    For eg: IF BUKRS = 'TR01'
    then EE Grp Expense Type = '1'.
    ENDIF.
    Similarly for other fields.
    Hope this helps.
    Harsh

  • FLEET Table, Possible Values For Field IS SI UNIT

    Dear experts,
    While doing analysis on fleet data I realized that for field IS_SI_UNIT (PM: Vehicle Data in SI Unit (e.g. Dimensions)) in table FLEET in two separate systems we have vehicle records set with different entries for this field.
    In one system vehicles are stored with value F: DB Unit set individually (new) 
    and in other one with value Y: DB Unit set through (new)
    Systems are SAP ECC 6.0
    Does anyone know what does it mean and what influence this has? In both systems vehicles are created by end users using standard PM creation transaction and those indicators are set in background while equipment is saved so there is not influence by end user.
    I could not find much information on SAP support portal about meaning behind possible values for field IS_SI_UNIT in table FLEET so was wondering if anyone knows more here?
    Thanks,
    Ivo

    Dear,
    There will not be any impact.Finally system will consider only SI units for fleet equipment consumption calculation.
    Kindly read note:366733 - Equipment/fleet: SI units in table FLEET and  372736 - Equipmt/vehicle:rounding error because of SI units
    It may help you.
    But in my system i can view only "Y"
    Regards,
    Pardhu

  • UDF - Set Valid Values for Field

    I have a UDF created in Marketing Docs / row level called UOM_Ordered (alphanumeric, length 2) using Set Valid Values for Field.  Values are:
    CS
    IN
    DZ
    PC
    Above are CS abrev for Case, IN abrev for Inner, DZ abrev for Dozen .................
    If possible could I have say for example "IN" not to appear in the drop down if the value in OITM (UDF called U_Inner_Qty) is either NULL or a Zero?  It's would be a way to stop mistakes when orders are inputted.
    Any help on this would be appreciated.
    Thks - Scott

    Hello
    You could try the following:
    Insert a formatted search on the field, which contain conditions, ie whether the condition that the value is 0 or null, then bring the required data, while if it is not the case, applies the search formatted with the available data.
    On the other hand, leave the form with all the options for disabled users. The latter through additional authorizations for users
    I hope it will help
    Best regards,

  • FRM-40212: Invalid value for Field SHIP_TO_ADDRESS1on forms OEXOETEL

    I want to customize a form "OEXOETEL". I want to copy some values from another order to a new order.When i navigate to a block LINE i receive this message: "FRM-40212: Invalid value for Field SHIP_TO_ADDRESS1".
    cursor c_order(p_header_id varchar2) is
    select o.sold_to,
    o.order_type,
    o.terms,
    o.ship_from,
    o.SHIP_to_org_id,
    o.ship_to_address1,
    o.ship_to_address5,
    o.customer_number,
    o.invoice_to_org_id,
    o.INVOICE_TO_LOCATION,
    o.SHIP_TO_LOCATION,
    o.invoice_to_address1,
    o.invoice_to_address5,
    o.sold_to_contact
    from oe_order_headers_v o,
    hz_parties hzp
    where hzp.party_name = o.sold_to
    and o.header_id = p_header_id;
    IF l_block_name IN ('ORDER') THEN
    IF p_event = 'WHEN-NEW-RECORD-INSTANCE' THEN
    open c_order(name_in('global.header_id'));
    loop
         fetch c_order into x_order_row;
    exit when c_order%notfound;
         copy(x_order_row.customer_number,'ORDER.CUSTOMER_NUMBER');
         copy(x_order_row.sold_to,'ORDER.SOLD_TO');
    copy(x_order_row.ship_to_org_id,'ORDER.SHIP_TO_ORG_ID');
    copy(x_order_row.SHIP_TO_LOCATION,'ORDER.SHIP_TO_LOCATION');
         copy(x_order_row.ship_to_address5,'ORDER.SHIP_TO_ADDRESS5');
    copy(x_order_row.ship_to_address1,'ORDER.SHIP_TO_ADDRESS1');
    copy(x_order_row.ship_to_address1,'ORDER.SHIP_TO_ADDRESS1_MIR2');
         copy(x_order_row.invoice_to_org_id,'ORDER.INVOICE_TO_ORG_ID');
         copy(x_order_row.invoice_TO_LOCATION,'ORDER.INVOICE_TO_LOCATION');
         copy(x_order_row.invoice_to_address5,'ORDER.INVOICE_TO_ADDRESS5');
    copy(x_order_row.invoice_to_address1,'ORDER.INVOICE_TO_ADDRESS1');
    copy(x_order_row.INVOICE_TO_LOCATION,'ADDRESSES.INVOICE_TO_LOCATION');
         copy(x_order_row.order_type,'ORDER.ORDER_TYPE');
         copy(x_order_row.sold_to_contact,'ORDER.SOLD_TO_CONTACT');
         copy(x_order_row.ship_from,'ORDER.SHIP_FROM');
    end loop;
    close c_order;
    end if;
    end if;

    Review Note: 302613.1 - OEXOEORD: Cannot select List of Values From The Ship To Address1 Field
    https://metalink2.oracle.com/metalink/plsql/ml2_documents.showDocument?p_database_id=NOT&p_id=302613.1

  • No ISO code passed on for field API6850_UOM-DIM_UOM_ISO

    Hi,
    Can anyone tell me the steps to find out which UOM is not having mapped in GTS vs ECC? It doesnot tell which UOM is not passing. It is in production so can't check in GTS.
    Thanks in advance.

    Hi
    The following knowledge Based article details the customising relating to this error:
    1740997 - KBA: No ISO code passed on for field API6850_UOM-DIM_UOM_ISO. Msg no.
    /SAPSLL/CORE_PRODUCT212
    Are you seeing this error with the transfer of a particular product?
    In the material master MM03 (and table marm)  you can see unit of measures defined.
    You would need to ensure that an ISO code exists in transaction CUNI for each uom defined relating to the material being transfered to GTS.
    Hope this helps
    Kind Regards
    Ann Marie

  • SDIMA: Values for field SUPP_EXIST in condition table CNCCRMPRCUS801 differ

    Hi Experts,
    when checking condition records consistency between CRM and ERP via transacation SDIMA we get the following error for one of the conditon records: 'Values for field SUPP_EXIST in condition table CNCCRMPRCUS801 differ'. Can anybody explain to me where this message could come from? To my understanding field 'SUPP_EXIST' only exists in CRM condition tables for technical reason. So no way to compare this against an ERP condition table field, is there?
    And related to this: I found that this error message is triggered from method CL_CND_DIMA_CRM->COMPARE_MBDOC. As the DIMA-Compare is triggered asynchronously and just setting a break-point is no option therefore, I was wondering if anybody knows a way of debugging this method in order to find out what the coding does in detail before the message is thrown.
    Thanks a lot for your help!
    Cheers,
    Jens

    Hi Brian and the other Experts,
    thanks for your help. Unfortunately, I don't have a single record with this problem but a lot more. So it is not possible to correct this manually. Also, I would not know how to correct this anyhow as I don't understand what field in R/3 should map to field SUPP_EXIST in CRM condition tables. Let me explain:
    From my understanding, in CRM (leave aside scales) we have two database tables for each condition table, a central and a supplemental table. A condition record always creates a data record in the central table and nothing is inserted in the supplemental table in case that the fields form the supplemental table are not needed. However, when there are less common condition features involved (e.g. uppler limits), then an additional data record will be created in the supplemental table with the relevant data. And this is when field SUPP_EXIST comes into play as it is an indicator for the system that a data record exists for that condition record also in the supplemental table.
    The condition record data model in R/3 is completely different. For CRM condition table CNCCRMPRCUS801 the following tables in R/3 are involved: A801, KONH and KONP. And there is a data record for each of them for a given condition record. There is no concept of having a supplemental table as far as I understand it so where exactly would I find this SUPP_EXIST in R/3 so that I can make sure it does not deviate from the data in CRM?
    Would be great if someone could give me another hint. What am I getting wrong?
    Cheers,
    Jens

  • In TXN CO03, extract value for field "To Confirm" under tab "Qty/Activity"

    Hi,
    Can anyone help to extract value for field "To Confirm" under tab "QTY/ACTIVITIES" in tansaction CO03 at operatin level. There are three Activiti (CC-Set-up,CC-Labor Time & CC-Var-OH) under table control Activities. I need value of the field "To Confirm" for CC-Labor Time.
    From where I can fetch this value,
    1. Is this field available in some table?
    2. Is there any FM with which the same can be extracted.
    3. Any other method?
    Regards,
    Bibhuti.
    Edited by: bibhuti kumar on Feb 20, 2008 6:16 AM

    Hi,
    pls use below table's and get detals you want
    AFKO - Order header details
    AFVC - Order operation details
    AFVV - Order operation value/date's/qty details
    the relation is below
    Step1: AFKO; AUFNR-->AFKO-AUFPL
    Step2: AFVC; AFKO-AUFPL = AFVC-AUFPL
    take filed to APLZL,VORNR
    Step3: AFVV;AFKO-AUFPL=AFVV-AUFPL, AFVC-AUFPL = AFVV-AUFPL
    take filed to MGVRG,LMNGA,XMNGA,VGW02
    Step4: (MGVRG - (LMNGA+XMNGA)) * VGW02
    hope this will solve your problem
    Regards,
    Sankaran

  • Restrict values in field catalog

    hi,
              i am displaying some records in alv grid. i want to restrict some valus i.e in my input select options i will give  range values for example student 1 to student 3 (total 6 studnts)
    i am calculating values and displaying it. It displaying calculated vales for studnt 1 2 3 and rest of the other values as '0.'
    so in my requirment i shd get only 3 grid fields instead of 6.
    how to restrict the fields in field catalog.
    can any one give some guidence

    Hi,
      CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
          I_PROGRAM_NAME         = C_TABNAME1
          I_STRUCTURE_NAME       = C_TABNAME
        CHANGING
          CT_FIELDCAT            = LT_FIELDCAT
        EXCEPTIONS
          INCONSISTENT_INTERFACE = 1
          PROGRAM_ERROR          = 2
          OTHERS                 = 3.
      IF SY-SUBRC <> 0.
      ENDIF.
        IF <FS_FIELDCAT>-FIELDNAME = 'FIELD-NAME'.
          <FS_FIELDCAT>-NO_OUT = C_FLAG.
        ENDIF.
    which ever field u want to hide just give in place of FIELD-NAME which helps u to hide or restrict fields.
    hope this helps u..
    regards..
    anusha.

  • How to pass values for compound primary keys for updating the record in db.

    i have a entity bean in my ejb with two primary keys to it...eg. roleid,rolename...
    when iam retriving the record i use only one primary key ...so again to modify and update he same record which i retrived is a pbm..
    i cannot set the values for the compoundpk,,,
    but i can do the update for the bean with single primary key..
    i need to know how to pass the values/parameters for the coumpound primary key in my update method...
    thanx in advance...
    Arjun.G

    I istantiated a object for the pk class and assign the values for the primary key fields...
    Arjun.G

  • Translation of the Field label that is passe in the field catalog on ALV

    Hiii
    i there a way to make ALV column field label in different language
    let say i have 3 radio button language english , french , and dutch
    depending on the radio button selected i want my alv column fields to be display in that language.
    note i am using field catalog merge and alv list.
    i know that can be done by forcing value in the fieldcat-fieldname
    something like that
    IF english
    fieldcat-fieldname = English
    If frence
    fieldcat-fieldname = french
    if dutch
    fieldcat-fieldname = dutch
    but suppose i have 50 field then i must do that with all 50 field for each language
    i there some more easier way like setting sy-langu or setting language in the fieldcat

    Hi newbie82 c,
    the easiest way is to use the SAP logon language and have all texts in program defines as text fields. The text fields are translated once and fetched always correct according to logon language.
    If you want to switch languages by radiobutton, you may define one create_fieldcat routine for each language.
    Regards,
    Clemens

  • Default value for Subject catalog in CRMD_ORDER

    Hello,
    In a change request creation -CHARM t-code CRMD_ORDER-, is it possible to set a default value for the field "Subject Catalog"?
    Using SM 7.0 SPS12.
    Thks,
    François

    Hi,
    yes this is possible.
    For example you can create an own transaction variant (TA: SHD0). Here you can assign a default value to several fields (you need to maintain the Key with blanks).
    Then asssign this variant to your transaction type: IMG -> CRM -> Transactions -> Basic settings -> User Interface Settings -> Assign Transaction Types to Transaction Variants
    regards,
    Andy

Maybe you are looking for