✒️ABAP / Las subrutinas Por Mayra Pino Rodriguez

UNIDAD 4: SUBRUTINAS, FUNCIONES Y BATCH

1. SUBRUTINAS:

Son secciones de código que pueden ser utilizados más de una vez.

MODULARIZAR:

Acción de pasar el código de un programa a subrutinas, para mejorar la lectura y mantenimiento del mismo.

Lo ideal es q 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.

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

Ej:

* Selecciono datos de tabla de usuarios

PERFORM selecciono_datos.

Al hacer doble click en el nombre de la subrutina (selecciono_datos), el sistema nos propondrá crear la subrutina, si decimos que sí, el sistema nos preguntará dde queremos generar la subrutina, las opciones son: crear un nuevo include de datos o crearlas en el mismo programa de control.

Si lo creamos en el programa de control el sistema generará un bloque de código en nuestro programa para q lo completemos con el código q corresponda:

Ej:

form selecciono_datos.

endform. "selecciono_datos

Es importante q el nombre q se le asigne a una subrutina sea lo más representativo posible del resultado q produce la subrutina.

La longitud del nombre no puede exceder de 30 caracteres.

2. TIPOS DE SUBRUTINAS

- INTERNAS: cdo la subrutina está dentro del mismo programa q la llama.

- EXTERNAS: cdo la subrutina está en un programa distinto al q las llama. Como puede ser el caso de un include de

subrutinas a otro programa.

3. SUBRUTINAS INTERNAS

Para crear una subrutina interna usamos la palabra clave PERFORM <nombre subrutina>

Esto crea un bloque FORM - ENDFORM donde colocamos nuestro código.

Se puede pasar datos entre los programas ppales y una subrutina a través de Parámetros.

Parámetros actuales: son los parámetros definidos en el programa principal, a la derecha de la palabra PERFORM.

Parámetros formales: a los parámetros definidos en la subrutina, a la derecha de la palabra FORM.

Tipos de parámetros:

- De entrada: cdo se utilizan para pasar datos del programa ppal a la subrutina.

- De salida: cdo se utilizan para pasar datos de la subrutina al programa ppal.

- De entrada y salida: cdo se utilizan para pasar datos de la subrutina al programa ppal y viceversa.

4. PASO DE PARAMETROS A SUBRUTINAS.

Tenemos 3 opciones para pasar parámetros:

- USING

- CHANGING

- TABLES

Se deben escribir en el sgte orden:

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 parámetros formales. De esta forma nos aseguramos q solo se pasen parámetros del tipo q corresponda a la subrutina.

Ej: dde 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.

* Procesar los datos de entrada

PERFORM procesar_datos TABLES ti_vuelos

USING st_vuelos

CHANGING v_flag.

* Form procesar_datos

* text

PERFORM procesar_datos TABLES t_vuelos STRUCTURE sflight

USING st_vuelos STRUCTURE sflight

CHANGING p_flag TYPE sy-subrc.

ENDFORM. "procesar datos

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.

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.

Ej:

* Paso de parámetros por valor

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

Y la salida será B.

Tenemos q tener bien claro q cdo psamos parámentros por valor las modificaciones q se realizan al parámetros dentro de la subrutina no tendrán efecto alguna fuera de la subrutina en el programa ppal.

NOTA: Como vemos en el ejemplo anterior el nombre del parámetro actual v_f1 es decir, el q se especifica a la derecha de la palabra reservada PERFORM es diferente al nombre del parámetro formal pf1 es decir el q se especifica a la derecha de la palabra reservada FORM en la declaración de la subrutina Paso por valor.

Basta con q ambos parámetros se encuentren en el mismo orden y su tipo sea el mismo, para q ABAP los interprete correctamente.

Para pasar parámetros por valor utilizamos en la declaración de la subrutina la palabra reservada Value y encerramos al parámetro entre paréntesis.

Cdo se pasan parámetros por valor debemos tener bien claro q las modificaciones q se realizan al parámetro dentro de la subrutina no tendrán efecto alguna fuera de la subrutina en el programa ppal.

Ahora explicaremos pq la salida por pantalla es B? Al momento de declarar en el programa ppal la variable v_f1 le asignamos el valor B, luego ejecutamos la subrutina Paso por valor pasando a la variable v_f1 como parámetro por valor, dentro de la subrutina Paso por valor vemos q el nombre del parámetro cambia y q se le asigna al mismo una X, tal como mencionamos anteriormente debido al Paso por valor a la salida de la subrutina el parámetro v_f1 vuelve a tener el mismo valor q tenía antes de ingresar a la misma, es decir B. Finalmente la impresión del contenido de la variable en pantalla será B.

- 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, el contenido del campo del programa q hace la llamada too cambia.

Ej:

* Paso de parámetros por referencia

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.

Y la salida será A B y X X.

NOTA: Como vemos en el ej anterior los nombres de los parámetros actuales v_g1 y v_g2, es decir los q se especifican a la derecha de la palabra reservada PERFORM son diferentes a los nombres de los parámetros formales p_g1 y p_g2 es decir los q se especifican a la derecha de la palabra reservada FORM en la declaración de la subrutina Paso por referencia.

Basta con q los parámetros se encuentren en el mismo orden y su tipo sea el mismo, para q ABAP los interprete correctamente.

Cdo se pasan Parámetros por referencia debemos tener bien claro q las modificaciones q se realizan al parámetro dentro de la subrutina si tendrán efecto fuera de la subrutina en el programa ppal.

Ahora explicaremos pq la salida por pantalla es AB XX? Al momento de declarar en el programa ppal la variable v_g1 y v_g2 les asignamos los valores AB luego imprimimos en pantalla las variables, por lo q la salida en pantalla es AB, a continuación ejecutamos la subrutina Paso por referencia, pasando ambas variable como parámetro por referencia dentro de la subrutina vemos q los nombres de los parámetros cambia por p_g1 y p_g2 y q ambos parámetros se le asigna una X a la salida de la ejecución de la subrutina en el programa ppal los parámetros conserva el valor asignado a la subrutina debido al paso por referencia es decir X. Finalmente la impresión del contenido de la variable en pantalla será XX.

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

Ej:

* 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_resultado USING v_h2

CHANGING v_h1.

WRITE:/ 'H1 es:', v_h1.

* Form PASO_POR_VALOR_Y_RESULTADO

FORM paso_por_valor_y_resultado USING value(p_f2)

CHANGING value(p_f1).

p_f1 = p_f2.

ENDFORM. " PASO POR VALOR Y RESULTADO

Y la salida sera H1 es: B.

5. SUBRUTINAS EXTERNAS

Si quisiéramos llamar a una subrutina q está en un programa distinto al q 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>.