SAP ABAP Technicals

Finding the Enhancement Name and Project Name from function module exit name

2012-05-22T06:08:00.002-07:00

STEP 1

Execute the transparent table ‘MODSAP’ and provide the function module name in the Enhancement Field and component type = 'E'.

Now Press F8.

Now you will get the Enhancement Name for the function module exit.

STEP 2

Go to table ‘MODACT’ and provide the enhancement name from(Step 1) and press F8.

Now the project name associated with the enhancement name is displayed.

TREE ALV

2012-05-10T02:22:00.001-07:00

REPORT  zalv_tree_02.

* §1a. Define reference variables
DATA: g_alv_tree         TYPE REF TO cl_gui_alv_tree,
      g_custom_container TYPE REF TO cl_gui_custom_container.

DATA: gt_sflight      TYPE qmsm OCCURS 0,      "Output-Table
      ok_code LIKE sy-ucomm,
      save_ok LIKE sy-ucomm,           "OK-Code
      g_max TYPE i VALUE 255.

END-OF-SELECTION.

  CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&      Module  PBO  OUTPUT
*&---------------------------------------------------------------------*
*       process before output
*----------------------------------------------------------------------*
MODULE pbo OUTPUT.

  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'MAINTITLE'.

  IF g_alv_tree IS INITIAL.
    PERFORM init_tree.

    CALL METHOD cl_gui_cfw=>flush
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2.
    IF sy-subrc NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = 'Automation Queue failure'(801)
          txt1  = 'Internal error:'(802)
          txt2  = 'A method in the automation queue'(803)
          txt3  = 'caused a failure.'(804).
    ENDIF.
  ENDIF.

ENDMODULE.                             " PBO  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  PAI  INPUT
*&---------------------------------------------------------------------*
*       process after input
*----------------------------------------------------------------------*
MODULE pai INPUT.
  save_ok = ok_code.
  CLEAR ok_code.

  CASE save_ok.
    WHEN 'EXIT' OR 'BACK' OR 'CANC'.
      PERFORM exit_program.

    WHEN OTHERS.
* §6. Call dispatch to process toolbar functions
      CALL METHOD cl_gui_cfw=>dispatch.

  ENDCASE.

  CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                             " PAI  INPUT

*&---------------------------------------------------------------------*
*&      Form  init_tree
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM init_tree.
* §1b. Create ALV Tree Control and corresponding Container.

* create container for alv-tree
  DATA: l_tree_container_name(30) TYPE c.

  l_tree_container_name = 'CCONTAINER1'.

  CREATE OBJECT g_custom_container
    EXPORTING
      container_name              = l_tree_container_name
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'(100).
  ENDIF.

* create tree control
  CREATE OBJECT g_alv_tree
    EXPORTING
      parent                      = g_custom_container
      node_selection_mode         = cl_gui_column_tree=>node_sel_mode_single
      item_selection              = 'X'
      no_html_header              = 'X'
      no_toolbar                  = ''
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      illegal_node_selection_mode = 5
      failed                      = 6
      illegal_column_name         = 7.
  IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'ERROR'.                          "#EC NOTEXT
  ENDIF.

* §2. Create Hierarchy-header
* The simple ALV Tree uses the text of the fields which were used
* for sorting to define this header. When you use
* the 'normal' ALV Tree the hierarchy is build up freely
* by the programmer this is not possible, so he has to define it
* himself.
  DATA l_hierarchy_header TYPE treev_hhdr.
  PERFORM build_hierarchy_header CHANGING l_hierarchy_header.

* §3. Create empty Tree Control
* IMPORTANT: Table 'gt_sflight' must be empty. Do not change this table
* (even after this method call). You can change data of your table
* by calling methods of CL_GUI_ALV_TREE.
* Furthermore, the output table 'gt_outtab' must be global and can
* only be used for one ALV Tree Control.
  CALL METHOD g_alv_tree->set_table_for_first_display
    EXPORTING
      i_structure_name    = 'QMSM'
      is_hierarchy_header = l_hierarchy_header
    CHANGING
      it_outtab           = gt_sflight. "table must be empty !

* §4. Create hierarchy (nodes and leaves)
  PERFORM create_hierarchy.

* §5. Send data to frontend.
  CALL METHOD g_alv_tree->frontend_update.

* wait for automatic flush at end of pbo
ENDFORM.                               " init_tree
*&---------------------------------------------------------------------*
*&      Form  build_hierarchy_header
*&---------------------------------------------------------------------*
*       build hierarchy-header-information
*----------------------------------------------------------------------*
*      -->P_L_HIERARCHY_HEADER  strucxture for hierarchy-header
*----------------------------------------------------------------------*
FORM build_hierarchy_header CHANGING
                               p_hierarchy_header TYPE treev_hhdr.

  p_hierarchy_header-heading = 'Notification'(300).
  p_hierarchy_header-tooltip = 'number'(400).
  p_hierarchy_header-width = 40.
  p_hierarchy_header-width_pix = ' '.

ENDFORM.                               " build_hierarchy_header
*&---------------------------------------------------------------------*
*&      Form  exit_program
*&---------------------------------------------------------------------*
*       free object and leave program
*----------------------------------------------------------------------*
FORM exit_program.

  CALL METHOD g_custom_container->free.
  LEAVE PROGRAM.

ENDFORM.                               " exit_program
*&---------------------------------------------------------------------*
*&      Form  create_hierarchy
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_hierarchy.

  DATA: lt_sflight TYPE STANDARD TABLE OF qmsm ,
        ls_sflight LIKE LINE OF lt_sflight,
        l_yyyymm TYPE qmsm-qmnum,            "year and month of sflight-fldate
        l_yyyymm_last TYPE qmsm-qmnum,
        l_carrid LIKE qmsm-qmnum,
        l_carrid_last LIKE qmsm-qmnum.

  DATA: l_month_key TYPE lvc_nkey,
        l_monthkey TYPE lvc_nkey,
        l_carrid_key TYPE lvc_nkey,
        l_carridkey TYPE lvc_nkey,
        l_last_key TYPE lvc_nkey,
        l_lastkey TYPE lvc_nkey.

  DATA: lt_qmma TYPE STANDARD TABLE OF qmma ,
        ls_qmma LIKE LINE OF lt_qmma.
* §4a. Select data
  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sflight FROM qmsm ."WHERE qmnum = '000200000006 '. "UP TO g_max ROWS.

  SORT lt_sflight BY qmnum .
* Note: The top level nodes do not correspond to a field of the
* output table. Instead we use data of the table to invent another
* hierarchy level above the levels that can be build by sorting.

* §4c. Add data to tree

  LOOP AT lt_sflight INTO ls_sflight.
* Prerequesite: The table is sorted.
* You add a node everytime the values of a sorted field changes.
* Finally, the complete line is added as a leaf below the last
* node.
    l_yyyymm = ls_sflight-qmnum.
    l_carrid = ls_sflight-qmnum."ls_sflight-mncod.

* Top level nodes:
    IF l_yyyymm <> l_yyyymm_last.      "on change of l_yyyymm
      l_yyyymm_last = l_yyyymm.

*Providing no key means that the node is added on top level:
      PERFORM add_month USING    l_yyyymm ls_sflight
                                      ''
                             CHANGING l_month_key.
* The month changed, thus, there is no predecessor carrier
      CLEAR l_carrid_last.
    ENDIF.

* Carrier nodes:
* (always inserted as child of the last month
*  which is identified by 'l_month_key')
    IF l_carrid <> l_carrid_last.      "on change of l_carrid
      l_carrid_last = l_carrid.
*Folder Task
      PERFORM add_carrid_line USING    ls_sflight
                                       l_month_key
                              CHANGING l_carrid_key.
*Folder Activity
      l_carrid_last = l_carrid.
      PERFORM add_carridline USING     ls_sflight
                                       l_month_key
                              CHANGING l_carridkey.
    ENDIF.

** Leaf:
** (always inserted as child of the last carrier
**  which is identified by 'l_carrid_key')
*Folder Task Item
    PERFORM add_complete_line USING  ls_sflight
                                     l_carrid_key
                            CHANGING l_last_key.
*Folder Activity Item
    ON CHANGE OF ls_sflight-qmnum.
      SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_qmma FROM qmma WHERE qmnum = ls_sflight-qmnum.
      LOOP AT lt_qmma INTO ls_qmma.
        PERFORM add_completeline USING  ls_qmma
                                        l_carridkey
                            CHANGING    l_lastkey.
      ENDLOOP.
    ENDON.
  ENDLOOP.

ENDFORM.                               " create_hierarchy

*&---------------------------------------------------------------------*
*&      Form  add_month
*&---------------------------------------------------------------------*
FORM add_month  USING     p_yyyymm TYPE qmnum
                          p_flight  TYPE qmsm
                          p_relat_key TYPE lvc_nkey
                CHANGING  p_node_key TYPE lvc_nkey.

  DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE qmsm,
        l_month(15) TYPE c.            "output string for month

* get month name for node text
  PERFORM get_month USING p_yyyymm
                    CHANGING l_month.
  CONCATENATE 'Notification' '->'p_yyyymm INTO l_node_text .

* add node:
* ALV Tree firstly inserts this node as a leaf if you do not provide
* IS_NODE_LAYOUT with field ISFOLDER set. In form 'add_carrid_line'
* the leaf gets a child and thus ALV converts it to a folder
* automatically.
*
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   =  p_flight
    IMPORTING
      e_new_node_key   = p_node_key.

ENDFORM.                               " add_month
*--------------------------------------------------------------------
FORM add_carrid_line USING     ps_sflight TYPE qmsm
                               p_relat_key TYPE lvc_nkey
                     CHANGING  p_node_key TYPE lvc_nkey.

  DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE qmsm.

* add node
* ALV Tree firstly inserts this node as a leaf if you do not provide
* IS_NODE_LAYOUT with field ISFOLDER set. In form 'add_carrid_line'
* the leaf gets a child and thus ALV converts it to a folder
* automatically.
*
*  l_node_text =  ps_sflight-mncod.
  CONCATENATE 'Task' '' INTO l_node_text.
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_sflight
    IMPORTING
      e_new_node_key   = p_node_key.

ENDFORM.                               " add_carrid_line
*&---------------------------------------------------------------------*
*&      Form  add_carridline
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PS_SFLIGHT   text
*      -->P_RELAT_KEY  text
*      -->P_NODE_KEY   text
*----------------------------------------------------------------------*
FORM add_carridline USING      ps_sflight TYPE qmsm
                               p_relat_key TYPE lvc_nkey
                     CHANGING  p_node_key TYPE lvc_nkey.

  DATA: l_node_text TYPE lvc_value,
        ls_sflight TYPE qmsm.

* add node
* ALV Tree firstly inserts this node as a leaf if you do not provide
* IS_NODE_LAYOUT with field ISFOLDER set. In form 'add_carrid_line'
* the leaf gets a child and thus ALV converts it to a folder
* automatically.
*
*  l_node_text =  ps_sflight-mncod.
  CONCATENATE 'Activity' '' INTO l_node_text.
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      i_node_text      = l_node_text
      is_outtab_line   = ls_sflight
    IMPORTING
      e_new_node_key   = p_node_key.

ENDFORM.                               " add_carrid_line
*&---------------------------------------------------------------------*
*&      Form  add_complete_line
*&---------------------------------------------------------------------*
FORM add_completeline USING   ps_sflight TYPE qmma
                               p_relat_key TYPE lvc_nkey
                     CHANGING  p_node_key TYPE lvc_nkey.

  DATA: l_node_text TYPE lvc_value.

  WRITE ps_sflight-manum TO l_node_text MM/DD/YYYY.

* add leaf:
* ALV Tree firstly inserts this node as a leaf if you do not provide
* IS_NODE_LAYOUT with field ISFOLDER set.
* Since these nodes will never get children they stay leaves
* (as intended).
*
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      is_outtab_line   = ps_sflight
      i_node_text      = l_node_text
    IMPORTING
      e_new_node_key   = p_node_key.

ENDFORM.                               " add_complete_line
*&---------------------------------------------------------------------*
*&      Form  add_complete_line
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PS_SFLIGHT   text
*      -->P_RELAT_KEY  text
*      -->P_NODE_KEY   text
*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  GET_MONTH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_YYYYMM  text
*      <--P_L_MONTH  text
*----------------------------------------------------------------------*
FORM get_month USING    p_yyyymm
               CHANGING p_month.
* Returns the name of month according to the digits in p_yyyymm

  DATA: l_monthdigits(2) TYPE c.

  l_monthdigits = p_yyyymm+4(2).
  CASE l_monthdigits.
    WHEN '01'.
      p_month = 'January'(701).
    WHEN '02'.
      p_month = 'February'(702).
    WHEN '03'.
      p_month = 'March'(703).
    WHEN '04'.
      p_month = 'April'(704).
    WHEN '05'.
      p_month = 'May'(705).
    WHEN '06'.
      p_month = 'June'(706).
    WHEN '07'.
      p_month = 'July'(707).
    WHEN '08'.
      p_month = 'August'(708).
    WHEN '09'.
      p_month = 'September'(709).
    WHEN '10'.
      p_month = 'October'(710).
    WHEN '11'.
      p_month = 'November'(711).
    WHEN '12'.
      p_month = 'December'(712).
  ENDCASE.
  CONCATENATE p_yyyymm+0(4) '->' p_month INTO p_month.

ENDFORM.                               " GET_MONTH
*-----------------------------------------------------------------------
*&---------------------------------------------------------------------*
*&      Form  ADD_COMPLETE_LINE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LS_SFLIGHT  text
*      -->P_L_CARRID_KEY  text
*      <--P_L_LAST_KEY  text
*----------------------------------------------------------------------*
FORM add_complete_line USING   ps_sflight TYPE qmsm
                               p_relat_key TYPE lvc_nkey
                     CHANGING  p_node_key TYPE lvc_nkey.

  DATA: l_node_text TYPE lvc_value.

  WRITE ps_sflight-mncod TO l_node_text MM/DD/YYYY.

* add leaf:
* ALV Tree firstly inserts this node as a leaf if you do not provide
* IS_NODE_LAYOUT with field ISFOLDER set.
* Since these nodes will never get children they stay leaves
* (as intended).
*
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key = p_relat_key
      i_relationship   = cl_gui_column_tree=>relat_last_child
      is_outtab_line   = ps_sflight
      i_node_text      = l_node_text
    IMPORTING
      e_new_node_key   = p_node_key.

ENDFORM.                    " ADD_COMPLETE_LINE

OOPS ALV Steps

2012-05-10T02:20:00.002-07:00

REPORT  ytest_alv.
TABLES: mara.
DATA: BEGIN OF it_tab OCCURS 0,
      matnr LIKE mara-matnr,
      ersda LIKE mara-ersda,  "creation date
      ernam LIKE mara-ernam,  "person created
      pstat LIKE mara-pstat,  "maint stat
      lvorm LIKE mara-lvorm,  "flg for deletion
      mtart LIKE mara-mtart,  "mat type
      meins LIKE mara-meins,  "uom
      END OF it_tab.
DATA: wa_it_tab LIKE LINE OF it_tab.  "making work area
DATA: i_modified TYPE STANDARD TABLE OF mara,"For getting modified rows
      w_modified TYPE mara.
CLASS lcl_events_d0100 DEFINITION DEFERRED.
DATA: event_receiver1  TYPE REF TO lcl_events_d0100,
      i_selected_rows TYPE lvc_t_row,                "Selected Rows
      w_selected_rows TYPE lvc_s_row.
*---------------------------------------------------------------------*
*       CLASS lcl_events_d0100 DEFINITION
*---------------------------------------------------------------------*
CLASS lcl_events_d0100 DEFINITION.
  PUBLIC SECTION.
    METHODS
        handle_hotspot_click
        FOR EVENT hotspot_click OF cl_gui_alv_grid
        IMPORTING
             e_row_id
             e_column_id
             es_row_no
             sender.
*---code addition for ALV pushbuttons
*--for placing buttons
    METHODS handle_toolbar_set
        FOR EVENT toolbar OF cl_gui_alv_grid
        IMPORTING
              e_object
              e_interactive.
*---user command on clicking a button
    METHODS handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
        IMPORTING
             e_ucomm.
ENDCLASS.                    "lcl_events_d0100 DEFINITION
TYPE-POOLS cndp.
DATA ok_code TYPE sy-ucomm.
*----------------------------------------------------------------------*
*                       FOR VARIANT
*----------------------------------------------------------------------*
DATA st_var TYPE disvariant .
DATA save TYPE c.
st_var-report = 'YKC_ALV_OOPS'.
save = 'A'.
*----------------------------------------------------------------------*
*         FOR LAYOUT
*----------------------------------------------------------------------*
DATA loyo TYPE lvc_s_layo.
*loyo-zebra = 'X'.
*loyo-detailinit = 'X'.
*loyo-info_fname = 'RED'.
*----------------------------------------------------------------------*
*           FOR FIELD CATALOG
*----------------------------------------------------------------------*
DATA fcat TYPE lvc_t_fcat.
DATA wa_fcat LIKE LINE OF fcat.
*--Declaration for toolbar buttons
DATA : ty_toolbar      TYPE stb_button.
DATA : e_object        TYPE REF TO cl_alv_event_toolbar_set,
       io_alv_toolbar  TYPE REF TO cl_alv_event_toolbar_set.
*---custom container
DATA container TYPE REF TO cl_gui_custom_container.
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
CREATE OBJECT container
  EXPORTING
    container_name = 'CONTAINER'."name of container in module pool
CREATE OBJECT ref_grid
  EXPORTING
    i_parent = container.
*---------------------------------------------------------------------*
*       CLASS lcl_events_d0100 IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_events_d0100 IMPLEMENTATION.
*---method for hotspot
  METHOD handle_hotspot_click.
    DATA:ls_col_id   TYPE lvc_s_col.
    READ TABLE it_tab INTO wa_it_tab
                             INDEX e_row_id-index.
    IF sy-subrc = 0.
      CHECK ( wa_it_tab-matnr IS NOT INITIAL ).
      CASE e_column_id-fieldname.
        WHEN 'MATNR'.
          call screen 200.
*---put your own logic as per requirement on hotspot click
        WHEN OTHERS.
*       do nothing
      ENDCASE.
      CALL METHOD ref_grid->set_current_cell_via_id
        EXPORTING
          is_row_id    = e_row_id
          is_column_id = ls_col_id.
    ENDIF.
  ENDMETHOD.                    "handle_hotspot_click
**---method for handling toolbar
  METHOD handle_toolbar_set.
    CLEAR ty_toolbar.
    ty_toolbar-function = 'EDIT'. "name of btn to  catch click
    ty_toolbar-butn_type = 0.
    ty_toolbar-text = 'EDIT'.
    APPEND ty_toolbar    TO e_object->mt_toolbar.
  ENDMETHOD.                    "handle_toolbar_set
  METHOD handle_user_command.
    DATA: wr_data_changed TYPE REF TO cl_alv_changed_data_protocol.
    DATA: lt_rows TYPE lvc_t_row,
          lt_index TYPE  lvc_s_row-index.
    CASE e_ucomm.
      WHEN 'EDIT'.
        PERFORM save_database.
        CALL METHOD ref_grid->refresh_table_display.
    ENDCASE.
  ENDMETHOD.                    "handle_user_command
ENDCLASS.                    "lcl_events_d0100 IMPLEMENTATION

START-OF-SELECTION.
  PERFORM get_data.
  PERFORM field_catalog.
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text : getting data into internal table
*----------------------------------------------------------------------*
FORM get_data .
  SELECT matnr ersda ernam pstat lvorm mtart meins
         INTO TABLE it_tab
         FROM mara
         WHERE matnr GE '000000000000000001'.
ENDFORM.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  field_catalog
*&---------------------------------------------------------------------*
*       text  :setting field cat
*----------------------------------------------------------------------*
FORM field_catalog .
  REFRESH fcat.
  DATA: lv_pos TYPE i.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'MATNR'.
  wa_fcat-coltext = 'Material No'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-hotspot = 'X'.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'ERSDA'.
  wa_fcat-coltext = 'Creation Date'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-edit = 'X'.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'ERNAM'.
  wa_fcat-coltext = 'Person Created'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'PSTAT'.
  wa_fcat-coltext = 'Maint Stat'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'LVORM'.
  wa_fcat-coltext = 'Flag For Deletion'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'MTART'.
  wa_fcat-coltext = 'Material Type'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  lv_pos = lv_pos + 1.
  wa_fcat-fieldname = 'MEINS'.
  wa_fcat-coltext = 'UOM'.
  wa_fcat-col_pos = lv_pos.
  wa_fcat-outputlen = 18.
  APPEND wa_fcat TO fcat.
  CLEAR wa_fcat.
  CREATE OBJECT event_receiver1.
*---setting event handlers
  SET HANDLER event_receiver1->handle_toolbar_set   FOR ref_grid.
  SET HANDLER event_receiver1->handle_user_command  FOR ref_grid.
  SET HANDLER event_receiver1->handle_hotspot_click FOR ref_grid.
*----------------------------------------------------------------------*
*           ALV GRID DISPLAY
*----------------------------------------------------------------------*
  CALL METHOD ref_grid->set_table_for_first_display
    EXPORTING
      is_variant      = st_var
      i_save          = save
      is_layout       = loyo
    CHANGING
      it_outtab       = it_tab[]
      it_fieldcatalog = fcat.
  CALL SCREEN 100.
ENDFORM.                    " field_catalog
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
*  CREATE OBJECT gr_events_d0100.
*
*  SET HANDLER gr_events_d0100->double_click
*
*                 FOR ref_grid.
  CALL METHOD ref_grid->register_edit_event
    EXPORTING
      i_event_id = cl_gui_alv_grid=>mc_evt_modified.
  SET PF-STATUS 'S100'.
  SET TITLEBAR 'XXX'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  exit  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit INPUT.
  CASE ok_code.
    WHEN 'EXIT' .
      CLEAR ok_code.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " exit  INPUT
*&---------------------------------------------------------------------*
*&      Form  SAVE_DATABASE
*&---------------------------------------------------------------------*
*       text : saving into DDIC from internal table
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM save_database .
*--- Getting the selected rows index
  CALL METHOD ref_grid->get_selected_rows
    IMPORTING
      et_index_rows = i_selected_rows.
*--- Through the index capturing the values of selected rows
  LOOP AT i_selected_rows INTO w_selected_rows.
    READ TABLE it_tab INTO wa_it_tab INDEX w_selected_rows-index.
    IF sy-subrc EQ 0.
      MOVE-CORRESPONDING wa_it_tab TO w_modified.
      APPEND w_modified TO i_modified.
    ENDIF.
  ENDLOOP.
  MODIFY mara FROM TABLE i_modified.
ENDFORM.                    " SAVE_DATABASE
*&---------------------------------------------------------------------*
*&      Module  EXIT_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module EXIT_COMMAND_0100 input.

CASE sy-ucomm.
  WHEN 'EXIT' OR 'CANCEL' OR 'BACK'.
    LEAVE PROGRAM.

  WHEN OTHERS.
ENDCASE.

endmodule.                 " EXIT_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.
  SET PF-STATUS 'STAT_200'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0200  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0200  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0200 INPUT.

if sy-ucomm = 'BACK'.
  leave to SCREEN 0.
endif.

ENDMODULE.

Pop-up ALV Radio Buttons Using Classes

2012-05-10T02:15:00.005-07:00

FUNCTION z_wm_gate_exit_popup.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_LRNUM) TYPE  ZLRNUM OPTIONAL
*"     VALUE(I_TRNUM) TYPE  ZTRUNM OPTIONAL
*"     VALUE(I_ASN) TYPE  VBELN_VL OPTIONAL
*"  EXPORTING
*"     REFERENCE(E_DATA) TYPE  ZD2S_WM_DOC_LR
*"----------------------------------------------------------------------
  DATA: lt_doc_lr TYPE TABLE OF zd2s_wm_doc_lr,
        ls_doc_lr TYPE zd2s_wm_doc_lr.

  REFRESH:  gt_emp[],lt_doc_lr[].
  CLEAR:    gs_emp ,g_data,ls_doc_lr.

  PERFORM select_data USING i_trnum.

  PERFORM display_fullscreen.

  CALL SCREEN 2000 STARTING AT 7 1 ENDING AT 76 14.

  IF NOT g_data IS INITIAL.
    IF ok_code = 'RELA'.
      e_data = g_data.
*      DELETE FROM zd2s_wm_doc_lr WHERE trunm = e_data-trunm.
      IF sy-subrc = 0.
*        MESSAGE s064(zdicv_wm) WITH ls_doc_lr-zablad ls_doc_lr-lrnum.
        COMMIT WORK.
      ELSE.
        ROLLBACK WORK.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFUNCTION.
*----------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION FINAL .
  PUBLIC SECTION.
* Handles the Even when user clicks on any row..
    METHODS:handle_hotspot_click FOR EVENT hotspot_click OF cl_gui_alv_grid
                                                          IMPORTING e_row_id .
ENDCLASS.                    "lcl_event_handler DEFINITION
*&---------------------------------------------------------------------*
*&  METHOD handle_hotspot_click.
*&---------------------------------------------------------------------*
*& On double clicking a particulat row
*&---------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD handle_hotspot_click .
    CLEAR : gs_emp.
*    BREAK melumal.
    READ TABLE gt_emp INTO gs_emp WITH KEY radio = icon_radiobutton.
    IF sy-subrc NE 0.
      CLEAR gs_emp .
      READ TABLE gt_emp INTO gs_emp INDEX e_row_id.
      IF gs_emp-radio = icon_radiobutton.
        gs_emp-radio  = icon_wd_radio_button_empty.
        MODIFY gt_emp  INDEX e_row_id FROM gs_emp
                                TRANSPORTING radio.
      ELSE.
        gs_emp-radio  = icon_radiobutton.
        MODIFY gt_emp INDEX e_row_id FROM gs_emp TRANSPORTING radio.
      ENDIF.
    ELSE .
      gs_emp-radio = icon_wd_radio_button_empty.
      MODIFY gt_emp INDEX sy-tabix FROM gs_emp
                      TRANSPORTING radio.
      CLEAR gs_emp.
      READ TABLE gt_emp INTO gs_emp INDEX e_row_id .
      IF sy-subrc = 0.
        gs_emp-radio = icon_radiobutton.
        MODIFY gt_emp  INDEX e_row_id FROM gs_emp
                      TRANSPORTING radio.
      ENDIF.
    ENDIF .
*    CALL METHOD cl_gui_cfw=>set_new_ok_code
*         EXPORTING
*         new_code = 'REFRESH'
**      IMPORTING
**        rc       =
.
    grid_name = gv_grid .
    PERFORM refresh_alv USING grid_name .
  ENDMETHOD .                    "handle_hotspot_click
ENDCLASS .                    "lcl_event_handler IMPLEMENTATION

*----------------------------------------------------------------------*
***INCLUDE LZ_WM_GATE_EXITF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  SELECT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM select_data USING p_i_trunm.
  SELECT  * FROM zd2s_wm_doc_lr
            INTO TABLE gt_emp
            WHERE trunm = p_i_trunm.
ENDFORM.                    " SELECT_DATA
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_FULLSCREEN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM display_fullscreen .
  LOOP AT gt_emp INTO gs_emp.
    gs_emp-radio = icon_wd_radio_button_empty.
    MODIFY gt_emp FROM gs_emp TRANSPORTING radio .
  ENDLOOP.
ENDFORM.                    " DISPLAY_FULLSCREEN
*&---------------------------------------------------------------------*
*&      Form  FIELDCATATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM fieldcatatalog .
  REFRESH: lt_fieldcat.
  CLEAR: ls_fieldcat.
  ls_fieldcat-reptext    = 'Release'.
  ls_fieldcat-fieldname  = 'RADIO'.
  ls_fieldcat-ref_table  = 'GT_EMP'.
  ls_fieldcat-icon       = 'X'.                     "Icons
  ls_fieldcat-hotspot    = 'X'.                     "Hotspot(Hand Symbol)
  ls_fieldcat-col_pos    = '1'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR: ls_fieldcat.
  ls_fieldcat-reptext    = 'Unloading Point'.
  ls_fieldcat-fieldname  = 'ZABLAD'.
  ls_fieldcat-ref_table  = 'GT_EMP'.
  ls_fieldcat-key        = 'X'.
  ls_fieldcat-outputlen  = '20'.
  ls_fieldcat-col_pos    = '2'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR: ls_fieldcat.
  ls_fieldcat-reptext    = 'LR Number'.
  ls_fieldcat-fieldname  = 'LRNUM'.
  ls_fieldcat-ref_table  = 'GT_EMP'.
  ls_fieldcat-outputlen  = '20'.
  ls_fieldcat-col_pos    = '3'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR: ls_fieldcat.
  ls_fieldcat-reptext    = 'Truck Number'.
  ls_fieldcat-fieldname  = 'TRUNM'.
  ls_fieldcat-ref_table  = 'GT_EMP'.
  ls_fieldcat-outputlen  = '15'.
  ls_fieldcat-fix_column = 'X'.
  ls_fieldcat-col_pos    = '4'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR: ls_fieldcat.
  ls_fieldcat-reptext    = 'ASN Number'.
  ls_fieldcat-fieldname  = 'VBELN'.
  ls_fieldcat-ref_table  = 'GT_EMP'.
  ls_fieldcat-outputlen  = '15'.
  ls_fieldcat-fix_column = 'X'.
  ls_fieldcat-col_pos    = '4'.
  APPEND ls_fieldcat TO lt_fieldcat.
  CLEAR: ls_fieldcat.
ENDFORM.                    " FIELDCATATALOG
*&---------------------------------------------------------------------*
*&      Form  REFRESH_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GRID_NAME  text
*----------------------------------------------------------------------*
FORM refresh_alv  USING    p_grid_name TYPE REF TO cl_gui_alv_grid...
* define local data
  DATA:ls_stable TYPE lvc_s_stbl.
  ls_stable-row = abap_true.
  ls_stable-col = abap_true.
  CALL METHOD p_grid_name->refresh_table_display
    EXPORTING
      is_stable = ls_stable
    EXCEPTIONS
      finished  = 1
      OTHERS    = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " REFRESH_ALV
*----------------------------------------------------------------------*
***INCLUDE LZ_WM_GATE_EXITO01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_2000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_2000 OUTPUT.
  SET PF-STATUS 'RADIO'.
  SET TITLEBAR 'RADIO'.
  "lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
  DATA: go_handler    TYPE REF TO lcl_event_handler .
  DATA: lt_exclude TYPE ui_functions,
      ls_exclude TYPE ui_func.
  REFRESH : lt_exclude[].
  CLEAR:   ls_exclude.
  IF go_container IS INITIAL .
    CREATE OBJECT go_container
      EXPORTING
        container_name = 'GC_CON'.
*********************************************************
**Create object alv Grid
*********************************************************
    CREATE OBJECT gv_grid
      EXPORTING
        i_parent = go_container.
*---Excluded all Buttons
    ls_exclude = cl_gui_alv_grid=>mc_fc_excl_all.
    APPEND ls_exclude TO lt_exclude.
    CLEAR  ls_exclude.
***Perform to design field catalog
    PERFORM fieldcatatalog.

    ls_layout-cwidth_opt = 'X' .
    ls_layout-grid_title = text-t01.

    CREATE OBJECT go_handler .
    SET HANDLER:
    go_handler->handle_hotspot_click FOR gv_grid .
    "*********************************************************
**Call method set table for first display
*********************************************************
    CALL METHOD gv_grid->set_table_for_first_display
      EXPORTING
        is_layout                     = ls_layout
        it_toolbar_excluding          = lt_exclude
      CHANGING
        it_outtab                     = gt_emp[]
        it_fieldcatalog               = lt_fieldcat[]
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.

    CALL METHOD gv_grid->set_ready_for_input
      EXPORTING
        i_ready_for_input = 1.
    CALL METHOD cl_gui_cfw=>flush.
  ELSE.
    CALL METHOD gv_grid->set_frontend_layout
      EXPORTING
        is_layout = ls_layout.

    CALL METHOD gv_grid->refresh_table_display.
  ENDIF.

ENDMODULE.                 " STATUS_2000  OUTPUT
*----------------------------------------------------------------------*
***INCLUDE LZ_WM_GATE_EXITI01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_2000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
  CASE  ok_code.
    WHEN 'BACK'.
      LEAVE PROGRAM .
    WHEN 'CANC'.
*      grid_name = gv_grid .
*      PERFORM refresh_alv USING grid_name .
      SET SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM .
*    WHEN 'REFRESH' .
*      grid_name = gv_grid .
*      PERFORM refresh_alv USING grid_name .
    WHEN 'RELA' .
      READ TABLE gt_emp INTO gs_emp WITH KEY radio = icon_radiobutton.
      IF sy-subrc = 0.
        CLEAR: g_data.
        g_data = gs_emp.
      ENDIF.
      SET SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_2000  INPUT

SALV Program

2012-05-10T02:11:00.002-07:00

SALV Output.

REPORT  zmae_check MESSAGE-ID yp.

TYPE-POOLS: abap, col, icon, sym.

TABLES: yylm, yylp, yylp_fz, yylp_azt, yyll, y9l68, aufk, tka02, y9l01.

DATA: datv TYPE d,
      datb TYPE d.
CONSTANTS con_min TYPE meinh VALUE 'MIN'.
*----------------------------------------------------------------------*
* SELECTION-SCREEN                                                     *
*----------------------------------------------------------------------*
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS: s_date FOR sy-datum DEFAULT datv TO datb NO-EXTENSION.
PARAMETER: p_bukrs LIKE yr90a-bukrs.
SELECT-OPTIONS s_zpern FOR yylp-zpern.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_verper DEFAULT 'X' TYPE c RADIOBUTTON GROUP ver,
            p_detail             TYPE c RADIOBUTTON GROUP ver.
SELECTION-SCREEN: END OF BLOCK b1.
*----------------------------------------------------------------------*
* Data                                                                 *
*----------------------------------------------------------------------*
DATA: ws_ucomm LIKE sy-ucomm.

DATA: auth_missing TYPE c VALUE ''.

DATA: qvk  TYPE yyorges,
      qnk  TYPE yyorges,
      n    TYPE i.

DATA: fwpid TYPE yst_mlsk_rep_fwp_id,
      fwpstd TYPE yst_mlsk_rep_fwp_std,
      t_gesstd TYPE y_tab_mlsk_rep_fwp_std,
      t_fwpstd TYPE y_tab_mlsk_rep_fwp_std.

DATA:
    BEGIN OF s_out.
INCLUDE TYPE yst_mlsk_rep_fwp_std.
DATA:
    exception(1) TYPE n,
    diffstd      TYPE yynveze,
    icon(4)      TYPE c,  "icon_d,
  END OF s_out,

  t_out LIKE STANDARD TABLE OF s_out.

DATA: t_y9l68 TYPE y9l68 OCCURS 0 WITH HEADER LINE.

DATA: t_zpern TYPE TABLE OF yypern WITH HEADER LINE.

DATA: gr_table TYPE REF TO cl_salv_table.

*----------------------------------------------------------------------*
* LOAD-OF-PROGRAM                                                      *
*----------------------------------------------------------------------*
LOAD-OF-PROGRAM.
  datv = sy-datum.
  datv+6(2) = '01'.
  SUBTRACT 1 FROM datv.
  datb = datv.
  datv+6(2) = '01'.

AT SELECTION-SCREEN.
  ws_ucomm = sy-ucomm.
  CASE ws_ucomm.
    WHEN '&BACK'.
      SET SCREEN 0.
      EXIT.
    WHEN '&EXIT'.
      SET SCREEN 0.
      EXIT.
    WHEN '&CANC'.
      SET SCREEN 0.
      LEAVE TO SCREEN 0.
  ENDCASE.
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_fullscreen.

  IF auth_missing = 'X' .
    MESSAGE s144(kb) .
  ENDIF .
*&---------------------------------------------------------------------*
*&      Form  display_fullscreen
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM display_fullscreen .

  TRY.
      cl_salv_table=>factory(
        IMPORTING
          r_salv_table = gr_table
        CHANGING
          t_table      = t_out ).
    CATCH cx_salv_msg.
  ENDTRY.

  PERFORM set_metadata.

  gr_table->display( ).

ENDFORM.                    "display_fullscreen

*&---------------------------------------------------------------------*
*&      Form  set_metadata
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM set_metadata .

  PERFORM set_functions.
  PERFORM set_layout_settings.
  PERFORM set_header.
  PERFORM set_display_settings.
  PERFORM set_columns.
  PERFORM set_sort.
  PERFORM set_aggregations.
  PERFORM set_filter.

ENDFORM.                    "set_metadata
*&---------------------------------------------------------------------*
*&      Form  set_display_settings
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM set_display_settings.

  DATA:
    ls_display TYPE REF TO cl_salv_display_settings.

  ls_display = gr_table->get_display_settings( ).

  TRY.
      ls_display->set_list_header( text-001 ).
      ls_display->set_vertical_lines( abap_false ).
      ls_display->set_horizontal_lines( abap_false ).
      ls_display->set_striped_pattern( abap_true ).
      ls_display->set_list_header_size( cl_salv_display_settings=>c_header_size_small ).
      ls_display->set_suppress_empty_data( abap_true ).

    CATCH cx_no_check.
  ENDTRY.

ENDFORM.                    "set_display_settings

*&--------------------------------------------------------------------*
*&      Form  set_columns
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM set_columns.

  DATA:
    lr_columns TYPE REF TO cl_salv_columns_table,
    lr_column  TYPE REF TO cl_salv_column_table.

  lr_columns = gr_table->get_columns( ).

  lr_columns->set_optimize( abap_true ).

*  TRY.
*      lr_columns->set_exception_column( 'EXCEPTION' ).
*    CATCH cx_salv_data_error.
*  ENDTRY.

  TRY.
      lr_column ?= lr_columns->get_column( 'ICON' ).
      lr_column->set_icon( if_salv_c_bool_sap=>true ).
      lr_column->set_long_text( 'Status' ).
      lr_column->set_medium_text( 'Status' ).
      lr_column->set_short_text( 'Status' ).
    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
  ENDTRY.

  TRY.
      lr_column ?= lr_columns->get_column( 'AUFNR' ).
      lr_column->set_technical( abap_true ).
      lr_column ?= lr_columns->get_column( 'ARBB' ).
      lr_column->set_technical( abap_true ).

    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
  ENDTRY.

  TRY.
      IF p_detail IS INITIAL.
        lr_column ?= lr_columns->get_column( 'TAG' ).
        lr_column->set_visible( abap_false ).
      ENDIF.
    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
  ENDTRY.

  DATA:
    ls_color TYPE lvc_s_colo.

  TRY.
      ls_color-col = col_key.
      lr_column ?= lr_columns->get_column( 'KTOAN' ).
      lr_column->set_color( ls_color ).
      lr_column ?= lr_columns->get_column( 'JAHR' ).
      lr_column->set_color( ls_color ).
      lr_column ?= lr_columns->get_column( 'MONAT' ).
      lr_column->set_color( ls_color ).
      lr_column ?= lr_columns->get_column( 'TAG' ).
      lr_column->set_color( ls_color ).
    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
  ENDTRY.

  TRY.
      lr_column ?= lr_columns->get_column( 'DIFFSTD' ).

      ls_color-col = col_key .
      ls_color-int = 1.

      lr_column->set_color( ls_color ).
    CATCH cx_salv_not_found.                            "#EC NO_HANDLER
  ENDTRY.

ENDFORM.                    "set_columns

*&--------------------------------------------------------------------*
*&      Form  set_sort
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM set_sort.

  DATA:
    lr_sorts TYPE REF TO cl_salv_sorts.   "sort information

  lr_sorts = gr_table->get_sorts( ).

  lr_sorts->clear( ).                         "remove all existing sort setings

  TRY.
      lr_sorts->add_sort(
        columnname = 'KTOAN'
        position   = 1
        sequence   = if_salv_c_sort=>sort_up ).
      lr_sorts->add_sort(
        columnname = 'JAHR'
        position   = 2
        sequence   = if_salv_c_sort=>sort_up ).
      lr_sorts->add_sort(
        columnname = 'MONAT'
        position   = 3
        subtotal   = abap_true
        sequence   = if_salv_c_sort=>sort_up ).
      IF NOT p_detail IS INITIAL.
        lr_sorts->add_sort(
          columnname = 'TAG'
          position   = 4
          sequence   = if_salv_c_sort=>sort_down ).
      ENDIF.
    CATCH cx_salv_not_found cx_salv_existing cx_salv_data_error."#EC NO_HANDLER
  ENDTRY.

ENDFORM.                    "set_sort

*&--------------------------------------------------------------------*
*&      Form  set_aggregations
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM set_aggregations.

  DATA:
    lr_aggregations TYPE REF TO cl_salv_aggregations.

  lr_aggregations = gr_table->get_aggregations( ).

  lr_aggregations->clear( ).

  TRY.
      lr_aggregations->add_aggregation( columnname = 'LSTD_FWP' ).
      lr_aggregations->add_aggregation( columnname = 'LSTD_KU' ).
      lr_aggregations->add_aggregation( columnname = 'LSTD_ANW' ).
      lr_aggregations->add_aggregation( columnname = 'LSTD_SP' ).
      lr_aggregations->add_aggregation( columnname = 'DIFFSTD' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
  ENDTRY.

ENDFORM.                    "set_aggregations

*&--------------------------------------------------------------------*
*&      Form  set_filter
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM set_filter.

  DATA:
    lr_filters TYPE REF TO cl_salv_filters.

  lr_filters = gr_table->get_filters( ).

  lr_filters->clear( ).

  TRY.
*      lr_filters->add_filter(
*        columnname = ''
*        low        = '' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing."#EC NO_HANDLER
  ENDTRY.

ENDFORM.                    "set_filter

*&---------------------------------------------------------------------*
*&      Form  ULTIMO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_YYLL_DAZUB  text
*----------------------------------------------------------------------*
FORM ultimo  USING    p_dat TYPE d.
  p_dat+6(2) = '28'.
  ADD 4 TO p_dat.
  p_dat+6(2) = '01'.
  SUBTRACT 1 FROM p_dat.
ENDFORM.                    " ULTIMO
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_data .

  DATA: l_tol_neg       LIKE yyll-versu ,
        l_tol_pos       LIKE yyll-versu ,
        l_proz          LIKE yyll-versu .

  PERFORM get_param_y9l01  USING p_bukrs
                                 'PROZ_TOL'
                                 l_tol_pos .
  l_tol_neg = l_tol_pos * -1 .

  SELECT * FROM y9l68 INTO TABLE t_y9l68
     WHERE datab <= s_date-low
       AND datbi >= s_date-high.

  SELECT zpern FROM yylp INTO TABLE t_zpern
          WHERE bukrs = p_bukrs
          AND zpern IN s_zpern.

  CHECK sy-subrc = 0.

  CLEAR: t_gesstd[].

  LOOP AT t_zpern.

    SELECT SINGLE * FROM yylm WHERE ktonr = t_zpern.
    CHECK sy-subrc = 0.
    SELECT SINGLE * FROM yylp WHERE zpern = yylm-pernr.
    CHECK sy-subrc = 0.

*... Berechtigungsprüfung
    AUTHORITY-CHECK OBJECT 'Z:Y-ZEIT'
           ID 'ACTVT' FIELD '03'
           ID 'BUKRS' DUMMY
           ID 'KOSTL' FIELD yylp-zkost.

*... Keine Berechtigung zum Anzeigen der Daten
    IF sy-subrc <> 0 .
      auth_missing = 'X'.
      CONTINUE.
    ENDIF .

    fwpid-bukrs = yylm-bukrs.
    fwpid-ktonr = yylm-ktonr.
    fwpid-zpern = yylp-zpern.
    fwpid-znam1 = yylp-znam1.
    fwpid-znam2 = yylp-znam2.
    fwpid-zkost = yylp-zkost.
    CASE yylp-zdire.
      WHEN '1'.
        fwpid-zdire = 'LE'.
      WHEN '2'.
        fwpid-zdire = 'GE'.
    ENDCASE.

    SELECT * FROM yyll
      WHERE ktoan = yylm-ktonr
        AND dazub IN s_date.

      fwpstd-ktoan = yyll-ktoan.

      IF p_detail IS INITIAL.
        PERFORM ultimo USING yyll-dazub.
      ENDIF.
      fwpstd-jahr  = yyll-dazub+0(4).
      fwpstd-monat = yyll-dazub+4(2).
      fwpstd-tag   = yyll-dazub+6(2).
      fwpstd-lstde = 'STD'.
      fwpstd-lstd_fwp = 0.
      fwpstd-lstd_ku = 0.
      fwpstd-lstd_anw = 0.
      fwpstd-lstd_sp = 0.

      READ TABLE t_y9l68 WITH KEY aufnr = yyll-aufnr TRANSPORTING NO FIELDS.
      IF sy-subrc = 0.
        COMPUTE fwpstd-lstd_fwp = yyll-orges / 60.
      ELSE.
        COMPUTE fwpstd-lstd_sp = yyll-orges / 60.
      ENDIF.

      COLLECT fwpstd INTO t_gesstd.

    ENDSELECT.

    CLEAR fwpstd.
*... Summe der Anwesenheits Zeiten ermitteln
    SELECT * FROM yylp_azt
            WHERE zpern =  yylm-pernr
              AND bukrs =  yylm-bukrs
              AND datum IN s_date
       ORDER BY datum.

      fwpstd-ktoan = yylm-ktonr.
      IF p_detail IS INITIAL.
        PERFORM ultimo USING yylp_azt-datum.
      ENDIF.
      fwpstd-jahr  = yylp_azt-datum+0(4).
      fwpstd-monat = yylp_azt-datum+4(2).
      fwpstd-tag   = yylp_azt-datum+6(2).
*    fwpstd-lstde = yylp_azt-aeinh.
      fwpstd-lstde = 'STD'.
      fwpstd-lstd_fwp = 0.
      fwpstd-lstd_sp = 0.
      fwpstd-lstd_ku = 0.

      qvk = TRUNC( yylp_azt-anwzt ).
      qnk = FRAC( yylp_azt-anwzt ).
      COMPUTE n = qnk / '0.05'.
      COMPUTE fwpstd-lstd_anw = qvk + ( n * '0.05' ).

      COLLECT fwpstd INTO t_gesstd.
    ENDSELECT.

*    SORT t_gesstd.
    CLEAR fwpstd.
*... Summe der Anwesenheits Zeiten ermitteln
    SELECT * FROM yylp_fz
            WHERE zpern =  yylm-pernr
              AND bukrs =  yylm-bukrs
              AND datum IN s_date.

      fwpstd-ktoan = yylm-ktonr.
      IF p_detail IS INITIAL.
        PERFORM ultimo USING yylp_fz-datum.
      ENDIF.
      fwpstd-jahr  = yylp_fz-datum+0(4).
      fwpstd-monat = yylp_fz-datum+4(2).
      fwpstd-tag   = yylp_fz-datum+6(2).
      fwpstd-lstde = 'STD'.
      fwpstd-lstd_fwp = 0.
      fwpstd-lstd_sp = 0.
      fwpstd-lstd_ku = 0.
      fwpstd-lstd_anw = 0.

      CASE yylp_fz-lsttyp.
        WHEN 'K' OR 'U'.
          IF yylp_fz-meinh = con_min.
            COMPUTE fwpstd-lstd_ku = yylp_fz-orges / 60.
          ELSE.
            COMPUTE fwpstd-lstd_ku = yylp_fz-orges .
          ENDIF.
      ENDCASE.

      COLLECT fwpstd INTO t_gesstd.
    ENDSELECT.

  ENDLOOP.
  CLEAR: s_out, t_out[].

  LOOP AT t_gesstd INTO fwpstd.

    MOVE-CORRESPONDING fwpstd TO s_out.
    s_out-diffstd = s_out-lstd_anw - s_out-lstd_fwp - s_out-lstd_sp.

    IF s_out-lstd_anw  <> 0 .
      l_proz = s_out-diffstd  / s_out-lstd_anw * 100 .
    ELSE .
      IF s_out-diffstd = 0.
        l_proz = 0 .
      ELSE.
        l_proz = -100 .
      ENDIF.
    ENDIF .

    IF l_proz > l_tol_neg AND l_proz < l_tol_pos .
      s_out-icon   = icon_green_light.
    ELSEIF l_proz > l_tol_pos .
      s_out-icon   = icon_yellow_light.
    ELSEIF l_proz < l_tol_neg .
      s_out-icon   = icon_red_light.
    ENDIF .

    APPEND s_out TO t_out.
  ENDLOOP.

ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  SET_LAYOUT_SETTINGS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_layout_settings .

  DATA: lr_layout TYPE REF TO cl_salv_layout,
        ls_key    TYPE salv_s_layout_key.

  lr_layout = gr_table->get_layout( ).

  ls_key-report = sy-repid.
  lr_layout->set_key( ls_key ).
  lr_layout->set_save_restriction( if_salv_c_layout=>restrict_none ).

  IF p_detail IS INITIAL.
    lr_layout->set_initial_layout( '/SUM' ).
  ELSE.
    lr_layout->set_initial_layout( '/STD' ).
  ENDIF.

ENDFORM.                    " SET_LAYOUT_SETTINGS
*&---------------------------------------------------------------------*
*&      Form  SET_FUNCTIONS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_functions .

  DATA: lr_functions TYPE REF TO cl_salv_functions_list.

  lr_functions = gr_table->get_functions( ).
  lr_functions->set_default( ).

ENDFORM.                    " SET_FUNCTIONS
*&---------------------------------------------------------------------*
*&      Form  SET_HEADER
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_header .
*... TOP_OF_LIST
  DATA: lr_header TYPE REF TO cl_salv_form_header_info.

  DATA: txt(100) TYPE c,
        datv(10) TYPE c,
        datb(10) TYPE c.

  WRITE: s_date-low TO datv.
  WRITE: s_date-high TO datb.
  CONCATENATE 'FWP: gebuchte Stunden Zeitraum'(002) datv ' - ' datb INTO txt SEPARATED BY space.

  CREATE OBJECT lr_header
    EXPORTING
      text = txt.
  gr_table->set_top_of_list( lr_header ).

ENDFORM.                    " SET_HEADER
*&---------------------------------------------------------------------*
*&      Form  get_param_y9l01
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_BUKRS    text
*      -->P_PSCHL    text
*      -->P_PWERT    text
*----------------------------------------------------------------------*
FORM get_param_y9l01 USING    p_bukrs                       "CON-TR-09
                              p_pschl
                              p_pwert.

  SELECT SINGLE * FROM y9l01
                  WHERE bukrs = p_bukrs
                    AND pschl = p_pschl .

*... Parameter nicht vorhanden
  IF sy-subrc NE 0.
    MESSAGE e124 WITH p_pschl   .
*...  Parameter vorhanden
  ELSE.
    p_pwert = y9l01-pwert.
  ENDIF.

ENDFORM.                    "get_param_y9l01

Make Invisible - Ranges in the select-option

2012-05-10T02:10:00.000-07:00

Invisible Ranges in the selection screen:
REPORT  zmae_radio.
TABLES : eket,
         rkpln,
         prps,
         eban,
         ekpo,
         proj.
SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_psp RADIOBUTTON GROUP grp1 DEFAULT 'X' USER-COMMAND uc1.
SELECTION-SCREEN COMMENT 3(28) text-039.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_pspid FOR proj-pspid NO INTERVALS MODIF ID sg5.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_wbg RADIOBUTTON GROUP grp1.
SELECTION-SCREEN COMMENT 3(28) text-040.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_wbsgr FOR rkpln-posidgr NO INTERVALS MODIF ID sg6.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_wbs RADIOBUTTON GROUP grp1." DEFAULT 'X'USER-COMMAND uc1.
SELECTION-SCREEN COMMENT 3(27) text-002.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_wbs FOR prps-posid NO INTERVALS MODIF ID sg1.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 3(27) text-004.
SELECTION-SCREEN POSITION 33.
PARAMETERS p_hier AS CHECKBOX.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_preq RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN COMMENT 3(27) text-003.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_preq FOR eban-banfn NO INTERVALS MODIF ID sg2.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_pord RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN COMMENT 3(27) text-005.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_pord FOR ekpo-ebeln NO INTERVALS MODIF ID sg3.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS prd_afnm RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN COMMENT 3(27) text-036.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_afnam FOR ekpo-afnam NO INTERVALS MODIF ID sg4.
SELECTION-SCREEN END   OF LINE.

**Begin CR#3876
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS r_vernr RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN COMMENT 3(27) text-048.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_vernr FOR prps-vernr NO INTERVALS MODIF ID sg7.
SELECTION-SCREEN END   OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS r_fkstl RADIOBUTTON GROUP grp1 .
SELECTION-SCREEN COMMENT 3(27) text-049.
SELECTION-SCREEN POSITION 30.
SELECT-OPTIONS s_fkstl FOR prps-fkstl NO INTERVALS MODIF ID sg8.
SELECTION-SCREEN END   OF LINE.
**End CR#3876

SELECTION-SCREEN END   OF BLOCK b001.

SELECTION-SCREEN BEGIN OF BLOCK b002 WITH FRAME.
SELECT-OPTIONS :  s_knttp FOR ekpo-knttp,
                  s_ddate FOR eket-eindt.
PARAMETERS     :  p_open AS CHECKBOX.

SELECTION-SCREEN END   OF BLOCK b002.

***********************************************************************
*          SELECTION SCREEEN EVENTS
************************************************************************
*At selection screen output---------------------------------------------
AT SELECTION-SCREEN OUTPUT.
  SET CURSOR FIELD 'S_PSPID-LOW'.

  PERFORM modify_screen. "To modify screen according to radio buttons

*&---------------------------------------------------------------------*
*&      Form  modify_screen
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM modify_screen.

  IF prd_psp  = 'X'.

    PERFORM disable_screen  USING  'SG5'.

    REFRESH: s_preq,
             s_pord,
             s_afnam,
             s_wbsgr,
             s_wbs.

    CLEAR p_hier.
  ELSEIF  prd_wbg  =  'X'.

    PERFORM disable_screen  USING  'SG6'.

    REFRESH: s_preq,
             s_pord,
             s_afnam,
             s_wbs,
             s_pspid.

    CLEAR p_hier.
  ELSEIF prd_wbs = 'X'.

    PERFORM disable_screen  USING  'SG1'.

    REFRESH: s_preq,
             s_pord,
             s_afnam,
             s_pspid,
             s_wbsgr.

  ELSEIF prd_preq = 'X'.

    PERFORM disable_screen  USING  'SG2'.

    REFRESH: s_wbs,
             s_pord,
             s_afnam.

    CLEAR p_hier.

  ELSEIF prd_pord  =  'X'.

    PERFORM disable_screen  USING  'SG3'.

    REFRESH: s_wbs,
             s_preq,
             s_afnam,
             s_pspid,
             s_wbsgr.

    CLEAR p_hier.

  ELSEIF prd_afnm = 'X'.

    PERFORM disable_screen  USING  'SG4'.

    REFRESH: s_wbs,
             s_preq,
             s_pord,
             s_pspid,
             s_wbsgr.

    CLEAR p_hier.
**Begin CR#3876

  ELSEIF  r_vernr = 'X'.

    PERFORM disable_screen USING 'SG7'.

    REFRESH: s_wbs,
          s_preq,
          s_pord,
          s_pspid,
          s_wbsgr.

  ELSE.

    PERFORM disable_screen USING 'SG8'.

    REFRESH: s_wbs,
          s_preq,
          s_pord,
          s_pspid,
          s_wbsgr.
    CLEAR p_hier.

**End CR#3876

  ENDIF.
ENDFORM.                    " modify_screen
*&---------------------------------------------------------------------*
*&      Form  DISABLE_SCREEN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0354   text
*----------------------------------------------------------------------*
FORM disable_screen  USING      value(p_group).

  LOOP AT SCREEN.

    IF screen-group1 NE p_group AND
       NOT  screen-group1 IS  INITIAL.

      screen-input = 0.
      screen-output = 0.
      MODIFY SCREEN.

    ENDIF.
  ENDLOOP.
ENDFORM.                    " DISABLE_SCREEN

Upload data direct from excel.xls file to SAP

2012-05-10T02:07:00.003-07:00

*&---------------------------------------------------------------------*
*& Report  YMAE_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

*
* Upload data direct from excel.xls file to SAP
*
REPORT zexcelupload.
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID m01,
            begcol TYPE i DEFAULT 1 NO-DISPLAY,
            begrow TYPE i DEFAULT 1 NO-DISPLAY,
            endcol TYPE i DEFAULT 100 NO-DISPLAY,
            endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.

DATA: BEGIN OF intern OCCURS 0.
        INCLUDE STRUCTURE  alsmex_tabline.
DATA: END OF intern.

DATA: BEGIN OF intern1 OCCURS 0.
        INCLUDE STRUCTURE  alsmex_tabline.
DATA: END OF intern1.

DATA: BEGIN OF t_col OCCURS 0,
       col LIKE alsmex_tabline-col,
       size TYPE i.
DATA: END OF t_col.

DATA: zwlen TYPE i,
      zwlines TYPE i.

DATA: BEGIN OF fieldnames OCCURS 3,
        title(60),
        table(6),
        field(10),
        kz(1),
      END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
       value_0001(50),
       value_0002(50),
       value_0003(50),
       value_0004(50),
       value_0005(50),
       value_0006(50),
       value_0007(50),
       value_0008(50),
       value_0009(50),
       value_0010(50),
       value_0011(50),
       value_0012(50),
       value_0013(50),
       value_0014(50),
       value_0015(50),
       value_0016(50),
       value_0017(50),
       value_0018(50),
       value_0019(50),
       value_0020(50),
       value_0021(50),
       value_0022(50),
       value_0023(50),
       value_0024(50),
       value_0025(50),
       value_0026(50),
       value_0027(50),
       value_0028(50),
       value_0029(50),
       value_0030(50),
       value_0031(50),
       value_0032(50),
       value_0033(50),
       value_0034(50),
       value_0035(50),
       value_0036(50),
       value_0037(50),
       value_0038(50),
       value_0039(50),
       value_0040(50),
       value_0041(50),
       value_0042(50),
       value_0043(50),
       value_0044(50),
       value_0045(50),
       value_0046(50),
       value_0047(50),
       value_0048(50),
       value_0049(50),
       value_0050(50),
       value_0051(50),
       value_0052(50),
       value_0053(50),
       value_0054(50),
       value_0055(50),
       value_0056(50),
       value_0057(50),
       value_0058(50),
       value_0059(50),
       value_0060(50),
       value_0061(50),
       value_0062(50),
       value_0063(50),
       value_0064(50),
       value_0065(50),
       value_0066(50),
       value_0067(50),
       value_0068(50),
       value_0069(50),
       value_0070(50),
       value_0071(50),
       value_0072(50),
       value_0073(50),
       value_0074(50),
       value_0075(50),
       value_0076(50),
       value_0077(50),
       value_0078(50),
       value_0079(50),
       value_0080(50),
       value_0081(50),
       value_0082(50),
       value_0083(50),
       value_0084(50),
       value_0085(50),
       value_0086(50),
       value_0087(50),
       value_0088(50),
       value_0089(50),
       value_0090(50),
       value_0091(50),
       value_0092(50),
       value_0093(50),
       value_0094(50),
       value_0095(50),
       value_0096(50),
       value_0097(50),
       value_0098(50),
       value_0099(50),
       value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      mask      = '*.xls'
      static    = 'X'
    CHANGING
      file_name = filename.

START-OF-SELECTION.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = filename
      i_begin_col             = begcol
      i_begin_row             = begrow
      i_end_col               = endcol
      i_end_row               = endrow
    TABLES
      intern                  = intern
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.

  IF sy-subrc <> 0.
    WRITE:/ 'Upload Error ', sy-subrc.
  ENDIF.

END-OF-SELECTION.

  LOOP AT intern.
    intern1 = intern.
    CLEAR intern1-row.
    APPEND intern1.
  ENDLOOP.

  SORT intern1 BY col.
  LOOP AT intern1.
    AT NEW col.
      t_col-col = intern1-col.
      APPEND t_col.
    ENDAT.
    zwlen = STRLEN( intern1-value ).
    READ TABLE t_col WITH KEY col = intern1-col.
    IF sy-subrc EQ 0.
      IF zwlen > t_col-size.
        t_col-size = zwlen.
*                          Internal Table, Current Row Index
        MODIFY t_col INDEX sy-tabix.
      ENDIF.
    ENDIF.
  ENDLOOP.

  DESCRIBE TABLE t_col LINES zwlines.

  SORT intern BY row col.
  IF kzheader = 'X'.
    LOOP AT intern.
      fieldnames-title = intern-value.
      APPEND fieldnames.
      AT END OF row.
        EXIT.
      ENDAT.
    ENDLOOP.
  ELSE.
    DO zwlines TIMES.
      WRITE sy-index TO fieldnames-title.
      APPEND fieldnames.
    ENDDO.
  ENDIF.

  SORT intern BY row col.
  LOOP AT intern.
    IF kzheader = 'X'
    AND intern-row = 1.
      CONTINUE.
    ENDIF.
    tind = intern-col.
    CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
    ASSIGN (zwfeld) TO <fs1>.
    <fs1> = intern-value.
    AT END OF row.
      APPEND data_tab.
      CLEAR data_tab.
    ENDAT.
  ENDLOOP.

  CALL FUNCTION 'DISPLAY_BASIC_LIST'
    EXPORTING
      file_name     = filename
    TABLES
      data_tab      = data_tab
      fieldname_tab = fieldnames.

Pop Up ALV Using CSALV

2012-05-10T02:06:00.005-07:00

REPORT ymae_mail.
TABLES: pa0002.

TYPES: BEGIN OF ty_outtab,
       pernr LIKE pa0002-pernr,
       begda LIKE pa0002-begda,
       endda LIKE pa0002-endda,
       vorna LIKE pa0002-vorna,
       nachn LIKE pa0002-nachn,
      END   OF ty_outtab.

DATA: gt_outtab TYPE STANDARD TABLE OF ty_outtab,
      gr_table  TYPE REF TO cl_salv_table.
*----------------------------------------------------------------------*
* SELECTION-SCREEN                                                     *
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK gen WITH FRAME.
SELECT-OPTIONS:s_pernr FOR pa0002-pernr.
SELECTION-SCREEN END OF BLOCK gen.
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
START-OF-SELECTION.
  PERFORM select_data.
*----------------------------------------------------------------------*
* END-OF-SELECTION                                                     *
*----------------------------------------------------------------------*
END-OF-SELECTION.
  PERFORM display_fullscreen.
*&---------------------------------------------------------------------*
*&      Form  select_data
*----------------------------------------------------------------------*
FORM select_data .
  SELECT  pernr
          begda
          endda
          vorna
          nachn
          FROM pa0002
          INTO TABLE gt_outtab
          WHERE pernr IN s_pernr.

ENDFORM.                    " select_data
*&---------------------------------------------------------------------*
*&      Form  display_fullscreen
*----------------------------------------------------------------------*
FORM display_fullscreen .

  DATA: lr_content TYPE REF TO cl_salv_form_element.

  cl_salv_table=>factory(
   EXPORTING
      list_display = 'X'
    IMPORTING
      r_salv_table = gr_table
    CHANGING
      t_table      = gt_outtab ).

  gr_table->set_screen_popup(
    start_column = 1
    end_column   = 100
    start_line   = 1
    end_line     = 20 ).

  DATA: lr_selections TYPE REF TO cl_salv_selections.

  lr_selections = gr_table->get_selections( ).
  lr_selections->set_selection_mode(
  if_salv_c_selection_mode=>row_column ).

  gr_table->display( ).

ENDFORM.                    " display_fullscreen

Send Mail - Multiple attachment with different format

2012-05-10T02:05:00.000-07:00

*&---------------------------------------------------------------------*
*& Report ZDUMMY_1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT zmail_pdf_xls.
* Selection-screen.
*data it_attach.
SELECTION-SCREEN BEGIN OF LINE.
* Email address
SELECTION-SCREEN COMMENT 2(20) v_text1 FOR FIELD p_email.
PARAMETERS: p_email(50) OBLIGATORY.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
* Business object type
SELECTION-SCREEN COMMENT 2(20) v_text2 FOR FIELD p_bo.
PARAMETERS: p_bo     TYPE borident-objtype DEFAULT 'BUS2078'.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
* Business object ID
SELECTION-SCREEN COMMENT 2(20) v_text3 FOR FIELD p_boid.
PARAMETERS: p_boid   TYPE borident-objkey DEFAULT '000200000093'.
SELECTION-SCREEN END OF LINE.

DATA: it_attach TYPE TABLE OF soli,
      wa_attach TYPE soli.
DATA: it_body TYPE TABLE OF soli ,
      wa_body TYPE soli.
DATA: it_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.

* Internal table declarations.
DATA: lt_links            TYPE TABLE OF relgraphlk,
      lv_document_id      TYPE sofolenti1-doc_id,
      lt_plist            LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
      lt_soli             LIKE soli OCCURS 100 WITH HEADER LINE,
      lt_rec_tab          LIKE somlreci1 OCCURS 1 WITH HEADER LINE,
      lt_roles            TYPE STANDARD TABLE OF relroles,
      lt_appllinks        TYPE STANDARD TABLE OF srl_aprel,
      lt_object_content_l LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      lt_object_content   LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      lt_doc_dat          LIKE sofolenti1.

TYPES: ty_t_pdf TYPE STANDARD TABLE OF tline.
CONSTANTS: c_new_line    TYPE char255 VALUE '<br>'.
* Variables.
DATA: lv_objtp            LIKE soodk-objtp,
      lv_lang             LIKE tst01-dlang,
      lv_line_size        TYPE i VALUE 255,
      lv_name             LIKE soextreci1-receiver.

* Work areas
DATA: lwa_doc_data        LIKE sodocchgi1,
      lwa_document_data   LIKE sofolenti1,
      lwa_links           LIKE LINE OF lt_links,
      lwa_object          TYPE borident.

DATA: lo_is_object_a TYPE sibflporb,
      t_links TYPE obl_t_link,
      wa_links LIKE LINE OF t_links.

DATA : lt_rel TYPE obl_t_relt,
       wa_rel LIKE LINE OF lt_rel.

*For pdf display
DATA: gt_otf_from_fm TYPE ssfcrescl.                      "OTF data recd
DATA: gs_control_parameters     TYPE ssfctrlop,
      gs_output_options         TYPE ssfcompop.
DATA: gt_email_body TYPE STANDARD TABLE OF solisti1,
      gs_email_body TYPE solisti1.

DATA : lf_name   TYPE rs38l_fnam.
* Initialization.
INITIALIZATION.

* Set the texts.
v_text1 = 'Email addr.'.
v_text2 = 'Business obj type'.
v_text3 = 'Business obj ID'.

* Start-of-selection.
START-OF-SELECTION.

* Assign the values
lwa_object-objkey = p_boid.
lwa_object-objtype = p_bo.

lo_is_object_a-instid = p_boid.
lo_is_object_a-typeid = p_bo.
lo_is_object_a-catid = 'BO'.

wa_rel-sign = 'I'.
wa_rel-option = 'EQ'.
wa_rel-low = 'ATTA'.
APPEND wa_rel TO lt_rel.

TRY.
    CALL METHOD cl_binary_relation=>read_links
      EXPORTING
        is_object              = lo_is_object_a
*    IP_LOGSYS              =
*    IT_ROLE_OPTIONS        =
        it_relation_options    = lt_rel
*    IP_NO_BUFFER           = SPACE
       IMPORTING
         et_links               = t_links
*    ET_ROLES               =
        .
ENDTRY.
* Process the attachment list
LOOP AT t_links INTO wa_links WHERE typeid_b = 'MESSAGE'.

    MOVE wa_links-instid_b TO lv_document_id.

* Read the data
    CALL FUNCTION 'SO_DOCUMENT_READ_API1'
      EXPORTING
        document_id                = lv_document_id
      IMPORTING
        document_data              = lwa_document_data
      TABLES
        object_content             = lt_object_content_l
      EXCEPTIONS
        document_id_not_exist      = 1
        operation_no_authorization = 2
        x_error                    = 3
        OTHERS                     = 4.

* Prepare the data.
    lt_plist-transf_bin = 'X'.
    lt_plist-head_start = 0.
    lt_plist-head_num = 0.
    lt_plist-body_start = 0.
    lt_plist-body_num = 0.
    lt_plist-doc_type = 'RAW'.
    lt_plist-obj_descr = lwa_document_data-obj_descr.
    APPEND lt_plist.

    lt_plist-transf_bin = 'X'.
    lt_plist-head_start = 0.
    lt_plist-head_num = 0.

    IF sy-tabix = 1.
      lt_plist-body_start = 1.
    ELSE.
      DESCRIBE TABLE lt_object_content.
      lt_plist-body_start = sy-tfill + 1.
    ENDIF.

    DESCRIBE TABLE lt_object_content_l LINES lt_plist-body_num.
    lt_plist-doc_type = lwa_document_data-obj_type.

* Get the size.
    READ TABLE lt_object_content_l INDEX lt_plist-body_num.
    lt_plist-doc_size = ( lt_plist-body_num - 1 ) * lv_line_size
                     + STRLEN( lt_object_content_l ).
    APPEND lt_plist.

* Move the values to the main internal table.
    APPEND LINES OF lt_object_content_l TO lt_object_content.

ENDLOOP.
REFRESH t_links[].

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = 'ZD2S_QM_CLAIMREPORT'
    IMPORTING
      fm_name            = lf_name
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
IF sy-subrc = 0.
    gs_control_parameters-no_dialog   = 'X'.
    gs_control_parameters-preview     = ' '.
    gs_control_parameters-langu       = sy-langu.
ENDIF.
gs_output_options-tdnoprev = space.   " make sure preview is off otherwise
gs_control_parameters-getotf = 'X'.
gs_output_options-tddest = 'LOCL'.
CALL FUNCTION lf_name
    EXPORTING
      control_parameters = gs_control_parameters
      output_options     = gs_output_options
      user_settings      = ' '
    IMPORTING
      job_output_info    = gt_otf_from_fm.
IF sy-subrc = 0.
    PERFORM convert_otf .
ENDIF.

INCLUDE zdummy_6_convert_otff01.

*----------------------------------------------------------------------*
***INCLUDE ZDUMMY_4_CONVERT_OTFF01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form CONVERT_OTF
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM convert_otf .
DATA: c_pdf   TYPE string     VALUE 'PDF',
          c_u     TYPE so_escape VALUE 'U',
          c_raw   TYPE so_obj_tp VALUE 'RAW',
          c_test TYPE so_obj_nam VALUE 'PPAP.pdf',
          c_objnam TYPE so_obj_nam VALUE 'PPAP',
*        c_desnam TYPE so_obj_des VALUE 'PPAP Notification Process',
          c_sen_f TYPE so_obj_sns VALUE 'F',
          c_x     TYPE c VALUE 'X'.
DATA: l_subject   TYPE so_obj_des,
        l_att_type TYPE soodk-objtp.
DATA:       l_pdf_xstring        TYPE xstring,
               l_pdf_string        TYPE xstring.
DATA: l_otfdata_tab     TYPE STANDARD TABLE OF itcoo." OCCURS 1 WITH HEADER LINE.
DATA: g_pdf_tab         TYPE STANDARD TABLE OF tline.
DATA: lt_xls TYPE STANDARD TABLE OF solisti1.
DATA: ls_xls LIKE LINE OF      lt_xls.
DATA: lt_pdf_tab1 TYPE STANDARD TABLE OF solisti1.
DATA: ls_pdf_tab1 LIKE LINE OF      lt_pdf_tab1.
*
CONSTANTS:
*-- Constants used in the body of the Email (HTML)
c_htm         TYPE char3   VALUE 'RAW',
c_xls(3)      TYPE c       VALUE 'XLS'.
* *-- Local data declaration for sending mail
DATA: l_send_request TYPE REF TO cl_bcs,
        l_document      TYPE REF TO cl_document_bcs,
        l_sender        TYPE REF TO cl_sapuser_bcs,
        l_sub           TYPE char50,
        l_recipient     TYPE REF TO if_recipient_bcs,
        tl_contents     TYPE STANDARD TABLE OF soli,
        l_doc_len       TYPE so_obj_len,
        l_cnt           TYPE sy-tabix,
        l_rcv_email     TYPE adr6-smtp_addr,
        l_result        TYPE sy-binpt,
        l_bcs_exception TYPE REF TO cx_bcs,
        l_subj          TYPE string,
        wa_contents TYPE solisti1,
        w_document TYPE REF TO cl_document_bcs.
DATA:   l_wa_mail TYPE zdicv_emailuser.
DATA : bin_size TYPE i,
         l_size   TYPE i,
         l_lines TYPE i.
DATA : lt_att_content_hex TYPE        solix_tab.
*Variables
DATA: lw_com_type TYPE somlreci1-com_type VALUE 'INT'.
REFRESH :lt_xls[] ,g_pdf_tab[],l_otfdata_tab[],lt_att_content_hex[].
*--------------------------------------------------------------------*
*OTF data
l_otfdata_tab[] = gt_otf_from_fm-otfdata[].

CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      format                = c_pdf
    IMPORTING
      bin_filesize          = l_pdf_xstring
      bin_file              = l_pdf_string
    TABLES
      otf                   = l_otfdata_tab
      lines                 = g_pdf_tab
    EXCEPTIONS
      err_max_linewidth     = 1
      err_format            = 2
      err_conv_not_possible = 3
      OTHERS                = 4.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer        = l_pdf_string
    IMPORTING
      output_length = bin_size
    TABLES
      binary_tab    = lt_att_content_hex.

APPEND LINES OF lt_object_content[] TO lt_xls[] .

* Populate message body text
PERFORM populate_email_message_body.

TRY.
*-- Create persistent send request
      l_send_request = cl_bcs=>create_persistent( ).
      tl_contents[] = it_body[].

*-- Get the length of the Document
      DESCRIBE TABLE tl_contents LINES l_cnt.
      READ TABLE tl_contents INTO wa_contents INDEX l_cnt.
      l_doc_len = ( l_cnt - 1 ) * 255 + STRLEN( wa_contents ).
*-- Subject of the mail
      CONCATENATE 'GOS '
                 'Attachments'
                  INTO l_sub
                 SEPARATED BY space.

*-- Create Document
      l_document = cl_document_bcs=>create_document(
                   i_type       = c_htm
                   i_text       = tl_contents
                   i_length     = l_doc_len
                   i_subject    = l_sub
                   i_language   = sy-langu
                   i_importance = '1' ).
*-- Subject of the mail
      MOVE l_sub TO l_subj.
      w_document = l_document.

      TRY.
*-- Set the Message Subject
          CALL METHOD l_send_request->set_message_subject
            EXPORTING
              ip_subject = l_subj.
        CATCH cx_sy_dyn_call_illegal_method.
      ENDTRY.

*-- Add document to send request
      CALL METHOD l_send_request->set_document( l_document ).

*-- Do send delivery info for successful mails
      CALL METHOD l_send_request->set_status_attributes
        EXPORTING
          i_requested_status = 'E'
          i_status_mail      = 'A'.

*-- Set sender
      l_sender = cl_sapuser_bcs=>create( sy-uname ).
      CALL METHOD l_send_request->set_sender
        EXPORTING
          i_sender = l_sender.

*-- Attachments for the mail

      IF NOT lt_xls[] IS INITIAL.
*-- Subject of the Attachment
        l_subject = text-s01.

*-- Format of the Attachment
        l_att_type = 'XLS'.

        TRY.
*-- Add Attachment to the Document
            CALL METHOD w_document->add_attachment
              EXPORTING
                i_attachment_type    = l_att_type
                i_attachment_subject = l_subject
                i_att_content_text   = lt_xls.
          CATCH cx_document_bcs.
        ENDTRY.

      ENDIF.
*/ Size to multiplied by 2 for UNICODE enabled systems
*      DESCRIBE TABLE lt_att_content_hex LINES l_lines." l_size
*      l_size = l_lines * 2 * 255.
*-- Append Empty line to display data in full view.
      IF NOT lt_att_content_hex[] IS INITIAL.
*-- Subject of the Attachment
        l_subject = text-s02.
        l_att_type = 'PDF'.
        TRY.
*-- Add Attachment to the Document
            CALL METHOD w_document->add_attachment
              EXPORTING
                i_attachment_type    = l_att_type
*              i_attachment_size    = l_size
                i_attachment_subject = l_subject
                i_att_content_hex    = lt_att_content_hex.

          CATCH cx_document_bcs.
        ENDTRY.

      ENDIF.

*-- Add the recipients to the Send mail
      l_rcv_email = pe.manikandan@gmail.com'.

      CHECK NOT l_rcv_email IS INITIAL.
      l_recipient = cl_cam_address_bcs=>create_internet_address(
                                                    l_rcv_email ).
      CALL METHOD l_send_request->add_recipient
        EXPORTING
          i_recipient = l_recipient
          i_express   = c_x.

*-- Send Email
      CALL METHOD l_send_request->send(
          RECEIVING
            result              = l_result ).

      IF l_result = c_x.

      ENDIF.

    CATCH cx_bcs INTO l_bcs_exception.
      IF l_result NE c_x.

      ENDIF.
ENDTRY.
COMMIT WORK.
ENDFORM.                    " CONVERT_OTF
*&---------------------------------------------------------------------*
*&      Form POPULATE_EMAIL_MESSAGE_BODY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM populate_email_message_body .
*-- New Line
wa_body-line = c_new_line.
APPEND wa_body TO   it_body.
CLEAR wa_body.

wa_body-line = text-t02.
APPEND wa_body TO   it_body.
CLEAR wa_body.
ENDFORM.                    " POPULATE_EMAIL_MESSAGE_BODY

Formatting SAP Script and Smartforms

2011-05-11T21:20:00.000-07:00

http://www.ziddu.com/download/14952420/FormattingSAPScript_Smartforms.doc.html

Formatting SAPScript / SMARTFORMS in SAP

2011-05-11T05:25:00.000-07:00

There are few formatting options available in SAP for text formatting in SAPScript as well as Smartforms.

Smartforms Formatting

Following are the few useful formatting options:

Offset:

N left-most characters of the symbol value will not be displayed.

If symbol has the value 123456789, the following will be displayed:

&symbol& -> 123456789

&symbol+3& -> 456789

&symbol+7& -> 89

&symbol+12& ->

&symbol+0& -> 123456789

Output Length

To define how many character positions should be copied from the value.

If symbol has the value 123456789.

&symbol(3)& -> 123

&symbol(7)& -> 1234567

The SYST-UNAME field contains the logon name of a user called Einstein. The

Dictionary entry for this field contains an output length of 12.

&SYST-UNAME&… -> Einstein…

&SYST-UNAME(9)&… -> Einstein …

&SYST-UNAME(*)&… -> Einstein …

Omitting the Leading Sign

The S option can be used to ensure that the value is formatted without the sign.

The ITCDP-TDULPOS field contains the value -100.00. The ABAP/4 Dictionary

definition for this field includes a leading sign.

&ITCDP-TDULPOS& -> 100.00-

&ITCDP-TDULPOS(S)& -> 100.00

Leading Sign to the Left

This option enables you to specify that the leading sign should be placed to the left of the number.

&ITCDP-TDULPOS& -> 100.00-

&ITCDP-TDULPOS(<)& -> -100.00

Leading Sign to the Right

If you used the SET SIGN LEFT control command to specify that the leading sign should be output before the value, this specification can be overridden for individual symbols to enable these to be output with the leading sign to the right.

Syntax:

&symbol(>)&

Omitting Leading Zeros

Certain symbol values are output with leading zeros. If you wish to suppress these, you may do so with the Z option.

Assuming the current date is 1.1.1994, &DAY& -> 01

&DAY(Z)& -> 1

Space Compression

The C option has the effect of replacing each string of space characters with a single space and shifting the ’words’ to the left as necessary to close up the gaps.

Assuming ‘ Albert Einstein ‘ is the symbol value,

&symbol& -> Albert Einstein

&symbol(C)& -> Albert Einstein

Number of Decimal Places

A program symbol of one of the data types DEC, QUAN and FLTP can contain decimal place data. This option is used to override the Dictionary definition for the number of decimal places for the formatting of this symbol value.

The EKPO-MENGE field contains the value 1234.56. The Dictionary definition specifies 3 decimal places and an output length of 17.

&EKPO-MENGE& -> 1,234.560

&EKPO-MENGE(.1) -> 1,234.6

&EKPO-MENGE&(.4) -> 1,234.5600

&EKPO-MENGE&(.0) -> 1,235

Specifying an Exponent for Floating Point Numbers

The way that a floating point number is formatted depends on whether an exponent is specified.

PLMK-SOLLWERT field is assumed to have the value

123456.78 and to be of data type FLTP.

&PLMK-SOLLWERT& -> +1.23456780000000E+05

&PLMK-SOLLWERT(E3)& -> +123.456780000000E+03

&PLMK-SOLLWERT(E6)& -> +0.12345678000000E+06

&PLMK-SOLLWERT(E0)& -> +123456.780000000

&PLMK-SOLLWERT(E)& -> +123456.780000000

Right-Justified Output

Right-justified formatting can be specified with the R option. This option has to be used in conjunction with an output length specification. If symbol has the value 1234.

&symbol& -> 1234

&symbol(8R) -> 1234

Fill Characters

Leading spaces in a value can be replaced with a fill character.

The figure for customer sales in the KNA1-UMSAT field is $700. The Dictionary description of the field specifies an output length 8.

&KNA1-UMSAT& -> 700.00

&KNA1-UMSAT(F*)& -> **700.00

&KNA1-UMSAT(F0)& -> 00700.00

Suppress Output of Initial Value

The I option can be used to suppress the output of symbols which still contain their initial value.

Assuming KNA1-UMSAT contains the value 0 and the currency is DEM.

&KNA1-UMSAT& -> 0,00

&KNA1-UMSAT(I)& ->

If the field contains an amount other than 0, this value will be output in the normal way.

&KNA1-UMSAT& -> 700,00

&KNA1-UMSAT(I)& -> 700,00

Ignore Conversion Routines

SAPscript conversion routines specified in the Dictionary are automatically recognized and used when program symbols are being formatted. Using the K option can prevent these conversions.

Date Mask

The formatting for date fields can be defined with the SAPscript SET DATE MASK command. Executing this command causes all subsequent date fields to be output using the specified formatting.

/: SET DATE MASK = ‘date_mask’

The following templates may be used in the date mask:

DD day (two digits)

DDD name of day (abbreviated)

DDDD name of day (written out in full)

MM month (two digits)

MMM name of month (abbreviated)

MMMM name of month (written out in full)

YY year (two digits)

YYYY year (four digits)

LD day (formatted as for the L option)

LM month (formatted as for the L option)

LY year (formatted as for the L option)

Time Mask

You can use the SAPscript SET TIME MASK command to format time fields in a way that differs from the standard setting.

Assuming the current time is 10:08:12.

&TIME& -> 10:08:12

/: SET TIME MASK = ‘HH:MM’

&TIME& -> 10:08

/: SET TIME MASK = ‘HH hours MM minutes’

&TIME& -> 10 hours 08 minutes

&TIME(Z)& -> 10 hours 8 minutes

Other Standard Outputs:

&DAY&, &MONTH&, &YEAR&, &HOURS&, &MINUTES&, &SECONDS&, &DATE&,

&TIME&, &PAGE&, &NEXTPAGE&.

Rowlevel locking of database table

2011-04-19T01:13:00.001-07:00

http://www.ziddu.com/download/14656829/Rowlevellockingofdatabasetable.doc.html

GlobalClassFunctionality - SE24

2011-04-18T21:38:00.001-07:00

http://www.ziddu.com/download/14656808/GlobalClassFunctionality.doc.html

Enhancinga Standard Searchhelp

2011-04-18T21:37:00.001-07:00

http://www.ziddu.com/download/14656781/EnhancingaStandardSearch.doc.html

Print the bar code using smartforms

2011-04-18T21:21:00.001-07:00

http://www.ziddu.com/download/14648577/bystepeasyapproachtoprintthebarcodeusingsmartforms.doc.html

Upload Images in SE78 using SE38

2011-04-18T04:34:00.000-07:00

REPORT ZINHP_UPLOAD_SIGNATURE .
Description..............: UPLOAD IMAGES .
**********************************************************************
TYPE-POOLS TRUXS.
DATA L_V_RAW    TYPE TRUXS_T_TEXT_DATA.
*===Data declaration
DATA :         " L_filname       type rlgrap-filename,
               " l_name           TYPE stxbitmaps-tdname,
                L_OBJECT         TYPE STXBITMAPS-TDOBJECT,
                L_ID             TYPE STXBITMAPS-TDID,
                L_BTYPE          TYPE STXBITMAPS-TDBTYPE,
                L_FORMAT         TYPE DAPPL,
                " L_title          like bapisignat-prop_value,
                L_RESIDENT       TYPE STXBITMAPS-RESIDENT,
                L_AUTOHEIGHT     TYPE STXBITMAPS-AUTOHEIGHT,
*                l_bmcomp         TYPE stxbitmaps-bmcomp,
                L_DOCID          TYPE STXBITMAPS-DOCID,
                L_RESOLUTION     TYPE STXBITMAPS-RESOLUTION.
*=== Internal table
DATA:          BEGIN OF G_TY_UPLOAD OCCURS 0,
                F_NAME LIKE RLGRAP-FILENAME,
                T_NAME LIKE STXBITMAPS-TDNAME,
                DESC LIKE BAPISIGNAT-PROP_VALUE,
               END OF G_TY_UPLOAD.
*=== Internal table for output
DATA G_T_FINAL   LIKE TABLE OF G_TY_UPLOAD WITH HEADER LINE.
*===selection screen for input
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE HEADER.
PARAMETERS :    L_FILNAM         LIKE RLGRAP-FILENAME.
*               l_name           like stxbitmaps-tdname,
*               l_title          LIKE bapisignat-prop_value.
SELECTION-SCREEN: END OF BLOCK B1.
*===initilization
INITIALIZATION.
MOVE TEXT-002 TO HEADER.
*===selection screen for F4 help
AT SELECTION-SCREEN ON VALUE-REQUEST FOR L_FILNAM.
*===F4 help for getting file name
PERFORM F4_HELP.
*===start-of-selection
START-OF-SELECTION.
*=== To convert XLS to SAP
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
*   I_FIELD_SEPERATOR          = 'X'
*   I_LINE_HEADER              = 'X'
      I_TAB_RAW_DATA             = L_V_RAW
      I_FILENAME                 = L_FILNAM
    TABLES
      I_TAB_CONVERTED_DATA       = G_T_FINAL.
* EXCEPTIONS
*   CONVERSION_FAILED          = 1
*   OTHERS                     = 2
*===Passing values to upload images in SE78
LOOP AT G_T_FINAL.
    L_OBJECT     = 'GRAPHICS'.
    L_ID         = 'BMAP'.
    L_BTYPE      = 'BCOL'. " To set Color or B/w
    L_FORMAT     = 'BMP'.   " File format always " BMP".
    L_AUTOHEIGHT = 'X'.
*    l_name       = g_t_final-desc."l_title.
*=== Importing bitmap images to SAP
    PERFORM IMPORT_BITMAP_BDS IN PROGRAM SAPLSTXBITMAPS
                             USING G_T_FINAL-F_NAME
                                   G_T_FINAL-T_NAME
                                   L_OBJECT
                                   L_ID
                                   L_BTYPE
                                   L_FORMAT
                                   G_T_FINAL-DESC
                                   L_RESIDENT
                                   L_AUTOHEIGHT
*                                 l_bmcomp
                         CHANGING L_DOCID
                                   L_RESOLUTION.
*==Clear internal tables
    CLEAR : G_T_FINAL, L_DOCID , L_DOCID, L_RESIDENT ,L_RESOLUTION.
ENDLOOP.
*&---------------------------------------------------------------------*
*&      Form F4_HELP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM F4_HELP.
DATA : LT_FT TYPE FILETABLE.
DATA : LS_FT TYPE FILE_TABLE.
DATA : LV_RC TYPE I.
DATA : LV_ACTION TYPE I.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE            = 'Filename'
      DEFAULT_EXTENSION       = 'XLS'
    CHANGING
      FILE_TABLE              = LT_FT
      RC                      = LV_RC
      USER_ACTION             = LV_ACTION
    EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED = 1
      CNTL_ERROR              = 2
      ERROR_NO_GUI            = 3
      OTHERS                  = 4.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
*== if user chooses cancel , do nothing.
    IF LV_ACTION = 9.
      EXIT.
*== if user chooses Ok , read the filename user choose
    ELSEIF LV_ACTION = 0.
      READ TABLE LT_FT INTO LS_FT INDEX 1.
      IF SY-SUBRC EQ 0.
        L_FILNAM = LS_FT-FILENAME.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                                                    "F4_HELP

Used to limit user commands on selection-screen

2011-04-18T04:13:00.001-07:00

* Used to limit user commands on selection-screen
INCLUDE RSDBC1XX.
* Selection Screen
PARAMETERS: P_CHECK TYPE C.
* Events
AT SELECTION-SCREEN OUTPUT.
APPEND 'PRIN' TO CURRENT_SCR-EXCL.
APPEND 'ONLI' TO CURRENT_SCR-EXCL.

Defining Print Parameters In SAP

2011-01-02T22:35:00.000-08:00

SAP is using certain print parameters for its print outs. For example to print out Billing, Sales Document, there are parameters to maintain such as the program’s name, the report’s name (SmartForms or SAPscript), The output message type, etc.
For example in VA03, SAP is maintaining several output types to print each transaction, e.g. Billing, Sales, Debit Note, etc.

Now to see what parameters maintained for each output type (Printing Parameters), you can use TCODE V/30.
1. Execute TCODE V/30.
2. Now you can see the output type list for each transaction, click on the “Position” button to search an output type.

3. Enter the Output Type that you want to find and click OK or just press enter.

4. Select the output type and double click on the “Processing Routine” section.

5. On the next screen, you will see the print parameters for the selected output type. E.g. The ABAP program’s name, the SmartForms name, etc.

How To Open SAP Transaction Using ABAP Function

2011-01-02T22:08:00.001-08:00

In today’s tutorial I want to teach you how to open new SAP transaction using ABAP Function called “CC_CALL_TRANSACTION_NEW_TASK”.
Program Description:
We will be creating a start up program that will call this function and open a new transaction for VL03N, and it will skip the first screen while supplying the delivery order number and display the delivery order screen.
Here’s the ABAP sample source code.
Z_CALL_NEW_TASK.
WRITE:/ ‘This is your main Program ‘.
WRITE:/ ‘You will see a new session program’.
WRITE:/ ‘Opened after this program is active’.
DATA :
lv_skscr(1) TYPE c VALUE ‘X’,
lv_vbeln LIKE LIKP-VBELN VALUE ‘5572000119′,
l_st_prscr TYPE tpara,
l_it_scrprm TYPE TABLE OF tpara.
CLEAR l_st_prscr.
CLEAR l_it_scrprm[].
l_st_prscr-paramid = ‘VL’.
l_st_prscr-partext = lv_vbeln.
APPEND l_st_prscr TO l_it_scrprm.
CALL FUNCTION ‘CC_CALL_TRANSACTION_NEW_TASK’
STARTING NEW TASK ‘VL03N’
DESTINATION ‘NONE’
EXPORTING
transaction = ‘VL03N’
skip_first_screen = ‘X’
TABLES
paramtab = l_it_scrprm
EXCEPTIONS
communication_failure = 97
system_failure = 98
OTHERS = 99.
IF sy-subrc = 0.
” Success
ELSEIF sy-subrc = 97.
” Communication Failure
EXIT.
ELSEIF sy-subrc = 98.
” System Failure
EXIT.
ELSE.
EXIT.
ENDIF.
1. Now Run the program (F8)
2. Below you will see there are 2 programs active, the first one is the ABAP program that is calling the VL03 transaction.

SAP Authorization Object Tables List

2011-01-02T22:05:00.001-08:00

Here’s a list of SAP authorization Object tables for your reference.
You can execute TCODE SE11 and see more details of each table, such as column description, field type, etc.
Table Name   Description
TOBJ       Authorization Objects
TACT       Activities which can be Protected
TACTZ       Valid Activities for each authorization object
TDDAT       Maintenance Areas for tables
TSTC        SAP Transaction Codes
TPGP       ABAP/4 Authorization groups
USOBT       Relation transaction > Authorization Object
USOBX       Check table for table USOBT
USOBT_C       Relation Transaction   > Auth. Object (Customer)
USOBX_C       Check table for table USOBT_C

Non-Unicode : Upgrade Obsolete Function Module

2010-12-21T21:45:00.000-08:00

1. Obsolete Function Module: WS_UPLOAD.

Replacement FM: GUI_UPLOAD.

Note:

1. If the FM ‘WS_UPLOAD' has file type as ASC, then we can use same file

type ASC for GUI_UPLOAD also.

2. But if the FM 'WS_UPLOAD' has file type as DAT, we can not use DAT for

'GUI_UPLOAD' as it will give short dump.

In this case we need use file type as ASC and

HAS_FIELD_SEPARATOR = ‘X’.

3. If the file name or file type of ws_upload have variables or constants

Instead of hard coding, then don’t use hard code values for gui_upload.

4. The data type of file name always should be of string type for gui_upload

The file type should be of Type Character and length 10.

5. Mention the File type ASC or DAT in Capital letters

6. If there is any code used by customer inside

IF SY-SUBRC <> 0 and ENDIF for ws_upload in 46c version,

Please use the same code in ECC also after gui_upload.

If there is no code inside IF ..ENDIF after FM call then follow

the same for new replacement also.

7. If the file name or file type of ws_download have variables or constants

Instead of hard coding,then don’t use hard code values for gui_download.

Declare variables and assign the ws_download variables to new variables

and use These in the new FM.

Example:

Example for File type ASC:

* CALL FUNCTION 'WS_UPLOAD'

* EXPORTING

* FILENAME = P_FILE

* FILETYPE = 'ASC'

** IMPORTING

** FILELENGTH =

* TABLES

* DATA_TAB = P_I_DATA

* EXCEPTIONS

* CONVERSION_ERROR = 1

* FILE_OPEN_ERROR = 2

* FILE_READ_ERROR = 3

* INVALID_TABLE_WIDTH = 4

* INVALID_TYPE = 5

* NO_BATCH = 6

* UNKNOWN_ERROR = 7

* GUI_REFUSE_FILETRANSFER = 8

* CUSTOMER_ERROR = 9

* OTHERS = 10.

Replacement FM:

DATA L_P_FILE TYPE STRING.

L_P_FILE = P_FILE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = L_P_FILE

FILETYPE = ‘ASC’

TABLES

DATA_TAB = P_I_DATA

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

OTHERS = 17

IF SY-SUBRC NE 0.

MESSAGE E033 WITH P_FILE ' could not be opened'(E03).

ENDIF.

Example for file type DAT:

* CALL FUNCTION 'WS_UPLOAD'

* EXPORTING

* FILENAME = P_FILE

* FILETYPE = 'DAT'

** IMPORTING

** FILELENGTH =

* TABLES

* DATA_TAB = P_I_DATA

* EXCEPTIONS

* CONVERSION_ERROR = 1

* FILE_OPEN_ERROR = 2

* FILE_READ_ERROR = 3

* INVALID_TABLE_WIDTH = 4

* INVALID_TYPE = 5

* NO_BATCH = 6

* UNKNOWN_ERROR = 7

* GUI_REFUSE_FILETRANSFER = 8

* CUSTOMER_ERROR = 9

* OTHERS = 10.

Replacement FM:

DATA L_P_FILE TYPE STRING.

L_P_FILE = P_FILE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = L_P_FILE

FILETYPE = ‘ASC’

HAS_FIELD_SEPARATOR = ‘X’

TABLES

DATA_TAB = P_I_DATA

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

OTHERS = 17

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

Else.

2. Obsolete FM : WS_DOWNLOAD

Replacement FM: GUI_DOWNLOAD.

Note:

1. If the FM ‘WS_DOWNLOAD' has file type as ASC, then we can use same file

Type ASC for GUI_DOWNLOAD also.

2. If the FM 'WS_DOWNLOAD' has file type as DAT, we can use DAT for

'GUI_DOWNLOAD'

3. If the file name or file type of ws_download have variables or constants

Instead of hard coding,then don’t use hard code values for gui_download.

Declare variables and assign the ws_download variables to new variables

and use These in the new FM.

4. The data type of file name always should be of string type for gui_download

The file type should be of Type Character and length 10.

5. Mention the File type ASC or DAT in Capital letters

6.If there is any code used by customer inside IF SY-SUBRC <> 0

and ENDIF for ws_upload in 46c version, Please use the same code

in ECC also after gui_upload. If there is no code inside IF ..ENDIF

after FM call then follow the same for new replacement also.

Example:

* CALL FUNCTION 'WS_DOWNLOAD'

* EXPORTING

* FILENAME = P_FILENM

* FILETYPE = 'DAT' " split into records

* TABLES

* DATA_TAB = L_ITAB

* FIELDNAMES = T_HEAD

* EXCEPTIONS

* FILE_OPEN_ERROR = 01

* FILE_WRITE_ERROR = 02

* INVALID_FILESIZE = 03

* INVALID_TABLE_WIDTH = 04

* INVALID_TYPE = 05

* NO_BATCH = 06

* UNKNOWN_ERROR = 07.

Replacement FM for above FM:

DATA L_P_FILE TYPE STRING.

L_P_FILE = P_FILENM.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = L_P_FILE

FILETYPE = ‘DAT’

TABLES

DATA_TAB = L_ITAB

FIELDNAMES = T_HEAD

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22.

3. Obsolete FM: DOWNLOAD

The FM has two functionalities: it provides the F4 functionality to select the input file from the Presentation server and downloads the contents of the internal table from the program to the selected file.

Replacement Method and FM:

CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG (for selecting the file)

and GUI_DOWNLOAD (download the data into the file)

Example:

*CALL FUNCTION 'DOWNLOAD'

* EXPORTING

* FILENAME = SPACE

* FILETYPE = ‘DAT’

* TABLES

* DATA_TAB = T_DOWNL

* EXCEPTIONS

* INVALID_FILESIZE = 1

* INVALID_TABLE_WIDTH = 2

* INVALID_TYPE = 3

* NO_BATCH = 4

* UNKNOWN_ERROR = 5

* OTHERS = 6.

*End of deletion CH01-

Replacement Method for above code:

DATA: l_deffile TYPE string,

l_filen TYPE string,

l_path TYPE string,

l_fullpath TYPE string,

l_filname

l_usr_act TYPE I.

l_deffile = SPACE.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

DEFAULT_FILE_NAME = l_deffile

CHANGING

FILENAME = l_filen

PATH = l_path

FULLPATH = l_fullpath

USER_ACTION = l_usr_act

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

others = 4.

IF sy-subrc = 0

AND l_usr_act <>

CL_GUI_FRONTEND_SERVICES=>ACTION_CANCEL.

l_filename = l_fullpath.

Elseif gv_useract EQ cl_gui_frontend_services=>action_cancel.

L_filename = l_deffile.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = l_filename

FILETYPE = 'DAT'

TABLES

DATA_TAB = T_DOWNL

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22.

4. Obsolete FM: UPLOAD

Replacement Method and FM:

CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

GUI_UPLOAD

* CALL FUNCTION 'UPLOAD'

* EXPORTING

* FILENAME = P_FILE

* FILETYPE = 'DAT'

* TABLES

* DATA_TAB = W_TAB

* EXCEPTIONS

* CONVERSION_ERROR = 1

* INVALID_TABLE_WIDTH = 2

* INVALID_TYPE = 3

* NO_BATCH = 4

* UNKNOWN_ERROR = 5

* OTHERS = 6.

Replacement method for the above FM:

DATA : I_FILE_TABLE TYPE TABLE OF FILE_TABLE,

L_FILETABLE TYPE FILE_TABLE,

l_RC TYPE I,

l_P_DEF_FILE TYPE STRING

l_P_FILE TYPE STRING,

l_usr_act TYPE I.

l_P_DEF_FILE = P_FILE.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

* WINDOW_TITLE =

* DEFAULT_EXTENSION =

DEFAULT_FILENAME = l_P_DEF_FILE

* FILE_FILTER =

* WITH_ENCODING =

* INITIAL_DIRECTORY =

* MULTISELECTION =

CHANGING

FILE_TABLE = I_FILE_TABLE

RC = l_RC

USER_ACTION = l_usr_act

* FILE_ENCODING =

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

others = 5 .

IF sy-subrc = 0

AND w_usr_act <>

CL_GUI_FRONTEND_SERVICES=>ACTION_CANCEL.

LOOP AT I_FILE_TABLE INTO l_FILETABLE.

l_P_FILE = l_FILETABLE.

EXIT.

ENDLOOP.

Elseif gv_useract EQ cl_gui_frontend_services=>action_cancel.

L_p_file = l_P_DEF_FILE.

Endif.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = l_P_FILE

FILETYPE = ‘ASC’

HAS_FIELD_SEPARATOR = 'X'

TABLES

DATA_TAB = i_TAB

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

OTHERS = 17

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

5. Obsolete FM: WS_FILENAME_GET

Replacement Method: file_open_dialog

If mode is ‘S’, then the replacement method is

cl_gui_frontend_services=>file_save_dialog

If mode is ‘O’, then the replacement method is

cl_gui_frontend_services=> file_open_dialog

Example:

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

def_filename = lf_dsnam

* def_path = zifbod-pc_path

mask = ',Month end,Monthend*.xls,All files,*.*.'

mode = 'O'

title = ' '

IMPORTING

filename = lf_dsnam

* RC =

EXCEPTIONS

inv_winsys = 0

no_batch = 0

selection_cancel = 0

selection_error = 0

OTHERS = 0.

NOTE: We need to use ‘|’ symbol instead of ‘,’ in the FILE_FILTER parameter which is equivalent to MASK.

Replacement method for above FM:

If MODE parameter in WS_FILENAME_GET is specified as O(open) then use the below method CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG.

DATA:lt_files TYPE filetable,

l_file TYPE file_table,

l_title TYPE string,

l_subrc TYPE i,

l_usr_act TYPE i,

l_def_file TYPE string.

l_def_file = lf_dsnam.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = ' '

* DEFAULT_EXTENSION =

DEFAULT_FILENAME = l_def_file

FILE_FILTER = 'Month end|Monthend*.xls|All files|*.*'

* WITH_ENCODING =

* INITIAL_DIRECTORY =

* MULTISELECTION =

CHANGING

FILE_TABLE = lt_files

RC = l_subrc

USER_ACTION = l_usr_act

* FILE_ENCODING =

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

others = 5

IF sy-subrc eq 0 AND

l_usr_act <> CL_GUI_FRONTEND_SERVICES=>ACTION_CANCEL.

LOOP AT lt_files INTO l_file.

MOVE l_file-filename to l_def_file.

MOVE l_def_file to lf_dsnam.

EXIT.

ENDLOOP.

ENDIF.

6. Obsolete FM: POPUP_TO_CONFIRM_STEP

Replacement FM: POPUP_TO_CONFIRM

Example:

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

defaultoption = 'N'

textline1 = 'Soll das Include überschrieben werden?'(034)

textline2 = i_inc-include

titel = 'Include existiert bereits!'(039)

* START_COLUMN = 25

* START_ROW = 6

* CANCEL_DISPLAY = 'X'

IMPORTING

answer = answer

EXCEPTIONS

OTHERS = 1.

Replacement Method:

DATA: l_question type string.

Concatenate 'Soll das Include überschrieben werden?'(034)

i_inc-include

Into

l_question.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'Include existiert bereits!'(039)

TEXT_QUESTION = l_question

* TEXT_BUTTON_1 = 'Yes'(020)

* TEXT_BUTTON_2 = 'No'(021)

*ICON_BUTTON_2 = ' '

DEFAULT_BUTTON = '2'

DISPLAY_CANCEL_BUTTON = 'X'

*USERDEFINED_F1_HELP = ' '

*START_COLUMN = 25

*START_ROW = 6

*POPUP_TYPE =

*IV_QUICKINFO_BUTTON_1 = ' '

*IV_QUICKINFO_BUTTON_2 = ' '

IMPORTING

ANSWER = answer

* TABLES

*PARAMETER =

EXCEPTIONS

TEXT_NOT_FOUND = 1

OTHERS = 2 .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Note :

In FM POPUP_TO_CONFIRM_STEP , the value for import parameter ANSWER is

J (YES),

N (NO).

But for POPUP_TO_CONFIRM, the value for import parameter ANSWER is

1 (YES),

2 (NO).

So, please change these values accordingly while replacing with the new FM.

ABAP Patterns

2010-12-21T21:11:00.000-08:00

Pattern is a feature provided by SAP to enable developers to insert Standard or Customized code templates. SE38 and SE80 can be used to insert and create new templates.

Usage

Program history can be designed and created as pattern; this pattern can be used during the new report generation or in change document history. Pattern can be called ‘n’ number of times in different reports.

SAP provided an option to create Pattern as both, constant and dynamic.

Advantages

 Program history format can be designed as project based, country based or language based and developer can use this pattern accordingly.

 It will reduce the typing effort.

Procedure

Constant Pattern

Step 1 : Open any report in SE38 and click 'Create Pattern' , follow the menu path as shown in below screen shot

Step 2 : Give the Pattern name in appeared pop-up screen

Step 3 : Enter the text which you want to appear when you select the pattern once it is created, then press save button. Once the text is saved exit this screen.

Step 4: Pattern is created and it is ready to use. In SE38, this can be called by selecting the Button 'Pattern'. (As below)

Step 5 : Select the option 'Other Pattern' and enter pattern name ( here its ‘YG_CONST_PAT’)

Now the pattern text is available in our program.

Dynamic Pattern

When login language is considered for calling the pattern text, dynamic pattern will be used. Also this can be used depends on project scenarios.

Step 1: The creation of the pattern remains same for dynamic

Give the pattern name for creation

Step 2: Here create a pattern with only one line that contains with text ‘ *$&$EXIT ’ (without quotes).

Step 3: Now go to Tcode ‘CMOD’ . create a project and include enhancement SEUED001 in it.

Step 4: Use the button ‘Components’ to get the exit name. And select the exit
EXIT_SAPLLOCAL_EDT1_001’ and click the button in the application toolbar.

Go to exit.

Double click the include ‘zxseuu26’ to introduce our customized code along with the pattern text format (check the below screen shots)

Activate include and project without failure.

Step 5: Go to program editor and select the button ‘pattern’ to introduce the

pattern text in the report .

Give the pattern name in selection

Here we can see our pattern format in the report as below

NOTE: Pattern should not exceed more than 100 lines.

Inserting Statement Patterns

The pattern function allows you to insert various source code templates in your program. This feature is particularly useful for complex ABAP statements because it reduces the typing effort and ensures that the syntax of the statement is always correct.

Example

Pattern is created with the complex DATA statement. And this pattern can be called in any of our report, when the above DATA statement is needed.

ABAP - Sample Program With Logical Database PNP.

2010-12-21T00:21:00.001-08:00

report.

tables:pernr,t528t.

infotypes:0001,0008.
data : begin of itab occurs 0,
pernr like p0001-pernr,
sname like p0001-sname,
plans like p0001-plans,
begda like p0001-begda,
endda like p0001-endda,
ptext like t528t-plstx,
ANSAL like p0008-ANSAL,
end of itab.

start-of-selection.
get pernr.

itab-pernr = pernr-pernr.

rp_provide_from_frst p0001 space pn-begda pn-endda .
IF pnp-sw-found = 1.
itab-sname = p0001-sname.
itab-plans = p0001-plans.
itab-begda = p0001-begda.
itab-endda = p0001-endda.
endif.

rp_provide_from_frst p0008 space pn-begda pn-endda .
IF pnp-sw-found = 1.
itab-ansal = p0008-ansal.
endif.

data : vtext(50) type c.
select single plstx into vtext
from t528t
where plans = itab-plans
and SPRSL = 'EN'.
if sy-subrc eq 0.
itab-ptext = vtext.
endif.
append itab.

end-of-selection.

clear itab.
loop at itab.
write:/ itab-pernr,
itab-sname,
itab-plans,
itab-begda,
itab-endda,
itab-ansal.
endloop.

ABAP - Download ABAP Data To An Excel Sheet Using OLE Automation.

2010-12-21T00:19:00.001-08:00

Report ZMULTICOLOR_TEST no standard page heading.

* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
include ole2incl.

* handles for OLE objects
data: h_excel type ole2_object, " Excel object
h_mapl type ole2_object, " list of workbooks
h_map type ole2_object, " workbook
h_zl type ole2_object, " cell
h_f type ole2_object, " font
h_c type ole2_object. " color

DATA: FILENAME LIKE RLGRAP-FILENAME.

tables: spfli.
data h type i.
* table of flights
data: it_spfli like spfli occurs 10 with header line.

*&---------------------------------------------------------------------*

*& Event START-OF-SELECTION
*&---------------------------------------------------------------------*

start-of-selection.
* read flights
select * from spfli into table it_spfli.
* display header
uline (61).
write: / sy-vline no-gap,
(3) 'Flg'(001) color col_heading no-gap, sy-vline no-gap,
(4) 'Nr'(002) color col_heading no-gap, sy-vline no-gap,
(20) 'Von'(003) color col_heading no-gap, sy-vline no-gap,
(20) 'Nach'(004) color col_heading no-gap, sy-vline no-gap,
(8) 'Zeit'(005) color col_heading no-gap, sy-vline no-gap.
uline /(61).

* display flights
loop at it_spfli.
write: / sy-vline no-gap,
it_spfli-carrid color col_key no-gap, sy-vline no-gap,
it_spfli-connid color col_normal no-gap, sy-vline no-gap,
it_spfli-cityfrom color col_normal no-gap, sy-vline no-gap,
it_spfli-cityto color col_normal no-gap, sy-vline no-gap,
it_spfli-deptime color col_normal no-gap, sy-vline no-gap.
endloop.
uline /(61).

* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting

* PERCENTAGE = 0
text = text-007
exceptions
others = 1.

* start Excel
create object h_excel 'EXCEL.APPLICATION'.

* PERFORM ERR_HDL.

set property of h_excel 'Visible' = 1.
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:\kis_excel.xls' .

* PERFORM ERR_HDL.

* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting

* PERCENTAGE = 0
text = text-008
exceptions
others = 1.

* get list of workbooks, initially empty
call method of h_excel 'Workbooks' = h_mapl.
perform err_hdl.

* add a new workbook
call method of h_mapl 'Add' = h_map.
perform err_hdl.

* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting

* PERCENTAGE = 0
text = text-009
exceptions
others = 1.

* output column headings to active Excel sheet
perform fill_cell using 1 1 1 200 'Carrier id'(001).
perform fill_cell using 1 2 1 200 'Connection id'(002).
perform fill_cell using 1 3 1 200 'City from'(003).
perform fill_cell using 1 4 1 200 'City to'(004).
perform fill_cell using 1 5 1 200 'Dep. Time'(005).
loop at it_spfli.

* copy flights to active EXCEL sheet
h = sy-tabix + 1.
if it_spfli-carrid cs 'AA'.
perform fill_cell using h 1 0 000255000 it_spfli-carrid.
elseif it_spfli-carrid cs 'AZ'.
perform fill_cell using h 1 0 168000000 it_spfli-carrid.
elseif it_spfli-carrid cs 'JL'.
perform fill_cell using h 1 0 168168000 it_spfli-carrid.
elseif it_spfli-carrid cs 'LH'.
perform fill_cell using h 1 0 111111111 it_spfli-carrid.
elseif it_spfli-carrid cs 'SQ'.
perform fill_cell using h 1 0 100100100 it_spfli-carrid.
else.
perform fill_cell using h 1 0 000145000 it_spfli-carrid.
endif.

if it_spfli-connid lt 400.
perform fill_cell using h 2 0 255000255 it_spfli-connid.
elseif it_spfli-connid lt 800.
perform fill_cell using h 2 0 077099088 it_spfli-connid.
else.
perform fill_cell using h 2 0 246156138 it_spfli-connid.
endif.

if it_spfli-cityfrom cp 'S*'.
perform fill_cell using h 3 0 155155155 it_spfli-cityfrom.
elseif it_spfli-cityfrom cp 'N*'.
perform fill_cell using h 3 0 189111222 it_spfli-cityfrom.
else.
perform fill_cell using h 3 0 111230222 it_spfli-cityfrom.
endif.

if it_spfli-cityto cp 'S*'.
perform fill_cell using h 4 0 200200200 it_spfli-cityto.
elseif it_spfli-cityto cp 'N*'.
perform fill_cell using h 4 0 000111222 it_spfli-cityto.
else.
perform fill_cell using h 4 0 130230230 it_spfli-cityto.
endif.

if it_spfli-deptime lt '020000'.
perform fill_cell using h 5 0 145145145 it_spfli-deptime.
elseif it_spfli-deptime lt '120000' .
perform fill_cell using h 5 0 015215205 it_spfli-deptime.
elseif it_spfli-deptime lt '180000' .
perform fill_cell using h 5 0 000215205 it_spfli-deptime.
else.
perform fill_cell using h 5 0 115115105 it_spfli-deptime.
endif.
endloop.

* EXCEL FILENAME
CONCATENATE SY-REPID '_' SY-DATUM+6(2) '_' SY-DATUM+4(2) '_'
SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.

CALL METHOD OF H_MAP 'SAVEAS' EXPORTING #1 = FILENAME.

free object h_excel.
perform err_hdl.
*---------------------------------------------------------------------*
* FORM FILL_CELL *
*---------------------------------------------------------------------*
* sets cell at coordinates i,j to value val boldtype bold *
*---------------------------------------------------------------------*
form fill_cell using i j bold col val.
call method of h_excel 'Cells' = h_zl
exporting
#1 = i
#2 = j.
perform err_hdl.
set property of h_zl 'Value' = val .
perform err_hdl.
get property of h_zl 'Font' = h_f.
perform err_hdl.
set property of h_f 'Bold' = bold .
perform err_hdl.
set property of h_f 'Color' = col.
perform err_hdl.
endform. "FILL_CELL

*&---------------------------------------------------------------------*

*& Form ERR_HDL
*&---------------------------------------------------------------------*

* outputs OLE error if any *

*----------------------------------------------------------------------*

* --> p1 text
* <-- p2 text *----------------------------------------------------------------------* form err_hdl. if sy-subrc <> 0.
write: / 'OLE-Automation Error:'(010), sy-subrc.
stop.
endif.
endform. " ERR_HDL

ABAP - Display Data From MARA Table In ALV Grid Display.

2010-12-21T00:16:00.001-08:00

REPORT zalv_sel_screen .

TABLES: mara.

DATA: BEGIN OF i_alv OCCURS 0,
matnr TYPE mara-matnr,
mtart TYPE mara-mtart,
matkl TYPE mara-matkl,
groes TYPE mara-groes,
maktx TYPE makt-maktx,
END OF i_alv.

DATA: alv_container TYPE REF TO cl_gui_docking_container.
DATA: alv_grid TYPE REF TO cl_gui_alv_grid.
DATA: layout TYPE lvc_s_layo.
DATA: fieldcat TYPE lvc_t_fcat.

PARAMETERS: p_check.

INITIALIZATION.

PERFORM get_data.

AT SELECTION-SCREEN OUTPUT.

DATA: variant TYPE disvariant.
DATA: repid TYPE sy-repid.

repid = sy-repid.
variant-report = sy-repid.
variant-username = sy-uname.
layout-zebra = 'X'.
layout-edit_mode = 'X'.
CHECK alv_container IS INITIAL.

CREATE OBJECT alv_container
EXPORTING repid = repid
dynnr = sy-dynnr
side = alv_container->dock_at_left
extension = 1500.
CREATE OBJECT alv_grid
EXPORTING
i_parent = alv_container.

* ALV Specific. Data selection.
* Populate Field Catalog

PERFORM get_fieldcatalog.

CALL METHOD alv_grid->set_table_for_first_display
EXPORTING
is_layout = layout
is_variant = variant
i_save = 'U'
i_structure_name = 'I_ALV'
CHANGING
it_outtab = i_alv[]
it_fieldcatalog = fieldcat[].
START-OF-SELECTION.
*----------------------------------------------------------------------
* FORM GET_DATA
*----------------------------------------------------------------------

FORM get_data.

SELECT * INTO CORRESPONDING FIELDS OF TABLE i_alv
FROM mara
INNER JOIN makt
ON mara~matnr = makt~matnr
UP TO 100 ROWS
WHERE makt~spras = sy-langu.
SORT i_alv ASCENDING BY matnr.ENDFORM.
*----------------------------------------------------------------------
* Form Get_Fieldcatalog - Set Up Columns/Headers
*----------------------------------------------------------------------

FORM get_fieldcatalog.

DATA: ls_fcat TYPE lvc_s_fcat.

REFRESH: fieldcat.
CLEAR: ls_fcat.
ls_fcat-reptext = 'Material Number'.
ls_fcat-fieldname = 'MATNR'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '18'.
ls_fcat-fix_column = 'X'.
ls_fcat-key = 'X'.
ls_fcat-col_pos = '1'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.

ls_fcat-reptext = 'Material Type'.
ls_fcat-fieldname = 'MTART'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '10'.
ls_fcat-fix_column = 'X'.
ls_fcat-key = 'X'.
ls_fcat-col_pos = '2'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.

ls_fcat-reptext = 'Material Group'.
ls_fcat-fieldname = 'MATKL'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '12'.
ls_fcat-col_pos = '3'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.

ls_fcat-reptext = 'Size'.
ls_fcat-fieldname = 'GROES'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '30'.
ls_fcat-col_pos = '4'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.

ls_fcat-reptext = 'Material Description'.
ls_fcat-fieldname = 'MAKTX'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '40'.
ls_fcat-col_pos = '5'.
APPEND ls_fcat TO fieldcat.

ENDFORM. "get_fieldcatalog