Request for ready to deploy sample code for Table Filter/ Table Utilities

i have gone thru some article about table filter
/people/subramanian.venkateswaran2/blog/2005/05/10/filtering-table-values-using-webdynpro
/people/peter.vignet/blog/2007/01/03/generic-web-dynpro-java-table-filter
as well as the implemented the tableUtilities class
/people/sap.user72/blog/2006/05/04/enhancing-tables-in-webdynpro-java-150-custom-built-table-utilities
does anyone successfully done this....
can anyone send the ready-to deploy application for reference...
pls send to
[email protected]
Message was edited by:
yzme yzme
Message was edited by:
yzme yzme

Hi:
try:
<https://www.sdn.sap.com/irj/sdn/softwaredownload?download=/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/business_packages/a1-8-4/webdynpro_sampleapps/web_dynpro_java_table_filter.zip>

Similar Messages

I want sample code and tables for my requriement

Hi Experts,
I have MATNR(material no), Werks(plant) and date as selection screen fields Based on this I have to get procurement data. i.e Material
Description
Vendor
Vendor name
Product hierarchy
Qty unrestricted
Date product recieve at warehouse.
i.e.Based on MATERIAL and PLANT I have to get total unrestricted quantity of that material.
please provide me relevant tables and sample code
thanx in advance

I have MATNR(material no), Werks(plant) and date as selection screen fields Based on this I have to get procurement data. i.e
Material - <b>EKPO</b>
Description - <b>MAKT</b>
Vendor - <b>EKKO</b>
Vendor name - <b>LFA1</b>
Product hierarchy - <b>(???)</b>
Qty unrestricted -<b> EKPO</b>
Date product recieve at warehouse. <b>(EKKO)</b>
Please provide me relevant tables <b>(As Above)</b>
and
sample code -<b> You need to contact technical expert</b>

Transport request for table maintainence

Hi
I created table maintenance for a ZTABLE but it didn't ask me any transport request.So i created the entries for the table maintenance manually ( R3TR TOBJ ZEREC S ) in my transport request. Now I am afraid will it give me any error during transportation to quality client.
What do I need to do in order the system to prompt transport request.
Kindly suggest me in transporting the table maintenance.
Thanks and Regards

Hi
Welcome to SDN forum
While creating the Table Maintenance itself it will promt for the Transport request
while entering data it won't ask for transport request.
You can check in the transport request task whether the table Maintenance is created or not under that request in SE09 or SE10. check the functiongroup which you have added to this TMG while creating. In the request you can see that.
Or you can add the table entries under the request using SE03
object Directory-> change Object directory entries
there should be an entry in the request like
R3TR - TABU - < table name>
then if you transport the entries will be transported.
<b>Reward points for useful Answers</b>
Regards
Anji

Process on value request for table control

I have 10 rows in a table control,when a F4 for
a particular column in a row is called,process on value request is called here i call a customized F4 based on the structure mapped to the row,but unfortunaletly unlike the screen the mapped structure is not populated,so is
there a way of getting the structure mapped to the row.

Hi Kaushik
As I guess solution would be reading the row into the structure which the F4 screen uses.
<u><b>e.g.</b></u>
GET CURSOR LINE lv_linno .
lv_linno = lv_linno + <table_control_name>-top_line - 1 .
READ TABLE <itab> INTO <screen_structure> INDEX lv_linno.
If this is not the case, then posting your POV coding will be better to analyze your code.
*--Serdar

How to find the Transport request for table entry

Hi ,
There was certain entry made in the SAP std table and which got transported to subsequent system. I want to find the Transport Request Number which was containign that table entry and which gor transported.
Please suggest how can I find that transport number.
Thanks
Saurabh

Hi,
Yes we can get , Basis team will help.
B'coz i had same requirement my basis got the TR for me.
Take their help.
He said u can like this.
SE11 - > Table Display - > Table Entry in Menu Bar - > Transport Entries.
Rhea.

Transport request for table changes is asked only for first row changed

Hello,
We have created a maintenance dialog connected to a custom table.
In the Table Maintenance Diagog, the <i>Dialog Data Transport Details</i> is set to <i>Standard Recording Routine</i>.
In the "Maintenance Objects" screen, the transport is set to "Automatic transport".
Two questions:
1. Now can I only change the table's entry through SM30? I do not see the "pencil" icon in SM11 or SM16 anymore. Is there a way to change the table's rows in both ways?
2. When I change a row in my table through SM30, the system only asks for the CR number the FIRST time that I savea changed row. When I change other rows and save them, it does not ask for any CR that I want to use for transport. Does it mean that the system automatically knows where to put the transported rows? or that the configuration is wrong and the other changed rows will not be taken into consideration? What if I want to change the CR for only some of the changed rows?
Thank you very much every expert here

HI,
The table should be Customizeed table, i mean in the Attributes of the tabl eput it as C,
1) We can change/Insert the records from SM30, we can not ahve the pencil icon in SE11 or SM16
2) If you put the table type C, then for every entry it should ask the CR, if not then it is moving to the same request automatically
Regards
Sudheer

'how to code for table control wizard in module pool program

Hi Gurus,
Please provide me a sample code of table control wizard...
Thanks in advance!!!!
Regards,
Kranthi

Hi Kranti,
check this code... it should be helpful
*& Module pool       Z_TABLE_CONTROL_WIZARD_DEMO                       *
PROGRAM z_table_control_wizard_demo             .
DATA: BEGIN OF lt_vbak OCCURS 0,
       flag TYPE c,
       vbeln TYPE vbeln_va,
       netwr TYPE netwr,
       kunnr TYPE kunnr,
      END OF lt_vbak.
DATA: sfkunnr TYPE kunnr.
*&spwizard: declaration of tablecontrol 'TCONTROL' itself
CONTROLS: tcontrol TYPE TABLEVIEW USING SCREEN 9000.
*&spwizard: lines of tablecontrol 'TCONTROL'
DATA:     g_tcontrol_lines LIKE sy-loopc.
DATA:     ok_code LIKE sy-ucomm.
*&spwizard: output module for tc 'TCONTROL'. do not change this line!
*&spwizard: update lines for equivalent scrollbar
MODULE tcontrol_change_tc_attr OUTPUT.
DESCRIBE TABLE lt_vbak LINES tcontrol-lines.
ENDMODULE.                    "TCONTROL_change_tc_attr OUTPUT
*&spwizard: output module for tc 'TCONTROL'. do not change this line!
*&spwizard: get lines of tablecontrol
MODULE tcontrol_get_lines OUTPUT.
g_tcontrol_lines = sy-loopc.
ENDMODULE.                    "TCONTROL_get_lines OUTPUT
*&spwizard: input module for tc 'TCONTROL'. do not change this line!
*&spwizard: modify table
MODULE tcontrol_modify INPUT.
MODIFY lt_vbak
    INDEX tcontrol-current_line.
ENDMODULE.                    "TCONTROL_modify INPUT
*&spwizard: input modul for tc 'TCONTROL'. do not change this line!
*&spwizard: mark table
MODULE tcontrol_mark INPUT.
DATA: g_tcontrol_wa2 LIKE LINE OF lt_vbak.
IF tcontrol-line_sel_mode = 1.
    LOOP AT lt_vbak INTO g_tcontrol_wa2
      WHERE flag = 'X'.
      g_tcontrol_wa2-flag = ''.
      MODIFY lt_vbak
        FROM g_tcontrol_wa2
        TRANSPORTING flag.
    ENDLOOP.
ENDIF.
MODIFY lt_vbak
    INDEX tcontrol-current_line
    TRANSPORTING flag.
ENDMODULE.                    "TCONTROL_mark INPUT
*&spwizard: input module for tc 'TCONTROL'. do not change this line!
*&spwizard: process user command
MODULE tcontrol_user_command INPUT.
ok_code = sy-ucomm.
PERFORM user_ok_tc USING    'TCONTROL'
                              'LT_VBAK'
                              'FLAG'
                     CHANGING ok_code.
sy-ucomm = ok_code.
ENDMODULE.                    "TCONTROL_user_command INPUT
*   INCLUDE TABLECONTROL_FORMS                                         *
*&      Form USER_OK_TC                                               *
FORM user_ok_tc USING    p_tc_name TYPE dynfnam
                         p_table_name
                         p_mark_name
                CHANGING p_ok      LIKE sy-ucomm.
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
DATA: l_ok              TYPE sy-ucomm,
        l_offset          TYPE i.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
*&SPWIZARD: Table control specific operations                          *
*&SPWIZARD: evaluate TC name and operations                            *
SEARCH p_ok FOR p_tc_name.
IF sy-subrc <> 0.
    EXIT.
ENDIF.
l_offset = STRLEN( p_tc_name ) + 1.
l_ok = p_ok+l_offset.
*&SPWIZARD: execute general and TC specific operations                 *
CASE l_ok.
    WHEN 'INSR'.                      "insert row
      PERFORM fcode_insert_row USING    p_tc_name
                                        p_table_name.
      CLEAR p_ok.
    WHEN 'DELE'.                      "delete row
      PERFORM fcode_delete_row USING    p_tc_name
                                        p_table_name
                                        p_mark_name.
      CLEAR p_ok.
    WHEN 'P--' OR                     "top of list
         'P-' OR                     "previous page
         'P+' OR                     "next page
         'P++'.                       "bottom of list
      PERFORM compute_scrolling_in_tc USING p_tc_name
                                            l_ok.
      CLEAR p_ok.
*     WHEN 'L--'.                       "total left
*       PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.
*     WHEN 'L-'.                        "column left
*       PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.
*     WHEN 'R+'.                        "column right
*       PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.
*     WHEN 'R++'.                       "total right
*       PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.
    WHEN 'MARK'.                      "mark all filled lines
      PERFORM fcode_tc_mark_lines USING p_tc_name
                                        p_table_name
                                        p_mark_name   .
      CLEAR p_ok.
    WHEN 'DMRK'.                      "demark all filled lines
      PERFORM fcode_tc_demark_lines USING p_tc_name
                                          p_table_name
                                          p_mark_name .
      CLEAR p_ok.
*     WHEN 'SASCEND'   OR
*          'SDESCEND'.                  "sort column
*       PERFORM FCODE_SORT_TC USING P_TC_NAME
*                                   l_ok.
ENDCASE.
ENDFORM.                              " USER_OK_TC
*&      Form FCODE_INSERT_ROW                                         *
FORM fcode_insert_row
              USING    p_tc_name           TYPE dynfnam
                       p_table_name             .
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
DATA l_lines_name       LIKE feld-name.
DATA l_selline          LIKE sy-stepl.
DATA l_lastline         TYPE i.
DATA l_line             TYPE i.
DATA l_table_name       LIKE feld-name.
FIELD-SYMBOLS <tc>                 TYPE cxtab_control.
FIELD-SYMBOLS <table>              TYPE STANDARD TABLE.
FIELD-SYMBOLS <lines>              TYPE i.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
ASSIGN (p_tc_name) TO <tc>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE p_table_name '[]' INTO l_table_name. "table body
ASSIGN (l_table_name) TO <table>.                "not headerline
*&SPWIZARD: get looplines of TableControl                              *
CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.
ASSIGN (l_lines_name) TO <lines>.
*&SPWIZARD: get current line                                           *
GET CURSOR LINE l_selline.
IF sy-subrc <> 0.                   " append line to table
    l_selline = <tc>-lines + 1.
*&SPWIZARD: set top line                                               *
    IF l_selline > <lines>.
      <tc>-top_line = l_selline - <lines> + 1 .
    ELSE.
      <tc>-top_line = 1.
    ENDIF.
ELSE.                               " insert line into table
    l_selline = <tc>-top_line + l_selline - 1.
    l_lastline = <tc>-top_line + <lines> - 1.
ENDIF.
*&SPWIZARD: set new cursor line                                        *
l_line = l_selline - <tc>-top_line + 1.
*&SPWIZARD: insert initial line                                        *
INSERT INITIAL LINE INTO <table> INDEX l_selline.
<tc>-lines = <tc>-lines + 1.
*&SPWIZARD: set cursor                                                 *
SET CURSOR LINE l_line.
ENDFORM.                              " FCODE_INSERT_ROW
*&      Form FCODE_DELETE_ROW                                         *
FORM fcode_delete_row
              USING    p_tc_name           TYPE dynfnam
                       p_table_name
                       p_mark_name   .
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
DATA l_table_name       LIKE feld-name.
FIELD-SYMBOLS <tc>         TYPE cxtab_control.
FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <wa>.
FIELD-SYMBOLS <mark_field>.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
ASSIGN (p_tc_name) TO <tc>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE p_table_name '[]' INTO l_table_name. "table body
ASSIGN (l_table_name) TO <table>.                "not headerline
*&SPWIZARD: delete marked lines                                        *
DESCRIBE TABLE <table> LINES <tc>-lines.
LOOP AT <table> ASSIGNING <wa>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
    IF <mark_field> = 'X'.
      DELETE <table> INDEX syst-tabix.
      IF sy-subrc = 0.
        <tc>-lines = <tc>-lines - 1.
      ENDIF.
    ENDIF.
ENDLOOP.
ENDFORM.                              " FCODE_DELETE_ROW
*&      Form COMPUTE_SCROLLING_IN_TC
*       text
*      -->P_TC_NAME name of tablecontrol
*      -->P_OK       ok code
FORM compute_scrolling_in_tc USING    p_tc_name
                                      p_ok.
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
DATA l_tc_new_top_line     TYPE i.
DATA l_tc_name             LIKE feld-name.
DATA l_tc_lines_name       LIKE feld-name.
DATA l_tc_field_name       LIKE feld-name.
FIELD-SYMBOLS <tc>         TYPE cxtab_control.
FIELD-SYMBOLS <lines>      TYPE i.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
ASSIGN (p_tc_name) TO <tc>.
*&SPWIZARD: get looplines of TableControl                              *
CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.
ASSIGN (l_tc_lines_name) TO <lines>.
*&SPWIZARD: is no line filled?                                         *
IF <tc>-lines = 0.
*&SPWIZARD: yes, ...                                                   *
    l_tc_new_top_line = 1.
ELSE.
*&SPWIZARD: no, ...                                                    *
    CALL FUNCTION 'SCROLLING_IN_TABLE'
         EXPORTING
              entry_act             = <tc>-top_line
              entry_from            = 1
              entry_to              = <tc>-lines
              last_page_full        = 'X'
              loops                 = <lines>
              ok_code               = p_ok
              overlapping           = 'X'
         IMPORTING
              entry_new             = l_tc_new_top_line
         EXCEPTIONS
*              NO_ENTRY_OR_PAGE_ACT = 01
*              NO_ENTRY_TO           = 02
*              NO_OK_CODE_OR_PAGE_GO = 03
              OTHERS                = 0.
ENDIF.
*&SPWIZARD: get actual tc and column                                   *
GET CURSOR FIELD l_tc_field_name
             AREA l_tc_name.
IF syst-subrc = 0.
    IF l_tc_name = p_tc_name.
*&SPWIZARD: et actual column                                           *
      SET CURSOR FIELD l_tc_field_name LINE 1.
    ENDIF.
ENDIF.
*&SPWIZARD: set the new top line                                       *
<tc>-top_line = l_tc_new_top_line.
ENDFORM.                              " COMPUTE_SCROLLING_IN_TC
*&      Form FCODE_TC_MARK_LINES
*       marks all TableControl lines
*      -->P_TC_NAME name of tablecontrol
FORM fcode_tc_mark_lines USING p_tc_name
                               p_table_name
                               p_mark_name.
*&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------*
DATA l_table_name       LIKE feld-name.
FIELD-SYMBOLS <tc>         TYPE cxtab_control.
FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <wa>.
FIELD-SYMBOLS <mark_field>.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
ASSIGN (p_tc_name) TO <tc>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE p_table_name '[]' INTO l_table_name. "table body
ASSIGN (l_table_name) TO <table>.                "not headerline
*&SPWIZARD: mark all filled lines                                      *
LOOP AT <table> ASSIGNING <wa>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
    <mark_field> = 'X'.
ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines
*&      Form FCODE_TC_DEMARK_LINES
*       demarks all TableControl lines
*      -->P_TC_NAME name of tablecontrol
FORM fcode_tc_demark_lines USING p_tc_name
                                 p_table_name
                                 p_mark_name .
*&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
DATA l_table_name       LIKE feld-name.
FIELD-SYMBOLS <tc>         TYPE cxtab_control.
FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <wa>.
FIELD-SYMBOLS <mark_field>.
*&SPWIZARD: END OF LOCAL DATA------------------------------------------*
ASSIGN (p_tc_name) TO <tc>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE p_table_name '[]' INTO l_table_name. "table body
ASSIGN (l_table_name) TO <table>.                "not headerline
*&SPWIZARD: demark all filled lines                                    *
LOOP AT <table> ASSIGNING <wa>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
    <mark_field> = space.
ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines
*&      Module STATUS_9000 OUTPUT
*       text
MODULE status_9000 OUTPUT.
SET PF-STATUS 'S9000'.
SET TITLEBAR 'T9000'.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9000 INPUT
*       text
MODULE user_command_9000 INPUT.
CASE sy-ucomm.
    WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN 'DISP'.
      SELECT vbeln netwr kunnr INTO CORRESPONDING FIELDS OF TABLE lt_vbak
      FROM vbak
      WHERE kunnr = sfkunnr.
*    LEAVE TO LIST-PROCESSING [AND RETURN TO SCREEN <nnnn>].
*    By default, the dialog processor returns to the PBO processing of
*    the screen from which the list processor was called. The optional
*    addition AND RETURN TO SCREEN allows you to specify a different
*    screen in the current screen sequence at whose PBO event you want
*    to resume processing.
    when 'LIST'.
    LEAVE TO LIST-PROCESSING.
    WRITE:/ 'Time :', SY-UZEIT.
    LOOP AT LT_VBAK.
    WRITE:/ LT_VBAK-VBELN,
            LT_VBAK-NETWR,
            LT_VBAK-KUNNR.
    ENDLOOP.
    WHEN 'SUBM'.
*& You can call executable programs from other ABAP programs using the
*& following statement:
*& SUBMIT <rep>|(<field>) [AND RETURN] [<options>].
      SUBMIT z_submit_report VIA SELECTION-SCREEN AND RETURN.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
                                                 TABLE CONTROL WIZARD SE51 CODE
PROCESS BEFORE OUTPUT.
*&spwizard: pbo flow logic for tablecontrol 'TCONTROL'
module TCONTROL_change_tc_attr.
*&spwizard: module TCONTROL_change_col_attr.
loop at   LT_VBAK
       with control TCONTROL
       cursor TCONTROL-current_line.
    module TCONTROL_get_lines.
*&spwizard:   module TCONTROL_change_field_attr
endloop.
MODULE STATUS_9000.
PROCESS AFTER INPUT.
*&spwizard: pai flow logic for tablecontrol 'TCONTROL'
loop at LT_VBAK.
    chain.
      field LT_VBAK-VBELN.
      field LT_VBAK-NETWR.
      field LT_VBAK-KUNNR.
      module TCONTROL_modify on chain-request.
    endchain.
    field LT_VBAK-FLAG
      module TCONTROL_mark on request.
endloop.
module TCONTROL_user_command.
*&spwizard: module TCONTROL_change_tc_attr.
*&spwizard: module TCONTROL_change_col_attr.
MODULE USER_COMMAND_9000.
regards
padma

Request for a table entries

i need to create a request for table entries which is Ztable and has maintence screen.
so the transport option is not there
i need to transport these entries to production client
what should i do
sarangan r

Hi,
You can transport table entries from one system to other system. Take a look at this thread.
table entries transport help
Re: Table DATA transfer
First, you need to set the table attributes - DELIVERY CLASS to C.
Regards,
Ravi
Note :Please close the thread if the issue is resolved

Request for sample code of hr_ex_employee_api.actual_termination_emp

Hi,
I need sample code for hr_ex_employee_api.actual_termination_emp . anyone who worked on this api or who have knowledge of this api,Please send the sample code
Thanks and Regards
Dixit

I do not have sample code but it is not a difficult API to call. I have worked on it before, so if you have a specific question on it, happy to help out if I can.

Request for sample code, Validating XML Schema

Does anyone have some sample code to validate
an XML Schema with the Oracle parser?
Also, the classgen code seems to have more XML Schema classes in it. There is an xschema.jar full of XML Schema related code. Would it be possible to use this code?
I've tried DOMSample.java with the v2 parser. It seems to happily echo Schema based XML files that are obviously wrong. (I use Tibco's XML Authority to verify the XML file and XML Schema).

I do not have sample code but it is not a difficult API to call. I have worked on it before, so if you have a specific question on it, happy to help out if I can.

Hi guys please give me sample code for call transaction that handles error

hi guys, please give me sample code for call transaction that handles error,
please send me the sample code in which there should be all decleration part and everything, based on the sample code i will develop my code.
please do help me as it is urgent.
thanks and regards.
prasadnn.

Hi Prasad,
Check this code.
Source Code for BDC using Call Transaction
*Code used to create BDC
*& Report ZBDC_EXAMPLE                                                *
*& Example BDC program, which updates net price of item 00010 of a     *
*& particular Purchase order(EBELN).                                   *
REPORT ZBDC_EXAMPLE NO STANDARD PAGE HEADING
                      LINE-SIZE 132.
Data declaration
TABLES: ekko, ekpo.
TYPES: BEGIN OF t_ekko,
    ebeln TYPE ekko-ebeln,
    waers TYPE ekko-waers,
    netpr TYPE ekpo-netpr,
    err_msg(73) TYPE c,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko,
      it_error TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_error TYPE t_ekko,
      it_success TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_success TYPE t_ekko.
DATA: w_textout            LIKE t100-text.
DATA: gd_update TYPE i,
      gd_lines TYPE i.
*Used to store BDC data
DATA: BEGIN OF bdc_tab OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA: END OF bdc_tab.
*Used to stores error information from CALL TRANSACTION Function Module
DATA: BEGIN OF messtab OCCURS 0.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF messtab.
*Screen declaration
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
                                    TITLE text-001. "Purchase order Num
SELECT-OPTIONS: so_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME
                                    TITLE text-002. "New NETPR value
PARAMETERS: p_newpr(14)   TYPE c obligatory. "LIKE ekpo-netpr.
SELECTION-SCREEN END OF BLOCK block2.
*START-OF-SELECTION
START-OF-SELECTION.
Retrieve data from Purchase order table(EKKO)
SELECT ekkoebeln ekkowaers ekpo~netpr
    INTO TABLE it_ekko
    FROM ekko AS ekko INNER JOIN ekpo AS ekpo
      ON ekpoebeln EQ ekkoebeln
   WHERE ekko~ebeln IN so_ebeln AND
         ekpo~ebelp EQ '10'.
*END-OF-SELECTION
END-OF-SELECTION.
Check data has been retrieved ready for processing
DESCRIBE TABLE it_ekko LINES gd_lines.
IF gd_lines LE 0.
Display message if no data has been retrieved
    MESSAGE i003(zp) WITH 'No Records Found'(001).
    LEAVE TO SCREEN 0.
ELSE.
Update Customer master data (instalment text)
    LOOP AT it_ekko INTO wa_ekko.
      PERFORM bdc_update.
    ENDLOOP.
Display message confirming number of records updated
    IF gd_update GT 1.
      MESSAGE i003(zp) WITH gd_update 'Records updated'(002).
    ELSE.
      MESSAGE i003(zp) WITH gd_update 'Record updated'(003).
    ENDIF.
Display Success Report
Check Success table
    DESCRIBE TABLE it_success LINES gd_lines.
    IF gd_lines GT 0.
    Display result report column headings
      PERFORM display_column_headings.
    Display result report
      PERFORM display_report.
    ENDIF.
Display Error Report
Check errors table
    DESCRIBE TABLE it_error LINES gd_lines.
If errors exist then display errors report
    IF gd_lines GT 0.
    Display errors report
      PERFORM display_error_headings.
      PERFORM display_error_report.
    ENDIF.
ENDIF.
*&      Form DISPLAY_COLUMN_HEADINGS
      Display column headings
FORM display_column_headings.
WRITE:2 ' Success Report '(014) COLOR COL_POSITIVE.
SKIP.
WRITE:2 'The following records updated successfully:'(013).
WRITE:/ sy-uline(42).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(004), sy-vline,
          (11) 'Old Netpr'(005), sy-vline,
          (11) 'New Netpr'(006), sy-vline.
WRITE:/ sy-uline(42).
ENDFORM.                    " DISPLAY_COLUMN_HEADINGS
*&      Form BDC_UPDATE
      Populate BDC table and call transaction ME22
FORM bdc_update.
PERFORM dynpro USING:
      'X'   'SAPMM06E'        '0105',
      ' '   'BDC_CURSOR'      'RM06E-BSTNR',
      ' '   'RM06E-BSTNR'     wa_ekko-ebeln,
      ' '   'BDC_OKCODE'      '/00',                      "OK code
      'X'   'SAPMM06E'        '0120',
      ' '   'BDC_CURSOR'      'EKPO-NETPR(01)',
      ' '   'EKPO-NETPR(01)' p_newpr,
      ' '   'BDC_OKCODE'      '=BU'.                      "OK code
Call transaction to update customer instalment text
CALL TRANSACTION 'ME22' USING bdc_tab MODE 'N' UPDATE 'S'
         MESSAGES INTO messtab.
Check if update was succesful
IF sy-subrc EQ 0.
    ADD 1 TO gd_update.
    APPEND wa_ekko TO it_success.
ELSE.
Retrieve error messages displayed during BDC update
    LOOP AT messtab WHERE msgtyp = 'E'.
    Builds actual message based on info returned from Call transaction
      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
           EXPORTING
                msgid               = messtab-msgid
                msgnr               = messtab-msgnr
                msgv1               = messtab-msgv1
                msgv2               = messtab-msgv2
                msgv3               = messtab-msgv3
                msgv4               = messtab-msgv4
           IMPORTING
                message_text_output = w_textout.
    ENDLOOP.
Build error table ready for output
    wa_error = wa_ekko.
    wa_error-err_msg = w_textout.
    APPEND wa_error TO it_error.
    CLEAR: wa_error.
ENDIF.
Clear bdc date table
CLEAR: bdc_tab.
REFRESH: bdc_tab.
ENDFORM.                    " BDC_UPDATE
      FORM DYNPRO                                                   *
      stores values to bdc table                                    *
--> DYNBEGIN                                                      *
--> NAME                                                          *
--> VALUE                                                         *
FORM dynpro USING    dynbegin name value.
IF dynbegin = 'X'.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-program,
           value TO bdc_tab-dynpro,
           'X' TO bdc_tab-dynbegin.
    APPEND bdc_tab.
ELSE.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-fnam,
           value TO bdc_tab-fval.
    APPEND bdc_tab.
ENDIF.
ENDFORM.                               " DYNPRO
*&      Form DISPLAY_REPORT
      Display Report
FORM display_report.
FORMAT COLOR COL_NORMAL.
Loop at data table
LOOP AT it_success INTO wa_success.
    WRITE:/      sy-vline,
            (10) wa_success-ebeln, sy-vline,
            (11) wa_success-netpr CURRENCY wa_success-waers, sy-vline,
            (11) p_newpr, sy-vline.
    CLEAR: wa_success.
ENDLOOP.
WRITE:/ sy-uline(42).
REFRESH: it_success.
FORMAT COLOR COL_BACKGROUND.
ENDFORM.                    " DISPLAY_REPORT
*&      Form DISPLAY_ERROR_REPORT
      Display error report data
FORM display_error_report.
LOOP AT it_error INTO wa_error.
    WRITE:/      sy-vline,
            (10) wa_error-ebeln, sy-vline,
            (11) wa_error-netpr CURRENCY wa_error-waers, sy-vline,
            (73) wa_error-err_msg, sy-vline.
ENDLOOP.
WRITE:/ sy-uline(104).
REFRESH: it_error.
ENDFORM.                    " DISPLAY_ERROR_REPORT
*&      Form DISPLAY_ERROR_HEADINGS
      Display error report headings
FORM display_error_headings.
SKIP.
WRITE:2 ' Error Report '(007) COLOR COL_NEGATIVE.
SKIP.
WRITE:2 'The following records failed during update:'(008).
WRITE:/ sy-uline(104).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(009), sy-vline,
          (11) 'Netpr'(010), sy-vline,
          (73) 'Error Message'(012), sy-vline.
WRITE:/ sy-uline(104).
FORMAT COLOR COL_NORMAL.
ENDFORM.                    " DISPLAY_ERROR_HEADINGS
Hope this resolves your query.
Reward all the helpful answers.
Regards

Need sample code for Using BADI ME_PROCESS_REQ_CUST

Dear all,
Initially my requirement is to Validate the Document Type of Purchase Request ion as per material.
I have created a implementation for BADI : ME_PROCESS_REQ_CUST .
im new to OOPS-ABAP, so pls send *sample code for how to use these methods PROCESS_ITEM,
like declarations, assignment of data into internal table for further validation*.
Regards,
NIranjan.G

Hi,
get the item data ....
     *DATA : lt_item TYPE MEREQ_ITEM,
                   ls_item liek line of it_item*
         CALL METHOD im_item->GET_DATA
           RECEIVING
             RE_DATA = lt_item .
you will get the data in lt_item.. table
Thanks,
Shailaja Ainala.

Content Location request for PACKAGE failed (Code 0x80040102) - How to determine list of DP's returned from the MP

Hi there
So, existing SCCM 2012 environment, OSD functioning at other sites, been in use for a while.
New location, new DP. PXE boot system, choose the task sequence, and I get the error that the package is not found.
Look at the SMSTS.log and sure enough I see the 0x80040102 error.
I have :
Removed the offending package and redistributed it. Verified it is present on the server.
Verified the boundary has the server as a site system.
Verified the boundaries have the correct IP range, and the correct Site.
I have tried it with just a Site boundary and just a IP Range boundary.
Created a copy of my TS, removed the offending package, deployed. Same error, just with a different package ID (which tells me that it isn't the package, it is something on the server DP itself).
Rebooted both the Site server and the DP.
I'm kind of at a loss, as I would expect to see the DP show up in the below log as a DP, but I don't see it. It looks like it gets policy, and it shows under the content location request Local: 1 (which I believe says it sees 1 local content location),
but further below in the log it says Processing 0 Locations.
Very confused.
Thanks for any help...
Content location request: TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Package : packageid.3 TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Client : c713c862-e9be-4f67-a6d3-f164e05c29a2
TSPxe 8/26/2014 10:48:46 AM
1584 (0x0630)
Local : 1 TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Remote : 0 TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Internet: 0 TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Sending RequestContentLocations for packageid
TSPxe 8/26/2014 10:48:46 AM
1584 (0x0630)
Setting message signatures. TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
Setting the authenticator. TSPxe
8/26/2014 10:48:46 AM 1584 (0x0630)
CLibSMSMessageWinHttpTransport::Send: URL: siteserver.domain.local:80 CCM_POST /ccm_system/request
TSPxe 8/26/2014 10:48:46 AM
1584 (0x0630)
Request was succesful. TSPxe
8/26/2014 10:48:47 AM 1584 (0x0630)
::DecompressBuffer(65536) TSPxe
8/26/2014 10:48:47 AM 1584 (0x0630)
Decompression (zlib) succeeded: original size 99, uncompressed size 178.
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
Location Reply: <ContentLocationReply SchemaVersion="1.00"><ContentInfo/><Sites/></ContentLocationReply>
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
Processing 0 locations. TSPxe
8/26/2014 10:48:47 AM 1584 (0x0630)
LocationsList.size() > 0, HRESULT=80040102 (e:\qfe\nts\sms\framework\tscore\resolvesource.cpp,2142)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
FALSE, HRESULT=80040102 (e:\qfe\nts\sms\framework\tscore\tspolicy.cpp,1863)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
Content location request for packageid:3 failed. (Code 0x80040102)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
hr, HRESULT=80040102 (e:\qfe\nts\sms\framework\tscore\tspolicy.cpp,2626)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
Failed to resolve PackageID= TSPxe
8/26/2014 10:48:47 AM 1584 (0x0630)
(*iTSReference)->Resolve( pTSPolicyManager, dwResolveFlags ), HRESULT=80040102 (e:\qfe\nts\sms\framework\tscore\tspolicy.cpp,3412)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
m_pSelectedTaskSequence->Resolve( m_pPolicyManager, TS::Policy::TaskSequence::ResolvePolicy | TS::Policy::TaskSequence::ResolveSource, fpCallbackProc, pv, hCancelEvent), HRESULT=80040102 (e:\nts_sccm_release\sms\client\tasksequence\tsmbootstrap\tsmediawizardcontrol.cpp,1523)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
Failed to resolve selected task sequence dependencies. Code(0x80040102)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
hrReturn, HRESULT=80040102 (e:\nts_sccm_release\sms\client\tasksequence\tsmbootstrap\tsmediaresolveprogresspage.cpp,445)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
ThreadToResolveAndExecuteTaskSequence failed. Code(0x80040102)
TSPxe 8/26/2014 10:48:47 AM
1584 (0x0630)
ThreadToResolveAndExecuteTaskSequence returned code 0x80040102
TSPxe 8/26/2014 10:48:47 AM
892 (0x037C)
Setting wizard error: This task sequence cannot be run because the program files for packageid cannot be located on a distribution point. For more information, contact your system administrator or helpdesk operator.
TSPxe 8/26/2014 10:48:47 AM
892 (0x037C)

It was not just driver packages, it was whatever package was next in line in the Task Sequence.
The issue got even more strange...I added a DP from my central location to the boundary group of the site that was failing.
Now it pulls from the local DP.
If I remove the DP from my central location (that is not local to the failing site), then it stops working again.

Sample Code in BADI for Open Hub Services

Hi all,
        We have a requirement to extend(add few new fields and populate them using BADI) for the target structure of Infospoke in Open hub services.
I have 2 issues which are stopping us to proceed further.
       1.   I did this by just adding new fields in this change mode of target Structure (didn't used 'Append structure' as while saving and creating T.port request,its popping error like 'Structure not present in TRDIR).I am not able to assign this to any T.request,as of now I have saved it as Local object.How can I assign this to an request?is it possible?.
       2. After putting breakpoint in the BADI I don't see any data in the Importing table.I need some sample code in the BADI which should populate the New fields in the target structure.
It will be great if anyone of you will give us any solution for the same.
Thanks,
Rahul.
Edited by: Rahul Siddi on Oct 12, 2009 3:04 PM

Hello Rahul,
Find the code below with the steps to be implemented.
Enter your infospoke in the edit mode.
- On the Transformation tab set the indicator for the Infospoke with Transformation with BADI so that the infospoke is activated.
- This will take you to the Addin implementation/BADI builder.
- Enter the short text/description for the implementation. The implementation name is always the same as the technical name of the infospoke
- The implementation of the BADI is always filter dependant.
- In the properties tab of the infospoke enter your infospoke under the Filter specifications.
If you do not specify an InfoSpoke under Filter Specifications, then this implementation is valid for all InfoSpokes. This means that this is called up for all InfoSpokes during the extraction.
- Activate your class
- From your interface tab page, double click on the Transofrm Method and you will arrive in the class builder page
- Here you can enter the code
- To do a look up of the master data you have to write a code similar to the one I've given below. This is just an example for looking up material master.
IF FLT_VAL = 'Your infospoke'.
T_DATA_IN] = I_T_DATA_IN[.
Select zstd_cost from /bi0/pmaterial into table T_return
For all entries in T_DATA_IN
WHERE material = T_DATA_IN-material.
...Continue with your code.
Append output from T_return to your output E_T_DATA_OUT
- Activate your method. Return to the BAdI builder. Return to your InfoSpoke.
Check if you missed any of these...
Kris...

BDC for Transaction IA01 including recording from excel (sample Code)

Dear Experts,
                    Can anyone give me a sample BDC code for transaction IA01 from excel
Thanks in advance
Regards
Sayandeep

Hi,
Try This Code
report Y_P_GB01
       no standard page heading line-size 255.
         R O H M     A N D     H A A S    C O M P A N Y              *
======================================================================
Development ID : mqhpkl                                                   *
Creation Date : 24-11-2008                                           *
Developer Name : Paramesh Kalluri                                    *
Program Title : Upload the Special Ledger data from Excel to SAP    *
Description   :                                                      *
                       Constants                                     *
CONSTANTS: c_begcol TYPE i VALUE 1,
           c_begrow TYPE i VALUE 1,
           c_endcol TYPE i VALUE 10,
           c_endrow TYPE i VALUE 10.
                    Types Declaration                                *
TYPES : begin of d_itab,
data element: BUKRS
        BUKRS_001(004),
data element: DOCTY
        DOCTY_002(002),
data element: RVERS
        RVERS_003(003),
data element: BUDAT
        DATE_004(010),
data element: RTCUR
        RTCUR_005(005),
data element: GCURR_A
        GCURR_006(005),
data element:
        GD_USE_TARGET_LEDGER_007(001),
data element:
        TARGET_LEDGER_008(002),
data element: UTAB_D
        UTAB_009(030),
data element: VTCUR12
        TSL_010(019),
      end of d_itab.
                      Data Declarations                              *
DATA: it_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE,
      it_bdcmsgcoll LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE,
      XL_itab type alsmex_tabline occurs 0 with header line,
      msg_disp TYPE string.
data : it_itab type standard table of d_itab,
       wa_itab type d_itab.
                     Selection Screen                                *
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_file LIKE rlgrap-filename.
SELECTION-SCREEN: END OF BLOCK b1.
                At Selection Screen for File                        *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
perform f4_filename.
                 Start-of-selection                                  *
start-of-selection.
*Uploading the data from excel to internal table
perform excel_upload.
*Uploading to SAP
perform chek_data.
if sy-subrc ne 0.
perform format_message.
endif.
end-of-selection.
*&                   Form F4_FILENAME
      Find the file
--> p1        text
<-- p2        text
FORM F4_FILENAME .
CALL FUNCTION 'F4_FILENAME'
   IMPORTING
    FILE_NAME           = p_file.
ENDFORM.                    " F4_FILENAME
*&                   Form CHEK_DATA
      text
--> p1        text
<-- p2        text
FORM CHEK_DATA .
loop at it_itab into wa_itab.
perform bdc_dynpro      using 'SAPMGBUK' '0102'.
perform bdc_field       using 'BDC_CURSOR'
                              'GLU1-BUKRS'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ERF'.
perform bdc_field       using 'GLU1-BUKRS'
                              wa_itab-bukrs_001.
perform bdc_field       using 'GLU1-DOCTY'
                              wa_itab-docty_002.
perform bdc_field       using 'GLU1-RVERS'
                              wa_itab-RVERS_003.
perform bdc_field       using 'RGBUK-DATE'
                              wa_itab-DATE_004.
perform bdc_field       using 'GLU1-RTCUR'
                              wa_itab-RTCUR_005.
perform bdc_field       using 'RGBUK-GCURR'
                              wa_itab-GCURR_006.
perform bdc_field       using 'GD_USE_TARGET_LEDGER'
                              wa_itab-GD_USE_TARGET_LEDGER_007.
perform bdc_field       using 'TARGET_LEDGER'
                              wa_itab-TARGET_LEDGER_008.
perform bdc_field       using 'T883S-UTAB'
                              wa_itab-UTAB_009.
perform bdc_dynpro      using 'SAPMGBUK' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'GLU1-TSL'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'GLU1-TSL'
                              wa_itab-TSL_010.
perform bdc_dynpro      using 'SAPMGBUK' '0110'.
perform bdc_field       using 'BDC_OKCODE'
                              '/EBACK'.
perform bdc_field       using 'BDC_CURSOR'
                              'GLU1-TSL'.
perform bdc_dynpro      using 'SAPLSPO1' '0200'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_dynpro      using 'SAPMGBUK' '0102'.
perform bdc_field       using 'BDC_OKCODE'
                              '/EBACK'.
perform bdc_field       using 'BDC_CURSOR'
                              'GLU1-BUKRS'.
CALL TRANSACTION 'GB01' USING IT_BDCDATA MODE 'A' UPDATE 'A' MESSAGES
INTO IT_BDCMSGCOLL.
CLEAR WA_ITAB.
refresh it_bdcdata.
ENDLOOP.
ENDFORM.                    " CHEK_DATA
*&                   Form EXCEL_UPLOAD
      text
--> p1        text
<-- p2        text
FORM EXCEL_UPLOAD .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
    FILENAME                      = p_file
    I_BEGIN_COL                   = c_begcol
    I_BEGIN_ROW                   = c_begrow
    I_END_COL                     = c_endcol
    I_END_ROW                     = c_endrow
TABLES
    INTERN                        = xl_itab.
EXCEPTIONS
INCONSISTENT_PARAMETERS       = 1
UPLOAD_OLE                    = 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.
loop at xl_itab.
    case xl_itab-col.
      when '1'.
        wa_itab-bukrs_001 = xl_itab-value.
      when '2'.
        wa_itab-docty_002 = xl_itab-value.
      when '3'.
        wa_itab-RVERS_003 = xl_itab-value.
      when '4'.
        wa_itab-DATE_004 = xl_itab-value.
      when '5'.
        wa_itab-RTCUR_005 = xl_itab-value.
      when '6'.
        wa_itab-GCURR_006 = xl_itab-value.
      when '7'.
        wa_itab-GD_USE_TARGET_LEDGER_007 = xl_itab-value.
      when '8'.
        wa_itab-TARGET_LEDGER_008 = xl_itab-value.
      when '9'.
        wa_itab-UTAB_009 = xl_itab-value.
      when '10'.
        wa_itab-TSL_010 = xl_itab-value.
*at end of row.
       append wa_itab to it_itab.
*endat.
    endcase.
at end of row.
        append wa_itab to it_itab.
endat.
endloop.
ENDFORM.                    " EXCEL_UPLOAD
*&                      Form BDC_DYNPRO
      text
     -->P_0169   text
     -->P_0170   text
FORM BDC_DYNPRO USING A B.
clear it_bdcdata.
it_bdcdata-PROGRAM = A.
it_bdcdata-DYNPRO   = B.
it_bdcdata-DYNBEGIN = 'X'.
APPEND it_bdcdata.
ENDFORM.                    " BDC_DYNPRO
*&                  Form BDC_FIELD
      text
     -->P_0174   text
     -->P_0175   text
FORM BDC_FIELD USING C D.
clear
it_bdcdata.
    it_bdcdata-FNAM = C.
    it_bdcdata-FVAL = D.
   APPEND it_bdcdata.
ENDFORM.                    " BDC_FIELD
*&                  Form FORMAT_MESSAGE
      text
--> p1        text
<-- p2        text
FORM FORMAT_MESSAGE .
LOOP AT IT_BDCMSGCOLL.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
   ID              = IT_BDCMSGCOLL-MSGID
   LANG            = '-D'
   NO              = it_bdcmsgcoll-msgnr
   V1              = IT_BDCMSGCOLL-MSGV1
   V2              = IT_BDCMSGCOLL-MSGV2
   V3              = IT_BDCMSGCOLL-MSGV3
   V4              = IT_BDCMSGCOLL-MSGV4
IMPORTING
   MSG             = MSG_DISP
EXCEPTIONS
NOT_FOUND       = 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.
WRITE:/ MSG_DISP.
ENDLOOP.
ENDFORM.                    " FORMAT_MESSAGE
******************End of the Program**********
All the best

Request for ready to deploy sample code for Table Filter/ Table Utilities

Similar Messages

Maybe you are looking for