Updating Infotyoe 0235

Question

Hi,
  I am trying to create/update the Infotype 0235 with Infotype 'HR_INFOTYPE_OPERATION'. Its not updating. Could anyone help me. Here is the Test code below:
*& Report  ZMK_TEST1
REPORT  Z_IT0235.
DATA:
I_P0235 TYPE TABLE OF P0235,
W_P0235 TYPE P0235,
W_SUBRC TYPE SY-SUBRC,
WA_RETURN TYPE BAPIRETURN1,
WA_RETURN1 TYPE BAPIRETURN1,
V_BEGDA TYPE SY-DATUM,
V_ENDDA TYPE SY-DATUM,
V_USER  TYPE SY-UNAME,
OP TYPE ACTIO.
CALL FUNCTION 'HR_READ_INFOTYPE'
  EXPORTING
    PERNR           = 4593
    INFTY           = '0235'
    BEGDA           = SY-DATLO
    ENDDA           = '99991231'
  IMPORTING
    SUBRC           = W_SUBRC
  TABLES
    INFTY_TAB       = I_P0235
  EXCEPTIONS
    INFTY_NOT_FOUND = 1
    OTHERS          = 2.
IF SY-SUBRC <> 0.
  WRITE:/'No data'.
ELSE.
  READ TABLE I_P0235 INTO W_P0235 INDEX 1.
  V_BEGDA = W_P0235-BEGDA.   "begin date
  V_ENDDA = W_P0235-ENDDA.   "end date
  W_P0235-BEGDA = SY-DATLO.
  IF W_P0235-TYP01 IS INITIAL AND W_P0235-EXP01 IS INITIAL.
    W_P0235-TYP01 = '01'.
    W_P0235-EXP01 = SPACE.
    W_P0235-FRM01 = '1'.
    OP = 'INS'.
  ELSEIF W_P0235-TYP01 = '01' AND W_P0235-EXP01 IS INITIAL.
    W_P0235-EXP01 = 'Y'.
    W_P0235-FRM01 = '1'.
    OP = 'INS'.
  ENDIF.
  CALL FUNCTION 'HR_EMPLOYEE_ENQUEUE'
    EXPORTING
      NUMBER       = 4593
    IMPORTING
      RETURN       = WA_RETURN
      LOCKING_USER = V_USER.
  IF WA_RETURN-NUMBER NE 0.
    WRITE:/ 'Record locked by:' , V_USER.
    EXIT.
  ELSE.
    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        INFTY         = '0235'
        NUMBER        = 4593
        SUBTYPE       = 'FED'
        VALIDITYEND   = V_ENDDA
        VALIDITYBEGIN = V_BEGDA
        RECORD        = W_P0235
        OPERATION     = OP
      IMPORTING
        RETURN        = WA_RETURN.
*unlock employee
    CALL FUNCTION 'HR_EMPLOYEE_DEQUEUE'
      EXPORTING
        NUMBER = 4593
      IMPORTING
        RETURN = WA_RETURN1.
  ENDIF.
ENDIF.
Is there any other classes or Function module which i can use?

Answer 1

One thing you can do is use the dialog_mode parameter..
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        INFTY         = '0235'
        NUMBER        = 4593
        SUBTYPE       = 'FED'
        VALIDITYEND   = V_ENDDA
        VALIDITYBEGIN = V_BEGDA
        RECORD        = W_P0235
        OPERATION     = OP
        DIALOG_MODE   = '2'
      IMPORTING
        RETURN        = WA_RETURN.
this way, you can check if the values you passe dvia the program are coming in correctly onto the screen..
~Suresh