#1
|
|||
|
|||
Encontrar FIELD EXITS aplicados en el sistema
Hola comunidad,
Les cuento, actualmente e encuentro en un proyecto de upgrade de ERP ver. 4.6 a ver 6. Se me ha solicitado evaluar programas Z's, badis, bapis y demas elementos que pudieran verse aectados con este upgrade. Mi pregunta es: ¿Conocerá alguno de ustedes la forma en como encontrar los FIELD EXITS implementados en los programas del sistema? , es decir si alguien conoce algun reporte que me indique aquellos FIELD EXITS , el programa al que pertenecen la pantalla y ese tipo de informacion, o una tabla donde se guarden esos datos. Si alguien pudiera echarme una mano les estaria muy agradecido. Saludos cordiales y quedo en espera de su valiosa respuesta. Excelente FORO!!! |
#2
|
||||
|
||||
Hola, ejecuta el programa RSMODPRF con los parametros en blanco, te aparecera una lista con todos los exits que se encuentran activos e inactivos, espero te ayude
__________________
David Carballido Córdova |
#3
|
|||
|
|||
field Exit
Lo puedes checar de la siguiente manera.
Entras a la cmod y una vez dentro en el box de comandos (donde pones las tx) das la siguiente instruccion =prfb ,ejecutas y te despliega una lista de los campos en los cuales han sido habilitados exits, su estatus y su programa asociado. Ya despues con el nombre del programa puedes ir a la se38 , referencia de utilizacion , marcas el check de transacciones y puedes ver en que transaciones es utilizado el programa. Espero esto te sirva. |
#4
|
|||
|
|||
Buenas pana... te paso un programa que busca todos los exits que tiene una transaccion en especifica.. alli te van a aparecer todos los exits que tenga activados una transaccion especifica.. incluidos exits de menu.. de campos.. etc... puedes buscar la transacciones de los programas que toque lo que vayas a hacer y verificar si tienen modificaciones... el programa esta en internet... algun fumado lo hizo y yo me lo baje hace tiempo...
*&---------------------------------------------------------------------* *& Report ZBUSCAREXIT *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zuserexits NO STANDARD PAGE HEADING. TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir. TABLES : tstct. DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE. DATA : field1(30). DATA : v_devclass LIKE tadir-devclass. PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY. SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode. IF sy-subrc EQ 0. SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'PROG' AND obj_name = tstc-pgmna. MOVE : tadir-devclass TO v_devclass. IF sy-subrc NE 0. SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna. IF trdir-subc EQ 'F'. SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna. SELECT SINGLE * FROM enlfdir WHERE funcname = tfdir-funcname. SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'FUGR' AND obj_name EQ enlfdir-area. MOVE : tadir-devclass TO v_devclass. ENDIF. ENDIF. SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND object = 'SMOD' AND devclass = v_devclass. SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND tcode EQ p_tcode. FORMAT COLOR COL_POSITIVE INTENSIFIED OFF. WRITE:/(19) 'Transaction Code - ', 20(20) p_tcode, 45(50) tstct-ttext. SKIP. IF NOT jtab[] IS INITIAL. WRITE:/(95) sy-uline. FORMAT COLOR COL_HEADING INTENSIFIED ON. WRITE:/1 sy-vline, 2 'Exit Name', 21 sy-vline , 22 'Description', 95 sy-vline. WRITE:/(95) sy-uline. LOOP AT jtab. SELECT SINGLE * FROM modsapt WHERE sprsl = sy-langu AND name = jtab-obj_name. FORMAT COLOR COL_NORMAL INTENSIFIED OFF. WRITE:/1 sy-vline, 2 jtab-obj_name HOTSPOT ON, 21 sy-vline , 22 modsapt-modtext, 95 sy-vline. ENDLOOP. WRITE:/(95) sy-uline. DESCRIBE TABLE jtab. SKIP. FORMAT COLOR COL_TOTAL INTENSIFIED ON. WRITE:/ 'No of Exits:' , sy-tfill. ELSE. FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. WRITE:/(95) 'No User Exit exists'. ENDIF. ELSE. FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. WRITE:/(95) 'Transaction Code Does Not Exist'. ENDIF. AT LINE-SELECTION. GET CURSOR FIELD field1. CHECK field1(4) EQ 'JTAB'. SET PARAMETER ID 'MON' FIELD sy-lisel+1(10). CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN. *Selection texts *---------------------------------------------------------- * P_TCODE Código de la Transacción ---------------- Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|