✒️ABAP El Batch Input utilizando Call transaction

1. Mi primer Batch Input utiluizando CALL TRANSACTION.

vamos a crear nuestro primer Batch Input utilizando la técnica de CALL TRANSACTION. El objetivo del Batch Input sera la carga inicial de datos de la tabla ZTABLA_USUARIOS.

Para ello, 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.

Paso 1ero. Declacracion de datos propios del Batch Input

Declaramos una tabla interna y una estructura ambas del tipo BDCDATA, otra tabla interna del tipo BSCMSGCOLL con su estructura, que servirán para almacenar los mensajes que se produzca cuando ejecutamos el CALL TRANSACTION, la tabla interna de usuario que contendrá los datos que levantemos del archivo de entrada y una tabla para mostrar por pantalla los errores entre otras declaraciones.

* 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.

* Estructura de errores
DATA: st_errores LIKE LINE OF ti_errores.

Nota: Estrutura BDCMSCGOLL, esta estructura estándar del sistema es utilizada para definir la tabla interna que almacenará los mensajes del batch input.

Paso 2do. 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.

DATA: vl_file TYPE string.

IF p_path IS INITIAL.
MESSAGE s000(z_prueba) WITH text-003.
ELSE.

vl_file = p_path.

* 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.

IF sy-subrc NE 0.
MESSAGE e000(z_prueba) WITH text-004.
ENDIF.

IF ti_archivo[] IS INITIAL.
MESSAGE s000(z_prueba) WITH text-005.
ENDIF.

ENDIF.

Paso 3ro. Carga de la tabla BDCDATA

Para cargar la tabla BDCDATA utilizamos la subrutina BDC_FIELD, que vimos en la lección anterior antes debemos iniciar la tabla interna del Batch Input y la de los mensajes.

Cómo vamos a ingresar más de un registro tendremos que manejar índices para saber en qué fila de la pantalla estamos cargando los datos esto lo solucionamos fácilmente concatenando al nombre del campo el número de la fila que le corresponde de 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.

Paso 4to. Ejecucion de la sentencia Call Transaction

Ahora vamos a 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.

Veamos en detalle cada unas de las opciones.

USING: Aquí especificamos la tabla debe ser hasta que se utilizarán

MODE: Determina el modo de procesamiento que se 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 muestra la pantalla sólo se ocurre un error.

Sí si alcanza un breakpoint se termina el procesamiento con sy-subrc igual a 1001. El campo SY_MSGTY contendra "S", SY-SY-MSGID contendra "00", SY-MSGNO contendra" 344", SY- MSGV1 contendra "SAPMSSY3" y SY-MSGV2 contendra el "0131".

N Procesamiento donde no se muestra la pantalla

P Procesamiento donde no se muestra la 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ún Batch Input. De esta forma podremos modificar su valor dinámicamente durante la ejecución del programa

UPDATE: Determina el modo de actualización de los cambios que producirá el Batch Input. Los módulos posibles son:

Update Efecto

A Actualización asincrónica. La actualización se produce de igual forma a la que sucede si utilizamos las en 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

L Actualización local

Nota Importante: cuando estamos desarrollando un programa que realiza un batch input mediante la técnica de call transaction es sumamente útil procesar el batch input 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 dbcdata el procesamiento se detendrá en la pantalla correspondiente al error y será allí donde tendremos que analizar cómo solucionarlo. Una vez que detectamos y corregimos el error podemos modificar el modo de ejecución a N.

MESSAGES INTO: Con el uso de esta opción, todo todos los mensajes me 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:

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.