员工清单ABA样例.docVIP

员工清单ABAP样例 员工清单ABAP样例.txt爱情是艺术，结婚是技术，离婚是算术。这年头女孩们都在争做小“腰”精，谁还稀罕小“腹”婆呀？高职不如高薪，高薪不如高寿，高寿不如高兴。** * Report ZHRPYM02 * ** * * ** REPORT ZHRPYM02 NO STANDARD PAGE HEADING MESSAGE-ID zmhr. TYPE-POOLS slis. 用于声明类型组Lsis中的数据类型和常量 TABLES: pernr,zthrjob. tables用于声明可以使用它的表空间区域 zthrjob岗位与职系、序列、职等的关系 NODES: person, NODES可以把数据从逻辑数据库考贝到可执行程序 group, CE peras. CE INFOTYPES: 0001, 0002, 0022, 0032, 0041, 0185, 0529, 0534, 0709. DATA: it_fieldcat TYPE lvc_s_fcat OCCURS 0, ALV格式 LVC_S_FCAT： ALV 控制: 字段目录 wa_fieldcat TYPE lvc_s_fcat, wa_layout TYPE lvc_s_layo. lvc_s_layo 布局 DATA: BEGIN OF itab OCCURS 0, 定义内表 pernr LIKE pa0001-pernr, 人员编号 sname LIKE pa0001-sname, 员工姓名 gesch LIKE Pa0002-GESCH, 员工性别ID SEX(4), 用于显示员工性别文本 age TYPE i, 员工年龄 gbdat like pa0002-GBDAT, 出生日期 pcode LIKE Pa0534-PCODE, 政治面貌 werks LIKE pa0001-werks, 人事范围ID name1 LIKE t500p-name1, 人事范围文本 orgeh LIKE p0001-orgeh, 部门ID orgtx LIKE t527x-orgtx, 部门名称 plans LIKE pa0001-plans, 职位ID plstx LIKE t528t-plstx, 职位文本 stell LIKE pa0001-stell, 岗位ID stltx like t513s-stltx, 岗位文本 icnum LIKE p0185-icnum, 身份证号 zgwlb LIKE pa0001-zgwlb, 岗位类别，从域取值 zzx LIKE pa0001-zzx, 职系ID zzhixi LIKE zthrzx-zzhixi, 职系文本 zxl LIKE pa0001-zxl, 序列ID zxulie LIKE zthrxl-zxulie, 序列文本 gl_t(40), sl_t(40), END OF itab. data: zbegda like pa0001-begda, zendda like pa0001-endda. DATA: BEGIN OF it_peras OCCURS 0, personid_ext LIKE pa0709-personid_ext, END OF it_peras. DATA: zperas_num TYPE i,用于最后报表输出时的人员统计 zpernr_num TYPE i. DATA: l_dd07v_zgwlb LIKE STANDARD TABLE OF dd07v WITH HEADER LINE. 声明岗位类别域，以便取文本 DATA: l