对 infotype 的修改

 TABLES: pernr.
INFOTYPES: 0002.
DATA: return_struc TYPE bapireturn1,
      record_key TYPE bapipakey.

PARAMETERS: natio_o LIKE p0002-natio DEFAULT 'DE',
            natio_n LIKE p0002-natio DEFAULT 'D'.

GET pernr.

  CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
       EXPORTING
            number = p0002-pernr
       IMPORTING
            return = return_struc.

  IF NOT return_struc IS INITIAL.
    WRITE: / pernr-pernr, (70) return_struc-message.
    REJECT.
  ENDIF.

  LOOP AT p0002 WHERE endda GE pn-begda
                AND   begda LE pn-endda
                AND   natio EQ natio_o.

    p0002-natio = natio_n.

    CALL FUNCTION 'HR_INFOTYPE_OPERATION'
      EXPORTING
        infty                  = '0002'
        number                 = p0002-pernr
*   SUBTYPE                =
*   OBJECTID               =
*   LOCKINDICATOR          =
        validityend            = p0002-endda
        validitybegin          = p0002-begda
        recordnumber           = p0002-seqnr
        record                 = p0002
        operation              = 'MOD'
*   TCLAS                  = 'A'
        dialog_mode            = '1'
*   NOCOMMIT               =
*   VIEW_IDENTIFIER        =
*   SECONDARY_RECORD       =
      IMPORTING
        return                 = return_struc
        key                    = record_key.

    IF NOT return_struc IS INITIAL.
      WRITE: / return_struc.
    ELSE.
      WRITE: / 'Record '(002), record_key, 'modified'(003).
    ENDIF.

  ENDLOOP.

  CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
       EXPORTING
            number = p0002-pernr.