✒️ABAP / Las subrutinas Por Alexander Castellanos

QUE SON LAS SUBRUTINAS

Las Subrutinas son secciones de código que pueden ser utilizadas más de una vez.

La idea de pasar el codigo de los programas a subrutinas, es para que los programas sean mas faciles de leer y mantener. A esto se llama MODULARIZAR.

La modularización permite mejorar la lectura y mantenimiento de los programas. Lo ideal es que las subrutinas no tengan más de 50 líneas.

Una subrutina se declara con la palabra reservada PERFORM seguida del nombre de la subrutina:

*Selecciono datos de tabla de usuarios.

PERFORM selecciono_datos.

Si hacemos doble clic en el nombre de la subrutina, el sistemas nos propondrá crear la subrutina, a continuación nos preguntará si queremos crearla como un nuevo include de datos o en el mismo programa de control. Luego el sistema generará un bloque de código para que los completemos con el código que corresponda.

NOTA: Es importante que el nombre de la subrutina sea lo mas representativo posible del resultado que produce la subrutinas. Ademas dicho nombre no puede exceder los 30 caracteres.

Un INCLUDE DE SUBRUTINAS: son objetos ABAP que se crean para agrupar en ellos todas las declaraciones de subrutinas que se utilizan en el programa.

_______________________________________

TIPOS DE SUBRUTINAS

Internas: La subrutina esta dentro del programa que las llama.

Externas: La subrutina esta en otro programa. Como es el caso de un include de subrutinas.

_______________________________________

SUBRUTINAS INTERNAS

Se crean usando 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 las subrutinas por medio de los parámetros. A los parámetros definidos en el programa principal, a la derecha de la palabra PERFORM se les llama parámetros actuales. A los parametros definidos en la subrutina, a la derecha de la palabra FORM, se les llama parámetros formales.

Los parámetros pueden ser de 3 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:

PERFORM subrutina 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.

Ejemplo:

DATA: ti_vuelos LIKE STANDARD TABLE OF sflight,

st_vuelos LIKE LINE OF ti_vuelos,

v_flag TYPE sy-subrc.

*Procesar los datos de entrada

PERFORM procesar_datos TABLES ti_vuelos

USING st_vuelos

CHANGING v_flag.

FORM procesar_datos TABLES t_vuelos STRUCTURE sflight

USING st_vuelos STRUCTURE sflight

CHANGING p_flag TYPE sy-subrc.

ENDFORM.

NOTA: 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 3 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.

Ejemplo:

*** Paso de parametros por valor ***************************************

DATA: vf_f1(1) TYPE c VALUE 'B'.

PERFORM paso_por_valor USING v_f1.

WRITE v_f1.

---------------------

FORM paso_por_valor USING value (pf1).

pf1 = 'X'.

ENDFORM.

La salida del anterior programa sera 'B'.

NOTA: Basta con que ambos parámetros (v_f1 y pf1) se encuentren en el mismo orden y su tipo sea el mismo para que ABAP los interprete correctamente. Para pasar parámetros por valor utilizamos en la declaración de la subrutina la palabra reservada VALUE y cerramos al parámetro entre paréntesis. Cuando se pasan parámetros por valor debemos tener bien claro que las modificaciones que se realicen al parámetro dentro de la subrutina NO TENDRÁN EFECTO alguno fuera de la subrutina en el programa principal.

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.

Ejemplo:

**** Paso de parametros por referencia **********************************

DATA: v_g1(1) TYPE c VALUE 'A',

v_g2(1) 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 USING p_g1

CHANGING p_g2.

p_g1 = p_g2 = 'X'.

ENDFORM

La salida del anterior programa sera A B y X X.

NOTA: Los nombre de los parámetros actuales v_g1 y v_g2 son diferentes a los nombre de los parámetros formales p_g1 y p_g2. Basta con que ambos parámetros (v_f1-v_g2 y p_g1-p_g2) se encuentren en el mismo orden y su tipo sea el mismo para que ABAP los interprete correctamente. Cuando se pasan parámetros por referencia debemos tener bien claro que las modificaciones que se realicen al parámetro dentro de la subrutina SI TENDRÁN EFECTO fuera de la subrutina en el programa principal.

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.

Ejemplo:

*** Paso de parametros por valor y resultado ***************************

DATA: v_h1(1) TYPE c VALUE 'A',

v_h2(1) TYPE c VALUE 'B'.

PERFORM paso_por_valor_y_resultado1 USING v_h2

CHANGING v_h1.

WRITE: /'H1 es:', v_h1.

FORM paso_por_valor_y_resultado USING value(p_f2)

CHANGING value(p_f1).

p_f1 = p_f2.

ENDFORM.

Y la salida sera 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 <sub>(<programa>) USING ...

También podemos agregar includes de subrutinas a nuestro programa de la siguiente manera:

INCLUDE <report>.