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

The following PDF shows a walk-through of the steps required to set up custom Infotype from scratch.

The steps include creating new Infotype from PM01, to defining structure for it, to defining attributes, till dialog module assignment.

Download link: ABAP HR Infotype Creation

You might also be interested in these posts:

1. ABAP HR Program to list maintained Infotypes in SAP
2. ABAP Editor: Create custom Pattern
3. Programmer’s Guide to ABAP HR

 

It covers following points in ABAP HR : 

Link : Programmer’s Guide to ABAP HR

*Source: http://abaphr.com

You might also be interested in these posts:

1. ABAP Vs. ABAP HR
2. Macros in ABAP-HR Programming – I
3. Upgrade Guide from SAP R/3 4.6 to ECC 6.0 for ABAP Developers

The linking between Personnel No and the SAP Userid is pretty useful when we are required to map both of these ( as in case of SAP Employee Self Service). The mapping is available in the infotype 0105. This information can be maintained as shown below: 

1. Go to transaction PA30. Enter the infotype 0105 in the “Direct selection” and 0001 in the subtype. Click on Create.

2. Following screen appears: 

Enter the start date and the end date as required. Also enter the SAP User-id to which this personnel number has to be mapped. 

Click on Save to update your records.

You might also be interested in these posts:

1. Macros in ABAP-HR Programming – I
2. Hiding fields in an Infotype – ABAP HR
3. Logical Database in SAP – a must for ABAP HR programmer

 

1. If we see in PA30, the standard screen for 0023 (Other/Previous Employers) is:

2. Let us hide the field “Work Contract” & “Job” from the standard Infotype screen.

Go to SM30 & enter view name as “V_T588M”. Click on “Maintain”.

3. Enter the module pool program & click Ok. In our case it is MP002300.

4. Now click on ‘New Entries’ button.

5. Now enter the “Module Pool” (mandatory) “Standard screen” (mandatory).Press “Enter”.

6. After we press “Enter”, all the screen fields of the Infotype are shown along with their attributes.

7. Now, we can change the attributes according to our requirements by selecting the desired radio button. After that press Save.

8. Then Go to PA30 and check the changes done to the standard Infotype (here Infotype 0023). The fields we chose to hide gets hidden.

You might also be interested in these posts:

1. ABAP HR – Linking Personnel no to SAP User-id
2. ABAP Vs. ABAP HR
3. ABAP Program to Display OAER pictures on Screen