ABAP九宫图

源代码：

*&---------------------------------------------------------------------*

*& Report ZYTEST

*&

*&---------------------------------------------------------------------*

*& ABAP九宫图

*&

*&---------------------------------------------------------------------*

REPORTZYTEST.

DATA(V_STR) ='九宫图'.

TYPES:

BEGIN OFTS_N,

L1TYPE I,

L2TYPE I,

L3TYPE I,

END OFTS_N.

TYPES:

TT_NTYPE STANDARD TABLE OFTS_NWITHEMPTYKEY.

DATA(T_TT_N)

=VALUETT_N( (L1=4L2=9L3=2)

(L1=3L2=5L3=7)

(L1=8L2=1L3=6)

).

* ALV Object Model

DATA:GR_TABLETYPE REF TOCL_SALV_TABLE.

CL_SALV_TABLE=>FACTORY(IMPORTINGR_SALV_TABLE=GR_TABLECHANGINGT_TABLE=T_TT_N).

SY-TITLE=V_STR.

GR_TABLE->DISPLAY( ).

执行结果：