源代码:
*&---------------------------------------------------------------------*
*& 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 }|.
执行结果:
参考数据:
领取专属 10元无门槛券
私享最新 技术干货