Download Program : Upload Flat File on Application Server to Internal Table

You might also be interested in these posts:

1. SAP ABAP Transferring Internal Table Contents to a file on the Application Server
2. Best way to Loop At ‘Standard’ Internal Table in ABAP
3. Upload / Download Data from SAP Tables

This file can then be used to transfer data to another SAP or NON SAP system. This can also be used for an interfacing when you wish to transfer data on a daily or a weekly basis from R/3 to NON R/3 or SAP.

The command used to create a file on the application server is as follows.

OPEN DATASET

Download the sample code : download_internal_table_to_app_server

Once the file is downloaded to the Application Server, user can use the T-Code CG3y, to download the file from Application Server to Presentation Server.

You might also be interested in these posts:

1. Upload File from Application Server into ABAP Internal Table in SAP
2. ABAP program to create Formatted Excel File using XML
3. Best way to Loop At ‘Standard’ Internal Table in ABAP

There have been some codes available on net where data is backed-up but not restored back to SAP.

It is basically Dynamic table export / import facility.

There are some restrictions for using the code:

* – Table definition MUST exist on target system for import.

* – Entire table is exported / imported.

* – Must be WIN95/98 WIN-NT long filenames.

Download code : Upload/Download Program

You might also be interested in these posts:

1. Upload File from Application Server into ABAP Internal Table in SAP
2. Downloading PF-Status(GUI Status) in SAP
3. ABAP HR program to download Employee data

• BDC (Batch Data Communication)
• LSMW (Legacy System Migration Workbench)

This document presents Overview of LSMW and to provides you information about how to use this functionality.

Following are the highlights from this presentation:

• Difference between BDC & LSMW
• What is LSMW ? Principles, Features and Pre-Requisities for LSMW
• Import methods defined: IDOC’ s,BAPI’s, Standart/Direct Input, Batch Input
• Steps for using conversion tool LSMW
• Procedures for Direct Input Method, Batch Input Method, BAPI in LSMW and so on..

Download Link: Step by Step LSMW Tutorial

You might also be interested in these posts:

1. Difference Between LSMW and BDC
2. eCATT Tutorial
3. Complete Reference to ABAP Basics

BDC Source Code:

*&———————————————————————*
*& Report  ZHR_BDC_0008_INSERT                                         *
*&                                                                     *
*&———————————————————————*
*& About: the BDC inserts a new Wage Type into the infotype0008 for    *
*&        Per.No. provided in flat file.                               *
*&———————————————————————*
*& BDC / Flat File Structure:                                          *
*&———————————————————————*
*& PersonnelNo  BeginDate EndDate WageType  Amount                     *
*&———————————————————————*
*&———————————————————————*

REPORT  ZHR_BDC_0008_INSERT no standard page heading line-size 255.

DATA : BDCTAB LIKE BDCDATA OCCURS 100 WITH HEADER LINE.

DATA BEGIN OF itab1 OCCURS 0.
        INCLUDE STRUCTURE p0001.
DATA END OF itab1.
DATA BEGIN OF itab7 OCCURS 0.
        INCLUDE STRUCTURE p0007.
DATA END OF itab7.
DATA BEGIN OF itab8 OCCURS 0.
        INCLUDE STRUCTURE p0008.
DATA END OF itab8.
DATA BEGIN OF itabn OCCURS 0.
        INCLUDE STRUCTURE pbwla.
DATA END OF itabn.
DATA: pos(2).

SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK K1 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
PARAMETERS : READFILE like rlgrap-filename DEFAULT
             ‘c:\textfile.txt’ LOWER CASE.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK K1.

data: begin of record OCCURS 10,
      pernr like PA0001-pernr,
      begda like PA0001-begda,
      endda like PA0001-endda,
      lgart like PA0008-lga01,
      amount(12),
      end of record.

start-of-selection.

  PERFORM OPEN_GROUP.
  PERFORM UPLOAD.

  if record[] is NOT INITIAL.
*do.
    LOOP AT record.
*read dataset dataset into record.
      if sy-subrc <> 0. exit. endif.
      data: tbegda(10),
            tendda(10).
      write: record-begda to tbegda,
             record-endda to tendda.
      data: wgtype(20),
            amount(20).
* Get Personnel Data
      PERFORM GET_PERS_DATA.
      clear: pos.
      LOOP AT itabn where endda = ’99991231′.
        pos = pos + 1.
      ENDLOOP.
* Move to new line
      pos = pos + 1.
* Setting position in Table Control
      concatenate ‘Q0008-LGART(‘ pos ‘)’ into wgtype.
      concatenate ‘Q0008-BETRG(‘ pos ‘)’ into amount.
      perform bdc_dynpro      using ‘SAPMP50A’ ’1000′.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘=COP’.
      perform bdc_field       using ‘RP50G-PERNR’
*                              ’1341′.
                                     record-pernr.
*perform bdc_field       using ‘RP50G-TIMR6′
*                              ‘X’.
      perform bdc_field       using ‘BDC_CURSOR’
                                    ‘RP50G-CHOIC’.
      perform bdc_field       using ‘RP50G-CHOIC’
                                    ’8′.
      perform bdc_dynpro      using ‘MP000800′ ’2040′.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘/00′.
      perform bdc_field       using ‘P0008-BEGDA’
*                              ’01.04.2010′.
                                     tbegda.
      perform bdc_field       using ‘P0008-ENDDA’
*                              ’31.12.9999′.
                                     tendda.
*perform bdc_field       using ‘P0008-TRFAR’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-BSGRD’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGB’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-DIVGV’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGR’
*                              ‘JT MGR’.
*perform bdc_field       using ‘P0008-TRFST’
*                              ‘GE’.
*perform bdc_field       using ‘P0008-ANCUR’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-IBBEG’
*                              ’25.05.2010′.
*perform bdc_field       using ‘P0008-WAERS’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-LGART(07)’
*                              ’1MDA’.
*perform bdc_field       using ‘Q0008-LGART(07)’
*                              ’1MDA’.
      perform bdc_field       using  wgtype
                                     record-lgart.
*perform bdc_field       using ‘Q0008-BETRG(07)’
*                              ‘               500′.
      perform bdc_field       using  amount
                                     record-amount.
      perform bdc_dynpro      using ‘MP000800′ ’2040′.
      perform bdc_field       using ‘BDC_CURSOR’
                                    ‘P0008-BEGDA’.
      perform bdc_field       using ‘BDC_OKCODE’
                                    ‘=UPD’.
      perform bdc_field       using ‘P0008-BEGDA’
*                              ’01.04.2010′.
                                     tbegda.
      perform bdc_field       using ‘P0008-ENDDA’
*                              ’31.12.9999′.
                                     tendda.
*perform bdc_field       using ‘P0008-TRFAR’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-BSGRD’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGB’
*                              ‘SK’.
*perform bdc_field       using ‘P0008-DIVGV’
*                              ’100.00′.
*perform bdc_field       using ‘P0008-TRFGR’
*                              ‘JT MGR’.
*perform bdc_field       using ‘P0008-TRFST’
*                              ‘GE’.
*perform bdc_field       using ‘P0008-ANCUR’
*                              ‘INR’.
*perform bdc_field       using ‘Q0008-IBBEG’
*                              ’25.05.2010′.
*perform bdc_field       using ‘P0008-WAERS’
*                              ‘INR’.
*perform bdc_transaction using ‘PA30′.
      CALL FUNCTION ‘BDC_INSERT’
          EXPORTING
               TCODE             = ‘PA30′
*         POST_LOCAL       = NOVBLOCAL
*         PRINTING         = NOPRINT
           TABLES
                DYNPROTAB        = BDCTAB
*    EXCEPTIONS
*         INTERNAL_ERROR   = 1
*         NOT_OPEN         = 2
*         QUEUE_ERROR      = 3
*         TCODE_INVALID    = 4
*         PRINTING_INVALID = 5
*         POSTING_INVALID  = 6
*         OTHERS           = 7
                .
      IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      REFRESH BDCTAB.
    endloop.

    CALL FUNCTION ‘BDC_CLOSE_GROUP’
*    EXCEPTIONS
*         NOT_OPEN    = 1
*         QUEUE_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.
*perform close_group.
*perform close_dataset using dataset.
  endif.
*&———————————————————————*
*&      Form  BDC_DYNPRO
*&———————————————————————*
*       text
*———————————————————————-*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
  CLEAR BDCTAB.
  BDCTAB-PROGRAM  = PROGRAM.
  BDCTAB-DYNPRO   = DYNPRO.
  BDCTAB-DYNBEGIN = ‘X’.
  APPEND BDCTAB.

ENDFORM.                    “BDC_DYNPRO

*&———————————————————————*
*&      Form  BDC_FIELD
*&———————————————————————*
*       text
*———————————————————————-*
FORM BDC_FIELD USING FNAM FVAL.
*  IF FVAL <> NODATA.
  CLEAR BDCTAB.
  BDCTAB-FNAM = FNAM.
  BDCTAB-FVAL = FVAL.
  APPEND BDCTAB.
*  ENDIF.
ENDFORM.                    “BDC_FIELD
*&———————————————————————*
*&      Form  UPLOAD
*&———————————————————————*
*       text
*———————————————————————-*
FORM UPLOAD .

  CALL FUNCTION ‘UPLOAD’
    EXPORTING
      FILENAME                = READFILE
      FILETYPE                = ‘DAT’
    TABLES
      DATA_TAB                = record
    EXCEPTIONS
      CONVERSION_ERROR        = 1
      FILE_OPEN_ERROR         = 2
      FILE_READ_ERROR         = 3
      INVALID_TYPE            = 4
      NO_BATCH                = 5
      UNKNOWN_ERROR           = 6
      INVALID_TABLE_WIDTH     = 7
      GUI_REFUSE_FILETRANSFER = 8
      CUSTOMER_ERROR          = 9
      OTHERS                  = 10.

ENDFORM.                    ” UPLOAD

*&———————————————————————*
*&      Form  OPEN_GROUP
*&———————————————————————*
*       text
*———————————————————————-*
FORM OPEN_GROUP .

  CALL FUNCTION ‘BDC_OPEN_GROUP’
      EXPORTING
           CLIENT              = SY-MANDT
           GROUP               = sy-uname “‘HR_DELIMT’
           KEEP                = ‘X’
           USER                = SY-UNAME
      EXCEPTIONS
           CLIENT_INVALID      = 1
           DESTINATION_INVALID = 2
           GROUP_INVALID       = 3
           GROUP_IS_LOCKED     = 4
           HOLDDATE_INVALID    = 5
           INTERNAL_ERROR      = 6
           QUEUE_ERROR         = 7
           RUNNING             = 8
           SYSTEM_LOCK_ERROR   = 9
           USER_INVALID        = 10
           OTHERS              = 11
            .

ENDFORM.                    ” OPEN_GROUP
*&———————————————————————*
*&      Form  GET_PERS_DATA
*&———————————————————————*
*       text
*———————————————————————-*
FORM GET_PERS_DATA .
  CLEAR : itab1,itab7,itab8,itabn.
  REFRESH : itab1,itab7,itab8,itabn.

  CALL FUNCTION ‘RP_FILL_WAGE_TYPE_TABLE_EXT’
    EXPORTING
      begda                        = record-begda “i0008-begda
      endda                        = ’99991231′
      infty                        = ’0008′
      tclas                        = ‘A’
      pernr                        = record-pernr “i0008-pernr
    TABLES
      pp0001                       = itab1
      pp0007                       = itab7
      pp0008                       = itab8
      ppbwla                       = itabn
    EXCEPTIONS
      error_at_indirect_evaluation = 1
      OTHERS                       = 2.

ENDFORM.                    ” GET_PERS_DATA

Note: The WageTypes should be updated one at a time (i.e., run BDC for all employee for a specific Wage Type. Execute it from SM35. Now repeat the process for another WageType).

BDC Source Code: BDC Insert WageType in Infotype 0008

You might also be interested in these posts:

1. ABAP HR program to download Employee data
2. Macros in ABAP-HR Programming – I
3. MM02 BDC – Select Specific Material Master View