Question regarding the date in MARC for a daily movement report

Question

Hi,
I have a requirement, where i need to create a report, based on the selection screen parameters for <u>purchasing group</u> and <u>date</u> (the default is 1 minus the current date.)
The report is used to view the daily movement, relating to the selected purchasing group and date.
Where and how do i find entries for that specific date? What tables and field or fields do i use?
Points will be rewarded and all help will be greatly appreciated.
Thank You,
John

Answer 1

See the below example code :
REPORT ZQA_MOVEMENT_ANALYSIS no standard page heading.
*>>> ELEMENTS COPIED FROM REPORT BALVHT01 .
ALV
TYPE-POOLS: SLIS.
Includes
INCLUDE .
tables: mkpf, mseg, marc, mara, makt, mard.
DATA =============================================================== *
DATA:       G_BOXNAM TYPE SLIS_FIELDNAME VALUE  'BOX',
            G_EXPANDNAME TYPE SLIS_FIELDNAME VALUE  'EXPAND',
            P_F2CODE LIKE SY-UCOMM       VALUE  '&ETA',
            P_LIGNAM TYPE SLIS_FIELDNAME VALUE  'LIGHTS',
            G_SAVE(1) TYPE C,
            G_TABNAME_HEADER TYPE SLIS_TABNAME,
            G_TABNAME_ITEM   TYPE SLIS_TABNAME,
          g_default(1) type c,
            G_EXIT(1) TYPE C,
            GX_VARIANT LIKE DISVARIANT,
            G_VARIANT LIKE DISVARIANT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
GC_FORMNAME_ITEM_EXPAND TYPE SLIS_FORMNAME VALUE 'ITEM_EXPAND',
GC_FORMNAME_user_command type slis_formname value slis_ev_user_command.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      GS_LAYOUT   TYPE SLIS_LAYOUT_ALV,
      GS_KEYINFO  TYPE SLIS_KEYINFO_ALV,
      GT_SORT     TYPE SLIS_T_SORTINFO_ALV,
      GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GT_EVENTS   TYPE SLIS_T_EVENT.
DATA: G_REPID LIKE SY-REPID.
DATA: GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
data: begin of i_movement occurs 0,
        matnr   like mseg-matnr,
        bwart   like mseg-bwart,
        budat   like mkpf-budat,
        mblnr   like mseg-mblnr,
        gjahr   like mseg-gjahr,
        shkzg   like mseg-shkzg,
        menge   like mseg-menge,
        meins   like mseg-meins,
      end of i_movement.
data: begin of i_mat occurs 0,
        matnr   like mara-matnr,
        maktx   like makt-maktx,
        labst   like mard-labst,
        meins   like mara-meins,
      end of i_mat.
data: begin of i_output occurs 0.
        include structure ZFD_MOVEMENT_ANALYSIS.
data:  end of i_output.
data i_popuptext like popuptext occurs 2 with header line.
data: v_matnr like mara-matnr.
data: x_movement  like i_movement.
SELECTION-SCREEN --------------------------------------------------- *
SELECTION-SCREEN BEGIN OF BLOCK period WITH FRAME TITLE text-001.
select-options: so_budat   for mkpf-budat obligatory no-extension.
SELECTION-SCREEN END OF BLOCK period.
SELECTION-SCREEN BEGIN OF BLOCK org WITH FRAME TITLE text-002.
parameters: p_werks   like marc-werks obligatory default '1000',
            p_lgort    like mard-lgort obligatory default '1000'.
select-options: so_matnr   for mseg-matnr,
                so_dept    for marc-zzdept,
                so_kostl   for mseg-kostl,
                so_ekgrp   for marc-ekgrp.
SELECTION-SCREEN END OF BLOCK org.
SELECTION-SCREEN SKIP 1.
Variant
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-P01.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK 0.
INITITALIZATION ==================================================== *
INITIALIZATION.
  G_REPID = SY-REPID.
  G_TABNAME_ITEM   = 'I_OUTPUT'.
define keyinfo
  CLEAR GS_KEYINFO.
  GS_KEYINFO-ITEM01   = 'MATNR'.
  PERFORM E01_FIELDCAT_INIT  USING GT_FIELDCAT[].
  PERFORM E03_EVENTTAB_BUILD USING GT_EVENTS[].
  PERFORM E04_COMMENT_BUILD  USING GT_LIST_TOP_OF_PAGE[].
  PERFORM E06_T_SORT_BUILD   USING GT_SORT[].
  PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].
Set Options: save variants userspecific or general
  G_SAVE = 'A'.
  PERFORM VARIANT_INIT.
Get default variant
  GX_VARIANT = G_VARIANT.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            I_SAVE     = G_SAVE
       CHANGING
            CS_VARIANT = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND  = 2.
  IF SY-SUBRC = 0.
    P_VARI = GX_VARIANT-VARIANT.
  ENDIF.
AT SELECTION-SCREEN ================================================ *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
  PERFORM F4_FOR_VARIANT.
PAI
AT SELECTION-SCREEN.
  PERFORM PAI_OF_SELECTION_SCREEN.
START-OF-SELECTION ================================================= *
start-of-selection.
  perform check_background_processing.
  PERFORM E05_LAYOUT_BUILD USING GS_LAYOUT.     "wg. Parameters
  perform get_data.
  perform build_report.
  perform write_report.
AT LINE SELECTION ================================================== *
at line-selection.
  if sy-lsind = 1.
    format intensified off.
    if not i_output-matnr is initial.
      v_matnr = i_output-matnr.
      loop at i_movement where matnr = i_output-matnr.
        write: / i_movement-mblnr hotspot on,
                 i_movement-bwart,
                 i_movement-budat,
                 i_movement-shkzg.
        if i_movement-shkzg = 'H'.
          format color col_negative.
        else.
          format color col_positive.
        endif.
        write:     i_movement-menge,
                   i_movement-meins.
        format color off.
        hide: i_movement-mblnr, i_movement-gjahr.
      endloop.
      clear i_movement.
    endif.
  elseif sy-lsind = 2.
    set parameter id 'MBN' field i_movement-mblnr.
    set parameter id 'MJA' field i_movement-gjahr.
    call transaction 'MB03' and skip first screen.
  endif.
==================================================================== *
top-of-page.
  perform top_of_page.
top-of-page during line-selection.
  read table i_mat with key matnr = i_output-matnr.
  write: i_output-matnr,
         i_mat-maktx,
         so_budat-low, ' to ', so_budat-high.
  uline.
  clear: i_mat, i_output.
*&      Form  write_report
      text
-->  p1        text
<--  p2        text
FORM write_report.
Call ABAP/4 List Viewer
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
      I_CALLBACK_PROGRAM             = g_repid
    I_CALLBACK_PF_STATUS_SET       = ' '
    I_CALLBACK_USER_COMMAND        = ' '
    I_STRUCTURE_NAME               =
      IS_LAYOUT                      = gs_layout
      IT_FIELDCAT                    = gt_fieldcat[]
    IT_EXCLUDING                   =
      IT_SPECIAL_GROUPS              = gt_sp_group[]
      IT_SORT                        = gt_sort[]
    IT_FILTER                      =
    IS_SEL_HIDE                    =
    I_DEFAULT                      = 'X'
      I_SAVE                         = g_save
      IS_VARIANT                     = g_variant
      IT_EVENTS                      = gt_events[]
    IT_EVENT_EXIT                  =
    IS_PRINT                       =
    IS_REPREP_ID                   =
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = i_output
    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.
ENDFORM.                    " write_report
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data.
  if so_dept[]    is initial and
     so_matnr[]   is initial and
     so_kostl[]   is initial and
     so_ekgrp[]   is initial.
    i_popuptext-text = 'Please choose a department, material number,'.
    append i_popuptext.
    i_popuptext-text = 'cost center or purchasing group'.
    append i_popuptext.
    CALL FUNCTION 'DD_POPUP_WITH_INFOTEXT'
      EXPORTING
        TITEL              = 'Please Note'
        START_COLUMN       = 1
        START_ROW          = 1
        END_COLUMN         = 5
        END_ROW            = 3
      INFOFLAG           = ' '
    IMPORTING
      ANSWER             =
      TABLES
        LINES          = i_popuptext.
  Stop execution until user enters a purch group or dept.
    stop.
  endif.
get all materials matching selection criteria - exclude finished
materials
  select kmatnr kmaktx labst meins
  from ( ( ( marc as c inner join makt as k
           on cmatnr = kmatnr ) INNER JOIN mard as d
           on cmatnr = dmatnr ) INNER JOIN mara as a
           on cmatnr = amatnr )
  into table i_mat
  where c~matnr in so_matnr   and
        c~ekgrp in so_ekgrp   and
        c~zzdept in so_dept   and
        c~werks  = p_werks    and
        d~werks  = p_werks    and
        k~spras  = 'E'        and
        d~lgort  = p_lgort
  order by k~matnr.
  if sy-subrc = 0.
    read table so_budat index 1.
    loop at i_mat.
    get all material movements for all materials identified since
    start date on date interval selected by user
      select matnr bwart budat bmblnr bgjahr shkzg menge meins
      appending table i_movement
      from (  mseg as b INNER JOIN mkpf as a
            ON bmblnr = amblnr AND
               bmjahr = amjahr )
      where b~matnr = i_mat-matnr and
            a~budat >= so_budat-low.
    endloop.
  endif.
ENDFORM.                    " get_data
*&      Form  build_report
      text
-->  p1        text
<--  p2        text
FORM build_report.
  data: x_movement        like i_movement,
        v_processed_inv   like mseg-menge.
  sort i_movement by matnr ascending
                     budat descending.
  loop at i_movement.
  if movement after end of period specified, use movement to work
  backwards to inventory at end of selected period end date
    if i_movement-budat > so_budat-high.
      if i_movement-shkzg = 'H'.
        add i_movement-menge to i_output-ending_inv.
      else.
        subtract i_movement-menge from i_output-ending_inv.
      endif.
    endif.
  compute inventory at beginning of period
    if i_movement-shkzg = 'H'.
      add i_movement-menge to i_output-begin_inv.
    else.
      subtract i_movement-menge from i_output-begin_inv.
    endif.
  if movement in the time period specified, summarize movements by
  type
    if i_movement-budat >= so_budat-low and
       i_movement-budat <= so_budat-high.
      if i_movement-bwart+0(1) = '1'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-purchased_inv.
        else.
          subtract i_movement-menge from i_output-purchased_inv.
        endif.
      elseif i_movement-bwart+0(1) = '2'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-transferred_inv.
        else.
          subtract i_movement-menge from i_output-transferred_inv.
        endif.
      elseif i_movement-bwart+0(1) = '4'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-transferred_inv.
        else.
          subtract i_movement-menge from i_output-transferred_inv.
        endif.
      elseif i_movement-bwart+0(2) = '55'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-scrapped_inv.
        else.
          subtract i_movement-menge from i_output-scrapped_inv.
        endif.
      elseif i_movement-bwart+0(1) = '6'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-sold_inv.
        else.
          subtract i_movement-menge from i_output-sold_inv.
        endif.
      elseif i_movement-bwart+0(1) = '7'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-cycled_inv.
        else.
          subtract i_movement-menge from i_output-cycled_inv.
        endif.
      elseif i_movement-bwart+0(2) = '96'.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-recovered_inv.
        else.
          subtract i_movement-menge from i_output-recovered_inv.
        endif.
      else.
        if i_movement-shkzg = 'S'.
          add i_movement-menge to i_output-other.
        else.
          subtract i_movement-menge from i_output-other.
        endif.
      endif.
    endif.
  Summarize data for material number and add to output list
    x_movement = i_movement.
    at end of matnr.
      clear i_mat.
      read table i_mat with key matnr = i_movement-matnr.
      i_output-maktx = i_mat-maktx.
    inventory at end of period = current inventory + changes since end
    of period
      add i_mat-labst to i_output-ending_inv.
    inventory at begin of period = ending inventory + changes in
    interval
      add i_mat-labst to i_output-begin_inv.
    build percentages for types of movements in period - the only
    reason this data needs to be stored rather than computed on the
    fly is for sorting of data
      v_processed_inv = ( i_output-begin_inv - i_output-ending_inv )
                        + i_output-purchased_inv.
      if v_processed_inv <> 0.
        i_output-percent_sold =
              ( i_output-sold_inv / v_processed_inv ) * 100 * -1.
        i_output-percent_scrapped =
              ( i_output-scrapped_inv / v_processed_inv ) * 100 * -1.
        i_output-percent_transferred =
              ( i_output-transferred_inv / v_processed_inv ) * 100 * -1.
        i_output-percent_cycled =
              ( i_output-cycled_inv / v_processed_inv ) * 100 * -1.
        i_output-percent_recov =
              ( i_output-recovered_inv / v_processed_inv ) * 100 * -1.
        i_output-other =
              ( i_output-other / v_processed_inv ) * 100 * -1.
      endif.
    record material number
      move i_movement-matnr to i_output-matnr.
      i_output-meins = x_movement-meins.
      append i_output.
      clear i_output.
    endat.
  endloop.
  clear i_movement.
ENDFORM.                    " build_report
      FORM E01_FIELDCAT_INIT                                        *
-->  E01_LT_FIELDCAT                                               *
FORM E01_FIELDCAT_INIT USING E01_LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
  DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
          I_PROGRAM_NAME         =
            I_INTERNAL_TABNAME     = G_TABNAME_ITEM
            I_STRUCTURE_NAME       = 'ZFD_MOVEMENT_ANALYSIS'
          I_CLIENT_NEVER_DISPLAY = 'X'
            I_BYPASSING_BUFFER     = 'X'
       CHANGING
            CT_FIELDCAT            = E01_LT_FIELDCAT[].
ENDFORM.
      FORM E03_EVENTTAB_BUILD                                       *
-->  E03_LT_EVENTS                                                 *
FORM E03_EVENTTAB_BUILD USING E03_LT_EVENTS TYPE SLIS_T_EVENT.
  DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 1
       IMPORTING
            ET_EVENTS   = E03_LT_EVENTS.
tell program which form to call for top of page event
  READ TABLE E03_LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO E03_LT_EVENTS.
  ENDIF.
tell program which form to call for item expand event
  READ TABLE E03_LT_EVENTS WITH KEY NAME = slis_ev_item_data_expand
                           INTO LS_EVENT.
  IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_ITEM_EXPAND TO LS_EVENT-FORM.
    APPEND LS_EVENT TO E03_LT_EVENTS.
  ENDIF.
ENDFORM.
      FORM E04_COMMENT_BUILD                                        *
-->  E04_LT_TOP_OF_PAGE                                            *
FORM E04_COMMENT_BUILD USING E04_LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
  DATA: LS_LINE TYPE SLIS_LISTHEADER.
Listenüberschrift: Typ H
  CLEAR LS_LINE.
  LS_LINE-TYP  = 'H'.
LS_LINE-KEY:  not used for this type
  write sy-datum to LS_LINE-INFO.
  APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
  CLEAR LS_LINE.
  LS_LINE-TYP  = 'H'.
LS_LINE-KEY:  not used for this type
  LS_LINE-INFO = 'FreshDirect Product Reorder Report'.
  APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
Kopfinfo: Typ S
CLEAR LS_LINE.
LS_LINE-TYP  = 'S'.
LS_LINE-KEY  = TEXT-050.
LS_LINE-INFO = TEXT-010.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
LS_LINE-KEY  = TEXT-051.
APPEND LS_LINE TO E04_LT_TOP_OF_PAGE.
Aktionsinfo: Typ A
CLEAR LS_LINE.
LS_LINE-TYP  = 'A'.
LS_LINE-KEY:  not used for this type
LS_LINE-INFO = TEXT-002.
APPEND LS_LINE TO  E04_LT_TOP_OF_PAGE.
ENDFORM.
      FORM E05_LAYOUT_BUILD                                         *
<->  E05_LS_LAYOUT                                                 *
FORM E05_LAYOUT_BUILD USING E05_LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
  E05_LS_LAYOUT-F2CODE            = P_F2CODE.
  E05_LS_LAYOUT-ZEBRA             = 'X'.
  E05_LS_LAYOUT-colwidth_optimize = 'X'.
ENDFORM.
      FORM E06_T_SORT_BUILD                                         *
-->  E06_LT_SORT                                                   *
FORM E06_T_SORT_BUILD USING E06_LT_SORT TYPE SLIS_T_SORTINFO_ALV.
  DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
  CLEAR LS_SORT.
  LS_SORT-FIELDNAME = 'MATNR'.
  LS_SORT-TABNAME   = G_TABNAME_ITEM.
  LS_SORT-SPOS      = 1.
  LS_SORT-UP        = 'X'.
  APPEND LS_SORT TO E06_LT_SORT.
ENDFORM.
      FORM E07_SP_GROUP_BUILD                                       *
-->  E07_LT_SP_GROUP                                               *
FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.
  DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.
  CLEAR  LS_SP_GROUP.
  LS_SP_GROUP-SP_GROUP = 'A'.
  LS_SP_GROUP-TEXT     = TEXT-005.
  APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.
ENDFORM.
      FORM TOP_OF_PAGE                                              *
FORM TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
              data v_repid like sy-repid.
write: / sy-datum, sy-uzeit,
   100 'FreshDirect Material Movement Type Analysis Report'.
show parameters chosen on selection screen in header
v_repid = sy-repid.
CALL FUNCTION 'Z_WRITE_SELECTION_SCREEN'
      EXPORTING
           REPID            = v_repid
      EXCEPTIONS
           REPORT_NOT_FOUND = 1
           OTHERS           = 2.
write column headings
format color col_heading.
write: /(18) 'Material #',
         (40) 'Description',
         (16) '  Beginning Inv.',
         (16) '       Purchased',
         (16) '  Available Inv.',
         (16) '     Ending Inv.',
         (16) '  Processed Inv.',
         (25) '                     Sold',
         (25) '                 Scrapped',
         (25) '              Transferred',
         (25) '            Cycle Counted',
         (25) '                    Other'.
format color off.
uline /1(278).
ENDFORM.
      FORM F4_FOR_VARIANT                                           *
FORM F4_FOR_VARIANT.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            IS_VARIANT          = G_VARIANT
            I_SAVE              = G_SAVE
            I_TABNAME_HEADER    = G_TABNAME_HEADER
            I_TABNAME_ITEM      = G_TABNAME_ITEM
          it_default_fieldcat =
       IMPORTING
            E_EXIT              = G_EXIT
            ES_VARIANT          = GX_VARIANT
       EXCEPTIONS
            NOT_FOUND = 2.
  IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
  ENDIF.
ENDFORM.
*&      Form  PAI_OF_SELECTION_SCREEN
      text
FORM PAI_OF_SELECTION_SCREEN.
  IF NOT P_VARI IS INITIAL.
    MOVE G_VARIANT TO GX_VARIANT.
    MOVE P_VARI TO GX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              I_SAVE     = G_SAVE
         CHANGING
              CS_VARIANT = GX_VARIANT.
    G_VARIANT = GX_VARIANT.
  ELSE.
    PERFORM VARIANT_INIT.
  ENDIF.
ENDFORM.                               " PAI_OF_SELECTION_SCREEN
*&      Form  VARIANT_INIT
      text
-->  p1        text
<--  p2        text
FORM VARIANT_INIT.
  CLEAR G_VARIANT.
  G_VARIANT-REPORT = G_REPID.
ENDFORM.                               " VARIANT_INIT
INCLUDE ZQA_UTILITY_INCLUDE.
***INCLUDE ZQA_UTILITY_INCLUDE .
*&      Form  display_popup_message
      text
-->  p1        text
<--  p2        text
form display_popup_message using x_text1
                                 x_text2.
  data: int_popuptext like popuptext occurs 2 with header line.
  int_popuptext-text = x_text1.
  append int_popuptext.
  int_popuptext-text = x_text2.
  append int_popuptext.
  call function 'DD_POPUP_WITH_INFOTEXT'
    exporting
      titel              = 'Please Note'
      start_column       = 1
      start_row          = 1
      end_column         = 5
      end_row            = 3
    tables
      lines          = int_popuptext.
endform.                    " display_popup_message
*&      Form  upload_data_file
      text
     -->P_int_INPUTDATA  text
form upload_data_file tables      x_inputdata
                      using x_filename like rlgrap-filename.
  clear x_inputdata.
  refresh x_inputdata.
file on UNIX app server
  if x_filename+0(1) = '/'.
    open dataset x_filename for input.
    if sy-subrc <> 0.
      perform display_popup_message using 'Error opening file'
                                  x_filename.
      stop.
    else.
      do.
        read dataset x_filename into x_inputdata.
        if sy-subrc <> 0.
          exit.
        endif.
        append x_inputdata.
        clear x_inputdata.
      enddo.
    endif.
    close dataset x_filename.
  else.
file on local PC of GUI
    call function 'UPLOAD'
      exporting
        filename                      = x_filename
        filetype                      = 'ASC'
      tables
        data_tab                      = x_inputdata
     exceptions
       conversion_error              = 1
       invalid_table_width           = 2
       invalid_type                  = 3
       no_batch                      = 4
       unknown_error                 = 5
       guint_refuse_filetransfer       = 6
       others                        = 7
    if sy-subrc <> 0.
      perform display_popup_message using 'Error opening file'
                                    x_filename.
      stop.
    endif.
  endif.
endform.                    " upload_data_file
*&      Form  check_background_processing
      text
-->  p1        text
<--  p2        text
form check_background_processing.
endform.                    " check_background_processing
Reward Points if it is helpful
Thanks
Seshu