Hi,
I have written a code as follows to insert a record in Infotype 9052.
But no insertion is made.
Can you point me where am wrong?
data : W_P9052 LIKE P9052.
W_P9052-PERNR = P9051-PERNR.
W_P9052-BEGDA = P9051-ENDDA.
W_P9052-ENDDA = '99991231'.
SELECT * FROM PA0008 INTO WA_PA0008 WHERE PERNR = P9051-PERNR.
ENDSELECT.
DO 40 TIMES.
LV_VAR3 = LV_VAR3 + 1.
CONCATENATE 'LGA' LV_VAR3 INTO LV_VAR1.
CONCATENATE 'BET' LV_VAR3 INTO LV_VAR2.
ASSIGN COMPONENT LV_VAR1 OF STRUCTURE WA_PA0008 TO <FS_DESCRIPTION>.
ASSIGN COMPONENT LV_VAR2 OF STRUCTURE WA_PA0008 TO <FS_AMOUNT>.
IF <FS_DESCRIPTION> IS ASSIGNED.
IF <FS_AMOUNT> IS ASSIGNED.
IF <FS_DESCRIPTION> EQ '0F02'.
MOVE <FS_AMOUNT> TO W_P9052-ZPBMA.
ELSEIF <FS_DESCRIPTION> EQ '0F03'.
MOVE <FS_AMOUNT> TO W_P9052-ZPAMA.
ELSEIF <FS_DESCRIPTION> EQ '0F04'.
MOVE <FS_AMOUNT> TO W_P9052-ZPFIS.
ELSEIF <FS_DESCRIPTION> EQ '0F07'.
MOVE <FS_AMOUNT> TO W_P9052-ZPODA.
ELSEIF <FS_DESCRIPTION> EQ '0F15' OR <FS_DESCRIPTION> EQ '0F16'.
MOVE <FS_AMOUNT> TO W_P9052-ZPBMA.
ELSEIF <FS_DESCRIPTION> EQ '0F18'.
MOVE <FS_AMOUNT> TO W_P9052-ZPAMA.
ELSEIF <FS_DESCRIPTION> EQ '0F10'.
MOVE <FS_AMOUNT> TO W_P9052-ZPFIS.
ENDIF.
CLEAR WA_WAGETYPE.
ENDIF.
ENDIF.
ENDDO.
CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
EXPORTING
number = w_P9052-PERNR.
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
INFTY = '9052'
NUMBER = w_P9052-PERNR
VALIDITYEND = w_P9052-endda
VALIDITYBEGIN = w_p9052-begda
RECORD = W_P9052
OPERATION = 'INS'
TCLAS = 'A'
DIALOG_MODE = '0'
* NOCOMMIT =
* VIEW_IDENTIFIER =
* SECONDARY_RECORD =
IMPORTING
RETURN = W_RETURN
* KEY =
.
CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
EXPORTING
number = w_P9052-PERNR.
.
TIA