Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

How to add description

Former Member
0 Kudos

Dear Abapers, I want to change the equipment record while doing that i have to change the Description part also . So how to add that Description programatically ? If u know, Plz let me know.

Thanks in Advance,

Regards,

Ajay

2 REPLIES 2

former_member386202
Active Contributor
0 Kudos

Hi,

Refer this code

&----


*& Form sub_field_catalogmerge *

&----


  • This form builds the fieldcatalog using REUSE_ALV_FIELDCATALOG_MERGE*

  • function module *

----


FORM sub_field_catalogmerge.

CONSTANTS : lc_long_text(1) TYPE c VALUE 'L'.

*--Pass the Report name

v_repid = sy-repid.

*--Call funtion module to build the field catalog

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = v_repid

i_internal_tabname = 'I_FINAL'

i_client_never_display = c_chk

i_inclname = v_repid

CHANGING

ct_fieldcat = i_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

LOOP AT i_fieldcat INTO wa_fieldcat.

CASE wa_fieldcat-fieldname.

WHEN 'FELDV'.

wa_fieldcat-ddictxt = lc_long_text.

wa_fieldcat-seltext_l = text-014.

MODIFY i_fieldcat FROM wa_fieldcat INDEX sy-tabix

TRANSPORTING ddictxt seltext_l.

*--Clear

CLEAR wa_fieldcat.

WHEN 'VERPR'.

wa_fieldcat-ddictxt = lc_long_text.

wa_fieldcat-seltext_l = text-013.

MODIFY i_fieldcat FROM wa_fieldcat INDEX sy-tabix

TRANSPORTING ddictxt seltext_l.

*--Clear

CLEAR wa_fieldcat.

WHEN 'EINME'.

wa_fieldcat-ddictxt = lc_long_text.

wa_fieldcat-seltext_l = text-015.

MODIFY i_fieldcat FROM wa_fieldcat INDEX sy-tabix

TRANSPORTING ddictxt seltext_l.

*--Clear

CLEAR wa_fieldcat.

WHEN 'TVAL'.

wa_fieldcat-ddictxt = lc_long_text.

wa_fieldcat-seltext_l = text-016.

wa_fieldcat-do_sum = 'X'.

MODIFY i_fieldcat FROM wa_fieldcat INDEX sy-tabix

TRANSPORTING ddictxt seltext_l do_sum.

*--Clear

CLEAR wa_fieldcat.

ENDCASE. " CASE lwa_catlog-fieldname

ENDLOOP. "loop at i_fieldcat into wa_fieldcat

ENDFORM. "sub_field_catalogmerge

Regards,

Prashant

0 Kudos

Dear prashanth , i am working on Module pool .