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

Error in inserting records into Infotype

94 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