Insert or change the employee status (pa0000-stat1) using HR_MAINTAIN_MAST

Question

hi abapers
i am using HR_MAINTAIN_MASTERDATA to insert or modify employee status (pa0000-stat1).
IN HR_MAINTAIN_MASTERDATA there is return statement in import. and i am giving BAPIRETURN1 and BAPIRETURN2 and pass data(employee status to be changed) to proposed_values table
when i check return IS iNITIAL or not. return is coming initial. what does it mean??
actually i am new in HR module. plz help
thanks
Sachin

Answer 1

hi Napsterr
yes i am getting '000'.
when i am giving incorrect data , some error is coming.
what does it mean?
employee status is not yet inserted or modified.
here is my code. please tell me where i am missing.
REPORT  ZTEST_STATUSUPDATE2.
Parameter p_pernr like pa0000-pernr.
Parameter p_stat1 like pa0000-stat1.
DATA: OPERATION     LIKE PSPAR-ACTIO,
        RETURN1        LIKE BAPIRETURN1,
        RETURN        LIKE BAPIRETURN,
        VALIDITYBEGIN LIKE P0001-BEGDA,
        ILINES        LIKE SY-TABIX.
  DATA: VALUES        LIKE PPROP OCCURS 10 WITH HEADER LINE,
        IP0000        LIKE P0000 OCCURS  1 WITH HEADER LINE.
    CALL FUNCTION 'HR_READ_INFOTYPE'
      EXPORTING
        PERNR     = p_pernr
        INFTY     = '0000'
        BEGDA     = SY-DATUM
        ENDDA     = SY-DATUM
      TABLES
        INFTY_TAB = IP0000.
      DESCRIBE TABLE IP0000 LINES ILINES.
      IF ILINES EQ 0.
        OPERATION     = 'INS'.
        VALIDITYBEGIN = SY-DATUM.
      ELSE.
        READ TABLE IP0000 INDEX 1.
        VALIDITYBEGIN = IP0000-BEGDA.
        OPERATION     = 'MOD'.
      ENDIF.
      VALUES-INFTY = '0000'.
      VALUES-FNAME = 'P0000-stat1'.
      VALUES-FVAL  = p_stat1.
      APPEND VALUES.
      CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
        EXPORTING
          PERNR           = p_pernr
          ACTIO           = OPERATION
          BEGDA           = VALIDITYBEGIN
          ENDDA           = '99991231'
          SUBTY           = SPACE
          NO_ENQUEUE      = SPACE
          NO_EXISTENCE_CHECK       = 'X'
        IMPORTING
           RETURN        = RETURN
          RETURN1         = RETURN1
        TABLES
          PROPOSED_VALUES = VALUES
        MODIFIED_KEYS   =
        EXCEPTIONS
          OTHERS          = 1.
      IF ( return-type EQ 'E' OR return1-type EQ 'E').
      MESSAGE 'error' type 'E'.
       ELSEIF  RETURN is INITIAL.
        MESSAGE 'initial value' type 'I'.
      ELSE.
        MESSAGE ID     RETURN1-ID
                TYPE   'S'
                NUMBER RETURN1-NUMBER
                WITH   RETURN1-MESSAGE_V1 RETURN-MESSAGE_V2
                       RETURN1-MESSAGE_V3 RETURN-MESSAGE_V4.
endif.
thanks
Sachin