模拟薪酬核算并输出RT表

  "读取RT表
* 先进行本月模拟工资核算
  SUBMIT hcncalc0           " 薪资核算
     WITH pnptimr9 EQ pnptimr9
     WITH pnptimra EQ pnptimra "'X'
     WITH pnppernr EQ pernr-pernr "PNPPERNR "'80004699' "pernr-pernr
     WITH pnpxabkr EQ pnpxabkr "pnpxabkr
     WITH pnppabrp EQ pnppabrp                              "'12'
     WITH pnppabrj EQ pnppabrj                              "'2013'
     WITH schema   EQ p_schema "'CN00'            " 蒙东电力工资核算模式
     WITH ocrsn EQ ocrsn"工资核算原因
     WITH payty EQ p_payty"非周期的工资核算 类型
     WITH payid EQ p_payid"非周期的工资核算 标识
     WITH bondt EQ p_bondt"非周期的工资核算 日期
*   WITH RUECK-AB EQ RUECK-AB
     WITH test     EQ 'NOUPD/RT/OFF'
     WITH tst_on   EQ 'X' "测试运行
     WITH prt_prot EQ ' '
     WITH ecalled  EQ 'X' "正式核算
     WITH sw_spool EQ ' '
     AND RETURN .

  IMPORT rt FROM MEMORY ID 'RT'.
  FREE MEMORY ID 'RT'.