BAPI--使用HR_INFOTYPE_OPERATION函数批量导入HR信息纪录代码样例(0759信息类型)

report  zp_pa_ecm_conv_0759
        no standard page heading.
 
* tables
tables:
       pernr.  "Standard Selections for HR Master Data
 
* infotypes
infotypes:
    0001,    "Org Assignment
    0008,    "Basic Pay  "SD1K911053
    0758,    "Compensation Program
    0759.    "Compensation Process
 
* data declarations
* Types
type-pools : slis.   "Global data for ALV
 
* alv field catalog
data: t_fieldcat type slis_t_fieldcat_alv with header line.
 
*constants
constants:
      c_usd   type waers             value 'USD',     "Currency  "SD1K913769
      c_pernr(5)                     value 'PERNR',   "Pers no
      c_sname(5)                     value 'SNAME',   "Emp Name
      c_werks(5)                     value 'WERKS',   "Pers Area
      c_btrtl(5)                     value 'BTRTL',   "Pers Subarea
      c_persg(5)                     value 'PERSG',   "Emp Grp
      c_persk(5)                     value 'PERSK',   "Emp Subgrp
      c_orgeh(5)                     value 'ORGEH',   "Org Unit
      c_citem(5)                     value 'CITEM',   "Comp Review Item
      c_effdt(5)                     value 'EFFDT',   "Effective date
      c_0759  type infty             value '0759',    "Comp Process
      c_tclas type pspar-tclas       value 'A',       "Transaction class for data storage
      c_actio type pspar-actio       value 'INS',     "Infotype operation
      c_10    type ecm_carea         value '10',      "Comp Area
      c_background_id type bds_typeid value 'PMMN_BACKGROUND'.  "ALV background
 
 
* work fields
data:
       w_title type lvc_title,                      "#EC NEEDED  "Title
       w_count type i.      "no of recs
 
* field strings
* return structure
data: rec_return type bapiret1.   "return code
 
* internal tables
data:
     begin of t_out occurs 0,
      pernr   type pernr_d,         "Pers. No
      sname   type smnam,           "Employee name
      werks   type persa,           "Pers Area
      btrtl   type btrtl,           "Pers Subarea
      persg   type persg,           "Emp Group
      persk   type persk,           "Emp Subgrp
      orgeh   type orgeh,           "Org. Unit
      citem   type ecm_citem,       "Compensation Review Item
      effdt   type ecm_effdt,       "Effective date
      bssal   type ecm_bssal,       "Caluclation Base  "SD1K913769
      curre   type waers,           "Currency          "SD1K913769
end of t_out.
 
* error table
data:
      begin of t_error occurs 0,
       pernr type pernr_d,   "Pers no
       sname type sname,     "Emp Name