Asset Deletion Report through BDC Recording(SM35)

*&---------------------------------------------------------------------*
*& Report  ZAM_Asset_Deletion
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZAM_Asset_Deletion.

DATA: bdcdata LIKE bdcdata OCCURS0WITHHEADERLINE.

DATA: BEGINOF record OCCURS10,
ANLN1TYPEANLA-ANLN1,

ANLN2 TYPE ANLA-ANLN2,

ENDOF record.

SELECTION-SCREENBEGINOFBLOCK abc WITHFRAMETITLEtext-001.
PARAMETERS: file(128).
SELECTION-SCREENENDOFBLOCK abc.

AT SELECTION-SCREENONVALUE-REQUEST FOR file.
CALLFUNCTION'WS_FILENAME_GET'
EXPORTING
mask             = ',TXT FILE,*.txt,All Files,*.*. '
mode             = 'o '
IMPORTING
filename         = file
EXCEPTIONS
inv_winsys       = 1
no_batch         = 2
selection_cancel = 3
selection_error  = 4
OTHERS           = 5.

***************************************************
*Transfer data from external file to internal table
***************************************************
START-OF-SELECTION.
CALLFUNCTION'WS_UPLOAD'
EXPORTING
filename = file
filetype = 'DAT'
TABLES
data_tab = record.

*******************************************
*Run Transaction Upload
*******************************************
START-OF-SELECTION.


LOOPAT record.

PERFORM bdc_dynpro      USING'SAPLAIST''0100'.

PERFORM bdc_field       USING'BDC_CURSOR'
'ANLA-BUKRS' .

PERFORM bdc_field       USING'BDC_OKCODE'
'=ENTEDEL' .

PERFORM bdc_field       USING'ANLA-ANLN1'
record-ANLN1 .

PERFORM bdc_field       USING'ANLA-ANLN2'
record-ANLN2 .

  PERFORM bdc_field       USING'ANLA-BUKRS'
'1000'.



*******************************************

PERFORM bdc_dynpro      USING'SAPLAIST''0210'.

PERFORM bdc_field       USING'BDC_CURSOR'
'RA02S-XPHYS' .

PERFORM bdc_field       USING'BDC_OKCODE'
'=BUCH' .

PERFORM bdc_field       USING'RA02S-XPHYS'
'X' .

*******************************************


PERFORM bdc_dynpro      USING'SAPLSPO1''0100'.


PERFORM bdc_field       USING'BDC_OKCODE'
'=YES' .

*******************************************
CALLTRANSACTION'AS06'USING bdcdata MODE'E'.

REFRESH bdcdata.

ENDLOOP.
*<>******************************************************************************<>*
FORM bdc_field USING fnam fval.
*  IF FVAL <> NODATA.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
*  ENDIF.
ENDFORM.                    "BDC_FIELD

*  Form  BDC_DYNPRO
FORM bdc_dynpro USINGprogramdynpro.
CLEAR bdcdata.
bdcdata-program  = program.
bdcdata-dynpro   = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.                    "BDC_DYNPRO