注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

更新号码对象  

2011-08-27 15:55:48|  分类: ABAP基础知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

databegin of gt_old_nr occurs 10"old value
        
include structure inriv.
dataend of gt_old_nr.

databegin of gt_new_nr occurs 10"new value
        
include structure inriv.
dataend of gt_new_nr.

databegin of gt_update_error occurs 10"wrong occurs
        
include structure inriv.
dataend of gt_update_error.

*------------------------- step 1. lock object -------------------------
call function 'NUMBER_RANGE_ENQUEUE'
  
exporting
    object           
'ZNOTEST'
  
exceptions
    foreign_lock     
1
    object_not_found 
2
    system_failure   
3
    
others           4.

*----------------------- step 2. get info ------------------------------
call function 'NUMBER_RANGE_INTERVAL_LIST'
  
exporting
    object   
'ZNOTEST'
  
tables
    interval 
gt_old_nr.

*----------------------- step 3. change object -------------------------
loop at gt_old_nr.
  
move-corresponding gt_old_nr to gt_new_nr.
  gt_new_nr
-nrlevel 3.    "当前号码
  gt_new_nr
-procind 'U'.
  
append gt_new_nr.
endloop.
call function 'NUMBER_RANGE_INTERVAL_UPDATE'
  
exporting
    object   
'ZNOTEST'
  
tables
    error_iv 
gt_update_error
    interval 
gt_new_nr.
*---没有NUMBER_RANGE_UPDATE_CLOSE修改不起作用
call function 'NUMBER_RANGE_UPDATE_CLOSE'
  
exporting
    object          
'ZNOTEST'
  
exceptions
    no_changes_made 
1
    
others          2.
commit work.

*------------------------ step 4. unlock object ------------------------
call function 'NUMBER_RANGE_DEQUEUE'
  
exporting
    object           
'ZNOTEST'
  
exceptions
    object_not_found 
1
    
others           2.

  评论这张
 
阅读(272)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017