Skip to Content
0
Former Member
Jul 05, 2011 at 10:15 AM

Need to delimit infotype pa2006 record 'HR_INFOTYPE_OPERATION'

909 Views

Hi

I need to delimit infotype record of infotype pa2006 in my own function module.

start date = 01.01.2009

delimit date = 01.01.2010

  • PA2006

SELECT * FROM PA2006 INTO IT_PA2006

WHERE PERNR EQ PERNR

AND ENDDA LE '99991231'.

ENDSELECT.

IF SY-SUBRC = '0'.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-PERNR'.

WA_TAB1-FVAL = IT_PA2006-PERNR.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-BEGDA'.

WA_TAB1-FVAL = IT_PA2006-BEGDA.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-ENDDA'.

WA_TAB1-FVAL = IT_PA2006-ENDDA.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-KTART'.

WA_TAB1-FVAL = IT_PA2006-KTART.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-BEGUZ'.

WA_TAB1-FVAL = IT_PA2006-BEGUZ.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-ENDUZ'.

WA_TAB1-FVAL = IT_PA2006-ENDUZ.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-ANZHL'.

WA_TAB1-FVAL = IT_PA2006-ANZHL.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-DESTA'.

WA_TAB1-FVAL = IT_PA2006-DESTA.

APPEND WA_TAB1 TO IT_TAB1.

WA_TAB1-INFTY = '2006'.

WA_TAB1-FNAME = 'P2006-DEEND'.

WA_TAB1-FVAL = IT_PA2006-DEEND.

APPEND WA_TAB1 TO IT_TAB1.

ENDIF.

CALL FUNCTION 'HR_INFOTYPE_OPERATION'

EXPORTING

INFTY = 2006

NUMBER = PERNR

SUBTYPE = IT_PA2006-SUBTY

  • OBJECTID =

  • LOCKINDICATOR =

VALIDITYEND = DATE

VALIDITYBEGIN = IT_PA2006-BEGDA

  • RECORDNUMBER =

RECORD = IT_TAB1

OPERATION = 'MOD'

  • TCLAS = 'A'

  • DIALOG_MODE = '0'

  • NOCOMMIT =

  • VIEW_IDENTIFIER =

  • SECONDARY_RECORD =

IMPORTING

RETURN = RETURN

  • KEY =

.

Why it is not delimit the infotype record. Let me know if any other way to do the same.