HR HRP9501创建修改单位信息 RH_PNNNN_MAINTAIN

信息类型9501是单位信息表

FORM SAVEDATAS_2300 CHANGING PS_OUT TYPE WPLOG .
  DATA:LS_RETURN  TYPE HRRHAD_MSG,
       LT_HRTNNNN  TYPE TABLE OF HRTDBTAB,
       LS_P9501    TYPE  P9501,
       LS_OUT       TYPE WPLOG,
       LS_HRINNNN   TYPE WPLOG .

  FIELD-SYMBOLS: <FS_P9501> TYPE P9501 ,
                 <FS_WPLOG> TYPE C .

  MOVE-CORRESPONDING GS_CJHZZJG_2300 TO LS_P9501 ."补充P9501的数据信息
  LS_P9501-PLVAR = '01'.
  LS_P9501-OTYPE = 'O'.
  LS_P9501-ISTAT = '2'.
  LS_P9501-INFTY = '9501'.
  LS_P9501-OBJID = PS_OUT-OBJID .
  LS_P9501-BEGDA = GS_HEADER-BEGDA.
  LS_P9501-ENDDA = GS_HEADER-ENDDA.

  ASSIGN LS_P9501 TO <FS_P9501> .
  CHECK SY-SUBRC EQ 0 .

  ASSIGN <FS_P9501> TO <FS_WPLOG> CASTING.
  IF SY-SUBRC = 0  AND <FS_WPLOG> IS ASSIGNED.
    LS_HRINNNN = <FS_WPLOG>.
  ENDIF.
  CALL FUNCTION 'RH_PNNNN_MAINTAIN'
    EXPORTING
      ACT_FCODE                   = 'INSE'
      ACT_PLVAR                   = LS_HRINNNN-PLVAR
      ACT_OTYPE                   = LS_HRINNNN-OTYPE
      ACT_OBJID                   = LS_HRINNNN-OBJID
      ACT_INFTY                   = LS_HRINNNN-INFTY
      ACT_SUBTY                   = LS_HRINNNN-SUBTY
      ACT_ISTAT                   = LS_HRINNNN-ISTAT
      ACT_BEGDA                   = LS_HRINNNN-BEGDA
      ACT_ENDDA                   = LS_HRINNNN-ENDDA
*      ACT_NEW_LANGU               = '1'
      ACT_PNNNN                   = LS_HRINNNN
*     ACT_INFOTYPEKEY             =
*     ACT_DPATT                   =
*     ACT_GDATE                   =
*     ACT_NEW_HISTO               =
*     ACT_ENQUEUE                 = 'X'
      SUPPRESS_DIALOG             = '2'
      ACT_VTASK                   = 'S'

   IMPORTING
*     ACT_OK_CODE                 =
      ACT_PNNNN_OUT               = PS_OUT
      ACT_MESS_INFO               = LS_RETURN
*    TABLES
*      ACT_HRTNNNN                 = lt_hrtnnnn
   EXCEPTIONS
     INFTY_NOT_VALID             = 1
     NO_PLVAR                    = 2
     OBJECT_NOT_DEFINED          = 3
     OTYPE_NOT_VALID             = 4
     NO_AUTHORITY                = 5
     ACTION_REJECTED             = 6
     NO_GDATE                    = 7
     FCODE_NOT_SUPPORTED         = 8
     OTHERS                      = 9
            .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.
ENDFORM.