Results 1 to 2 of 2

Thread: Regarding SAP Tree

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Junior Member
    Join Date
    Jan 2008
    Answers
    5

    Regarding SAP Tree

    Hi everybody..... Can anyone help me to get the documentation file of sap list tree as soon as possible.... Thanks in advance mohan


  2. #2
    Junior Member
    Join Date
    Apr 2008
    Answers
    2

    Re: Regarding SAP Tree

    Quote Originally Posted by infoviewmohan View Post
    Hi everybody..... Can anyone help me to get the documentation file of sap list tree as soon as possible.... Thanks in advance mohan

    *&---------------------------------------------------------------------*
    *& *
    *& *
    *&---------------------------------------------------------------------*
    *& *
    *& *
    *&---------------------------------------------------------------------*

    tables:ekko,ekpo.

    ***********************START OF SELECTION SCREEN************************
    selection-screen begin of block b1 with frame title text-001.

    select-optionsurdocno for ekko-ebeln.
    select-optionsurlnitm for ekko-bukrs.

    selection-screen end of block b1.

    ************************************************************************

    **********************INTERNAL TABLE DECLARATION************************

    data:itab type standard table of ekpo,wa like ekpo.

    type-pools : slis.

    data:fieldcatalog type slis_t_fieldcat_alv with header line.

    data: gd_layout type slis_layout_alv,
    gd_repid like sy-repid,
    * gt_events type slis_t_event.


    ************************************************************************

    **************************START OF SELECTION****************************
    start-of-selection.

    select ebeln ebelp loekz txz01 matnr bukrs werks lgort matkl menge from
    ekpo into corresponding fields of table itab where ebeln in purdocno.


    perform build_fieldcatalog.
    ***perform buid_layout.
    perform display_alv_report.

    ************************************************************************


    *************************BUID FIELDCATALOG******************************
    form build_fieldcatalog.

    fieldcatalog-fieldname = 'EBELN'.
    fieldcatalog-seltext_m = 'Po Doc No.'.
    fieldcatalog-col_pos = 0.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'EBELP'.
    fieldcatalog-seltext_m = 'Line Item'.
    fieldcatalog-col_pos = 1.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'LOEKZ'.
    fieldcatalog-seltext_m = 'Status '.
    fieldcatalog-col_pos = 2.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'TXZ01'.
    fieldcatalog-seltext_m = 'short text '.
    fieldcatalog-col_pos = 3.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'MATNR'.
    fieldcatalog-seltext_m = 'material no.'.
    fieldcatalog-col_pos = 4.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'BUKRS'.
    fieldcatalog-seltext_m = 'Company Code '.
    fieldcatalog-col_pos = 5.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'WERKS'.
    fieldcatalog-seltext_m = 'Plant'.
    fieldcatalog-col_pos = 6.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'LGORT'.
    fieldcatalog-seltext_m = 'storage'.
    fieldcatalog-col_pos = 7.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'MATKL'.
    fieldcatalog-seltext_m = 'Material group'.
    fieldcatalog-col_pos = 8.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    fieldcatalog-fieldname = 'MENGE'.
    fieldcatalog-seltext_m = 'Quantity'.
    fieldcatalog-col_pos = 9.
    append fieldcatalog to fieldcatalog.
    clear fieldcatalog.

    endform.

    **************************************************************************

    form display_alv_report.
    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 = ' '
    * I_CALLBACK_HTML_END_OF_LIST = ' '
    * I_STRUCTURE_NAME =
    * I_BACKGROUND_ID = ' '
    * I_GRID_TITLE =
    * 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 = ' '
    * IS_VARIANT =
    * 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
    * 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.

    *****************************************************************


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
About us
Applying for a job can be a stressful and frustrating experience, especially for someone who has never done it before. Considering that you are competing for the position with a at least a dozen other applicants, it is imperative that you thoroughly prepare for the job interview, in order to stand a good chance of getting hired. That's where GeekInterview can help.
Interact