Module pool domain text display info req?

hi
i had an req to show a filed MATNR on a screen in module pool pgm,there shd be a i/p filed for material,user can select the material from the list of available materials,along with the test to be displayed for the filed next to material nos.
the list of mateiral is based on the login user name.
i am able to display the material list,but text is not coming.
pls tell me how to show the text next to matnr no. in list.
i had used the code:
loop at itab_carrid.
    clear:text.
    CALL FUNCTION 'ADS2KIPBRO_GET_DOMAIN_TEXT'
      EXPORTING
        E_TABLE          = 'MARA'
        E_FIELD          = 'MATNR'
        E_VALUE          = itab_carrid-matnr
      IMPORTING
        I_TEXT           = text
      EXCEPTIONS
        ILLEGAL_INPUT    = 1
        DOMAIN_NOT_FOUND = 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.
    move text to itab_carrid-text1.
    modify itab_carrid transporting text1.
endloop.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MATNR'
      value_org       = 'S'
    TABLES
      value_tab       = itab_carrid
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc <> 0.
ENDIF.

hi
tell me,if i made a i/p field on screen from the data variable declared in my program
like :data:actvt(3) type c.
than on layout of screen:I/P filed-actvt.
now i want to provide the f4 to this.i had written the POV for the filed,the data is there in itab,but not poping out.
code:PROCESS ON VALUE-REQUEST.
FIELD ACTVT MODULE create_dropdown_box.
TYPES: BEGIN OF type_carrid,
         actvt(3) type c,
         text1(40) type c,
       END OF type_carrid.
DATA: itab_carrid type Type_carrid occurs 0 with header line.
   itab_carrid-actvt = '001'.
    append itab_carrid.
    itab_carrid-actvt = '002'.
    append itab_carrid.
    itab_carrid-actvt = '003'.
    append itab_carrid.
    itab_carrid-actvt = '004'.
    append itab_carrid.
    itab_carrid-actvt = '005'.
    append itab_carrid.
    itab_carrid-actvt = '006'.
    append itab_carrid.
    itab_carrid-actvt = '007'.
    append itab_carrid.
endif.
clear:itab_carrid.
loop at itab_carrid.
    clear:text.
    CALL FUNCTION 'ADS2KIPBRO_GET_DOMAIN_TEXT'
      EXPORTING
        E_TABLE          = 'YLOGON1'
        E_FIELD          = 'ACTVT'
        E_VALUE          = itab_carrid-actvt
      IMPORTING
        I_TEXT           = text
      EXCEPTIONS
        ILLEGAL_INPUT    = 1
        DOMAIN_NOT_FOUND = 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.
    move text to itab_carrid-text1.
    modify itab_carrid transporting actvt text1.
endloop.
clear:itab_carrid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ACTVT'
      DYNPNR          = SY-DYNNR
      DYNPPROG        = SY-REPID
      value_org       = 'S'
    TABLES
      value_tab       = itab_carrid
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc <> 0.
ENDIF.
plz tell me how to pop out this help in screen.

Similar Messages

Module pool programming - supressing display of some fields

Moderator message: better to start a new thread.
Hi i have similar requirement to this. module pool programming - supressing display of some fields
suppose i am displying
BUKRS    0001
Sales org 0001
KUNNR    1000
i dont want todisplay if the field is blank.
suppose if sales org is blank
expected result is liek this
BUKRS    0001
KUNNR    1000
i tried through loop at screen by uisng that
i am getting output like below.
BUKRS    0001
KUNNR    1000
hello subbarao, could you tell if your problem solved.

Hi Naidu,
In PBO put
DATA: FLAG TYPE I VALUE 0.
IF SALESORG = SPACE.
FLAG = 1.
ENDIF.
LOOP AT SCREEN.
IF FLAG = 1.
    IF SCREEN-NAME = 'SALESORG'.
       SCREEN-INVISIBLE = 'X'.
       MODIFY SCREEN.
    ENDIF.
ENDIF.
ENDLOOP.
Thanks,
Chidanand

Module pool-Password text

Hi,
Is it possible to make invisible the star symbol which is coming in the text box we develop for entering the password...

Hi,
Just goto Screen element attributes in SE51 and there for input Dropdown Select
"Invisible".
Else in PBO module write
LOOP AT SCREEN.
IF SCREEN-NAME = 'FIELD1'.
SCREEN-INVISIBLE = 1.
MODIFY SCREEN.
ENDLOOP.
Regards,
Sesh

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

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

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

Module Pool - Refresh Screen Fields Progmatically

Hello All!
I have a slightly frustrating problem. I have built a Module Pool application to display shipments and their underlying deliveries (various information from each).
I have structured the application as follows
An object to store the Data. This object has an internal table of Shipments and an internal table of Deliveries. The tables are related by TKNUM. When the application needs to display a shipment, it requests the shipment's information and the underlying deliveries information from the object. The object is structured to move through the shipments with methods like "GetFirstHeader", "GetPrevHeader", "GetNextHeader", "GetLastHeader". These return the data for the application to use.
The Deliveries are displayed in a CL_SALV_TABLE, the Shipment information is displayed in textbox type fields above the table.
The form for display has buttons to trigger the "Move" methods of the data object. This currently will retrieve the new data from the object, modify the fields and the alv grid and then go back through PBO (I'm assuming because a button was pressed). This works well. It will bring in the new data and refresh the screen everything is fine.
I also have a button to print the currently displayed Shipment and Deliveries. This Print is handled through a SmartForm.
The area that is giving me troubles is my other button. Since the Application can store a range of shipments at once, I have a "Print All" button. This button moves to the first shipment in the data object,
calls the Print Form, then moves through the rest of the data object calling the Print Form for each Shipment Displayed. This happens from one button push. The problem I am running into is that the screen does not refresh when the data changes during this movement through the data objects. I believe this is due to the PBO module not being triggered yet. My question is, is there a way to refresh the screen progmatically?
I have tried SET USER-COMMAND to move through the data, instead of calling the "GetFirstHeader" and "GetNextHeader" method directly, but that has some unpredictable behavior (works in debug, not in regular execution). I have also tried a LEAVE SCREEN statement, as that would trigger the PBO, since the Next Screen is set to the same screen number, but that kills execution of that block of code at the LEAVE SCREEN STATEMENT.
I am including my code from my PAI module that runs this processing, hopefully that will help.
<< unformatable code removed >>
Moderator message - Please go through your code and post only what is relevant to your question.
Edited by: Rob Burbank on Apr 28, 2009 1:44 PM

MODULE USER_COMMAND_9999 INPUT .
CASE OK_CODE .
    WHEN 'NEXT' .
      PERFORM Next .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'PREV' .
      PERFORM Prev .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'EXIT' .
      SET SCREEN 0 .
    WHEN 'PRNT' .
      PERFORM Print .
    WHEN 'PRNA' .
      PERFORM PrintAll .
    WHEN 'BACK' .
      PERFORM HideInitials .
      SET SCREEN '1000' .
    WHEN 'CANC' .
      SET SCREEN '1000' .
    WHEN 'FRST' .
      PERFORM First .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'LAST' .
      PERFORM Last .
      PERFORM GetGridData .
      PERFORM RefreshALV .
    WHEN 'CFAX' .
      PERFORM Show6000 .
ENDCASE .
ENDMODULE .
FORM PrintAll .
DATA sPromptB TYPE STRING .
DATA sPromptM TYPE STRING .
DATA sPromptE TYPE STRING .
DATA sPromptF TYPE STRING .
DATA cAnswer TYPE C LENGTH 1 .
IF NOT oLTend->isEmpty( ) = 1 .
    sPromptB = text-995 .
    sPromptM = ITOTSHIPNUM .
    sPromptE = text-994 .
    CONCATENATE sPromptB sPromptM sPromptE INTO sPromptF SEPARATED BY SPACE .
    CALL FUNCTION 'POPUP_TO_CONFIRM'
      EXPORTING
        TITLEBAR                    = 'Print All?'
        TEXT_QUESTION               = sPromptF
        DISPLAY_CANCEL_BUTTON       = ' '
      IMPORTING
        ANSWER                      = cAnswer
      EXCEPTIONS
        TEXT_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 .
    IF cAnswer = '1' .
      PERFORM First .
      PERFORM GetGridData .
      PERFORM RefreshALV .
      " >>> Need Screen Refreshed right here
      PERFORM Print .
      DO .
        PERFORM Next .
        PERFORM GetGridData .
        PERFORM RefreshALV .
        " >>> Need Screen Refreshed right here
        PERFORM Print .
        IF oLTend->GetIndex( ) = oLTend->GetCount( ) .
          EXIT .
        ENDIF .
      ENDDO .
    ENDIF .
ENDIF .
ENDFORM .
That is the general flow. Hope that helps, if more info is needed, let me know.

Using module pool pgm, Con't modify the table field valus

Hello frnds,
i m create one rpt using module pool pgm, click display button display the table values .
Iwant to modify some fields that changes is update to table.
Bellow coding is correct or not, how can modify the fields with save changes.
TABLES : ZRFIM1.
DATA: ZREPNO TYPE ZRFIM1-ZREPNO,
ZPLANT TYPE ZRFIM1-ZPLANT,
ZRIMNO TYPE ZRFIM1-ZRIMNO,
ZRIMDAT TYPE ZRFIM1-ZRIMDAT,
DISPLAY TYPE C,
CLEAR TYPE C,
EXIT TYPE C,
SAVE TYPE C,
OK_CODE LIKE SY-UCOMM.
data : itab type table of zrfim1 with default key.
data : wa_itab type zrfim1.
CALL SCREEN 100.
*& Module STATUS_0100 OUTPUT
text
SET PF-STATUS 'SAVE'.
AT USER-COMMAND.
module STATUS_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
CASE SY-UCOMM.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'DISPLAY'.
SELECT SINGLE ZREPNO ZPLANT ZRIMNO ZRIMDAT FROM ZRFIM1
INTO (ZRFIM1-ZREPNO, ZRFIM1-ZPLANT, ZRFIM1-ZRIMNO, ZRFIM1-ZRIMDAT)
WHERE ZREPNO = ZRFIM1-ZREPNO.
WHEN 'CLEAR'.
CLEAR ZRFIM1.
WHEN 'SAVE'.
select single * from zrfim1 into wa_itab where ZREPNO = ZRFIM1-ZREPNO.
wa_itab-zrepno = ZREPNO.
wa_itab-zplant = ZPLANT.
wa_itab-zrimno = ZRIMNO.
wa_itab-zrimdat = ZRIMDAT.
modify zrfim1 from wa_itab.
ENDCASE.
endmodule.
Thanks in advance.

hello,
change the code like:
(IF ZRFIM1 is the structure has been used on screen)
wa_itab-zrepno = ZRFIM1-ZREPNO.
wa_itab-zplant = ZRFIM1-ZPLANT.
wa_itab-zrimno = ZRFIM1-ZRIMNO.
wa_itab-zrimdat = ZRFIM1-ZRIMDAT.
modify zrfim1 from wa_itab.
thanks
K.

Hiding navigation area from transaction screen--module pool

Using module pool, i am displaying a transaction screen at the click of a button.
This transaction screen also has a small navigation screen appearing on the left.I want to hide this navigation area.
How do I do it.

Hi,
Usually this is done by using the DOCKING container. You can call the method of SET_VISIBLE of the class CL_GUI_DOCKING_CONTAINER.
Regards,
Ravi
Note : Please mark the helpful answers

Picture visibility in module pool

hello ppl.
i have developed a program using module pool. i have displayed a logo on the initial screen using the class CL_GUI_PICTURE. i require to hide this logo or make it invisible on the next screen, but should always be displayed on the initial screen. i tried using SET_VISIBLE method, but its not working.
pls gimme some suggestions .
thnks...

Hi,
either use screen-group field value or
use as
loop at screen.
field-name[
screen-active    = '0'.
screen-input     = '0'.
screen-output    = '0'.
screen-invisible = '0'.
endloop.
Regards
ricky

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

Module Pool Text field should be display Bold

Hi Freinds,
I have created Module Pool.
1. My requirement is Text Field display Bold & I want to Change of Text Size.
2. After executing Menu bar option are Disable mode, I want in Enable mode.
Thx in Advance.

1) By default in PBO you can see 'MODULE status_0001 OUTPUT'
2) if you double click on that it will take you to enable the PF-STATUS (please check the below code).
3) If you double click on PF_0001 then menu painter will be opened to create status.
4) For more information[ click here.|http://help.sap.com/saphelp_nw04s/helpdata/en/d1/801ce8454211d189710000e8322d00/frameset.htm]
*&      Module STATUS_0001 OUTPUT
*       text
MODULE status_0001 OUTPUT.
SET PF-STATUS 'PF_0001'.
SET TITLEBAR 'TB_0001'.
ENDMODULE.                 " STATUS_0001 OUTPUT
regards,
~Satya

Module Pool Info REQ???

Hi
I need some info abt the deque-nque concept in module pool,also abt the commit area statemnts in it.
I had an issue,in which the user runs an application in mdoule pool,like 3 users simaltenouly at a location,if any time they press the SAVE button at the same time,the application generate a unique no. all time,but in the case of same time SAVE butting pressing,one 1 no is generated & is same displyed to all users,thus only 1 records is stored in the table,but in actual it shd be 3.
So i need to solve this ,can any one tell me how to do ?
I sthete any deque-nque concept whcih can be applicabe here,or any think like I can lock the no of users at a particular location or i can find the no. of users & than generate the no. at a location based on the users.also in the case of same time SAVE button pressing.
Plz tell me in brief,i am a beginner in module pool.
Regds

yes,this is the requirement.
Current the application is there,but the bug is there,which i hv to remove,it has to work in the same way as u written above.
Can u tell me how to do this?
the code is like this :
when 'save'.
      SELECT MAX( slip_no ) INTO v_slipno FROM zhzlagucha_wb
      WHERE werks = werks AND exyear = exyear.
      zhzlagucha_wb-slip_no = v_slipno + 1.
      APPEND zhzlagucha_wb TO agucha_wb.
      zhzlagucha_wb-addn_fld3 = itab-slip_no.
      MODIFY zhzlagucha_wb.
So i jeust need if 3-4 users simultanesouly press the save button,they shd get the indiual uniqye no.at there screen,& same shd be saved in table.

Display long text in i/o field(Module Pool)

Hi all,
I am using "CATSXT_SIMPLE_TEXT_EDITOR" function module
to type long text in module pool.
I did it successfully but my requirement is how to move
long text i entered in "CATSXT_SIMPLE_TEXT_EDITOR"
to my "input/output field text box".
can anyone plz help me to solve this problem.
Regards,
Ranjith C.

hi
The long text ur giving is getting stored in CH_Text.
So, declare a field and pass that to the FM.. so after that FM executes, then pass it on to the screen..using internal table.
data: text type CATSXT_LONGTEXT_ITAB.
CALL FUNCTION 'CATSXT_SIMPLE_TEXT_EDITOR'
EXPORTING
    IM_TITLE              =
*   IM_DISPLAY_MODE       = ' '
*   IM_START_COLUMN       = 10
*   IM_START_ROW          = 10
CHANGING
    CH_TEXT               = text. " it will fill the long text here.
Then move it to a internal table...
Regards,
Vishwa.

Module pool screen I/P Validation info req?

hi
please tel me how to validate a screen I/P in module pool.
i had a screen:1000.
there in an I/P date from: date to:
user wants,if any one puts date to < date from,there shd be an error msg,i had done it,but after it,all other fileds are disabled,but i want after error msg,it shd allow me to do the modification.
please tell how to do.
vipin

Keep the validation in one module, say, m_validate.
write the following code in screen flow logic.
CHAIN.
FIELD: date_from,
date_to.
MODULE m_validate.
ENDCHAIN .

Module pool domain text display info req?

Similar Messages

Maybe you are looking for