*----------------------------------------------------------------------*
* INCLUDE ZERU_USR_STAT_FORMS *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form ALV_PREPARE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM ALV_PREPARE.
IF GT_LVC_FCAT IS INITIAL.
PERFORM ALVG_FIELDCAT_CREATE USING 'ITAB' G_REPID_DATA.
PERFORM ALVG_FCAT_CREATE TABLES ITAB.
ENDIF."gt_lvc_fcat
*----------------------------------------------------------------------*
* INCLUDE ZERU_USR_STAT_PBO *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN'.
* SET TITLEBAR 'xxx'.
DATA : LO_REUSE_ALV_GRID TYPE REF TO ZERUXX_CL_REUSE_ALV_GRID.
DATA : LO_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER.
IF G_CUSTOM_CONTAINER IS INITIAL.
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING CONTAINER_NAME = G_CONTAINER.
*----------------------------------------------------------------------*
* INCLUDE ZERU_USR_STAT_SSCR *
*----------------------------------------------------------------------*
SELECT-OPTIONS: RUSER for SAPWLPFNRM-ACCOUNT
default SY-UNAME, "User
RTCODE for SAPWLPFNRM-TCODE, "Tcode
RPROGRAM for SAPWLPFNRM-REPORT. "Report
* TASKTYPE, "Tasktyp
* RSCREEN LIKE SAPWLPFNRM-DYNPRONR, "Dynpro
* RWPID(2). "Work Process
SELECTION-SCREEN ULINE.
*PARAMETERS: RRSPTI LIKE SAPWLPFIDX-MAX_RESPTI,"Resp. time
* RDBTI LIKE SAPWLPFIDX-MAX_DBTI, "DB time
* RCPUTI LIKE SAPWLPFIDX-MAX_CPUTI, "CPU time
* RKBYTE TYPE I, "Bytes trans
* RCHG TYPE I. "Phys.Aenderg.
PARAMETERS: RSTARTTI LIKE SY-UZEIT default '000000' ,
RDAY LIKE SY-DATUM default sy-datum,"ab Tag
RENDTI LIKE SY-UZEIT default '235959',
RENDDAY LIKE SY-DATUM default sy-datum.
SELECTION-SCREEN ULINE.
*PARAMETERS: RPATH LIKE SAPWLPSTRC-FILENAME, "Stat.Dateinam
* RMAXCNT TYPE I DEFAULT 200. "Anzahl
*----------------------------------------------------------------------*
* INCLUDE ZERU_USR_STAT_TOP *
*----------------------------------------------------------------------*
TABLES: STATS_CUML, "Ergebnisstruktur Einzelsatz
STA1, "Statistikanzeige Summensatz
STA2, "Statistikanzeige Einzelsatz
STATL, "Selection data single record
* statr, "Rohdaten Statistikeinzelsatz
STATB, "Rohdaten Tab.Statistikeinzelsatz
TSTCT, "Text f_r Transaktionen
D020T, "Text f_r Screens
TADIR, "Objekttabelle f_r Textbeschaf.
TDEVCT, "Text f_r Entw.klassen
TRCLT, "Text f_r Reportklassen
TRDIR, "Reportinformationen
EUDB, "Enthфlt Text der Funktionskeys
MONI, "Performance Datenbank MONI
MONI_V01, "Streichview zu MONI
* pfnorm,
SAPWLPFNRM. "Version 2: Normal statistic rec.
TYPES: SLIN.
*types: begin of ty_itab,
*
*
*
* endof ty_itab.
DATA: ITAB LIKE SAPWLPFNRM OCCURS 0
WITH HEADER LINE.
DATA: IT_USR01 TYPE SORTED TABLE OF USR01
WITH UNIQUE KEY BNAME
WITH HEADER LINE.
DATA: V2_NORMAL_RECORDS LIKE SAPWLPFNRM OCCURS 0 WITH HEADER LINE,
******* importing
FILE_ERROR LIKE SAPWLPSTRC-FILE_ERROR,
RECORDS_READ LIKE SAPWLSFIDX-RECORDNO ,
EOF_REACHED LIKE SAPWLPSTRC-FLAG ,
*CONTINUE_RECORDNO_FOLIKE SAPWLSFIHD-RECORDNO ,
*CONTINUE_RECORDNO_BALIKE SAPWLSFIHD-RECORDNO ,
PROBLEMS LIKE SAPWLPSTRC-COUNTER .
******* alv
*ALV layout
DATA: OK_CODE LIKE SY-UCOMM,
G_CONTAINER TYPE SCRFNAME VALUE 'CUSTOM',
GRID1 TYPE REF TO CL_GUI_ALV_GRID,
G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
GO_GUI_CONTAINER TYPE REF TO CL_GUI_CONTAINER.
DATA: G_REPID LIKE SY-REPID VALUE 'ZERU_USR_STAT'.
DATA: G_REPID_DATA LIKE SY-REPID VALUE 'ZERU_USR_STAT_TOP'.
DATA:
GS_DISVARI TYPE DISVARIANT,
GS_TREEV_HDR TYPE TREEV_HHDR,
GS_ALV_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "#EC NEEDED
GT_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "#EC NEEDED
GS_ALV_LAYOUT TYPE SLIS_LAYOUT_ALV,
GS_KEYINFO TYPE SLIS_KEYINFO_ALV,
GS_SORTCAT TYPE SLIS_SORTINFO_ALV, " Sorting Catalog
GT_SORTCAT TYPE SLIS_T_SORTINFO_ALV, "#EC NEEDED
GS_ALV_FILTER TYPE SLIS_FILTER_ALV,
GT_ALV_FILTER TYPE SLIS_T_FILTER_ALV,
GS_LVC_FILTER TYPE LVC_S_FILT,
GT_LVC_FILTER TYPE LVC_T_FILT,
GS_EVENTS TYPE SLIS_ALV_EVENT,
GT_EVENTS TYPE SLIS_T_EVENT,
GS_EVENT_EXIT TYPE SLIS_EVENT_EXIT,
GT_EVENT_EXIT TYPE SLIS_T_EVENT_EXIT,
GF_EXIT_BY_CALLER
TYPE CHAR1, "06.04.2004
GS_EXIT_BY_USER TYPE SLIS_EXIT_BY_USER,
GS_TOP_OF_PAGE TYPE SLIS_LISTHEADER,
GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
G_METHOD_EXPORT TYPE C,
GS_FCODE_EXCLUDING
TYPE SLIS_EXTAB,
GT_FCODE_EXCLUDING
TYPE SLIS_T_EXTAB,
G_ITEM_NAME TYPE LVC_FNAME,
GT_NODES TYPE LVC_T_NKEY,
GT_GRIDLAYO TYPE LVC_S_LAYO,
GS_LVC_FCAT TYPE LVC_S_FCAT,
GT_LVC_FCAT TYPE LVC_T_FCAT,
GT_SORT TYPE LVC_T_SORT ,
GS_SORTINFO TYPE SLIS_SORTINFO_ALV,
GT_SORTINFO TYPE SLIS_T_SORTINFO_ALV.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
