se38程序加密

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.