Introduction: In this blog post, we’ll come to know that posting and downloading of production versions of material XL Data. Posting the XL data into SAP was done using a Start immediately Update Function module CM_FV_PROD_VERS_DB_UPDATE from presentation layer and dumping the XL data from SAP into Presentation layer was done using a normal function module GUI_DOWNLOAD. PROCEDURE: Step 1: Go to Transaction SE38. Enter the name of the program and click on create button as shown below. The below Screen will appear give the program type as executable. Click on save button Step 2: Designed a selection screen for Uploading, Downloading and ALV Output Functionalities. When we Un-Check the Upload check box it will work for download and if we check the check box it will work for upload. Check Upload Check-Box: Uncheck Upload Check-Box: Value request and help request logic was handled to load the XL data from Presentation layer. Enabling and disabling the Selection screen fields are handled at selection-screen output event. Step 3: When the upload check box is Unchecked, data displayed in ALV format for download using REUSE_ALV_GRID_DISPLAY Function module. Pass the filled field-catalogs, PF Status Event, User-command event to ALV Function module to display the output. Test Case: Input: Execute the report it will display the ALV output. Output: In the application tool bar you will find the download button to download data into Presentation layer in XL Format. Step 4 : If we press the download button an XL File got downloaded into presentation layer. Note: Please maintain .XLS at the end of the file name. Dumped XL Data: Step 5 : If checkbox was checked to load the XL data from presentation layer to SAP. Presentation layer XL Data: Test Case: Selection screen : Execute the report it will update the Production data into SAP. Function module used to arrange the XL Data is ALSM_EXCEL_TO_INTERNAL_TABLE . Function module used to update the production vertions data into sap Table MKAL is CM_FV_PROD_VERS_DB_UPDATE in UPDATE TASK Mode. Step 6 : Please find the logic to dump and posting the production versions data. TYPE-POOLS slis. **– Types Declaration TYPES: BEGIN OF ty_mkal, ” internal table as per flat file strucre werks TYPE mkal-werks, ” Plant matnr TYPE mkal-matnr, ” Material Number verid TYPE mkal-verid, ” Production Version text1 TYPE mkal-text1, ” Short text on the production version adatu TYPE mkal-adatu, ” Valid-from date of production version bdatu TYPE mkal-bdatu, ” Run-time end: production version bstmi TYPE mkal-bstmi, ” Lower value of the lot-size interval bstma TYPE mkal-bstma, ” Upper value of the lot-size interval stlal TYPE mkal-stlal, ” Alternative BOM stlan TYPE mkal-stlan, ” BOM Usage plnnr TYPE mkal-plnnr, ” Key for Task List Group alnal TYPE mkal-alnal, ” Group Counter plnty TYPE mkal-plnty, ” Task List Type END OF ty_mkal, BEGIN OF ty_mkal1. INCLUDE STRUCTURE mkal. TYPES END OF ty_mkal1. TYPES : BEGIN OF ty_fname, fname(20) TYPE c, END OF ty_fname. **– Global Variables DATA : v1 TYPE mkal-werks, v2 TYPE mkal-matnr, lv_file TYPE string, r_comm TYPE string, v_matnr TYPE matnr, v_werks TYPE werks_d. **– Work Areas & Inernal Tables DATA : it_mkal TYPE alsmex_tabline OCCURS 0 WITH HEADER LINE, ls_fieldcat TYPE slis_fieldcat_alv, t_fieldcatelog TYPE TABLE OF slis_fieldcat_alv, it_it_mkal_i TYPE STANDARD TABLE OF ty_mkal1, wa_it_mkal_i LIKE LINE OF it_it_mkal_i, it_m_aend TYPE STANDARD TABLE OF mkal_aend WITH HEADER LINE, it_mkal2 TYPE TABLE OF ty_mkal WITH HEADER LINE, wa_mkal2 TYPE ty_mkal, ls_fname TYPE ty_fname, lt_fname TYPE STANDARD TABLE OF ty_fname, c TYPE slis_selfield, a TYPE slis_t_extab, it_event TYPE slis_t_event, wa_event LIKE LINE OF it_event. **– Selection screen Design SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE TEXT-001. SELECT-OPTIONS :s_plant FOR v1 MODIF ID m1, s_matnr FOR v2 MODIF ID m1. SELECTION-SCREEN SKIP. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS p_upload AS CHECKBOX USER-COMMAND uc DEFAULT ‘X’. SELECTION-SCREEN COMMENT 3(7) TEXT-002. PARAMETERS p_file TYPE ibipparms-path MODIF ID m2 . SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK a. AT SELECTION-SCREEN. SELECT SINGLE matnr werks FROM mkal INTO ( v_matnr , v_werks ) WHERE matnr IN s_matnr AND werks IN s_plant. IF sy-subrc NE 0. MESSAGE TEXT-004 TYPE ‘E’. ENDIF. AT SELECTION-SCREEN OUTPUT. IF p_upload IS NOT INITIAL. LOOP AT SCREEN. IF screen-group1 = ‘M1’. screen-input = 0. MODIFY SCREEN. ELSEIF screen-group1 = ‘M2’. screen-input = 1. MODIFY SCREEN. ENDIF. ENDLOOP. ELSE. LOOP AT SCREEN. IF screen-group1 = ‘M1’. screen-input = 1. MODIFY SCREEN. ELSEIF screen-group1 = ‘M2’. screen-input = 0. MODIFY SCREEN. ENDIF. ENDLOOP. ENDIF. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file. ” f4 help for file input PERFORM file_help. * AT SELECTION-SCREEN ON HELP-REQUEST FOR p_file. ” F1 help for file input MESSAGE ‘Please press f4 to upload the file’ TYPE ‘I’. START-OF-SELECTION. IF p_upload IS INITIAL. IF ( s_plant-low IS NOT INITIAL OR s_plant-high IS NOT INITIAL ) AND ( s_matnr-low IS NOT INITIAL OR s_matnr-high IS NOT INITIAL ). SELECT matnr werks verid bdatu adatu stlal stlan plnnr alnal text1 bstmi bstma plnty FROM mkal INTO CORRESPONDING FIELDS OF TABLE it_mkal2 WHERE werks IN s_plant AND matnr IN s_matnr. IF sy-subrc NE 0. MESSAGE TEXT-003 TYPE ‘E’. ELSE. * Filling of Fieldcatalog ls_fieldcat-col_pos = 1. ls_fieldcat-fieldname = ‘WERKS’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘PLANT’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m. APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 2. ls_fieldcat-fieldname = ‘MATNR’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘MATERIAL’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 3. ls_fieldcat-fieldname = ‘VERID’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘VESION ID’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 4. ls_fieldcat-fieldname = ‘TEXTL’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘TEXT’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 5. ls_fieldcat-fieldname = ‘ADATU’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘VALID FROM’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 6. ls_fieldcat-fieldname = ‘BDATU’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘VALID TO’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m. APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 7. ls_fieldcat-fieldname = ‘BSTMI’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘LOWER LOT SIZE’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 8. ls_fieldcat-fieldname = ‘BSTMA’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘UPPER LOT SIZE’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 9. ls_fieldcat-fieldname = ‘STLAL’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘ALT BOM’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 10. ls_fieldcat-fieldname = ‘STLAN’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘BOM’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 11. ls_fieldcat-fieldname = ‘PLNNR’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘GROUP KEY’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 12. ls_fieldcat-fieldname = ‘ALNAL’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘GROUP COUNTER ‘. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. ls_fieldcat-col_pos = 13. ls_fieldcat-fieldname = ‘PLNTY’. ls_fieldcat-tabname = ‘IT_MKAL2’. ls_fieldcat-seltext_m = ‘TASK LIST TYPE’. APPEND ls_fieldcat TO t_fieldcatelog. ls_fname-fname = ls_fieldcat-seltext_m . APPEND ls_fname TO lt_fname. CLEAR: ls_fieldcat,ls_fname. wa_event-name = ‘PF_STATUS_SET’. wa_event-form = ‘ZGUI’. PERFORM zgui USING a. APPEND wa_event TO it_event. wa_event-name = ‘USER_COMMAND’. wa_event-form = ‘UC’. PERFORM uc USING sy-ucomm c. APPEND wa_event TO it_event. CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’ EXPORTING i_callback_program = sy-repid i_structure_name = ‘WA_MKAL’ it_fieldcat = t_fieldcatelog[] it_events = it_event TABLES t_outtab = it_mkal2 EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ” SET_PF_STATUS ENDIF. ENDIF. ELSE. CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’ EXPORTING filename = p_file i_begin_col = 1 i_begin_row = 1 i_end_col = 13 i_end_row = 99 TABLES intern = it_mkal EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. FIELD-SYMBOLS : . DATA l_index TYPE i. IF it_mkal[] IS INITIAL. MESSAGE ‘No data uploaded!’ TYPE ‘E’. EXIT. ELSE. SORT it_mkal BY row col. LOOP AT it_mkal. MOVE it_mkal-col TO l_index. ASSIGN COMPONENT l_index OF STRUCTURE it_mkal2 TO . IF sy-subrc = 0. ” Incase there are more xls columns than fields MOVE it_mkal-value TO . ENDIF. AT END OF row. APPEND it_mkal2. CLEAR it_mkal2. ENDAT. ENDLOOP. ENDIF. ” populate fields of struture and append to itab LOOP AT it_mkal2. wa_it_mkal_i-mandt = sy-mandt. CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_INPUT’ EXPORTING input = it_mkal2-matnr IMPORTING output = it_mkal2-matnr. MOVE-CORRESPONDING it_mkal2 TO wa_it_mkal_i. APPEND wa_it_mkal_i TO it_it_mkal_i. CLEAR : wa_it_mkal_i. ENDLOOP. LOOP AT it_mkal2. it_m_aend-matnr = it_mkal2-matnr. it_m_aend-werks = it_mkal2-werks. it_m_aend-verid = it_mkal2-verid. it_m_aend-zaehl = ‘0001’. APPEND it_m_aend. CLEAR it_m_aend. ENDLOOP. IF it_it_mkal_i IS NOT INITIAL. CALL FUNCTION ‘CM_FV_PROD_VERS_DB_UPDATE’ IN UPDATE TASK TABLES it_mkal_i = it_it_mkal_i. COMMIT WORK AND WAIT. IF sy-subrc EQ 0. WRITE:2 TEXT-005. ENDIF. ENDIF. ENDIF. FORM file_help . CALL FUNCTION ‘F4_FILENAME’ EXPORTING program_name = syst-cprog dynpro_number = syst-dynnr field_name = ‘P_FILE’ IMPORTING file_name = p_file. ENDFORM. ” FILE_HELP *&———————————————————————* *& Form ZGUI *&———————————————————————* * text *———————————————————————-* * –>P_A text *———————————————————————-* FORM zgui USING p_a TYPE slis_t_extab. SET PF-STATUS ‘STAT’. ENDFORM. *&———————————————————————* *& Form UC *&———————————————————————* * text *———————————————————————-* * –>P_SY_UCOMM text * –>P_SLIS_SELFIELD text *———————————————————————-* *&———————————————————————* *& Form UC *&———————————————————————* * text *———————————————————————-* * –>P_SY_UCOMM text * –>P_C text *———————————————————————-* FORM uc USING a LIKE sy-ucomm b TYPE slis_selfield. IF a = ‘DOWN’. DATA p_fname TYPE ibipparms-path. CALL FUNCTION ‘F4_FILENAME’ EXPORTING program_name = syst-cprog dynpro_number = syst-dynnr field_name = ‘P_FNAME’ IMPORTING file_name = p_fname. DATA p_name TYPE string. p_name = p_fname. CALL FUNCTION ‘GUI_DOWNLOAD’ EXPORTING * BIN_FILESIZE = filename = p_name filetype = ‘ASC’ append = ‘X’ write_field_separator = ‘X’ * HEADER = ’00’ * TRUNC_TRAILING_BLANKS = ‘ ‘ * WRITE_LF = ‘X’ * COL_SELECT = ‘ ‘ * COL_SELECT_MASK = ‘ ‘ * DAT_MODE = ‘ ‘ * CONFIRM_OVERWRITE = ‘ ‘ * NO_AUTH_CHECK = ‘ ‘ * CODEPAGE = ‘ ‘ * IGNORE_CERR = ABAP_TRUE * REPLACEMENT = ‘#’ * WRITE_BOM = ‘ ‘ * TRUNC_TRAILING_BLANKS_EOL = ‘X’ * WK1_N_FORMAT = ‘ ‘ * WK1_N_SIZE = ‘ ‘ * WK1_T_FORMAT = ‘ ‘ * WK1_T_SIZE = ‘ ‘ * WRITE_LF_AFTER_LAST_LINE = ABAP_TRUE * SHOW_TRANSFER_STATUS = ABAP_TRUE * VIRUS_SCAN_PROFILE = ‘/SCET/GUI_DOWNLOAD’ * IMPORTING * FILELENGTH = TABLES data_tab = it_mkal2 fieldnames = lt_fname EXCEPTIONS file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 OTHERS = 22. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF. ENDIF. ENDFORM.