Some problem in hirercial alv

Question

Hi ,
i am  not getting out put.
i am sending you the format
we have to give po# as input in range
then output should be in following form
po# vendor Date.........(1)
po item material qty price........(2)
1 and two are different.for (1) there should be corresponding value for(2)
now i am only getting (1) not(2)
and header is not in given format.
thanks
*& Report  ZSAND_ALV_PRG                                               *
REPORT  zsand_alv_prg NO STANDARD PAGE HEADING.
TYPE-POOLS: slis.
TABLES: ekpo,ekko,makt.
INCLUDE <icon>.
INCLUDE <symbol>.
DATA: g_repid LIKE sy-repid.
DATA:BEGIN OF t_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
END OF t_ekpo.
DATA:BEGIN OF t_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
lifnr LIKE ekko-lifnr,
aedat LIKE ekko-aedat,
*EXPAND,
END OF t_ekko.
*DATA:BEGIN OF t_final OCCURS 0,
*ebeln LIKE ekpo-ebeln,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
lifnr LIKE ekko-lifnr,
*aedat LIKE ekko-aedat,
*END OF t_final.
DATA: maktx LIKE makt-maktx.
DATA:tot_price(5)." type i default 0.
CONSTANTS:
c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: xt_fieldcat TYPE slis_t_fieldcat_alv,
      ls_layout   TYPE slis_layout_alv,
      gs_keyinfo  TYPE slis_keyinfo_alv.
     gt_sp_group TYPE slis_t_sp_group_alv,
     gt_events   TYPE slis_t_event,
     gx_variant LIKE disvariant,
     g_variant LIKE disvariant.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
g_tabname_header TYPE slis_tabname,
g_tabname_item   TYPE slis_tabname,
g_save(1) TYPE c.
INITIALIZATION.
  g_repid = sy-repid.
  g_tabname_header =  'T_EKKO'.
  g_tabname_item   = 'T_EKKO'.
  CLEAR gs_keyinfo.
  gs_keyinfo-header01 = 'EBELN'.
  gs_keyinfo-item01   = 'EBELN'.
START-OF-SELECTION.
  SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
  SELECT-OPTIONS: s_ebeln FOR ekko-ebeln OBLIGATORY.
  SELECTION-SCREEN END OF BLOCK blk1.
  SELECT ebeln lifnr aedat
  INTO CORRESPONDING FIELDS OF TABLE t_ekko
  FROM ekko
  WHERE ebeln IN s_ebeln.
  SELECT ek~ebeln  ep~matnr ep~menge  ep~netpr ep~ebelp
    INTO CORRESPONDING FIELDS OF TABLE t_ekpo
      FROM ekko AS ek INNER JOIN ekpo AS ep
                 ON ek~ebeln = ep~ebeln
           WHERE ek~ebeln IN s_ebeln.
LOOP AT g_tabname_header.
write:t_ekpo-matnr.
ENDLOOP.
  PERFORM layout_build CHANGING ls_layout.
  PERFORM fieldcat_build CHANGING xt_fieldcat.
  PERFORM e02_data_add TABLES t_ekko.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
   EXPORTING
  I_INTERFACE_CHECK              = g_repid
    i_callback_program             =  g_repid
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
    is_layout                      = ls_layout
    it_fieldcat                    = xt_fieldcat[]
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
     i_tabname_header        = g_tabname_header
      i_tabname_item           = g_tabname_item
      is_keyinfo               = gs_keyinfo
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
   TABLES
     t_outtab_header                =  t_ekko
     t_outtab_item                  =  t_ekpo.
EXCEPTIONS
  PROGRAM_ERROR                  = 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.
**&      Form  layout_build
      text
     -->XS_LAYOUT  text
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
   I_INTERFACE_CHECK              = g_repid
   I_CALLBACK_PROGRAM             = g_repid
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
   IS_LAYOUT                      = ls_layout
   IT_FIELDCAT                    = xt_fieldcat[]
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
    i_tabname_header               = g_tabname_header
    i_tabname_item                 =  g_tabname_item
   I_STRUCTURE_NAME_HEADER        =
   I_STRUCTURE_NAME_ITEM          =
    is_keyinfo                     = gs_keyinfo
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  tables
    t_outtab_header                =
    t_outtab_item                  =
EXCEPTIONS
  PROGRAM_ERROR                  = 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.
FORM layout_build  CHANGING xs_layout TYPE slis_layout_alv.
  xs_layout-colwidth_optimize = 'X'.
XS_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
ENDFORM.                    "layout_build
*&      Form  fieldcat_build
      text
     -->XT_FIELDCATtext
FORM fieldcat_build  CHANGING xt_fieldcat
    TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
FIELD-SYMBOLS <fs> TYPE slis_fieldcat_alv.
LOOP AT xt_fieldcat ASSIGNING <fs> .
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ebeln'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'lifnr'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'aedat'.
  ls_fieldcat-tabname      = g_tabname_header.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ebeln'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ebelp'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'matnr'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'menge'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'netpr'.
  ls_fieldcat-tabname      = g_tabname_item.
  ls_fieldcat-no_out       = 'X'.
  ls_fieldcat-no_sum       = 'X'.
  APPEND ls_fieldcat TO xt_fieldcat.
LOOP AT xt_fieldcat.
   WRITE:'netpr'.
ENDLOOP.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               =  g_repid
     i_internal_tabname           =  g_tabname_header
     i_structure_name             = 'EKKO'
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_INCLNAME                   =
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  =  xt_fieldcat.
  EXCEPTIONS
    INCONSISTENT_INTERFACE       = 1
    PROGRAM_ERROR                = 2
    OTHERS                       = 3
  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 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = g_repid
     i_internal_tabname           =  g_tabname_item
     i_structure_name             = 'EKPO'
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_INCLNAME                   =
  I_BYPASSING_BUFFER           =
  I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = xt_fieldcat
EXCEPTIONS
  INCONSISTENT_INTERFACE       = 1
  PROGRAM_ERROR                = 2
  OTHERS                       = 3
  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.                    "fieldcat_build
*&      Form  e02_data_add
      text
     -->IT_EKKO    text
FORM e02_data_add TABLES it_ekko STRUCTURE t_ekko.
  LOOP AT it_ekko.
    WRITE:'sandeep'.
  ENDLOOP.
ENDFORM.                    "e02_data_add

Answer 1

HI ,
    U please Copy and paste the code below, i have made some changes and its working, Award points if your problem is solved
*& Report ZSAND_ALV_PRG *
REPORT zsand_alv_prg NO STANDARD PAGE HEADING.
TYPE-POOLS: slis.
TABLES: ekpo,ekko,makt.
INCLUDE <icon>.
INCLUDE <symbol>.
DATA: g_repid LIKE sy-repid.
DATA:BEGIN OF t_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
END OF t_ekpo.
DATA:BEGIN OF t_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
lifnr LIKE ekko-lifnr,
aedat LIKE ekko-aedat,
*EXPAND,
END OF t_ekko.
*DATA:BEGIN OF t_final OCCURS 0,
*ebeln LIKE ekpo-ebeln,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
lifnr LIKE ekko-lifnr,
*aedat LIKE ekko-aedat,
*END OF t_final.
DATA: maktx LIKE makt-maktx.
DATA:tot_price(5)." type i default 0.
CONSTANTS:
c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: xt_fieldcat TYPE slis_t_fieldcat_alv,
ls_layout TYPE slis_layout_alv,
gs_keyinfo TYPE slis_keyinfo_alv.
gt_sp_group TYPE slis_t_sp_group_alv,
gt_events TYPE slis_t_event,
gx_variant LIKE disvariant,
g_variant LIKE disvariant.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname,
g_save(1) TYPE c.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
INITIALIZATION.
  g_repid = sy-repid.
  g_tabname_header = 'T_EKKO'.
  g_tabname_item = 'T_EKPO'.
  CLEAR gs_keyinfo.
  gs_keyinfo-header01 = 'EBELN'.
  gs_keyinfo-item01 = 'EBELN'.
START-OF-SELECTION.
  SELECT ebeln lifnr aedat
  INTO CORRESPONDING FIELDS OF TABLE t_ekko
  FROM ekko
  WHERE ebeln IN s_ebeln.
  SELECT ek~ebeln ep~matnr ep~menge ep~netpr ep~ebelp
  INTO CORRESPONDING FIELDS OF TABLE t_ekpo
  FROM ekko AS ek INNER JOIN ekpo AS ep
  ON ek~ebeln = ep~ebeln
  WHERE ek~ebeln IN s_ebeln.
LOOP AT g_tabname_header.
write:t_ekpo-matnr.
ENDLOOP.
  PERFORM layout_build CHANGING ls_layout.
  PERFORM fieldcat_build CHANGING xt_fieldcat.
PERFORM e02_data_add TABLES t_ekko.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = g_repid
i_callback_program = g_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
is_layout = ls_layout
it_fieldcat = xt_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
i_tabname_header = g_tabname_header
i_tabname_item = g_tabname_item
is_keyinfo = gs_keyinfo
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab_header = t_ekko
t_outtab_item = t_ekpo.
EXCEPTIONS
PROGRAM_ERROR = 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.
**& Form layout_build
text
-->XS_LAYOUT text
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
  i_interface_check = g_repid
  i_callback_program = g_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
  is_layout = ls_layout
  it_fieldcat = xt_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
  i_tabname_header = g_tabname_header
  i_tabname_item = g_tabname_item
*I_STRUCTURE_NAME_HEADER =
*I_STRUCTURE_NAME_ITEM =
  is_keyinfo = gs_keyinfo
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
  TABLES
  t_outtab_header = t_ekko
  t_outtab_item = t_ekpo
EXCEPTIONS
PROGRAM_ERROR = 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.
*&      Form  layout_build
      text
     -->XS_LAYOUT  text
FORM layout_build CHANGING xs_layout TYPE slis_layout_alv.
  xs_layout-colwidth_optimize = 'X'.
XS_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
ENDFORM. "layout_build
*& Form fieldcat_build
text
-->XT_FIELDCATtext
FORM fieldcat_build CHANGING xt_fieldcat
TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.
FIELD-SYMBOLS <fs> TYPE slis_fieldcat_alv.
LOOP AT xt_fieldcat ASSIGNING <fs> .
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ebeln'.
ls_fieldcat-tabname = g_tabname_header.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'lifnr'.
ls_fieldcat-tabname = g_tabname_header.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'aedat'.
ls_fieldcat-tabname = g_tabname_header.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ebeln'.
ls_fieldcat-tabname = g_tabname_item.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ebelp'.
ls_fieldcat-tabname = g_tabname_item.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'matnr'.
ls_fieldcat-tabname = g_tabname_item.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'menge'.
ls_fieldcat-tabname = g_tabname_item.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'netpr'.
ls_fieldcat-tabname = g_tabname_item.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-no_sum = 'X'.
APPEND ls_fieldcat TO xt_fieldcat.
LOOP AT xt_fieldcat.
WRITE:'netpr'.
ENDLOOP.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
  i_program_name = g_repid
  i_internal_tabname = g_tabname_header
i_structure_name = 'EKKO'
I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = g_repid
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
  CHANGING
  ct_fieldcat = xt_fieldcat.
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
  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 'REUSE_ALV_FIELDCATALOG_MERGE'
  EXPORTING
  i_program_name = g_repid
  i_internal_tabname = g_tabname_item
i_structure_name = 'EKPO'
I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = g_repid
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
  CHANGING
  ct_fieldcat = xt_fieldcat
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
  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. "fieldcat_build
*& Form e02_data_add
text
-->IT_EKKO text
FORM e02_data_add TABLES it_ekko STRUCTURE t_ekko.
  LOOP AT it_ekko.
    WRITE:'sandeep'.
  ENDLOOP.
ENDFORM. "e02_data_add
Regards,
Kasi S