点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S52 {color：#0000FF; } .L0S55 {color：#800080; } .L0S70 {color：#808080; }

报告ZEMPSAL。

表：ZEMPL，ZSAL。
DATA：IT_ZEMPL类型的ZEMPL表，
WA_ZEMPL类似于IT_ZEMPL的行。

DATA：IT_ZSAL ZSAL的类型表，
类似于IT_ZSAL的WA_ZSAL线。
类型：TY_EMPSAL的开头，

EMPCODE类型ZEMPCODE，
EMPNAME类型ZEMPNAME，
EMPDEPT类型ZEMPDEPT，
EMPDOB类型ZEMPDOB，
EMPCONTACT类型ZEMPCONTACT，
HIREDATE类型ZHIREDATE，
EDLEVEL类型ZEDLEVEL，
EMPSEX类型ZEMPSEX，
MARSTATUS类型ZMARSTATUS，
奖金类型ZPB br> EMPPF类型ZEMPPF，
EMPHRA类型ZEMPHRA，
EMPINHANND类型ZINHAND，
EMPCTC类型ZEMPCTC，
TY_EMPSAL的结尾。

DATA：IT_EMPSAL类型TY_EMPSAL的表 ，
WA_EMPSAL类似于IT_EMPSAL的产品线。


参数：P_EMPC类型的ZEMPCODE。

select-OPTIONS：s_EMPC用于zempl-empcode。


选择开始。

从ZEMPL中选择*到表IT_ZEMPL的对应字段中，其中EMPCODE = P_EMPC。 "选择查询

从ZSAL选择*到表IT_ZSAL的对应字段中，其中EMPCODE = P_EMPC。"选择查询


在it_zempl循环到wa_zempl。

wa_empsal EMPCODE：wa_zempl-EMPCODE。
wa_empsal-EMPNAME：wa_zempl-EMPNAME。
wa_empsal-EMPDEPT：wa_zempl-EMPDEPT。
wa_empsal-EMPDOB：wa_zempl-EMPDOBE：
wa_empsal
wa_empsal-HIREDATE：wa_zempl-HIREDATE。
wa_empsal-EDLEVEL：wa_zempl-EDLEVEL。
wa_empsal-EMPSEX：wa_zempl-EMPSEX。
wa_empsal-MARSTATUS：wa_zempl-MARUSUS。 ：wa_zempl-BONUS。

用密钥empcode = wa_zsal-empcode将it_zsal读入wa_zsal。

wa_empsal-EMPPF：WA_ZSAL-EMPPF。
wa_empsal-EMPHRA：WA_ZSAL-EM。 br> wa_empsal-EMPINHANND：WA_ZSAL-EMPINHANND。
wa_empsal-EMPCTC：WA_ZSAL-EMPCTC。


将WA_EMPSAL附加到IT_EMPSAL。

ENDLOOP。

< br>在IT_EMPSAL处循环进入WA_EMPSAL。
写：/WA_EMPSAL-EMPCODE。
写：WA_ EMPSAL-EMPNAME。 。
写入：WA_EMPSAL-EMPDEPT。 。
写入：WA_EMPSAL-EMPDOB。 。
写：WA_EMPSAL-EMPCONTACT。
写：WA_EMPSAL-HIREDATE。 。
写入：WA_EMPSAL-EDLEVEL。 。
写入：WA_EMPSAL-EMPSEX。 。
写入：WA_EMPSAL-MARSTATUS。 。
WRITE：WA_EMPSAL-BONUS。
WRITE：WA_EMPSAL-EMPPF。
WRITE：WA_EMPSAL-EMPHRA。
WRITE：WA_EMPSAL-EMPINHANND。
WRITE：WA_EMPSAL-EMPCTC。
< br>
ENDLOOP。