✒️ABAP El Batch Input utilizando Call transaction
ABAP El Batch Input utilizando Call transaction
Mi primer Batch Input utilizando CALL TRANSACTION:
Para lo cual debemos seguir los siguientes pasos:
1. Declaración de datos propios del batch input: Declaramos una tabla interna y una estructura, ambas del tipo BDCDATA, otra tabla interna del tipo BDCMSGCOLL con su estructura, que servirán para almacenar los mensajes que se produzcan cuando ejecutemos el CALL TRANSACTION, la tabla interna de usuarios, que contendrá los datos que levantemos del archivo de entrada y una tabla para mostrar por pantalla los errores entre otras declaraciones. Por ejemplo:
* Tabla del BI con la estructura de BDCDATA DATA: BEGIN OF ti_bdc_data OCCURS 0. INCLUDE STRUCTURE bdcdata. DATA: END OF ti_bdc_data. * Estructura del BI DATA: st_bdc_data TYPE bdcdata. * Tabla de mensajes DATA: BEGIN OF ti_messages OCCURS 0. INCLUDE STRUCTURE bdcmsgcoll. DATA: END OF ti_messages. * Estructura de mensajes DATA: st_messages TYPE bdcmsgcoll. * Tabla de usuarios DATA: ti_archivo TYPE STANDARD TABLE OF ztabla_usuarios, st_archivo LIKE LINE OF ti_archivo. * Tabla de errores DATA: BEGIN OF ti_errores OCCURS 0, dni TYPE z_dni, descripcion(100) TYPE c, END OF ti_errores. Nota: La estructura BDCMSGCOLL estándar del sistema es utilizada para definir la tabla interna que almacenará los mensajes del batch input.2. Lectura de datos de archivo de entrada: Ejecutamos el método GUI_UPLOAD para levantar el archivo de entrada con la información para generar el Batch Input.
* Se abre el archivo de entrada para lectura CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = vl_file filetype = 'ASC' has_field_separator = '' CHANGING data_tab = ti_archivo[] EXCEPTIONS file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 OTHERS = 19.3. Carga de la tabla BDCDATA: Para cargar la tabla BDCDATA utilizamos la subrutina BDC_FIELD, antes debemos inicializar la tabla interna del Batch Input y la de los mensajes. Para ingresar más de un registro, tendremos que manejar indices, y de esta manera saber en que fila de la pantalla estamos cargando los datos, para lo cual concatenaremos al nombre del campo el número de fila que le corresponde en la pantalla entre paréntesis. Por ejemplo:
* Cargo datos del usuario PERFORM bdc_field USING 'X' 'SAPLZTABLA_USUARIOS' '0001'. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-DNI(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-dni. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-NOMBRE_APE(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-nombre_ape. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-ESTADO_USU(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-estado_usu. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-DIRECCION(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-direccion. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-CODIGO_POSTAL(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-codigo_postal. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-FECHA_NAC(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-fecha_nac. CLEAR v_campo. CONCATENATE 'ZTABLA_USUARIOS-ESTADO_CIVIL(' v_indice ')' INTO v_campo. PERFORM bdc_field USING ' ' v_campo st_archivo-estado_civil.4. Ejecución de la sentencia Call Transaction: Para ejecutar la sentencia CALL TRANSACTION, la sintaxis de la sentencia es la siguiente:
* Call transaction CALL TRANSACTION v_cod_trans USING ti_bdc_data MODE v_modo UPDATE v_update MESSAGES INTO ti_messages. IF NOT sy-subrc IS INITIAL. v_error = 'X'. ENDIF.A continuación cada una de las opciones:
1. USING: aquí especificamos la tabla BDCDATA que se utilizará.
2. MODE: determina el modo de procesamiento que utilizará el Batch Input. Los modos posibles de procesamiento son:
MODO |
EFECTO |
A |
Procesamiento con la visualización de todas las pantallas. Es el valor por default. |
E |
Procesamiento donde se muestran las pantallas solo si ocurre un error. Si se alcanza un breakpoint, se termina el procesamiento con SY-SUBRC igual a 1001. El campo SY-MSGTY contendrá "S", SY-MSGID contendrá "00", SY-MSGNO contendrá "344", SY-MSGV1 contendrá "SAPMSSY3" y SY-SGV2 contendrá el "0131". |
N |
Procesamiento donde no se muestran las pantallas. |
P |
Procesamiento donde no se muestran las pantallas. Si se alcanza un breakpoint, se pasa el control al debugger. |
Nota: Es conveniente utilizar una variable para asignar el modo de procesamiento a un Batch Input. De esta forma podremos modificar su valor dinámicamente, durante la ejecución del programa.
3. UPDATE: determina el modo de actualización de los cambios que producirá el Batch Input. Los modos posibles son:
UPDATE |
EFECTO |
A |
Actualización Asincrónica. La actualización se produce de igual forma a la que sucede si utilizamos la sentencia COMMIT WORK. Valor por defecto. |
S |
Actualización Sincrónica. La actualización se produce de igual forma a la que sucede si utilizamos la sentencia COMMIT WORK AND WAIT. |
L |
Actualización Local. |
4. MESSAGES INTO: con el uso de esta opción, todos los mensajes generados durante el procesamiento del Batch Input son almacenados en una tabla interna de tipo BDCMSGCOLL. Para armar los mensajes, vamos a utilizar la función MESSAGE_PREPARE, descrita a continuación:
v_msg_id = st_messages-msgid . v_msg_no = st_messages-msgnr. v_msg_v1 = st_messages-msgv1. v_msg_v2 = st_messages-msgv2. v_msg_v3 = st_messages-msgv3. v_msg_v4 = st_messages-msgv4. CALL FUNCTION 'MESSAGE_PREPARE' EXPORTING msg_id = v_msg_id msg_no = v_msg_no msg_var1 = v_msg_v1 msg_var2 = v_msg_v2 msg_var3 = v_msg_v3 msg_var4 = v_msg_v4 IMPORTING msg_text = v_mensaje EXCEPTIONS function_not_completed = 1 message_not_found = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.Nota: La sentencia CALL TRANSACTION también es muy utilizada en reportes, para acceder a una transacción determinada, a partir de los datos presionados en pantalla, con el agregado de la cláusula AND SKIP FIRST SCREEN.
pre { direction: ltr; color: #000000; line-height: 106%; orphans: 2; widows: 2; background: transparent } pre.western { font-family: "Liberation Mono", monospace; so-language: es-VE } pre.cjk { font-family: "Noto Sans Mono CJK SC", monospace; so-language: zh-CN } pre.ctl { font-family: "Liberation Mono", monospace; so-language: ar-SA } td p { margin-bottom: 0.28cm; direction: ltr; color: #000000; line-height: 106%; orphans: 2; widows: 2; background: transparent } td p.western { font-family: "Calibri", sans-serif; so-language: es-VE } td p.cjk { font-family: "Calibri", sans-serif; so-language: zh-CN } td p.ctl { font-family: "Times New Roman", serif; so-language: ar-SA } p { margin-bottom: 0.25cm; direction: ltr; color: #000000; line-height: 115%; orphans: 2; widows: 2; background: transparent } p.western { font-family: "Calibri", sans-serif; so-language: es-VE } p.cjk { font-family: "Calibri", sans-serif; so-language: zh-CN } p.ctl { font-family: "Times New Roman", serif; so-language: ar-SA }
 
 
 
Sobre el autor
Publicación académica de José Valentín López Montilla, en su ámbito de estudios para la Carrera Consultor ABAP.
José Valentín López Montilla
Profesión: Ingeniero de Sistemas - Venezuela - Legajo: GT35M
✒️Autor de: 134 Publicaciones Académicas
🎓Egresado de los módulos:
Disponibilidad Laboral: FullTime
Presentación:
Ingeniero de sistemas y magister scientiarum en ingeniería de software, con más de 30 años de experiencia en el área de tecnología de información, objetivo principal consultor sap abap
Certificación Académica de José López