1。从字段NUMBER输出到字段STRING,输出到屏幕不同位置。
2。数值传递给字符类型,以及字符传递给字符类型
DATA: STRING(20),
NUMBER(8) TYPE C VALUE '123456',
OFFSET TYPE I VALUE 8,
LENGTH TYPE I VALUE 12.
* 偏移8位,选取长度12,在这12长度中,靠左输出。
WRITE NUMBER(6) TO STRING+OFFSET(LENGTH) LEFT-JUSTIFIED.
WRITE: / STRING, 1.
CLEAR STRING.
WRITE NUMBER(6) TO STRING+OFFSET(LENGTH) CENTERED.
WRITE: / STRING, 2.
CLEAR STRING.
WRITE NUMBER(6) TO STRING+OFFSET(LENGTH) RIGHT-JUSTIFIED.
WRITE: / STRING, 3.
CLEAR STRING.
2。数值传递给字符类型,以及字符传递给字符类型
DATA : I_1 TYPE I,
STR1(11),
STR2(11).
DATA : I TYPE I.
I_1 = 9.
STR1 = 9.
WRITE STR1 TO STR2 LEFT-JUSTIFIED.
I = STRLEN( STR2 ).
WRITE : / STR2, I, 4. " 未实现靠左输出,字符->字符,长度为10,不理解
WRITE I_1 TO STR2 LEFT-JUSTIFIED.
I = STRLEN( STR2 ).
WRITE : / STR2, I, 4. " 实现靠左输出,数值->字符,并且长度为1