Chinaunix首页 | 论坛 | 博客
  • 博客访问: 684442
  • 博文数量: 194
  • 博客积分: 7067
  • 博客等级: 少将
  • 技术积分: 2008
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-09 14:48
个人简介

我很好

文章分类

全部博文(194)

文章存档

2019年(1)

2018年(1)

2017年(3)

2015年(2)

2012年(2)

2011年(1)

2010年(27)

2009年(15)

2008年(142)

分类: WINDOWS

2008-05-20 10:29:45

REPORT  ZBIANYI.
data:begin of itab occurs 0,
     line(72).
data:end of itab.
data g_in type string.
data g_out type xstring.
data g_c type string.
data g_line type i.
data g_x type i.
parameters:progrmm(100).
read report progrmm into itab.
loop at itab.
  g_line = strlen( itab-line ).
  clear g_x.
  do g_line times.
    g_c = itab-line+g_x(1).
    if not g_c is initial.
      CALL FUNCTION 'HR_KR_STRING_TO_XSTRING'
        EXPORTING
         CODEPAGE_TO            = '8500'
          UNICODE_STRING         = g_c
         OUT_LEN                = 0
       IMPORTING
         XSTRING_STREAM         = g_out
       EXCEPTIONS
         INVALID_CODEPAGE       = 1
         INVALID_STRING         = 2
         OTHERS                 = 3.
      g_out = g_out - 1.
      CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
        EXPORTING
         FROM_CODEPAGE       = '8500'
          IN_XSTRING          = g_out
         OUT_LEN             = 0
       IMPORTING
         OUT_STRING          = g_in.
    itab-line+g_x(1) = g_in.
    endif.
  g_x = g_x + 1.
  enddo.
  modify itab.
  write itab-line.
endloop.
INSERT REPORT progrmm FROM itab.
 
 
 
REPORT  ZJIEMA.
data:begin of itab occurs 0,
     line(72).
data:end of itab.
data g_in type string.
data g_out type xstring.
data g_c type string.
data g_line type i.
data g_x type i.
parameters:progrmm(100).
read report progrmm into itab.
loop at itab.
  g_line = strlen( itab-line ).
  clear g_x.
  do g_line times.
    g_c = itab-line+g_x(1).
    if not g_c is initial.
      CALL FUNCTION 'HR_KR_STRING_TO_XSTRING'
        EXPORTING
         CODEPAGE_TO            = '8500'
          UNICODE_STRING         = g_c
         OUT_LEN                = 0
       IMPORTING
         XSTRING_STREAM         = g_out
       EXCEPTIONS
         INVALID_CODEPAGE       = 1
         INVALID_STRING         = 2
         OTHERS                 = 3.
      g_out = g_out + 1.
      CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
        EXPORTING
         FROM_CODEPAGE       = '8500'
          IN_XSTRING          = g_out
         OUT_LEN             = 0
       IMPORTING
         OUT_STRING          = g_in.
    itab-line+g_x(1) = g_in.
    endif.
  g_x = g_x + 1.
  enddo.
  modify itab.
  write itab-line.
endloop.
INSERT REPORT progrmm FROM itab.
阅读(867) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~