没有合适的资源?快使用搜索试试~ 我知道了~
txt接口下载示范程序
需积分: 9 5 下载量 116 浏览量
2009-01-19
17:01:03
上传
评论
收藏 32KB TXT 举报
温馨提示
试读
31页
是一个关于txt文件下载的示范程序,写的很好
资源推荐
资源详情
资源评论
******************************************************
* PROGRAM: YBND0039 TRANS CODE: YL37
*
* AUTHOR: ADA TANG CREATE DATE: 2003/10/06
* last changed by dean on 2004/03/04
* PURPOSE: DOMESTIC RETURN INTERFACE FOR EC.
*****************************************************
report zty00002 no standard page heading
line-size 170 line-count 58.
*--------------------------declare table------------*
tables: zt507,zt508,zt512,zm001g,zt509,zems2,mkpf,mseg,
zm001,zdret,yitem,yitemr,lfb1,ymat,ymatr,zems1,yaccount,
zcu01,zcu03,zcu05,zex05,ekbe,zdckp,zreimk.
*-----------------------declare interial table------*
data: begin of i_ref occurs 0,
retno like zt508-retno,
invno like zt509-invno,
zcarno1 like zreimk-zcarno1,
tradc like zdckp-tradc,
end of i_ref .
data: begin of i_zt507 occurs 0,
kverm like lfb1-kverm,
ifcus like zdret-retype,
expno like zdret-expno.
include structure zt507.
data: end of i_zt507.
data: begin of i_zt508 occurs 0,
expno like zdret-expno,
retno like zt508-retno,
reitem like zt508-reitem,
* PROGRAM: YBND0039 TRANS CODE: YL37
*
* AUTHOR: ADA TANG CREATE DATE: 2003/10/06
* last changed by dean on 2004/03/04
* PURPOSE: DOMESTIC RETURN INTERFACE FOR EC.
*****************************************************
report zty00002 no standard page heading
line-size 170 line-count 58.
*--------------------------declare table------------*
tables: zt507,zt508,zt512,zm001g,zt509,zems2,mkpf,mseg,
zm001,zdret,yitem,yitemr,lfb1,ymat,ymatr,zems1,yaccount,
zcu01,zcu03,zcu05,zex05,ekbe,zdckp,zreimk.
*-----------------------declare interial table------*
data: begin of i_ref occurs 0,
retno like zt508-retno,
invno like zt509-invno,
zcarno1 like zreimk-zcarno1,
tradc like zdckp-tradc,
end of i_ref .
data: begin of i_zt507 occurs 0,
kverm like lfb1-kverm,
ifcus like zdret-retype,
expno like zdret-expno.
include structure zt507.
data: end of i_zt507.
data: begin of i_zt508 occurs 0,
expno like zdret-expno,
retno like zt508-retno,
reitem like zt508-reitem,
werks like zt508-werks,
ifcus(1) type c,
matnr like zt508-matnr,
rmenge like zt512-rmenge,
ntgew like zt508-ntgew,
brgew like zt508-brgew,
meins like zt508-meins,
popri like zt508-popri,
pocur like zt508-pocur,
zmeast like zt508-zmeast,
mjahr like zt512-mjahr,
mblnr like zt512-mblnr,
zeile like zt512-zeile,
rmjahr like mseg-mjahr,
rmblnr like mseg-mblnr,
rzeile like mseg-zeile,
pnum like zm001g-pnum,
erdat like zm001-erdat,
pitem like zm001g-pitem,
ebeln like zt508-ebeln,
ebelp like zt508-ebelp,
accno like yaccount-accno,
land1 like zt507-land1,
end of i_zt508.
data: begin of itab_ctm occurs 0,
custom like zems2-custom,
pnum like zm001-pnum,
pitem like zm001-pitem,
rflag like zems1-rflag,
end of itab_ctm.
ifcus(1) type c,
matnr like zt508-matnr,
rmenge like zt512-rmenge,
ntgew like zt508-ntgew,
brgew like zt508-brgew,
meins like zt508-meins,
popri like zt508-popri,
pocur like zt508-pocur,
zmeast like zt508-zmeast,
mjahr like zt512-mjahr,
mblnr like zt512-mblnr,
zeile like zt512-zeile,
rmjahr like mseg-mjahr,
rmblnr like mseg-mblnr,
rzeile like mseg-zeile,
pnum like zm001g-pnum,
erdat like zm001-erdat,
pitem like zm001g-pitem,
ebeln like zt508-ebeln,
ebelp like zt508-ebelp,
accno like yaccount-accno,
land1 like zt507-land1,
end of i_zt508.
data: begin of itab_ctm occurs 0,
custom like zems2-custom,
pnum like zm001-pnum,
pitem like zm001-pitem,
rflag like zems1-rflag,
end of itab_ctm.
剩余30页未读,继续阅读
资源评论
炜福科技上海
- 粉丝: 0
- 资源: 5
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功