12-05-2007 7:53 AM
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
12-05-2007 7:56 AM
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
12-05-2007 8:02 AM