How to display icon symbols for a field in se38 program

HI
IAM VIJAY. PLS GIVE ME THE SOLUTION .
how to display icon symbols for a field in se38 program.
WITH REGARDS.
VIJAY.

Hi
you cab use INCLUDE <ICON> and use standard icons provided by sap.
Sample code:
WRITE /20(2) ICON_DATE AS ICON.
WRITE /20(2) ICON_TIME AS ICON.
WRITE /20(2) ICON_ADDRESS AS ICON.
Thanks!!

Similar Messages

How to display f4 help for a field based on value of another field

Hello All,
I have 4 fields : Sales Org : VBAK-VKORG, Distrib Channel : RV50A-VTWEG, Div : RV50A-SPART, Sold-to-party : KUAGV-KUNNR.
The second field depends on the first one, the third on the second one and the fourth on the first field.
However, when each of the second third and fourth fields' f4 help is displayed, the values are independent of the previous fields. How do I set the f4 help to display values based on the respective fields?
Regards,
Mithun

Please be sure that you are searching the forums before posting. This exact same question was asked just yesterday:
F4 help to input field
In particular study the section and the linked help document for ddic search helps export/importing parameters and the requirements for DDic Structure/table usage for the parameter mapping.

Change Icon (Symbols) for Alert in Analysis Item in BI 7 Web Templates

I want to change the Icons (Symbols) displayed for alerts in the Analysis Web Item. I want to choose between arrows and stop lights. I can define this in the Table Interface in BW 3.5. In BI7 you must use the Analysis Web Item SYMBOL but it is not documented how to choose different symbols for different reports.

Where do I choose the Icon Type? In the Query definition I can't see any option to select the Icon Type and in the WAD I can only see the options of Color, Symbol, Text and Symbol, Symbol and Text. This has no influence in the Icon Type or does it?
I am getting Arrow icons in the output and I am trying to get Traffic light icons.
Can you tell me where the Icon Type is available for selection?
Thanks!

How to display F4 values in one field based on other field selection

Hi All,
How to hide a UI element (i.e Link to action) highlited for Normal User and display the same to super user.
Component Name : /SAPSRM/WDC_DODC_SC_GAF_C
2.Can i know how to display the entries in supplier field based on Product category selection.
Right now all the entries are getting displayed in the supplier field.
I want to display only entries based on Product category.
Search Help Name : BBP_BUPA_CLL_PARTNER
Component Name : /SAPSRM/WDC_DODC_SC_I_LIM
How to enhance the web dynpro component with the filtered values.
Regards,
Krish.

Hi Ashvin,
Thanks for the document. In the search help there is a standard FM which is getting executed.
Can i enhance that FM or should i copy and edit.
BBP_F4IF_SHLP_EXIT_CLL_PARTNER
If i creata a Z FM and make changes how to pass that values to my standard Component View UI Element.
If not then suggest me some alternative.
Regards,
Krish

How to create a Tip for a field in a Descriptive Flex Field in Self Service

How to create a Tip for a field in a Descriptive Flex Field in Self Service ?
Example :
For Address
Each Address Line should have one Tip.
What should I do ?
Thanks,
John

Hi John,
It seems you have created Address Location DFF in self service in OA Framework.....
I have created a Address Location flex in OA Framework . It dipslays the segments properly but i dont want to display the segments if they dont have any value.
I only want to display segments with values . The segments with null values should not display at all...
i.e , if Address Line 2 value is null , it should not display Address Line 2..
If you have done this, pls let me know how to go abt it.
Thanks in Advance,
Tanveer

How to create value request for screen field text box tt1

How to create value request for screen field text box tt1
i have a text box name tt1,
i want f4 help for that .
remember i am asking for screen i.e done from screen layout not selectio-screen.
Thank you,
Regards,
Jagrut Bharatkumar Shukla,

Hi,
Create one Search Help in the SE11 for the particular Field that u want to display. In the Screen(Transaction SE51),For that Text Box in the Attributes,in Dict Tab ->Search Help Field give that Search Help Name.
For Eg,
If u want Purchase Order Numbers in that F4 Help.Create one Search Help by giving Table Name as EKKO & Search Help Parameter as EBELN with Lpos & Rpos as 0 & 1.Save & Activate it.
Give this Search Help Name in Dict Tab ->Search Help Field of that Screen Attributes.
Regards,
Padmam.

How to add F1 help for a field on ALV grid

Hi All,
When we execute a program, the output is displayed using ALV grid.
on the ALV grid, if we press F1 on a field, it should popup the help document.
How to add F1 help for a field on ALV grid.
Thank you all in advance.

fill field LVC_S_FCAT-ROLLNAME of your fieldcatalog in method SET_TABLE_FOR_FIRST_DISPLAY
A.

How to create Search Help For Ztable fields

Hi all,
Please let me know How to create Search Help in SE11(what are the parameter i should pass)
and How to maintain search help for Ztable fields at DIctionary level (in SE11) and programming level.

hello .
there are two types of search helps .
1. elementary search help .
2. collective serch help
Below are the steps to create elementary search helps :
1 In the initial screen of the ABAP Dictionary, select object class Search help, enter the name of the search help and choose Create.
2.then youget a option elementary or collective search as per you r need .
3.select Elementary search help and choose
4.write explanatory text in the field Short text.
5. in the selection method give the name of the table or a view .
6 . Select the fields that should be used for value selection or in a hit list .
7. then define the attributes of the search help .
8 Select the IMP flag if it is an import parameter. Select the EXP flag if it is an export parameter.
9 .define the dialog type of the search help.
The dialog type tells how the hit list will be displayed in the input help.
10 . save and activate .
plz reward if usefull
Thanks ,
Abhishek .

NOT WORKING -How To Display All Comments for a Planning Package

Hi All,
I am using How to Document "How To Display All Comments for a Planning Package" to display comments for list of "cost center" against different "fiscal/year" for Key Figure "Budget Amount".
Below is how the Layout looks like where comments are posted against Cost Center- year combination.
Cost Center                          2007     2008     2009     2010     2011
3          2.00     2.00     2.00     2.00     2.00
4          2.00     2.00     2.00     2.00     2.00
6          2.00     2.00     2.00     2.00     2.00
7          2.00     2.00     2.00     2.00     2.00
This case is very similar to the example given in how to document but after following all the steps correctly in the document and also followings various forum links such as below , I am not able to display the comments for list of Cost Centers.
"How to...BSP display comments"...problem with row comment
Below are the issues being faced:
1) When i save the comments , the icon for comments (indicating that some comments have been entered) is not shown against selection of Cost Center-Year although the comment is saved.Comment are also visible in BPS0.
2) On execution "Web interface could not be loaded" - is the message that is shown in the area where BPS application should show all the comments.
Highly Appreciate any help with issues mentioned above.
Kind Regards,
Robin Johri

Hello Robin,
1) please check if you set the row/cell selection property correctly for the layout component in the web interface.
2) the error does not make sense since the comments are displayed in an iframe using a BSP application, not a web interface. Check the URL in the HTML text component.
Regards,
Marc
SAP Techology RIG

How to populate the data for additional fields in custom report of fbl5n tr

hallo friends,
i ha ve to add some fields to the output of custome report of transaction FBL5N.
Till now i have only added the fields to the output.
Now i have to write the code to populate the data for those fields in the program.
1.     Customer Credit Group(ACM/RCM): (Table: KNKK; Field Name: VKORG )
2.     Credit Representative Group: (Table: KNKK; Field Name: SBGRP)
3.     Customer Account Number(CAN#): (Table: KNKK; Field Name: KNKLI)
4.     Alternative Payer(ALTP#) : (Table: KNA1; Field Name: KUNNR)
5.     Risk Category: (Table: KNKK; Field Name: CTLPC)
6.     Credit Info Number: (Table: KNKK; Field Name: KRAUS)
7.     Rating: (Table: KNKK; Field Name: DBRTG)
8.     Payment Index: (Table: KNKK; Field Name: DBPAY)
9.     Credit control area: (Table: KNKK; Field Name: KKBER)
10.     Company code: (Table: KNB1; Field Name: BUKRS)
11.     Sales Organization: (Table: KNVV; Field Name: VKORG)
These are al fields i have to populate in the program..
MY ATTEMPTS:
I tried getting the data for KNKK table by GET KNKK ,but it is giving some garbage values...
And Logical database used here is DDF,and i have to add the VKORG of KNVV too...but KNVV is not there in DDF...
Can anybody tell me how should i proceed..
thanks in advance.

Thnx Andreas,
i have following doubts again..
I have to add sales organisation field to the selection screen...(this is given in the req.)
now if i will say GET KNKK...it would not keep account of this 'sales organisation' field...so how should i fetch the data with these input data( i.e. 'compny code' and 'customer' are the fields given by LDB and 'sales oraganisation' is the field i put it on the selection screen)
And what about the KNVV-VKORG ,because the KNVV is not present in the LDB.

How to attach F4 Help for a field in Items Overview in ME21n (PO Creation)

Dear All,
Can anyone pls suggest me how to attach F4 hlp for this (Field is BEDNR).
Best Regards.

Hello,
I'm relatively new in ABAP, and i have the same problem with yours, only in a different field. My company wants to have a search help in Requirement Tracking No. (BEDNR) in table EKPO.
Can you tell me what was your solution?
I tried to attach the existing search help to field BEDNR, but i can't.
Edited by: ellainne22 on Oct 4, 2011 4:34 AM

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 Display All Comments for a Planning Package

Hi,
I have the How-to guide mentioned in the subject and have now moved onto BI7. Is the guide still applicable in BI7 and how would I go about implementing the above How-to in IP instead of BPS?
Thanks,
Ale

Thanks Marc.
I will use BW-BPS for the time being as I've seen screenshots of the solution in the how-to. Still need to answer the question here:
How To. Display All Comments for a Planning Package
As I have no idea how to achieve the functionality detailed in the thread above.
Thanks for your time Marc,
Regards,
Ale

HOw to find the text for PERSK field in infotype 0001

hi all
HOw to find the text for PERSK field in infotype 0001

Hi
T503T : contained the similar informative text for PERSK . read this for T503T-PTEXT.
..lakhan

CLM How to add search-help for extension field(New Company Field) in MA.

Hi all,
Based on demand,I need to extend a new field(Company) in Master Agreement.
But I do not know how to add search-help for this field,just like User Accont page.
Anyone can help me ?thank you very muck.
Regards,
JackyCheng

Hello Jacky,
To combine all the answers above and have a topic-based reply please go through the below steps:
#1. Inactivate the current extension field Company (I see it is actually a String value and this is not what you want to have)
#2. Go to Setup -> System Setup -> Extension Reference Types
Check if you already have a Company reference type
If not, create a new Extension Reference Type for Class Company. Fill in all required information.
#3. Create a new Extension Attribute
Select Data Type: Object Reference
Now you can add the Company type as reference
Regards,
Bogdan Toma

How to display icon symbols for a field in se38 program

Similar Messages

Maybe you are looking for