Error insert record in pa0027

Question

I've been stuck with the problem for days, could anyone help. I try to use the function modules in my report to create the record in pa0027, but it won't work! here is the code:
REPORT  ZHRADDPA0027 NO STANDARD PAGE HEADING.
TABLES : PA0027, PA0024.
DATA: BEGIN OF IT0027 OCCURS 0,
      MANDT LIKE PA0027-MANDT,
      PERNR LIKE PA0027-PERNR,
      SUBTY LIKE PA0027-SUBTY,
      OBJPS LIKE PA0027-OBJPS,
      SPRPS LIKE PA0027-SPRPS,
      ENDDA LIKE PA0027-ENDDA,
      BEGDA LIKE PA0027-BEGDA,
      PSP25 LIKE PA0027-PSP25,
END OF IT0027.
DATA: RET LIKE BAPIRETURN1.
DATA: RET2 LIKE BAPIRETURN1.
DATA: RET3 LIKE BAPIRETURN1.
DATA: LOCKING_USER LIKE SY-UNAME.
DATA: MKEY LIKE BAPIPAKEY.
CLEAR IT0027.
SELECT * FROM PA0027 WHERE PERNR = '00000123' AND ENDDA = '99991231'.
  MOVE-CORRESPONDING PA0027 TO IT0027.
  APPEND IT0027.
ENDSELECT.
LOOP AT IT0027.
  IT0027-BEGDA = '19990101'.
  IT0027-ENDDA = '19991231'.
  MODIFY IT0027.
ENDLOOP.
CLEAR IT0027.
LOOP AT IT0027.
  CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
    EXPORTING
      NUMBER       = IT0027-PERNR
    IMPORTING
      RETURN       = RET
      LOCKING_USER = LOCKING_USER.
  CALL FUNCTION 'HR_INFOTYPE_OPERATION'
    EXPORTING
      INFTY     = '0027'
      NUMBER    = IT0027-PERNR
      RECORD    = IT0027
      OPERATION = 'INS'
      NOCOMMIT  = 'X'
    IMPORTING
      RETURN    = RET2
      KEY       = MKEY.
  CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
    EXPORTING
      NUMBER = IT0027-PERNR
    IMPORTING
      RETURN = RET3.
ENDLOOP.

Answer 1

here is the declaration and getting the data.
DATA: BEGIN OF IT0027 OCCURS 0,
MANDT LIKE PA0027-MANDT,
PERNR LIKE PA0027-PERNR,
SUBTY LIKE PA0027-SUBTY,
OBJPS LIKE PA0027-OBJPS,
SPRPS LIKE PA0027-SPRPS,
ENDDA LIKE PA0027-ENDDA,
BEGDA LIKE PA0027-BEGDA,
........................  ,<- All the field names
........................   <- the list is too long
PSP25 LIKE PA0027-PSP25,
END OF IT0027.
DATA: RET LIKE BAPIRETURN1.
DATA: RET2 LIKE BAPIRETURN1.
DATA: RET3 LIKE BAPIRETURN1.
DATA: LOCKING_USER LIKE SY-UNAME.
DATA: MKEY LIKE BAPIPAKEY.
CLEAR IT0027.                      
SELECT * FROM PA0027 WHERE PERNR = '00000123' AND ENDDA = '99991231'.
MOVE-CORRESPONDING PA0027 TO IT0027.
APPEND IT0027.                <- copy the record and change the date and then inserting it back!
ENDSELECT.
Any help or information will be great!