✒️ABAP El Batch Input utilizando Call transaction

BATCH INPUT UTILIZANDO CALL TRANSACTION.

1.- Mi primer Batch Input utilizando CALL TRANSACTION.

El objetivo serà la carga de datos de la tabla ZTABLA_USUARIOS.

Se crea una estructura con registros que cumplan con la estructura de la taba ZTABLA_USUARIOS, sin tomar en cuenta el nombre del campo mandante.

- Paso uno: Declaraciòn de datos propios del Batch Input.

Declarar la tabla interna y una estructura, ambas de tipo BDCDATA, otra tabla interna del tipo

BDCMSGCOLL con su estructura 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.

*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_mensajes OCCURS 0.

INCLUDE STRUCTURE bdcmsgcoll.

DATA: END OF ti_mensajes.

* Estructura de mensajes.

DATA: st_mensajes TYPE bdcmsgcoll.

* Tabla de usuarios

DATA: ti_archivo TYPE STANDARD TABLE OF ztabla_usuarios,

st_archivo LIK 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.

"La estructura BDCMSGCOLL.- Es utilizada para definir la tabla interna que almacena los mensajes del batch input"

- Segundo paso: 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_forntend_services= gui_upaload

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

unknow_error = 7

bad_datta_format = 8

header_not_allowed = 9

separator_not_allowed = 10

header_too_long = 11

unknow_dp_error = 12

OTHERS = 19.

- Paso tercero_ Carga de la tabla BDCDATA.

A travès de la subrutina BDC:FIELD, se cara la tabla BDCDATA. Antes debemos inicializar la tabla del Batch Input y la de los mensajes.

Como se va a ingresar màs de un registro, tendremos que manejar ìndices para saber en que fila de la pantalla estamos cargando los datos. Esto lo solucionamos fàcilmente, concatenando al nombre del campo el nùmero de fila que le corresponde en la pantalla entre parèntesis.

* cargo datos del usuario.

PERFORM bdc_field USING 'X' 'SAPLZTABLA_USUARIOS'.

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 cuarto: Ejecuciòn de la sentencia CALL TRANSACTION.

CALL TRANSACTION v_cod_trans USING ti_bdc_data

MODE v_modo

UPDATE v_update

MESSAGE INTO ti_mensajes.

IF NOT sy-subrc EQ 0.

v_error = 'X'.

ENDIF.

Detalles.

USING.- Aquì especificamos la tabla BDCDATA, que se utilizarà.

MODE.- Determina el modo de procesamiento que utilizarà el Batch Input. Los modos posibles de procesamiento son:

A: Procesamiento con la visualizaciòn de todas las pantallas. Es el valor por default.

E: Procesamiento donde se muestran as pantalla solo si ocurre un error. Si se alcanza un breakPoint, se termina el procesamiento con SY-SUBRC = 1001. El campo SY-MSGTY contendrà "S", SY-MSGID = "00", SY-MSGNO = "344", SY-MSGV1 = "SAPMSSY3" y SY-MSGV2 = "0131"

N: Procesamiento donde no se muestran las pantallas.

P: Procesamiento donde no se muestran las pantallas. Se se alcanza un breakpoint, se pasa ek control al debugger.

"Es conveniente utilizar una variable para asignar el modo de procesamietno a un Batch input"

De esta forma podemos modificar su valor dinàmicamente, durante la ejecuciòn del programa.

UPDATE.- Determina el modo de actualizaciòn de los cambios que producirà el BI, los modos son:

A: Actualizaciòn asincrònica. La actualizaciòn se produce de igua forma a a que sucede si utilizamos la secuencia 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.

- 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 ( se utiliza la funciòn MESSAGE_PREPARE).

v_msg_id = st_messages-msgid.

v_msg_no = st_message-msgnr.

v_msg_v1 = st_message_msgv1.

v_msg_v2 = st_message_msgv2.

v_msg_v3 = st_messages-msgv3.

v_msg_v4 = st_message_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 NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Ejecuciòn del Batch Input, vamos a ejecutarlo con modo de procesamiento "A"

- Ingresar a la transacciòn SM30 con el nombre de la tabla y presionamos el botòn "Actualizar (Maintain)"

Luego presionamos el botòn "Entradas nuevas (New Entries)", se cargan todos los campos del registro y presionamos grabar.

Finalmente salimos de la transacciòn y repetiremos esta secuencia de pasos por cuantos registros de usuario ingresemos en la tabla.

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