Posted: Thu Jul 03, 2008 11:20 pm Post subject: Details of costom objects during creation or change
A simple ALV - Details of Y/Z objects with lists of users/date/time/description during creation or change of the object.
Code:
*&---------------------------------------------------------------------*
*& Report Z_OBJECT_TRACKER *
*& Author :Swarna.S.
*&---------------------------------------------------------------------*
*&
*& AS:
*& Simple ALV report -- Details of Y or Z objects
*& showing lists of all the users , date ,time and description for creation
*& or changes done on it
*&
*&---------------------------------------------------------------------*
REPORT z_object_tracker NO STANDARD PAGE HEADING.
*Type pools declaration for ALV.
TYPE-POOLS : slis.
*Structure declaration for TRDIR table
TYPES : BEGIN OF ty_trdir,
name(120), "Name of the the Y/Z program
cnam TYPE trdir-cnam, "Author
cdat TYPE trdir-cdat, "Created on
subc TYPE trdir-subc, "Program type
END OF ty_trdir.
*Structure declaration for the output in ALV fomrat
TYPES : BEGIN OF ty_output,
obj_name TYPE e071-obj_name, "Object Name(Y/Z)
trkorr TYPE e071-trkorr, "Transport Request
objtype(20) TYPE c, "object type
as4user TYPE e070-as4user, "User name
as4date TYPE e070-as4date, "date
as4time TYPE e070-as4time, "time
as4text TYPE e07t-as4text, "Short Text Describing R/3 Repository Objects
END OF ty_output.
*Internal table and work area declarations
*Declaration for TRDIR table
DATA : it_trdir TYPE STANDARD TABLE OF ty_trdir,
wa_trdir TYPE ty_trdir.
*Declaration for output table
DATA : it_output TYPE STANDARD TABLE OF ty_output,
wa_output TYPE ty_output.
*DATA Declarations for ALV grid
DATA: c_ccont TYPE REF TO cl_gui_custom_container,
c_alvgd TYPE REF TO cl_gui_alv_grid,
it_fcat TYPE lvc_t_fcat,
it_layout TYPE lvc_s_layo.
* For grid title
DATA : txt1 TYPE string.
DATA : txt2 TYPE string.
DATA : txt3 TYPE string.
DATA : txt4 TYPE string.
DATA : titletext TYPE string.
* Selection screen
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS : p_object LIKE wa_trdir-name.
SELECTION-SCREEN END OF BLOCK blk1.
*Subroutine to get the user name/date/time
PERFORM get_object_details.
*Subroutine to print alv output
PERFORM alv_output.
*End of selection event
END-OF-SELECTION.
*&---------------------------------------------------------------------*
*& Form alv_output
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM alv_output.
*Call the ALV screen with custom container
CALL SCREEN '0600'.
ENDFORM. " alv_output
*On this statement double click it takes you to the screen painter SE51.Enter the attributes
*Create a Custom container and name it C_GRID and OK code as OK_CODE.
*Save check and Activate the scren painter.
*NOw a normal screen witn number 600 is created which holds the ALV grid.
* PBO of the actual screen , Here we can give a title and customized menus
*&---------------------------------------------------------------------*
*& Module STATUS_0600 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0600 OUTPUT.
* SET TITLEBAR 'XXXX'.*
* SET PF-STATUS 'XXXXXXX'.
ENDMODULE. " STATUS_0600 OUTPUT
* calling the PBO module SET_GRID.
*&---------------------------------------------------------------------*
*& Module SET_GRID OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE set_grid OUTPUT.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDMODULE. " SET_GRID OUTPUT
* PAI module of the screen created. In case we use an interactive ALV or
*for additional functionalities we can create OK codes and based on the user command
*we can do the coding.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0600 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0600 INPUT.
ENDMODULE. " USER_COMMAND_0600 INPUT
*&---------------------------------------------------------------------*
*& Form get_object_details
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* Subroutine to fetch the details of the object through the necessary
* selections in the database.*
*----------------------------------------------------------------------*
FORM get_object_details.
*Select values from TRDIR
SELECT name cnam cdat subc FROM trdir INTO TABLE it_trdir
WHERE name EQ p_object AND ( name LIKE 'Z%' OR name LIKE 'Y%' ).
*Select values from CTS tables
IF sy-subrc IS INITIAL.
SELECT a~obj_name a~trkorr b~as4user b~as4date b~as4time c~as4text
INTO CORRESPONDING FIELDS OF TABLE it_output
FROM e071 AS a INNER JOIN e070 AS b
ON a~trkorr = b~trkorr
INNER JOIN e07t AS c
ON a~trkorr = c~trkorr
FOR ALL ENTRIES IN it_trdir
WHERE a~obj_name = it_trdir-name
AND c~langu = sy-langu AND
a~lockflag <> ' '.
ENDIF.
* Appending the selected values to our output internal table
LOOP AT it_output INTO wa_output.
AT NEW obj_name.
READ TABLE it_trdir INTO wa_trdir WITH KEY name = wa_output-obj_name.
CASE wa_trdir-subc.
WHEN '1'.
wa_output-objtype = 'Executable Program'.
WHEN 'I'.
wa_output-objtype = 'Include Program'.
WHEN 'M'.
wa_output-objtype = 'Module Pool'.
WHEN 'F'.
wa_output-objtype = 'Function group'.
WHEN 'S'.
wa_output-objtype = 'Subroutine Pool'.
WHEN 'J'.
wa_output-objtype = 'Interface'.
WHEN 'K'.
wa_output-objtype = 'Class'.
ENDCASE.
MODIFY it_output FROM wa_output
TRANSPORTING objtype
WHERE obj_name EQ wa_output-obj_name.
CLEAR : wa_output , wa_trdir.
ENDAT.
ENDLOOP.
SORT it_output BY obj_name as4date as4time.
*FOR grid TITLE
TXT4 = wa_output-objTYPE.
txt2 = wa_output-obj_name.
CONCATENATE txt1 txt2 TXT3 TXT4 INTO titletext SEPARATED BY space.
ENDFORM. "get_object_details
*&--------------------------------------------------------------------*
*& Form alv_layout
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM alv_layout.
it_layout-cwidth_opt = 'X'.
it_layout-zebra = 'X'.
it_layout-grid_title = titletext.
ENDFORM. "ALV_LAYOUT
Steps to be done for creation of a screen 0600 with custom container.
1. Create the screen 0600 for the above program and place a custom container on the same.
2. Create a Custom container and name it C_GRID and OK code as OK_CODE.
3. Name the custom container C_GRID and give ok code as OK_CODE.
4. In the Flow Logic enter a PBO Module as SET_GRID.
5. Activate and Execute the Code.
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.
