SAP BPC: Mass Upload of Comments in Models

Introduction:

Many companies are still making their notes/comments in excel. These comments has to be saved in BPC Models on different dimensions combination.

This blog will explain how to load Mass Comments in BPC models.

Approach:

For Mass uploading of comments in BPC Models, we can write Customize program (Code has mentioned in the end) in BW.

Assume customize Program name: ZBPC_COMMENT****

Execute ZBPC_COMMENT_*** in SE38. Next screen would be as below:

Variables:

1.Variable “FNAME”-> Browse file from Local System.

Below is the format of excel file where you want to upload comments.

Change ‘DATEWRITTEN’ field to “Number’ format without any decimal values. In the File the    header name should be same as you using in program for Model dimensions.

2.Variable “TABLE”-> Give the technical name of the comment table.

to get comment table SE38-> UJ0_GET_GEN_TABNAME -> Execute-> Give Environment and Model Name-> Execute.

Get the comment table name from listed tables and put in TABLE  variable. Example: /1CPMB/*****

Click on execute.

3. TRUN: Before execution ,its better to test if the file format and path are correct. This is an Optional Step.

Program Detail:

Below mentioned Code can be pasted and enhance according to business requirement.

(For more detail how to guide about writing the program, find below reference links)

REPORT  ZUPDATE_BPCCOMMENTTABLE.


TYPES: BEGIN OF gty_s_string,
               line(5000) TYPE c,
        END OF gty_s_string.
DATA: gt_string TYPE TABLE OF gty_s_string.
FIELD-SYMBOLS: <gt_table>    TYPE  STANDARD TABLE.
FIELD-SYMBOLS: <gs_table>    TYPE  ANY.
DATA: gt_fieldcat1         TYPE lvc_t_fcat.

PARAMETERS : p_fname   TYPE string  OBLIGATORY .
PARAMETERS : p_table TYPE tvdir-tabname OBLIGATORY
              MATCHCODE OBJECT dd_dbtb_16.
PARAMETERS : c_trun AS CHECKBOX DEFAULT 'X'.

*======================================================================*
*                          INITIALIZATION
*======================================================================*
INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
   PERFORM file_open USING 'Select input file.' CHANGING p_fname.

AT SELECTION-SCREEN.
*Main logic
   PERFORM f_process_data.
*======================================================================*
*                          TOP-OF-PAGE
*======================================================================*
TOP-OF-PAGE.

*======================================================================*
*                          START-OF-SELECTION
*======================================================================*
START-OF-SELECTION.


  IF c_trun IS INITIAL.
     IF <gt_table>[] IS NOT INITIAL.
       MODIFY (p_table) FROM TABLE <gt_table>.
       COMMIT WORK.
     ENDIF.
   ENDIF.

FORM f_prepare_table USING value(pv_table).
   DATA: ls_tname TYPE tabname.
   ls_tname = pv_table.
   CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
     EXPORTING
       i_structure_name = ls_tname
     CHANGING
       ct_fieldcat      = gt_fieldcat1
     EXCEPTIONS
       OTHERS           = 1.
   IF sy-subrc NE 0 OR
      gt_fieldcat1[] IS INITIAL.
     STOP.
   ENDIF.
ENDFORM.                    " F_PREPARE_TABLE

FORM f_process_data .
   CASE sy-ucomm.
     WHEN  'ONLI'.
       DATA:  lr_dref  TYPE REF TO data.
       DATA:  ls_dref  TYPE REF TO data.
*build table
       CREATE DATA lr_dref TYPE STANDARD TABLE OF (p_table).
       ASSIGN lr_dref->* TO <gt_table>.
*Build table structure same as input table
       CREATE DATA ls_dref TYPE (p_table).
       ASSIGN ls_dref->* TO <gs_table>.
*Build output field structure
       PERFORM f_prepare_table  USING p_table.
*Upload data from local
       PERFORM f_upload_data_gui.
*Get data from table
       PERFORM f_build_data_table.
   ENDCASE.
ENDFORM.                    " F_PROCESS_DATA

FORM f_upload_data_gui .
   DATA : lv_leng TYPE i.
   DATA : lv_leng1 TYPE i.
   lv_leng = STRLEN( p_fname ).
   lv_leng1 = lv_leng - 3.
   IF p_fname+lv_leng1(3) EQ 'CSV'.
     PERFORM f_update_data_4m_csv.
   ELSE.
*     PERFORM f_update_data_4m_xls.
   ENDIF.
ENDFORM.                    " F_UPLOAD_DATA_GUI

FORM f_update_data_4m_csv .
   REFRESH: gt_string.
   CALL METHOD cl_gui_frontend_services=>gui_upload
     EXPORTING
       filename                = p_fname
     CHANGING
       data_tab                = gt_string
     EXCEPTIONS
       file_open_error         = 1
       file_read_error         = 2
       no_batch                = 3
       gui_refuse_filetransfer = 4
       invalid_type            = 5
       no_authority            = 6
       unknown_error           = 7
       bad_data_format         = 8
       header_not_allowed      = 9
       separator_not_allowed   = 10
       header_too_long         = 11
       unknown_dp_error        = 12
       access_denied           = 13
       dp_out_of_memory        = 14
       disk_full               = 15
       dp_timeout              = 16
       not_supported_by_gui    = 17
       error_no_gui            = 18
       OTHERS                  = 19.
   IF sy-subrc NE 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   ENDIF.
ENDFORM.                    " F_UPDATE_DATA_4M_CSV

FORM f_build_data_table .
   DATA: lt_value TYPE STANDARD TABLE OF string.
   DATA: gt_field TYPE STANDARD TABLE OF string.
   DATA: lv_string TYPE string.
   DATA: lv_value TYPE string.
   DATA: lv_field TYPE string.
   FIELD-SYMBOLS : <ls_value> TYPE ANY.

   LOOP AT gt_string INTO lv_string.
     IF sy-tabix EQ 1.
       SPLIT lv_string AT ',' INTO TABLE gt_field.
       DELETE gt_field WHERE table_line EQ space.
       DELETE gt_field WHERE table_line IS INITIAL.
     ELSE.
*populate file data
       REFRESH lt_value.
       SPLIT lv_string AT ',' INTO TABLE lt_value.
       LOOP AT lt_value INTO lv_value.
         CLEAR : lv_field.
         READ TABLE gt_field INTO lv_field INDEX sy-tabix.
         IF lv_field IS NOT INITIAL.
           UNASSIGN <ls_value>.
           ASSIGN COMPONENT lv_field OF STRUCTURE
               <gs_table> TO <ls_value>.
           IF <ls_value> IS ASSIGNED.
             CONDENSE : lv_value,lv_field.
             <ls_value> = lv_value.
           ENDIF.
         ENDIF.
       ENDLOOP.
     IF <gs_table> IS  NOT INITIAL.
         APPEND <gs_table> TO <gt_table>.
       ENDIF.
       CLEAR <gs_table>.
     ENDIF.
   ENDLOOP.
ENDFORM.                    " F_BUILD_DATA_TABLE

FORM file_open  USING value(pv_popup) TYPE string
                 CHANGING pv_filename TYPE string.   .
   CONSTANTS: gc_txt_imp TYPE string      VALUE 'Upload Data'.
   DATA gt_filetab       TYPE filetable.
   DATA g_subrc         TYPE i.
   DATA gwa_filetab     TYPE file_table.
   CLEAR gt_filetab[].
   IF pv_popup IS INITIAL.
     pv_popup = gc_txt_imp.
   ENDIF.
   CALL METHOD cl_gui_frontend_services=>file_open_dialog
     EXPORTING
       window_title      = pv_popup
       initial_directory = 'C:\'
       file_filter       = '*.*'
     CHANGING
       file_table        = gt_filetab
       rc                = g_subrc
     EXCEPTIONS
       OTHERS            = 0.
   READ TABLE gt_filetab INTO gwa_filetab INDEX 1.
   CHECK sy-subrc EQ 0.
   pv_filename = gwa_filetab-filename.
ENDFORM.                    " FILE_OPEN

Conclusion:

By executing this program , we can save mass comments in BPC. It reduce lot of effort and save time for completing the requirement. Moreover we can mention User IDs who wanted to save particular Comment in System.

Reference Links:

How to create ABAP Program: https://www.wikihow.com/Create-an-ABAP-Program

How to create ABAP Program: http://www.saptraininghq.com/how-to-create-your-first-sap-abap-program/

Regards

Priyanka