Total and Subtotal Report Example in SAP ABAP.

Total and Subtotal Program Example in SAP ABAP.

REPORT  ZREPORTS_TOTAL.

TABLES: ekko.
TYPE-POOLS: slis.
DATA: wa_fcat   TYPE lvc_s_fcat,
      it_fcat   TYPE lvc_t_fcat,
      wa_layout TYPE lvc_s_layo,
      wa_top    TYPE slis_listheader,
      it_top    TYPE slis_t_listheader.

TYPES: BEGIN OF ty_ekko,
ebeln TYPE ekko-ebeln,
aedat TYPE ekko-aedat,
END OF ty_ekko.
DATA: wa_ekko TYPE ty_ekko,
      it_ekko TYPE TABLE OF ty_ekko.

TYPES: BEGIN OF ty_ekpo,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
END OF ty_ekpo.
DATA: wa_ekpo TYPE ty_ekpo,
      it_ekpo TYPE TABLE OF ty_ekpo.

TYPES: BEGIN OF ty_out,
ebeln TYPE char15,
ebelp TYPE char5,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
color TYPE char4,
bold  TYPE lvc_t_styl,
END OF ty_out.
DATA: wa_out TYPE ty_out,
      it_out TYPE TABLE OF ty_out.

INITIALIZATION.
SELECT-OPTIONS s_aedat FOR ekko-aedat.

START-OF-SELECTION.
PERFORM get_ekko.
PERFORM get_ekpo.

END-OF-SELECTION.
PERFORM prepare_output.
PERFORM field_catalog.
PERFORM alv_grid_display.

TOP-OF-PAGE.
PERFORM top_of_page.
*&---------------------------------------------------------------------*
*&      Form  GET_EKKO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_ekko .

SELECT ebeln aedat FROM ekko
INTO TABLE it_ekko
WHERE aedat IN s_aedat.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  GET_EKPO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM get_ekpo .

IF it_ekko IS NOT INITIAL.
SELECT ebeln ebelp matnr werks menge meins
FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln
AND matnr NE ' '.

IF sy-subrc = 0.
SORT it_ekpo BY ebeln ebelp.
ENDIF.
ENDIF.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  PREPARE_OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM prepare_output .

DATA: lw_bold TYPE lvc_s_styl,
      lt_bold TYPE lvc_t_styl.

IF it_ekpo IS NOT INITIAL.
LOOP AT it_ekpo INTO wa_ekpo.
wa_out-ebeln = wa_ekpo-ebeln.
wa_out-ebelp = wa_ekpo-ebelp.
wa_out-matnr = wa_ekpo-matnr.
SHIFT wa_out-matnr LEFT DELETING LEADING '0'.
wa_out-werks = wa_ekpo-werks.
wa_out-menge = wa_ekpo-menge.
wa_out-meins = wa_ekpo-meins.
APPEND wa_out TO it_out.
CLEAR: wa_out.

AT END OF ebeln.
SUM.
wa_out-ebeln = 'SUB TOTAL'.
wa_out-menge = wa_ekpo-menge.
wa_out-color = 'C200'.
lw_bold-style = '00000121'.
INSERT lw_bold INTO lt_bold INDEX 1.
wa_out-bold = lt_bold.
FREE lt_bold.

APPEND wa_out TO it_out.
CLEAR: wa_out, lw_bold, wa_ekpo.
ENDAT.

AT LAST.
SUM.
wa_out-ebeln = 'GRAND TOTAL'.
wa_out-menge = wa_ekpo-menge.
wa_out-color = 'C210'.
lw_bold-style = '00000121'.
INSERT lw_bold INTO lt_bold INDEX 1.
wa_out-bold = lt_bold.
FREE lt_bold.

APPEND wa_out TO it_out.
CLEAR: wa_out, lw_bold, wa_ekpo.
ENDAT.
ENDLOOP.
ENDIF.

FREE it_ekpo.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FIELD_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM field_catalog .

DATA: lv_col TYPE i VALUE 0.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'EBELN'.
wa_fcat-reptext   = 'Purchase Order'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'EBELP'.
wa_fcat-reptext   = 'Item'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-reptext   = 'Material'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'WERKS'.
wa_fcat-reptext   = 'Plant'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'MENGE'.
wa_fcat-reptext   = 'Quantity'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

lv_col            = 1 + lv_col.
wa_fcat-col_pos   = lv_col.
wa_fcat-fieldname = 'MEINS'.
wa_fcat-reptext   = 'Unit'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.

wa_layout-zebra      = 'X'.
wa_layout-cwidth_opt = 'X'.
wa_layout-info_fname = 'COLOR'.
wa_layout-stylefname = 'BOLD'.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  ALV_GRID_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM alv_grid_display .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
  i_callback_program     = sy-repid
  i_callback_top_of_page = 'TOP_OF_PAGE'
  is_layout_lvc          = wa_layout
  it_fieldcat_lvc        = it_fcat
TABLES
  t_outtab               = it_out
EXCEPTIONS
  program_error          = 1
  OTHERS                 = 2.


ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM top_of_page .

REFRESH it_top.

wa_top-typ  = 'H'.
wa_top-info = 'Purchasing List'.
APPEND wa_top TO it_top.
CLEAR wa_top.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
  it_list_commentary = it_top.

ENDFORM.

ODATA Service UPDATE, DELETE & MODIFY Example in SAP ABAP.

Details about How to  record into table using GET_ENTITY method in OData service.

Table: SCARR

Step 1: Go to the T-Code: SEGW → Create New ODATA Object

Step 2: Created Project will appear Data model → Import → DDIC structure.

Provide the Entity name and Structure name and select the fields you want to use in oData service. At least one field of Entity should be Key field, selecting CARRID here as Key and click on Finish.

 Step 3: Project is created successfully after that click on below marked button to Generate Run time Artifacts.

 Step 4: After You’ll get following Success message after Generate Run time Artifacts.

 Step 5:After that go to Data Provider Extension (DPC_EXT) Class → Double click on DPC_EXT class ZCL_ZMTEST5_UMD_DPC_EXT.

 Step 6: After that go to GET_ENTITY method SCARRSET_GET_ENTITY → Click on the  Redefine button to Redefine GET_ENTITY method. After you  implementing this method to fetch records so that Updated / Modified & Deleted records can be validate.

 Code in GET_ENTITY  Example:

FIELD-SYMBOLS : <fs_keytab> TYPE /iwbep/s_mgw_name_value_pair.

 Table IT_KEY_TAB contains the Input value from Frontend & through
* ER_ENTITY parameter we can send the records back to Frontend.
UNASSIGN <fs_keytab>.
READ TABLE it_key_tab ASSIGNING <fs_keytab> INDEX 1.
  IF sy–subrc IS INITIAL.
    SELECT SINGLE 
      FROM scarr
      INTO CORRESPONDING FIELDS OF er_entity
      WHERE carrid EQ <fs_keytab>–value.
    UNASSIGN <fs_keytab>.
  ENDIF.

 Step 7: After that go to  UPDATE_ENTITY method SCARRSET_UPDATE_ENTITY → Click on Redefine button to Redefine UPDATE_ENTITY method.

Code in UPDATE_ENTITY method.

DATA : TYPE zcl_zmtest5_umd_mpc=>.

* Capture input value from Frontend into workarea WA_SCARR
  CLEAR : wa_scarr.
  io_data_provider->read_entry_data( IMPORTING es_data = wa_scarr ).

* Here we can use UPDATE or MODIFY depending on the requirement 
  UPDATE scarr SET carrname = wa_scarr–carrname
              url      = wa_scarr–url
             WHERE carrid   = wa_scarr–carrid.
  IF sy–subrc IS INITIAL.
    COMMIT WORK.
  ENDIF.

 Step 8: Place the cursor on DELETE_ENTITY method SCARRSET_DELETE_ENTITY → Click on Redefine button to Redefine DELETE_ENTITY method.

Write below code in DELETE_ENTITY method:

FIELD-SYMBOLS : <fs_keytab> TYPE /iwbep/s_mgw_name_value_pair.

* Parameter IT_KEY_TAB holds the input record from Frontend
  UNASSIGN <fs_keytab>.
  READ TABLE it_key_tab ASSIGNING <fs_keytab> INDEX 1.
  IF sy–subrc IS INITIAL.
    DELETE FROM scarr WHERE carrid EQ <fs_keytab>–value.
    IF sy–subrc IS INITIAL.
      COMMIT WORK.
    ENDIF.
    UNASSIGN <fs_keytab>.
  ENDIF.

 Step 9: Now add the Service in T Code: /IWFND/MAINT_SERVICE. Please give a look to my previous post oData service which consumes RFC about how to add a service. You can find the Service name in Run time Artifacts. Here service name is: ZMTEST5_UMD_SRV.

 Step 10: After adding the Service,  to test the Service Goto T Code: /IWFND/GW_CLIENT, You’ll get the below screen:

Select the Click on EntitySets and select your entity

 Filtering Record with CARRID = ‘ZZ’. Add filter in URL: /sap/opu/odata/sap/ZMTEST5_UMD_SRV/SCARRSet(Carrid=’ZZ’)

After executing record with CARRID = ‘ZZ’ will be displayed as:

 Step 11: Testing UPDATE functionality: Click on Use as Request button to copy the HTTP Response contents to HTTP Request, which works as Input.

Status code is 204, means executed successfully.

 Table has been updated.

 Step 12: Testing DELETE functionality: Select DELETE Radiobutton → provide the filter in URL → Execute.

 Record with CARRID = ‘ZZ’ has been deleted from SCARR table.

 Step 13: Display custom messages after Database operations. 

Deleting record from Table SCARR with CARRID = ‘ZX’. 

 Below code to display custom messages:

      DATA:ls_header TYPE ihttpnvp.
      ls_header–name  = ‘Custom Message’.
      ls_header–value = ‘{msg_typ:S, desc:Record deleted  }’.
      /iwbep/if_mgw_conv_srv_runtime~set_header( ls_header ).

 If you deleting the record with CARRID = ‘ZX’ you are getting custom message:

Hierarchical ALV in SAP ABAP Example.

How to display a hierarchical sequential list ALV in SAP ABAP.

 TYPES: BEGIN OF ty_swa,

                  expand,
                  carrid TYPE s_carr_id,
                  carrname TYPE s_carrname,
             END OF ty_swa.

TYPES: BEGIN OF ty_swad,
                     carrid TYPE s_carr_id,
                     connid TYPE s_conn_id,
                     countryfr TYPE land1,
                     countryto TYPE land1,
              END OF ty_swad.

DATA: lt_swa TYPE TABLE OF ty_swa.
DATA: lt_swad TYPE TABLE OF ty_swad.
DATA: ls_layt TYPE slis_layout_alv.
DATA: lt_fcat TYPE slis_t_fieldcat_alv.
DATA: ls_fcat TYPE LINE OF slis_t_fieldcat_alv.
DATA: ls_key TYPE slis_keyinfo_alv.

START-OF-SELECTION.

SELECT carrid carrname

FROM scarr

INTO CORRESPONDING FIELDS OF TABLE lt_swa.

CHECK lt_swa[] IS NOT INITIAL.

SELECT carrid connidcountryfr countryto FROM spfli

INTO CORRESPONDING FIELDS OF TABLE lt_swad
FOR ALL ENTRIES IN lt_swa

 WHERE carrid = lt_swa-carrid.

”Layout 
ls_layt-expand_fieldname = ‘EXPAND’.
ls_layt-colwidth_optimize = ‘X’.

”Keyinfo 
ls_key-header01 = ‘CARRID’.
ls_key-item01 = ‘CARRID’.
“Build Fieldcat
ls_fcat-col_pos = ‘1’.
ls_fcat-fieldname = ‘CARRID’.
ls_fcat-tabname = ‘LT_SWA’.
ls_fcat-key = ‘X’.
ls_fcat-seltext_m = ‘Flight ID’.
APPEND ls_fcat TO lt_fcat.
CLEAR ls_fcat.

ls_fcat-col_pos = ‘2’.
ls_fcat-fieldname = ‘CARRNAME’.
ls_fcat-tabname = ‘LT_SWA’.
ls_fcat-seltext_m = ‘Flight Conn’.
APPEND ls_fcat TO lt_fcat.
CLEAR ls_fcat.

ls_fcat-col_pos = ‘3’.
ls_fcat-fieldname = ‘CONNID’.
ls_fcat-tabname = ‘LT_SWAD’.
ls_fcat-seltext_m = ‘Conn Number’.
APPEND ls_fcat TO lt_fcat.
CLEAR ls_fcat.

ls_fcat-col_pos = ‘4’.
ls_fcat-fieldname = ‘COUNTRYFR’.
ls_fcat-tabname = ‘LT_SWAD’.
ls_fcat-seltext_m = ‘From Country’.
APPEND ls_fcat TO lt_fcat.
CLEAR ls_fcat.

ls_fcat-col_pos = ‘5’.
ls_fcat-fieldname = ‘COUNTRYTO’.
ls_fcat-tabname = ‘LT_SWAD’.
ls_fcat-seltext_m = ‘To Country’.
APPEND ls_fcat TO lt_fcat.
CLEAR ls_fcat.

CALL FUNCTION ‘REUSE_ALV_HIERSEQ_LIST_DISPLAY’
EXPORTING
i_callback_program = sy-repid
is_layout = ls_layt
it_fieldcat = lt_fcat
i_tabname_header = ‘LT_SWA’
i_tabname_item = ‘LT_SWAD’
is_keyinfo = ls_key
TABLES
t_outtab_header = lt_SWA
t_outtab_item = lt_SWAD
EXCEPTIONS
program_error = 1
OTHERS = 2.

Editable alv with checkbox check option in SAP ABAP code

Editable alv with checkbox

*&---------------------------------------------------------------------*
*&  Include           ZMAN_EDITABLE_ALV_DD
*&---------------------------------------------------------------------*

TYPE-POOLS : slis.
TABLES : zman_emp_table.
DATA: it_fieldcat            TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat            LIKE LINE OF it_fieldcat.
DATA: t_list_top_of_page     TYPE slis_t_listheader.
DATA: it_events              TYPE slis_t_event WITH HEADER LINE.
DATA: g_save                 TYPE c VALUE 'A'.
DATA: gt_sort                TYPE slis_t_sortinfo_alv.
DATA: gx_save                TYPE c VALUE 'A'.
DATA: gx_variant             TYPE disvariant.
DATA: g_variant              TYPE disvariant.
DATA: gs_layout              TYPE slis_layout_alv.
DATA: t_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: t_i_event              TYPE slis_alv_event.
TYPES : BEGIN OF ty_zman_emp_table,
                zman_emp_no             TYPE zman_emp_no,
                zman_emp_name           TYPE zman_emp_name,
                zman_emp_address        TYPE zman_emp_address,
                zman_emp_blood_grp      TYPE zman_emp_blood_grp,
                zman_emp_gender         TYPE zman_emp_gender,
                zman_emp_email          TYPE zman_emp_email,
                zman_emp_marital_status TYPE zman_emp_marital_status,
                zman_emp_expirence      TYPE zman_emp_expirence,
                flag                    TYPE flag,
        END OF ty_zman_emp_table.
DATA : it_ZMAN_EMP_TABLE TYPE STANDARD TABLE OF TY_zman_emp_table WITH HEADER LINE,
       wa_zman_emp_table TYPE ty_zman_emp_table.
DATA: it_update TYPE TABLE OF ty_zman_emp_table,
      it_change TYPE TABLE OF ty_zman_emp_table.
DATA: it_delete TYPE TABLE OF ty_zman_emp_table,
      it_change1 TYPE TABLE OF ty_zman_emp_table.
DATA: defaultoption   TYPE string,  "header declaration
        title           TYPE string,  "header title
        textline         TYPE string, "text line
        lv_popup_ans    TYPE string,  "pop up
        cancel_display  TYPE string.   "pop up
DATA: it_listheader TYPE slis_t_listheader.

========================================================================

*                                     Selection Screen

========================================================================

*&---------------------------------------------------------------------*
*&  Include           ZMAN_EDITABLE_ALV_SS
*&---------------------------------------------------------------------*
SELECT-OPTIONS: S_EMPID FOR IT_ZMAN_EMP_TABLE-ZMAN_EMP_NO.

========================================================================

*                                     LOGIC

========================================================================

*&---------------------------------------------------------------------*
*&  Include           ZMAN_EDITABLE_ALV_LOGIC
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form GET_DATA .
SELECT
        ZMAN_EMP_NO
        ZMAN_EMP_NAME
        ZMAN_EMP_ADDRESS
        ZMAN_EMP_BLOOD_GRP
        ZMAN_EMP_GENDER
        ZMAN_EMP_EMAIL
        ZMAN_EMP_MARITAL_STATUS
        ZMAN_EMP_EXPIRENCE
        FROM zman_emp_table INTO CORRESPONDING FIELDS OF TABLE it_zman_emp_table
        WHERE ZMAN_EMP_NO IN s_empid.
endform.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  ALV_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form ALV_FIELDCAT .

  DATA: counter TYPE i.
  counter = counter + 1.

  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-fieldname  ='FLAG'.
  wa_fieldcat-seltext_m  ='CHECKBOX'.
  wa_fieldcat-edit       ='X'.
  wa_fieldcat-checkbox    = 'X'.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_NO '.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Employee ID.'.
  wa_fieldcat-col_pos    = 0.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_NAME  '.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Employee NAME.'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'.   "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_ADDRESS'.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Address'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'.   "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_BLOOD_GRP  '.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Blood Group'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'. "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_GENDER  '.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Gender'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'.  "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_EMAIL'.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Email'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'.   "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_MARITAL_STATUS'.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Marital Status'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'. "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-fieldname  = 'ZMAN_EMP_EXPIRENCE'.
  wa_fieldcat-tabname    = 'IT_zman_emp_table'.
  wa_fieldcat-seltext_l  = 'Expirence'.
  wa_fieldcat-col_pos    = 0.
  wa_fieldcat-edit        = 'X'.    "its for edditing field.
  APPEND wa_fieldcat TO it_fieldcat.
  CLEAR wa_fieldcat.
endform.                    " ALV_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  GET_EVENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form GET_EVENT .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

   EXPORTING
   I_LIST_TYPE           = 0

  IMPORTING
    ET_EVENTS             = IT_EVENTS[]

  EXCEPTIONS
   LIST_TYPE_WRONG       = 1
   OTHERS                = 2
          .
     IF sy-subrc <> 0.
* Implement suitable error handling here
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

  READ TABLE it_events WITH KEY name = slis_ev_top_of_page
                                INTO it_events.
  IF sy-subrc = 0.
    MOVE t_formname_top_of_page TO it_events-form.
    APPEND it_events.
  ENDIF.
endform.                    " GET_EVENT
*&---------------------------------------------------------------------*
*&      Form  SUB_COMMENT_BUILD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_T_LIST_TOP_OF_PAGE  text
*----------------------------------------------------------------------*
form SUB_COMMENT_BUILD  using p_t_list_top_of_page TYPE slis_t_listheader.

  DATA: ls_line TYPE slis_listheader.
  DATA: wrk_name     TYPE string.

  wrk_name = 'Squirrel Softech Pvt. Ltd.'.

  CLEAR ls_line.

  ls_line-typ  = 'H'.
  ls_line-info = wrk_name.
  APPEND ls_line TO t_list_top_of_page.

  ls_line-typ  = 'H'.
  ls_line-info = 'Employee Detail'.
  APPEND ls_line TO  p_t_list_top_of_page.
endform.                    " SUB_COMMENT_BUILD
*&---------------------------------------------------------------------*
*&      Form  TOP_OF_PAGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form TOP_OF_PAGE .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    I_LOGO                   =  'SAPLOGO'
    it_list_commentary       = t_list_top_of_page.
*   I_END_OF_LIST_GRID       =
*   I_ALV_FORM               =
.
endform.                    " TOP_OF_PAGE

*&---------------------------------------------------------------------*
*&      Form  ALV_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form ALV_DISPLAY .

 gs_layout-zebra                = 'X'.
  gs_layout-detail_popup         = 'X'.
  gs_layout-detail_initial_lines = 'X'.
  gs_layout-colwidth_optimize    = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat              = it_fieldcat
      it_events                = it_events[]
      i_callback_program       = sy-repid
      is_layout                = gs_layout
      it_sort                  = gt_sort[]
      i_save                   = g_save
      is_variant               = gx_variant
      i_callback_pf_status_set = 'ZSTANDARD1'
      i_callback_user_command  = 'USER_COMMAND' " Interactive command
    TABLES
      t_outtab                 = IT_zman_emp_table[].
ENDFORM.                    " ALV_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RT_EXTAB   text
*----------------------------------------------------------------------*
FORM zstandard1 USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'ZSTANDARD1'.
ENDFORM.                    "text
*&---------------------------------------------------------------------*
*&      Form  user_command
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->SELFIELD   text
*----------------------------------------------------------------------*
FORM user_command USING r_comm TYPE sy-ucomm
                           selfield TYPE slis_selfield.

  DATA: gd_repid LIKE sy-repid,
      ref_grid TYPE REF TO cl_gui_alv_grid.

  IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
  ENDIF.
  IF NOT ref_grid IS INITIAL.
    CALL METHOD ref_grid->check_changed_data.
  ENDIF.
  DATA : flag TYPE i VALUE 0.

  CASE r_comm.
    WHEN 'SELECT_ALL'.
      LOOP AT it_zman_emp_table INTO wa_zman_emp_table.
        IF wa_zman_emp_table-flag IS INITIAL.
          wa_zman_emp_table-flag = 'X'.
          MODIFY it_zman_emp_table FROM wa_zman_emp_table.
          CLEAR wa_zman_emp_table.
        ENDIF.
      ENDLOOP.
      selfield-refresh = 'X'.

    WHEN 'DSELECT_AL'.
      LOOP AT it_zman_emp_table INTO wa_zman_emp_table.
        IF wa_zman_emp_table-flag IS NOT INITIAL.
          wa_zman_emp_table-flag = ''.
          MODIFY it_zman_emp_table FROM wa_zman_emp_table.
          CLEAR wa_zman_emp_table.
        ENDIF.
      ENDLOOP.
      selfield-refresh = 'X'.

    WHEN 'UPDATE'.
   READ TABLE it_zman_emp_table into wa_zman_emp_table with key FLAG = 'X'.
   if sy-subrc = 0.

      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar             ='MESSAGE'
          text_question         ='ARE YOU SURE YOU WANT TO UPDATE THIS DATA'
          text_button_1         ='YES'
          text_button_2         ='NO'
          default_button       = '1'
        display_cancel_button  = 'X'
          popup_type           = 'ICON MESSAGE INFORMATION'

        IMPORTING
          answer   = lv_popup_ans.
      IF sy-subrc <> 0.
      ENDIF.
      IF lv_popup_ans = '1'.
        LOOP AT it_zman_emp_table INTO wa_zman_emp_table WHERE flag = 'X'.
          PERFORM zman_emp_table_updatedata.         " update data
           IF sy-subrc EQ 0.
        message 'DATA  UPDATED SUCCESSFULLY' TYPE 'I'.
          ENDIF.
        ENDLOOP.
     ELSE.
       LEAVE SCREEN.
      ENDIF.
      else.
    MESSAGE 'please select atleast one line item' type 'E'.
    endif.

    WHEN 'DELETE'.
    READ TABLE it_zman_emp_table into wa_zman_emp_table with key flag = 'X'.
     if sy-subrc = 0.

     CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          titlebar             ='MESSAGE'
          text_question         ='ARE YOU SURE YOU WANT TO DELETE DATA'
          text_button_1         ='YES'
          text_button_2         ='NO'
          default_button       = '1'
        display_cancel_button  = 'X'
          popup_type           = 'ICON MESSAGE INFORMATION'

     IMPORTING
          answer   = lv_popup_ans.
      IF sy-subrc <> 0.
      ENDIF.
      IF lv_popup_ans = '1'.
        LOOP AT it_zman_emp_table INTO wa_zman_emp_table WHERE flag = 'X'.

     PERFORM zman_emp_table_DATADELETE.            " DATA DELETE

     select ZMAN_EMP_NO
        ZMAN_EMP_NAME
        ZMAN_EMP_ADDRESS
        ZMAN_EMP_BLOOD_GRP
        ZMAN_EMP_GENDER
        ZMAN_EMP_EMAIL
        ZMAN_EMP_MARITAL_STATUS
        ZMAN_EMP_EXPIRENCE
                              from zman_emp_table
      INTO CORRESPONDING FIELDS OF TABLE it_zman_emp_table.
       modify it_zman_emp_table FROM wa_zman_emp_table.
        selfield-refresh = 'X'.
       IF sy-subrc EQ 0.
        message 'DATA DELETED SUCCESSFULLY' TYPE 'I'.
          ENDIF.
        ENDLOOP.
     ELSE.
       LEAVE SCREEN.
      ENDIF.
      else.
    MESSAGE 'please select atleast one line item' type 'E'.
    endif.

        ENDCASE.
      ENDFORM.                    "user_command
*&---------------------------------------------------------------------*
*&      Form  ZMAN_EMP_TABLE_UPDATEDATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form ZMAN_EMP_TABLE_UPDATEDATA .

    data: wa_tzman_emp_table type zman_emp_table.
  REFRESH it_change.
  IF it_zman_emp_table[] IS NOT INITIAL.
    LOOP AT it_zman_emp_table INTO wa_zman_emp_table WHERE flag = 'X'.
        MOVE-CORRESPONDING wa_zman_emp_table TO wa_tzman_emp_table.
        MODIFY zman_emp_table FROM wa_tzman_emp_table.
    ENDLOOP.
  ENDIF.
endform.


*&---------------------------------------------------------------------*
*&      Form  ZMAN_EMP_TABLE_DATADELETE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form ZMAN_EMP_TABLE_DATADELETE .

     data: wa_delete type ty_zman_emp_table,
         wa_tzman_emp_table type zman_emp_table.
   refresh it_change1.
   if it_zman_emp_table[] is not INITIAL.
    loop at it_zman_emp_table into wa_zman_emp_table where flag = 'X'.
       MOVE-CORRESPONDING wa_zman_emp_table TO wa_tzman_emp_table.
      delete from zman_emp_table where ZMAN_EMP_NO = wa_zman_emp_table-ZMAN_EMP_NO.
    endloop.
    clear wa_delete.
    endif.

endform.                    " ZMAN_EMP_TABLE_DATADELETE                    " ZMAN_EMP_TABLE_UPDATEDATA