Para recuperar o leer la base de datos de SAP se utiliza la sentencia SELECT, su sintaxis varía mucho en comparación al SQL estándar. Por lo que cubriremos varios ejemplos y explicaremos las diferencias.
Uno de las principales diferencias es que al ejecutar la sentencia SELECT se debe definir en que variable de ABAP se depositan los datos leídos, estas variables se deben de declarar con un tipo de datos compatibles con el tipo de datos del campo a leer.
Lectura de una sola fila
La clausula SINGLE es requerida y equivale a limit 1 en mysql o top 1 en MS SQL Server, luego la instrucción INTO se usa para indicar que en la siguiente variable se deposite el valor de la tabla.
"Declaramos la variable
data: material type matnr.
SELECT SINGLE matnr
INTO material
FROM mara
WHERE matnr = 'AAAA'.Para leer un solo registro, pero más de un campo a la vez debemos separar la lista de campos por espacios en blanco después de SELECT SINGLE y colocar entre paréntesis y separadas por comas la lista de variables en las que se cargaran los valores recuperados.
data: material type matnr,
tipo type mtart.
SELECT SINGLE matnr mtart
INTO (material, tipo)
FROM mara
WHERE matnr = 'AAAA'.Es importante no dejar espacios en blanco entre los paréntesis y la primera variable, de lo contrario se generaría un error al activar el programa.
SELECT SINGLE matnr mtart
INTO ( material, tipo) "Genera un error por el espacio entre "(" y "material,"
FROM mara
WHERE matnr = 'AAAA'.Después de ejecutar una sentencia SELECT, la variable de sistema SY-SUBRC tendrá un 0 (Cero) si al menos una fila fue recuperada y tendrá un 4 (Cuatro) si no se encontró ningún dato con el criterio definido en la cláusula WHERE. Podemos utilizar esta variable para controlar si nuestra lectura fue exitosa.
La variable de sistema SY-DBCNT almacena la cantidad de registros recuperados.
DATA: material TYPE matnr.
SELECT SINGLE matnr
INTO material
FROM mara
WHERE matnr = 'AAAA'.
IF SY-SUBRC = 0.
WRITE: / 'Se encontraron ', sy-dbcnt, ' registros'.
ELSE.
WRITE: / 'No se encontraron datos'.
ENDIF.Leer varias filas de una vez
Para leer más de un registro de la base de datos es necesario definir antes una tabla interna para almacenar los datos recuperados.
"Declarar una tabla interna, con header line
DATA: it_mara LIKE STANDARD TABLE OF mara WITH HEADER LINE.
"Leer los datos y depositarlos en la tabla temporal
SELECT matnr mtart
INTO CORRESPONDING FIELDS OF TABLE it_mara
FROM mara
WHERE matnr = '00001'.Leer datos uniendo dos o más tablas
Existen dos formas para hacer esto, la primera es con la cláusula INNER JOIN y la segunda es con FOR ALL ENTRIES. Primero vamos a ver como se hace utilizando FOR ALL ENTRIES.
"Declarar una estructura para leer la primera tabla
DATA: BEGIN OF it_mara OCCURS 0,
matnr TYPE matnr,
labst TYPE labst,
END OF it_mara.
"Declarar una tabla interna para leer la segunda tabla (tambien pudo ser una estructura con header line)
DATA: IT_EXISTENCIAS LIKE TABLE OF IT_MARA WITH HEADER LINE.
DATA: CANT_LINEAS TYPE I.
"Leer la primera tabla
SELECT MATNR
INTO CORRESPONDING FIELDS OF TABLE IT_MARA
FROM MARA
WHERE MTART = '0001'.
"Verificar si la tabla interna tiene registros
DESCRIBE TABLE IT_MARA LINES CANT_LINEAS.
IF CANT_LINEAS > 0.
"Leer los registros de la segunda tabla, siempre y cuando coincidan con la primera tabla, esto se logra
"utilizando FORM ALL ENTRIES y la clausula WHERE que compara cada valor en la tabla interna
SELECT MATNR LABST
INTO TABLE IT_EXISTENCIAS
FROM MARD
FOR ALL ENTRIES IN IT_MARA
WHERE MATNR = IT_MARA-MATNR.
ENDIF.ADVERTENCIA: Si se utiliza FOR ALL ENTRIES con una tabla interna vacía, SAP recupera la segunda tabla con todos los registros existentes, para el ejemplo anterior si no revisamos que la tabla interna IT_MARA contenga líneas y si la tabla MARD tiene 1,000,000 de registros, SAP leerá 1,000,000 de registros ignorando por completo la cláusula WHERE, lo que puede llevar a problemas de rendimiento en nuestro programa Z.
Para leer datos de más de una tabla utilizando INNER JOIN:
"Declaramos una estructura con header line
DATA: BEGIN OF it_mara OCCURS 0,
matnr TYPE matnr,
labst TYPE labst,
END OF it_mara.
SELECT m~matnr e~labst
INTO TABLE it_mara
FROM mara AS m INNER JOIN mard AS e ON m~matnr = e~matnr
WHERE e~MTART = '0001'.Como se puede apreciar en el código, al utilizar más de una tabla debemos referirnos a los campos de la forma TABLA~CAMPO, donde tabla es el nombre de la tabla o el alias asignado y el símbolo ~ se usa para separar el nombre de la tabla y el nombre del campo. Después de la cláusula ON se define la relación para unir las tablas.
ADVERTENCIA: Los datos no se guardan siempre de la forma que se visualizan, en este caso, SAP nos muestra que el código del cliente es “1”, pero al dar doble clic sobre la línea en la transacción se16n vemos que el código del cliente se guarda como “00000001”, al hacer una lectura debemos utilizar el código tal como se guarda (00000001) en lugar de como lo vemos (1).
