Hi pls help me with this speck.. very urgent...

Question

REPORT zm_material_prodhier_update  MESSAGE-ID zsd
                                    NO STANDARD PAGE HEADING
                                    LINE-SIZE 160.
Tables
TABLES: mara,mvke.
Data Definitions.
TYPES: BEGIN OF ty_mat,
         matnr     TYPE mara-matnr,
         vkorg     TYPE mvke-vkorg,                " Sales Org
         vtweg     TYPE mvke-vtweg,                " Dist. Channel
         prdha     TYPE mara-prdha,                " Prod Hierarchy
         err(60)   TYPE C,
       END OF ty_mat.
DATA: gt_matnr     TYPE STANDARD TABLE  OF ty_mat WITH HEADER LINE,
      gt_matnr_err TYPE STANDARD TABLE  OF ty_mat WITH HEADER LINE.
DATA: gs_matnr_err TYPE ty_mat.
DATA: lv_file_name    TYPE string,
      lv_message(200) TYPE c.
For BAPI
DATA: headdata             TYPE bapimathead,
      clientdata           TYPE bapi_mara,
      clientdatax          TYPE bapi_marax,
      return               TYPE bapiret2,
      salesdata            TYPE bapi_mvke,
      salesdatax           TYPE bapi_mvkex.
DATA: ret  TYPE STANDARD TABLE OF bapi_matreturn2 WITH HEADER LINE.
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b001 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_matnr FOR mara-matnr,
                s_vkorg FOR mvke-vkorg OBLIGATORY,
                s_vtweg FOR mvke-vtweg OBLIGATORY,
                s_matkl FOR mara-matkl.
SELECTION-SCREEN END OF BLOCK b001.
SELECTION-SCREEN BEGIN OF BLOCK b002 WITH FRAME TITLE text-002.
    PARAMETERS: p_err       TYPE localfile OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b002.
At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_err.
  PERFORM get_filename USING 'Output - Error File'
                       CHANGING p_err.
START-OF-SELECTION.
START-OF-SELECTION.
  PERFORM 100_collect_dbrecs.
  PERFORM 200_process_dbrecs.
END-OF-SELECTION.
*&     TOP-OF-PAGE.
TOP-OF-PAGE.
  WRITE: 40 'Material Product Hierarchy Update Report'.
  ULINE (115).
*SKIP.
  WRITE: /'MATERIAL'.
  WRITE: /.
  ULINE (115).
*&      Form  100_collect_dbrecs
FORM 100_collect_dbrecs .
  SELECT   maramatnr mvkevkorg mvkevtweg maraprdha
     INTO  CORRESPONDING FIELDS OF TABLE gt_matnr
     FROM  mara INNER JOIN mvke
     ON    maramatnr = mvkematnr
     WHERE mara~matnr IN s_matnr
       AND mara~prdha NE space
       AND mara~matkl IN s_matkl
       AND mara~lvorm EQ space
       AND mvke~vkorg IN s_vkorg
       AND mvke~vtweg IN s_vtweg
       AND mvke~prodh EQ space.
ENDFORM.                    " 100_collect_dbrecs
*&      Form  200_process_dbrecs
FORM 200_process_dbrecs.
  IF gt_matnr[] IS INITIAL.
    MESSAGE s000 WITH 'No Materials Processed.'.
  ELSE.
    LOOP AT gt_matnr.
      CLEAR:  headdata,
              clientdata,
              clientdatax,
              return,
              salesdata  ,
              salesdatax,
              ret.
      REFRESH: ret.
Filling Material.
      MOVE: gt_matnr-matnr   TO headdata-material,
            'X'              TO headdata-sales_view.
Sales Org
      MOVE: gt_matnr-vkorg TO salesdata-sales_org,
            gt_matnr-vkorg TO salesdatax-sales_org.
*Dist Channel
      MOVE: gt_matnr-vtweg TO salesdata-distr_chan,
            gt_matnr-vtweg TO salesdatax-distr_chan.
*Prod Hierarchy
      MOVE: gt_matnr-prdha TO salesdata-prod_hier,
            'X'            TO salesdatax-prod_hier.
      PERFORM  220_bapi_call.
      CLEAR: gt_matnr.
    ENDLOOP.
Download Error Files
    IF gt_matnr_err[] IS INITIAL.
no errors to be downloaded
    ELSE.
Error File being downloaded.
  lv_file_name = p_err.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      filename                = lv_file_name
      filetype                = 'ASC'
    TABLES
      data_tab                = gt_matnr_err
    EXCEPTIONS
      file_write_error        = 1
      no_batch                = 2
      gui_refuse_filetransfer = 3
      invalid_type            = 4
      no_authority            = 5
      unknown_error           = 6
      header_not_allowed      = 7
      separator_not_allowed   = 8
      filesize_not_allowed    = 9
      header_too_long         = 10
      dp_error_create         = 11
      dp_error_send           = 12
      dp_error_write          = 13
      unknown_dp_error        = 14
      access_denied           = 15
      dp_out_of_memory        = 16
      disk_full               = 17
      dp_timeout              = 18
      file_not_found          = 19
      dataprovider_exception  = 20
      control_flush_error     = 21
      OTHERS                  = 99.
  IF sy-subrc = 0.
    WRITE: /05 'Error File Download - Successful.'.
  ELSE.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            INTO lv_message.
    FORMAT INTENSIFIED ON.
    WRITE: /05 'Write error:', lv_message COLOR COL_NEGATIVE.
  ENDIF.
    ENDIF.
  ENDIF.
ENDFORM.                    " 200_process_dbrecs
*&      Form  220_BAPI_CALL
FORM 220_bapi_call .
  DATA: lv_message(60) TYPE c.
  CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
    EXPORTING
      headdata       = headdata
      clientdata     = clientdata
      clientdatax    = clientdatax
      salesdata      = salesdata
      salesdatax     = salesdatax
    IMPORTING
      return         = return
    TABLES
      returnmessages = ret.
  IF sy-subrc EQ 0.
    MOVE : return-message TO lv_message.
    IF return-type EQ 'E'.
      WRITE: /  gt_matnr-matnr,
               'Change Failed -', lv_message.
      MOVE-CORRESPONDING gt_matnr TO gs_matnr_err.
      APPEND gs_matnr_err to gt_matnr_err. CLEAR gs_matnr_err.
    ELSE.
      WRITE: / gt_matnr-matnr,
               'Change Successful -', lv_message, ' for ', gt_matnr-vkorg,' ', gt_matnr-vtweg.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
      COMMIT WORK.
    ENDIF.
  ENDIF.
ENDFORM.                    " 220_BAPI_CALL
*&      Form  get_filename
      Call up a dialog window to retrieve the filename
     --> P_FILETITLE    Dialog file title
     <-- P_FILENAME     FIle name retrieved
FORM get_filename  USING    p_filetitle         TYPE c
                   CHANGING p_filename          TYPE localfile.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = ' '
      def_path         = ' '
      mask             = ',.,..'
      mode             = 'O'
      title            = p_filetitle
    IMPORTING
      filename         = p_filename
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.
ENDFORM.                    " get_filename
the program reads the product higher from Basic View to Sales View.
You all must be familiar with this program.
Modify the program with option(radio button) to be able to run the program in foreground and background.
Currently the program should in foreground mode.
Add to this program option so this program is executed in the background and the file is downloaded as well.
can anyone help me by editing the code n givin one sample prog..
kindly help.
Thnx
Naveen

Answer 1

Hi Naveen,
you mean background is job scheduling if yes you couldnt down load the file into Desktop bec sys my be swithc-off, in this case you can down load the file into application server or you can create the display normal report while program run in back ground.
Here i am giving code for background.
PARAMETERS      : p_dload_fg AS CHECKBOX,
                              p_dload_bg AS CHECKBOX
download the data into Local pc file
  IF p_dload_fg EQ 'X'.
    PERFORM file_download.
  ENDIF.
  IF sy-batch NE space.
*Display normal report when this program put in
*batch job
    PERFORM normal_report.  " this is to dispaly normal report
download the data into Application Server
IF p_dload_bg EQ 'X'.
    PERFORM file_download. " this is for down load the file into Apllication sercver.
  ENDIF.
  ELSE.  " If program run in foreground.
    IF NOT gt_matnr[] IS INITIAL.
*Display the output data in ALV
      PERFORM alv_report.
    ELSE.
      MESSAGE s999 WITH text-001.
    ENDIF.
  ENDIF.
<b>
NOTE</b> : try to avoid the joins with replacing FOR ALL ENTRIES to better performance ,while selection the data from d/b.
Let me know if u have any doubts.
<b>Reward with points if helpful.</b>
Regards,
Vijay