Skip to Content
0
Former Member
Nov 28, 2008 at 09:25 AM

Error in inserting record to Infotype

52 Views

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