SAP ABAP编程 采购订单过账

FUNCTION zmm_jsd_post .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(EBELN) TYPE  EKPO-EBELN
*"     VALUE(EBELP) TYPE  EKPO-EBELP
*"     VALUE(PODATE) TYPE  SY-DATUM
*"  EXPORTING
*"     VALUE(E_FLAG) TYPE  CHAR1
*"     VALUE(E_INFO) TYPE  TEXT60
*"     VALUE(F_LBLNI) TYPE  CHAR10
*"----------------------------------------------------------------------
*     采购订单 过账接口
*"----------------------------------------------------------------------
***数据定义
   DATA : g_jsd                TYPE zmm_ys_jsd_item -jsd .     " 结算单号
   DATA : nownum       TYPE n LENGTH  10 .   "流水号
   DATA : maxnum       TYPE n LENGTH  10 .   "流水号
   DATA : lw_jspost  TYPE zmm_jspost_info  .

***采购订单行项目
   DATA : gw_ekpo      TYPE ekpo .
   DATA : gt_ekpo      TYPE  TABLE  OF ekpo .

***采购订单行项目服务明细
   DATA : gw_esll_item  TYPE esll ,
        gt_esll_item  TYPE  TABLE  OF esll .

**  Bapi Create Post
   DATA : lw_esllc   TYPE bapiesllc .
   DATA : lt_esllc   TYPE  TABLE  OF bapiesllc .                  "通讯结构:创建服务行
   DATA : lw_essrc   TYPE bapiessrc .                           "通讯结构: 创建输入单
   DATA : po_item    TYPE  TABLE  OF bapiekpo  WITH  HEADER  LINE .  "传输结构:显示/清单PO条目
   DATA : po_serv    TYPE  TABLE  OF bapiesll  WITH