Skip to Content
0
Former Member
May 29, 2007 at 01:55 AM

How to assign string to structure in Unicode system R/3 4.7??

1596 Views

Howdy! Experts.

When using below codes to encrypt string, I got Unicode conversion error:

"A" and "KEY" are not mutually convertible in a Unicode program.

PARAMETERS: STRING(96), KEY(8).
PARAMETER ENCRYPT RADIOBUTTON GROUP RB.
PARAMETER DECRYPT RADIOBUTTON GROUP RB.
DATA: I TYPE I, J TYPE I.
DATA: BEGIN OF A,
   1 TYPE X, 2 TYPE X, 3 TYPE X, 4 TYPE X,
   5 TYPE X, 6 TYPE X, 7 TYPE X, 8 TYPE X,
END OF A.
DATA: BEGIN OF B,
   1 TYPE X, 2 TYPE X, 3 TYPE X, 4 TYPE X,
   5 TYPE X, 6 TYPE X, 7 TYPE X, 8 TYPE X,
END OF B.
DATA: BEGIN OF C,
   1 TYPE X, 2 TYPE X, 3 TYPE X, 4 TYPE X,
   5 TYPE X, 6 TYPE X, 7 TYPE X, 8 TYPE X,
END OF C.
DATA: BEGIN OF D,
   1 TYPE X, 2 TYPE X, 3 TYPE X, 4 TYPE X,
   5 TYPE X, 6 TYPE X, 7 TYPE X, 8 TYPE X,
END OF D.
DATA: BEGIN OF E,
   1 TYPE X, 2 TYPE X, 3 TYPE X, 4 TYPE X,
   5 TYPE X, 6 TYPE X, 7 TYPE X, 8 TYPE X,
END OF E.

WRITE: / STRING.
*                          encrypting
J = STRLEN( STRING ).
A = KEY.     "conversion error here
DO.
  B = STRING+I.  "conversion error here
  E = B.
  IF SY-INDEX = 1.
    B-1 = A-1 + B-1.B-2 = A-2 + B-2.B-3 = A-3 + B-3.B-4 = A-4 + B-4.
    B-5 = A-5 + B-5.B-6 = A-6 + B-6.B-7 = A-7 + B-7.B-8 = A-8 + B-8.
  ELSE.
    B-1 = C-1 + D-1 + B-1.B-2 = C-2 + D-2 + B-2.
    B-3 = C-3 + D-3 + B-3.B-4 = C-4 + D-4 + B-4.
    B-5 = C-5 + D-5 + B-5.B-6 = C-6 + D-6 + B-6.
    B-7 = C-7 + D-7 + B-7.B-8 = C-8 + D-8 + B-8.
  ENDIF.
  D = B. C = E.
  STRING+I(8) = B.
  I = I + 8.
  IF I >= J.
    EXIT.
  ENDIF.
ENDDO.

How can I assign a char string to a structure in the same type with A/B/C../E here?

Thanks a lot, it's urgent.

Message was edited by:

Kee Wang