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.