✒️ABAP El Batch Input utilizando Call transaction
ABAP El Batch Input utilizando Call transaction
BATCH INPUT UTILIZANDO CALL TRANSACTION
Lo primero que hay que hacer es crear un archivo de texto con registros que cumplan con la estructura de la tabla ZTABLA_USUARIOS, sin tener en cuenta el campo mandante.
00121567432Joaquin Perez ALarreo Alvarez 3454 134512081967S 00131987623Barbara Pereira ALavalleja 543 145623091987S 00127982134Eugenia Herrera AGuido 56 167507041979S
Es importante limpiar el contenido de la tabla previo a la ejecución de este ejemplo, y luego se seguirán los siguientes pasos.
DECLARACIÓN DE DATOS DEL BATCH INPUT.
Declaramos la tabla interna y una 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.
TYPE-POOLS: slis. 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: Estructura BDCMSGCOLL es una estructura estándar del sistema que es utilizada para definir la tabla interna que almacenará los mensajes del Batch Input.
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.
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.
CARGA DE LA TABLA BDCDATA.
Para cargar la tabla utilizamos la subrutina BDC_FIELD. Debemos inicializar la tabla interna del Batch Input y la tabla de los mensajes. Como se van a ingresar más de un registro, tendremos que manejar índices para sabes en qué fila de la pantalla estamos cargando los datos. Eso se hace concatenando al nombre del campo el número de la fila que le corresponde en la pantalla entre paréntesis.
* 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.
EJECUCIÓN DE LA SETENCIA CALL TRANSACTION.
La sintaxis de la sentencia es así:
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. ENDFORM. " CALL_SM30
USING: Aquí especificamos la tabla BDCDATA que se utilizará.
MODE: Determina el modo de procesamiento que se utilizará en el Batch Input, los modos posibles del procesamiento son los siguientes:
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á “34”, SY-MSGV1 contendrá “SAPMSSY3” y SY-MSSGV2 contendrá el “0130”. |
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. |
Cuando estamos desarrollando un programa que realiza un Batch Input mediante es sumamente uitil procesarlo mediante el modo de ejecución A, el cual nos permite visualizar cada una de las pantallas ya que en caso de error en los datos que introducimos en la tabla, el procesamiento se detendrá en la pantalla de error y será ahí donde tendremos que analizar como solucionarlo. Una vez que lo detectamos podemos ejecutar el modo AN.
UPDATE: Determina el modo de actualización de los cambios que producirá el Batch Input.
A |
Actualización asincrónica. Se produce de igual forma a la que sucede si utilizamos la sentencia COMMIT WORK. Valor por defecto. |
S |
Actualización sincrónica. Se produce de igual forma a la que sucede si utilizamos la sentencia COMMIT WORK AND WAIT. |
L |
Actualización local. |
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 tal como vemos a continuación:
IF sy-subrc = 0. 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.
Ahora vamos a ejecutarlo con el modo de procesamiento A, que nos permite ver el paso a paso de las actualizaciones.
Ingresamos a la transacción SM30 con el nombre de la tabla y presionamos actualizar.
Presionamos el botón entradas Nuevas.
Se cargan todos los campos del registro.
Salimos de la transacción y repetiremos esta secuencia de pasos por cuantos registros de usuarios ingresemos en la tabla.
 
 
 
Sobre el autor
Publicación académica de Jose Alberto Rivera Gonzalez, en su ámbito de estudios para la Carrera Consultor ABAP.
Jose Alberto Rivera Gonzalez
Profesión: Técnico Informático - Mexico - Legajo: LG32F
✒️Autor de: 102 Publicaciones Académicas
🎓Egresado de los módulos:
Certificación Académica de Jose Rivera