✒️ABAP Las subrutinas

MODULARIZAR

Consiste en dividir el programa en varias partes, mediante el uso de procedimientos o subrutinas Esto hace que el código sea más fácil de entender, de mantener, y de encapsularlos datos. Esto último se consigue porque los datos que se manejan en un procedimiento tan sólo están activos dentro del procedimiento y desaparecen cuando este se ha terminado de ejecutar.

SUBRUTINAS

Las subrutinas son conjuntos de instrucciones que pueden ser llamadas desde el programa en diversas ocasiones.
Para definirlas se utilizan las palabras clave FORM y ENDFORM que se especifican al inicio y final de las instrucciones que forman la subrutina. Para llamarla se utiliza la sentencia PERFORM.

Las subrutinas se codifican al final del programa principal, tras todos los eventos. No se pueden anidar.

Se puede salir de una subrutina con un EXIT (salida incondicional) o un CHECK (salida condicional), si estas sentencias no están dentro de un bucle. Sólo dentro de una subrutina se puede usar la sentencia LOCAL campo, para declarar variables locales a la subrutina (sólo visibles dentro de ella). Deja oculto el valor de ese campo que tuviera antes de entrar a la subrutina, y lo restaura al salir de ésta.

El programa principal y la subrutina se pueden comunicar mediante parámetros pasados por valor o referencia, siendo recomendable especificar el tipo de dato al definirlo. Es importante asignar un nombre representativo y que la longitud no excede 30 caracteres.

TIPOS DE SUBRUTINAS

Existen 2 tipos de subrutinas:

• internas: el código de la subrutina está dentro del programa que la llama.
• externas: la subrutina está en un programa distinto al llamante.

Sintaxis: (igual para subrutinas internas y externas)

FORM <subrutina> [ TABLES <parámetros-formales>

bloque.

ENDFORM.

Sintaxis de la llamada

• Llamada a una subrutina interna: PERFORM nombre [ parámetros ].

• Llamada a una subrutina externa: PERFORM name (programa) [ paráms ] [ IF FOUND ].
  En este caso se debe indicar el programa en el cual se encuentra la subrutina llamada. Con IF FOUND, si la subrutina no existe, la sentencia PERFORM es ignorada y no se genera error.

• Llamada dinámica: PERFORM (var) [ IN PROGRAM (var2) ] [ parám ] [ IF FOUND ].
  Se llama a la subrutina cuyo nombre está contenido en el campo o variable ‘var’. Se puede indicar opcionalmente el nombre del programa donde está (así vale para subrutinas internas y externas), en el campo o variable ‘var2’. IF FOUND es igual que antes.
• Llamada a partir de una lista: PERFORM índice OF subrutina1 subrutina2 ... subrutinaN.
  El sistema ejecuta la subrutina que ocupe la posición especificada en ‘índice’ (literal o variable), de la lista dada de subrutinas. Con esto sólo se puede llamar a subrutinas internas.

Parámetros formales

FORM nombre [ TABLES lista_tablas ] [ USING lista_var ] [ CHANGING lista_var ][ TYPE ... | LIKE ... ].

Las distintas opciones deben escribirse en este mismo orden. Los parámetros formales de una subrutina interna pueden ser cualquier variables declaradas en el llamante (no las variables locales internas a la subrutina), pues son visibles. Por esa misma razón no es necesario declarar esos parámetros formales. En cambio en las subrutinas externas sí es necesario pues esas variables no serán visibles directamente. Usando parámetros ya no es necesario declarar un COMMON PART en el llamante y llamado para pasar valores a una subrutina externa.

Las variables de USING y CHANGING pueden ser de cualquier tipo, mientras que las de TABLES deben ser tablas internas (con o sin área de trabajo). Por tanto, con CHANGING y USING pueden pasarse también tablas, pero hay que pasar explícitamente la estructura de la misma (por ejemplo con un LIKE) para poder referenciar luego a sus campos.

Parámetros actuales

PERFORM nombre [(prog)] [ TABLES lista_tablas ] [ USING lista_var ][ CHANGING lista_var ].

Paso de parámetros

Hay 3 formas de pasar datos (parámetros) a una subrutina:

• Paso por valor: El parámetro formal y el actual ocupan posiciones de memoria distintas, es una copia, con lo que su valor no puede ser modificado por la subrutina. Sólo se puede usar en USING con la opción VALUE.
• Paso por referencia: El parámetro formal y el actual ocupan la misma posición de memoria, con lo que su valor puede ser modificado por la subrutina. Se pasa la dirección del parámetro, no una copia. Se puede usar en TABLES, USING y CHANGING.
• Paso por valor y resultado: El parámetro formal y el actual ocupan posiciones de memoria distintas (se pasa una copia), pero su valor puede ser modificado por la subrutina (sólo si ésta termina incorrectamente y por tanto se lanza algún mensaje. En otro caso el parámetro no se modifica). Sólo se puede usar en CHANGING con VALUE.

Utilizando STRUCTURE se puede pasar como parámetro una estructura y hace referencia a sus campos en la subrutina. También se puede pasar como parámetro una tabla interna. Para hacer referencia se utiliza TABLES.

FORM ... ENDFORM

Esta sentencia permite definir subrutinas.

Sintaxis: FORM <subrutina> [ TABLES <parámetros-formales>

<parámetros-formales> ]

[ CHANGING <parámetros-formales>

PERFORM

Permite realizar una llamada a una subrutina. Se puede llamar a subrutinas que se encuentran en el mismo programa donde se encuentra la llamada (subrutinas internas) o en otros programas (subrutinas externas). Se puede especificar el nombre de la subrutina estática o dinámicamente en tiempo de ejecución. Se puede realizar llamadas a subrutinas desde un subrutina, incluso es posible que una subrutina se llame así misma (llamada recursiva).

Sintaxis: PERFORM <subrutina> [ TABLES <parámetros_actuales> ]

[ USING <parámetro_actuales> ]

[ CHANGING <parámetro_actuales> ].

Esta variante primera llama a la subrutina interna <subrutina>. En la cláusula <parámetros> se especifican los parámetros que hay que pasar a la subrutina (parámetros actuales). La subrutina puede acceder a todos los objetos de datos definidos en el programa, por lo tanto, el uso de parámetros es opcional. Se suelen utilizar por claridad en la codificación y por la posibilidad de ser variables.

PERFORM <subrutina>(<programa>) [ TABLES <parámetros_actuales> ]

[ USING <parámetro_actuales> ]

[ CHANGING <parámetro_actuales> ]

[ IF FOUND ].

Esta variante permite realizar llamadas a subrutinas que se encuentran en otro programa. La única forma de pasar datos es a través de los parámetros o utilizando un área común de memoria (COMMON PARTS).

• Si utilizamos la cláusula IF FOUND, el programa continuará sin producir ningún error si la subrutina no existe.

Cada vez que llamamos a una subrutina externa, el programa que la contiene se carga en memoria. Este hecho hay que tenerlo muy en cuenta a la hora de diseñar una aplicación para evitar cargas excesivas de información.

PERFORM <subrutina>(<programa>) IN PROGRAM <programa>

[ TABLES <parámetros_actuales> ]

[ USING <parámetro_actuales> ]

[ CHANGING <parámetro_actuales> ]

[ IF FOUND ].

Aquí se permite realizar una llamada a una subrutina que especificamos en tiempo de ejecución. Con la cláusula IN PROGRAM se puede determinar que la subrutina es externa, también de forma dinámica.

PERFORM <índice> OF <subrutina-1> <subrutina-2> ... <subrutina-n>.

Esta variante nos permite llamar a una subrutina en función del valor de un campo índice y la posición que guarda la subrutina en la sentencia. Las subrutinas sólo pueden ser internas.