How do I define Field-Catalog and Event-Catalog in OOPs ALV

Question

Hi All,
This is the piece of the code on which I'm working upon. This program is giving an exception "No Field-Catalog Found". 
I'm new to OOPs ALV. Could anybody please tell me how to define the field-catalog and event-catalog in this.
module PBO output.
      IF g_custom_container IS INITIAL.
          CREATE OBJECT g_custom_container EXPORTING CONTAINER_NAME = 'CCCONTAINER'.
          CREATE OBJECT g_grid             EXPORTING I_PARENT       = g_custom_container.
      CALL METHOD g_grid->set_table_for_first_display
          EXPORTING I_STRUCTURE_NAME = 'IT_MATERIAL'
                    is_layout = layout
          CHANGING IT_OUTTAB         = gt_it_material.
      ENDIF.
  endmodule.
Regards,
Saurabh

Answer 1

hi,
chk this sampl ceode.
TYPE-POOLS: slis.
CLASS lcl_event_receiver DEFINITION DEFERRED.
TABLES : zmpets_shipactiv, zmpets_chargebk, zmpets_shiphdr.
DATA : BEGIN OF int_crb OCCURS 0,
       sel TYPE char1,
       icon TYPE icon_d,
       pernr LIKE zmpets_cil-pernr,
       vorna LIKE pa0002-vorna,
       movreason LIKE zmpets_shiphdr-movreason,
       shipdocnum LIKE zmpets_chargebk-shipdocnum,
       createdon LIKE zmpets_chargebk-createdon,
       chargeamount LIKE zmpets_chargebk-chargeamount,
       version LIKE zmpets_shipactiv-version,
       activity LIKE zmpets_shipactiv-activity,
       vendor LIKE zmpets_shiphdr-vendor,
      smtp_addr LIKE adr6-smtp_addr,
       empperid LIKE zmpets_167doc-empperid,
       celltab TYPE lvc_t_styl,
       END OF int_crb.
DATA : int_crb_ver LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_crb_mail LIKE int_crb OCCURS 0 WITH HEADER LINE.
DATA : int_shipactiv LIKE zmpets_shipactiv OCCURS 0 WITH HEADER LINE.
DATA: gt_fieldcatalog TYPE lvc_t_fcat.
DATA : wf_flag TYPE i.
DATA : wf_res TYPE c.
DATA : wf_tabix TYPE sy-tabix.
DATA: BEGIN OF int_sin OCCURS 0,
      shipdocnum LIKE zmpets_chargebk-shipdocnum,
        shipdocnum LIKE zmpets_shipactiv-petsdocnumber,
      END OF int_sin.
DATA: objpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: objhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: objtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist   LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: doc_chng  LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
DATA l_num(3).
DATA: ok_code            LIKE          sy-ucomm,
      w_repid            LIKE          sy-repid,
      wl_sno             TYPE          i         VALUE 0,
      w_max              TYPE          i         VALUE 100,
      wf_layout          TYPE          lvc_s_layo,
      cont_on_main       TYPE          scrfname   VALUE  'GRID_CONTROL',
      cont_on_dialog     TYPE          scrfname   VALUE 'GRID_CONTROL',
      grid1              TYPE          REF TO cl_gui_alv_grid,
      grid2              TYPE          REF TO cl_gui_alv_grid,
      custom_container1  TYPE          REF TO cl_gui_custom_container,
      custom_container2  TYPE          REF TO cl_gui_custom_container,
      event_receiver     TYPE          REF TO lcl_event_receiver,
      lt_exclude         TYPE          ui_functions,
      ls_celltab         TYPE          lvc_s_styl,
      lt_celltab         TYPE          lvc_t_styl.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-001.
PARAMETERS : p_cash AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b3.
PERFORM fieldcatalog_init USING gt_fieldcatalog[].
Selection-Screen----
SELECTION-SCREEN  BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_chdate FOR zmpets_chargebk-createdon,
               s_pernr FOR zmpets_shiphdr-pernr,
               s_mvrsn FOR zmpets_shiphdr-movreason,
               s_sin FOR zmpets_chargebk-shipdocnum NO INTERVALS
NO-EXTENSION.
SELECTION-SCREEN  END OF BLOCK b1.
PERFORM f_clear_fields.
CALL SCREEN 100.
      CLASS lcl_event_receiver DEFINITION
CLASS lcl_event_receiver DEFINITION.
  PUBLIC SECTION.
    METHODS:
    handle_toolbar
        FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive,
    handle_user_command
        FOR EVENT user_command OF cl_gui_alv_grid
            IMPORTING e_ucomm.
  PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
      CLASS lcl_event_receiver IMPLEMENTATION
CLASS lcl_event_receiver IMPLEMENTATION.
  METHOD handle_toolbar.
§ 2.In event handler method for event TOOLBAR: Append own functions
  by using event parameter E_OBJECT.
    DATA: ls_toolbar  TYPE stb_button.
append a separator to normal toolbar
    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.
    CLEAR ls_toolbar.
new button -
    MOVE 'PROCESSED' TO ls_toolbar-function.
    MOVE icon_execute_object TO ls_toolbar-icon.
    MOVE 'Process the Record'(110) TO ls_toolbar-quickinfo.
    MOVE ' Process '(200) TO ls_toolbar-text.
    MOVE ' ' TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.
  ENDMETHOD.                    "handle_toolbar
  METHOD handle_user_command.
§ 3.In event handler method for event USER_COMMAND: Query your
  function codes defined in step 2 and react accordingly.
    DATA: lt_rows TYPE lvc_t_row.
    CASE e_ucomm.
      WHEN 'PROCESSED'.
        CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
                 EXPORTING
                  defaultoption        = 'N'
  textline1     = 'Do you want to process the selected documents?'
          TEXTLINE2            = ' '
                   titel                = 'Process Documents'
          START_COLUMN         = 25
          START_ROW            = 6
          CANCEL_DISPLAY       = 'X'
                IMPORTING
                  answer               = wf_res.
*--IF THE USER CONFIRMS 'YES',
        IF wf_res = 'J'.
          PERFORM f_modify_activity.
          CALL METHOD grid1->refresh_table_display.
       PERFORM SENDINGMAIL.
        ENDIF.
    ENDCASE.
  ENDMETHOD.                           "handle_user_command
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
MODULE pbo_100 OUTPUT
MODULE pbo_100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'MAIN100'.
  w_repid = sy-repid.
  IF custom_container1 IS INITIAL.
*get the data from charge back table
    PERFORM select_table_chb.
create a custom container control for our ALV Control
    CREATE OBJECT custom_container1
        EXPORTING
            container_name = cont_on_main
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
add your handling, for example
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          titel = w_repid
          txt2  = sy-subrc
          txt1  = 'The control could not be created'(510).
    ENDIF.
    CREATE OBJECT grid1
              EXPORTING i_parent = custom_container1.
Set a titlebar for the grid control
    wf_layout-grid_title = 'Charge Back'(100).
allow to select multiple lines
    wf_layout-sel_mode = 'C'.
    wf_layout-stylefname = 'CELLTAB'.
Exclude all edit functions in this example since we do not need them:
    PERFORM exclude_tb_functions CHANGING lt_exclude.
    CALL METHOD grid1->set_table_for_first_display
               EXPORTING
            I_BUFFER_ACTIVE               =
            I_CONSISTENCY_CHECK           =
            I_STRUCTURE_NAME              =
            IS_VARIANT                    =
            I_SAVE                        =
            I_DEFAULT                     = 'X'
                 is_layout                     = wf_layout
            IS_PRINT                      =
            IT_SPECIAL_GROUPS             =
              it_toolbar_excluding          = lt_exclude
            IT_HYPERLINK                  =
            IT_ALV_GRAPHICS               =
          CHANGING
            it_outtab                     = int_crb[]
            it_fieldcatalog               = gt_fieldcatalog.
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_user_command FOR grid1.
    SET HANDLER event_receiver->handle_toolbar FOR grid1.
    CALL METHOD grid1->set_toolbar_interactive.
  ENDIF.                               "IF grid1 IS INITIAL
  CALL METHOD cl_gui_control=>set_focus
    EXPORTING
      control = grid1.
ENDMODULE.                    "pbo_100 OUTPUT
MODULE pai_100 INPUT
MODULE pai_100 INPUT.
  CASE ok_code.
    WHEN 'EXIT'.
      PERFORM f_clear_fields.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
    WHEN 'BACK'.
      PERFORM f_clear_fields.
      LEAVE TO SCREEN 0.
  ENDCASE.
  CLEAR ok_code.
ENDMODULE.                    "pai_100 INPUT
**&      Form  select_table_chb
      text
FORM select_table_chb.
  IF p_cash = 'X'.
*Consider the pending documents also.
*get the documents which are not processed yet,
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna
     zmpets_shiphdrmovreason zmpets_chargebkshipdocnum
     zmpets_chargebkcreatedon zmpets_chargebkchargeamount
     zmpets_shipactivversion zmpets_shipactivactivity
zmpets_shiphdr~vendor
   adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
           ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
     ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
                JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
             JOIN zmpets_167doc
             ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_shipactiv~doctype = '06'
                    zmpets_shipactiv~activity NE '30'
                  ZMPETS_CHARGEBK~CREATEDON IN s_chdate
                  AND ZMPETS_SHIPHDR~pernr IN s_pernr
                  AND ZMPETS_SHIPHDR~MOVREASON IN s_mvrsn
                  AND ZMPETS_CHARGEBK~SHIPDOCNUM IN s_sin
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Pending Documents Available.'.
      MESSAGE s196(zm050).
    ELSE.
      LOOP AT int_crb_ver.
*Not yet processed. set to red
        int_crb_ver-icon = '@0A@'.
        MODIFY int_crb_ver.
      ENDLOOP.
      PERFORM f_filter_data_pending.
    ENDIF.
  ELSE.
*Get the document details from pa0002,zmpets_shipactiv,ZMPETS_CHARGEBK
*table.
*Consider document type as '01'  during the selection.
*Doctype -> 06 = Charge Back document type.
    SELECT zmpets_shiphdrpernr pa0002vorna zmpets_shiphdr~movreason
    zmpets_chargebkshipdocnum zmpets_chargebkcreatedon
zmpets_chargebkchargeamount zmpets_shipactivversion
zmpets_shipactivactivity zmpets_shiphdrvendor
*adr6~smtp_addr
zmpets_167doc~empperid
             INTO CORRESPONDING FIELDS OF TABLE int_crb_ver
             FROM zmpets_chargebk
             JOIN zmpets_shiphdr
             ON zmpets_chargebkshipdocnum = zmpets_shiphdrshipdocno
             JOIN zmpets_shipactiv
       ON zmpets_chargebkshipdocnum = zmpets_shipactivpetsdocnumber
             JOIN pa0002
             ON zmpets_shiphdrpernr = pa0002pernr
            JOIN lfa1
                ON lfa1lifnr = zmpets_shiphdrvendor
                JOIN adr6
                ON adr6addrnumber = lfa1adrnr
                 JOIN zmpets_167doc
                 ON zmpets_167docpernr = pa0002pernr
                       WHERE zmpets_chargebk~createdon IN s_chdate
                       AND zmpets_shiphdr~pernr IN s_pernr
                       AND zmpets_shiphdr~movreason IN s_mvrsn
                       AND zmpets_chargebk~shipdocnum IN s_sin
                      AND zmpets_shipactiv~activity NE '30'
                       AND zmpets_shipactiv~doctype = '06'
                       AND zmpets_chargebk~loekz NE 'X'
                       AND zmpets_shipactiv~loekz NE 'X'
                       AND zmpets_shiphdr~loekz NE 'X'.
    IF sy-subrc <> 0.
*Message is 'No Charge Back Documents Available.'.
      MESSAGE s201(zm050).
    ELSE.
      PERFORM f_filter_data.
    ENDIF.
  ENDIF.
ENDFORM.                    "select_table_chb
*&      Form  UPDATE_RECORDS
      text
-->  p1        text
<--  p2        text
FORM update_records TABLES p_et_index_rows
                                STRUCTURE lvc_s_row.
  DATA: ls_selected_line LIKE lvc_s_row,
          lf_row_index TYPE lvc_index.
  LOOP AT p_et_index_rows INTO ls_selected_line.
    lf_row_index = ls_selected_line-index.
  ENDLOOP.
ENDFORM.                    " UPDATE_RECORDS
**&      Form  fieldcatalog_init
      text
     -->P_GT_FIELDCATALOG[]  text
FORM fieldcatalog_init  USING lt_fieldcatalog TYPE lvc_t_fcat.
  DATA: ls_fieldcatalog TYPE lvc_s_fcat.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'SEL'.
  ls_fieldcatalog-tabname  = 'INT_CRB'.
  ls_fieldcatalog-datatype = 'C'.
  ls_fieldcatalog-col_pos  = 1.
  ls_fieldcatalog-edit     = 'X'.
  ls_fieldcatalog-reptext  = 'Select for Processing'.
  ls_fieldcatalog-coltext  = 'Select for Processing'.
  ls_fieldcatalog-seltext  = 'Select for Processing'.
  ls_fieldcatalog-tooltip  = 'Select for Processing'.
  ls_fieldcatalog-checkbox = 'X'.
  ls_fieldcatalog-key = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'ICON'.
  ls_fieldcatalog-tabname   = 'INT_CRB'.
  ls_fieldcatalog-datatype  = 'CHAR'.
  ls_fieldcatalog-col_pos    = 2.
  ls_fieldcatalog-intlen     = '4'.
  ls_fieldcatalog-reptext   =  'Status'.
  ls_fieldcatalog-coltext   =  'Status'.
  ls_fieldcatalog-seltext   =  'Status'.
  ls_fieldcatalog-tooltip   =  'Status'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'PERNR'.
  ls_fieldcatalog-tabname   = 'INT_CRB'.
  ls_fieldcatalog-datatype  = 'NUMC'.
  ls_fieldcatalog-col_pos   = 2.
  ls_fieldcatalog-intlen    = '8'.
  ls_fieldcatalog-reptext   =  'Employee Number'.
  ls_fieldcatalog-coltext   =  'Employee Number'.
  ls_fieldcatalog-seltext   =  'Employee Number'.
  ls_fieldcatalog-tooltip   =  'Employee Number'.
  ls_fieldcatalog-key = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname  = 'VORNA'.
  ls_fieldcatalog-tabname    = 'INT_CRB'.
  ls_fieldcatalog-col_pos    =  3 .
  ls_fieldcatalog-datatype   = 'CHAR'.
  ls_fieldcatalog-outputlen      = '20'.
  ls_fieldcatalog-reptext    = 'Employee Name'.
  ls_fieldcatalog-coltext    = 'Employee Name'.
  ls_fieldcatalog-seltext    = 'Employee Name'.
  ls_fieldcatalog-tooltip    = 'Employee Name'.
ls_fieldcatalog-key      = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname  = 'MOVREASON'.
  ls_fieldcatalog-tabname    = 'INT_CRB'.
  ls_fieldcatalog-col_pos    =  4.
  ls_fieldcatalog-datatype   = 'NUMC'.
  ls_fieldcatalog-outputlen  = '10'.
  ls_fieldcatalog-reptext    = 'Move Reason'.
  ls_fieldcatalog-coltext    = 'Move Reason'.
  ls_fieldcatalog-seltext    = 'Move Reason'.
  ls_fieldcatalog-tooltip    = 'Move Reason'.
ls_fieldcatalog-key      = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'SHIPDOCNUM'.
  ls_fieldcatalog-tabname   = 'INT_CRB'.
  ls_fieldcatalog-datatype  = 'NUMC'.
  ls_fieldcatalog-outputlen = '10'.
  ls_fieldcatalog-col_pos   =  5.
  ls_fieldcatalog-reptext   = 'Shipping Document Number'.
  ls_fieldcatalog-coltext   = 'Shipping Document Number'.
  ls_fieldcatalog-seltext   = 'Shipping Document Number'.
  ls_fieldcatalog-tooltip   = 'Shipping Document Number'.
ls_fieldcatalog-key = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'CREATEDON'.
  ls_fieldcatalog-tabname   = 'INT_CRB'.
  ls_fieldcatalog-col_pos   = 6.
  ls_fieldcatalog-datatype  = 'DATS'.
  ls_fieldcatalog-outputlen = '8'.
  ls_fieldcatalog-reptext   = 'Created On'.
  ls_fieldcatalog-coltext   = 'Created On'.
  ls_fieldcatalog-seltext   = 'Created On'.
  ls_fieldcatalog-tooltip   = 'Created On'.
ls_fieldcatalog-DO_sum      = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
  ls_fieldcatalog-fieldname = 'CHARGEAMOUNT'.
  ls_fieldcatalog-tabname   = 'INT_CRB'.
  ls_fieldcatalog-col_pos   = 7.
  ls_fieldcatalog-datatype  = 'CURR'.
  ls_fieldcatalog-outputlen = '13'.
  ls_fieldcatalog-reptext   = 'Charge Back Amount'.
  ls_fieldcatalog-coltext   = 'Charge Back Amount'.
  ls_fieldcatalog-seltext   = 'Charge Back Amount'.
  ls_fieldcatalog-tooltip   = 'Charge Back Amount'.
ls_fieldcatalog-DO_sum      = 'X'.
  APPEND ls_fieldcatalog TO lt_fieldcatalog.
  CLEAR ls_fieldcatalog.
ENDFORM.                    "fieldcatalog_init
*&      Form  f_modify_activity
Modify the activity to 79 in zmpets_shipaciv table.
-->  p1        text
<--  p2        text
FORM f_modify_activity .
  REFRESH int_crb_mail.
  int_crb_mail[] = int_crb[].
*All the document number which is to be processed is stored in
*the internel table 'INT_SIN'.
  LOOP AT int_crb INTO int_crb.
    IF int_crb-sel ='X'.
      MOVE int_crb-shipdocnum TO int_sin.
      APPEND int_sin.
      CLEAR int_sin.
*Removing the processed documents.
      DELETE int_crb.
    ENDIF.
    CLEAR int_crb.
  ENDLOOP.
*Get the details from shipactiv table.
  IF int_sin[] IS NOT INITIAL.
    SELECT * FROM zmpets_shipactiv
        INTO TABLE int_shipactiv
          FOR ALL ENTRIES IN int_sin
                WHERE petsdocnumber = int_sin-shipdocnum.
*Modify the activity code, version, actual date and last changed date.
    SORT int_shipactiv BY petsdocnumber version DESCENDING.
    CLEAR wf_tabix.
    LOOP AT int_shipactiv.
      wf_tabix = sy-tabix.
      AT NEW petsdocnumber.
        READ TABLE int_shipactiv INDEX wf_tabix.
        int_shipactiv-activity = '030'.
        int_shipactiv-version = int_shipactiv-version + 1.
        int_shipactiv-actdate = sy-datum.
        int_shipactiv-lastchangedby = sy-uname.
        int_shipactiv-lastchangedt = sy-datum.
*Modify the data base table
        MODIFY zmpets_shipactiv FROM int_shipactiv.
      ENDAT.
      CLEAR int_shipactiv.
      AT LAST.
*Message is 'Data Processed Successfully.'.
        MESSAGE s203(zm050).
      ENDAT.
    ENDLOOP.
*-send mail to the vendor and employee that the shipment is cleared for
    LOOP AT int_crb_mail WHERE sel = 'X'.
      PERFORM f_send_mail.
    ENDLOOP.
    REFRESH int_crb_mail.
   CALL SELECTION-SCREEN 1000.
  ELSE.
*Message is 'No Data Selected for Processing.'.
    MESSAGE s200(zm050).
  ENDIF.
ENDFORM.                    " f_modify_activity
*&      Form  f_clear_fields
      text
-->  p1        text
<--  p2        text
FORM f_clear_fields .
  CLEAR int_crb.
  CLEAR int_crb_ver.
  CLEAR int_sin.
  REFRESH int_crb.
  REFRESH int_crb_ver.
  REFRESH int_sin.
  CLEAR int_shipactiv.
  REFRESH int_shipactiv.
  CLEAR wf_flag.
  CLEAR wf_tabix.
ENDFORM.                    " f_clear_fields
*&      Form  f_filter_data
      text
-->  p1        text
<--  p2        text
FORM f_filter_data .
*Take the latest Version Data.
*take all the activities, including the activity '30'.
then put the details in internal table 'INT_CRB'.
  SORT int_crb_ver BY shipdocnum version DESCENDING.
  CLEAR wf_tabix.
  CLEAR int_crb.
  REFRESH int_crb.
  LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      MOVE-CORRESPONDING int_crb_ver TO int_crb.
      APPEND int_crb.
      CLEAR int_crb.
    ENDAT.
  ENDLOOP.
  IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
  ELSE.
    CLEAR wf_tabix.
    LOOP AT int_crb.
      wf_tabix = sy-tabix.
      REFRESH lt_celltab.
      ls_celltab-fieldname = 'SEL'.
      IF int_crb-activity = '030'.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
*status becomes green. ie processed
        int_crb-icon = '@08@'. "Green
      ELSE.
        ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
*status set to red. ie not yet processed
        int_crb-icon = '@0A@'. "Red
      ENDIF.
      INSERT ls_celltab INTO TABLE lt_celltab.
      INSERT LINES OF lt_celltab INTO TABLE int_crb-celltab.
      MODIFY int_crb INDEX wf_tabix.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " f_filter_data
*&      Form  f_filter_data
      text
-->  p1        text
<--  p2        text
FORM f_filter_data_pending.
*Take the latest Version Data.
*take all the activities, including the activity '30'.
*then filter it with out the activities '30' and having the lastest
*version. then put the details in internal table 'INT_CRB'.
  SORT int_crb_ver BY shipdocnum version DESCENDING.
  CLEAR wf_tabix.
  CLEAR int_crb.
  REFRESH int_crb.
  LOOP AT int_crb_ver.
    wf_tabix = sy-tabix.
    AT NEW shipdocnum.
      READ TABLE int_crb_ver INDEX wf_tabix.
      IF int_crb_ver-activity NE '030'.
        MOVE-CORRESPONDING int_crb_ver TO int_crb.
        APPEND int_crb.
        CLEAR int_crb.
      ENDIF.
    ENDAT.
  ENDLOOP.
  IF int_crb[] IS INITIAL.
*Message is 'No Records Available.'.
    MESSAGE s202(zm050).
  ENDIF.
ENDFORM.                    " f_filter_data_pending
*&      Form  EXCLUDE_TB_FUNCTIONS
      text
     <--P_LT_EXCLUDE  text
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
  DATA ls_exclude TYPE ui_func.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
  APPEND ls_exclude TO pt_exclude.
  ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
  APPEND ls_exclude TO pt_exclude.
ENDFORM.                               " EXCLUDE_TB_FUNCTIONS
*&      Form  f_send_mail
      text
-->  p1        text
<--  p2        text
FORM f_send_mail .
*store the vendor name, vendor email id , employee name and employee
*email id in the internal table int_crb
Creation of the document to be sent
  CLEAR doc_chng.
  REFRESH objpack.
  REFRESH objhead.
  REFRESH  reclist.
  REFRESH objtxt.
File Name
  doc_chng-obj_name = 'SHIPMENT'.
Mail Subject
  CONCATENATE 'Shipment Document No.' int_crb_mail-shipdocnum
  'Cleared.'
  INTO doc_chng-obj_descr SEPARATED BY ' '.
Mail Contents
  objtxt-line = 'Hi,'.
  APPEND objtxt.
  objtxt-line = ' '.
  APPEND objtxt.
  CONCATENATE 'Shipment Document Number ' int_crb_mail-shipdocnum
' cleared for move.' INTO objtxt-line SEPARATED BY ' '.
  APPEND objtxt.
  objtxt-line = ' '.
  APPEND objtxt.
  CLEAR  objtxt.
  objtxt-line = 'Regards '.
  APPEND objtxt.
  objtxt-line = ' '.
  APPEND objtxt.
  objtxt-line = 'SAP '.
  APPEND objtxt.
  CLEAR  objtxt.
  APPEND objtxt.
  DESCRIBE TABLE objtxt LINES tab_lines.
  READ TABLE objtxt INDEX tab_lines.
  doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN(
objtxt ).
Creation of the entry for the compressed document
  CLEAR objpack-transf_bin.
  objpack-head_start = 1.
  objpack-head_num = 0.
  objpack-body_start = 1.
  objpack-body_num = tab_lines.
  objpack-doc_type = 'RAW'.
  APPEND objpack.
Completing the recipient list
target recipent
  CLEAR reclist.
  reclist-receiver = int_crb_mail-empperid. "employee email ID
  "wf_empperid.
  reclist-express  = 'X'.
  reclist-rec_type = 'U'.
  APPEND reclist.
copy recipents
CLEAR reclist.
reclist-receiver = 'anversha.shahul@'."int_crb_mail-smtp_addr
reclist-express  = 'X'.
reclist-rec_type = 'U'.
reclist-copy     = 'X'.
APPEND reclist.
Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
    TABLES
      packing_list               = objpack
      object_header              = objhead
   contents_bin               = objbin
      contents_txt               = objtxt
      receivers                  = reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
  COMMIT WORK.
  SUBMIT rsconn01
                WITH mode = 'INT'
                WITH output = ' '
                  AND RETURN.
ENDFORM.                    " f_send_mail
rgds
anver
pls mark hlpful answers