BÚSQUEDA DE EXITS:
Para buscar Exits en transacciones, lo mejor para determinar como se hace paso a paso es con un ejemplo práctico. Para ello se utilizará el programa ABAP ZBUSCAR_EXITS desarrollado por el Instructor Ezequiel Pablo Karsz, cuyo objeto de ese programa es buscar los Exits de clientes en las transacciones estándar de SAP. Una vez grabado y activado el programa, se siguen los pasos siguientes para encontrar los Exits y las Ampliaciones relacionadas a éstos.
- Paso 1: se accede a la transacción SE38, se copia y pega el código fuente del programa desarrollado por el Instructor Ezequiel Pablo Karsz, se activa y ejecuta el programa.ZBUSCAR_EXITS_XXXXX.
- Paso 2: En la ventana que se muestra en pantalla, en el campo P_TCODE se ingresa la Transacción SU01, se ejecuta con clic en el boton o pulsando F8. Inmediatamente se mostrará en pantalla la imagen de la transacción estándar SMOD que muestra el campo con el nombre del Exit, en este caso el Exit SUSR0001.
- Paso 3: A continuación se hace Clic sobre el nombre del Exit, el sistema pasa a una ventana que muestra el mismo Exit como Ampliación, indicando los objetos parciales con opciones de Radiobutton, además de poder Visualizar y Modificar.
- Paso 4: Seguidamente, si se hace Clic en Atributos / Visualizar, se muestra una pantalla con los datos de la Ampliación. Al dar clic en el botón Componentes, ubicado en la barra de Herramientas de la Aplicación, se mostrará la pantalla con la descripción de los módulos de funciones, en este caso se muestra el Módulo de Función EXIT_SAPLSUSF_001.
- Paso 5: Al dar doble clic sobre el módulo de funcón EXIT_SAPLSUSF_001, se muestra el código ABAP con el INCLUDE ZXUSRU01, al dar doble Clic sobre el Include ZXUSRU01, muestra otra línea de código con otro INCLUDE zxusru02_02, que si hacemos doble Clic sobre este último Include se mostrará en pantalla el código ABAP siguiente:
&---------------------------------------------------------------------*
*& Include ZXUSRU02_02
*&---------------------------------------------------------------------*
data: answer type string,
myuser type string,
wa_zpriv_user_log type zpriv_user_log.
tables: zpriv_user.
select single * from zpriv_user where bname = sy-uname.
if sy-subrc eq 0 and sy-mandt ne '000'.
CALL FUNCTION 'POPUP_TO_DECIDE_INFO'
EXPORTING
DEFAULTOPTION = 'Y'
TEXTLINE1 = 'Your logon will be recorded.'
TEXTLINE2 = 'Do you really want to logon?'
TITEL = 'Priviledged User'
START_COLUMN = 1
START_ROW = 6
IMPORTING
ANSWER = answer.
case answer.
when 'J'.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_USER_NAME
CHANGING
USER_NAME = myuser
* EXCEPTIONS
* CNTL_ERROR = 1
* ERROR_NO_GUI = 2
* NOT_SUPPORTED_BY_GUI = 3
* others = 4
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
CALL METHOD CL_GUI_CFW=>FLUSH
EXCEPTIONS
CNTL_SYSTEM_ERROR = 1
CNTL_ERROR = 2
others = 3.
IF SY-SUBRC <> 0.
RAISE CNTL_ERROR.
ENDIF.
if myuser is initial.
myuser = 'USER_NOT_FND'.
endif.
CALL FUNCTION 'TH_USER_INFO'
* EXPORTING
* CLIENT =
* USER =
* CHECK_GUI = 0
IMPORTING
* HOSTADDR =
TERMINAL = wa_zpriv_user_log-terminal
* ACT_SESSIONS =
* MAX_SESSIONS =
* MY_SESSION =
* MY_INTERNAL_SESSION =
* TASK_STATE =
* UPDATE_REC_EXIST =
* TID =
* GUI_CHECK_FAILED =
ADDRSTR = wa_zpriv_user_log-ipaddr
* RC =
.
Move: sy-sysid to wa_zpriv_user_log-sys,
sy-mandt to wa_zpriv_user_log-mandt,
sy-uname to wa_zpriv_user_log-bname,
sy-datum to wa_zpriv_user_log-datum,
sy-uzeit to wa_zpriv_user_log-uzeit,
myuser to wa_zpriv_user_log-sap_all_user.
insert zpriv_user_log from wa_zpriv_user_log.
when others.
call 'SYST_LOGOFF'.
endcase.
endif.