✒️ABAP / Las subrutinas Por Mauricio Yedro

Subrutinas

Son secciones de código que pueden ser utilizadas más de una vez dentro de un mismo programa y también ser utilizadas por otros programas que las referencien.

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 el 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 nos preocupamos que el resultado de una subrutina sea el esperado sin entrar en detalle de cómo se llega a ese resultado.

En ABAP una subrutina se declara con la palabra reservada PERFORM seguida del nombre de la subrutina. Ejemplo:

PERFORM seleccionar_datos.

Tipos de Subrutinas

• Internas: cuando la subrutina se encuentra dentro del mismo programa que la llama o en un include de subrutinas, el cual se encuentra declarado en el programa de control. Ejemplo:

REPORT …

START-OF-SELECTION.

PERFORM seleccionar_datos.

FORM seleccionar_datos.

ENDFORM.

Externas: cuando la subrutina se encuentra en un programa distinto al que llama. Para llamar a una subrutina externa desde otro programa vamos a escribir la sentencia PERFORM de la siguiente forma:

PERFORM <nombre_subrutina> IN PROGRAM <nombre_programa_subrutina>.

Ejemplo de ejecución desde otro programa:

REPORT …

START-OF-SELECTION.

PERFORM seleccionar_datos IN PROGRAM ztest_subrutinas.

El paso de parámetros a subrutinas

Podemos pasar datos entre el programa principal y una subrutina a través de parámetros.

Los parámetros de una subrutina 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.

Para pasar los parámetros en las subrutinas vamos a utilizar tres palabras reservadas que son las siguientes:

USING: para declarar parámetros de entrada que serán utilizados en la subrutina.

CHANGING: para declarar parámetros de entrada/salida que serán utilizados en la subrutina.

TABLES: para declarar parámetros de entrada/salida que son tablas, las cuales serán utilizadas en la subrutina.

Las palabras reservadas que acabamos de mencionar deben ser escritas en el orden que mostramos a continuación:

PERFORM <nombre_subrutina> TABLES <tabla_interna>

USING <parámetro_de_entrada>

CHANGING <parámetro_de_entrada_y_salida>.

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 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. Ejemplo:

DATA: v_fl(l) TYPE c VALUE ‘B’.

PERFORM paso_por_valor USING v_fl.

WRITE v_fl.

*------------ FORM Paso por valor -------------*

FORM paso_por_valor USING value (pfl).

Pfl = ‘X’.

ENDFORM. “Paso por valor

Salida por pantalla: B

Paso por referencia: durante la llamada subrutina, solo la dirección de los parámetros actuales se transfiere 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(l) TYPE c VALUE ‘A’.

V_g2(l) TYPE c VALUE ‘A’.

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

Salida por pantalla: 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(l) TYPE c VALUE ‘A’.

V_h2(l) TYPE c VALUE ‘B’.

PERFORM paso_por_valor_y_resultado USING v_h2

CHANGING v_h1.

WRITE:/ ‘H1 es: ‘, v_g1.

*----------- FORM paso por valor y resultado --------------

FORM paso_por_valor_y_resultado USING value (p_f2).

CHANGING value (p_fl).

p_fl = p_f2.

ENDFORM.

Salida por pantalla: H1 es: B

Declaraciones de datos Globales y Locales:

Cuando declaramos datos en un programa ABAP, es decir variables, estructuras, tablas internas u otros tipos de datos, podemos hacerlo de dos formas diferentes: Globalmente y Localmente

Declaración global:

REPORT …

CONSTANTS: c_nombre_reporte (40) TYPE c VALUE ‘Reporte de clientes’.

START-OF-SELECTION.

PERFORM imprimir_reporte.

FORM imprimir_reporte.

WRITE: / c_nombre_reporte. “utilización de la constante global

ENDFORM.

Ventajas: facilita el armado del programa, se puede declarar globalmente y ser utilizada donde corresponda.

Desventaja: declarar globalmente no es muy eficiente en cuanto a la modularización, lo cual en un punto complicaría el mantenimiento del programa.

Declaración Local:

REPORT …

CONSTANTS: c_nombre_reporte (40) TYPE c VALUE ‘Reporte de clientes’.

START-OF-SELECTION.

PERFORM imprimir_reporte.

FORM imprimir_reporte.

DATA: vl_fecha(10) TYPE c. “variable local, solo puede ser utilizada dentro de la subrutina: imprimir_repote.

CLEAR vl_fecha.

Vl_fecha = sy-datum.

CONCATENATE vl_fecha + 6 (2) vl_fecha + 4 (2) vl_fecha + 0 (4) INTO vl_fecha SEPARATED BY ‘/’.

WRITE: c_nombre_reporte.

WRITE: vl_fecha.

ENDFORM.