✒️ABAP Las subrutinas
ABAP Las subrutinas
SUBRUTINAS
Son secciones de código que pueden ser utilizadas mas de una vez.
El objetivo de las subrutinas es hacer mas fácil el mantenimiento de los programas.
MODULARIZAR
Es la acción de pasar el código de un programa a subrutinas. Lo ideal es que cada subrutina no tenga mas de 50 lineas de código.
Esto facilita la detección de errores y el debug.
SINTAXIS:
PERFORM <nombre de subrutina>.
Si hacemos clic en el nombre de la rutina el sistema nos propondrá crearla si no existe aún.
Contestamos afirmativamente y el sistema nos propone 2 alternativas:
1. Include de datos. (genera fichero con subrutinas)
2. Mismo programa de control.
Se creará un código como este:
FORM <nombre subrutina>.
ENDFORM.
NOTA: El nombre de la subrutina no puede superar los 30 caracteres.
TIPOS:
INTERNAS: la subrutina está dentro del mismo programa que la llama.
EXTERNAS: la subrutina está en un programa distinto al que la llama. (includes de suburitnas u otro programa).
SUBRUTINAS INTERNAS:
La sentencia PERFORM <subrutina>. genera
FORM <subrutina>.
ENDFORM.
PARÁMETROS EN LAS SUBRUTINAS:
Existen 2 clases:
PARÁMETROS ACTUALES
Son los parámetros definidos en el programa principal y se encuentran a la derecha de la sentencia PERFORM.
PARÁMETROS FORMALES
Son los parámetros definidos en la subrutina a la derecha de la sentencia FORM-ENDFORM.
Los parámetros pueden actuar de tres formas:
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 en ambas direcciones.
SINTAXIS PARA PASO DE PARÁMETROS:
PARAMETROS ENTRADA y SALIDA:
Se especifican en la sentencia PERFORM.
Se utilizaran tres modificadores: USING, CHANGING y TABLES.
SINTAXIS:
PERFORM <nombresub> TABLES <tablas de salida> USING <parámetro de entrada> CHANGING <parámetro de salida>.
PARAMETROS FORMALES
Se especifican en la sentencia FORM-ENDFORM.
SINTAXIS:
FORM <nombresub> TABLES <tabla de salida> USING <parámetros de entrada> CHANGING <parámetro de salida>.
Ejemplo completo:
* definimos datos
DATA: ti_vuelos LIKE STANDARD TABLE OF sflight, st_vuelos LIKE LINE OF ti_vuelos, v_flag TYPE sy-subrc. |
* definimos la surutina la llamamos procesar_datos
PERFORM procesar_datos TABLES ti_vuelos USING st_vuelos CHANGING v_flag. |
* SUBRUTINAS
FORM procesar_Datos TABLES t_vuelos STRUCTURE sflight USING st_vuelos STRUCTURE sflight CHANGING p_flag TYPE sy-subrc.
ENDFORM.
|
NOTA: Se debe respetar el orden de los parámetros tal y como fueron declarados. Es decir como se declararon en PERFORM deben declararse en FORM-ENDFORM.
PASO DE PARÁMETROS
Existen tres formas de paso:
POR VALOR: Los parametros formales (FORM-ENDFORM) son creados como copias de lo actuales (PERFORM), los cambios no afectan a los actuales. Se utiliza la sentencia value(<var>) para especificar que se usa el valor.
EJEMPLO
DATA variable(1) TYPE c VALUE ‘B’.
PERFORM mi_rutina USING variable.
WRITE variable.
FORM variable USING value(var1).
var1 = ‘Z’.
ENDFORM.
El resultado sera B.
POR REFERENCIA: solo se pasa la dirección (puntero) de los parámetro actuales (PERFORM) a los formales (FORM-ENDFORM). Dentro de la subrutina se trabaja con el campo del programa que hace la llamada.
Si cambian los valores de los parámetro formales (FORM-ENDFORM) el contenido del programa también cambia.
EJEMPLO
*Declaración de variables.
DATA: var1(1) TYPE c VALUE ‘A’,
var2(1) TYPE c VALUE ‘B’.
* Impresion antes de subrutina
WRITE: / var1, var2.
* Llamamos subrutina.
PERFORM modifcar USING var1 CHANGING var2.
* Impresión después de subrutina
WRITE: / var1, var2.
* subrutina
FORM modificar USING p_g1 CHANGING p_g2.
p_g1 = p_g2 = ‘X’.
ENDFORM.
El resultado es
A B
X X
POR VALOR Y RESULTADO: Al igual que por valor los parámetros formales (FORM-ENDFORM) son creados como copias a los valores actuales (PERFORM) Los cambio de los parámetro formales (FORM-ENDFORM) son copiados a los parámetros actuales (PERFORM) al final de la subrutina.
EJEMPLO
* Declaración de variables.
DATA: var1(1) TYPE c VALUE ‘A’,
var2(1) TYPE c VALUE ‘B’.
PERFORM valor_y_resultado USING var2 CHANGING var1.
WRITE: / ‘El valor de var1 es:’,var1.
FORM valor y resultado USING value(p_v2) CHANGING value(p_v1).
p_v1 = p_v2.
ENDFORM.
El resultado seria. El valor de var1 es: B.
SUBRUTINAS EXTERNA:
Para llamar a una subrutina que está en otro programa debemos utilizar la siguiente sintaxis:
PERFORM <nombresubrutina>(<programa>) USING … .
También se pueden agregar INCLUDES DE SUBRUTINA a nuestro programa con esta sintaxis:
INCLUDE <report>.
 
 
 
Sobre el autor
Publicación académica de Josep Antoni Lopez Moyano, en su ámbito de estudios para la Carrera Consultor ABAP.
Josep Antoni Lopez Moyano
Profesión: It Manager - España - Legajo: QP26P
✒️Autor de: 375 Publicaciones Académicas
🎓Egresado de los módulos:
- Carrera Consultor en SAP HCM Nivel Inicial
- Carrera Consultor Basis NetWeaver Nivel Avanzado
- Carrera Consultor Basis NetWeaver Nivel Inicial
- Máster Funcional ABAP
- Máster ABAP Orientado a Objetos
- Carrera Consultor ABAP Nivel Avanzado
- Carrera Consultor ABAP Nivel Inicial