How to provide f4 help

Hi guys,
here i amproviding some sample code.
requirement is uploading data from xl to internal table.
problem is how to provide f4 help for file name.
using cl_gui_frontend_services.
type mismatching is occuring.
DATA: wa_filename1 TYPE file_table,        "for method
       wa_filename2 TYPE rlgrap-filename,   "for function module
       wa_data TYPE alsmex_tabline.
DATA:    t_data TYPE STANDARD TABLE OF alsmex_tabline.
DATA:      file_count TYPE i.
selection-screen begin of block bk1 with frame title text-001.
parameters:p_fname type char10.
selection-screen end of block bk1.
at selection-screen on value-request for p_fname.
Method to get filename
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
    window_title            = 'Excel file name'
CHANGING
    file_table              = P_fname
    rc                      = file_count
EXCEPTIONS
    file_open_dialog_failed = 1
    cntl_error              = 2
    error_no_gui            = 3
    not_supported_by_gui    = 4
    OTHERS                  = 5.
start-of-selection.
LOOP AT p_fname INTO wa_filename1.
wa_filename2 = wa_filename1.
To upload excel to internal table
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = wa_filename2
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 2
      i_end_row               = 88
    TABLES
      intern                  = t_data
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
*ENDLOOP.
u can expect more rewards.

my code sample:
REPORT zcobkk01.
* INCLUDES                                                             *
INCLUDE zcobkk01top.
* SELECTION-SCREEN                                               *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER p_file TYPE string OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
* AT SELECTION-SCREEN                                                          *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR it_file.
CLEAR v_rc.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'title here'
      initial_directory       = 'C:'
    CHANGING
      file_table              = it_file
      rc                      = v_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
IF sy-subrc EQ 0.
    READ TABLE it_file INDEX 1 INTO p_file.
ENDIF.
* START-OF-SELECTION                                                   *
START-OF-SELECTION.
PERFORM load_file USING p_file
                         CHANGING it_return.
IF it_return IS NOT INITIAL.
    PERFORM validate_data USING it_return
                          CHANGING it_input
                                    it_err.
    PERFORM display_err CHANGING it_err.
ELSE.
    WRITE: 'Error'.
ENDIF.

Similar Messages

How to provide F4 help in a selection screen

Hi..
   How to provide F4 help in a selection screen for a particular field using
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'.
Thanks in Advance.
Regards
Raj Kumar

AT SELECTION SCREEN
at selection-screen on value-request for s_contr-low.
Get contract (low value)
perform get_contract changing s_contr-low.
form get_contract changing p_contr .
types: begin of ty_ycontract,
           ycontract type xchcontract-ycontract,
           lifnr     type xchcontract-lifnr,
           ycontdate type xchcontract-ycontdate,
           ycont_end_dt type xchcontract-ycont_end_dt ,
         end of ty_ycontract.
data: ds_returntab   type ddshretval,
        dt_returntab   type table of ddshretval,
        dl_fieldname     type dfies-fieldname.
data: dt_ycontract type table of ty_ycontract.
select ycontract lifnr ycontdate ycont_end_dt
    from xchcontract
    into table dt_ycontract.
if sy-subrc = 0.
    clear dl_fieldname.
    dl_fieldname = 'YCONTRACT'.
    call function 'F4IF_INT_TABLE_VALUE_REQUEST'
      exporting
        retfield        = dl_fieldname
        value_org       = 'S'
      tables
        value_tab       = dt_ycontract
        return_tab      = dt_returntab
      exceptions
        parameter_error = 1
        no_values_found = 2
        others          = 3.
    if sy-subrc = 0.
      clear ds_returntab.
      read table dt_returntab into ds_returntab index 1.
      if sy-subrc = 0.
        p_contr = ds_returntab-fieldval.
      endif.
    endif.
endif.
endform.

How to Provide search Help for files on Application Server

Hi Guys,
               Can anyone tell me How to Provide search Help for files on Application Server. I have put a file name on selection screen. I want to give search help for files on application server.
Thanks & Regards.
Harish.

Hi Harish,
Use the following code,
tables sxpgcotabe.
data: lt_execprot LIKE btcxpm OCCURS 0 WITH HEADER LINE,
        w_filepath(60)       TYPE c, --> length depending on your Directory path.
SELECT SINGLE *
    FROM sxpgcotabe
         WHERE name = 'LIST_DB2DUMP'
           AND opsystem = sy-opsys.
IF sy-subrc <> 0.
    SELECT SINGLE *
      FROM sxpgcotabe
           WHERE name = 'LIST_DB2DUMP'
             AND opsystem = 'UNIX'.
    IF sy-subrc <> 0.
      MESSAGE e000 WITH 'External operating system command '
                        'LIST_DB2DUMP not found'.
    ENDIF.
ENDIF.
sxpgcotabe-parameters = p_filepath. --> provide the directory path.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
       EXPORTING
            commandname                   = sxpgcotabe-name
            additional_parameters         = sxpgcotabe-parameters
            operatingsystem               = sxpgcotabe-opsystem
       TABLES
            exec_protocol                 = lt_execprot
       EXCEPTIONS
            no_permission                 = 1
            command_not_found             = 2
            parameters_too_long           = 3
            security_risk                 = 4
            wrong_check_call_interface    = 5
            program_start_error           = 6
            program_termination_error     = 7
            x_error                       = 8
            parameter_expected            = 9
            too_many_parameters           = 10
            illegal_command               = 11
            wrong_asynchronous_parameters = 12
            cant_enq_tbtco_entry          = 13
            jobcount_generation_error     = 14
            OTHERS                        = 15.
IF sy-subrc <> 0.
    MESSAGE e000 WITH text-e01 p_filepath. "Directory failed
ENDIF.
Loop round the directory list, split each line up into a line table
and get the last data for each line, should be the filename
Then build the dirlist.
REFRESH t_dirlist.
LOOP AT lt_execprot.
    REFRESH t_dirline.
    SPLIT lt_execprot-message AT space INTO TABLE t_dirline.
    DESCRIBE TABLE t_dirline LINES w_nolines.
    READ TABLE t_dirline INDEX w_nolines.
    MOVE t_dirline-data TO t_dirlist-filename.
    APPEND t_dirlist.
ENDLOOP.
Here you will get all the files in the directory mentioned in Application server.
For displaying them as a Search help use the FM '/BMC/ZPOPUP_GET_VALUE'
Pass the Internal table to this FM.
Regards,
Paul.

How to provide input help for a variant

Hi,
I have a parameter on the selection screen.
P_layout like disvariant-variant value check.
How do I provide input help for this parameter and also how do i check wheather the input entered is correct or not.

Hi,
You can create a serch help for the field and add it in program like:
P_layout like disvariant-variant match-code object 'Searche help name'.
then if you need to do any validation u can do it at selection screen:
like:
at selection-screen for P_layout.
if..conditions..
regards,

How to provide search help for input field

Hi Experts,
I have a field WBS elements on my selection screen view1 . I need to provide search help for that.
Can anyone please help how to proceed with that?
Regards,
Chitrasen

hi ,
pls refer this WIKI on SDN :
http://wiki.sdn.sap.com/wiki/display/WDABAP/UsingSearchhelpattachmentsforWebDynproABAP
refer this online SAP help :
http://help.sap.com/saphelp_nwmobile71/helpdata/en/3d/e53642e2a3ab04e10000000a1550b0/content.htm
also go thru this thhread :
Re: search help event
regards,
amit

How to provide F4 help for a field in table control

Hi Friends,
I have requirement like below.
1.Create one custom transaction code with header and item information.
2.In item level, we will be designed table control to enter/display the data.
3.Table controls first field will be material number and next DOT number (Material may have many DOT numbers) and so on.
4.First user will enter material number in the table controls first rows first field and go to DOT number field.
5.DOT number has drop down option. If user selects drop down box of DOT number, he gets all the DOT numbers available in database. User selects one DOT number and double clicks on it then it will be populated in DOT number field box.
But for point number 5, business wants like when ever user enters material number in table control first field then select DOT numbers drop down then they want to see the particular materials DOT numbers only in the drop down list for selection. Not all DOT numbers available in data base. Same thing should happen for all item lines in table control.
Please see below example.
Assume data base table has 10 DOT numbers. But material number has only 2 DOT numbers. When ever user enters material number in item level table control and selects DOT numbers drop down then it should show only 2 DOT numbers which are related to particular material number. Not all 10 DOT numbers.
Could you please suggest me, how can we achieve this?

Hello,
Check this :-
For POV
Input Help in Dialog Modules
You can call dialog modules in the POV event using the event keyword PROCESS ON VALUE-REQUEST.
PROCESS ON VALUE-REQUEST.
FIELD <f> MODULE <mod>.
After the PROCESS ON VALUE-REQUEST statement, you can only use the MODULE statement together with the FIELD statement. When the user chooses F4 for a field <f>, the system calls the module <mod> belonging to the FIELD <f> statement. If there is more than one FIELD statement for the same field <f>, only the first is executed. The module <mod> is defined in the ABAP program like a normal PAI module. However, the contents of the screen field <f> are not available, since it is not transported by the FIELD statement during the PROCESS ON HELP-REQUEST event. You can now program your own value lists in the module. However, this procedure is only recommended if it really is not possible to use a search help. Defining search helps is much easier than PROCESS ON VALUE-REQUEST, since the system takes over some of the standard operations, such as getting field contents from the screen. It also ensures that the F4 help has a uniform look and feel throughout the system. Furthermore, it means that you do not have to reassign input help to fields on each screen.
Despite the introduction of search helps (and search help exits), there are still cases in which you need to use parts of the standard F4 functions directly. In this case, there are some standard function modules that you can use in the POV event. They support search helps, as well as all other kinds of input help, and are responsible for data transport between the screen and the input help. These all have the prefix F4IF_. The most important are:
F4IF_FIELD_VALUE_REQUEST
Calls the input help of the ABAP Dictionary dynamically. You can pass the component names of a structure or database table of the ABAP Dictionary to the function module in the import parameters TABNAME and FIELDNAME. The function module starts the ABAP Dictionary input help for this component. All of the relevant screen fields are read. If you specify the import parameters DYNPPROG, DYNPNR, and DYNPROFIELD, the users selection is returned to the corresponding field on the screen. If you specify the table parameter RETURN_TAB, the selection is returned into the table instead.
F4IF_INT_TABLE_VALUE_REQUEST
This function module displays a value list that you created in an ABAP program. The value list is passed to the function module as the table parameter VALUE_TAB. If you specify the import parameters DYNPPROG, DYNPNR, and DYNPROFIELD, the users selection is returned to the corresponding field on the screen. If you specify the table parameter RETURN_TAB, the selection is returned into the table instead.
There are also two function modules - DYNP_VALUES_READ and DYNP_VALUES_UPDATE - that can read the values of screen fields and return values to them during the POV event. For further information, refer to the relevant function module documentation.
Input help in dialog modules
REPORT DEMO_DYNPRO_F4_HELP_MODULE.
TYPES: BEGIN OF VALUES,
CARRID TYPE SPFLI-CARRID,
CONNID TYPE SPFLI-CONNID,
END OF VALUES.
DATA: CARRIER(3) TYPE C,
CONNECTION(4) TYPE C.
DATA: PROGNAME LIKE SY-REPID,
DYNNUM LIKE SY-DYNNR,
DYNPRO_VALUES TYPE TABLE OF DYNPREAD,
FIELD_VALUE LIKE LINE OF DYNPRO_VALUES,
VALUES_TAB TYPE TABLE OF VALUES.
CALL SCREEN 100.
MODULE INIT OUTPUT.
PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.
CLEAR: FIELD_VALUE, DYNPRO_VALUES.
FIELD_VALUE-FIELDNAME = 'CARRIER'.
APPEND FIELD_VALUE TO DYNPRO_VALUES.
ENDMODULE.
MODULE CANCEL INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE VALUE_CARRIER INPUT.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = 'DEMOF4HELP'
FIELDNAME = 'CARRIER1'
DYNPPROG = PROGNAME
DYNPNR = DYNNUM
DYNPROFIELD = 'CARRIER'.
ENDMODULE.
MODULE VALUE_CONNECTION INPUT.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = PROGNAME
DYNUMB = DYNNUM
TRANSLATE_TO_UPPER = 'X'
TABLES
DYNPFIELDS = DYNPRO_VALUES.
READ TABLE DYNPRO_VALUES INDEX 1 INTO FIELD_VALUE.
SELECT CARRID CONNID
FROM SPFLI
INTO CORRESPONDING FIELDS OF TABLE VALUES_TAB
WHERE CARRID = FIELD_VALUE-FIELDVALUE.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'CONNID'
DYNPPROG = PROGNAME
DYNPNR = DYNNUM
DYNPROFIELD = 'CONNECTION'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = VALUES_TAB.
ENDMODULE.
The next screen (statically defined) for screen 100 is itself. It has the following layout:
The input fields have been adopted from the program fields CARRIER and CONNECTION. The pushbutton has the function code CANCEL with function type E.
The screen flow logic is as follows:
PROCESS BEFORE OUTPUT.
MODULE INIT.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
PROCESS ON VALUE-REQUEST.
FIELD CARRIER MODULE VALUE_CARRIER.
FIELD CONNECTION MODULE VALUE_CONNECTION.
When the user chooses input help for the individual fields, the following is displayed:
For the Airline field, the POV module VALUE_CARRIER is called. The function module F4IF_FIELD_VALUE_REQUEST displays the input help for the component CARRIER1 of the structure DEMOF4HELP from the ABAP Dictionary, namely the search help DEMOF4DE. The users selection is returned to the screen field CARRIER.
For the Flight number field, the POV module VALUE_CONNECTION is called. The function module DYNP_VALUE_READ transports the value of the screen field CARRIER into the program. The program then reads the corresponding values from the database table SPFLI into the internal table VALUES_TAB using a SELECT statement, and passes the internal table to F4IF_INT_TABLE_VALUE_REQUEST. This displays the internal table as input help, and places the users selection into the screen field CONNECTION.
For POH------------
Field Help
There are three ways of displaying field help for screen elements:
Data Element Documentation
If you place a field on the screen in the Screen Painter by copying a ABAP Dictionary field, the corresponding data element documentation from the ABAP Dictionary is automatically displayed when the user chooses field help (as long as the help has not been overridden in the screen flow logic).
For further information about creating data element documentation, refer to data elements.
Data Element Supplement Documentation
If the data element documentation is insufficient, you can expand it by writing a data element supplement
Data element supplement documentation contains the heading Definition, as well as the following others:
Use
Procedure
Examples
Dependencies
To create data element supplement documentation for a screen, choose Goto ® Documentation ® DE supplement doc. from the element list of the screen. A dialog box appears in which the system proposes a number as the identified for the data element supplement. You can then enter help texts for the above headings using the SAPscript editor.
Data element supplement documentation created in this way is program- and screen-specific. Any data element supplement documentation created in the ABAP Dictionary with the same number is overridden by the screen-specific documentation. You can link existing data element supplement documentation created in the ABAP Dictionary with a screen field by using the table THLPF. To do this, crate a new row in THLPF containing the following data: Program name, screen name, field name, and number of the data element supplement documentation.
To display data element supplement documentation, you must code the following screen flow logic in the POH event:
PROCESS ON HELP-REQUEST.
FIELD <f> [MODULE <mod>] WITH <num>.
After PROCESS ON HELP-REQUEST, you can only use FIELD statements. If there is no PROCESS ON HELP-REQUEST keyword in the flow logic of the screen, the data element documentation for the current field, or no help at all is displayed when the user chooses F1. Otherwise, the next FIELD statement containing the current field <f> is executed.
If there is screen-specific data element supplement documentation for the field <f>, you can display it by specifying its number <num>. The number <num> can be a literal or a variable. The variable must be declared and filled in the corresponding ABAP program.
You can fill the variables, for example, by calling the module <mod> before the help is displayed. However, the FIELD statement does not transport the contents of the screen field <f> to the ABAP program in the PROCESS ON HELP-REQUEST event.
For further information about data element supplement documentation, refer to Data Element Supplements.
Calling Help Texts from Dialog Modules
If data element supplement documentation is insufficient for your requirements, or you want to display help for program fields that you have not copied from the ABAP Dictionary, you can call dialog modules in the POH event:
PROCESS ON HELP-REQUEST.
FIELD <f> MODULE <mod>.
After the PROCESS ON HELP-REQUEST statement, you can only use the MODULE statement together with the FIELD statement. When the user chooses F1 for a field <f>, the system calls the module <mod> belonging to the FIELD <f> statement. If there is more than one FIELD statement for the same field <f>, only the first is executed. However, the contents of the screen field <f> are not available in the module <mod>, since it is not transported by the FIELD statement during the PROCESS ON HELP-REQUEST event. The field help should not be dependent on the user input.
The module <mod> is defined in the ABAP program like a normal PAI module. The processing logic of the module must ensure that adequate help is displayed for the field in question. Instead of calling an extra screen with text fields, you should use one of the following function modules to display a suitable SAPscript document:
HELP_OBJECT_SHOW_FOR_FIELD
This function module displays the data element documentation for components of any structure or database table from the ABAP Dictionary. You pass the name of the component and structure or table to the import parameters FIELD and TABLE.
HELP_OBJECT_SHOW
Use this function module to display any SAPscript document. You must pass the document class (for example, TX for general texts, DE for data element documentation) and the name of the document to the import parameters DOKCLASS and DOKNAME. For technical reasons, you must also pass an empty internal table with the line type TLINE to the tables parameter of the function module.
For further information about how to create SAPscript documents, refer to the Documentation of System Objects documentation.
Field help on screens.
REPORT DEMO_DYNPRO_F1_HELP.
DATA: TEXT(30),
VAR(4),
INT TYPE I,
LINKS TYPE TABLE OF TLINE,
FIELD3, FIELD4.
TABLES DEMOF1HELP.
TEXT = TEXT-001.
CALL SCREEN 100.
MODULE CANCEL INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE F1_HELP_FIELD2 INPUT.
INT = INT + 1.
CASE INT.
WHEN 1.
VAR = '0100'.
WHEN 2.
VAR = '0200'.
INT = 0.
ENDCASE.
ENDMODULE.
MODULE F1_HELP_FIELD3 INPUT.
CALL FUNCTION 'HELP_OBJECT_SHOW_FOR_FIELD'
EXPORTING
DOKLANGU = SY-LANGU
DOKTITLE = TEXT-002
CALLED_FOR_TAB = 'DEMOF1HELP'
CALLED_FOR_FIELD = 'FIELD1'.
ENDMODULE.
MODULE F1_HELP_FIELD4 INPUT.
CALL FUNCTION 'HELP_OBJECT_SHOW'
EXPORTING
DOKCLASS = 'TX'
DOKLANGU = SY-LANGU
DOKNAME = 'DEMO_FOR_F1_HELP'
DOKTITLE = TEXT-003
TABLES
LINKS = LINKS.
ENDMODULE.
The next screen (statically defined) for screen 100 is 100. It has the following layout:
The screen fields DEMOf1HELP-FIELD1 and DEMOF1HELP-FIELD2 from the ABAP Dictionary and the program fields FIELD3 and FIELD4 are assigned to the input fields. The pushbutton has the function code CANCEL with function type E.
The screen flow logic is as follows:
PROCESS BEFORE OUTPUT.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
PROCESS ON HELP-REQUEST.
FIELD DEMOF1HELP-FIELD2 MODULE F1_HELP_FIELD2 WITH VAR.
FIELD FIELD3 MODULE F1_HELP_FIELD3.
FIELD FIELD4 MODULE F1_HELP_FIELD4.
The components FIELD1 and FIELD2 of structure DEMOF1HELP both refer to the data element DEMOF1TYPE. This data element is documented, and also has two supplements with numbers 0100 and 0200.
The following field help is displayed:
When the user chooses F1 on the input field for DEMOF1HELP-FIELD1, the data element documentation for DEMOF1TYPE is displayed, since the field does not occur in the PROCESS ON HELP-REQUEST event.
If the user chooses F1 repeatedly for the input field DEMOF1HELP-FIELD2, the data element documentation is displayed, along with the supplement documentation for either 0100 or 0200 alternately. The variable VAR is filled in the dialog module F1_HELP_FIELD2.
When the user chooses F1 on the input field for FIELD3, the data element documentation for DEMOF1TYPE is displayed, since this is called in the dialog module F1_HELP_FIELD3 by the function module HELP_OBJECT_SHOW_FOR_FIELD.
When the user chooses F1 on the input field for FIELD4, the SAPscript documentation DEMO_FOR_F1_HELP is displayed, since this is called in the dialog module F1_HELP_FIELD4 by the function module HELP_OBJECT.
Regards,
Deepu.K

How to provide F4 help for given field

Hello Experts,
IN moduleprogram screen i have 3 fields .
Plant , material and sorage location.
Based on plant and materil i need to provide the possible values of storage location when we press on F4 on storage location field.
Pleasegive me the code asap.

Hi Raja
Pls go thru the code.
Pls reward pts if help.
Deepanker
REPORT Ztest_HELP .
TABLES : MARA.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_MATNR(10) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
DATA : BEGIN OF ITAB OCCURS 0,
MATNR TYPE MATNR,
END OF ITAB.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.
SELECT MATNR
FROM MARA
INTO TABLE ITAB
UP TO 10 ROWS.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'MATERIAL NUMBER'
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'P_MATNR'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = ITAB
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.
Pls reward pts if help.

How can we provide F4 help for parameter field.

Hi All,
How can I provide F4 help for parameter field.
Regards,
Amar

hi,
different ways of applying search help are :
you can use anyone:
1) CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
or
2)
can follow these simple steps for search help:
go to se11==> put some name after ticking search help radiobutton==> create==>
then tick " elementery search help " and press enter ===>then put description and table name in selection method ===>then put the field on which u want search help
in search help parameter==> tick IMP EXP ==> write 1 in lpos and spos===>save and activate===> double click on table name ===> select that field and press *search help tab* above===> then copy
3 )
methods of applyind search help:
For search help sometimes we use MATCHCODE----->when we apply it directly to parameter or select option.they are obselete now ii.For search help sometimes we CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' ??------->if we want to populate data of internal table as search help.
iii.For search help sometimes we declare tablename-fieldname in selection?------>if that field in that table is having seach help or check table ..F4 will be avaliable directly.
also:
Fixed value of domain can also work as search help.
i hope it will help u a lot
thaks and regards
rahul sharma

How to provide text formatting options to user from a text field

Hi,
My requirement is - in the interactive form, a comments field needs to be provided where user should be able to enter text with formatting options like
Headers
indentations
bold/italic
bullet points and numbers
Once user enters the formatted texts in a text field, data needs to be displayed/printed in the same format. Could you help me on how to provide these formatting options to the user for a particular text field?
I understand that once I define the text field with format XHTML (with RTF), user formatting can be captured and displayed in the same way. But I am not sure on how to provide the formatting options for the text field.
Thank you,
Madhu

Hi,
if you select a text field for Rich Text and the press Ctrl + E you'll get a bar for all available text formatting options in Acrobat/Reader.

How to provide text editor in dialog program

i have a requirement to enter upto 300 words in a dialog box how to provide text editor in dialog program

you can use the custom controls for the same
check this below link may be useful for you.........
http://help.sap.com/saphelp_nw04/helpdata/en/2a/755b94ca5911d299af5c9604c10e27/content.htm

How to link Value Helps in Visual Composer?

I would like to know, how to link value helps in VC...??? It's like.....after selecting a value from Value Help 1, how do i restrict my Value Help 2 values so that it contains the values that are relevant to the value selected from Value Help 1 only....???? Request you to please provide the solution.......

Hi Christophe
Thanks so much for your help. I have been trying to do the way that you have suggested but am unsuccessfull...... Can you please tell me as to where should I create a field in the second popup view...??? After I double click on the link between "Start" and the "BAPI" in the second popup view...... , I find no "+" symbol in the "Configure Element Panel" using which I can add the value taken from the first popup view.....
Is there any pdf file or documentation that shows as to how to do this process...????
Waiting for your response..... Thanks for your suggestion.....
Regards
Deepak Jaju

How to provide validation for a particular field of screen

Hi Experts,
For my project, I have created a screen. In the screen, we have one field. For this field we have provided F4 help. When the user clicks on the F4 list of values is displayed.
I have to provide following condition for this field.
User should only select values from this F4 list only. If the user tries to enter any data which is not contained in the list, system should throw message that 'Invalid data. Select valid values".
Can you please let me know how I can do so?
The relevant portion of code is
CASE save_ok_code.
    WHEN 'EXIT'.
     LEAVE PROGRAM.
    WHEN 'BACK'.
      PERFORM exit.
    WHEN 'CANCEL'.
     LEAVE PROGRAM.
    WHEN 'SAVE'.
      CALL FUNCTION 'MESSAGES_INITIALIZE'.
      PERFORM check_batch CHANGING fl_error.
      IF fl_error IS INITIAL.
        PERFORM save.
        IF sy-subrc EQ 0.
          CLEAR gv_deleted.
          PERFORM update_alv_grid_display.
***for message display
          CALL FUNCTION 'MESSAGES_SHOW'.
        ENDIF.
      ELSE.
        CALL FUNCTION 'MESSAGE_STORE'
          EXPORTING
            arbgb = 'ZEX_MYPROJECT'
            msgty = 'S'
            txtnr = '053'
            msgv1 = text-008
          EXCEPTIONS
            OTHERS = 3.
        CHECK sy-subrc = 0.
        CALL FUNCTION 'MESSAGES_SHOW'.
      ENDIF.
    WHEN OTHERS.
      CALL METHOD cl_gui_cfw=>dispatch.
I am totally new for ABAP. So, please help me out.
Thanks
Smith

Hi,
Try this.
Create an internal table and populated it with the values present in the F4 help of the field. Then in AT SELECTION-SCREEN event check the value of the field with the values in the internal table and display the appropriate message.
Sharin.

How to Use F4 help in Module Pool Programming??????

Hi Friends,
This is Jagadeesh, I have an issue Module Pool Programming. Any of you can go through on this and can give an required answer.
Issue is as follows,
I have an Input/Output field for that i need to give f4 help, based on that field the related data should sit in to my table control. The thing is there is no relation between the input/output field and the table control fields.
Is this possible? If so how can i do this.

Hi Jagadeesh,
For F4 Values on Screen:
PROCESS ON VALUE_REQUEST
using module call starting with FIELD i.e FIELD field MODULE module
There are number of function modules that can be used for the purpose, but these
can fullfill the task easily or combination of them.
DYNP_VALUE_READ
F4IF_FIELD_VALUE_REQUEST
F4IF_INT_TABLE_VALUE_REQUEST
POPUP_WITH_TABLE_DISPLAY
DYNP_VALUE_READ
This function module is used to read values in the screen fields. Use of this
FM causes forced transfer of data from screen fields to ABAP fields.
There are 3 exporting parameters
DYNAME = program name = SY-CPROG
DYNUMB = Screen number = SY-DYNNR
TRANSLATE_TO_UPPER = 'X'
and one importing TABLE parameter
DYNPFIELDS = Table of TYPE DYNPREAD
The DYNPFIELDS parameter is used to pass internal table of type DYNPREAD
to this FM and the values read from the screen will be stored in this table.This
table consists of two fields:
FIELDNAME : Used to pass the name of screen field for which the value is to
be read.
FIELDVALUE : Used to read the value of the field in the screen.
e.g.
DATA: SCREEN_VALUES TYPE TABLE OF DYNPREAD ,
SCREEN_VALUE LIKE LINE OF SCREEN_VALUES.
SCREEN_VALUE-FIELDNAME = 'KUNNR' . * Field to be read
APPEND SCREEN_VALUE TO SCREEN_VALUES. * Fill the table
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = SY-CPROG
DYNUMB = SY-DYNNR
TRANSLATE_TO_UPPER = 'X'
TABLES
DYNPFIELDS = SCREEN_VALUES.
READ TABLE SCREEN_VALUES INDEX 1 INTO SCREEN_VALUE.Now the screen value for field KUNNR is in the SCREEN_VALUE-FIELDVALUE and can be used for further processing like using it to fill the internal table to be used as parameter in F4IF_INT_TABLE_VALUE_REQUEST ETC.
F4IF_FIELD_VALUE_REQUEST
This FM is used to display value help or input from ABAP dictionary.We have to pass the name of the structure or table(TABNAME) along with the field name(FIELDNAME) . The selection can be returned to the specified screen field if three
parameters DYNPNR,DYNPPROG,DYNPROFIELD are also specified or to a table if RETRN_TAB is specified.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
TABNAME = table/structure
FIELDNAME = 'field name'
DYNPPROG = SY-CPROG
DYNPNR = SY-DYNR
DYNPROFIELD = 'screen field'
IMPORTING
RETURN_TAB = table of type DYNPREAD
F4IF_INT_TABLE_VALUE_REQUEST
This FM is used to dsiplay values stored in an internal table as input
help.This FM is used to program our own custom help if no such input help
exists in ABAP dictionary for a particular field. The parameter VALUE_TAB is used to pass the internal table containing input values.The parameter RETFIELD
is used to specify the internal table field whose value will be returned to the screen field or RETURN_TAB.
If DYNPNR,DYNPPROG and DYNPROFIELD are specified than the user selection is passed to the screen field specified in the DYNPROFIELD. If RETURN_TAB is specified the selectionis returned in a table.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = field from int table whose value will be returned
DYNPPROG = SY-CPROG
DYNPNR = SY-DYNNR
DYNPROFIELD = 'screen field'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = internal table whose values will be shown.
RETURN_TAB = internal table of type DDSHRETVAL
EXCEPTIONS
parameter_error = 1
no_values_found = 2
others = 3.
POPUP_WITH_TABLE_DISPLAY
This FM is used to display the contents of an internal table in a popup window.The user can select a row and the index of that is returned in the CHOISE
parameter.The VALUETAB is used to pass the internal table.
A suitable title can be set using TITLETEXT parameter. The starting and end position of the popup can be specified by the parameters STARTPOS_COL / ROW and ENDPOS_ROW / COL .
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
EXPORTING
ENDPOS_COL =
ENDPOS_ROW =
STARTPOS_COL =
STARTPOS_ROW =
TITLETEXT = 'title text'
IMPORTING
CHOISE =
TABLES
VALUETAB =
EXCEPTIONS
BREAK_OFF = 1
OTHERS = 2.
e.g.
DATA: w_choice TYPE SY-TABIX.
DATA: BEGIN OF i_values OCCURS 0 WITH HEADER LINE,
values TYPE I,
END OF i_values.
PARAMETRS : id TYPE I.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR id
i_values-values = '0001'.
APPEND i_values.
i_values-values = '0002'.
APPEND i_values.
i_values-values = '0003'.
APPEND i_values.
i_values-values = '0004'.
APPEND i_values.
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
EXPORTING
ENDPOS_COL = 40
ENDPOS_ROW = 12
STARTPOS_COL = 20
STARTPOS_ROW = 5
TITLETEXT = 'Select an ID'
IMPORTING
CHOISE = w_choice
TABLES
VALUETAB = i_values
EXCEPTIONS
BREAK_OFF = 1
OTHERS = 2.
CHECK w_choice > 0.
READ TABLE i_values INDEX w_choice....now we can process the selection as it is contained
...in the structure i_values.
Other FM that may be used to provide input help is HELP_START .
regards,
Dj
reward for all useful answers.

How to provide RDP cert file when create virtual machine deployment?

hi,
the Azure REST API here http://msdn.microsoft.com/en-us/library/azure/jj157194.aspx#bk_certificates did not say how to provide a cert for the VM when create it.
the StoredCertificateSettings let you install the uploaded cert onto the vm, but this does not allow you to replace
the RDP cert which created by Azure when the VM is created.
see below:
the highlighted cert is automatically created by Azure for the virtual machine to secure the RDP connection.
so when you try to remote to the VM, you will see this error, because the cert used for the RDP on the VM is not installed into the "Trused Root Certification Authorities" on local machine.
i want to replace the cert that azure automatically created :
var dpinput = string.Format(
System.Globalization.CultureInfo.CurrentCulture,
@"<?xml version='1.0' encoding='utf-8' ?>
<Deployment xmlns='http://schemas.microsoft.com/windowsazure' xmlns:i='http://www.w3.org/2001/XMLSchema-instance'>
<Name>{0}</Name>
<DeploymentSlot>Production</DeploymentSlot>
<Label>{1}</Label>
<RoleList>
<Role>
<RoleName>{2}</RoleName>
<RoleType>PersistentVMRole</RoleType>
<ConfigurationSets>
<ConfigurationSet i:type='WindowsProvisioningConfigurationSet'>
<ConfigurationSetType>WindowsProvisioningConfiguration</ConfigurationSetType>
<ComputerName>{3}</ComputerName>
<AdminPassword>{4}</AdminPassword>
<StoredCertificateSettings>
<CertificateSetting>
<StoreLocation>LocalMachine</StoreLocation>
<StoreName>Root</StoreName>
<Thumbprint>{5}</Thumbprint>
</CertificateSetting>
</StoredCertificateSettings>
<WinRM>
<Listeners>
<Listener>
<Protocol>Http</Protocol>
</Listener>
<Listener>
<Protocol>Https</Protocol>
<CertificateThumbprint>{6}</CertificateThumbprint>
</Listener>
</Listeners>
</WinRM>
<AdminUsername>{7}</AdminUsername>
</ConfigurationSet>
<ConfigurationSet>
<ConfigurationSetType>NetworkConfiguration</ConfigurationSetType>
<InputEndpoints>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>443</LocalPort>
<Name>HTTPS</Name>
<Port>443</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>5986</LocalPort>
<Name>PowerShell</Name>
<Port>5986</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>3389</LocalPort>
<Name>Remote Desktop</Name>
<Port>3389</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
</InputEndpoints>
<SubnetNames/>
</ConfigurationSet>
</ConfigurationSets>
<DataVirtualHardDisks>
<DataVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<DiskLabel>data</DiskLabel>
<Lun>0</Lun>
<LogicalDiskSizeInGB>127</LogicalDiskSizeInGB>
<MediaLink>{8}</MediaLink>
</DataVirtualHardDisk>
</DataVirtualHardDisks>
<OSVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<MediaLink>{9}</MediaLink>
<SourceImageName>{10}</SourceImageName>
</OSVirtualHardDisk>
<RoleSize></RoleSize>
<ProvisionGuestAgent>false</ProvisionGuestAgent>
<ResourceExtensionReferences/>
</Role>
</RoleList>
<VirtualNetworkName/>
<Dns/>
</Deployment>",
service,
service,
service,
computer,
password,
thumbprint,
thumbprint,
user,
datavhd,
osvhd,
osname);
i want to use my own self-signed the cert as the RDP cert to be used by Azure when create the vm, but the above request does not replace the cert.
how can i do that?
Thanks
the request i used as below:
var dpinput = string.Format(
System.Globalization.CultureInfo.CurrentCulture,
@"<?xml version='1.0' encoding='utf-8' ?>
<Deployment xmlns='http://schemas.microsoft.com/windowsazure' xmlns:i='http://www.w3.org/2001/XMLSchema-instance'>
<Name>{0}</Name>
<DeploymentSlot>Production</DeploymentSlot>
<Label>{1}</Label>
<RoleList>
<Role>
<RoleName>{2}</RoleName>
<RoleType>PersistentVMRole</RoleType>
<ConfigurationSets>
<ConfigurationSet i:type='WindowsProvisioningConfigurationSet'>
<ConfigurationSetType>WindowsProvisioningConfiguration</ConfigurationSetType>
<ComputerName>{3}</ComputerName>
<AdminPassword>{4}</AdminPassword>
<StoredCertificateSettings>
<CertificateSetting>
<StoreLocation>LocalMachine</StoreLocation>
<StoreName>Root</StoreName>
<Thumbprint>{5}</Thumbprint>
</CertificateSetting>
</StoredCertificateSettings>
<WinRM>
<Listeners>
<Listener>
<Protocol>Http</Protocol>
</Listener>
<Listener>
<Protocol>Https</Protocol>
<CertificateThumbprint>{6}</CertificateThumbprint>
</Listener>
</Listeners>
</WinRM>
<AdminUsername>{7}</AdminUsername>
</ConfigurationSet>
<ConfigurationSet>
<ConfigurationSetType>NetworkConfiguration</ConfigurationSetType>
<InputEndpoints>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>443</LocalPort>
<Name>HTTPS</Name>
<Port>443</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>5986</LocalPort>
<Name>PowerShell</Name>
<Port>5986</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>3389</LocalPort>
<Name>Remote Desktop</Name>
<Port>3389</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
</InputEndpoints>
<SubnetNames/>
</ConfigurationSet>
</ConfigurationSets>
<DataVirtualHardDisks>
<DataVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<DiskLabel>data</DiskLabel>
<Lun>0</Lun>
<LogicalDiskSizeInGB>127</LogicalDiskSizeInGB>
<MediaLink>{8}</MediaLink>
</DataVirtualHardDisk>
</DataVirtualHardDisks>
<OSVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<MediaLink>{9}</MediaLink>
<SourceImageName>{10}</SourceImageName>
</OSVirtualHardDisk>
<RoleSize></RoleSize>
<ProvisionGuestAgent>false</ProvisionGuestAgent>
<ResourceExtensionReferences/>
</Role>
</RoleList>
<VirtualNetworkName/>
<Dns/>
</Deployment>",
service,
service,
service,
computer,
password,
thumbprint,
thumbprint,
user,
datavhd,
osvhd,
osname);
the request i used as below:
var dpinput = string.Format(
System.Globalization.CultureInfo.CurrentCulture,
@"<?xml version='1.0' encoding='utf-8' ?>
<Deployment xmlns='http://schemas.microsoft.com/windowsazure' xmlns:i='http://www.w3.org/2001/XMLSchema-instance'>
<Name>{0}</Name>
<DeploymentSlot>Production</DeploymentSlot>
<Label>{1}</Label>
<RoleList>
<Role>
<RoleName>{2}</RoleName>
<RoleType>PersistentVMRole</RoleType>
<ConfigurationSets>
<ConfigurationSet i:type='WindowsProvisioningConfigurationSet'>
<ConfigurationSetType>WindowsProvisioningConfiguration</ConfigurationSetType>
<ComputerName>{3}</ComputerName>
<AdminPassword>{4}</AdminPassword>
<StoredCertificateSettings>
<CertificateSetting>
<StoreLocation>LocalMachine</StoreLocation>
<StoreName>Root</StoreName>
<Thumbprint>{5}</Thumbprint>
</CertificateSetting>
</StoredCertificateSettings>
<WinRM>
<Listeners>
<Listener>
<Protocol>Http</Protocol>
</Listener>
<Listener>
<Protocol>Https</Protocol>
<CertificateThumbprint>{6}</CertificateThumbprint>
</Listener>
</Listeners>
</WinRM>
<AdminUsername>{7}</AdminUsername>
</ConfigurationSet>
<ConfigurationSet>
<ConfigurationSetType>NetworkConfiguration</ConfigurationSetType>
<InputEndpoints>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>443</LocalPort>
<Name>HTTPS</Name>
<Port>443</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>5986</LocalPort>
<Name>PowerShell</Name>
<Port>5986</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
<InputEndpoint>
<LoadBalancedEndpointSetName></LoadBalancedEndpointSetName>
<LocalPort>3389</LocalPort>
<Name>Remote Desktop</Name>
<Port>3389</Port>
<Protocol>TCP</Protocol>
</InputEndpoint>
</InputEndpoints>
<SubnetNames/>
</ConfigurationSet>
</ConfigurationSets>
<DataVirtualHardDisks>
<DataVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<DiskLabel>data</DiskLabel>
<Lun>0</Lun>
<LogicalDiskSizeInGB>127</LogicalDiskSizeInGB>
<MediaLink>{8}</MediaLink>
</DataVirtualHardDisk>
</DataVirtualHardDisks>
<OSVirtualHardDisk>
<HostCaching>ReadWrite</HostCaching>
<MediaLink>{9}</MediaLink>
<SourceImageName>{10}</SourceImageName>
</OSVirtualHardDisk>
<RoleSize></RoleSize>
<ProvisionGuestAgent>false</ProvisionGuestAgent>
<ResourceExtensionReferences/>
</Role>
</RoleList>
<VirtualNetworkName/>
<Dns/>
</Deployment>",
service,
service,
service,
computer,
password,
thumbprint,
thumbprint,
user,
datavhd,
osvhd,
osname);

Hi,
In Azure, this feature is called
custom data. Currently, you can inject custom data into an Azure VM by using the
Windows Azure command-line tools (--custom-data).
I assume that it is not supported in Python API. You can use “custom_data=xxx”
within “create_virtual_machine_deployment” to check if it works.
If it is not yet available, please submit your requirement in Azure feedback below:
http://feedback.azure.com/forums/34192--general-feedback
Best regards,
Susie
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Subscriber Support, contact [email protected]

How to create Search Help for a field in Table control !!

Hello Friends,
              I like to know - How to create Search Help for a field in Table control. Is it possible, if it is please share ur knowledge, I wud be happy if U provide some source code example for this.
Thanks,
Senthil

Check the sample code:
*& Include           ZSRO_MPRN_SEARCH                                 *
MODULE PSTLZ_F4 INPUT
MODULE pstlz_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
        stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR:   lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl     = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = c_x
      determine_loop_index = c_x
    TABLES
      dynpfields           = lt_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
    MOVE lt_dynpfields-fieldvalue TO ws_outcode.
    ws_len = STRLEN( lt_dynpfields-fieldvalue ).
    IF ws_len GE 7.
      ws_len = ws_len - 3.
     ws_icode = ws_code+ws_len(3).
      lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
      CONCATENATE lt_dynpfields-fieldvalue '%'
          INTO ws_outcode.
      CONDENSE lt_dynpfields-fieldvalue.
   REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
    ELSE.
      CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
        INTO ws_outcode.
    ENDIF.
   ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR:   lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl     = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = lt_dnpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode.
    ELSE.
MPRN blank and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1.
    ENDIF.
ELSE.
MPRN exist and Post code exist
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode AND
                   mprn EQ lt_dnpfields-fieldvalue.
    ELSE.
MPRN exist and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE mprn EQ lt_dnpfields-fieldvalue.
    ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MPRN'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select MPRN'
      value_org       = 'S'
    TABLES
      value_tab       = i_mprn1 "lt_mprn
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
    IF sy-subrc EQ 0.
Updating post code
      CONCATENATE i_mprn1-outcode i_mprn1-incode
                    INTO ws_postcode
                         SEPARATED BY space.
      MOVE ws_postcode TO i_mprn-post_code.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
      ws_dynpfld-fieldvalue = ws_postcode .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
Updating MPRN
      MOVE i_mprn1-mprn TO i_mprn-mprn.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-MPRN'.
      ws_dynpfld-fieldvalue = i_mprn1-mprn .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
    ENDIF.
ELSEIF sy-subrc EQ 2.
    MESSAGE s005(zspa) WITH ws_postcode .
ENDIF.
ENDMODULE.                    "PSTLZ_F4 INPUT
MODULE MPRN_F4 INPUT
MODULE mprn_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
       stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR:   lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl     = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = c_x
      determine_loop_index = c_x
    TABLES
      dynpfields           = lt_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
    MOVE lt_dynpfields-fieldvalue TO ws_outcode.
    ws_len = STRLEN( lt_dynpfields-fieldvalue ).
    IF ws_len GE 7.
      ws_len = ws_len - 3.
     ws_icode = ws_code+ws_len(3).
      lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
      CONCATENATE lt_dynpfields-fieldvalue '%'
          INTO ws_outcode.
      CONDENSE lt_dynpfields-fieldvalue.
   REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
    ELSE.
      CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
        INTO ws_outcode.
    ENDIF.
   ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR:   lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl     = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = lt_dnpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode.
    ELSE.
MPRN blank and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1.
    ENDIF.
ELSE.
MPRN exist and Post code exist
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode AND
                   mprn EQ lt_dnpfields-fieldvalue.
    ELSE.
MPRN exist and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE mprn EQ lt_dnpfields-fieldvalue.
    ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MPRN'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select MPRN'
      value_org       = 'S'
    TABLES
      value_tab       = i_mprn1 "lt_mprn
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
    IF sy-subrc EQ 0.
Updating MPRN
      MOVE i_mprn1-mprn TO i_mprn-mprn.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-MPRN'.
      ws_dynpfld-fieldvalue = i_mprn1-mprn .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
     ws_dynpfld-stepl = mprn-current_line.
**code changed by laxman 10.08.2005
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
Updating post code
      CONCATENATE i_mprn1-outcode i_mprn1-incode
                    INTO ws_postcode
                         SEPARATED BY space.
      MOVE ws_postcode TO i_mprn-post_code.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
      ws_dynpfld-fieldvalue = ws_postcode .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
     break gblap0.
     ws_dynpfld-stepl = mprn-current_line.
     LOOP AT i_mprn.
       MOVE i_mprn1-mprn TO i_mprn-mprn.
       MOVE ws_postcode TO i_mprn-post_code.
       MODIFY i_mprn INDEX
                mprn-current_line." transporting MPRN POST_CODE.
     ENDLOOP.
**code changed by laxman 10.08.2005
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
    ENDIF.
ELSEIF sy-subrc EQ 2.
    MESSAGE s006(zspa) WITH i_mprn1-mprn .
ENDIF.
ENDMODULE.                    "MPRN_F4 INPUT
MODULE GNTC_F4 INPUT
MODULE gntc_f4 INPUT.
DATA: BEGIN OF lt_gntc OCCURS 0,
          gntc LIKE iflot-zzgntc,
        END OF lt_gntc.
CLEAR:   lt_returntab, lt_gntc.
REFRESH: lt_returntab, lt_gntc.
lt_gntc-gntc = 'DM'.
APPEND lt_gntc. CLEAR lt_gntc.
lt_gntc-gntc = 'NDM'.
APPEND lt_gntc. CLEAR lt_gntc.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZZGNTC'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select Gas Nomination Type Code'
      value_org       = 'S'
    TABLES
      value_tab       = lt_gntc
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    i_mprn-dm_ndm = lt_returntab-fieldval.
ENDIF.
ENDMODULE.                    "GNTC_F4 INPUT
*&      Module mprn1_f4 INPUT
      text
MODULE mprn1_f4 INPUT.
DATA: lt_f4          TYPE ddshretval OCCURS 0 WITH HEADER LINE,
        lt_returntab1 LIKE ddshretval OCCURS 0 WITH HEADER LINE,
        lt_dynpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE,
        lt_dnpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE.
DATA: stepl1 TYPE systepl,
        stepl_index1 TYPE systepl.
DATA : i_dnpfld1      LIKE dynpread OCCURS 0 WITH HEADER LINE,
         ws_dyname1     LIKE d020s-prog,
         ws_dynumb1     LIKE d020s-dnum,
         ws_dynpfld1    LIKE dynpread.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
         lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
         stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields1-stepl     = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
      determine_loop_index = 'X'
    TABLES
      dynpfields           = lt_dynpfields1
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname           = 'IFLOT'
      fieldname         = 'I_MPRN-MPRN'
      searchhelp        = 'ZS_MPRN_PC'
      dynpprog          = sy-repid
      dynpnr            = sy-dynnr
    TABLES
      return_tab        = lt_f4
    EXCEPTIONS
      field_not_found   = 1
      no_help_for_field = 2
      inconsistent_help = 3
      no_values_found   = 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.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-mprn.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
    ws_dynpfld1-fieldvalue = i_mprn-mprn.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-post_code.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
    ws_dynpfld1-fieldvalue = i_mprn-post_code.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDMODULE.                 " mprn1_f4 INPUT
*&      Module pstlz1_f4 INPUT
      text
MODULE pstlz1_f4 INPUT.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
          lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
          stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-MPRN'.
lt_dynpfields1-stepl     = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
      determine_loop_index = 'X'
    TABLES
      dynpfields           = lt_dynpfields1
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname           = 'IFLOT'
      fieldname         = 'I_MPRN-POST_CODE'
      searchhelp        = 'ZS_MPRN_PC'
      dynpprog          = sy-repid
      dynpnr            = sy-dynnr
    TABLES
      return_tab        = lt_f4
    EXCEPTIONS
      field_not_found   = 1
      no_help_for_field = 2
      inconsistent_help = 3
      no_values_found   = 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.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-post_code.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
    ws_dynpfld1-fieldvalue = i_mprn-post_code.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-mprn.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
    ws_dynpfld1-fieldvalue = i_mprn-mprn.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDMODULE.                 " pstlz1_f4 INPUT
Regards,
Prakash.

How to provide f4 help

Similar Messages

Maybe you are looking for