ABAP NEW中COND语句的应用

源代码：

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

*& Report ZYTEST

*&

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

*& ABAP NEW中COND语句的应用

*&

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

REPORTZYTEST.

PARAMETERS:FNAME(10).

TYPES:T_ITABTYPE STANDARD TABLE OFZMNUMBER_TWITHEMPTYKEY,

S_STRUCTTYPEZMNUMBER_T.

DATA:GT_DREFTYPE REF TOT_ITAB,

GS_DREFTYPE REF TOS_STRUCT.

*转换通配符

DATA(LV_TEXT) =FNAME.

TRANSLATELV_TEXTUSING'*%+_'.

*创建数据对象

CREATE DATA:GT_DREF,GS_DREF.

SELECT*

INTO TABLEGT_DREF->*FROMZMNUMBER_TWHEREZZNAMELIKELV_TEXT.

CHECKGT_DREF->*IS NOT INITIAL.

GS_DREF->*=GT_DREF->*[1].

GS_DREF->*-ZZSEX=COND #(WHENGT_DREF->*[1]-ZZSEX='M'THEN'男'WHENGT_DREF->*[1]-ZZSEX='W'THEN'女').

*转换通配符

TRANSLATELV_TEXTUSING`% _ `.

WRITE:/1 |{CONDENSE(LV_TEXT)}姓学员：{ GS_DREF->*-ZZNAME }性别：{ GS_DREF->*-ZZSEX }|.

WRITE:/1 |{CONDENSE(LV_TEXT)}姓学员：{ GS_DREF->*-ZZNAME }|.

执行结果：

参考数据：