✒️ABAP El Batch Input utilizando el Juego de datos

BACTH INPUT UTILIZANDO JUEGO DE DATOS

BATCH INPUT UTILIZANDO JUEGOS DE DATOS

Vamos a crear nuestro primer Batch Input utilizando la técnica JUEGO DE DATOS. El obejetivo del Batch Input será 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 al campo mandante.

Como lo que vamos a hacer será la carga inicial de la tabla de usuarios, borraremos su contenido previamente a la ejecución de este ejemplo. Ahora, seguiremos los pasos que establecimos en la primer lección de la unidad.

PASO 1: Declaración de datos propios del Batch Input

Se declara una tabla interna y una estructura, ambas del tipo BDCDATA. Otra tabla interna de usuarios que contendrá los datos que levantemos del archivo de entrada.

*----------------------------------------------------------------------*

* Declaracion de datos

*----------------------------------------------------------------------*

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

DATA: BEGIN OF ti_archivo OCCURS 0,

dni(8) TYPE c, "Dni

nombre_ape(35) TYPE c, "Nombre y Apellido

estado_usu(1) TYPE c, "Estado del usuario

direccion(30) TYPE c, "Dirección

codigo_postal(4) TYPE c, "Código Postal

f_nacimiento(8) TYPE c, "Fecha Nacimiento

estado_civil(1) TYPE c, "Estado civil

END OF ti_archivo.

DATA: st_archivo LIKE LINE OF ti_archivo.

* Variables

DATA: v_campo(35) TYPE c,

v_indice(2) TYPE c,

v_qid TYPE apq_quid,

v_group TYPE apq_grpn.

PASO 2: Lectura de datos de archivo de entrada

Se ejecuta el método CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD para levantar el archivo de entrada con la información para generar el Batch Input.

*&---------------------------------------------------------------------*

*& Form LEVANTAR_ARCHIVO_ENTRADA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM levantar_archivo_entrada .

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.

ENDFORM. " LEVANTAR_ARCHIVO_ENTRADA

PASO 3: Apertura de la sesión del Juego de Datos

Para realizar la apertura de la sesión del JUEGO DE DATOS, vamos a utilizar la función DBC_OPEN_GROUP, especificando el mandante, el grupo y el usuario.

NOTA: DBC_OPEN_GROUP función estandar de SAP que se utiliza para realizar la apertura de la sesión de un Juego de datos.

*&---------------------------------------------------------------------*

*& Form APERTURA_JD

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM apertura_jd.

v_group = sy-repid.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

client = sy-mandt

group = v_group

keep = 'X'

user = sy-uname

IMPORTING

qid = v_qid

EXCEPTIONS

client_invalid = 1

destination_invalid = 2

group_invalid = 3

group_is_locked = 4

holddate_invalid = 5

internal_error = 6

queue_error = 7

running = 8

system_lock_error = 9

user_invalid = 10

OTHERS = 11.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDFORM. " APERTURA_JD

PASO 4: Carga de la tabla BDCDATA

Para cargar la tabla BDCDATA se utiliza la subrutina BDC_FIELD. Antes se debe inicializar la tabla interna del Batch Input.

*&---------------------------------------------------------------------*

*& Form bdc_field

*&---------------------------------------------------------------------*

FORM bdc_field USING dyn_begin TYPE c

campo1

campo2.

CLEAR st_bdc_data.

IF dyn_begin = 'X'.

st_bdc_data-program = campo1.

st_bdc_data-dynpro = campo2.

st_bdc_data-dynbegin = dyn_begin.

ELSE.

st_bdc_data-fnam = campo1.

st_bdc_data-fval = campo2.

ENDIF.

APPEND st_bdc_data TO ti_bdc_data.

ENDFORM. " bdc_field

*&---------------------------------------------------------------------*

*& Form CARGO_TABLA_BDCDATA

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM cargo_tabla_bdcdata .

CLEAR ti_bdc_data.

REFRESH ti_bdc_data.

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

* Cargo datos del usuario

PERFORM bdc_field USING 'X' 'SAPLZTABLA_USUARIOS' '0001'.

LOOP AT ti_archivo INTO st_archivo.

ADD 1 TO v_indice.

* Completo ceros a la izquierda de v_indice

PERFORM completo_ceros_izq.

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-F_NACIMIENTO(' v_indice ')' INTO v_campo.

PERFORM bdc_field USING ' ' v_campo st_archivo-f_nacimiento.

CLEAR v_campo.

CONCATENATE 'ZTABLA_USUARIOS-ESTADO_CIVIL(' v_indice ')' INTO v_campo.