*&---------------------------------------------------------------------*
*& Include          Z13_09_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form process_upload
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM process_upload .
  DATA: lt_tabline TYPE TABLE OF alsmex_tabline.

  CLEAR gt_list.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = gv_filename
      i_begin_col             = 1
      i_begin_row             = 2
      i_end_col               = 6
      i_end_row               = 9999
    TABLES
      intern                  = lt_tabline
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  LOOP AT lt_tabline INTO DATA(ls_tabline).

    ASSIGN COMPONENT ls_tabline-col OF STRUCTURE gs_list
                                    TO FIELD-SYMBOL(<fs>).

    IF <fs> IS ASSIGNED.
      <fs> = ls_tabline-value.
    ENDIF.

    AT END OF row.
      APPEND gs_list TO gt_list.
      CLEAR gs_list.
    ENDAT.

  ENDLOOP.

  tc_zemplist-lines = lines( gt_list ).


ENDFORM.
*&---------------------------------------------------------------------*
*& Form process_save
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM process_save .
  DATA: ls_params TYPE ctu_params.

  ls_params = VALUE #( dismode = 'N' updmode = 'S' ).

  CLEAR: gs_bdcdata, gt_bdcdata.
  LOOP AT gt_list INTO gs_list.

    PERFORM bdc_init
      USING
        'Z13_01' '0100'.

    PERFORM bdc_value
      USING:
        'BDC_CURSOR' 'ZEMPLIST-EMPCD',
         'BDC_OKCODE'      '/00',
         'ZEMPLIST-EMPCD'  gs_list-empcd,
         'ZEMPLIST-ENAME'  gs_list-ename,
         'ZEMPLIST-DEPCD'  gs_list-depcd,
         'ZEMPLIST-PSTION' gs_list-pstion,
         'ZEMPLIST-EMAIL'  gs_list-email,
         'ZEMPLIST-TEL'    gs_list-tel.

    PERFORM bdc_init
      USING
        'Z13_01' '0100'.

    PERFORM bdc_value
      USING:
        'BDC_CURSOR' 'ZEMPLIST-EMPCD',
         'BDC_OKCODE'      '=CREATE',
         'ZEMPLIST-EMPCD'  gs_list-empcd,
         'ZEMPLIST-ENAME'  gs_list-ename,
         'ZEMPLIST-DEPCD'  gs_list-depcd,
         'ZEMPLIST-PSTION' gs_list-pstion,
         'ZEMPLIST-EMAIL'  gs_list-email,
         'ZEMPLIST-TEL'    gs_list-tel.

    PERFORM bdc_init
      USING
        'Z13_01' '0100'.

    PERFORM bdc_value
      USING:
        'BDC_CURSOR' 'ZEMPLIST-EMPCD',
         'BDC_OKCODE'      '=BACK'.

    CALL TRANSACTION 'Z13_01' USING gt_bdcdata
                              OPTIONS FROM ls_params.

    CLEAR gs_list-msg.
    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = sy-msgid
        msgnr               = sy-msgno
        msgv1               = sy-msgv1
        msgv2               = sy-msgv2
        msgv3               = sy-msgv3
        msgv4               = sy-msgv4
      IMPORTING
        message_text_output = gs_list-msg.

    MODIFY gt_list FROM gs_list.
    CLEAR: gs_list.

    CLEAR: gt_bdcdata.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form bdc_init
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&      --> P_
*&---------------------------------------------------------------------*
FORM bdc_init
  USING    VALUE(p_program)
           VALUE(p_dynpro).

  gs_bdcdata-program = p_program.
  gs_bdcdata-dynpro  = p_dynpro.
  gs_bdcdata-dynbegin = 'X'.
  APPEND gs_bdcdata TO gt_bdcdata.
  CLEAR gs_bdcdata.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form bdc_value
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&      --> P_
*&---------------------------------------------------------------------*
FORM bdc_value
  USING    VALUE(p_fnam)
           VALUE(p_fval).

  gs_bdcdata-fnam = p_fnam.
  gs_bdcdata-fval = p_fval.

  APPEND gs_bdcdata TO gt_bdcdata.
  CLEAR gs_bdcdata.

ENDFORM.