Chinaunix首页 | 论坛 | 博客
  • 博客访问: 44159
  • 博文数量: 15
  • 博客积分: 610
  • 博客等级: 上士
  • 技术积分: 170
  • 用 户 组: 普通用户
  • 注册时间: 2009-07-14 07:31
文章分类

全部博文(15)

文章存档

2011年(1)

2009年(14)

我的朋友
最近访客

分类:

2009-07-18 21:30:45

 
*&---------------------------------------------------------------------*
*& Report  z_barry_reverse                                              *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  z_barry_reverse NO STANDARD PAGE HEADING  .
 
DATA: c1(20) TYPE c ,
      c2(20) TYPE c.
 
c1 = 'ABCDEFGHIJK'.
 
CALL FUNCTION 'STRING_REVERSE'
  EXPORTING
    string    = c1
    lang      = '1'
  IMPORTING
    rstring   = c2
  EXCEPTIONS
    too_small = 1
    OTHERS    = 2.
 
WRITE c2.
阅读(702) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~