Text box in module pool

How to create more than 10 lines in a single trext box...Anyone help me with the code

You can add an text button on the screen and call the following function module when the user clicks on the button.
data: i_objtxt like solisti1 occurs 10 with header line.
call function 'TERM_CONTROL_EDIT'
         exporting
              titel          = text-ttl
              langu          = sy-langu
         tables
              textlines      = i_objtxt
         exceptions
              user_cancelled = 1
              others         = 2.

Similar Messages

Text elements in module pool

Hi,
How can we print Descriptions and other text as text lable in module pool????
Thx,
Shashi.

Hi,
IF you want text for box heading in moodule pool...
than just double click on that box and write for lable in text part of attribute window.
<REMOVED BY MODERATOR>
Gaurav J.
Edited by: Alvaro Tejada Galindo on Aug 15, 2008 3:46 PM

How to display a screen as Popup Dialog box in Module Pool

Hi All,
I have a requirement to display a popup dialoge box into module pool.
i need to display a screen as a popup on the current screen on a button click.I have developed a screen and in atribute tab i have defined the screen type as modal dialog box but it is displaying previous screen screen is hide i want to display on the same screen as a popup.
Thanks
Narendra

Hi Narendra,
Try to trigger the popup once it is done with the previous action might be anything.
i have shown one sample code where after i click on save button when the data is saved successfully
after that it has to trigger me a popup asking for conformation for the next action.
A small piece of code
INSERT INTO ZORMD1 VALUES WA_ZORMD1.
    IF SY-SUBRC = 0.
      G_LOCAL1 = 0.
      MESSAGE S000. " Data saved successfully and immediately call the popup
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
        EXPORTING
DEFAULTOPTION = 'Y'
TEXTLINE1 = 'SUCCESSFULLY SAVED'
          TITEL = 'POPUP FOR conformation'
         START_COLUMN         = 25
         START_ROW            = 10
        CANCEL_DISPLAY       = 'X'
       IMPORTING
ANSWER = G_PRINT
IF G_PRINT = 'J'.
PERFORM PRINT_OUT.
ENDIF.
Do the modification according to your requirement.
Cheers!!
VEnk@

How to populate list box in module pool program

How to populate list box in module pool program.
Please give me reply as soon as posible
regards,
Venu.

hi,
go thrugh the folling code .
TABLES sdyn_conn.
DATA   ok_code TYPE sy-ucomm.
Global data
TYPES: BEGIN OF type_carrid,
         carrid type spfli-carrid,
         carrname type scarr-carrname,
       END OF type_carrid.
DATA itab_carrid TYPE STANDARD TABLE OF type_carrid.
*& Processing Blocks called by the Runtime Environment                 *
Event Block START-OF-SELECTION
START-OF-SELECTION.
CALL SCREEN 100.
Dialog Module PBO
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
ENDMODULE.
Dialog Modules PAI
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'SELECTED'.
      MESSAGE i888(sabapdocu) WITH sdyn_conn-carrid.
ENDCASE.
ENDMODULE.
Dialog Module POV
MODULE create_dropdown_box INPUT.
SELECT carrid carrname
                FROM scarr
                INTO CORRESPONDING FIELDS OF TABLE itab_carrid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield        = 'CARRID'
            value_org       = 'S'
       TABLES
            value_tab       = itab_carrid
       EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.
IF sy-subrc <> 0.
ENDIF.
ENDMODULE.
the following code should be included in flow logic of screen
process on value-request.
field scarr-carrname module create_dropdown_box.
in module pool select list box.
hope it is useful.
regards,
sreelakshmi.

Is it possible to enter our own value in dropdown list box in Module Pool. How?

Dear Experts,
Being new to ABAP, I am trying my hands on Dropdownlist box on Module Pool.
I want to pull data from Ztable(Custom Table) into Dropdown list box on Screen in Module pool and be able to edit it, delete it and enter new data through it, thus thereby able to manage the Ztable. Is it possible in dropdown.
Looking forward for experts advice.
Regards
Deepika

Dear Kannan,
Thanks. But why sud I write an event in Table maintenance generator. My code is in Module Pool and it has no connection with Table Msintenance.
The I/O field Drop down list box is on the Screen in my Module Pool. I am able to pull data in it from Ztable but now I want to edit this pulled data and also want to enter new data in this dropdown list box.
Regards
Deepika

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 bold/color text message in Module pool Programming ?

Hi All ,
I need to bold /color a message in module pool . this message will come when certain conditions satisfied , currently this text message is displaying through variable . I Refereed program DD_STYLE_TABLE , but still not getting desired output . .Is there any other way to achieve the same ?
Could you please help me ?
Thanks in advance !!!!
Regards ,
Mayank K

Hi Mayank,
You can give a try this.
Within the screen you are calling give keyword
Leave to list processing
and then you can give whatever colors which are there in SAP
For making the text bold you can set Format intensified on or off depending on your requirement.
For more details you can refer to programs
program1 : demo_leave_to_list_processing
program2: demo_call_screen_from_list
Regards,
Sandeep Katoch

Need help regarding Modal dialog box in module pool programming

Hi experts,
my program need a dialo box to popup and take some data and on pressing save button in the dialog box, the popup should close and the values in the previous screen should be updated.
my problem is, when i execute the program, i am unable to close the dialog box. i tried use sy-ucomm but found it of no use.
please tell me the way to access the close button in the dialog box.

Hi,
Use the function module :-
Call function LC_POPUP_TO_CONFIRM_STEP
Exporting
TEXTLINE1 = YES
TEXTLINE2 = NO
TITEL = R U WANT TO SAVE
Exporting
ANSWER = Y.
IF SY-SUBRC = Y.
LOGIC TO SAVE DATA.
ENDIF.
REGARDS,
Mekala vijay

How to place multiple list box in Module Pool Program having same option.

I have a screen. I want to place multiple i/o box with listbox option having 10 option of each . Is it possible ?

Hi Manoj,
Sorry, did not got you. You mean list box with 10 options, just this?
Or Cascading list box?
regards,
Archer

Printing checkbox multiple time on dialog box of module pool.

hey guys,
i want to put checkboxes on my dialog box (popup) With each entry in my ITAB. So i will be dynamic.
Example;- i have 5 names of mentor in my ITAB-NAMES. now i want to put their names on popup screen with a CHECKBOX so that i can select multiple and store the selected names of mentor in another table.
i have created the Popup but not able to create dynamic checkboxes.
thanks in advance.

Hi.,
Check this links: http://wiki.sdn.sap.com/wiki/display/ABAP/OBJECTORIENTEDALV+Guide
Example of an OO ALV that reflects changes from an editable column...
which helps for your purpose.,
also http://wiki.sdn.sap.com/wiki/display/profile/2007/07/23/OOPSALVin+ABAP
For further info., search in SND or google., you will get so many links.,
hope this helps u.,
Thanks & Regards,
Kiran

Problem in Module Pool Programming

hello,
I am using module pool programming.
i want to assign the text to textbox during runtime
thanks!

Hi Raghvendra Bhanap,
declare the variable with the same name of text box(In module pool) and in the PAI even write the module by double clicking on that in your program just assign some text to that name then the text automatically come in that text box.
See this example programm.
*In Screen Painter PAI Event.*
moudle assigntext.
In your Program.
Data w_name(40). (*In the module pool also put this name only)
Module assigntext.
w_name = 'Raghvendra Bhanap'.
Endmodule.
Reward if it is useful,
Mahi.

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.

PUSH BUTTON text and tooltip dynamic in module pool

I want to change at runtime the text and tooltip of a push button which belongs to a screen of module pool (not a pf_status).
Is there anyone who can help me?

HEllo,
Check this report done by Rich,
Ok..here is my example. Most of the code was generated by screen painter via the tabstrip control wizard. Create screen 100, use the tabstrip control wizard to create your tabstrip, name it TABSTRIP. Double click on the tab text elements, rename them TABSTRIP_TEXT1 and TABSTRIP_TEXT2 for the tab text elements, make sure that the output only check box is checked.
REPORT ZRICH_0003 .
data: TABSTRIP_TEXT1(30) type c,
      TABSTRIP_TEXT2(30) type c.
start-of-selection.
call screen 100.
*&      Module STATUS_0100 OUTPUT
      text
module STATUS_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
Fill the tabstrip text elements here!
TABSTRIP_TEXT1 = 'Text 1'.
TABSTRIP_TEXT2 = 'Text 2'.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
module USER_COMMAND_0100 input.
endmodule.                 " USER_COMMAND_0100 INPUT
FUNCTION CODES FOR TABSTRIP 'TABSTRIP'
CONSTANTS: BEGIN OF C_TABSTRIP,
             TAB1 LIKE SY-UCOMM VALUE 'TABSTRIP_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TABSTRIP_FC2',
           END OF C_TABSTRIP.
DATA FOR TABSTRIP 'TABSTRIP'
CONTROLS: TABSTRIP TYPE TABSTRIP.
DATA:      BEGIN OF G_TABSTRIP,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'ZRICH_0003',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TABSTRIP-TAB1,
           END OF G_TABSTRIP.
DATA:      OK_CODE LIKE SY-UCOMM.
OUTPUT MODULE FOR TABSTRIP 'TABSTRIP': SETS ACTIVE TAB
MODULE TABSTRIP_ACTIVE_TAB_SET OUTPUT.
TABSTRIP-ACTIVETAB = G_TABSTRIP-PRESSED_TAB.
CASE G_TABSTRIP-PRESSED_TAB.
    WHEN C_TABSTRIP-TAB1.
      G_TABSTRIP-SUBSCREEN = '0101'.
    WHEN C_TABSTRIP-TAB2.
      G_TABSTRIP-SUBSCREEN = '0102'.
    WHEN OTHERS.
     DO NOTHING
ENDCASE.
ENDMODULE.
INPUT MODULE FOR TABSTRIP 'TABSTRIP': GETS ACTIVE TAB
MODULE TABSTRIP_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
    WHEN C_TABSTRIP-TAB1.
      G_TABSTRIP-PRESSED_TAB = C_TABSTRIP-TAB1.
    WHEN C_TABSTRIP-TAB2.
      G_TABSTRIP-PRESSED_TAB = C_TABSTRIP-TAB2.
    WHEN OTHERS.
     DO NOTHING
ENDCASE.
ENDMODULE.
Screen Flow is ....
PROCESS BEFORE OUTPUT.
PBO FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
MODULE TABSTRIP_ACTIVE_TAB_SET.
CALL SUBSCREEN TABSTRIP_SCA
    INCLUDING G_TABSTRIP-PROG G_TABSTRIP-SUBSCREEN.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
PAI FLOW LOGIC FOR TABSTRIP 'TABSTRIP'
CALL SUBSCREEN TABSTRIP_SCA.
MODULE TABSTRIP_ACTIVE_TAB_GET.
MODULE USER_COMMAND_0100.
Vasanth

How to create Long Text in Module Pool Program

Hi all,
I want to develop a new module pool program and I want to use Long text screen in this program and also want this text will store in table.I never develop such type of module pool before.This long text will like sales order long text.Please let me know the steps how I can develop such type of program and how I save long text huge data in table.
Thanks & Regards
Nirmal

Hai ,
here you have to use custom control, for this
DATA: line(256) TYPE c,
      text_tab LIKE STANDARD TABLE OF line,
      field LIKE line.
1) Create custom control in your screen
2)   CREATE OBJECT: container EXPORTING container_name = 'TEXTEDIT',   "--> (this is custom control name in screen)
                   editor    EXPORTING parent = container.
3) CALL METHOD editor->get_text_as_stream "This method reads data from custom control , inserts into itab 'text_tab'
         IMPORTING
          text = text_tab.                                       "
      READ TABLE text_tab INTO line INDEX 1. read the text into wa 'line'
if you want more clarity , see 'ABAPDOCU' >ABAP USER DIALOGS>    COMPLEXSCREEN ELEMENTS--> DEMO CUSTOM_CONTROL

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.

Text box in module pool

Similar Messages

Maybe you are looking for