✒️ABAP El Batch Input utilizando Call transaction

Batch input utilizando CALL TRANSACTION

El objetivo será la carga inicial de datos de la tabla ZTABLA_USUARIOS

Creamos un archivo de texto con registros que cumplan con la estructura de. la tabla ZTABLA_USUARIOS sin tener encuesta al campo mandante

00121567432Joaquin Perez ALarreo Alvarez 3454 134512081967S 00131987623Barbara Pereira ALavalleja 543 145623091987S 00127982134Eugenia Herrera AGuido 56 167507041979S 1-Declaración 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, sirve para al macerar los mensajes que se produzcan cuando ejecutemos CALL TRANSACTION, la tabla interna de usuarios. que contendrá los datos que levantamos del archivos de entrada y una tabla para mostrar por pantalla los errores entre la 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 BDCMSGCOLLes utilizada para definir la tabla interna que almacenara los mensajes del Batch input.
2- Lectura de datos de archivos 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. IF sy-subrc NE 0. MESSAGE e000(z_prueba) WITH text-004. ENDIF. 3- Carga de la tabla BDCDATA Para cargar utilizaremos la subrutina BCD_FIELD, ahora debemos inicial izar la tabla interna del BATCH INPUT y la de los mensajes. AL ingresar más de un registro tendremos que manejar indices para saber en que fila de la pantalla estamos cargando los datos se solucionar conectando al nombre del campo el número de la fila que le corresponde en la pantalla entre paréntesis. FORM cargo_tabla_bdcdata . CLEAR: ti_bdc_data, ti_messages. REFRESH: ti_bdc_data, ti_messages. * Ingreso a la Primer pantalla y presiono boton de mantenimiento PERFORM bdc_field USING 'X' 'SAPMSVMA' '0100'. PERFORM bdc_field USING ' ' 'VIEWNAME' 'ZTABLA_USUARIOS'. PERFORM bdc_field USING ' ' 'BDC_OKCODE' '=UPD'. * Presiono boton de nuevas entradas PERFORM bdc_field USING 'X' 'SAPLZTABLA_USUARIOS' '0001'. PERFORM bdc_field USING ' ' 'BDC_OKCODE' '=NEWL'. ADD 1 TO v_indice. PERFORM completo_ceros_izq. * 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. * Grabo los Registros PERFORM bdc_field USING ' ' 'BDC_OKCODE' '=SAVE'. * Cierro la segunda pantalla PERFORM bdc_field USING 'X' 'SAPLZTABLA_USUARIOS' '0001'. PERFORM bdc_field USING ' ' 'BDC_OKCODE' '=ENDE'. * Cierro la primer pantalla PERFORM bdc_field USING 'X' 'SAPMSVMA' '0100'. PERFORM bdc_field USING ' ' 'BDC_OKCODE' '/EENDE'. ENDFORM. " CARGO_TABLA_BDCDATA 4- Ejecución de la sentencia Call Transction
Ejecutamos la sentencia CALL TRANSCTION * 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.

USING: se especifica la tabla BDCDATA que se utilizara MODE: determina el modo de proceso que utilizara el BATCH INPUT los modos posibles son,

A----Procesamiento con la visualización de todas las pantallas. es el valor por default. E----Procesamiento de donde se muestra solo una pantalla solo si ocurre un error, SY-SUBRC = 1001. El campo SY-MSGTY contendrá S SY-MSGID contendrá 00, SY-MSGNO 344, SY-MSGV1 contendrá SAPMSSY3 y SY-MSGV2 contendra 0131.

N-----Procesmiento donde no se muestran las pantallas

P-----Procesamiento donde se muestran las pantallas, si se alcanza un breakpoint, se pasa el control al debbuger. Es conveniente utilizar una variable para asignar el modo de procesamiento Batch input de esa forma podemos modificar su valor dinámicamente durante el proceso de ejecución.

Update: determina el modo de actualización de los cambio que producirá el Batch input los modos posible.

• A----- Actualización asincrónica, se produce de igual forma a ala que sucede si utilizamos la sentencia COMMIT WORK, valor por defecto
• S....... Actualización sincronica, 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 esta opción todos los mensajes generados durante el procesamiento del Batch input son al maceradas en una tabla interna de tipo BDCMSGCOLL para armar los mensajes utilizamos MESSAGE_PREPARE

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.

Una vez termina los pasos del Batch input ejecutamos el procesamiento "A" que nos permite ver los pasos de actualización .

Lo que primero se hace es entrar a la transacción SM30 con el nombre de la tabla y presionamos actualizar (Maintain), luego presionamos entradas nuevas (New Entries) se cargan todos los campos del registros y presionamos grabar. Finalmente salimos de la trans. y repetiremos esta secuencia de pasos cuantos registros de usuarios ingresemos en la tabla.

La sentencia CALL TRANSACTION es muy utilizadas en reportes , para acceder a una transacción determinada a partir delos datos presionados en pantalla, con el agregado de la cláusula AND SKIP FIRST SCREEN,