✒️ABAP Las subrutinas
ABAP Las subrutinas
¿Qué son las subrutinas?
SUBRUTINAS
Las subrutinas son secciones de código que pueden ser utilizadas más de una vez.
La idea de pasar el código de los programas a subrutinas, es para que los programas sean más fáciles de leer y de mantener.
MODULARIZAR
Se llama así a la acción de pasar el código de un programa a subrutinas, para mejorar la lectura y mantenimiento del mismo.
Lo ideal es que una subrutina no tenga más de 50 líneas de código.
La modularización ayuda a encontrar más fácilmente los errores en los programas.
Esto se debe a que al debaguear un programa solo me preocupo que el resultado de una subrutina sea el esperado
sin entrar en detalle de como se llega a ese resultado.
Una subrutina se declara con la palabra reservada PERFORM seguida del nombre de la subrutina. Veamos un ejemplo:
PERFORM procesar_datos
Aquí creamos una subrutina para modularizar la selección de los datos. Si hacemos doble clic en el nombre de la subrutina,
el sistema nos propondrá crear la subrutina en la siguiente ventana de diálogo:
Contestaremos que sí y el sistema nos preguntará donde queremos generar la subrutina, las opciones son:
crear un nuevo include de datos o crearlas en el mismo programa de control.
En este caso, las crearemos en el programa de control.
Luego el sistema generará el siguiente bloque de código en nuestro programa
para que lo completemos con el código que corresponda:
FORM procesar_datos.
…
ENDFORM procesar_datos.
Es importante que el nombre que se le asigne a una subrutina sea lo más representativo posible del resultado que produce.
La longitud del nombre no puede exceder los 30 caracteres.
Tipos de subrutinas
Existen dos tipos de subrutinas:
Internas:
cuando la subrutina está dentro del mismo programa que la llama.
Externas:
cuando la subrutina está en un programa distinto al que las llama.
Como puede ser el caso de un include de subrutinas o otro programa.
Subrutinas internas
Como vimos en el ejemplo del punto 1, para crear una subrutina interna usamos la palabra clave PERFORM
seguida del nombre de la subrutina. Esto crea un bloque FORM-ENDFORM donde colocamos nuestro código.
Se pueden pasar datos entre los programas principales y una subrutina a través de parámetros.
A los parámetros definidos en el programa principal, a la derecha de la palabra PERFORM se los llama parámetros actuales.
A los parámetros definidos en la subrutina, a la derecha de la palabra FORM, se los llama parámetros formales.
Los parámetros pueden ser de tres tipos:
De entrada:
cuando se utilizan para pasar datos del programa principal a la subrutina.
De salida:
cuando se utilizan para pasar datos de la subrutina al programa principal.
De entrada y salida:
cuando se utilizan para pasar datos de la subrutina al programa principal y también viceversa.
Paso de parámetros a subrutinas
Para pasar los parámetros utilizaremos tres opciones: USING, CHANGING y TABLES.
Estas opciones se deben escribir en el orden que mostramos a continuación en el siguiente gráfico:
PERFORM procesar_datos TABLES <tabla de salida>
USING <parámetro de entrada>
CHANGING <parámetro de salida>.
En el bloque FORM-ENDFORM debemos especificar el tipo de los parámetros formales.
De esta forma nos aseguramos que solo se pasen parámetros del tipo que corresponde a la subrutina.
Veamos un ejemplo donde pasamos una tabla interna, una estructura y una variable de tipo carácter
DATA: ti_vuelos LIKE STANDARD TABLE OF sflight,
st_vuelos LIKE LINE OF ti_vuelos,
v_flag TYPE sy-subrc.
PERFORM procesar_datos TABLES ti_vuelos
USING st_vuelos
CHANGING v_flag.
*&---------------------------------------------------------------------*
*& Form PROCESAR_DATOS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM PROCESAR_DATOS TABLES t_vuelos STRUCTURE sflight
USING st_vuelos STRUCTURE sflight
CHANGING p_flag TYPE sy-subrc.
ENDFORM.
Cuando una subrutina es llamada, los parámetros deben ser pasados en el mismo orden en el que fueron declarados,
por lo tanto, se debe respetar esta misma secuencia en el bloque FORM-ENDFORM.
Existen tres formas de pasar parámetros:
Paso por valor:
durante la llamada a la subrutina, los parámetros formales son creados como copias de los parámetros actuales.
Los cambios en los parámetros formales no afectan a los parámetros actuales. Veamos un ejemplo:
DATA: v_f1(1) TYPE c VALUE 'B'.
PERFORM paso_por_valor USING v_f1.
WRITE: / v_f1.
*&---------------------------------------------------------------------*
*& Form PASO_POR_VALOR
*&---------------------------------------------------------------------*
FORM PASO_POR_VALOR USING VALUE(pf1).
pf1 = 'X'.
ENDFORM. " PASO_POR_VALOR
Paso por referencia:
durante la llamada a la subrutina, solo la dirección de los parámetros actuales se transfieren a los parámetros formales.
Dentro de la subrutina, se trabaja con el campo del programa que hace la llamada.
Si cambiamos los parámetros formales, el contenido del campo del programa que hace la llamada también cambia.
DATA: v_g1(1) TYPE c VALUE 'A',
v_g2(2) TYPE c VALUE 'B'.
WRITE: / v_g1, v_g2.
PERFORM paso_por_referencia USING v_g1
CHANGING v_g2.
WRITE: / v_g1, v_g2.
*&---------------------------------------------------------------------*
*& Form PASO_POR_REFERENCIA
*&---------------------------------------------------------------------*
FORM PASO_POR_REFERENCIA USING p_g1
CHANGING p_g2.
p_g1 = p_g2 = 'X'.
ENDFORM. " PASO_POR_REFERENCIA
Y la salida será A B y X X.
Paso por valor y resultado:
durante la llamada a la subrutina, los parámetros formales son creados como copias de los parámetros actuales.
Los cambios en los parámetros formales son copiados a los parámetros actuales al final de la subrutina.
DATA: v_h1(1) TYPE c VALUE 'A',
v_h2(2) TYPE c VALUE 'B'.
WRITE: / 'Ejemplo de paso por valor y resultado.'.
PERFORM paso_por_valor_y_referencia USING v_h2
CHANGING v_h1.
WRITE: /'H1 es:', v_h1.
*&---------------------------------------------------------------------*
*& Form PASO_POR_VALOR_Y_REFERENCIA
*&---------------------------------------------------------------------*
FORM PASO_POR_VALOR_Y_REFERENCIA USING value(p_f2)
CHANGING value(p_f1).
p_f1 = p_f2.
p_f2 = 'X'.
ENDFORM. " PASO_POR_VALOR_Y_REFERENCIA
Y la salida será H1 es: B.
Subrutinas externas
Si quisiéramos llamar a una subrutina que está en un programa distinto al que estamos procesando
, debemos utilizar la siguiente sintaxis:
PERFORM <nombre de la subrutina>(<nombre del programa que la contiene> USING …
También podemos agregar includes de subrutinas a nuestro programa de la siguiente manera:
INCLUDE (<nombre del programa que la contiene la subrutina>.
 
 
 
Sobre el autor
Publicación académica de Alex Francisco Lemos Collazos, en su ámbito de estudios para la Carrera Consultor ABAP.
Alex Francisco Lemos Collazos
Profesión: Ingeniero en Sistemas - Colombia - Legajo: QS36A
✒️Autor de: 174 Publicaciones Académicas
🎓Cursando Actualmente: Master S/4HANA Material Management
🎓Egresado de los módulos:
- Máster Material Management en SAP S/4HANA LOGISTIC
- Carrera Consultor ABAP Nivel Avanzado
- Carrera Consultor ABAP Nivel Inicial
- Carrera Consultor en SAP SD Nivel Inicial