DTP取上一日
2017-03-02 11:10
120 查看
data: L_DATE_NC(8) TYPE N.
DATA: L_DATE TYPE D,L_DATE1 TYPE D.
DATA: LS_RANGE TYPE rssdlrange.
data: L_IDX like SY-TABIX.
read table L_T_RANGE with key
FIELDNAME = 'CALDAY'.
L_DATE1 = SY-DATUM - 1.
L_DATE_NC = L_DATE1+0(8). "HIGH
L_DATE = L_DATE_NC.
*L_DATE = L_DATE - 1000. "LOW
LS_RANGE-LOW = L_DATE.
LS_RANGE-HIGH = L_DATE_NC.
LS_RANGE-SIGN = 'I'.
LS_RANGE-OPTION = 'BT'.
LS_RANGE-IOBJNM = '0CALDAY'.
LS_RANGE-FIELDNAME = 'CALDAY'.
if L_IDX <> 0.
modify L_T_RANGE index L_IDX.
else.
append LS_RANGE to L_T_RANGE.
endif.
p_subrc = 0.
DATA: L_DATE TYPE D,L_DATE1 TYPE D.
DATA: LS_RANGE TYPE rssdlrange.
data: L_IDX like SY-TABIX.
read table L_T_RANGE with key
FIELDNAME = 'CALDAY'.
L_DATE1 = SY-DATUM - 1.
L_DATE_NC = L_DATE1+0(8). "HIGH
L_DATE = L_DATE_NC.
*L_DATE = L_DATE - 1000. "LOW
LS_RANGE-LOW = L_DATE.
LS_RANGE-HIGH = L_DATE_NC.
LS_RANGE-SIGN = 'I'.
LS_RANGE-OPTION = 'BT'.
LS_RANGE-IOBJNM = '0CALDAY'.
LS_RANGE-FIELDNAME = 'CALDAY'.
if L_IDX <> 0.
modify L_T_RANGE index L_IDX.
else.
append LS_RANGE to L_T_RANGE.
endif.
p_subrc = 0.
相关文章推荐
- 2950实践2---理解什么叫管理vlan与业务VLAN,理解DTP及trunk的配置
- DTP
- DTP取上月
- 获取DTP跑的request ID
- BW--一些关于DTP的一些链接
- DTP简介
- 转换与DTP的关系
- Layer2-3 VLAN和DTP
- SAP_BW建模第五步之创建数据传输进程(DTP)
- BW--一些关于DTP的一些链接
- 针对 Eclipse DTP 的 Oracle 数据库插件入门
- 2PC、XA、DTP与两阶段提交
- 2PC、XA、DTP与两阶段提交
- DTP的优化
- DTP 抓包分析
- BW--一些关于DTP的一些链接
- 传输增量DTP的处理
- cisco专有协议CDP、DTP、ISL、PAGP、VTP简介
- DTP语义组分析