BDC for New Asset Creation - AS01

Make the file in txt format having the fields that are defined in the Structure below -

REPORT ZAS01 NO STANDARD PAGE HEADING LINE-SIZE 255.

"DECLARATION TYPES
DATA: W_FILENAME TYPE STRING.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-500.
PARAMETERS: P_FILENM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

TABLES: RA02S, ANLA, ANLZ, ANLB.
"STRUCTURE
TYPES : BEGIN OF ST,

        ANLKL(8),
        BUKRS(4),
        NASSETS(3),
        TXT50(50),
        GSBER(4),
        KOSTL(10),
        EQANZ(1),
        LIFNR(10),
        LIEFE(30),
        URJHR(4),
        EAUFN(12),
        ORD41(4),
        AFASL(4),
        NDJAR(3),
        SCHRW_PROZ(14),
        ANLGR(12),
        ANLGR2(4),

        END OF ST.

*INTERNAL TABLE AND WORKAREA DECLARATION*
DATA : IT TYPE TABLE OF ST.
DATA : WA TYPE ST.

INCLUDE BDCRECX1.

START-OF-SELECTION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.*,*.*.'
            MODE             = '0'
            TITLE            = 'GET FILE NAME'
       IMPORTING
            FILENAME         = P_FILENM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

** START OF CHANGE DCS05052003
START-OF-SELECTION.
 W_FILENAME = P_FILENM.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
**   FILENAME                    = 'C:\BDC_XLS_ASSIGN.TXT'
   FILENAME                      = W_FILENAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                     = IT
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.

IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO.
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT INTO WA.

PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0105'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-BUKRS'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'ANLA-ANLKL'
                              WA-ANLKL.
PERFORM BDC_FIELD       USING 'ANLA-BUKRS'
                              WA-BUKRS.
PERFORM BDC_FIELD       USING 'RA02S-NASSETS'
                              WA-NASSETS.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB02'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-TXT50'.
PERFORM BDC_FIELD       USING 'ANLA-TXT50'
                              WA-TXT50."'TEST FOR NEW ASSET CREATION'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLZ-KOSTL'.
PERFORM BDC_FIELD       USING 'ANLZ-GSBER'
                              WA-GSBER."'1'.
PERFORM BDC_FIELD       USING 'ANLZ-KOSTL'
                              WA-KOSTL."'17090'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB03'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLZ-GSBER'.
PERFORM BDC_FIELD       USING 'ANLZ-GSBER'
                              WA-GSBER."'1'.
PERFORM BDC_FIELD       USING 'ANLZ-KOSTL'
                              WA-KOSTL."'17090'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB04'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-ORD41'.
PERFORM BDC_FIELD       USING 'RA02S-EQANZ'
                              WA-EQANZ."'1'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB07'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LIFNR'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB04'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LEART'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LIFNR'.
PERFORM BDC_FIELD       USING 'ANLA-LIFNR'
                              WA-LIFNR.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-URJHR'.
PERFORM BDC_FIELD       USING 'ANLA-LIFNR'
                              WA-LIFNR.
PERFORM BDC_FIELD       USING 'ANLA-LIEFE'
                              WA-LIEFE.
PERFORM BDC_FIELD       USING 'RA02S-XNEU_AM'
                              'X'.
PERFORM BDC_FIELD       USING 'ANLA-URJHR'
                              WA-URJHR."'2011'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'ANLA-LIFNR'
                              WA-LIFNR."'E117921'.
PERFORM BDC_FIELD       USING 'ANLA-LIEFE'
                              WA-LIEFE.
PERFORM BDC_FIELD       USING 'RA02S-XNEU_AM'
                              'X'.
PERFORM BDC_FIELD       USING 'ANLA-URJHR'
                              WA-URJHR."'2011'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-EAUFN'.
PERFORM BDC_FIELD       USING 'ANLA-EAUFN'
                              WA-EAUFN."'600044'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB03'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LIFNR'.
PERFORM BDC_FIELD       USING 'ANLA-LIFNR'
                              WA-LIFNR.
PERFORM BDC_FIELD       USING 'ANLA-LIEFE'
                              WA-LIEFE.
PERFORM BDC_FIELD       USING 'RA02S-XNEU_AM'
                              'X'.
PERFORM BDC_FIELD       USING 'ANLA-URJHR'
                              WA-URJHR."'2011'.
PERFORM BDC_FIELD       USING 'ANLA-EAUFN'
                              WA-EAUFN."'600044'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-ORD41'.
PERFORM BDC_FIELD       USING 'ANLA-ORD41'
                              WA-ORD41."'10'.
PERFORM BDC_FIELD       USING 'RA02S-EQANZ'
                              WA-EQANZ."'1'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB02'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-ORD41'.
PERFORM BDC_FIELD       USING 'ANLA-ORD41'
                              WA-ORD41."'10'.
PERFORM BDC_FIELD       USING 'RA02S-EQANZ'
                              WA-EQANZ."'1'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB03'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLZ-GSBER'.
PERFORM BDC_FIELD       USING 'ANLZ-GSBER'
                              WA-GSBER."'1'.
PERFORM BDC_FIELD       USING 'ANLZ-KOSTL'
                              WA-KOSTL."'17090'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB04'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-ORD41'.
PERFORM BDC_FIELD       USING 'ANLA-ORD41'
                              WA-ORD41."'10'.
PERFORM BDC_FIELD       USING 'RA02S-EQANZ'
                              WA-EQANZ."'1'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB07'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LIFNR'.
PERFORM BDC_FIELD       USING 'ANLA-LIFNR'
                              WA-LIFNR.
PERFORM BDC_FIELD       USING 'ANLA-LIEFE'
                              WA-LIEFE.
PERFORM BDC_FIELD       USING 'RA02S-XNEU_AM'
                              'X'.
PERFORM BDC_FIELD       USING 'ANLA-URJHR'
                              WA-URJHR."'2011'.
PERFORM BDC_FIELD       USING 'ANLA-EAUFN'
                              WA-EAUFN."'600044'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=TAB08'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLA-LEART'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-AFASL(01)'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL(01)'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=SELZ'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'T093T-AFBKTX(01)'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-NDJAR'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."'999'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-NDJAR'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."'999'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-SCHRW_PROZ'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."'999'.
PERFORM BDC_FIELD       USING 'ANLB-SCHRW_PROZ'
                              WA-SCHRW_PROZ."'5'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=RW'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-AFASL'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."' 10'.
PERFORM BDC_FIELD       USING 'ANLB-SCHRW_PROZ'
                              WA-SCHRW_PROZ."'5.00000000000'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=SELZ'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-AFASL(02)'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-ANLGR'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              'IN1'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."'999'.
PERFORM BDC_FIELD       USING 'ANLB-ANLGR'
                              WA-ANLGR."'60006'.
PERFORM BDC_FIELD       USING 'ANLB-ANLGR2'
                              WA-ANLGR2."'0'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              'VAFA'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-ANLGR'.
PERFORM BDC_FIELD       USING 'ANLB-ANLGR'
                              WA-ANLGR."'60006'.
PERFORM BDC_FIELD       USING 'ANLB-ANLGR2'
                              WA-ANLGR2."'0'.
PERFORM BDC_DYNPRO      USING 'SAPLAIST' '0195'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=BUCH'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANLB-AFASL'.
PERFORM BDC_FIELD       USING 'ANLB-AFASL'
                              WA-AFASL."'ZUSF'.
PERFORM BDC_FIELD       USING 'ANLB-NDJAR'
                              WA-NDJAR."' 10'.
PERFORM BDC_FIELD       USING 'ANLB-SCHRW_PROZ'
                              WA-SCHRW_PROZ."'5.00000000000'.
PERFORM BDC_TRANSACTION USING 'AS01'.

ENDLOOP.

PERFORM CLOSE_GROUP.

BDC for Posting Unplanned Depreciation - ABAA

Make the file in txt format having the fields that are defined in the Structure below -

REPORT ZABAA NO STANDARD PAGE HEADING LINE-SIZE 255.

"DECLARATION TYPES
DATA: W_FILENAME TYPE STRING.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-500.
PARAMETERS: P_FILENM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

TABLES: RAIFP1, RAIFP2, ANLA.

"STRUCTURE
TYPES : BEGIN OF ST,
          BUKRS(4),
          ANLN1(12),
          ANLN2(4),
          BLDAT(10),
          BUDAT(10),
          PERID(2),
          BWASL(3),
          DMBTR(13),
          BZDAT(13),
        END OF ST.

*INTERNAL TABLE AND WORKAREA DECLARATION*
DATA : IT TYPE TABLE OF ST.
DATA : WA TYPE ST.

INCLUDE BDCRECX1.

START-OF-SELECTION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.*,*.*.'
            MODE             = '0'
            TITLE            = 'GET FILE NAME'
       IMPORTING
            FILENAME         = P_FILENM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

** START OF CHANGE DCS05052003
START-OF-SELECTION.
 W_FILENAME = P_FILENM.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
**   FILENAME                    = 'C:\BDC_XLS_ASSIGN.TXT'
   FILENAME                      = W_FILENAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                     = IT
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.

IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO.
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT INTO WA.

PERFORM BDC_DYNPRO      USING 'SAPMA01B' '0100'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANBZ-ANLN1'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '/00'.
PERFORM BDC_FIELD       USING 'ANBZ-BUKRS'
                              WA-BUKRS."'RCFL'.
PERFORM BDC_FIELD       USING 'ANBZ-ANLN1'
                              WA-ANLN1."'80027979'.
PERFORM BDC_FIELD       USING 'ANBZ-ANLN2'
                              WA-ANLN2."'0'.
PERFORM BDC_FIELD       USING 'ANEK-BLDAT'
                              WA-BLDAT."'12.12.2014'.
PERFORM BDC_FIELD       USING 'ANEK-BUDAT'
                              WA-BUDAT."'12.12.2014'.
PERFORM BDC_FIELD       USING 'ANBZ-PERID'
                              WA-PERID."'9'.
PERFORM BDC_FIELD       USING 'ANBZ-BWASL'
                              WA-BWASL."'640'.
PERFORM BDC_DYNPRO      USING 'SAPMA01B' '0110'.
PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                              'ANBZ-BZDAT'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                              '=UPDA'.
PERFORM BDC_FIELD       USING 'ANBZ-DMBTR'
                              WA-DMBTR."'7129.50'.
PERFORM BDC_FIELD       USING 'ANBZ-BZDAT'
                              WA-BZDAT."'01.04.2014'.
PERFORM BDC_TRANSACTION USING 'ABAA'.

ENDLOOP.

PERFORM CLOSE_GROUP. 

Deleting Jobs in SAP

To delete the Background Job in SAP goto T-Code SE38 and run the report  RSBTCDEL.

For more information kindly visit the link.
http://help.sap.com/saphelp_nwes72/helpdata/en/c4/3a7fef505211d189550000e829fbbd/frameset.htm

and

http://www.guru99.com/how-to-delete-a-background-job.html

also
you can can run the report  RSBTCDEL2

BDC for Asset to Asset Transfer - ABUMN

Make the file in txt format having the fields that are defined in the Structure below -

REPORT ZABUMN NO STANDARD PAGE HEADING LINE-SIZE 255.

"DECLARATION TYPES
DATA: W_FILENAME TYPE STRING.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-500.
PARAMETERS: P_FILENM LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

TABLES: RAIFP1, RAIFP2, ANLA.

"STRUCTURE
TYPES : BEGIN OF ST,

          ANLN1(12),
          ANLN2(4),
          BLDAT(10),
          BUDAT(10),
          BZDAT(10),
          SGTXT(50),
          XBANL(1),
          XNANL(1),
          TXT50(50),
          ANLKL(8),
          "ANLN1_1 TYPE ANLA-ANLN1,
          XSUBNO(1),
          XVLABG(1),
          "TXT50_1 TYPE ANLA-TXT50,
          KOSTL(10),
          ANBTR(13),
          XAALT(1),

        END OF ST.

*INTERNAL TABLE AND WORKAREA DECLARATION*
DATA : IT TYPE TABLE OF ST.
DATA : WA TYPE ST.

INCLUDE BDCRECX1.

START-OF-SELECTION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILENM.

  CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.*,*.*.'
            MODE             = '0'
            TITLE            = 'GET FILE NAME'
       IMPORTING
            FILENAME         = P_FILENM
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR  = 4
            OTHERS           = 5.

** START OF CHANGE DCS05052003
START-OF-SELECTION.
 W_FILENAME = P_FILENM.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
**   FILENAME                    = 'C:\BDC_XLS_ASSIGN.TXT'
   FILENAME                      = W_FILENAME
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                     = IT
 EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
   NO_BATCH                      = 3
   GUI_REFUSE_FILETRANSFER       = 4
   INVALID_TYPE                  = 5
   NO_AUTHORITY                  = 6
   UNKNOWN_ERROR                 = 7
   BAD_DATA_FORMAT               = 8
   HEADER_NOT_ALLOWED            = 9
   SEPARATOR_NOT_ALLOWED         = 10
   HEADER_TOO_LONG               = 11
   UNKNOWN_DP_ERROR              = 12
   ACCESS_DENIED                 = 13
   DP_OUT_OF_MEMORY              = 14
   DISK_FULL                     = 15
   DP_TIMEOUT                    = 16
   OTHERS                        = 17.

IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO.
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

PERFORM OPEN_GROUP.

LOOP AT IT INTO WA.

  PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=NEWA'.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                WA-ANLN1.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                WA-ANLN2.
  PERFORM BDC_FIELD       USING 'RAIFP1-BLDAT'
                                WA-BLDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BUDAT'
                                WA-BUDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BZDAT'
                                WA-BZDAT..
  PERFORM BDC_FIELD       USING 'RAIFP2-SGTXT'
                                WA-SGTXT.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RAIFP3-XNANL'.
  PERFORM BDC_FIELD       USING 'RAIFP3-XBANL'
                                WA-XBANL."''.
  PERFORM BDC_FIELD       USING 'RAIFP3-XNANL'
                                WA-XNANL."'X'.
  PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=MAST'.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                WA-ANLN1.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                WA-ANLN2.
  PERFORM BDC_FIELD       USING 'RAIFP1-BLDAT'
                                WA-BLDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BUDAT'
                                WA-BUDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BZDAT'
                                WA-BZDAT.   PERFORM BDC_FIELD       USING 'RAIFP2-SGTXT'
                                WA-SGTXT.
  PERFORM BDC_FIELD       USING 'RAIFP3-XNANL'
                                WA-XNANL.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RAIFP4-TXT50'.
  PERFORM BDC_FIELD       USING 'RAIFP4-TXT50'
                                WA-TXT50.
  PERFORM BDC_DYNPRO      USING 'SAPLAIST' '2110'.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RAIST05-XSUBNO'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=CREA'.
  PERFORM BDC_FIELD       USING 'ANLA-ANLKL'
                                WA-ANLKL.
  PERFORM BDC_FIELD       USING 'ANLA-ANLN1'
                                WA-ANLN1.
  PERFORM BDC_FIELD       USING 'RAIST05-XSUBNO'
                                WA-XSUBNO.
  PERFORM BDC_FIELD       USING 'RAIST05-XVLABG'
                                WA-XVLABG.
  PERFORM BDC_FIELD       USING 'ANLA-TXT50'
                                WA-TXT50.
  PERFORM BDC_FIELD       USING 'ANLZ-KOSTL'
                                WA-KOSTL.
  PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=TAB03'.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RAIFP2-ANLN1'.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                WA-ANLN1.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                WA-ANLN2.
  PERFORM BDC_FIELD       USING 'RAIFP1-BLDAT'
                                WA-BLDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BUDAT'
                                WA-BUDAT.
  PERFORM BDC_FIELD       USING 'RAIFP1-BZDAT'
                                WA-BZDAT.
  PERFORM BDC_FIELD       USING 'RAIFP2-SGTXT'
                                WA-SGTXT.
  PERFORM BDC_FIELD       USING 'RAIFP3-XNANL'
                                WA-XNANL.
  PERFORM BDC_DYNPRO      USING 'SAPLAMDP' '0100'.
  PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                '=SAVE'.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN1'
                                WA-ANLN1.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANLN2'
                                WA-ANLN2.
  PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                'RAIFP2-ANBTR'.
  PERFORM BDC_FIELD       USING 'RAIFP2-ANBTR'
                                WA-ANBTR.
  PERFORM BDC_FIELD       USING 'RAIFP2-XAALT'
                                WA-XAALT.
  PERFORM BDC_TRANSACTION USING 'ABUMN'.

ENDLOOP.

PERFORM CLOSE_GROUP.