ABAP中CONDENSE语句的应用

源代码：

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

*& Report ZYTEST

*&

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

*& ABAP中CONDENSE语句的应用

*&

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

REPORTZYTEST.

PARAMETERS:P_NUMTYPE I.

TYPES:T_ITABTYPE STANDARD TABLE OFZMNUMBER_TWITHEMPTYKEY.

DATA:GT_DREFTYPE REF TOT_ITAB.

*创建数据对象

CREATE DATA:GT_DREF.

DATA(LV_NUM) =CONV ZZNUMBER_E(|{ P_NUM ALIGN=RIGHT WIDTH=5PAD=`0`}|).

SELECT*

INTO TABLEGT_DREF->*FROMZMNUMBER_TWHEREZZNUMBER=LV_NUM.

CHECKGT_DREF->*IS NOT INITIAL.

DATA(LS_DREF) =NEWZMNUMBER_T(GT_DREF->*[1]).

WRITE:/1CONDENSE(|{ LS_DREF->*-ZZNUMBER ALPHA=OUT }号学员：{ LS_DREF->*-ZZNAME } |).

WRITE:/1 |电话：|,LS_DREF->*-ZZMOBILEUSING EDIT MASK'___-____-____'.

执行结果：

参考数据：