日志
字符串的倒序处理，两则
||
1.字符拼接 CONCATENATE
WRITE /'TASK01 ---------------'.
WRITE: / .
DATA:CHAR1 TYPE C LENGTH 7 VALUE 'ABCDEFG',
INT TYPE I,
INT2 TYPE I,
CHAR2(7) TYPE C,
CHAR22(7) TYPE C,
CHAR3(1) TYPE C.
INT = 7.
WRITE :/,'char1:',CHAR1.
CONCATENATE CHAR3 CHAR1+6 INTO CHAR3.
WRITE :/,'char3:',CHAR3.
WHILE INT > 0 .
INT = INT - 1.
CONCATENATE CHAR2 CHAR1+INT(1) INTO CHAR2.
ENDWHILE.
WRITE :/,'char2:',CHAR2.
INT2 = 7.
WHILE INT2 > 0 .
INT2 = INT2 - 1.
WRITE :/,'char1 +',INT2,' :',CHAR1+INT2.
ENDWHILE.
WRITE: / .
DATA:CHAR1 TYPE C LENGTH 7 VALUE 'ABCDEFG',
INT TYPE I,
INT2 TYPE I,
CHAR2(7) TYPE C,
CHAR22(7) TYPE C,
CHAR3(1) TYPE C.
INT = 7.
WRITE :/,'char1:',CHAR1.
CONCATENATE CHAR3 CHAR1+6 INTO CHAR3.
WRITE :/,'char3:',CHAR3.
WHILE INT > 0 .
INT = INT - 1.
CONCATENATE CHAR2 CHAR1+INT(1) INTO CHAR2.
ENDWHILE.
WRITE :/,'char2:',CHAR2.
INT2 = 7.
WHILE INT2 > 0 .
INT2 = INT2 - 1.
WRITE :/,'char1 +',INT2,' :',CHAR1+INT2.
ENDWHILE.
2.偏移量
DATA : STR1_1 TYPE C LENGTH 9 VALUE 'ABCDEFG',
STR1_2 LIKE STR1_1,
INT1_L TYPE I ,
INT1_R TYPE I.
INT1_L = 0.
INT1_R = STRLEN( STR1_1 ) - 1.
DO .
IF INT1_R < 0.
EXIT.
ENDIF.
STR1_2+INT1_R(1) = STR1_1+INT1_L(1).
INT1_L = INT1_L + 1.
INT1_R = INT1_R - 1.
ENDDO.
WRITE / STR1_1.
WRITE / STR1_2.
STR1_2 LIKE STR1_1,
INT1_L TYPE I ,
INT1_R TYPE I.
INT1_L = 0.
INT1_R = STRLEN( STR1_1 ) - 1.
DO .
IF INT1_R < 0.
EXIT.
ENDIF.
STR1_2+INT1_R(1) = STR1_1+INT1_L(1).
INT1_L = INT1_L + 1.
INT1_R = INT1_R - 1.
ENDDO.
WRITE / STR1_1.
WRITE / STR1_2.
