where the brain, inside notebook and problem stored

CONCATENATE with blanks space

2010-09-29T12:40:00.003+07:00

To CONCATENATE string with blank space in middle.
This syntax applicable start from SAP ECC 6.0


DATA : v_string(40).
CONCATENATE 'I' 'need' 'more' '     ' 'space.' INTO v_string
            RESPECTING BLANKS
            SEPARATED BY space.
WRITE:/ v_string.

For R/3 release 4.6C, just do a little tricks.


  DATA : v_err LIKE tline OCCURS 0 WITH HEADER LINE,
         var1(20), var2(10), var3(10), var4(10), var5(10), x(1).

  v_err-tdformat = '*'.
  var1 = 'Material           0'.
  var2 = 'QTY PR   1'.
  var3 = 'QTY PO   2'.
  var4 = 'QTY SO   3'.
  var5 = 'Selisih  4'.
  CONCATENATE var1 var2 var3 var4 var5
          INTO v_err-tdline SEPARATED BY space.
  x = 0.
  DO 5 TIMES.
    REPLACE x WITH space INTO v_err-tdline .
    x = x + 1.
  ENDDO.
  write:/ v_err-tdline.

include program : ZGEN_EXCEL

2010-06-04T10:11:00.001+07:00

Include ZGEN_EXCEL - for transfer itab to Excel
use tcode OAOR to place the excel template.


***INCLUDE ZGEN_EXCEL .

  TYPE-POOLS: soi.
  TYPES : type_doc(64),format_amount(18).
  DATA: tranges TYPE soi_range_list,
        tcontents TYPE soi_generic_table,
        setranges TYPE soi_full_range_table,
        rangesdef TYPE soi_dimension_table,
        tformat TYPE soi_format_table,
        tcell TYPE soi_cell_table.

  DATA: struc_ranges TYPE soi_range_item,
        struc_generic TYPE soi_generic_item,
        struc_setrange TYPE soi_full_range_item,
        struc_rangesdef TYPE soi_dimension_item,
        struc_cell TYPE soi_cell_item.
*--- Object Instance Declaration ---
  DATA: container TYPE REF TO cl_gui_custom_container.
  DATA: control   TYPE REF TO i_oi_container_control.
  DATA: document  TYPE REF TO i_oi_document_proxy.
  DATA: excel      TYPE REF TO i_oi_spreadsheet.

  DATA: bds_doc   TYPE REF TO cl_bds_document_set.
  DATA: link_server   TYPE REF TO i_oi_link_server.
*--- Other Objects/Variable Declaration ---
  DATA: no_flush,
        error TYPE REF TO i_oi_error,
        retcode(256) TYPE c,
        version(64) TYPE c.
  DATA: document_type(80) TYPE c VALUE soi_doctype_word_document,
        document_format(6) TYPE c,
        doc_url TYPE bapiuri-uri, "MSDocument URL Address
        pic_url TYPE bapiuri-uri. "Logo URL Address
* Error Handling after call a method
  CLASS c_oi_errors DEFINITION LOAD.

*---------------------------------------------------------------------*
*       FORM select_new_sheet                                         *
*---------------------------------------------------------------------*
  FORM select_new_sheet USING    p_sheet_name.
    CALL METHOD excel->select_sheet
           EXPORTING name      = p_sheet_name
                     no_flush  = no_flush
           IMPORTING error     = error
                     retcode   = retcode.
    CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
    CALL METHOD excel->set_selection
             EXPORTING
                left = 2
                top = 2
                rows = 4
                columns = 1
               no_flush  = no_flush
               updating  = -1
             IMPORTING error     = error
                retcode   = retcode.
    CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
  ENDFORM.                    " select_new_sheet

*---------------------------------------------------------------------*
*       FORM select_document                                          *
*---------------------------------------------------------------------*
  FORM select_document USING nclass TYPE type_doc
                    objkey TYPE type_doc
                    doc_id TYPE type_doc
                    CHANGING adr_url TYPE bapiuri-uri.

* Tables and WAs:
    DATA: doc_signature TYPE sbdst_signature,
          wa_doc_signature LIKE LINE OF doc_signature,
          doc_components TYPE sbdst_components,
          wa_doc_components LIKE LINE OF doc_components,
          doc_uris TYPE sbdst_uri,
          wa_doc_uris LIKE LINE OF doc_uris.
* IDs:
    DATA: doc_classname TYPE sbdst_classname," VALUE 'ZCO_IMR',
          doc_classtype TYPE sbdst_classtype VALUE 'OT',
          doc_object_key TYPE sbdst_object_key," VALUE 'WPL',
          doc_mimetype LIKE bapicompon-mimetype.
*----------------------------------------------------------------------
    CLEAR: wa_doc_signature, wa_doc_components, wa_doc_uris.
    REFRESH: doc_signature, doc_components, doc_uris.

    doc_classname = nclass.
    doc_object_key = objkey.

    wa_doc_signature-prop_name = 'DESCRIPTION'.
    wa_doc_signature-prop_value = doc_id.
    APPEND wa_doc_signature TO doc_signature.

* Availability of document checked
    CALL METHOD bds_doc->get_info
                  EXPORTING classname  = doc_classname
                            classtype  = doc_classtype
                            object_key = doc_object_key
                            client     = sy-mandt
                  CHANGING components  = doc_components
                           signature   = doc_signature
                    EXCEPTIONS nothing_found = 1
                               error_kpro = 2
                               internal_error = 3
                               parameter_error = 4
                               not_authorized = 5
                               not_allowed = 6.
    IF sy-subrc NE 0 AND sy-subrc NE 1.
      "Error in the Business Document Service (BDS)
      MESSAGE e016(demoofficeintegratio).
    ENDIF.
    IF sy-subrc = 1.
      MESSAGE e017(demoofficeintegratio).
      "There are no documents that meet the search criteria
    ENDIF.

* Get URL address
    CALL METHOD bds_doc->get_with_url
                       EXPORTING classname  = doc_classname
                                 classtype  = doc_classtype
                                 object_key = doc_object_key
                       CHANGING uris        = doc_uris
                                signature   = doc_signature
                    EXCEPTIONS nothing_found = 1
                               error_kpro = 2
                               internal_error = 3
                               parameter_error = 4
                               not_authorized = 5
                               not_allowed = 6.
    IF sy-subrc NE 0 AND sy-subrc NE 1.
      MESSAGE e016(demoofficeintegratio).
    ENDIF.
    IF sy-subrc = 1.
      MESSAGE e017(demoofficeintegratio).
    ENDIF.

    READ TABLE doc_components INTO wa_doc_components INDEX 1.
    READ TABLE doc_uris INTO wa_doc_uris INDEX 1.
    doc_mimetype = wa_doc_components-mimetype.
    adr_url = wa_doc_uris-uri.

    CASE doc_mimetype.
      WHEN 'application/x-rtf' OR 'text/rtf'.
        document_format = soi_docformat_rtf.
      WHEN 'application/x-oleobject'.
        document_format = soi_docformat_compound.
      WHEN 'text/plain'.
        document_format = soi_docformat_text.
      WHEN OTHERS.
        document_format = soi_docformat_native.
    ENDCASE.
  ENDFORM.                    " select_document
*---------------------------------------------------------------------*
*       FORM formatting_rangesdef_tab                                 *
*---------------------------------------------------------------------*
  FORM formatting_rangesdef_tab.
    LOOP AT tcontents INTO struc_generic.
      struc_rangesdef-rows = 1.
      struc_rangesdef-columns = 1.
      struc_rangesdef-row = struc_generic-row.
      struc_rangesdef-column = struc_generic-column.
      struc_generic-row = '1'.
      struc_generic-column = '1'.
      MODIFY tcontents FROM struc_generic INDEX sy-tabix.
      APPEND struc_rangesdef TO rangesdef.
    ENDLOOP.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM set_data                                                 *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
  FORM set_data.
    CALL METHOD excel->set_ranges_data
      EXPORTING
        ranges    = tranges
        contents  = tcontents
        rangesdef = rangesdef
        updating  = -1
        no_flush  = no_flush
      IMPORTING error     = error
        retcode   = retcode.
    CALL METHOD excel->screen_update
         EXPORTING updating = 'X'
                   no_flush = no_flush
         IMPORTING error    = error
                   retcode  = retcode.
    CLEAR : tcontents, rangesdef.
    REFRESH : tcontents, rangesdef.
  ENDFORM.                    " set_data
*---------------------------------------------------------------------*
*       FORM prog_indicator                                           *
*---------------------------------------------------------------------*
  FORM prog_indicator_excel USING t_pers t_text.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
         EXPORTING
              percentage = t_pers
              text       = t_text.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM format_amount                                            *
*---------------------------------------------------------------------*
  FORM format_amount USING p_amount
    CHANGING axx TYPE format_amount.
    DATA : p_val TYPE p DECIMALS 2.
    p_val = p_amount.
    IF p_val < 0.
      p_val = p_val * -1.
      WRITE p_val TO axx CURRENCY 'IDR'.
      CONCATENATE '-' axx INTO axx.
    ELSE.
      WRITE p_val TO axx CURRENCY 'IDR'.
    ENDIF.
    CONDENSE axx NO-GAPS.
    DO 5 TIMES.
      REPLACE '.' WITH '' INTO axx.
    ENDDO.
    CONDENSE axx NO-GAPS.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM format_amount_coma                                       *
*---------------------------------------------------------------------*
  FORM format_amount_coma USING p_amount
    CHANGING axx TYPE format_amount.
    DATA : p_val TYPE p DECIMALS 2.
    p_val = p_amount.
    IF p_val < 0.
      p_val = p_val * -1.
      WRITE p_val TO axx CURRENCY 'USD'.
      CONCATENATE '-' axx INTO axx.
    ELSE.
      WRITE p_val TO axx CURRENCY 'USD'.
    ENDIF.
    CONDENSE axx NO-GAPS.
    DO 5 TIMES.
      REPLACE '.' WITH '' INTO axx.
    ENDDO.
    CONDENSE axx NO-GAPS.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM format_origin                                            *
*---------------------------------------------------------------------*
  FORM format_origin USING p_amount CHANGING axx TYPE format_amount.
    DATA : p_val TYPE p DECIMALS 2.
    p_val = p_amount.
    IF p_val < 0.
      p_val = p_val * -1.
      WRITE p_val TO axx.
      CONCATENATE '-' axx INTO axx.
    ELSE.
      WRITE p_val TO axx.
    ENDIF.
    CONDENSE axx NO-GAPS.
    DO 5 TIMES.
      REPLACE '.' WITH '' INTO axx.
    ENDDO.
    CONDENSE axx NO-GAPS.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM f_format_amt_excel                                       *
*---------------------------------------------------------------------*
  FORM f_format_amt_excel USING pu_dmbt pu_curr
      CHANGING pc_dmbt TYPE format_amount.
    DATA : lv_dmbt TYPE p DECIMALS 2.
    lv_dmbt = pu_dmbt.
    IF lv_dmbt < 0.
      lv_dmbt = lv_dmbt * -1.
      WRITE lv_dmbt TO pc_dmbt CURRENCY pu_curr.
      CONCATENATE '-' pc_dmbt INTO pc_dmbt.
    ELSE.
      WRITE lv_dmbt TO pc_dmbt CURRENCY pu_curr.
    ENDIF.
    CONDENSE pc_dmbt NO-GAPS.
    DO 5 TIMES.
      REPLACE '.' WITH '' INTO pc_dmbt.
    ENDDO.
    CONDENSE pc_dmbt NO-GAPS.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM format_quantity                                          *
*---------------------------------------------------------------------*
  FORM format_quantity USING pu_meng
    CHANGING axx TYPE format_amount.
    DATA : p_val TYPE p DECIMALS 3.
    p_val = pu_meng.
    IF p_val < 0.
      p_val = p_val * -1.
      WRITE p_val TO axx.
      CONCATENATE '-' axx INTO axx.
    ELSE.
      WRITE p_val TO axx.
    ENDIF.
    CONDENSE axx NO-GAPS.
    DO 5 TIMES.
      REPLACE '.' WITH '' INTO axx.
    ENDDO.
    CONDENSE axx NO-GAPS.
  ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  MODIFY_to_cell
*&---------------------------------------------------------------------*
  FORM modify_to_cell USING  p_cols p_rows
                             p_value.
    struc_generic-column = p_cols.
    struc_generic-row = p_rows.
    struc_generic-value = p_value.
    APPEND struc_generic TO tcontents.
  ENDFORM.                    " MODIFY_to_cell
*---------------------------------------------------------------------*
*       FORM modify_to_cell_format                                    *
*---------------------------------------------------------------------*
  FORM modify_to_cell_format USING p_typ p_cols p_rows
                             p_value.
    DATA : lvxdmbt(18).
    IF p_typ = 'C'.
      PERFORM format_amount USING p_value
        CHANGING lvxdmbt.
    ELSEIF p_typ = 'D'.
      PERFORM format_amount_coma USING p_value
        CHANGING lvxdmbt.
    ELSEIF p_typ = 'Q'.
      PERFORM format_quantity USING p_value
        CHANGING lvxdmbt.
    ELSE.
      PERFORM format_origin USING p_value CHANGING lvxdmbt.
    ENDIF.
    struc_generic-column = p_cols.
    struc_generic-row = p_rows.
    struc_generic-value = lvxdmbt.
    APPEND struc_generic TO tcontents.
  ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  insert_logo
*&---------------------------------------------------------------------*
  FORM insert_logo.
    CALL METHOD document->paste_clipboard
       EXPORTING
         no_flush    = no_flush
       IMPORTING
         error       = error
         retcode     = retcode.
  ENDFORM.                    " insert_logo
*---------------------------------------------------------------------*
*       FORM insert_logo_posxy                                        *
*---------------------------------------------------------------------*
  FORM insert_logo_posxy USING p_left p_top p_rows p_colm.
    CALL METHOD excel->set_selection
           EXPORTING
              left = p_left
              top = p_top
              rows = p_rows
              columns = p_colm
             no_flush  = no_flush
             updating  = -1
           IMPORTING error     = error
              retcode   = retcode.
    CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

    CALL METHOD document->paste_clipboard
       EXPORTING
         no_flush    = no_flush
       IMPORTING
         error       = error
         retcode     = retcode.
  ENDFORM.                    " insert_logo
*---------------------------------------------------------------------*
*       FORM connect_to_excel                                         *
*---------------------------------------------------------------------*
  FORM connect_to_excel USING p_place p_class p_obj p_doc
                              p_logo p_nlogo TYPE type_doc.
    PERFORM prog_indicator_excel USING 0 'Link SAP to Excel..'.
    IF bds_doc IS INITIAL.
      CREATE OBJECT bds_doc.
    ENDIF.
    IF container IS INITIAL.
      CREATE OBJECT container
      EXPORTING
          container_name = 'CONTAINER'.

      CALL METHOD c_oi_container_control_creator=>get_container_control
           IMPORTING control = control
                     retcode = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

      CALL METHOD control->init_control
           EXPORTING r3_application_name = p_doc
                     inplace_enabled = 'X'
                     parent = container
           IMPORTING retcode = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

* Excel
      PERFORM select_document USING p_class p_obj p_doc
        CHANGING doc_url.
* logo
      IF p_logo = 'X'.
        PERFORM select_document USING p_class p_obj p_nlogo
          CHANGING pic_url.
      ENDIF.
      CALL METHOD control->get_document_proxy
        EXPORTING
          document_format    = document_format
          document_type      = document_type
          no_flush           = no_flush
         IMPORTING
           document_proxy     = document
           error              = error
           retcode            = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

*     Open link server
      CALL METHOD control->get_link_server
         EXPORTING
           no_flush    = no_flush
         IMPORTING
           error       = error
           link_server = link_server
           retcode     = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

      CALL METHOD link_server->start_link_server
         EXPORTING
           no_flush           = no_flush
           server_name_suffix = 'SERVER_LINK'
         IMPORTING
           error       = error
           retcode     = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
      IF p_logo = 'X'.
*       Open logo to buffer
        CALL METHOD link_server->add_binary_item
          EXPORTING
            item_name    = p_nlogo
            no_flush     = no_flush
            table_url    = pic_url
           IMPORTING
             error       = error
             retcode     = retcode.
        CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
*       Copy logo to buffer
        CALL METHOD link_server->copy_link_item_to_clipboard
           EXPORTING
             item_name   = p_nlogo
             no_flush    = no_flush
           IMPORTING
             error       = error
             retcode     = retcode.
        CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
      ENDIF.
* Open the Office document
*     ‘X’   : MS Word will displayed in a custom container area
*     Blank : MS Word will displayed in a new window.
      CALL METHOD document->open_document
                             EXPORTING document_url = doc_url
                                       open_inplace = p_place
                             IMPORTING retcode = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.

      CALL METHOD document->get_spreadsheet_interface
           EXPORTING no_flush     = no_flush
           IMPORTING sheet_interface = excel
                     error        = error
                     retcode      = retcode.
      CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
      PERFORM prog_indicator_excel USING 100 'Link Complate!'.
    ENDIF.
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM close_excel_link                                         *
*---------------------------------------------------------------------*
  FORM close_excel_link.
* Close/release link server object
    CALL METHOD link_server->stop_link_server
       EXPORTING
         no_flush    = no_flush
       IMPORTING
         error       = error
         retcode     = retcode.
    CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
    CLEAR bds_doc.
    CLEAR container.
    MESSAGE i016(zcomsg01).
  ENDFORM.
*---------------------------------------------------------------------*
*       FORM run_macro                                                *
*---------------------------------------------------------------------*
  FORM run_macro USING p_macro_string.
    CALL METHOD document->execute_macro
       EXPORTING macro_string  = p_macro_string
                 no_flush      = no_flush
                 script_name  = ''
       IMPORTING error         = error
                 retcode       = retcode.
    CALL METHOD c_oi_errors=>show_message EXPORTING type = 'E'.
  ENDFORM.
*----------------------------------------------------------------------
  FORM RUN_MACRO_PARAM USING P_MACRO_STRING
                             P_PARAM_COUNT
                             P_PARAM01 P_PARAM02 P_PARAM03 P_PARAM04
                             P_PARAM05 P_PARAM06 P_PARAM07 P_PARAM08
                             P_PARAM09 P_PARAM10 P_PARAM11 P_PARAM12.
    CALL METHOD DOCUMENT->EXECUTE_MACRO
       EXPORTING MACRO_STRING  = P_MACRO_STRING
                 NO_FLUSH      = NO_FLUSH
                 SCRIPT_NAME  = ''
                 PARAM_COUNT  = P_PARAM_COUNT
                 PARAM1       = P_PARAM01
                 PARAM2       = P_PARAM02
                 PARAM3       = P_PARAM03
                 PARAM4       = P_PARAM04
                 PARAM5       = P_PARAM05
                 PARAM6       = P_PARAM06
                 PARAM7       = P_PARAM07
                 PARAM8       = P_PARAM08
                 PARAM9       = P_PARAM09
                 PARAM10      = P_PARAM10
                 PARAM11      = P_PARAM11
                 PARAM12      = P_PARAM12
       IMPORTING ERROR         = ERROR
                 RETCODE       = RETCODE.
    CALL METHOD C_OI_ERRORS=>SHOW_MESSAGE EXPORTING TYPE = 'E'.
  ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  f_header_std_excel
*&---------------------------------------------------------------------*
  FORM f_header_std_excel USING pu_xpos pu_ypos
    pu_bukrs pu_spmon pu_title.
    DATA : lvtxt(40),lvxpos(4) TYPE c,lvypos(4) TYPE c.
    SELECT SINGLE butxt INTO lvtxt FROM t001
    WHERE bukrs = pu_bukrs.
    CONCATENATE 'COMPANY : PT.' lvtxt INTO lvtxt SEPARATED BY space.
    TRANSLATE lvtxt TO UPPER CASE.
    lvxpos = pu_xpos. lvypos = pu_ypos.
    PERFORM modify_to_cell USING lvxpos lvypos lvtxt.
    lvypos = lvypos + 1.
    PERFORM modify_to_cell USING lvxpos lvypos pu_title.
    PERFORM f_get_month_excel USING pu_spmon+4(2) CHANGING lvtxt.
    CONCATENATE 'FOR THE MONTH :' lvtxt ',' pu_spmon+0(4)
      INTO lvtxt SEPARATED BY space.
    lvypos = lvypos + 1.
    PERFORM modify_to_cell USING lvxpos lvypos lvtxt.
  ENDFORM.                    " f_header_std_excel
*---------------------------------------------------------------------*
*       FORM f_get_month_EXCEL                                        *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  PMONAT                                                        *
*  -->  PMOTXT                                                        *
*---------------------------------------------------------------------*
  FORM f_get_month_excel USING pmonat CHANGING pmotxt.
    CASE pmonat.
      WHEN 1. pmotxt = 'JANUARY'.
      WHEN 2. pmotxt = 'FEBRUARY'.
      WHEN 3. pmotxt = 'MARCH'.
      WHEN 4. pmotxt = 'APRIL'.
      WHEN 5. pmotxt = 'MAY'.
      WHEN 6. pmotxt = 'JUNE'.
      WHEN 7. pmotxt = 'JULY'.
      WHEN 8. pmotxt = 'AUGUST'.
      WHEN 9. pmotxt = 'SEPTEMBER'.
      WHEN 10. pmotxt = 'OCTOBER'.
      WHEN 11. pmotxt = 'NOVEMBER'.
      WHEN 12. pmotxt = 'DECEMBER'.
    ENDCASE.
  ENDFORM.

include program : ZAB_ALV

2010-06-04T10:05:00.001+07:00

Include ZAB_ALV - for create ALV Layout


TYPE-POOLS: slis .

*---------------------------------------------------------------------*
*     Data object declaration
*---------------------------------------------------------------------*
DATA: t_alv_fctlg TYPE slis_t_fieldcat_alv,
      t_alv_event TYPE slis_t_event WITH HEADER LINE,
      t_alv_isort TYPE slis_t_sortinfo_alv WITH HEADER LINE,
      t_alv_filtr TYPE slis_t_filter_alv WITH HEADER LINE,
      t_header    TYPE slis_t_listheader,
      d_alv_isort TYPE slis_sortinfo_alv,
      d_alv_varnt TYPE disvariant,
      d_alv_lscrl TYPE  slis_list_scroll,
      d_alv_sort_postn TYPE i,
      d_alv_save(1) TYPE c,
      d_alv_varnm LIKE disvariant-variant,
      d_alv_qinfo TYPE slis_keyinfo_alv,
      d_alv_fctlg TYPE slis_fieldcat_alv,
      d_alv_stats TYPE slis_formname,
      d_alv_ucomm TYPE slis_formname,
      d_alv_print TYPE slis_print_alv,
      d_alv_repid LIKE sy-repid,
      d_alv_tabix LIKE sy-tabix,
      d_alv_subrc LIKE sy-subrc,
      d_alv_bg_id LIKE bapibds01-objkey VALUE 'ALV_BACKGROUND',
      d_alv_screen_start_column TYPE i,
      d_alv_screen_start_line   TYPE i,
      d_alv_screen_end_column   TYPE i,
      d_alv_screen_end_line     TYPE i,
      d_alv_layout TYPE slis_layout_alv.

CONSTANTS : c_top_of_page TYPE slis_formname VALUE 'F_TOP_OF_PAGE',
            c_top_of_page_alv TYPE slis_formname
                             VALUE 'F_TOP_OF_PAGE_ALV',
            c_end_of_page TYPE slis_formname VALUE 'F_END_OF_PAGE',
            c_user_command TYPE slis_formname VALUE 'F_USER_COMMAND',
            c_pf_status TYPE slis_formname VALUE 'F_PF_STATUS'.

* Variant
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE text-v01.
PARAMETERS: p_vari LIKE disvariant-variant no-display.
SELECTION-SCREEN END OF BLOCK 0.

** Process on value request
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
*  PERFORM f_alv_variant_f4 CHANGING d_alv_varnt-variant.

*AT SELECTION-SCREEN.
*  PERFORM f_alv_selscr_input.

*&---------------------------------------------------------------------*
*&      FORM F_ALV_INIT
*&---------------------------------------------------------------------*
*       Initialize ALV variables
*----------------------------------------------------------------------*
FORM f_alv_init.
  d_alv_repid = sy-repid.
  d_alv_save = 'A'.
  d_alv_varnt-report = sy-repid.
ENDFORM.                    " f_alv_init

*---------------------------------------------------------------------*
*       FORM F_ALV_BUILD_COMMENT                                      *
*---------------------------------------------------------------------*
*       Build ALV Header                                              *
*---------------------------------------------------------------------*
FORM f_alv_build_comment TABLES ft_top_of_page TYPE slis_t_listheader
                         USING  fu_typ fu_key fu_info.

* fu_typ = H, S, or A.
*   H = Header (big), S = Selection (reg) , A = Action (small)
  ft_top_of_page-typ  = fu_typ.
  ft_top_of_page-key  = fu_key.
  ft_top_of_page-info = fu_info.
  APPEND ft_top_of_page.

ENDFORM.                    "f_alv_build_comment

*---------------------------------------------------------------------*
*       FORM F_TOP_OF_PAGE                                            *
*---------------------------------------------------------------------*
*       TOP-OF-PAGE                                                   *
*---------------------------------------------------------------------*
FORM f_top_of_page_alv.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      it_list_commentary = t_header.
ENDFORM.     "F_TOP_OF_PAGE_ALV

*---------------------------------------------------------------------*
*       FORM f_end_of_page                                            *
*---------------------------------------------------------------------*
*       END-OF-PAGE                                                   *
*---------------------------------------------------------------------*
FORM f_end_of_page_alv.

ENDFORM.                    "f_end_of_page_alv

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_EVENT
*&---------------------------------------------------------------------*
*       Build ALV events (TOP-OF-PAGE, END-OF-PAGE, etc)
*----------------------------------------------------------------------*
FORM f_alv_build_event USING fu_pname fu_pform.

*  DATA: lX_event TYPE slis_alv_event.
*
*  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
*       EXPORTING
*            i_list_type = 0
*       IMPORTING
*            et_events   = t_alv_event.
*
*   READ TABLE t_alv_event WITH KEY name = slis_ev_top_of_page.
*
*  IF sy-subrc = 0.
*    MOVE c_top_of_page TO t_alv_event-form.
*    APPEND t_alv_event.
*  ENDIF.

  CLEAR t_alv_event.
  t_alv_event-name = fu_pname.
  t_alv_event-form = fu_pform.
  APPEND t_alv_event.
ENDFORM.                    " F_BUILD_EVENT

*---------------------------------------------------------------------*
*       FORM F_ALV_SET_UCOMM                                          *
*---------------------------------------------------------------------*
*       Set ALV user callback command                                 *
*---------------------------------------------------------------------*
FORM f_alv_set_ucomm USING value(fu_ucomm) TYPE slis_formname.
  CLEAR d_alv_ucomm.
  d_alv_ucomm = fu_ucomm.
ENDFORM.                    "f_alv_set_ucomm

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build ALV layout
*----------------------------------------------------------------------*
FORM f_alv_build_layout USING fu_field fu_value.
* No Headings
  IF fu_field = 'NO_COLHEAD'.
    d_alv_layout-no_colhead = fu_value.
* Headings not as hotspot
  ELSEIF fu_field = 'NO_HOTSPOT'.
    d_alv_layout-no_hotspot = fu_value.
* Striped pattern
  ELSEIF fu_field = 'ZEBRA'.
    d_alv_layout-zebra = fu_value.
* Columns separated by space
  ELSEIF fu_field = 'NO_VLINE'.
    d_alv_layout-no_vline = fu_value.
* Not suppress field replication
  ELSEIF fu_field = 'CELL_MERGE'.
    d_alv_layout-cell_merge = fu_value.
* For GRID only
  ELSEIF fu_field = 'EDIT'.
    d_alv_layout-edit = fu_value.
* For GRID only
  ELSEIF fu_field = 'EDIT_MODE'.
    d_alv_layout-edit_mode = fu_value.
* Totals for NUMC-Fields possible.
  ELSEIF fu_field = 'NUMC_SUM'.
    d_alv_layout-numc_sum = fu_value.
* Only display fields
  ELSEIF fu_field = 'NO_INPUT'.
    d_alv_layout-no_input = fu_value.
  ELSEIF fu_field = 'F2CODE'.
    d_alv_layout-f2code = fu_value.
* Report interface active
  ELSEIF fu_field = 'REPREP'.
    d_alv_layout-reprep = fu_value.
* No fix key columns - moving possible
  ELSEIF fu_field = 'NO_KEYFIX'.
    d_alv_layout-no_keyfix = fu_value.
* Expand all positions
  ELSEIF fu_field = 'EXPAND_ALL'.
    d_alv_layout-expand_all = fu_value.
* No standard authority check
  ELSEIF fu_field = 'NO_AUTHOR'.
    d_alv_layout-no_author = fu_value.
* Default status  space or 'A'
  ELSEIF fu_field = 'DEF_STATUS'.
    d_alv_layout-def_status = fu_value.
* Text for item button
  ELSEIF fu_field = 'ITEM_TEXT'.
    d_alv_layout-item_text = fu_value.
  ELSEIF fu_field = 'COLWIDTH_OPTIMIZE'.
    d_alv_layout-colwidth_optimize = fu_value.
* line size = width of the list
  ELSEIF fu_field = 'NO_MIN_LINESIZE'.
    d_alv_layout-no_min_linesize  = fu_value.
* if initial min_linesize = 80
  ELSEIF fu_field = 'MIN_LINESIZE'.
    d_alv_layout-min_linesize  = fu_value.
* Default = 250
  ELSEIF fu_field = 'MAX_LINESIZE'.
    d_alv_layout-max_linesize  = fu_value.
  ELSEIF fu_field = 'WINDOW_TITLEBAR'.
    d_alv_layout-window_titlebar  = fu_value.
  ELSEIF fu_field = 'NO_ULINE_HS'.
    d_alv_layout-no_uline_hs  = fu_value.
** Exceptions
  ELSEIF fu_field = 'LIGHTS_FIELDNAME'.
    d_alv_layout-lights_fieldname  = fu_value.
  ELSEIF fu_field = 'LIGHTS_TABNAME'.
    d_alv_layout-lights_tabname  = fu_value.
  ELSEIF fu_field = 'LIGHTS_ROLLNAME'.
    d_alv_layout-lights_rollname  = fu_value.
  ELSEIF fu_field = 'LIGHTS_CONDENSE'.
    d_alv_layout-lights_condense  = fu_value.
** Sums
* No choice for summing up
  ELSEIF fu_field = 'NO_SUMCHOICE'.
    d_alv_layout-no_sumchoice  = fu_value.
* No total line
  ELSEIF fu_field = 'NO_TOTALLINE'.
    d_alv_layout-no_totalline  = fu_value.
* No choice for subtotals
  ELSEIF fu_field = 'NO_SUBCHOICE'.
    d_alv_layout-no_subchoice  = fu_value.
* No subtotals possible
  ELSEIF fu_field = 'NO_SUBTOTALS'.
    d_alv_layout-no_subtotals  = fu_value.
* no sep. tot.lines by inh.units
  ELSEIF fu_field = 'NO_UNIT_SPLITTING'.
    d_alv_layout-no_unit_splitting  = fu_value.
* Display totals before the items
  ELSEIF fu_field = 'TOTALS_BEFORE_ITEMS'.
    d_alv_layout-totals_before_items = fu_value.
* Show only totals
  ELSEIF fu_field = 'TOTALS_ONLY'.
    d_alv_layout-totals_only  = fu_value.
* Text for 1st col. in total line
  ELSEIF fu_field = 'TOTALS_TEXT'.
    d_alv_layout-totals_text  = fu_value.
* Text for 1st col. in subtotals
  ELSEIF fu_field = 'SUBTOTALS_TEXT'.
    d_alv_layout-subtotals_text  = fu_value.
** Interaction
  ELSEIF fu_field = 'BOX_FIELDNAME'.
    d_alv_layout-box_fieldname  = fu_value.
  ELSEIF fu_field = 'BOX_TABNAME'.
    d_alv_layout-box_tabname  = fu_value.
  ELSEIF fu_field = 'BOX_ROLLNAME'.
    d_alv_layout-box_rollname  = fu_value.
  ELSEIF fu_field = 'EXPAND_FIELDNAME'.
    d_alv_layout-expand_fieldname  = fu_value.
  ELSEIF fu_field = 'HOTSPOT_FIELDNAME'.
    d_alv_layout-hotspot_fieldname = fu_value.
  ELSEIF fu_field = 'CONFIRMATION_PROMPT'.
    d_alv_layout-confirmation_prompt = fu_value.
  ELSEIF fu_field = 'KEY_HOTSPOT'.
    d_alv_layout-key_hotspot = fu_value.
  ELSEIF fu_field = 'FLEXIBLE_KEY'.
    d_alv_layout-flexible_key = fu_value.
  ELSEIF fu_field = 'GROUP_BUTTONS'.
    d_alv_layout-group_buttons = fu_value.
  ELSEIF fu_field = 'GET_SELINFOS'.
    d_alv_layout-get_selinfos = fu_value.
  ELSEIF fu_field = 'GROUP_CHANGE_EDIT'.
    d_alv_layout-group_change_edit = fu_value.
  ELSEIF fu_field = 'NO_SCROLLING'.
    d_alv_layout-no_scrolling = fu_value.
** Detailed screen
  ELSEIF fu_field = 'DETAIL_POPUP'.
    d_alv_layout-detail_popup = fu_value.
  ELSEIF fu_field = 'DETAIL_INITIAL_LINES'.
    d_alv_layout-detail_initial_lines = fu_value.
  ELSEIF fu_field = 'DETAIL_TITLEBAR'.
    d_alv_layout-detail_titlebar = fu_value.
  ELSEIF fu_field = 'DETAIL_POPUP'.
    d_alv_layout-detail_popup = fu_value.
** Variant
  ELSEIF fu_field = 'HEADER_TEXT'.
    d_alv_layout-header_text = fu_value.
  ELSEIF fu_field = 'DEFAULT_ITEM'.
    d_alv_layout-default_item = fu_value.
** Color
  ELSEIF fu_field = 'INFO_FIELDNAME'.
    d_alv_layout-info_fieldname = fu_value.
  ELSEIF fu_field = 'COLTAB_FIELDNAME'.
    d_alv_layout-coltab_fieldname = fu_value.
** Others
  ELSEIF fu_field = 'LIST_APPEND'.
    d_alv_layout-coltab_fieldname = fu_value.
  ELSEIF fu_field = 'XIFUNCKEY'.
    d_alv_layout-xifunckey = fu_value.
  ELSEIF fu_field = 'XIDIRECT'.
    d_alv_layout-xidirect = fu_value.
  ELSEIF fu_field = 'DTC_LAYOUT'.
    d_alv_layout-dtc_layout = fu_value.
  ENDIF.

ENDFORM.  " F_ALV_BUILD_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  f_check_box
*&---------------------------------------------------------------------*
FORM f_alv_check_box USING fu_tname.
  d_alv_layout-box_fieldname = 'CHKBX'.
  d_alv_layout-box_tabname   = fu_tname.
ENDFORM.                    " F_CHECK_BOX

*&---------------------------------------------------------------------*
*&      Form  f_alv_sort
*&---------------------------------------------------------------------*
*       Sort ALV catalog
*----------------------------------------------------------------------*
FORM f_alv_sort USING fu_table fu_field fu_ascnd fu_subtot fu_group.
  DATA: ld_isort TYPE slis_sortinfo_alv.
  d_alv_sort_postn = d_alv_sort_postn + 1.
  ld_isort-tabname   = fu_table.
  ld_isort-fieldname = fu_field.
  IF fu_ascnd = 'X'.
    ld_isort-up = 'X'.
  ELSE.
    ld_isort-down = 'X'.
  ENDIF.
  ld_isort-spos      = d_alv_sort_postn.
  ld_isort-subtot    = fu_subtot.
  ld_isort-group     = fu_group.
  APPEND ld_isort TO t_alv_isort.
ENDFORM.                    " F_ALV_SORT

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_CATALOG
*&---------------------------------------------------------------------*
FORM f_alv_build_catalog USING ft_fctlg TYPE slis_t_fieldcat_alv
                               fu_tbnam fu_fname fu_dscrp
                               fu_reftb fu_refld
                               fu_noout fu_outln fu_hotsp fu_jstfy
                               fu_dosum fu_rowpos fu_colpos
                               fu_icon fu_spgroup fu_keysel.
  DATA: lv_fctlg TYPE slis_fieldcat_alv.

  lv_fctlg-seltext_s     = fu_dscrp.
  lv_fctlg-seltext_m     = fu_dscrp.
  lv_fctlg-seltext_l     = fu_dscrp.
  lv_fctlg-reptext_ddic  = fu_dscrp.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ref_tabname   = fu_reftb.
  lv_fctlg-ref_fieldname = fu_refld.
  lv_fctlg-no_out        = fu_noout.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-hotspot       = fu_hotsp.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-do_sum        = fu_dosum.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  lv_fctlg-icon          = fu_icon.
  lv_fctlg-sp_group      = fu_spgroup.
  lv_fctlg-key_sel       = fu_keysel.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                               " F_ALV_BUILD_CATALOG

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_CATALOG_CRNCY
*&---------------------------------------------------------------------*
FORM f_alv_build_catalog_crncy USING ft_fctlg TYPE slis_t_fieldcat_alv
                         fu_tbnam fu_fname fu_dscrp
                         fu_reftb fu_refld fu_outln fu_dosum
                         fu_curky fu_cfild fu_ctbnm fu_jstfy
                         fu_rowpos fu_colpos fu_noout.
  DATA: lv_fctlg TYPE slis_fieldcat_alv,
        ld_lngth TYPE i.
  ld_lngth = STRLEN( fu_dscrp ).
  IF ld_lngth > 25.
    lv_fctlg-seltext_l   = fu_dscrp.
  ELSEIF ld_lngth > 10.
    lv_fctlg-seltext_l   = fu_dscrp.
    lv_fctlg-seltext_m   = fu_dscrp.
  ELSE.
    lv_fctlg-seltext_s   = fu_dscrp.
    lv_fctlg-seltext_m   = fu_dscrp.
    lv_fctlg-seltext_l   = fu_dscrp.
  ENDIF.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ctabname      = fu_reftb.
  lv_fctlg-cfieldname    = fu_refld.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-do_sum        = fu_dosum.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-currency      = fu_curky.
  lv_fctlg-cfieldname    = fu_cfild.
  lv_fctlg-ctabname      = fu_ctbnm.
  lv_fctlg-datatype      = 'CURR'.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  lv_fctlg-no_out        = fu_noout.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                    " F_ALV_BUILD_CATALOG_CRNCY

*&---------------------------------------------------------------------*
*&      Form  F_ALV_CATALOG_EXPNT
*&---------------------------------------------------------------------*
FORM f_alv_catalog_expnt USING ft_fctlg TYPE slis_t_fieldcat_alv
                         fu_tbnam fu_fname fu_dscrp
                         fu_reftb fu_refld
                         fu_outln fu_decml fu_expnt fu_jstfy
                         fu_rowpos fu_colpos fu_noout.
  DATA: lv_fctlg TYPE slis_fieldcat_alv,
        ld_lngth TYPE i.
  ld_lngth = STRLEN( fu_dscrp ).
  IF ld_lngth > 25.
    lv_fctlg-seltext_l   = fu_dscrp.
  ELSEIF ld_lngth > 10.
    lv_fctlg-seltext_l   = fu_dscrp.
    lv_fctlg-seltext_m   = fu_dscrp.
  ELSE.
    lv_fctlg-seltext_s   = fu_dscrp.
    lv_fctlg-seltext_m   = fu_dscrp.
    lv_fctlg-seltext_l   = fu_dscrp.
  ENDIF.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ref_tabname   = fu_reftb.
  lv_fctlg-ref_fieldname = fu_refld.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-decimals_out  = fu_decml.
  lv_fctlg-exponent      = fu_expnt.
  lv_fctlg-datatype      = 'FLTP'.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  lv_fctlg-no_out        = fu_noout.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                    " F_ALV_CATALOG_EXPNT


*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_CATALOG_QTY
*&---------------------------------------------------------------------*
*& field catalog for quantity unit
*&---------------------------------------------------------------------*
FORM f_alv_build_catalog_qty USING ft_fctlg TYPE slis_t_fieldcat_alv
                               fu_tbnam fu_fname fu_dscrp
                               fu_reftb fu_refld fu_noout
                               fu_outln fu_dosum fu_jstfy
                               fu_meins fu_qfild fu_qtbnm
                               fu_rowpos fu_colpos.
  DATA: lv_fctlg TYPE slis_fieldcat_alv.

  lv_fctlg-seltext_s     = fu_dscrp.
  lv_fctlg-seltext_m     = fu_dscrp.
  lv_fctlg-seltext_l     = fu_dscrp.
  lv_fctlg-reptext_ddic  = fu_dscrp.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ref_tabname   = fu_reftb.
  lv_fctlg-ref_fieldname = fu_refld.
  lv_fctlg-no_out        = fu_noout.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-do_sum        = fu_dosum.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-quantity      = fu_meins.
  lv_fctlg-qfieldname    = fu_qfild.
  lv_fctlg-qtabname      = fu_qtbnm.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                               " F_ALV_BUILD_CATALOG_QTY

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_CATALOG_INPUT
*&---------------------------------------------------------------------*
FORM f_alv_build_catalog_input USING ft_fctlg TYPE slis_t_fieldcat_alv
                               fu_tbnam fu_fname fu_dscrp
                               fu_reftb fu_refld
                               fu_noout fu_outln fu_hotsp fu_jstfy
                               fu_dosum fu_rowpos fu_colpos
                               fu_icon fu_spgroup fu_keysel
                               fu_input fu_edit.
  DATA: lv_fctlg TYPE slis_fieldcat_alv.

  lv_fctlg-seltext_s     = fu_dscrp.
  lv_fctlg-seltext_m     = fu_dscrp.
  lv_fctlg-seltext_l     = fu_dscrp.
  lv_fctlg-reptext_ddic  = fu_dscrp.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ref_tabname   = fu_reftb.
  lv_fctlg-ref_fieldname = fu_refld.
  lv_fctlg-no_out        = fu_noout.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-hotspot       = fu_hotsp.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-do_sum        = fu_dosum.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  lv_fctlg-icon          = fu_icon.
  lv_fctlg-sp_group      = fu_spgroup.
  lv_fctlg-key_sel       = fu_keysel.
  lv_fctlg-input         = fu_input.
  lv_fctlg-edit          = fu_edit.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                               " F_ALV_BUILD_CATALOG_INPUT

*&---------------------------------------------------------------------*
*&      Form  F_GET_CATALOG
*&---------------------------------------------------------------------*
* @FT_FCTLG = internal table to store field catalog result
* @FU_TABLE = internal table name
* @FU_STRCT = Table/Structure name
* description: Purpose to get field attribute from data dictionary
*              (Table/Structure) and save as ALV field catalog
FORM f_alv_get_catalog TABLES ft_fctlg TYPE slis_t_fieldcat_alv
                       USING  fu_table
                              fu_strct.
  DATA: ld_table TYPE slis_tabname,
        ld_strct LIKE dd02l-tabname,
        ld_fctlg TYPE slis_fieldcat_alv,
        lt_fctlg TYPE slis_t_fieldcat_alv.
  ld_table = fu_table.
  ld_strct = fu_strct.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_internal_tabname     = ld_table
      i_structure_name       = ld_strct
      i_bypassing_buffer     = 'X'
    CHANGING
      ct_fieldcat            = lt_fctlg
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
  ENDIF.
*  ld_fctlg-currency = 'IDR'.
*  MODIFY lt_fctlg FROM ld_fctlg TRANSPORTING currency
*    WHERE datatype EQ 'CURR'.
  APPEND LINES OF lt_fctlg TO ft_fctlg.
ENDFORM.                    " F_GET_CATALOG

*&---------------------------------------------------------------------*
*&      Form  F_ALV_LIST_DISPLAY
*&---------------------------------------------------------------------*
*       Generate ALV classic display
*----------------------------------------------------------------------*
FORM f_alv_list_display TABLES ft_table
                        USING  fu_table TYPE slis_tabname
                               fu_fsave.
  d_alv_varnt-report = d_alv_repid.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
      EXPORTING
            i_callback_program       = d_alv_repid
            i_callback_pf_status_set = d_alv_stats
            i_callback_user_command  = d_alv_ucomm
*           I_STRUCTURE_NAME         =
            is_layout                = d_alv_layout
            it_fieldcat              = t_alv_fctlg
            it_sort                  = t_alv_isort[]
            i_default                = 'X'
            i_save                   = fu_fsave
            is_variant               = d_alv_varnt
            it_events                = t_alv_event[]
            is_print                 = d_alv_print
            i_screen_start_column    = d_alv_screen_start_column
            i_screen_start_line      = d_alv_screen_start_line
            i_screen_end_column      = d_alv_screen_end_column
            i_screen_end_line        = d_alv_screen_end_line
       TABLES
            t_outtab                 = ft_table[]
       EXCEPTIONS
            program_error            = 1
            OTHERS                   = 2.
ENDFORM.                    " F_ALV_LIST_DISPLAY

*---------------------------------------------------------------------*
*       FORM F_ALV_GRID_DISPLAY                                       *
*---------------------------------------------------------------------*
*       Generate ALV grid display                                     *
*---------------------------------------------------------------------*
FORM f_alv_grid_display TABLES ft_table.
  d_alv_varnt-report = d_alv_repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = d_alv_repid
      i_callback_pf_status_set = d_alv_stats
      i_callback_user_command  = d_alv_ucomm
      i_background_id          = d_alv_bg_id
      is_layout                = d_alv_layout
      it_fieldcat              = t_alv_fctlg
      it_sort                  = t_alv_isort[]
      i_default                = 'X'
      i_save                   = d_alv_save
      is_variant               = d_alv_varnt
      it_events                = t_alv_event[]
      is_print                 = d_alv_print
      i_screen_start_column    = d_alv_screen_start_column
      i_screen_start_line      = d_alv_screen_start_line
      i_screen_end_column      = d_alv_screen_end_column
      i_screen_end_line        = d_alv_screen_end_line
    TABLES
      t_outtab                 = ft_table
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.         " F_ALV_GRID_DISPLAY

FORM f_alv_grid_display_neu TABLES ft_table
                   USING  fu_scol fu_sline fu_ecol fu_eline fu_default.
  d_alv_varnt-report = d_alv_repid.
*  d_alv_layout-COLWIDTH_OPTIMIZE = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = d_alv_repid
      i_callback_pf_status_set = d_alv_stats
      i_callback_user_command  = d_alv_ucomm
      i_background_id          = d_alv_bg_id
      is_layout                = d_alv_layout
      it_fieldcat              = t_alv_fctlg
      it_sort                  = t_alv_isort[]
      i_default                = fu_default
      i_save                   = d_alv_save
      is_variant               = d_alv_varnt
      it_events                = t_alv_event[]
      is_print                 = d_alv_print
      i_screen_start_column    = fu_scol
      i_screen_start_line      = fu_sline
      i_screen_end_column      = fu_ecol
      i_screen_end_line        = fu_eline
    TABLES
      t_outtab                 = ft_table
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.         " F_ALV_GRID_DISPLAY_NEU

*&---------------------------------------------------------------------*
*&      Form  F_ALV_HIER_DISPLAY
*&---------------------------------------------------------------------*
*       Generate ALV hierarchical display (header & item level)
*----------------------------------------------------------------------*
FORM f_alv_hier_display TABLES ft_headr
                               ft_items
                        USING  fu_headr TYPE slis_tabname
                               fu_items TYPE slis_tabname
                               fu_fsave.
  d_alv_varnt-report = d_alv_repid.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = d_alv_repid
      i_callback_pf_status_set = d_alv_stats
      i_callback_user_command  = d_alv_ucomm
      is_layout                = d_alv_layout
      i_save                   = fu_fsave
      it_fieldcat              = t_alv_fctlg
      it_sort                  = t_alv_isort[]
      it_events                = t_alv_event[]
      is_variant               = d_alv_varnt
      i_tabname_header         = fu_headr
      i_tabname_item           = fu_items
      is_keyinfo               = d_alv_qinfo
      is_print                 = d_alv_print
      i_screen_start_column    = d_alv_screen_start_column
      i_screen_start_line      = d_alv_screen_start_line
      i_screen_end_column      = d_alv_screen_end_column
      i_screen_end_line        = d_alv_screen_end_line
    TABLES
      t_outtab_header          = ft_headr
      t_outtab_item            = ft_items
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.                     " F_ALV_HIER_DISPLAY

*&---------------------------------------------------------------------*
*&      Form  F_GET_TABLES2
*&---------------------------------------------------------------------*
FORM f_alv_get_tables2 TABLES ft_headr ft_items.
  CALL FUNCTION 'REUSE_ALV_HS_TABLES_GET'
    TABLES
      et_outtab_master = ft_headr
      et_outtab_detail = ft_items
    EXCEPTIONS
      no_infos         = 1
      OTHERS           = 2.
ENDFORM.                    " F_GET_TABLES

*---------------------------------------------------------------------*
*       FORM f_alv_get_tables                                         *
*---------------------------------------------------------------------*
FORM f_alv_get_tables1 TABLES ft_table.
  CALL FUNCTION 'REUSE_ALV_TABLES_GET'
    TABLES
      et_outtab = ft_table
    EXCEPTIONS
      no_infos  = 1
      OTHERS    = 2.
ENDFORM.                    " F_GET_TABLES

*&---------------------------------------------------------------------*
*&      Form  f_alv_variant_f4
*&---------------------------------------------------------------------*
FORM f_alv_variant_f4 CHANGING fc_varnt.
  DATA: rs_variant LIKE disvariant.
  rs_variant-report   = d_alv_repid.
  rs_variant-username = sy-uname.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = rs_variant
      i_save     = 'A'
    IMPORTING
      es_variant = rs_variant
    EXCEPTIONS
      OTHERS     = 1.
  IF sy-subrc = 0.
    fc_varnt = rs_variant-variant.
    p_vari = rs_variant-variant.
  ENDIF.
ENDFORM.                               " ALV_VARIANT_F4

*&---------------------------------------------------------------------*
*&      Form  f_alv_selscr_input
*&---------------------------------------------------------------------*
*       PAI of ALV selection screen
*----------------------------------------------------------------------*
FORM f_alv_selscr_input.
  DATA : rs_variant LIKE disvariant.

  IF NOT p_vari IS INITIAL.
    MOVE d_alv_varnt TO rs_variant.
    MOVE p_vari TO rs_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = d_alv_save
      CHANGING
        cs_variant = rs_variant.

    d_alv_varnt = rs_variant.
  ELSE.
    CLEAR d_alv_varnt.
    d_alv_varnt  = d_alv_repid.
  ENDIF.

ENDFORM.                    " f_alv_selscr_input
*&---------------------------------------------------------------------*
*&      Form  F_BUILD_PRINT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_D_ALV_PRINT  text
*----------------------------------------------------------------------*
FORM f_build_print CHANGING fc_print TYPE slis_print_alv.

  fc_print-no_print_listinfos = 'X'.
  fc_print-no_print_selinfos = 'X'.
  fc_print-no_coverpage = 'X'.

ENDFORM.                    " F_BUILD_PRINT

*&---------------------------------------------------------------------*
*&      Form  F_ALV_BUILD_CATALOG_INPUT
*&---------------------------------------------------------------------*
FORM f_alv_build_catalog_checkbox
                         USING ft_fctlg TYPE slis_t_fieldcat_alv
                               fu_tbnam fu_fname fu_dscrp
                               fu_reftb fu_refld
                               fu_noout fu_outln fu_hotsp fu_jstfy
                               fu_dosum fu_rowpos fu_colpos
                               fu_icon fu_spgroup fu_keysel
                               fu_input fu_edit fu_box.
  DATA: lv_fctlg TYPE slis_fieldcat_alv.

  lv_fctlg-seltext_s     = fu_dscrp.
  lv_fctlg-seltext_m     = fu_dscrp.
  lv_fctlg-seltext_l     = fu_dscrp.
  lv_fctlg-reptext_ddic  = fu_dscrp.
  lv_fctlg-tabname       = fu_tbnam.
  lv_fctlg-fieldname     = fu_fname.
  lv_fctlg-ref_tabname   = fu_reftb.
  lv_fctlg-ref_fieldname = fu_refld.
  lv_fctlg-no_out        = fu_noout.
  lv_fctlg-outputlen     = fu_outln.
  lv_fctlg-hotspot       = fu_hotsp.
  lv_fctlg-just          = fu_jstfy.
  lv_fctlg-do_sum        = fu_dosum.
  lv_fctlg-row_pos       = fu_rowpos.
  lv_fctlg-col_pos       = fu_colpos.
  lv_fctlg-icon          = fu_icon.
  lv_fctlg-sp_group      = fu_spgroup.
  lv_fctlg-key_sel       = fu_keysel.
  lv_fctlg-input         = fu_input.
  lv_fctlg-edit          = fu_edit.
  lv_fctlg-checkbox      = fu_box.
  APPEND lv_fctlg TO ft_fctlg.
ENDFORM.                               " F_ALV_BUILD_CATALOG_INPUT

*---------------------------------------------------------------------*
*       FORM F_ALV_GRID_DISPLAY_EXIT                                  *
*---------------------------------------------------------------------*
*       Generate ALV grid display with event exit                     *
*---------------------------------------------------------------------*
FORM f_alv_grid_display_exit TABLES ft_table
                                    ft_evt_exit TYPE slis_t_event_exit.

  d_alv_varnt-report = d_alv_repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = d_alv_repid
      i_callback_pf_status_set = d_alv_stats
      i_callback_user_command  = d_alv_ucomm
      i_background_id          = d_alv_bg_id
      is_layout                = d_alv_layout
      it_fieldcat              = t_alv_fctlg
      it_sort                  = t_alv_isort[]
      i_default                = 'X'
      i_save                   = d_alv_save
      is_variant               = d_alv_varnt
      it_events                = t_alv_event[]
      is_print                 = d_alv_print
      it_event_exit            = ft_evt_exit[]
      i_screen_start_column    = d_alv_screen_start_column
      i_screen_start_line      = d_alv_screen_start_line
      i_screen_end_column      = d_alv_screen_end_column
      i_screen_end_line        = d_alv_screen_end_line
    TABLES
      t_outtab                 = ft_table
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.         " F_ALV_GRID_DISPLAY

Sample : ALV Report and Transfer to Excel with Macro defined on excel (make column lines)

2010-06-04T09:24:00.008+07:00

Here's a report using simple ALV to display and transfer to Excel.
And it run macro also, to create column lines.
Place your excel template using tcode OAOR

for include program, please refer to this link:
ZGEN_EXCEL
ZAB_ALV
File Excel (contain macro)

This program also contains :
- how to get Material initial stock balance (MB5B) (include backposting - stock in transfer)
- how to get Material end stock balance
- how to get Quantity received or quantity required for MRP (MD04)
- outstanding PO Qty
- display the report using ALV and Excel


REPORT zmm_realisasi NO STANDARD PAGE HEADING LINE-SIZE 237.

TABLES : mara, t001w, makt, mbewh, mardh.
DATA : BEGIN OF t_mara OCCURS 0,
         matnr LIKE mara-matnr,
         meins LIKE mara-meins,
         mtart LIKE mara-mtart,
         maktx LIKE makt-maktx,
       END OF t_mara,
       BEGIN OF t_mbewh OCCURS 0,
         matnr LIKE mbewh-matnr,
         bwkey LIKE mbewh-bwkey,
         lbkum LIKE mbewh-lbkum,
       END OF t_mbewh,
       BEGIN OF t_t_mbewh OCCURS 0,
         matnr LIKE ekpo-matnr,
         werks LIKE ekpo-werks,
       END OF t_t_mbewh,
       BEGIN OF t_mbew OCCURS 0,
         matnr LIKE mbew-matnr,
         bwkey LIKE mbew-bwkey,
         lbkum LIKE mbew-lbkum,
         lfgja LIKE mbew-lfgja,
         lfmon LIKE mbew-lfmon,
       END OF t_mbew,
       BEGIN OF t_mardh OCCURS 0,
         matnr LIKE mardh-matnr,
         werks LIKE mardh-werks,
         lgort LIKE mardh-lgort,
         umlme LIKE mardh-umlme,
       END OF t_mardh,
       BEGIN OF t_qtypo OCCURS 0,
         bedat LIKE ekko-bedat,
         ebeln LIKE ekpo-ebeln,
         ebelp LIKE ekpo-ebelp,
         matnr LIKE ekpo-matnr,
         werks LIKE ekpo-werks,
         menge LIKE ekpo-menge,
         elikz LIKE ekpo-elikz,
       END OF t_qtypo,
       BEGIN OF t_qtypo2 OCCURS 0,
         matnr LIKE ekpo-matnr,
         werks LIKE ekpo-werks,
         menge LIKE ekpo-menge,
       END OF t_qtypo2,
       t_qtypooutst LIKE t_qtypo2 OCCURS 0 WITH HEADER LINE,
       BEGIN OF t_io OCCURS 0,
         budat LIKE mkpf-budat,
         mblnr LIKE mseg-mblnr,
         zeile LIKE mseg-zeile,
         werks LIKE mseg-werks,
         matnr LIKE mseg-matnr,
         bwart LIKE mseg-bwart,
         shkzg LIKE mseg-shkzg,
         menge LIKE mseg-menge,
       END OF t_io,
       BEGIN OF t_outpo OCCURS 0,
         bedat LIKE ekko-bedat,
         matnr LIKE ekpo-matnr,
         werks LIKE ekpo-werks,
         ebeln LIKE ekpo-ebeln,
         ebelp LIKE ekpo-ebelp,
         belnr LIKE ekbe-belnr,
         buzei LIKE ekbe-buzei,
         bwart LIKE ekbe-bwart,
         menge LIKE ekbe-menge,
       END OF t_outpo,
*       begin of t_outpo occurs 0,
*         bedat like ekko-bedat,
*         matnr like ekpo-matnr,
*         werks like ekpo-werks,
*         ebeln like ekpo-ebeln,
*         ebelp like ekpo-ebelp,
*         bwart like ekbe-bwart,
*         menge like ekbe-menge,
*       end of t_outpo,
* ekko~bedat
*    ekpo~matnr ekpo~werks
*    ekbe~ebeln ekbe~ebelp
*    ekbe~bwart ekbe~menge
       BEGIN OF t_input2 OCCURS 0,
         matnr LIKE mseg-matnr,
         werks LIKE mseg-werks,
         menge LIKE mseg-menge,
       END OF t_input2,
       BEGIN OF t_rata2 OCCURS 0,
         matnr LIKE mseg-matnr,
         werks LIKE mseg-werks,
         menge LIKE mseg-menge,
         rbagi(1) TYPE p DECIMALS 0,
       END OF t_rata2,
       t_outpt2 LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_kumi2 LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_kumo2 LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_other LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_kumot LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_outstx LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_stockcur LIKE t_input2 OCCURS 0 WITH HEADER LINE,
       t_io2 LIKE t_io OCCURS 0 WITH HEADER LINE,
       t_iobck LIKE t_io OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF t_data OCCURS 0,
         matnr LIKE mara-matnr,
         maktx LIKE makt-maktx,
         meins LIKE mara-meins,
         werks LIKE t001w-werks,
         awal  LIKE mbewh-lbkum,
         qtypo LIKE ekpo-menge,
         input LIKE mseg-menge,
         kumi  LIKE mseg-menge,
         outst LIKE ekpo-menge,
         estpk LIKE ekpo-menge,
         outpt LIKE mseg-menge,
         kumo  LIKE mseg-menge,
         pctus LIKE ekpo-zwert,
         other LIKE mseg-menge,
         kumot LIKE mseg-menge,
         akhir LIKE mbew-lbkum,
         rata2 LIKE mseg-menge,
         tod(8) TYPE p DECIMALS 0,  "   LIKE ekpo-zwert,

       END OF t_data.

DATA : v_year LIKE mbewh-lfgja,
       v_lastmo LIKE mbewh-lfmon,
       v_tglawal LIKE sy-datum,
       v_trata_b LIKE sy-datum,
       v_trata_e LIKE sy-datum,
       x TYPE i,
       v_var(30),
       v_bln(2).
DATA: w_msg(50).

INCLUDE zab_alv.
INCLUDE zgen_excel.

**************************************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
SELECT-OPTIONS : s_matnr FOR mara-matnr .
SELECT-OPTIONS : s_werks FOR t001w-werks OBLIGATORY.
PARAMETERS: p_mtart LIKE mara-mtart OBLIGATORY.
PARAMETERS: p_date LIKE sy-datum OBLIGATORY.



SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN BEGIN OF BLOCK blc2 WITH FRAME TITLE text-s20.
PARAMETERS     : rb_chk1  RADIOBUTTON  GROUP a DEFAULT 'X',
                 rb_chk2  RADIOBUTTON  GROUP a.
SELECTION-SCREEN END OF BLOCK blc2.
***************************************
INITIALIZATION.
* ALV init
  PERFORM f_alv_init.

AT SELECTION-SCREEN.
  PERFORM authority_check CHANGING w_msg.
  IF NOT w_msg IS INITIAL.
    MESSAGE e398(00) WITH w_msg.
    EXIT.
  ENDIF.
*--

START-OF-SELECTION.
  PERFORM f_getdata.
  IF rb_chk1 = 'X'.
    PERFORM f_displayalv.
  ELSE.
    WRITE:/ 'Transfer to excel complete !.'.
    WRITE:/ 'Please save excel file before closing this page'.
    PERFORM f_to_excel.
  ENDIF.

*-----------------------------------------------------------------------
FORM authority_check CHANGING msg.
  DATA: BEGIN OF lit_t001w OCCURS 0,
              werks LIKE t001w-werks,
              END OF lit_t001w.
  CLEAR msg.
  SELECT werks
         FROM t001w
         INTO TABLE lit_t001w
         WHERE werks IN s_werks.
  IF lit_t001w[] IS INITIAL.
    w_msg = 'Plant Not Found'.
  ELSE.
    LOOP AT lit_t001w.
      AUTHORITY-CHECK OBJECT 'M_BEST_WRK'
               ID 'ACTVT' FIELD '03'
               ID 'WERKS' FIELD lit_t001w-werks.
      IF sy-subrc <> 0.
        CONCATENATE 'Not Authorized to Plant' lit_t001w-werks
                    INTO w_msg
                    SEPARATED BY space.
        EXIT.
      ENDIF.
    ENDLOOP.                                                "lit_t001w
  ENDIF.
ENDFORM. "authority_check

*&---------------------------------------------------------------------*
*&      Form  F_GETDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_getdata.
  DATA : v_estimasi_a LIKE mdps-mng01.

  SELECT a~matnr a~meins a~mtart b~maktx
    INTO CORRESPONDING FIELDS OF TABLE t_mara
    FROM mara AS a INNER JOIN makt AS b
    ON a~matnr = b~matnr
    WHERE a~matnr IN s_matnr
      AND a~mtart = p_mtart.


* TGL UTK RATA2 OUTPUT, AMBIL 4 BULAN KEBELAKANG, CURRENT TDK TRMSK.
  CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE'
       EXPORTING
            dmm_datin = p_date
            dmm_count = '4'
            dmm_oper  = '-'
            dmm_pos   = space
       IMPORTING
            dmm_daout = v_trata_b.
  v_trata_b+6(2) = '01'.

  CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE'
       EXPORTING
            dmm_datin = p_date
            dmm_count = '1'
            dmm_oper  = '-'
            dmm_pos   = space
       IMPORTING
            dmm_daout = v_trata_e.
  CALL FUNCTION 'LAST_DAY_OF_MONTHS'
       EXPORTING
            day_in            = v_trata_e
       IMPORTING
            last_day_of_month = v_trata_e.

  v_year = v_trata_e(4).
  v_lastmo = v_trata_e+4(2).

  v_tglawal = p_date.
  v_tglawal+6(2) = '01'.


  IF NOT t_mara[] IS INITIAL.
*   STOCK AWAL
    SELECT * FROM mbewh
      INTO CORRESPONDING FIELDS OF TABLE t_mbewh
      FOR ALL ENTRIES IN t_mara
      WHERE matnr = t_mara-matnr
        AND bwkey IN s_werks
        AND lfgja = v_year
        AND lfmon = v_lastmo.
*   stock awal - stock in transfer
    SELECT * FROM mardh
      INTO CORRESPONDING FIELDS OF TABLE t_mardh
      FOR ALL ENTRIES IN t_mara
      WHERE matnr = t_mara-matnr
        AND werks IN s_werks
        AND lfgja = v_year
        AND lfmon = v_lastmo
        AND umlme > 0.

*   STOCK AKHIR
    SELECT * FROM mbew
      INTO CORRESPONDING FIELDS OF TABLE t_mbew
      FOR ALL ENTRIES IN t_mara
      WHERE matnr = t_mara-matnr
        AND bwkey IN s_werks.
*        AND lfgja = p_date(4)
*        AND lfmon = p_date+4(2).


*   QTY PO
    SELECT ekko~bedat
    ekpo~ebeln ekpo~ebelp ekpo~werks ekpo~matnr ekpo~menge ekpo~elikz
    FROM ekko AS ekko
    INNER JOIN ekpo AS ekpo ON ekko~ebeln = ekpo~ebeln
    INTO CORRESPONDING FIELDS OF TABLE t_qtypo
    FOR ALL ENTRIES IN t_mara
*    WHERE ekko~bedat >= v_tglawal AND ekko~bedat <= p_date
    WHERE ekko~bedat <= p_date
    AND ekpo~werks IN s_werks
    AND ekpo~matnr = t_mara-matnr
    AND ekpo~loekz NE 'L'.
*   COLLECT QTY PO
    LOOP AT t_qtypo.
      IF t_qtypo-bedat >= v_tglawal.
*       qty po kolom F
*        COLLECT t_qtypo INTO t_qtypo2.
        READ TABLE t_qtypo2 WITH KEY matnr = t_qtypo-matnr.
        IF sy-subrc = 0.
          t_qtypo2-menge = t_qtypo2-menge + t_qtypo-menge.
          MODIFY t_qtypo2 INDEX sy-tabix.
        ELSE.
          t_qtypo2-matnr = t_qtypo-matnr.
          t_qtypo2-menge = t_qtypo-menge.
          t_qtypo2-werks = t_qtypo-werks.
          APPEND t_qtypo2.
        ENDIF.
      ENDIF.
*     qty all outstanding po per material
      IF t_qtypo-elikz NE 'X'.
        READ TABLE t_qtypooutst WITH KEY matnr = t_qtypo-matnr.
        IF sy-subrc = 0.
          t_qtypooutst-menge = t_qtypooutst-menge + t_qtypo-menge.
          MODIFY t_qtypooutst INDEX sy-tabix.
        ELSE.
          t_qtypooutst-matnr = t_qtypo-matnr.
          t_qtypooutst-menge = t_qtypo-menge.
          t_qtypooutst-werks = t_qtypo-werks.
          APPEND t_qtypooutst.
        ENDIF.
      ENDIF.


    ENDLOOP.

*   INPUT HARI INI (P_DATE) DAN KUMULATIF (AWAL S/D P_DATE)
*    SELECT mkpf~budat mseg~matnr mseg~bwart mseg~menge
*    FROM mkpf AS mkpf
*    INNER JOIN mseg AS mseg
*    ON mkpf~mblnr = mseg~mblnr AND mkpf~mjahr = mseg~mjahr
*    INTO CORRESPONDING FIELDS OF TABLE t_io
*    FOR ALL ENTRIES IN t_mara
*    WHERE mkpf~budat >= v_tglawal AND mkpf~budat <= p_date
*      AND mseg~matnr = t_mara-matnr
*      AND mseg~werks IN s_werks
*      AND mseg~bwart IN ('101', '102', '261', '262' ).

    SELECT mkpf~budat mseg~mblnr mseg~zeile mseg~werks mseg~matnr
           mseg~bwart mseg~shkzg mseg~menge
    FROM mkpf AS mkpf
    INNER JOIN mseg AS mseg
    ON mkpf~mblnr = mseg~mblnr AND mkpf~mjahr = mseg~mjahr
    INTO CORRESPONDING FIELDS OF TABLE t_io
    FOR ALL ENTRIES IN t_mara
    WHERE mkpf~budat >= v_trata_b AND mkpf~budat <= p_date
      AND mseg~matnr = t_mara-matnr
      AND mseg~werks IN s_werks
      AND mseg~xauto EQ space.
*      AND mseg~bwart IN ('101', '102', '261', '262' ).

*   all outstanding po, utk material2 selected di mbewh
    IF NOT t_mbewh[] IS INITIAL.
      LOOP AT t_mbewh.
        t_t_mbewh-matnr = t_mbewh-matnr.
        t_t_mbewh-werks = t_mbewh-bwkey.
        APPEND t_t_mbewh.
      ENDLOOP.
      SELECT ekko~bedat
      ekpo~ebeln ekpo~ebelp
      ekpo~matnr ekpo~werks
      ekbe~belnr ekbe~buzei ekbe~bwart ekbe~menge
      FROM ekko AS ekko
      INNER JOIN ekpo AS ekpo ON ekko~ebeln = ekpo~ebeln
      INNER JOIN ekbe AS ekbe ON ekpo~ebeln = ekbe~ebeln
                             AND ekpo~ebelp = ekbe~ebelp
      INTO CORRESPONDING FIELDS OF TABLE t_outpo
      FOR ALL ENTRIES IN t_t_mbewh
      WHERE ( ekpo~elikz EQ space AND ekpo~loekz EQ space )
        AND ekko~bedat <= p_date
        AND ekpo~matnr = t_t_mbewh-matnr
        AND ekpo~werks = t_t_mbewh-werks
        AND ekbe~budat <= p_date.


*   calculate var pengurang total qty all po outst per mat
      LOOP AT t_outpo.
        IF t_outpo-bwart = '101' OR t_outpo-bwart = '123'.
          READ TABLE t_outstx WITH KEY matnr = t_outpo-matnr
                                       werks = t_outpo-werks.
          IF sy-subrc = 0.
            t_outstx-menge = t_outstx-menge + t_outpo-menge.
            MODIFY t_outstx INDEX sy-tabix.
          ELSE.
            t_outstx-matnr = t_outpo-matnr.
            t_outstx-menge = t_outpo-menge.
            t_outstx-werks = t_outpo-werks.
            APPEND t_outstx.
          ENDIF.
        ELSEIF t_outpo-bwart = '102' OR t_outpo-bwart = '122'.
          READ TABLE t_outstx WITH KEY matnr = t_outpo-matnr
                                       werks = t_outpo-werks.
          IF sy-subrc = 0.
            t_outstx-menge = t_outstx-menge - t_outpo-menge.
            MODIFY t_outstx INDEX sy-tabix.
          ELSE.
            t_outstx-matnr = t_outpo-matnr.
            t_outstx-menge = t_outpo-menge * - 1.
            t_outstx-werks = t_outpo-werks.
            APPEND t_outstx.
          ENDIF.

        ENDIF.
      ENDLOOP.
    ENDIF.
    DATA : v_tglx LIKE sy-datum,
           var_menge LIKE mseg-menge.
    SORT t_io BY budat werks mblnr matnr.
    LOOP AT t_io.
*---
      IF t_io-budat = p_date.
*        I/O HARI INI
        IF t_io-bwart = '101'.
          READ TABLE t_input2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_input2-menge = t_input2-menge + t_io-menge.
            MODIFY t_input2 INDEX sy-tabix.
          ELSE.
            t_input2-matnr = t_io-matnr.
            t_input2-menge = t_io-menge.
            t_input2-werks = t_io-werks.
            APPEND t_input2.
          ENDIF.
        ELSEIF t_io-bwart = '102'.
          READ TABLE t_input2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_input2-menge = t_input2-menge - t_io-menge.
            MODIFY t_input2 INDEX sy-tabix.
          ELSE.
            t_input2-matnr = t_io-matnr.
            t_input2-menge = t_io-menge * -1.
            t_input2-werks = t_io-werks.
            APPEND t_input2.
          ENDIF.
        ELSEIF t_io-bwart = '261'.
          READ TABLE t_outpt2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_outpt2-menge = t_outpt2-menge + t_io-menge.
            MODIFY t_outpt2 INDEX sy-tabix.
          ELSE.
            t_outpt2-matnr = t_io-matnr.
            t_outpt2-menge = t_io-menge.
            t_outpt2-werks = t_io-werks.
            APPEND t_outpt2.
          ENDIF.
        ELSEIF t_io-bwart = '262'.
          READ TABLE t_outpt2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_outpt2-menge = t_outpt2-menge - t_io-menge.
            MODIFY t_outpt2 INDEX sy-tabix.
          ELSE.
            t_outpt2-matnr = t_io-matnr.
            t_outpt2-menge = t_io-menge * -1.
            t_outpt2-werks = t_io-werks.
            APPEND t_outpt2.
          ENDIF.
        ELSE.
*---
*    OTHERS  - H = MINUS
          IF t_io-shkzg = 'H'. t_io-menge = t_io-menge * -1. ENDIF.
          READ TABLE t_other WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_other-menge = t_other-menge + t_io-menge.
            MODIFY t_other INDEX sy-tabix.
          ELSE.
            t_other-matnr = t_io-matnr.
            t_other-menge = t_io-menge.
            t_other-werks = t_io-werks.
            APPEND t_other.
          ENDIF.
*         balikin lagi qty nya
          IF t_io-shkzg = 'H'.
            t_io-menge = t_io-menge * -1.
          ENDIF.
        ENDIF.
      ENDIF.
*---
*     I/O KUM DAN OTHER KUM
      IF t_io-budat >= v_tglawal AND t_io-budat <= p_date.
        IF t_io-bwart = '101'.
          READ TABLE t_kumi2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_kumi2-menge = t_kumi2-menge + t_io-menge.
            MODIFY t_kumi2 INDEX sy-tabix.
          ELSE.
            t_kumi2-matnr = t_io-matnr.
            t_kumi2-menge = t_io-menge.
            t_kumi2-werks = t_io-werks.
            APPEND t_kumi2.
          ENDIF.
        ELSEIF t_io-bwart = '102'.
          READ TABLE t_kumi2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_kumi2-menge = t_kumi2-menge - t_io-menge.
            MODIFY t_kumi2 INDEX sy-tabix.
          ELSE.
            t_kumi2-matnr = t_io-matnr.
            t_kumi2-menge = t_io-menge * -1.
            t_kumi2-werks = t_io-werks.
            APPEND t_kumi2.
          ENDIF.
        ELSEIF t_io-bwart = '261'.
          READ TABLE t_kumo2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_kumo2-menge = t_kumo2-menge + t_io-menge.
            MODIFY t_kumo2 INDEX sy-tabix.
          ELSE.
            t_kumo2-matnr = t_io-matnr.
            t_kumo2-menge = t_io-menge.
            t_kumo2-werks = t_io-werks.
            APPEND t_kumo2.
          ENDIF.
        ELSEIF t_io-bwart = '262'.
          READ TABLE t_kumo2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_kumo2-menge = t_kumo2-menge - t_io-menge.
            MODIFY t_kumo2 INDEX sy-tabix.
          ELSE.
            t_kumo2-matnr = t_io-matnr.
            t_kumo2-menge = t_io-menge * -1.
            t_kumo2-werks = t_io-werks.
            APPEND t_kumo2.
          ENDIF.
        ELSE.
*---
*       KUMULATIF OTHERS - H = MINUS
          IF t_io-shkzg = 'H'. t_io-menge = t_io-menge * -1. ENDIF.
          READ TABLE t_kumot WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            t_kumot-menge = t_kumot-menge + t_io-menge.
            MODIFY t_kumot INDEX sy-tabix.
          ELSE.
            t_kumot-matnr = t_io-matnr.
            t_kumot-menge = t_io-menge.
            t_kumot-werks = t_io-werks.
            APPEND t_kumot.
          ENDIF.
*       balikin lagi qty nya
          IF t_io-shkzg = 'H'. t_io-menge = t_io-menge * -1. ENDIF.


        ENDIF.
*---
*       hitung stock current di mseg, S = MINUS
        IF t_io-shkzg = 'S'. t_io-menge = t_io-menge * -1. ENDIF.
        READ TABLE t_stockcur WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
        IF sy-subrc = 0.
          t_stockcur-menge = t_stockcur-menge - t_io-menge.
          MODIFY t_stockcur INDEX sy-tabix.
        ELSE.
          t_stockcur-matnr = t_io-matnr.
          t_stockcur-menge = t_io-menge * -1.
          t_stockcur-werks = t_io-werks.
          APPEND t_stockcur.
        ENDIF.
*       balikin lagi qty nya
        IF t_io-shkzg = 'S'. t_io-menge = t_io-menge * -1. ENDIF.

      ENDIF.
*---
*    RATA2 OUTPUT
      IF t_io-budat >= v_trata_b
        AND t_io-budat <= v_trata_e
        AND ( t_io-bwart = '261' OR t_io-bwart = '262' ) .
        IF t_io-bwart = '261'.
          READ TABLE t_rata2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            IF v_bln = t_io-budat+4(2).
            ELSE.
              t_rata2-rbagi = t_rata2-rbagi + 1.
              v_bln = t_io-budat+4(2).
            ENDIF.
            t_rata2-menge = t_rata2-menge + t_io-menge.
            MODIFY t_rata2 INDEX sy-tabix.
          ELSE.
            t_rata2-matnr = t_io-matnr.
            t_rata2-menge = t_io-menge.
            t_rata2-werks = t_io-werks.
            t_rata2-rbagi = 1.
            v_bln = t_io-budat+4(2).
            APPEND t_rata2.
          ENDIF.
        ELSEIF t_io-bwart = '262'.
          READ TABLE t_rata2 WITH KEY matnr = t_io-matnr
                                       werks = t_io-werks.
          IF sy-subrc = 0.
            IF v_bln = t_io-budat+4(2).
            ELSE.
              t_rata2-rbagi = t_rata2-rbagi + 1.
              v_bln = t_io-budat+4(2).
            ENDIF.
            t_rata2-menge = t_rata2-menge - t_io-menge.
            MODIFY t_rata2 INDEX sy-tabix.
          ELSE.
            t_rata2-matnr = t_io-matnr.
            t_rata2-menge = t_io-menge * -1.
            t_rata2-werks = t_io-werks.
            t_rata2-rbagi = 1.
            v_bln = t_io-budat+4(2).
            APPEND t_rata2.
          ENDIF.

        ENDIF.
*       count jumlah bulan utk variable pembagi rata2
*        if v_bln = t_io-budat+4(2).
*
*        else.
*          v_monthr = v_monthr + 1.
*          v_bln = t_io-budat+4(2).
*        endif.

      ENDIF.
    ENDLOOP.


  ENDIF.


*  COMBINE ALL DATA INTO 1 TABLE.
  SORT t_mara BY matnr.
  SORT t_mbewh BY matnr bwkey.
  SORT t_mbew BY matnr bwkey.
  SORT t_qtypo BY matnr werks.
  SORT t_input2 BY matnr werks.
  SORT t_outpt2 BY matnr werks.
  SORT t_kumi2 BY matnr werks.
  SORT t_kumo2 BY matnr werks.
  SORT t_rata2 BY matnr werks.
  SORT t_other BY matnr werks.
  SORT t_kumot BY matnr werks.
* HEADER EXCEL
  CONCATENATE 'Tgl. ' p_date+6(2) '-' p_date+4(2) '-' p_date(4)
          INTO  v_var SEPARATED BY space.
  PERFORM modify_to_cell USING 9 2 v_var.

  x = 7.
  LOOP AT t_mbewh.
    CLEAR t_data.
    v_estimasi_a = 0.
*   MATERIAL DATA
    t_data-matnr = t_mbewh-matnr.
    READ TABLE t_mara WITH KEY matnr = t_mbewh-matnr.
    t_data-maktx = t_mara-maktx.
    t_data-meins = t_mara-meins.
    t_data-werks = t_mbewh-bwkey.

*   STOCK AWAL
    t_data-awal = t_mbewh-lbkum.
    var_menge = 0.
*   stock awal v.4 - ditambahkan dengan transaksi back-posting.
    SELECT mkpf~budat mseg~mblnr mseg~zeile mseg~werks mseg~matnr
           mseg~bwart mseg~shkzg mseg~menge
    FROM mkpf AS mkpf
    INNER JOIN mseg AS mseg
    ON mkpf~mblnr = mseg~mblnr AND mkpf~mjahr = mseg~mjahr
    INTO CORRESPONDING FIELDS OF TABLE t_iobck
    WHERE mkpf~budat <= v_trata_e AND mkpf~bldat > v_trata_e
      AND mseg~matnr = t_data-matnr
      AND mseg~werks = t_data-werks.
    IF NOT t_iobck[] IS INITIAL.
      LOOP AT t_iobck.
        IF t_iobck-bwart EQ '321' OR t_iobck-bwart EQ '322' OR
           t_iobck-bwart EQ '343' OR t_iobck-bwart EQ '344' OR
           t_iobck-bwart EQ '349' OR t_iobck-bwart EQ '350' .
        ELSE.
          IF t_iobck-shkzg = 'H'.
            t_iobck-menge = t_iobck-menge * -1.
          ENDIF.
          var_menge = var_menge + t_iobck-menge.
        ENDIF.
      ENDLOOP.
      t_data-awal = t_data-awal + var_menge.
    ENDIF.
*   stock awal v.4 - dikurangi dengan stock in transfer
    LOOP AT t_mardh WHERE matnr = t_data-matnr AND werks = t_data-werks.
      t_data-awal = t_data-awal - t_mardh-umlme.
    ENDLOOP.


*   QTY PO
    READ TABLE t_qtypo2 WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-qtypo = t_qtypo2-menge.
    ENDIF.
*   INPUT HARI INI
    READ TABLE t_input2 WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-input = t_input2-menge.
    ENDIF.
*   KUM INPUT
    READ TABLE t_kumi2 WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-kumi = t_kumi2-menge.
    ENDIF.

*   OUTSTANDING PO QTY, ALL PO QTY DARI SEJAK LIVE - EKBE(BWART 101,102,
*123,122)
    t_data-outst = 0.
    READ TABLE t_qtypooutst WITH KEY matnr = t_mbewh-matnr
                                     werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      READ TABLE t_outstx WITH KEY matnr = t_mbewh-matnr
                                     werks = t_mbewh-bwkey.
      IF sy-subrc = 0.
        t_data-outst = t_qtypooutst-menge - t_outstx-menge.
      ELSE.
        t_data-outst = t_qtypooutst-menge.
      ENDIF.
    ENDIF.


*   OUTPUT HARI INI
    READ TABLE t_outpt2 WITH KEY matnr = t_mbewh-matnr
                                 werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-outpt = t_outpt2-menge.
    ENDIF.
*   KUM OUTPUT
    READ TABLE t_kumo2 WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-kumo = t_kumo2-menge.
    ENDIF.


*   ESTIMASI PAKAI
    PERFORM f_get_md01 USING v_tglawal t_mbewh-matnr t_mbewh-bwkey
                  CHANGING v_estimasi_a.
    t_data-estpk = v_estimasi_a + t_data-kumo.


*   PERSEN USAGE
    IF t_data-estpk = 0.
      t_data-pctus = 0.
    ELSE.
      t_data-pctus = ( t_data-kumo / t_data-estpk ) * 100.
    ENDIF.

*   OTHERS
    READ TABLE t_other WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-other = t_other-menge.
    ENDIF.

*   KUM OTHER
    READ TABLE t_kumot WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-kumot = t_kumot-menge.
    ENDIF.

**   STOCK AKHIR, v.2
    t_data-akhir = 0.
    IF p_date = sy-datum.
*     kalau hari ini, brati ambil dari mbew lfgja dan lfmon = now.
      READ TABLE t_mbew WITH KEY matnr = t_mbewh-matnr
                                 bwkey = t_mbewh-bwkey
                                 lfgja = sy-datum(4)
                                 lfmon = sy-datum+4(2).
      IF sy-subrc = 0 AND t_mbew-lbkum > 0.
        t_data-akhir = t_mbew-lbkum.
      ENDIF.
    ENDIF.
    IF t_data-akhir = 0.
*     stock awal + transaksi   (stock cur)
      READ TABLE t_stockcur WITH KEY matnr = t_data-matnr
                                     werks = t_data-werks.
      IF sy-subrc = 0.
        t_data-akhir = t_data-awal + t_stockcur-menge.
      ELSE.
        t_data-akhir = t_data-awal .
      ENDIF.

    ENDIF.
*   kalau masih 0 juga, pake cara trakhir.
    IF t_data-akhir = 0.
      DATA : temp_mbewh LIKE mbewh OCCURS 0 WITH HEADER LINE,
             v_mbewh(6), var_ok(1).
*      CARI DATA DARI T_MBEWH TRAKHIR YG LBKUM > 0.
      SELECT * FROM mbewh
        INTO CORRESPONDING FIELDS OF TABLE temp_mbewh
*        FOR ALL ENTRIES IN t_mara
        WHERE matnr = t_mbewh-matnr
          AND bwkey = t_mbewh-bwkey
          AND lbkum > 0 ORDER BY lfgja DESCENDING lfmon DESCENDING.
*  ditambah dgn transaksi dari awal bulan selanjutnya - tgl yg diinput
      CLEAR : var_ok.
      LOOP AT temp_mbewh.
        CONCATENATE temp_mbewh-lfgja temp_mbewh-lfmon INTO v_mbewh.
        var_ok = 'N'.
        IF v_mbewh < p_date(6).
          var_ok = 'Y'.
          EXIT.
        ENDIF.
      ENDLOOP.
      IF var_ok NE 'Y'.
        CLEAR temp_mbewh.
        t_data-akhir = 0.
      ELSE.
        v_tglx = '00000000'.
*     ambil transaksi dari awal bulan temp_mbewh-lfmon + 1 smp p_date
        CONCATENATE temp_mbewh-lfgja temp_mbewh-lfmon '01' INTO v_tglx.

        var_menge = 0.
        CLEAR t_io2.
        REFRESH t_io2.
        CALL FUNCTION 'HR_PT_ADD_MONTH_TO_DATE'
             EXPORTING
                  dmm_datin = v_tglx
                  dmm_count = '1'
                  dmm_oper  = '+'
                  dmm_pos   = space
             IMPORTING
                  dmm_daout = v_tglx.

        SELECT mkpf~budat mseg~mblnr mseg~zeile mseg~werks mseg~matnr
               mseg~bwart mseg~shkzg mseg~menge
        FROM mkpf AS mkpf
        INNER JOIN mseg AS mseg
        ON mkpf~mblnr = mseg~mblnr AND mkpf~mjahr = mseg~mjahr
        INTO CORRESPONDING FIELDS OF TABLE t_io2
        WHERE mkpf~budat >= v_tglx AND mkpf~budat <= p_date
          AND mseg~matnr = t_data-matnr
          AND mseg~werks = t_data-werks.
        LOOP AT t_io2.
          IF t_io2-bwart EQ '321' OR t_io2-bwart EQ '322' OR
             t_io2-bwart EQ '343' OR t_io2-bwart EQ '344' OR
             t_io2-bwart EQ '349' OR t_io2-bwart EQ '350' .
          ELSE.
            IF t_io2-shkzg = 'H'. t_io2-menge = t_io2-menge * -1. ENDIF.
            var_menge = var_menge + t_io2-menge.
          ENDIF.
        ENDLOOP.
        t_data-akhir = temp_mbewh-lbkum + var_menge.
      ENDIF.
    ENDIF.
*   RATA2 OUTPUT
    READ TABLE t_rata2 WITH KEY matnr = t_mbewh-matnr
                                werks = t_mbewh-bwkey.
    IF sy-subrc = 0.
      t_data-rata2 = t_rata2-menge / t_rata2-rbagi.
    ENDIF.

*   T O D
    IF t_data-akhir = 0 OR t_data-rata2 = 0.
      t_data-tod = 0.
    ELSE.
      t_data-tod = t_data-akhir / ( t_data-rata2 / 25 ) .
    ENDIF.

*   filter yg 0 ga usah di add.
    IF t_data-awal = 0
       AND t_data-qtypo = 0
       AND t_data-input = 0
       AND t_data-kumi = 0
       AND t_data-outst = 0
       AND t_data-estpk = 0
       AND t_data-kumo = 0
       AND t_data-pctus = 0
       AND t_data-other = 0
       AND t_data-kumot = 0
       AND t_data-akhir = 0
       AND t_data-rata2 = 0
       AND t_data-tod = 0.
    ELSE.
      APPEND t_data.


*   PREPARE EXCEL
      PERFORM modify_to_cell USING 1 x t_data-matnr.
      PERFORM modify_to_cell USING 2 x t_data-maktx.
      PERFORM modify_to_cell USING 3 x t_data-meins.
      PERFORM modify_to_cell USING 4 x t_data-werks.
      PERFORM append_to_cell USING 'C' 5 x t_data-awal.
      PERFORM append_to_cell USING 'C' 6 x t_data-qtypo.
      PERFORM append_to_cell USING 'C' 7 x t_data-input.
      PERFORM append_to_cell USING 'C' 8 x t_data-kumi.
      PERFORM append_to_cell USING 'C' 9 x t_data-outst.
      PERFORM append_to_cell USING 'C' 10 x t_data-estpk.
      PERFORM append_to_cell USING 'C' 11 x t_data-outpt.
      PERFORM append_to_cell USING 'C' 12 x t_data-kumo.
      PERFORM append_to_cell USING 'C' 13 x t_data-pctus.
      PERFORM append_to_cell USING 'C' 14 x t_data-other.
      PERFORM append_to_cell USING 'C' 15 x t_data-kumot.
      PERFORM append_to_cell USING 'C' 16 x t_data-akhir.
      PERFORM append_to_cell USING 'C' 17 x t_data-rata2.
      PERFORM append_to_cell USING 'C' 18 x t_data-tod.

      x = x + 1.
    ENDIF.



  ENDLOOP.

  x = x - 7.
  PERFORM modify_to_cell USING 1 1 x.


ENDFORM.                    " F_GETDATA





*&---------------------------------------------------------------------*
*&      Form  f_get_md01
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_V_TGLAWAL  text
*      -->P_V_MATNR  text
*      -->P_V_WERKS  text
*      <--P_V_ESTIMASI_A  text
*----------------------------------------------------------------------*
FORM f_get_md01 USING    p_v_tglawal
                         p_v_matnr
                         p_v_werks
                CHANGING p_v_estimasi_a.

  TYPES:
  BEGIN OF m61x_mdlg_r,
    sign(1),
    option(2),
    low LIKE mdlg-lgort,
    high LIKE mdlg-lgort,
  END OF m61x_mdlg_r.

  TYPES:
  BEGIN OF m61x_mdll_r,
    sign(1),
    option(2),
    low LIKE mdll-lbear,
    high LIKE mdll-lbear,
  END OF m61x_mdll_r.

  TYPES:
  m61x_mdlg_range TYPE m61x_mdlg_r OCCURS 0,
  m61x_mdll_range TYPE m61x_mdll_r OCCURS 0.
  DATA: BEGIN OF v_cm61b,
          disfg LIKE t000md-disfg,
          dbxxx TYPE c,
          berid LIKE mdlv-berid,
          berty LIKE mdlv-berty,
          bertx LIKE mdlv-bertx,
          werzg LIKE mdlv-werzg,
          ortzg LIKE mdlv-ortzg,
          lbear LIKE mdll-lbear,
          mdlgx_range TYPE m61x_mdlg_range,                 " OCCURS 0,
          mdlgy_range TYPE m61x_mdlg_range,                 " OCCURS 0,
          mdlly_range TYPE m61x_mdll_range,
          sobsl LIKE mdma-sobsl,
          disgr LIKE mdma-disgr,
        END OF v_cm61b.

  DATA v_mt61d LIKE mt61d.
  DATA v_cm61x LIKE cm61x.
  DATA v_cm61w LIKE cm61w.
  DATA v_t399d LIKE t399d.
  DATA v_mdkp LIKE mdkp .
  DATA v_cm61m LIKE cm61m .

*MRP table used in MD04
  DATA i_mdpsx LIKE mdps OCCURS 0 WITH HEADER LINE.

  DATA :
          p_v_tglakhir LIKE sy-datum.
*get akhir bulan

  CALL FUNCTION 'LAST_DAY_OF_MONTHS'
       EXPORTING
            day_in            = p_v_tglawal
       IMPORTING
            last_day_of_month = p_v_tglakhir.


  CALL FUNCTION 'MD_READ_MATERIAL'
       EXPORTING
            ewerks = p_v_werks
            ematnr = p_v_matnr
       IMPORTING
            imt61d = v_mt61d
            icm61b = v_cm61b
       EXCEPTIONS
            error  = 1
            OTHERS = 2.
*if no record found, write out error
  IF sy-subrc <> 0.
*    MESSAGE e000(vz) WITH 'MD_READ_MATERIAL failed on' v_matnr v_werks.
  ENDIF.

  CALL FUNCTION 'MD_READ_PLANT'
       EXPORTING
            ewerks = p_v_werks
       IMPORTING
            icm61w = v_cm61w
            it399d = v_t399d
       EXCEPTIONS
            error  = 01.

*CONSTRUCT MDPSX ANNOUNCEMENTS
  CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN'
       EXPORTING
            ecm61w = v_cm61w
            ecm61x = v_cm61x
            emt61d = v_mt61d
            et399d = v_t399d
            ecm61b = v_cm61b
       IMPORTING
            icm61m = v_cm61m
            imdkp  = v_mdkp
       TABLES
            mdpsx  = i_mdpsx.

*if no record, write out error
  IF sy-subrc <> 0.
*    MESSAGE e000(vz) WITH 'MD04 read failed' v_matnr v_werks.
  ELSE .
    CALL FUNCTION 'PRUEFEN_UMTERMINIERUNG'
         EXPORTING
              ecm61m = v_cm61m
              ecm61w = v_cm61w
              emdkp  = v_mdkp
              et399d = v_t399d
         TABLES
              mdpsx  = i_mdpsx.
    LOOP AT i_mdpsx.
      IF i_mdpsx-dat00 >= p_v_tglawal AND i_mdpsx-dat00 <= p_v_tglakhir
         AND i_mdpsx-plumi = '-'.
*        IF i_mdpsx-plumi = '+'.
*          i_mdpsx-mng01 = i_mdpsx-mng01 * -1.
*        ENDIF.
        p_v_estimasi_a = p_v_estimasi_a  + i_mdpsx-mng01.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " f_get_md01
*&---------------------------------------------------------------------*
*&      Form  f_displayalv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_displayalv.
* ALV Layout
  PERFORM f_alv_build_layout  USING :
        'ZEBRA' 'X',
        'NO_COLHEAD' '',
        'GROUP_CHANGE_EDIT' 'X',
        'F2CODE' 'F2'.
* Sort Field
*  perform f_alv_sort   using:
*        'T_DATA' 'ERDAT' 'X' '' ''.
* print setup
  PERFORM f_build_print USING d_alv_print.
  PERFORM f_create_header.
  PERFORM f_alv_build_event USING:
    slis_ev_top_of_page 'F_TOP_OF_PAGE', "c_top_of_page_alv,
    slis_ev_user_command c_user_command.

* ALV Fieldcat
  PERFORM f_build_fieldcat.
* Execute ALV Function
  d_alv_varnt-variant = p_vari.
*  PERFORM f_alv_grid_display TABLES t_data.
*  clear t_header.
*  PERFORM f_top_of_page_alv.
  PERFORM f_alv_grid_display TABLES t_data.
**                             using  '' d_alv_save.
*  perform f_alv_list_display tables t_data
*                             using  '' d_alv_save.

ENDFORM.                    " f_displayalv
*&---------------------------------------------------------------------*
*&      Form  f_build_fieldcat
*&---------------------------------------------------------------------*
*       Build Fieldcat ALV
*----------------------------------------------------------------------*
FORM f_build_fieldcat .
  PERFORM f_alv_build_catalog USING :
    t_alv_fctlg 'T_DATA' 'MATNR' 'Material' '' ''
      '' '10' '' 'X' '' '1' '1' '' '' '',
    t_alv_fctlg 'T_DATA' 'MAKTX' 'Material Desc' '' ''
      '' '30' '' 'X' '' '1' '2' '' '' '',
    t_alv_fctlg 'T_DATA' 'MEINS' 'BaseUnit' '' ''
      '' '8' '' 'X' '' '1' '3' '' '' '',
    t_alv_fctlg 'T_DATA' 'WERKS' 'Plant' '' ''
      '' '6' '' 'X' '' '1' '4' '' '' ''.

  PERFORM f_alv_build_catalog_qty USING:
  t_alv_fctlg 'T_DATA' 'AWAL' 'Stock Awal'
    'MBEWH' 'LBKUM' '' '16' '' '' '' 'MEINS' '' '1' '5',
  t_alv_fctlg 'T_DATA' 'QTYPO' 'QTY Po'
    'EKPO' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '6',
  t_alv_fctlg 'T_DATA' 'INPUT' 'Input - HariIni'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '7',
  t_alv_fctlg 'T_DATA' 'KUMI' 'Input - Kumulatif'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '8',
  t_alv_fctlg 'T_DATA' 'OUTST' 'Outstanding PO'
    'EKPO' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '9',
  t_alv_fctlg 'T_DATA' 'ESTPK' 'Estimasi Pakai'
    'EKPO' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '10',
  t_alv_fctlg 'T_DATA' 'OUTPT' 'Output - HariIni'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '11',
  t_alv_fctlg 'T_DATA' 'KUMO' 'Output - Kumulatif'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '12'.

  PERFORM f_alv_build_catalog_crncy USING:
    t_alv_fctlg 'T_DATA' 'PCTUS' '% Usage'
    'EKPO' 'ZWERT' '16' '' '' 'WAERS' '' '' '1' '13' ''.

  PERFORM f_alv_build_catalog_qty USING:
  t_alv_fctlg 'T_DATA' 'OTHER' 'Other - Hari ini'
    'EKPO' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '14',
  t_alv_fctlg 'T_DATA' 'KUMOT' 'Other - Kumulatif'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '15',
  t_alv_fctlg 'T_DATA' 'AKHIR' 'Stock Akhir'
    'MBEW' 'LBKUM' '' '16' '' '' '' 'MEINS' '' '1' '16',
  t_alv_fctlg 'T_DATA' 'RATA2' 'Rata-rata Output'
    'MSEG' 'MENGE' '' '16' '' '' '' 'MEINS' '' '1' '17'.

  PERFORM f_alv_build_catalog_qty USING:
  t_alv_fctlg 'T_DATA' 'TOD' 'T O D'
    'EKPO' 'UMREZ' '' '16' '' '' '' 'MEINS' '' '1' '18'.

*  perform f_alv_build_catalog_crncy using:
*    t_alv_fctlg 'T_DATA' 'TOD' 'T O D'
*    'EKPO' 'UMREZ' '16' '' '' 'WAERS' '' '' '1' '17' ''.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  f_to_excel
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_to_excel.
  CALL SCREEN 8999.
ENDFORM.                    " f_to_excel
*&---------------------------------------------------------------------*
*&      Module  STATUS_8999  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_8999 OUTPUT.
  SET PF-STATUS '8999'.
  SET TITLEBAR '8999'.

ENDMODULE.                 " STATUS_8999  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  m_init  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE m_init OUTPUT.
  DATA : w_para TYPE i.
  PERFORM connect_to_excel USING ''                    "Excel in SAP
                                 'ZMM'                 "Object Name
                                 'ZMM'                 "Object ID
                                 'TEMP_ZMM_REALISASI'  "Descr
                                 ''                    "Status Logo
                                 ''.                   "Logo
  PERFORM select_new_sheet USING 'Sheet1'.
  PERFORM formatting_rangesdef_tab.
  PERFORM set_data.

*--
  PERFORM run_macro_param USING 'kotak_ok'
                          w_para 'Sheet1'
                          '' '' '' '' '' '' '' '' '' '' ''.

  PERFORM close_excel_link.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " m_init  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  f_create_header
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM f_create_header.
  DATA: l_wa_listheader  TYPE slis_listheader,
        lv_date1(10),
        lv_date2(10).

  l_wa_listheader-typ  = 'H'.
  l_wa_listheader-key   = 'LAPORAN REALISASI HARIAN'.
  l_wa_listheader-info = 'LAPORAN REALISASI HARIAN'.
  APPEND l_wa_listheader TO t_header.

  l_wa_listheader-typ  = 'A'.
  l_wa_listheader-key   = 'LAPORAN REALISASI HARIAN'.
  CONCATENATE p_date+6(2) p_date+4(2) p_date(4) INTO
  l_wa_listheader-info
  SEPARATED BY '/'.
  CONCATENATE 'Tgl. :' l_wa_listheader-info INTO
  l_wa_listheader-info SEPARATED BY space.
  APPEND l_wa_listheader TO t_header.
ENDFORM.                    " f_create_header

*---------------------------------------------------------------------*
*       FORM F_TOP_OF_PAGE                                            *
*---------------------------------------------------------------------*
*       TOP-OF-PAGE                                                   *
*---------------------------------------------------------------------*
FORM f_top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary = t_header.
ENDFORM.     "F_TOP_OF_PAGE
*---------------------------------------------------------------------*
*       FORM append_to_cell                                           *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  P_CT                                                          *
*  -->  P_COLS                                                        *
*  -->  P_ROWS                                                        *
*  -->  P_VALUE                                                       *
*---------------------------------------------------------------------*
FORM append_to_cell USING p_ct p_cols p_rows
                             CHANGING p_value.
  DATA : lv_value(18).
  lv_value = p_value.
  IF p_ct = 'C'.
    PERFORM f_format_xx USING p_value CHANGING lv_value.
  ENDIF.
  struc_generic-column = p_cols.
  struc_generic-row = p_rows.
  struc_generic-value = lv_value.
  APPEND struc_generic TO tcontents.
ENDFORM.                    " append_to_cell
*---------------------------------------------------------------------*
*       FORM f_format_xx                                              *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  FV_AMO                                                        *
*  -->  FV_AMOUNT                                                     *
*---------------------------------------------------------------------*
FORM f_format_xx USING fv_amo CHANGING fv_amount TYPE format_amount.
  DATA : p_val TYPE p DECIMALS 2,
         y TYPE i, x TYPE i.
  p_val = fv_amo.
  IF p_val < 0.
    p_val = p_val * -1.
    WRITE p_val TO fv_amount CURRENCY 'USD'.
    CONCATENATE '-' fv_amount INTO fv_amount.
  ELSE.
    WRITE p_val TO fv_amount CURRENCY 'USD'.
  ENDIF.
  CONDENSE fv_amount NO-GAPS.
ENDFORM.                    " f_format_xx

Activate VOFM - Maintain : Requirement & Formula

2010-06-04T09:20:00.002+07:00

To Activate all routines on tcode VOFM, simply just open se38, program name : RV80HGEN, and Execute. All routines will activate in current client.

Get number of first week base on calender view

2010-06-04T09:11:00.002+07:00

How to get number of first week in a month base on calender view.
For example : on year 2010 month 01, number of first week is 2009 - 54
and on year 2010 month 02, number of first week is 2010 - 05

REPORT ZMM_GET_FIRST_WEEK.
DATA: W_DATE LIKE SY-DATUM,
W_DATE_VALUE TYPE I,
W_SISA TYPE I,
W_WEEK LIKE SCAL-WEEK.
DATA: W_YY(4), W_MM(2).
PARAMETERS: P_YYMM(6) TYPE N.
START-OF-SELECTION.
CONCATENATE P_YYMM '01' INTO W_DATE.
*--
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
DATE = W_DATE
IMPORTING
WEEK = W_WEEK
EXCEPTIONS
DATE_INVALID = 1
OTHERS = 2.
*-- .
W_DATE_VALUE = W_DATE.
W_SISA = W_DATE_VALUE MOD 7.
IF W_SISA >= 2 AND W_SISA <= 5.
WRITE: / 'WEEK =', W_WEEK.
ELSE.
W_YY = W_WEEK+0(4).
W_MM = W_WEEK+4(2).
IF W_MM = 52.
W_YY = W_YY + 1.
W_MM = 1.
ELSE.
W_MM = W_MM + 1.
ENDIF.
CONCATENATE W_YY W_MM INTO W_WEEK.
WRITE: / 'WEEK =', W_WEEK.
ENDIF.

Change program in QA client ?

2008-07-23T15:27:00.003+07:00

Sometimes when DEV client don’t have the proper data and sometimes when SAP do their some weird action (you know what I mean did u ? heheh) then it will takes thousands changes (hehehe is it??) when you do trial n error to repair some programs/tables/something in QA client. And when you found it error you need to go back to DEV client to repair it, and create a Change Request Number, and then transport it again to QA client, and again and again.
Have you ever think how many wasted CRs created just because of it ?

Well, my colleague gave me a tips for this. You can directly change programs/tables in QA client and see the result of it. You can do trial and error right away in your QA client (yes, right away in your QA client, means you don’t need to code in DEV and create CRs and transport). And after you satisfied with the result in QA, you can go back to DEV client, do the same thing with your programs/tables, create CRs and transport it to QA (replaced) and PROD.

This is the tips :

In QA client,

Open 2 session se38, one session for program LSTRDU34 and another is LSTRDU44
Find this FM : TR_EDIT_CHECK_OBJECTS_KEYS
After that FM lines block, find the sy-subrc result, and put a breakpoint on that.
Ok, open new session se38 again, entry your program, or se11 for your tables, or etc.
Click Change program, when the debugger stopped at sy-subrc you’ve set, change the sy-subrc result from 12 or 4, to sy-subrc = 0.
See the result.
You can activate the programs also with this tips.

Enjoy! But be careful, because sometimes (possibly) :

you enjoy changing in QA so much until when you go back to DEV you forgot what things you’ve done in QA hehehe.
This can be done in PROD also, but this is depending on your authorization to change field contents in debugger.

Create MIRO with GL reference and Profitability segment using BAPI

2008-07-14T13:28:00.001+07:00

Purpose : Create MIRO with GL reference and Profitability segment using BAPI.
Function Module : BAPI_INCOMINGINVOICE_CREATE

Field used :
*** HEADERDATA – 1 row
MIRO_HEADER-INVOICE_IND = 'X'.
MIRO_HEADER-DOC_TYPE = 'RE'.
MIRO_HEADER-DOC_DATE =
MIRO_HEADER-PSTNG_DATE = SY-DATUM.
MIRO_HEADER-REF_DOC_NO = [ reference PO number from that GR ]
MIRO_HEADER-PO_REF_NO = [ dummy PO – all item deleted ]
MIRO_HEADER-COMP_CODE = [ company code ]
MIRO_HEADER-DIFF_INV = [ vendor code ]
MIRO_HEADER-BUS_AREA = [ business area ]
MIRO_HEADER-CURRENCY = [ currency used on MIRO doc ]
MIRO_HEADER-EXCH_RATE = 1.
MIRO_HEADER-ALLOC_NMBR = [ allocation number, on my case I use same number with ref_doc_no ]
MIRO_HEADER-HEADER_TXT = [header text]

*** TAXDATA – 1 row
MIRO_HEADER-ITEM_TEXT = [header text]
MIRO_TAX-TAX_CODE = [tax code]

*** MATERIALDATA – 1 row [in my case I use only 1 material]
MIRO_MAT-INVOICE_DOC_ITEM = [sequence number]
MIRO_MAT-MATERIAL = [material number]
MIRO_MAT-VAL_AREA = [plant]
MIRO_MAT-DB_CR_IND = 'S'.
MIRO_MAT-ITEM_AMOUNT = [value amount]
MIRO_MAT-QUANTITY = [value quantity]
MIRO_MAT-BASE_UOM = [unit]
MIRO_MAT-BASE_UOM_ISO = [unit]
MIRO_MAT-TAX_CODE = [tax code]

*** GLACCOUNTDATA – multiple row, according to GL account related to journal
MIRO_GL-INVOICE_DOC_ITEM = [line number - sequence]
MIRO_GL-GL_ACCOUNT = [GL account]
MIRO_GL-ITEM_AMOUNT = [GL value amount]
MIRO_GL-DB_CR_IND = 'H'.
MIRO_GL-COMP_CODE = [company code]
MIRO_GL-TAX_CODE = [tax code]
MIRO_GL-BUS_area = [business area]

*** RUN THE BAPI
CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
EXPORTING
HEADERDATA = miro_header
IMPORTING
INVOICEDOCNUMBER = result_invoice
FISCALYEAR = result_invoice_year
TABLES
ITEMDATA = miro_item
TAXDATA = miro_tax
GLACCOUNTDATA = miro_gl
MATERIALDATA = miro_mat
RETURN = return.

*** INVOICE NUMBER
RESULT_INVOICE
RESULT_INVOICE_YEAR

*** YOU NEED TO COMMIT THE TRANSACTION, OTHERWISE THE INVOICE NUMBER WONT BE SAVED COMPLETELY

IF RESULT_INVOICE NE SPACE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.

Checking is there any UserExit attached ?

2008-07-03T15:40:00.004+07:00

This program is for checking UserExit attached in a tcode.
-----------------------------------------------------------------------------------
REPORT ZARSTEST .
TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
TABLES : tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna. "'SAPLITO0'.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir WHERE funcname = tfdir-funcname.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name EQ enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab
WHERE pgmid = 'R3TR'
AND object IN ('SMOD', 'SXSD')
AND devclass = v_devclass.
SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND
tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
WRITE:/(95) sy-uline.

LOOP AT jtab.
SELECT SINGLE * FROM modsapt
WHERE sprsl = sy-langu AND
name = jtab-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 sy-vline,
2 jtab-obj_name HOTSPOT ON,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
ENDLOOP.

WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of Exits:' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.

AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
READ TABLE jtab with key obj_name = sy-lisel+1(19).
IF jtab-object = 'SMOD'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
ELSE.
SET PARAMETER ID 'EXN' FIELD sy-lisel+1(19).
CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
ENDIF.

---------------------------------------------------
[Copy from one of my senior colleague, many Thanks ! ]

[Sample] Very Simple ALV and join with conversion MEINS

2008-07-03T14:31:00.005+07:00

*&---------------------------------------------------------------------*
*& Report ZMM_OUTPAC
*&
*&---------------------------------------------------------------------*
*& This report is for view outstanding PO qty
*& with material PO type = ZPAC using a Very Simple ALV method
*& (MONITORING OUTSTANDING ORDER PACKAGING REPORT)
*& and a sample how to get converted MEINS (unit of measure) from a select statement
*&---------------------------------------------------------------------*

REPORT zmm_outpac LINE-SIZE 273 LINE-COUNT 35 NO STANDARD PAGE HEADING.

*&---------------------------------------------------------------------*
*& Table description
TABLES : ekko, ekpo, eket, eban, mara, makt, lfa1, mseg, t006a.

*&---------------------------------------------------------------------*
*& Data description
DATA : BEGIN OF itab OCCURS 0,
no(3),
matnr LIKE mara-matnr,
txz01 LIKE ekpo-txz01,
MSEH3 LIKE T006A-MSEH3,
badat LIKE eban-badat,
banfn LIKE ekpo-banfn,
bnfpo LIKE ekpo-bnfpo,
bedat LIKE ekko-bedat,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebeln,
menge LIKE ekpo-menge,
eindt LIKE eket-eindt,
lifnr LIKE ekko-lifnr,
name1 LIKE lfa1-NAME1,
ketpo LIKE tline-tdline,
leado(5),
leadr(5),
kethead LIKE tline-tdline,
END OF itab.

DATA : BEGIN OF vendor_data OCCURS 0,
lifnr LIKE lfa1-lifnr,
name1 LIKE lfa1-name1,
END OF vendor_data.
DATA : BEGIN OF history OCCURS 0,
ebeln LIKE mseg-ebeln,
ebelp LIKE mseg-ebelp,
bwart LIKE mseg-bwart,
menge LIKE mseg-menge,
END OF history.

DATA : v_index LIKE sy-tabix,
v_value1 LIKE mseg-menge,
v_nettof LIKE ekpo-menge.
DATA : BEGIN OF tbl_hdr OCCURS 0,
judul(80),
field(80),
panjang(3).
DATA END OF tbl_hdr.

* for ALV
TYPE-POOLS: slis.

CONSTANTS: c_formname_top_of_page TYPE slis_formname
VALUE 'TOP_OF_PAGE'.

DATA: t_fieldcat TYPE slis_t_fieldcat_alv,
t_layout TYPE slis_layout_alv,
t_print TYPE slis_print_alv,
t_sort TYPE slis_t_sortinfo_alv,
t_sp_group TYPE slis_t_sp_group_alv,
t_grid_title TYPE lvc_title,
t_events TYPE slis_t_event,
t_list_top_of_page TYPE slis_t_listheader,
v_progid LIKE sy-repid,
v_save VALUE 'A',
t_variant LIKE disvariant,
v_variant LIKE disvariant.

*&---------------------------------------------------------------------*
*& Selection Screen
PARAMETERS: p_mtart LIKE mara-mtart DEFAULT 'ZPAC' .
PARAMETERS: p_werks LIKE t001w-werks obligatory.
select-options : s_bedat for ekko-bedat.

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'P_MTART'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.

INITIALIZATION.
s_bedat-low = sy-datlo - 30.
s_bedat-high = sy-datlo.
append s_bedat.

START-OF-SELECTION.
* PERFORM cek_otorisasi.
PERFORM getdata.
IF itab[] IS INITIAL.
MESSAGE i208(00) WITH 'Data not found'.
ELSE.
PERFORM display.
ENDIF.
*&---------------------------------------------------------------------*
*& Form GETDATA
*&---------------------------------------------------------------------*
FORM getdata .
DATA : v_name LIKE thead-tdname.
DATA: lt_tline LIKE tline OCCURS 0 WITH HEADER LINE.
SELECT
a~bedat a~lifnr
b~matnr C~MSEH3 b~menge b~banfn b~bnfpo b~ebeln b~ebelp b~txz01
INTO CORRESPONDING FIELDS OF TABLE itab
FROM ekko AS a
INNER JOIN ekpo AS b ON b~mandt = a~mandt
AND a~ebeln = b~ebeln
INNER JOIN t006a AS C ON C~MSEHI = B~MEINS
and c~spras = sy-langu
WHERE b~mtart = p_mtart AND
b~werks = p_werks and
a~bedat in s_bedat.

CALL FUNCTION 'FI_PROGRESS_INDICATOR'
EXPORTING
percentage = 0
text = 'Collecting data... '.

* GET QTY
SELECT ebeln ebelp bwart menge
INTO CORRESPONDING FIELDS OF TABLE history
FROM mseg
FOR ALL ENTRIES IN itab
WHERE ebeln = itab-ebeln
AND bwart IN ('101', '102').

* vendor name
SELECT lifnr name1
FROM lfa1
INTO CORRESPONDING FIELDS OF TABLE vendor_data
FOR ALL ENTRIES IN itab
WHERE lifnr = itab-lifnr.

* NETTING OFF
LOOP AT itab.
v_index = sy-tabix.
CLEAR : v_value1, v_nettof.
LOOP AT history WHERE ebeln = itab-ebeln AND ebelp = itab-ebelp.
IF history-bwart = '101'.
v_value1 = v_value1 + history-menge.
ELSEIF history-bwart = '102'.
v_value1 = v_value1 - history-menge.
ENDIF.

ENDLOOP.
v_nettof = itab-menge - v_value1.
IF v_nettof <= 0.
DELETE itab.
ELSE.
itab-menge = v_nettof.
MODIFY itab INDEX v_index.
ENDIF.

ENDLOOP.

SORT itab BY ebeln ebelp.
LOOP AT itab.
v_index = sy-tabix.
itab-no = v_index.
SELECT SINGLE badat
FROM eban
INTO itab-badat
WHERE banfn = itab-banfn.

SELECT SINGLE eindt
FROM eket
INTO itab-eindt
WHERE ebeln = itab-ebeln
AND ebelp = itab-ebelp.

READ TABLE vendor_data WITH KEY lifnr = itab-lifnr.
itab-name1 = vendor_data-name1.
* get keterangan PO
"Item PO text
CONCATENATE itab-ebeln itab-ebelp INTO v_name.
PERFORM read_text TABLES lt_tline
USING sy-mandt 'F01' 'EKPO' v_name 132.
READ TABLE lt_tline INDEX 1.
IF sy-subrc = 0.
itab-ketpo = lt_tline-tdline.
ELSE.
itab-ketpo = ''.
ENDIF.

* LEAD PO
itab-leado = sy-datlo - itab-bedat.
* LEAD PR
if itab-badat = '00000000'.
itab-leadr = '-'.
else.
itab-leadr = sy-datlo - itab-badat.
endif.

CLEAR : lt_tline.
REFRESH : lt_tline.
* get keterangan PO HEADER
v_name = itab-ebeln.
PERFORM read_text TABLES lt_tline
USING sy-mandt 'F01' 'EKKO' v_name 132.
READ TABLE lt_tline INDEX 1.
IF sy-subrc = 0.
itab-kethead = lt_tline-tdline.
ELSE.
itab-kethead = ''.
ENDIF.

CLEAR : v_name, lt_tline.
REFRESH : lt_tline.
MODIFY itab INDEX v_index.

* add to ALV

ENDLOOP.
ENDFORM. " GETDATA
*&---------------------------------------------------------------------*
*& Form read_text
*&---------------------------------------------------------------------*
FORM read_text TABLES ft_lines STRUCTURE tline
USING fu_mandt
fu_tdid
fu_tdobject
fu_tdname
fu_length.
DATA: lv_mandt LIKE sy-mandt,
lv_tdid LIKE thead-tdid,
lv_tdobject LIKE thead-tdobject,
lv_tdname LIKE thead-tdname,
lv_length LIKE sy-index.

REFRESH ft_lines.
lv_mandt = fu_mandt.
lv_tdid = fu_tdid.
lv_tdobject = fu_tdobject.
lv_tdname = fu_tdname.
lv_length = fu_length.

CALL FUNCTION 'READ_TEXT'
EXPORTING
client = lv_mandt
id = lv_tdid
language = sy-langu
name = lv_tdname
object = lv_tdobject
TABLES
lines = ft_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
CALL FUNCTION 'FORMAT_TEXTLINES'
EXPORTING
formatwidth = lv_length
TABLES
lines = ft_lines
EXCEPTIONS
bound_error = 1
OTHERS = 2.

ENDIF.

ENDFORM. " READ_TEXT
*&---------------------------------------------------------------------*
*& Form DISPLAY
*&---------------------------------------------------------------------*
FORM display .
PERFORM header.
PERFORM createalv.
ENDFORM. " DISPLAY
*&---------------------------------------------------------------------*
*& Form HEADER
*&---------------------------------------------------------------------*
FORM header.
DATA : hdr(1000),
pjg TYPE i,
pstr TYPE i,
tp TYPE i,
k1(50),
k2(50),
k3(50),
k4(50).

PERFORM getjudul CHANGING hdr.
SPLIT hdr AT ',' INTO TABLE tbl_hdr.

LOOP AT tbl_hdr.
CONDENSE tbl_hdr-judul.
pstr = STRLEN( tbl_hdr-judul ).
SPLIT tbl_hdr-judul AT '(' INTO k1 k2.
SPLIT k2 AT ')' INTO k3 k4.
pstr = pstr - STRLEN( k4 ).
pjg = STRLEN( k1 ) + 1.
tp = pjg + 2.

IF tp < pstr.
tbl_hdr-panjang = tbl_hdr-judul+pjg(2).
ELSE.
tbl_hdr-panjang = tbl_hdr-judul+pjg(1).
ENDIF.

tbl_hdr-judul = k1.
tbl_hdr-field = k4.
MODIFY tbl_hdr INDEX sy-tabix.
ENDLOOP.
ENDFORM. " Header

*&---------------------------------------------------------------------*
*& Form CREATEALV
*&---------------------------------------------------------------------*
FORM createalv .
CLEAR v_variant.
v_save = 'A'.
v_variant-report = sy-repid.
t_variant = v_variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
EXPORTING
i_save = v_save
CHANGING
cs_variant = t_variant
EXCEPTIONS
not_found = 2.

PERFORM f_create_field USING t_fieldcat[].

PERFORM setting_attr.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = t_layout
i_callback_top_of_page = 'TOP-OF-PAGE'
it_fieldcat = t_fieldcat[]
it_special_groups = t_sp_group[]
i_save = v_save
is_variant = v_variant
it_events = t_events[]
TABLES
t_outtab = itab.

ENDFORM. " CREATEALV
*&---------------------------------------------------------------------*
*& Form f_create_field
*&---------------------------------------------------------------------*
FORM f_create_field USING fu_t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: lv_fieldcat TYPE slis_fieldcat_alv.

REFRESH fu_t_fieldcat.

LOOP AT tbl_hdr.
CLEAR lv_fieldcat.
lv_fieldcat-col_pos = sy-tabix.
lv_fieldcat-fieldname = tbl_hdr-field.
lv_fieldcat-outputlen = tbl_hdr-panjang.
lv_fieldcat-reptext_ddic = tbl_hdr-judul.
APPEND lv_fieldcat TO fu_t_fieldcat.
ENDLOOP.
ENDFORM. " f_create_field
*&----------------------------------------------------------
*& Form top-of-page
*&----------------------------------------------------------
FORM top-of-page.
*ALV Header declarations
DATA: t_header TYPE slis_t_listheader,
wa_header TYPE slis_listheader,
tpmatnr LIKE marc-matnr,
temp(20).

* Title
wa_header-typ = 'H'.
wa_header-info = 'MONITORING OUTSTANDING ORDER PACKAGING REPORT'.
APPEND wa_header TO t_header.

wa_header-typ = 'A'.
IF tpmatnr IS INITIAL.
tpmatnr = 'ALL'.
ENDIF.
CONCATENATE 'Plant : ' p_werks INTO wa_header-info SEPARATED BY space.
append wa_header to t_header.

wa_header-typ = 'A'.
CONCATENATE 'Printed By : ' sy-uname INTO wa_header-info SEPARATED BY space.
APPEND wa_header TO t_header.

wa_header-typ = 'A'.
CONCATENATE sy-datlo+6(2) '.' sy-datlo+4(2) '.' sy-datlo(4) INTO temp.
CONCATENATE 'Printed Date : ' temp INTO wa_header-info SEPARATED BY space.
APPEND wa_header TO t_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = t_header.
* i_logo = ''.

ENDFORM. " top-of-page
*&---------------------------------------------------------------------*
*& Form SETTING_ATTR
*&---------------------------------------------------------------------*
FORM setting_attr.
* setting variant
* V_VARIANT-VARIANT = P_VAR.
* V_VARIANT-REPORT = SY-REPID.
* V_VARIANT-USERNAME = SY-UNAME.
ENDFORM. "SETTING_ATTR
*&---------------------------------------------------------------------*
*& Form GETJUDUL
*&---------------------------------------------------------------------*
FORM getjudul CHANGING p_hdr.
CONCATENATE 'NO(3)NO,'
'MATERIAL(11)MATNR,'
'MATERIAL DESCRIPTION(40)TXZ01,'
'SATUAN(6)MSEH3,'
'TGL PR(10)BADAT,'
'NO PR(10)BANFN,'
'ITEM PR(8)BNFPO,'
'TGL PO(10)BEDAT,'
'NO PO(10)EBELN,'
'ITEM PO(8)EBELP,'
'SISA(7)MENGE,'
'TGL PERMINTAAN(14)EINDT,'
'SUPPLIER(40)NAME1,'
'KETERANGAN PO(132)KETPO,'
'LEAD PO(7)LEADO,'
'LEAD PR(7)LEADR,'
'KETERANGAN(132)KETHEAD'
INTO p_hdr.
ENDFORM. " GETJUDUL

Change field contents (from SM30) from uppercase to as it is.

2008-05-23T11:01:00.004+07:00

One day, my user need to maintain 1 table from SM30, when they entered a description of tax service code, it changed automatically to upper case caps. Actually they need that description as it is.

What I have to change ?

SE11, open the table
Change the field type using a Data Element
Create a Domain from those data element.
This is the important thing : Tick the Lowercase option.

The Lowercase option means let the word as it is, not changed to uppercase caps.

Select a table between two clients using RFC Function

2008-05-07T09:26:00.004+07:00

1. Create RFC Destination

Technical Settings
Connection Type : 3 Abap Connection
Target Host : cpidev03
IP Address : xxxxxxxxx
Logon & Security
Input target Client, user dan password, or u can choose using Current User
Test Connection using Connection Test

2. SE37 - Function TABLE_ENTRIES_GET_VIA_RFC RFC
Target sys : input the RFC Destination

You can use WHERE clause in this field :

The result :

The Structure stored in NAMETAB

The Records stored in TABENTRY
1 record will be store in 1 string, so u need to offset them by their structure.

MM : Maintain Message Output Type for Print PO (ME9F)

2008-03-14T09:55:00.002+07:00

Maintain Message Output Type for Print PO (ME9F)

SPRO -> Materials Management -> Purchasing -> Messages -> Output Control -> Message Types -> Define Message Types for Purchase Order
Choose : Maintain Message Types for PO
Double click at desired Output type
and double click at Processing Routines in left side menu
There you can find the printing Program, Form Routine and Form/Smartform (you can change this to your customized form)

One of errors that i've found :

ME9F error when print ( X )
Processing log : Error in OPEN_FORM for document 9000000002
It because the output device from format page ZKUARTO (in form ZFDXMM_PO - form that i use in customizing) , has not been maintained yet.
OPEN_FORM inidcates initalize form with their format pages and the printer.

MM : Maintain header text PR/PO

2008-03-14T09:21:00.007+07:00

I know this from one of my MM module's colleague.

Maintain Header Text PR :
SPRO -> Real Estate -> Tools -> Central Correspondence Maintenance -> Text ID s
To maintain :
PR (me51n/me52n/me53n) text id
- PR Header Text, object name : EBANH, with ID start from B01 - B99
- PR Item Text, object name : EBAN, with ID start from B01 - B99
PO (me21n/me22n/me23n) text id
- PO Header Text, object name : EKKO, with ID start from F01 - F99
- PO Header Text, object name : EKPO, with ID start from F01 - F99

That table also keeps the maintenance Text IDs for other SAP Standard tcode, but i dont have the documentation furthermore.

If you have any documentation about this, feel free to share :)

Change Excel column name from A, B, C... to 1, 2, 3 ...

2008-03-13T16:39:00.005+07:00

One day, when I have to work with Excel file, I just don’t have an idea why the column name that generally named column A, B, C, D … changed to 1, 2, 3, 4, ….. At the first place I don’t really care about it, I only think that it’s weird without having a damn on it.

And the other day, while my colleague copy that excel file, he need it to be change to original name. Then I start googling, and came up to this site.

This is how to change it :

Click on Tools -> Options -> General tab
Mark R1C1 reference style to change the column name into 1, 2 , 3… or unmark to change it to original

I dont know the purpose from this R1C1 reference style options for. Anyone ?

At Selection Screen event

2008-03-12T15:30:00.004+07:00

Purpose : radiobutton to enable/disable screen input.

REPORT zhny064 .

TABLES : vbrk.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pil1 TYPE c RADIOBUTTON GROUP gpil DEFAULT 'X'
USER-COMMAND ucomm.
SELECTION-SCREEN COMMENT 4(51) text-001.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln NO-EXTENSION MEMORY ID vf.

SELECTION-SCREEN END OF BLOCK b001.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pil2 TYPE c RADIOBUTTON GROUP gpil.
SELECTION-SCREEN COMMENT 4(51) text-002.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b002 WITH FRAME.
SELECT-OPTIONS: s_vbel1 FOR vbrk-vbeln MEMORY ID vf.
SELECTION-SCREEN END OF BLOCK b002.

AT SELECTION-SCREEN OUTPUT.
IF p_pil1 EQ 'X'.
LOOP AT SCREEN.
IF screen-name CS 'S_VBEL1'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF screen-name CS 'S_VKBUR' OR screen-name CS 'S_VBELN' .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

SM30 - menyisipkan code event pada sm30

2008-03-12T09:29:00.000+07:00

Sekedar share mengenai sm30 yang nemu di forum nya sdn.sap.com semoga bermanfaat untuk menyisipkan code event pada sm30 - table generator .
Contoh implementasi untuk check authorization.

Berikut step2 nya:

Masuk ke table generator ( screen ) environment => modification => Events

Click New entries hingga keluar seperti gambar , kemudian di pilih event yang akan disisipkan dengan kode program buatan kita.
Contoh: event code 05 bisa untuk menginisialasi suatu nilai pada table misal kita ingin menginisial suatu nilai pada table zmm_ship -> ship_code menjadi auto number.

Setelah di pilih event code 05 maka isikan form routine ( ZINIT ) kemudian enter , lalu click icon di sebelah kolom form routine sehingga keluar screen sperti dibawah ini langkah berikutnya isi nama subroutine ZINIT pada include choice dibawah ini.
Step berikutnya click new entry jika keluar warning seperti dibawah ini :

Seperti terlihat contoh code berikut: Save -> Activate

Done, test it !
SM30. See result!

Jika ada error maka program functions group main harus di activate.

Abap Dictionary - cara licik utk tembak data langsung

2008-03-12T09:18:00.000+07:00

Sesuai judulnya, the purpose is to update data from Z table (recomended only in Z table) secara langsung dari SE16/SE11 without User Interface2an.

Hal licik ini sebaiknya ngga dilakukan di Production, kecualiii... kepepet - hehehe, yakin kalo data yg mo dirubah gak ngelink ke table laen (misal z table master - bisa runyam kan!), perubahan ngga nyebabin error (sesuai format/tipe data sesuai), and y penting... bos jgn sampe tau... hehehe, ga enak kan... :">

Caranya :

Call SE16/SE11, entry table name n display
Double click row data yang ingin dirubah, activate debugger ( /h ), then Enter
Press Enter once more, then debugger will show up
Double click field code dan change it from SHOW to EDIT
Change desired fields
Save, Back, and Refresh table

Note : - Hal ini tidak berlaku utk key fields- Loe ga bisa lakukan ini klo loe ga punya otorisasi utk change fields (mostly in Production)

SAP - what's ABAP ?

2008-03-12T09:16:00.000+07:00

Untuk temen2 yang belum perna denger soal ABAP. Berikut penjelasan simple dan sesingkat2nya mengenai ABAP. ABAP (Advanced Business Application Programming) merupakan bahasa pemrograman yang digunakan dalam aplikasi SAP (Systems, Applications, and Products (in data processing)).

SAP sendiri merupakan software ERP yang biasanya dipakai di perusahaan2 besar (krn mahallll). Dan ABAP digunakan utk :

bikin report
walopun di SAP sudah ada report2 standard, tapi kebanyakan tidak memenuhi kebutuhan user.
bikin aplikasi tambahan di SAP yang tidak ada proses standard SAP
misal : salah satu proses standard di SAP adalah Production Order Create (CO01) - dan yang tidak ada di standard SAP adalah Proses Automatic Create PO yang datanya di provide dari file Excel
bikin user exit, user exit adalah proses tambahan dlm proses standard SAP
misal : dalam proses create sales order, ada validasi2 tertentu yang tidak ada dlm standard SAP
bikin print'an form
dlm SAP jg sdh ada form2 standard, misal Invoice. tapi ya kebanyakan memang tidak memenuhi kebutuhan user, dari segi layout terutama.

ABAP, seperti apa ?

ABAP itu bahasanya human banget :) . Contoh dari sintak2 ABAP :

Untuk belajar ABAP seluruhnya emang gak mudah, karena bnyk sekali tekniknya. Tapi klo utk sekedar reporting ato sintak2 sederhana sih mudah2 aja, karena Editor nya dilengkapi dengan error checking pd saat execute.

the Notebook n the problems

2008-03-12T09:03:00.000+07:00

In this blog, i try to share things that i keep in my notebook since time i'm working in IT, as a programmer - ABAPer. I consider coding probably one of my hobbies since most of the time i enjoy in doing that - pretty weird huh!

First, i tell u, i'm not a master of code, i just think i like it... but i dont know, i think i can not be a master on it. Maybe... some part of my self sez "i'm a female" and... it's verrrry rare when a female become a master on it. Hihihi.

Second, from this blog i think i can share the problems to. Maybe i can learn from u also ;)

Hopefully i can update this blog constantly.. since i'm not a really consistent person, hehehe.