Code: Alles auswählen.
REPORT z_sb_write_stats9024 .
TABLES: pa9024,pa0002.
DATA: l_begda(8) TYPE c,
alv_list TYPE REF TO cl_gui_alv_grid.
DATA: BEGIN OF ausgabe OCCURS 0,
seltext_m(20) TYPE c,
stats LIKE pa9024-stats,
vorna LIKE pa0002-vorna,
nachn LIKE pa0002-nachn,
ename TYPE emnam,
pernr TYPE pa9024-pernr,
begda LIKE pa9024-begda,
endda LIKE pa9024-endda,
END OF ausgabe.
DATA: wa_ausgabe LIKE LINE OF ausgabe.
DATA: l_bapireturn LIKE bapireturn1.
***************************************************************
* S E L E C T I O N - S C R E E N - D E C L A R A T I O N S
***************************************************************
SELECTION-SCREEN BEGIN OF BLOCK block10 WITH FRAME TITLE text-001.
* Starting EE
SELECT-OPTIONS: p_start FOR pa9024-pernr NO INTERVALS
MATCHCODE OBJECT prem.
PARAMETERS: p_year TYPE zp_pyear OBLIGATORY DEFAULT 2005.
PARAMETERS: p_status TYPE pa9024-stats OBLIGATORY DEFAULT 3.
SELECTION-SCREEN END OF BLOCK block10.
*----------------------------------------------------------------------*
* INITIALIZATION EVENT
*----------------------------------------------------------------------*
*INITIALIZATION.
***************************************************************
* A T - S E L E C T I O N - S C R E E N
***************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_year.
PERFORM f4_help_for_appraisal_year.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_status.
PERFORM f4_help_for_opp_status.
***************************************************************
* S T A R T - O F - S E L E C T I O N
***************************************************************
START-OF-SELECTION.
* check authorization (general appraisal auth) (specific auths for
* each employee selected will be performed later in selection)
AUTHORITY-CHECK OBJECT 'P_HAP_DOC'
ID 'ACTVT' DUMMY
ID 'PLVAR' DUMMY
ID 'HAP_CAT_G' DUMMY
ID 'HAP_CAT' DUMMY
ID 'HAP_TEMPL' DUMMY
ID 'PROFL' DUMMY.
IF syst-subrc NE 0.
MESSAGE i032(zhpd) WITH 'program' syst-repid.
EXIT.
ENDIF.
**** NEEDED for Comparison in Select Statement
CONCATENATE
p_year
'%' "Wildcard SQL
INTO l_begda.
CLEAR ausgabe. "clearing the table
SELECT pa9024~begda pa9024~endda pa9024~stats pa9024~hipof pa0002~pernr
pa0002~nachn pa0002~vorna
INTO CORRESPONDING FIELDS OF TABLE ausgabe
FROM pa9024 INNER JOIN pa0002 ON pa9024~pernr = pa0002~pernr
WHERE pa9024~pernr IN p_start
AND pa9024~begda LIKE l_begda.
LOOP AT ausgabe INTO wa_ausgabe.
WRITE: / wa_ausgabe-pernr.
ENDLOOP.