Hi,
You can ask your abaper to refer this program ... do some modifications if needed.....
tables : pa0000, pa0001, T529T, T530T.
TYPE-POOLS: slis.
data: BEGIN OF it OCCURS 0,
pernr like pa0001-pernr,
abkrs like pa0001-abkrs,
bukrs like pa0001-bukrs,
werks like pa0001-werks,
persg like pa0001-persg,
persk like pa0001-persk,
Sname like pa0001-sname,
BEGda like pa0000-begda,
endda like pa0000-endda,
MASSN like pa0000-MASSN,
MASSG like pa0000-MASSG,
MNTXT like T529T-MNTXT,
MGTXT like T530T-MGTXT,
end of it.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.
SELECTION-SCREEN begin of block b1.
select-OPTIONS : p_pernr for pa0001-pernr.
* SELECT-OPTIONS : sname for pa0001-sname.
SELECT-OPTIONS : werks for pa0001-werks.
SELECT-options : bukrs for pa0001-bukrs.
SELECT-OPTIONS : abkrs for pa0001-abkrs.
SELECTION-SCREEN END OF block b1.
PERFORM : get_data.
form : get_data.
SELECT
a~pernr
a~werks
a~abkrs
a~bukrs
a~persg
a~persk
a~sname
b~begda
b~endda
b~massn
b~MASSG
from pa0001 as a INNER JOIN pa0000 as b on a~pernr = b~pernr
into CORRESPONDING FIELDS OF TABLE it
where a~pernr in p_pernr and
* a~sname in sname and
a~werks in werks and
a~bukrs in bukrs and
a~abkrs in abkrs and
* b~endda = '99991231'
* and
a~endda = '99991231'.
loop at it.
select single MNTXT into it-MNTXT from T529T where SPRSL = 'EN' and MASSN = IT-MASSN.
modify it.
ENDLOOP.
LOOP AT IT.
SELECT SINGLE MGTXT INTO it-MGTXT FROM T530T WHERE SPRSL = 'EN' AND MASSN = IT-MASSN AND MASSG = IT-MASSG.
MODIFY IT.
ENDLOOP.
wa_fieldcat-fieldname = 'PERNR'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'PERSONNEL NUMBER'. " Column description in the output
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'SNAME'. " Fieldname in the data table
wa_fieldcat-seltext_m = 'Employee Name'. " Column description in the output
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-seltext_m = 'PERSONNEL AREA'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'SNAME'.
wa_fieldcat-seltext_m = 'EMPLOYEE NAME'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-seltext_m = 'Personnel Area'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'ABKRS'.
wa_fieldcat-seltext_m = 'Payroll Area'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'BUKRS'.
wa_fieldcat-seltext_m = 'Company Code'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'PERSG'.
wa_fieldcat-seltext_m = 'EMPLOYEE GROUP'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'PERSK'.
wa_fieldcat-seltext_m = 'EMPLOYEE SUBGROUP'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'BEGDA'.
wa_fieldcat-seltext_m = 'Start Date'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'ENDDA'.
wa_fieldcat-seltext_m = 'End Date'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'MNTXT'.
wa_fieldcat-seltext_m = 'ACTION TYPE'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-fieldname = 'MGTXT'.
wa_fieldcat-seltext_m = 'REASON FOR ACTION'.
APPEND wa_fieldcat TO it_fieldcat.
*Pass data and field catalog to ALV function module to display ALV list
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = it_fieldcat
TABLES
t_outtab = it
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM.
Regards,
Veeram