SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English

Blogs - Weblogs News

Поиск используемых таблиц в программе ( se48 / se49 )

Russian ABAP Developer's Club Forum Index -> ABAP Dictionary

View previous topic :: View next topic

Author

Message

admin
Администратор

Joined: 01 Sep 2007
Posts: 1640

Posted: Tue Jan 15, 2008 10:03 pm Post subject: Поиск используемых таблиц в программе ( se48 / se49 )

Транзакции активны в системе до версии 4.6

SE48 - Program Analysis: Call Hierarchy ( SAPMSEUZ экран 100 )
SE49 - Program Analysis: Table Manipulation. ( SAPMSEUZ экран 200 )

sapmseuz

Code:

INCLUDE MSEUZTOP.

INCLUDE MSEUZO01.

INCLUDE MSEUZI01.

INCLUDE MSEUZF01.

*Messages
*----------------------------------------------------------
*
* Message class: SC
*016 Program & does not exist
*017 Transaction & has not been created
*018 Function group & does not exist
*019 Function module & does not exist
*020 Dialog module & does not exist
*024 Specify a program
*025 Specify a transaction
*026 Specify a function group
*027 Enter a function module
*028 Please enter a dialog module

mseuztop

Code:

*----------------------------------------------------------------------*
* INCLUDE MSEUZTOP *
*----------------------------------------------------------------------*
PROGRAM SAPMSEUZ MESSAGE-ID SC.
TYPES: RCODE(5).

* Tabellen
TABLES: RSEUX, " Dynprofelder
TRDIR, " Programme
TLIBG, " Funktionsgruppen
TFDIR, " Funktionsbausteine
TDCT, " Dialogbausteine
TSTC. " Transaktionen
* Dynprofelder
DATA: OK_CODE(4),
SCR_RETURN TYPE RCODE,
SCR_TYPE LIKE EUOBJ-ID,
SCR_OBJECT LIKE STREENODE-NAME,
SCR_DWOBJECT LIKE DWTREE-NAME,
SCR_PROGRAM LIKE TRDIR-NAME.

* Konstante
CONSTANTS:
* returncodes
CON_CANCEL TYPE RCODE VALUE 'BREAK',
CON_CONTINUE TYPE RCODE VALUE 'CONT',
CON_NOT_FOUND TYPE RCODE VALUE 'NOTFD',
CON_ANALYSE TYPE RCODE VALUE 'ANALY',
CON_SAVE TYPE RCODE VALUE 'SAVE'.

INCLUDE LSEU9OTP.

mseuzo01

Code:

*-------------------------------------------------------------------
***INCLUDE LSEU9O01 .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Module SELSCREEN_INIT OUTPUT
*&---------------------------------------------------------------------*
MODULE SELSCREEN_INIT OUTPUT.
CASE SY-DYNNR.
WHEN 100. CALL FUNCTION 'RS_CALL_HIERARCHY_STATUS'
EXPORTING
STATUS = 'ENTRY'
TITLEBAR = 'CTR'
EXCEPTIONS
OTHERS = 1.
WHEN 200. CALL FUNCTION 'RS_PROGRAM_TABLES_STATUS'
EXPORTING
STATUS = 'ENTRY'
TITLEBAR = 'TAB'
EXCEPTIONS
OTHERS = 1.
ENDCASE.
ENDMODULE. " SELSCREEN_INIT OUTPUT

mseuzi01

Code:

*-------------------------------------------------------------------
***INCLUDE LSEU9I01 .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Module OK_CODE INPUT
*&---------------------------------------------------------------------*
MODULE OK_CODE INPUT.
CASE OK_CODE.
WHEN 'END'. SET SCREEN 0. LEAVE SCREEN.
WHEN 'RTRN'. SET SCREEN 0. LEAVE SCREEN.
WHEN 'EXIT'. SET SCREEN 0. LEAVE SCREEN.
WHEN 'CANC'. SET SCREEN 0. LEAVE SCREEN.
WHEN 'SHWC'. CALL FUNCTION 'RS_CALL_HIERARCHY'
EXPORTING
OBJECT_TYPE = SCR_TYPE
OBJECT_NAME = SCR_OBJECT
PROGRAM = SCR_PROGRAM
MONITOR_ACTIVATE = 'X'
EXCEPTIONS
OTHERS = 1.
WHEN 'SHWT'. SCR_DWOBJECT = SCR_OBJECT.
CALL FUNCTION 'RS_PROGRAM_TABLES'
EXPORTING
OBJECT_TYPE = SCR_TYPE
OBJECT_NAME = SCR_DWOBJECT
PROGRAM = SCR_PROGRAM
MONITOR_ACTIVATE = 'X'
EXCEPTIONS
OTHERS = 1.
WHEN 'REFR'. CALL FUNCTION 'RS_CALL_HIERARCHY_INVERTED'
EXPORTING
OBJECT_TYPE = SCR_TYPE
OBJECT_NAME = SCR_OBJECT
PROGRAM = SCR_PROGRAM
MONITOR_ACTIVATE = 'X'
EXCEPTIONS
OTHERS = 1.
WHEN 'RFRS'. CALL FUNCTION 'RS_CALL_HIERARCHY_ACTUALIZE'
EXPORTING
OBJECT_TYPE = SCR_TYPE
OBJECT_NAME = SCR_OBJECT
PROGRAM = SCR_PROGRAM
EXCEPTIONS
OTHERS = 1.
WHEN 'DEL'. CALL FUNCTION 'RS_CALL_HIERARCHY_DELETE'
EXPORTING
OBJECT_TYPE = SCR_TYPE
OBJECT_NAME = SCR_OBJECT
PROGRAM = SCR_PROGRAM
SUPPRESS_MESSAGE = SPACE
EXCEPTIONS
OTHERS = 1.

ENDCASE.
ENDMODULE. " OK_CODE INPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
MODULE EXIT INPUT.
CHECK OK_CODE = 'BREA'.
CLEAR OK_CODE.
SET SCREEN 0. LEAVE SCREEN.
ENDMODULE. " EXIT INPUT

*&---------------------------------------------------------------------*
*& Module EXISTENCE_CHECK INPUT
*&---------------------------------------------------------------------*
* text *
*----------------------------------------------------------------------*
MODULE EXISTENCE_CHECK INPUT.
PERFORM EXISTENCE_CHECK.
ENDMODULE. " EXISTENCE_CHECK INPUT

*&---------------------------------------------------------------------*
*& Module VAL_REQ_PROGRAM INPUT
*&---------------------------------------------------------------------*
MODULE VAL_REQ_PROGRAM INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' SPACE.
*
CALL FUNCTION 'F4_PROGRAM'
EXPORTING
OBJECT = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CP_VALUE.
*
ENDMODULE. " VAL_REQ_PROGRAM INPUT
*&---------------------------------------------------------------------*
*& Module VAL_REQ_PBO INPUT
*&---------------------------------------------------------------------*
MODULE VAL_REQ_PBO INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' 'RSEUX-CPO_VALUE'.
*
CALL FUNCTION 'F4_PROG_PBO'
EXPORTING
OBJECT = RSEUX-CPO_VALUE
PROGRAM = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CPO_VALUE.

ENDMODULE. " VAL_REQ_PROGRAM INPUT

MODULE VAL_REQ_PAI INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' 'RSEUX-CPM_VALUE'.
*
CALL FUNCTION 'F4_PROG_PAI'
EXPORTING
OBJECT = RSEUX-CPM_VALUE
PROGRAM = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CPM_VALUE.

ENDMODULE. " VAL_REQ_PROGRAM INPUT

MODULE VAL_REQ_FORM INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' 'RSEUX-CPU_VALUE'.
*
CALL FUNCTION 'F4_PROG_SUBPROGRAM'
EXPORTING
OBJECT = RSEUX-CPU_VALUE
PROGRAM = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CPU_VALUE
PROGRAM = RSEUX-CP_VALUE
EXCEPTIONS
OTHERS = 1.

ENDMODULE. " VAL_REQ_PROGRAM INPUT
MODULE VAL_REQ_EVENT INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' 'RSEUX-CPE_VALUE'.
*
CALL FUNCTION 'F4_PROG_EVENT'
EXPORTING
OBJECT = RSEUX-CPE_VALUE
PROGRAM = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CPE_VALUE.

ENDMODULE. " VAL_REQ_PROGRAM INPUT

MODULE VAL_REQ_DYNPRO INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CP_VALUE' 'RSEUX-CPS_VALUE'.
*
CALL FUNCTION 'F4_SCREEN'
EXPORTING
OBJECT = RSEUX-CPS_VALUE
PROGRAM = RSEUX-CP_VALUE
IMPORTING
RESULT = RSEUX-CPS_VALUE.

ENDMODULE. " VAL_REQ_PROGRAM INPUT
*&---------------------------------------------------------------------*
*& Module VAL_REQ_TRANSACTION INPUT
*&---------------------------------------------------------------------*
MODULE VAL_REQ_TRANSACTION INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CT_VALUE' SPACE.
*
CALL FUNCTION 'F4_TRANSACTION'
EXPORTING
OBJECT = RSEUX-CT_VALUE
IMPORTING
RESULT = RSEUX-CT_VALUE.

ENDMODULE. " VAL_REQ_TRANSACTION INPUT
*&---------------------------------------------------------------------*
*& Module VAL_REQ_FGROUP INPUT
*&---------------------------------------------------------------------*
MODULE VAL_REQ_FGROUP INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CF_VALUE' SPACE.
*
CALL FUNCTION 'F4_FUNCTIONGROUP'
EXPORTING
OBJECT = RSEUX-CF_VALUE
IMPORTING
RESULT = RSEUX-CF_VALUE.

ENDMODULE. " VAL_REQ_FGROUP INPUT

MODULE VAL_REQ_FUNCTION INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CFF_VALUE' SPACE.
*
CALL FUNCTION 'F4_FUNCTIONMODULE'
EXPORTING
OBJECT = RSEUX-CFF_VALUE
IMPORTING
RESULT = RSEUX-CFF_VALUE.

ENDMODULE. " VAL_REQ_FGROUP INPUT
*&---------------------------------------------------------------------*
*& Module VAL_REQ_DIALOG INPUT
*&---------------------------------------------------------------------*
MODULE VAL_REQ_DIALOG INPUT.
*
PERFORM FIELD_TRANSPORT USING 'RSEUX-CA_VALUE' SPACE.
*
CALL FUNCTION 'F4_DIALOGMODULE'
EXPORTING
OBJECT = RSEUX-CA_VALUE
IMPORTING
RESULT = RSEUX-CA_VALUE.

ENDMODULE. " VAL_REQ_DIALOG INPUT

mseuzf01

Code:

*-------------------------------------------------------------------
***INCLUDE MSEUZF01 .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
*& Form EXISTENCE_CHECK
*&---------------------------------------------------------------------*
FORM EXISTENCE_CHECK.
CLEAR: SCR_TYPE, SCR_OBJECT, SCR_PROGRAM.
IF RSEUX-CP = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
PERFORM DETERMINE_OBJECT_TYPE USING RSEUX-CP_VALUE
CHANGING SCR_TYPE
SCR_OBJECT.
ELSEIF RSEUX-CPO = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_MDL_PBO.
SCR_OBJECT = RSEUX-CPO_VALUE.
SCR_PROGRAM = RSEUX-CP_VALUE.
ELSEIF RSEUX-CPM = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_MDL_PAI.
SCR_OBJECT = RSEUX-CPM_VALUE.
SCR_PROGRAM = RSEUX-CP_VALUE.
ELSEIF RSEUX-CPU = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_FORM.
SCR_OBJECT = RSEUX-CPU_VALUE.
SCR_PROGRAM = RSEUX-CP_VALUE.
ELSEIF RSEUX-CPE = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_EVENT.
SCR_OBJECT = RSEUX-CPE_VALUE.
SCR_PROGRAM = RSEUX-CP_VALUE.
ELSEIF RSEUX-CPS = 'X'.
IF RSEUX-CP_VALUE = SPACE. MESSAGE E024. ENDIF.
SELECT SINGLE * FROM TRDIR
WHERE NAME = RSEUX-CP_VALUE.
IF SY-SUBRC NE 0. MESSAGE E016 WITH RSEUX-CP_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_DYNPRO.
UNPACK RSEUX-CPS_VALUE TO RSEUX-CPS_VALUE.
SCR_OBJECT = RSEUX-CPS_VALUE.
SCR_PROGRAM = RSEUX-CP_VALUE.
ELSEIF RSEUX-CT = 'X'.
IF RSEUX-CT_VALUE = SPACE. MESSAGE E025. ENDIF.
SELECT SINGLE * FROM TSTC
WHERE TCODE = RSEUX-CT_VALUE.
IF SY-SUBRC NE 0. MESSAGE E017 WITH RSEUX-CT_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_TRANSACTION.
SCR_OBJECT = RSEUX-CT_VALUE.
ELSEIF RSEUX-CF = 'X'.
IF RSEUX-CF_VALUE = SPACE. MESSAGE E026. ENDIF.
SELECT SINGLE * FROM TLIBG WHERE AREA = RSEUX-CF_VALUE.
IF SY-SUBRC NE 0. MESSAGE E018 WITH RSEUX-CF_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_FGROUP.
SCR_OBJECT = RSEUX-CF_VALUE.
ELSEIF RSEUX-CFF = 'X'.
IF RSEUX-CFF_VALUE = SPACE. MESSAGE E027. ENDIF.
SELECT SINGLE * FROM TFDIR WHERE FUNCNAME = RSEUX-CFF_VALUE.
IF SY-SUBRC NE 0. MESSAGE E019 WITH RSEUX-CF_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_FUNCTION.
SCR_OBJECT = RSEUX-CFF_VALUE.
ELSEIF RSEUX-CA = 'X'.
IF RSEUX-CA_VALUE = SPACE. MESSAGE E028. ENDIF.
SELECT SINGLE * FROM TDCT
WHERE DNAM = RSEUX-CA_VALUE.
IF SY-SUBRC NE 0. MESSAGE E020 WITH RSEUX-CA_VALUE. ENDIF.
SCR_TYPE = CON_TYPE_DIALOG.
SCR_OBJECT = RSEUX-CA_VALUE.
ENDIF.
ENDFORM. " EXISTENCE_CHECK
*&---------------------------------------------------------------------*
*& Form FIELD_TRANSPORT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0170 text *
* -->P_SPACE text *
*----------------------------------------------------------------------*
FORM FIELD_TRANSPORT USING FIELD1 TYPE C
FIELD2 TYPE C.
*
FIELD-SYMBOLS: <TARGET>.
*
DATA: DYNPFIELDS LIKE DYNPREAD OCCURS 1 WITH HEADER LINE,
DYNAME LIKE D020S-PROG,
DYNNR LIKE SY-DYNNR.
*
DYNPFIELDS-FIELDNAME = FIELD1.
APPEND DYNPFIELDS.
IF NOT FIELD2 IS INITIAL.
DYNPFIELDS-FIELDNAME = FIELD2.
APPEND DYNPFIELDS.
ENDIF.
DYNAME = SY-REPID.
DYNNR = SY-DYNNR.
*
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
DYNAME = DYNAME
DYNUMB = DYNNR
TRANSLATE_TO_UPPER = 'X'
* REQUEST = ' '
TABLES
DYNPFIELDS = DYNPFIELDS
EXCEPTIONS
INVALID_ABAPWORKAREA = 1
INVALID_DYNPROFIELD = 2
INVALID_DYNPRONAME = 3
INVALID_DYNPRONUMMER = 4
INVALID_REQUEST = 5
NO_FIELDDESCRIPTION = 6
INVALID_PARAMETER = 7
UNDEFIND_ERROR = 8
OTHERS = 9.
IF SY-SUBRC = 0.
ASSIGN (FIELD1) TO <TARGET>.
READ TABLE DYNPFIELDS INDEX 1.
<TARGET> = DYNPFIELDS-FIELDVALUE.
IF NOT FIELD2 IS INITIAL.
ASSIGN (FIELD2) TO <TARGET>.
READ TABLE DYNPFIELDS INDEX 2.
<TARGET> = DYNPFIELDS-FIELDVALUE.
ENDIF.
ENDIF.
ENDFORM. " FIELD_TRANSPORT
*&---------------------------------------------------------------------*
*& Form DETERMINE_OBJECT_TYPE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_RSEUX_CP_VALUE text *
* <--P_SCR_TYPE text *
* <--P_SCR_OBJECT text *
*----------------------------------------------------------------------*
FORM DETERMINE_OBJECT_TYPE USING CP_VALUE LIKE RSEUX-CP_VALUE
CHANGING SCR_TYPE LIKE EUOBJ-ID
SCR_OBJECT LIKE STREENODE-NAME.
*
DATA: NAMESPACE LIKE RS38L-NAMESPACE,
FUGR_GROUP LIKE RS38L-AREA,
FUGR_INCLUDE_NUMBER LIKE TFDIR-INCLUDE,
FUGR_NAME LIKE TFDIR-PNAME,
FUGR_IS_FUNCTIONMODULE_NAME.
*
CALL FUNCTION 'RS_PROGNAME_SPLIT'
EXPORTING
PROGNAME_WITH_NAMESPACE = CP_VALUE
IMPORTING
NAMESPACE = NAMESPACE
* PROGNAME_WITHOUT_NAMESPACE =
* FUGR_IS_NAME =
* FUGR_IS_RESERVED_NAME =
* FUGR_IS_FUNCTIONPOOL_NAME =
* FUGR_IS_INCLUDE_NAME =
FUGR_IS_FUNCTIONMODULE_NAME = FUGR_IS_FUNCTIONMODULE_NAME
* FUGR_IS_HIDDEN_NAME =
FUGR_GROUP = FUGR_GROUP
FUGR_INCLUDE_NUMBER = FUGR_INCLUDE_NUMBER
* FUGR_SUFFIX =
* FUGR_IS_RESERVED_EXIT_NAME =
* SLDB_IS_RESERVED_NAME =
* SLDB_LOGDB_NAME =
* MST_IS_RESERVED_NAME =
* TYPE_IS_RESERVED_NAME =
* TYPE_NAME =
* MENU_IS_RESERVED_NAME =
* MENU_NAME =
* CLASS_IS_RESERVED_NAME =
EXCEPTIONS
DELIMITER_ERROR = 1
OTHERS = 2.
*
IF FUGR_IS_FUNCTIONMODULE_NAME IS INITIAL.
SCR_TYPE = CON_TYPE_PROGRAM.
SCR_OBJECT = RSEUX-CP_VALUE.
ELSE.
CONCATENATE NAMESPACE 'SAPL' FUGR_GROUP INTO FUGR_NAME.
SELECT * FROM TFDIR WHERE PNAME = FUGR_NAME
AND INCLUDE = FUGR_INCLUDE_NUMBER.
EXIT.
ENDSELECT.
IF SY-SUBRC = 0.
SCR_TYPE = CON_TYPE_FUNCTION.
SCR_OBJECT = TFDIR-FUNCNAME.
ELSE.
SCR_TYPE = CON_TYPE_PROGRAM.
SCR_OBJECT = RSEUX-CP_VALUE.
ENDIF.
ENDIF.
ENDFORM. " DETERMINE_OBJECT_TYPE

*Messages
*----------------------------------------------------------
*016
*017
*018
*019
*020
*024
*025
*026
*027
*028

sapmseuz_200.gif

Description:

Экран 200

Filesize:

21.15 KB

Viewed:

11295 Time(s)

sapmseuz_100.gif

Description:

Экран 100

Filesize:

21.49 KB

Viewed:

11297 Time(s)

screens_se48_100_se49_200.zip

Description:

Экраны 100 и 200 для загрузки в программы через Screen Painter меню Utilites(M) - Upload/Download - Upload

Download

Filename:

screens_se48_100_se49_200.zip

Filesize:

2.21 KB

Downloaded:

1548 Time(s)

Display posts from previous:

	Russian ABAP Developer's Club Forum Index -> ABAP Dictionary	All times are GMT + 4 Hours
Page 1 of 1

Jump to:

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.

SAP R/3 форум ABAP консультантовRussian ABAP Developer's Club

Поиск используемых таблиц в программе ( se48 / se49 )

SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club