#1
|
|||
|
|||
Programas Z no utilizados
Buenos días a todos, actualmente tengo el siguiente requerimiento pero la verdad tengo muchas dudas de como resolverlo.
1. Se necesita identificar aquellos programas Z que hace cierto tiempo no son utilizados. 2. Una vez identificados estos programas, se debe proceder a eliminarlos del sistema. Existe alguna herramienta que nos permita identificar, que sea 100% confiable, aquellos programas que no han sido utilizados en 1 año? Existe alguna herramienta dentro de SAP que permita eliminar los desarrollos Z sin tener que hacer el borrado uno a uno? Agradezco la ayuda que puedan brindarme. Saludos
__________________
Consultor SAP ABAP |
#2
|
|||
|
|||
Eliminar Programas
Hola luise32, Aqui tengo un programita que te borrar los programas y sus includs si lo deseas, espero te sirva. REPORT y_eliminar_programas MESSAGE-ID 00. TABLES:d010inc,tadir. TYPES: BEGIN OF t_abapcode, row(72) TYPE c, END OF t_abapcode. DATA: gtd_d010inc TYPE STANDARD TABLE OF d010inc, gv_ctu_params TYPE ctu_params, gtd_bdcdata TYPE STANDARD TABLE OF bdcdata, gwa_bdcdata LIKE LINE OF gtd_bdcdata. *&--------------------------------------------------------------------&* *& S E L E C T I O N - S C R E E N &* *&-------------------by: Luis Farro-----------------------------------&* SELECTION-SCREEN : BEGIN OF BLOCK b_00 WITH FRAME TITLE text-t00. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 5(23) pro. SELECT-OPTIONS: s_prog FOR d010inc-master. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN BEGIN OF LINE. SELECTION-SCREEN COMMENT 5(36) inc. PARAMETERS: p_chk AS CHECKBOX USER-COMMAND chk. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN : END OF BLOCK b_00. *&--------------------------------------------------------------------&* *& I N I T I A L I Z A T I O N &* *&----------------------by: LuisFarro---------------------------------&* INITIALIZATION. pro = 'Nombre del Programa'. inc = 'Borrar Includs'. *&--------------------------------------------------------------------&* *& S T A R T - O F - S E L E C T I O N &* *&-----------------------by: LuisFarro--------------------------------&* START-OF-SELECTION. SELECT * INTO TABLE gtd_d010inc FROM d010inc WHERE master IN s_prog AND ( include LIKE 'Z%' OR include LIKE 'Y%' ). FIELD-SYMBOLS: <fs_d010inc> LIKE LINE OF gtd_d010inc. CLEAR gv_ctu_params. gv_ctu_params-updmode = 'S'. gv_ctu_params-defsize = 'X'. gv_ctu_params-dismode = 'A'. LOOP AT gtd_d010inc ASSIGNING <fs_d010inc>. ON CHANGE OF <fs_d010inc>-master. PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'RS38M-PROGRAMM'. PERFORM bdc_field USING 'BDC_OKCODE' '=DELP'. PERFORM bdc_field USING 'RS38M-PROGRAMM' <fs_d010inc>-master. PERFORM bdc_field USING 'RS38M-FUNC_EDIT' 'X'. PERFORM bdc_dynpro USING 'SAPLSEU2' '0201'. PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'. PERFORM bdc_field USING 'BDC_CURSOR' 'WITH_INCLUDES_GLOBAL'. PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'RS38M-PROGRAMM'. PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'. PERFORM bdc_field USING 'RS38M-PROGRAMM' <fs_d010inc>-master. PERFORM bdc_field USING 'RS38M-FUNC_EDIT' 'X'. CALL TRANSACTION 'SE38' USING gtd_bdcdata OPTIONS FROM gv_ctu_params. FREE gtd_bdcdata. ENDON. IF p_chk EQ 'X'. PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'RS38M-PROGRAMM'. PERFORM bdc_field USING 'BDC_OKCODE' '=DELP'. PERFORM bdc_field USING 'RS38M-PROGRAMM' <fs_d010inc>-include. PERFORM bdc_field USING 'RS38M-FUNC_EDIT' 'X'. PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'. PERFORM bdc_field USING 'BDC_OKCODE' '=YES'. PERFORM bdc_dynpro USING 'SAPLWBABAP' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'RS38M-PROGRAMM'. PERFORM bdc_field USING 'BDC_OKCODE' '=BACK'. PERFORM bdc_field USING 'RS38M-PROGRAMM' <fs_d010inc>-include. PERFORM bdc_field USING 'RS38M-FUNC_EDIT' 'X'. CALL TRANSACTION 'SE38' USING gtd_bdcdata OPTIONS FROM gv_ctu_params. FREE gtd_bdcdata. ENDIF. ENDLOOP. *&---------------------------------------------------------------------* *& Form bdc_dynpro *&---------------------------------------------------------------------* * text BY LuisFarro *----------------------------------------------------------------------* * -->PROGRAM text * -->DYNPRO text *----------------------------------------------------------------------* FORM bdc_dynpro USING program TYPE any dynpro TYPE any. CLEAR gwa_bdcdata. gwa_bdcdata-program = program. gwa_bdcdata-dynpro = dynpro. gwa_bdcdata-dynbegin = 'X'. APPEND gwa_bdcdata TO gtd_bdcdata. ENDFORM. " bdc_dynpro *&---------------------------------------------------------------------* *& Form bdc_field BY LuisFarro *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->FNAM text * -->FVAL text *----------------------------------------------------------------------* FORM bdc_field USING fnam TYPE any fval TYPE any. IF fval <> space. CLEAR gwa_bdcdata. gwa_bdcdata-fnam = fnam. gwa_bdcdata-fval = fval. APPEND gwa_bdcdata TO gtd_bdcdata. ENDIF. ENDFORM. " bdc_field Saludos, Luis Farro ***************************************************************** Programas es un juego de niños |
#3
|
|||
|
|||
Hola lfarro!
Agradezco su ayuda, si me imagine hacer un Batch Input para realizar este proceso de eliminar los programas Z. Le pregunto una cosa mas acerca de este programa: Pide orden de transporte al momento de realizar el proceso? Gracias por su tiempo. Saludos!
__________________
Consultor SAP ABAP |
Herramientas | Buscar en Tema |
Desplegado | |
|
|