✒️ABAP El Batch Input utilizando Call transaction
ABAP El Batch Input utilizando Call transaction
Batch Input utilizando call transaction
1 Mi primer Batch input utilizando CALL TRANSACTION
el objetivo del batch input va ser cargar la ztabla_usuarios.
Para eso vamos a 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 3455 134512081967S
y asi
Paso 1: declaracion de datos propios del batch input
Declaramos una tabla interna y una estructura, ambas del tipo BDCDATA. otra tabla del tipo BDCMSGCOLL con su estructura, que servira para almacenar los mensajes que se produzcan al ejecutar el CALL TRANSACTION, la tabla interna de usuarios que contendra los datos que levantaremos.
* 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. Paso 2: Lectura de datos de archivos de entrada Ejecutamos el metodo GUI_UPLOAD para levantar el archivo de entrada con la información para generar eel 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. Paso 3: Carga de la tabla BDCDATA utilizaremos la subrutina BDC_FIELD al ingresar mas de un registro debemos utilizar un indice. (v_indice) * 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. Paso 4: Ejecucion de la sentencia CALL TRANSACTION * 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. Opciones USING: aqui especificamos la tabla BDCData que utilizará. MODE: determina el modo de procesamiento que utilizara el batch input. los modos posibles son: A= procesamiento con la visualizacion de todas las pantallas. es el valor por default. E= procesamiento donde se muestran las pantallas solo si ocurre un error. N= procesamiento donde nose muestra la pantallas. P= procesamiento donde nose muestra la pantallas. si se alcanza un breakpoint, se pasa el control al debugger. El modo A se recomienda para ejecutar el Batch Input por primera vez para poder analizar si existiese algun error. UPDATE: determina el modo de actualizacion de los cambios que producira el batch input. A= actualizacion asincronica. COMMIT WORK S= actualizacion sincronica. COMMIT WORK WAIT L= Actualizacion Local. MESSAGES INTO Opcion que hace que los mensajes se guarden en una tabla interna BDCMSGCOLL. Para armar los mensajes, vamos a utilizar la funcion MESSAGE_PREPARE 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. Para ejecutarlo entramos a la transaccion SM30 con el nombre de la tabla y persionamos actualizar =UPD Luego presionamos el boton entradas nuevas. Se cargan todos los campos del registro y presionamos grabar. Finalmente salimos de la transaccion y repetimos esta secuencia por cuantos registros de usuarios ingresamos en la tabla La sentencia Call Transaction tambien es utilizada en reportes, para acceder a una transaccion determinada, a partir de los datos presionados en pantalla, con el agregado de la clausula AND SKIP FIRST SCREEN. 
 
 
Sobre el autor
Publicación académica de Silvia Marina Carrizo, en su ámbito de estudios para la Carrera Consultor ABAP.
Silvia Marina Carrizo
Profesión: Analista Senior Genexus - Argentina - Legajo: ER54O
✒️Autor de: 61 Publicaciones Académicas
🎓Egresado del módulo:
Certificación Académica de Silvia Carrizo