Upload Characteristics in DMS

Hello all,

In DMS LSMW when upload more than 12 characteristics( in screen)  need next page and many time i  can not upload characteristics my best friend Reza Mohammadi write ABAP program to upload characteristics this program is Dynamic and upload 30 characteristics.

step 1: create excel file and type characteristics in first row similar this table

*Characteristics Code ( Name of Characteristics when you create Characteristics in t.code : ct04 )

 **&---------------------------------------------------------------------* **& Report ZDMS_MASS_CHARACTERISTICS_UPDATE **& **&---------------------------------------------------------------------* **& **& **&---------------------------------------------------------------------* REPORT ZDMS_MASS_CHAR_UPDATE. * *CONSTANTS DIR_COUNT TYPE i VALUE 4. TYPES: BEGIN OF ST_DIR, DOKAR TYPE DOKAR, DOKNR TYPE DOKNR, DOKVR TYPE DOKVR, DOKTL TYPE DOKTL_D, CHAR1 TYPE CHAR30, CHAR2 TYPE CHAR30, CHAR3 TYPE CHAR30, CHAR4 TYPE CHAR30, CHAR5 TYPE CHAR30, CHAR6 TYPE CHAR30, CHAR7 TYPE CHAR30, CHAR8 TYPE CHAR30, CHAR9 TYPE CHAR30, CHAR10 TYPE CHAR30, CHAR11 TYPE CHAR30, CHAR12 TYPE CHAR30, CHAR13 TYPE CHAR30, CHAR14 TYPE CHAR30, CHAR15 TYPE CHAR30, CHAR16 TYPE CHAR30, CHAR17 TYPE CHAR30, CHAR18 TYPE CHAR30, CHAR19 TYPE CHAR30, CHAR20 TYPE CHAR30, VISITED TYPE CHAR1, END OF ST_DIR. * DATA: it_documents TYPE TABLE OF st_dir, wa_documents TYPE st_dir. DATA it_CharNames TYPE TABLE OF ATNAM WITH HEADER LINE. DATA: it_tab TYPE filetable, gd_subrc TYPE i. *Selection screen definition SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS: CL_NAME TYPE TDWA-KLASSE DEFAULT 'CL_SP19', CL_TYPE TYPE TDWA-KLASSENART DEFAULT '017', BEG_ROW TYPE i DEFAULT 2, END_ROW TYPE i DEFAULT 101, p_file LIKE rlgrap-filename DEFAULT 'c:    est.xls' OBLIGATORY. " File Name SELECTION-SCREEN END OF BLOCK b1. *********************************************************************** * AT SELECTION-SCREEN AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. REFRESH: it_tab. CALL METHOD cl_gui_frontend_services=>file_open_dialog EXPORTING window_title = 'Select File' default_filename = '*.xls' multiselection = ' ' CHANGING file_table = it_tab rc = gd_subrc. LOOP AT it_tab INTO p_file. * so_fpath-sign = 'I'. * so_fpath-option = 'EQ'. * append so_fpath. ENDLOOP. ************************************ * START-OF-SELECTION. START-OF-SELECTION. PERFORM read_char_names USING p_file. PERFORM upload_excel_file TABLES it_documents USING p_file 1 BEG_ROW 40 END_ROW. PERFORM UPDATE_CHARS. *********************************************************************** * END-OF-SELECTION. END-OF-SELECTION. FORM upload_excel_file TABLES p_table USING p_file p_scol p_srow p_ecol p_erow. DATA : lt_intern TYPE Zkcde_cells OCCURS 0 WITH HEADER LINE. DATA : ld_index TYPE i. FIELD-SYMBOLS :