Displaying list of materials in module pool

Hello frds,
i have senario where i have to select a push button to display list of materials in the next screen based on the range .In reports v write a select query but in module pool its not working.
PLZ help me out with simple example

Hi sai,
Please refer th procedure.
For the select-options you might have defined a selection screen.
Next you can fetch the entire data that you wanted to display in a module pool into an internal table.
you can call the screen you defined for o/p upon the selection.
Then, You define a screen XXXX and a table control in the scree, and in the PAI module of the screen
you write a chain end chain processing in which you can display the contents of your internal table.
OR
if you want the selection also to be in the module pool, then for displaying the O/P you can definr a sub-screen of the initial screen and you can call that sub-screen on selcting, which can be done with a function code.
Hope this helps

Similar Messages

Displaying MIR4 attachment list TIF image in module pool screen

Hi All,
I have a screen with a custom container and I tried to call a TIF image from MIR4 which is in attachment list(which is stored in archived link).
I need a function module to display this image in my Module pool screen using the container.
I tried using below code
* Create controls
     CREATE OBJECT container_1
       EXPORTING
         container_name = 'CONTAINER'.
*    create object container_2
*      exporting container_name = 'PICTURE_CONTROL_2'.
     CREATE OBJECT PICTURE_CONTROL_1
       EXPORTING
         parent = container_1.
*    CREATE OBJECT PICTURE_CONTROL_2 exporting parent = container_2.
CALL METHOD PICTURE_CONTROL_1->LOAD_PICTURE_FROM_URL
       EXPORTING
*    URL    = 'SAPR3://984BE16932C81EE3B2AA1E3B0D12C6FF'
*      URL    = 'file://E:\Personal\New_Passport4.jpg'
*       URL    = 'SAPR3://984BE16932C81EE3B2BDF8E44B035648.TIF'
*URL    = 'SAPR3://SAPR3CMS/get/100/Z1/984BE16932C81EE3B2BDF8E44B035648//.TIF'.
     URL    = 'SAPR3://WebRepository/0020698212/DEMOWORD97SAPLOGO?Version=00000'
     IMPORTING
          RESULT = lv_result.
CALL METHOD PICTURE_CONTROL_1->set_display_mode
     EXPORTING
       display_mode = PICTURE_CONTROL_1->display_mode_fit_center.
But I am able to display this URL    = 'SAPR3://WebRepository/0020698212/DEMOWORD97SAPLOGO?Version=00000' and not able to display my archive link image which is in TIF.
note: Display image of Arc.link Doc.type ZBUSI_TIF (doc.class TIF)
Please help me on this.
Thanks
Geetha Charan

Hi sai,
Please refer th procedure.
For the select-options you might have defined a selection screen.
Next you can fetch the entire data that you wanted to display in a module pool into an internal table.
you can call the screen you defined for o/p upon the selection.
Then, You define a screen XXXX and a table control in the scree, and in the PAI module of the screen
you write a chain end chain processing in which you can display the contents of your internal table.
OR
if you want the selection also to be in the module pool, then for displaying the O/P you can definr a sub-screen of the initial screen and you can call that sub-screen on selcting, which can be done with a function code.
Hope this helps

Dynamic date display as a heading in module pool

Dynamic date display as a heading in module pool from a ztable
the ZTABLE contain the date from which the date value is to be printed as a heading like
"BILLING FOR THE MONTH OF MAY 2010 WILL BE CLOSED ON 26/05/2010"
thanks,
Sree

Hi Sreekanth,
Simply follow below steps:
1. Create a Input/Output field in screen layout.
2. Double click on it and 'Attributes' window will get opened.
3. Give a 'Name' to it (Ex: Text) and under 'Display' tab, tick 2D display and As label on left
4. Save and Activate.
5. In PBO, use below code,
MODULE status_2000 OUTPUT.
SET PF-STATUS 'DEMO'.        " PF status
DATA: l_f_date TYPE sy-datum.
SELECT SINGLE zdate FROM ztable INTO l_f_date.         " Select Date from ur ZTABLE
text = 'BILLING FOR THE MONTH OF MAY 2010 WILL BE CLOSED ON'.
CONCATENATE text l_f_date INTO text SEPARATED BY spce.
ENDMODULE.                 " STATUS_2000 OUTPUT
6. In TOP include,
DATA: TEXT type string.     " Same name given to Input/Output field in screen layout.
7. Save & Activate.
Thanks..

List Box Problem In MODULE POOL PROGRAM(EDIT MODE)

I Have Developed A MODULE POOL PROGRAM ,
It Basically Consists Of CREATE EDIT and DISPLAY Modes.
CREATE MODE:
When I am Creating For Example FORM NO 1,it is having Fields With drop down list box with values
A,B and C. if I Choose A then That form will Get Created With A value and Form 1 will be created.
EDIT MODE:
The same form If u want to edit In EDIT Mode ,it is displaying value A and it Showing the list box in the fillowing Manner.A,B,C,and A.(This is what the problem I am Facing Know).It Is Displaying the value two times.How to Avoid this ,PLs Help me in this regard.
Thaks & Regards,
Anuradha.

Where ever you are populating the List Box, write a REFRESH statement just before that.
Means Refresh the old content and add new content

How can i display the success msg using module pool

Hi frnds,
I want to display the error mesg or success msg in a dialogbox with ok button through module pool,
Pls help me any one.
Thanks in advance.

Hi,
Check this example in SAP:
DEMO_MESSAGES -
> This is a good example of displaying messages given by SAP.
For more information on messages please visit this link:
http://help.sap.com/saphelp_nw04/helpdata/en/91/dec863880411d194cb0000e8353423/content.htm
This will tell you the complete status of each messages in the ABAP with its displaying position on the screen.
May this information helps you.
Thanks
Deepak Sharma

How to display LONG TEXT STRING in Module Pool Screen ?

Hi Experts,
I want to display long text string, on screen designed through module pool(SE51). I tried to display through input/output field , but it displays it in SINGLE LINE and i have to scroll all through to view all string.
I want to display it in rectangular format . It doesnt allow me to set HEIGHT of component.
Please provide solution.
Thanks in advance.
Regards
Deepak

This is the program where u can get the WA_THEAD from other program like report and trying to display and modifying that text. U can do instead of WA_THEAD u can generate here itself and use also
*& Module pool       ZMP_LTEXT                                         *
PROGRAM ZMP_LTEXT                               .
TABLES: STXL.
*&      Module STATUS_9000 OUTPUT
MODULE STATUS_9000 OUTPUT.
CONSTANTS:line_length type i value 132.
DATA:g_editor type ref to cl_gui_textedit,
     g_editor_container type ref to cl_gui_custom_container,
     CONT1 type scrfname value 'CONT1',
     g_repid like sy-repid,
     g_ok_code like sy-ucomm,
     g_mytable(132) type c occurs 0,
     g_mycontainer(30) type c ,
     v_result(256) type c,
     g_head like thead,
     it_line type table of tline with header line,
     wa_stxl type stxl.
DATA : BEGIN OF IT_THEAD1,
       ICON TYPE ICON-ID.
       INCLUDE STRUCTURE STXL.
DATA : END OF IT_THEAD1.
DATA : IT_THEAD LIKE TABLE OF IT_THEAD1,
       WA_THEAD LIKE LINE OF IT_THEAD.
IMPORT WA_THEAD FROM MEMORY ID 'ABCD'.
select SINGLE * from STXL into wa_stxl
                 where tdname = '00006000156500000002'.
SELECT SINGLE * from STXL into wa_stxl
                  where tdname = WA_THEAD-TDNAME
                  AND TDID = WA_THEAD-TDID
                  AND TDOBJECT = WA_THEAD-TDOBJECT
                  AND TDSPRAS = WA_THEAD-TDSPRAS.
IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD EXIST' TYPE 'E'.
ENDIF.
MOVE-CORRESPONDING WA_STXL TO G_HEAD.
SET PF-STATUS 'STATUS'.
SET TITLEBAR '001'.
if g_editor is initial.
     CREATE OBJECT G_EDITOR_CONTAINER
       EXPORTING
        PARENT                      =
         CONTAINER_NAME              = CONT1
        STYLE                       =
        LIFETIME                    = lifetime_default
        REPID                       =
        DYNNR                       =
        NO_AUTODEF_PROGID_DYNNR     =
       EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5
         others                      = 6.
     IF SY-SUBRC <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
     CREATE OBJECT G_EDITOR
       EXPORTING
        MAX_NUMBER_CHARS       =
        STYLE                  = 0
   WORDWRAP_MODE          = cl_gui_textedit=>wordwrap_at_fixed_position
for to fix number of characters in row to 132 characers
         WORDWRAP_POSITION      = line_length
         WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>true
for the word to break to next line if it dont fit in line
        FILEDROP_MODE          = DROPFILE_EVENT_OFF
         PARENT                 = G_EDITOR_CONTAINER
        LIFETIME               =
        NAME                   =
       EXCEPTIONS
        ERROR_CNTL_CREATE      = 1
        ERROR_CNTL_INIT        = 2
        ERROR_CNTL_LINK        = 3
        ERROR_DP_CREATE        = 4
        GUI_TYPE_NOT_SUPPORTED = 5
         others                 = 6 .
     IF SY-SUBRC <> 0.
     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
REFRESH g_mytable.
     MOVE: WA_THEAD-TDNAME TO STXL-TDNAME,
           WA_THEAD-TDID TO STXL-TDID,
           WA_THEAD-TDOBJECT TO STXL-TDOBJECT,
           WA_THEAD-TDSPRAS TO STXL-TDSPRAS.
    CALL FUNCTION 'READ_TEXT'
    EXPORTING
    CLIENT                        = SY-MANDT
      ID                            = wa_stxl-tdid
      LANGUAGE                      = wa_stxl-tdspras
      NAME                          = wa_stxl-tdname
      OBJECT                        = wa_stxl-tdobject
    ARCHIVE_HANDLE                = 0
    LOCAL_CAT                     = ' '
IMPORTING
    HEADER                        =
    TABLES
      LINES                         = it_line
EXCEPTIONS
    ID                            = 1
    LANGUAGE                      = 2
    NAME                          = 3
    NOT_FOUND                     = 4
    OBJECT                        = 5
    REFERENCE_CHECK               = 6
    WRONG_ACCESS_TO_ARCHIVE       = 7
    OTHERS                        = 8
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 IT_LINE INTO V_RESULT.
   APPEND V_RESULT TO G_MYTABLE.
ENDLOOP.
CALL METHOD G_EDITOR->SET_TEXT_AS_R3TABLE
   EXPORTING
     TABLE           = G_MYTABLE
   EXCEPTIONS
     ERROR_DP        = 1
     ERROR_DP_CREATE = 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.
   endif.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
REFRESH G_MYTABLE[].
REFRESH IT_LINE[].
CLEAR V_RESULT.
WHEN 'SAVE'.
     CALL METHOD G_EDITOR->GET_TEXT_AS_R3TABLE
      EXPORTING
        ONLY_WHEN_MODIFIED     = FALSE
        IMPORTING
          TABLE                  = G_MYTABLE
        IS_MODIFIED            =
      EXCEPTIONS
        ERROR_DP               = 1
        ERROR_CNTL_CALL_METHOD = 2
        ERROR_DP_CREATE        = 3
        POTENTIAL_DATA_LOSS    = 4
        others                 = 5
     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 G_MYTABLE INTO V_RESULT.
   APPEND V_RESULT TO IT_LINE.
ENDLOOP.
CLEAR V_RESULT.
    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        CLIENT                = SY-MANDT
        HEADER                = G_HEAD
        INSERT                = ' '
        SAVEMODE_DIRECT       = 'X'
      OWNER_SPECIFIED       = ' '
      LOCAL_CAT             = ' '
    IMPORTING
      FUNCTION              =
      NEWHEADER             =
      TABLES
        LINES                 = IT_LINE
    EXCEPTIONS
      ID                    = 1
      LANGUAGE              = 2
      NAME                  = 3
      OBJECT                = 4
      OTHERS                = 5
   IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
REFRESH G_MYTABLE[].
REFRESH IT_LINE[].
CLEAR V_RESULT.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE TO SCREEN '0'.
*CALL SCREEN '0'.
WHEN OTHERS.
ENDCASE.
*G_OK_CODE = SY-UCOMM.
*CLEAR SY-UCOMM.
ENDMODULE.                 " USER_COMMAND_9000 INPUT

How to display image and data in module pool screen?

Hi,
I want to display image and relevant data besides the image in module pool screen, I am using docking container to display the image.
Actually I am able to display image or data any one but not both.
one more thing I want to display multiple images and their data.
Please suggest some one if you have any idea.
Regards,
Dileep.

You can try below way, I have used in report.
DATA: gc_docking              TYPE REF TO cl_gui_docking_container, "#EC NEEDED "Docking Container
       gc_split                 TYPE REF TO cl_gui_easy_splitter_container, "#EC NEEDED "Splitter
       gc_top_container         TYPE REF TO cl_gui_container, "#EC NEEDED "Top Container
       gc_bottom_container      TYPE REF TO cl_gui_container, "#EC NEEDED "Bottom Container
      gc_document              TYPE REF TO cl_dd_document, "#EC NEEDED "Document
       gc_events                TYPE REF TO lcl_event_class, "#EC NEEDED " Local Event Class
       gc_grid                  TYPE REF TO cl_gui_alv_grid, "#EC NEEDED " ALV Class
" Creating Docking
CREATE OBJECT gc_docking
       EXPORTING
         ratio = c_95.
     IF sy-subrc EQ 0.
* Splitting the Docking container
       CREATE OBJECT gc_split
         EXPORTING
           parent        = gc_docking
           sash_position = c_10 "Position of Splitter Bar (in Percent)
           with_border   = c_1. "With Border = 1 Without Border = 0
     ENDIF.
*   Placing the containers in the splitter
     gc_top_container = gc_split->top_left_container .
     gc_bottom_container = gc_split->bottom_right_container .
*   Creating Grid
     CREATE OBJECT gc_grid
       EXPORTING
         i_parent = gc_bottom_container.
   ELSE.
* Background job handling
     CREATE OBJECT gc_grid
       EXPORTING
         i_parent = gc_docking.
   ENDIF.
*   Creating the document
   CREATE OBJECT gc_document
     EXPORTING
       style = 'ALV_GRID'.
Regards,
Sameer

Displaying report o/p in module pool screen

hi,
i have developed a report &
i want to display the report o/p using module pool screen
shall i use call screen.
pls kindly suggest me

u can use call screen,
but you can only display the O/p in ALV

Function module / table which lists screen numbers in module pool program

Hi everyone,
I wish to make a list of all screen numbers used in my module pool program Is there any FM / table which maps module pool program name with all the screens used in it?
For example, if my module pool is SAPMZPROG and it has screens 9001, 9002 and 9003, then I want to have a report as follows:
Input to the report (selection screen): SAPMZPROG
Output:
9001
9002
9003
Thanks,
Shailesh

Hello
Try tables D020S, D020T

List box values in module pool

Hi All,
Plz help me out in this regard..
I have designed a screen with 20 list boxes around and i am getting values for list boxes also.the main problem is coming when after selecting values....
that is after selecting values if i press enter on the screen the values are over written by space..
The default value for list boxes are space.
how to over come this problem...Plz help me out
Regards,
Sudha

PAI
MODULE user_command_1000 INPUT.
CASE sy-ucomm.
WHEN 'SAVER'.
         IF zrule_date_from > zrule_date_to.
            MESSAGE e000 WITH : 'RUN_VALIDITY_TO_DATE can not be Less'(001)
                                'Than RUN_VALIDITY_FROM_DATE'(002).
            EXIT.
         ENDIF.
         IF zrule_date_to < sy-datum.
            MESSAGE e000 WITH : 'RUN_VALIDITY_TO_DATE can not be Less'(003)
                                'Than System Date.'(004).
            EXIT.
         ENDIF.
         wa_rule-zrule_date_from = zrule_date_from.
         wa_rule-zrule_date_to    = zrule_date_to.
         wa_rule-zrule_name       = zrule_name.
         wa_rule-zrule_id         = zrule_id.
         wa_rule-zrule_pref       = zrule_pref.
ONCATENATE 'Where' rule_for1a operator1a values1a
             andor1 rule_for2a operator2a values2a
             andor2 rule_for3a operator3a values3a
             andor3 rule_for4a operator4a values4a
             andor4 rule_for5a operator5a values5a
             andor5 rule_for6a operator6a values6a
             andor6 rule_for7a operator7a values7a
             andor7 rule_for8a operator8a values8a
                      INTO wa_rule-zrule_clause SEPARATED BY space.
In this code andor6(7,8,etc) has (and or)
and operator8a(7a,6a etc) has (+,- <,>) and when i do enter these two get cleared. why does this happen?
MY PBO code is
MODULE status_1000 OUTPUT.
SET PF-STATUS 'RULE'.
SET TITLEBAR '1000'.
ENDMODULE.                 " STATUS_1000 OUTPUT
*&      Module fill_lists OUTPUT
For Filling List Boxes
MODULE fill_lists OUTPUT.
**********1
    name       = 'ANDOR1'.
    value-key = 1.
    value-text = 'AND'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    value-key = 2.
    value-text = 'OR'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    PERFORM LIST_BOX.
    CLEAR LIST.
**************2
    name       = 'ANDOR2'.
    value-key = 1.
    value-text = 'AND'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    value-key = 2.
    value-text = 'OR'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    PERFORM LIST_BOX.
    CLEAR LIST.
************3
    name       = 'ANDOR3'.
    value-key = 1.
    value-text = 'AND'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    value-key = 2.
    value-text = 'OR'.
    MOVE value-text TO value-text.
    APPEND value TO list.
    PERFORM LIST_BOX.
    CLEAR LIST.
etc.

Display the list in module pool program

Hi All,
I want to display the list of material like report after some user command in module pool.
How can I achive the same.
Regards
Sagar

Hi,
   If you want to display in ALV, you can use REUSE_ALV_GRID_DISPLAY FM also, which will call standard program from module pool and will display the list.
If you use module pool, it is not mandatory that you have to use only OO ALV.
You can create list output also from module pool. For that in user command you can write like
IF sy-ucomm = '.....'.
     leave to list processing and return.
     write :/ '..............'.
Endif.
Thanks and regards,
Venkat

Drop down list in module pool program.

Hi Experts,
Can any one tell me how to maintain values in dropdown list on screen of module pool.
I have ' z' module pool program in which i have screen for z tcode and i want to add new values in drop down list . please tell me where to do modification.
Regards,
Rahul S

Hi,
Check the below code.
TYPE-POOLS: VRM.
DATA:V_NUM TYPE I.
DATA:NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
DATA:I_WORKPATTERN LIKE ZWORKPAT OCCURS 0 WITH HEADER LINE.
DATA:ZPATTXT(60).
MODULE WORKPATTERN_LISTBOX OUTPUT.
NAME = 'P9434-ZWORKPATTERN'. --> Screen Field
IF V_NUM IS INITIAL.
CLEAR I_WORKPATTERN.
REFRESH I_WORKPATTERN.
SELECT *
FROM ZWORKPAT --> List box contents from the z table
INTO TABLE I_WORKPATTERN.
IF NOT I_WORKPATTERN[] IS INITIAL.
LOOP AT I_WORKPATTERN.
VALUE-KEY = I_WORKPATTERN-ZWORKPATTERN.
VALUE-TEXT = I_WORKPATTERN-ZWORKPATTERN.
APPEND VALUE TO LIST.
ENDLOOP.
ENDIF.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.
IF SY-SUBRC 0.
CLEAR SY-SUBRC.
ENDIF.
V_NUM = V_NUM + 1.
ENDIF.
Regards,
Kumar Bandanadham
Edited by: Velangini Showry Maria Kumar Bandanadham on May 26, 2009 3:53 PM

Module pool programs

Hi Experts,
I am working on Module pool programs.
My requirement is to display a report using the statement "leave to List processing."
can anyone send me the procedure for displaying a report inside a module pool with detailed steps.
Thanks
AK

Hi,
PBO.
PAI.
Module PAI.
In the program write the following code...
MODULE PAI INPUT.
LEAVE TO LIST-PROCESSING.
LOOP AT ITAB.
WRITE:/ ITAB-FIELD1, ITAB-FIELD2.
ENDLOOP.
ENDMODULE.
Thanks,
Ramakrishna

How to add logo in module pool screen

Hi Expert,
I need to display company logo in the module pool screen
how this can be added ?
Regards
Bikas

Hi,
create a custom control called 'CUSTOM_CONTROL'
CONSTANTS: CNTL_TRUE TYPE I VALUE 1,
      CNTL_FALSE type i value 0.
data:h_picture       type ref to cl_gui_picture,
     h_pic_container type ref to cl_gui_custom_container.
data: graphic_url(255),
      graphic_refresh(1),
      g_result like cntl_true.
data: begin of graphic_table occurs 0,
        line(255) type x,
      end of graphic_table.
data: graphic_size type i.
data: g_stxbmaps type STXBITMAPS,
      l_bytecnt type i,
      l_content   TYPE standard table of bapiconten initial size 0.
g_stxbmaps-tdobject = 'GRAPHICS'.
g_stxbmaps-tdname = 'ENJOY'.
g_stxbmaps-tdid = 'BMAP'.
g_stxbmaps-tdbtype = 'BMON'.
call function 'SAPSCRIPT_GET_GRAPHIC_BDS'
     exporting
          i_object       = g_stxbmaps-tdobject
          i_name         = g_stxbmaps-tdname
          i_id           = g_stxbmaps-tdid
          i_btype        = g_stxbmaps-tdbtype
     importing
          e_bytecount    = l_bytecnt
     tables
          content        = l_content
     exceptions
          not_found      = 1
          bds_get_failed = 2
          bds_no_content = 3
          others         = 4.
call function 'SAPSCRIPT_CONVERT_BITMAP'
     exporting
          old_format               = 'BDS'
          new_format               = 'BMP'
          bitmap_file_bytecount_in = l_bytecnt
     importing
          bitmap_file_bytecount = graphic_size
     tables
          bds_bitmap_file        = l_content
          bitmap_file            = graphic_table
     exceptions
          others                 = 1.
call function 'DP_CREATE_URL'
     exporting
        type                 = 'image'
        subtype              = cndp_sap_tab_unknown
        size                 = graphic_size
        lifetime             = cndp_lifetime_transaction
     tables
        data                 = graphic_table
     changing
        url                  = graphic_url
     exceptions
        others               = 4 .
create object h_pic_container
       exporting container_name = 'CUSTOM_CONTROL'.
create object h_picture exporting parent = h_pic_container.
call method h_picture->set_display_mode
     exporting
          display_mode = cl_gui_picture=>display_mode_normal.
call method h_picture->load_picture_from_url
     exporting url    = graphic_url
     importing result = g_result.
or you can check the program RSDEMO_CUSTOM_CONTROL
check link :
How to insert Image on Screen
thanks
Parvathi

SUBMIT statement for MD03 not working (module pool)

I am trying to use SUBMIT stament for transaction MD03.
SUBMIT SAPMM61X USING SELECTION-SETS OF PROGRAM '200'
WITH matnr = matnr
WITH werks = werks
WITH versl = versl
WITH baner = baner
WITH lifkz = lifkz
WITH diser = diser
WITH plmod = plmod
WITH trmpl = trmpl
WITH dispd = dispd
WITH ANZDL = ANZDL
EXPORTING LIST TO MEMORY
AND RETURN.
But getting RUNTIME error
Error analysis
You attempted to start the ABAP/4 program "SAPMM61X" with SUBMIT, but the
    attributes specify this program as type "M" instead of "1". You can
    only start programs of type 1 with SUBMIT.
I want to run MD03 thru a wrapper program and get back the values.
Thanks,
AP
Edited by: Julius Bussche on Jul 23, 2009 9:35 PM
Subject title improved...

Thers is correction to what I posted above
MD03 is working fine with call trasaction as we work with one item and one layer. Only one matarial i can capture that.
But for MD02 we have single-tem and multiple layer. After the tranaction is excute there is Button on the output screen When clicked on it, it displays list of materials (layer). I need to capture the list how do i caapture it in a internal table.

Displaying list of materials in module pool

Similar Messages

Maybe you are looking for