✒️ABAP / Las subrutinas Por Oscar Rodriguez Villate
ABAP Las subrutinas
SUBRUTINAS
Secciones de codigo que pueden ser utilizadas más de una vez (programas más faciles de ller y mantener).
Modularizar: Pasar código de un programa a subrutinas (lo ideal es que una subrutina no tenga más de 50 lineas).
Se declara con PERFORM y nombre de la subrutina.
ej:
PERFORM selecciono_datos.
Al dar crear objeto se puede guardar en:
- nuevo include de datos
- en el mismo programa
lo crea ej:
form selecciono_datos.
endform.
-------------------------------------------------------------
TIPOS DE SUBRUTINAS
- Internas: esta en el mismo programa que la llama.
- Externas: esta en un programa distinto al que las llama. como en el caso de un include de subrutinas o otro programa.
Subrutinas internas: Se pueden pasar datos entre los programas principales y una subrutina a tráves de parámetros. A los parametros definidos en el programa principal, a la derecha de la palabra PERFORM se los llama parametros actuales.
A los parametros definidos en la subrutina, a la derecha de la palabra FORM, se los llama parametros formales.
Los parametros pueden ser de tres tipos:
- de entrada: pasar datos del programa a la subrutina.
- de salida: pasar datos de la subrutina al programa principal.
- de entrada y salida: pasar datos de la subrutina al programa principal y viceversa.
-----------------------------------------------------------------------
Paso de parametros a subrutinas
Utilizaremos tres opciones: USING, CHENCHING y TABLES. Se deben escribir:
PERFORM subrutina TABLES <TABLA DE SALIDA>
USING <PARAMETRO DE ENTRADA>
CHANGING <PARAMETRO DE SALIDA>.
En el bloque FORM - ENDFORM debemos especificar el tipo de los parametros formales. De esta forma nos aseguramos que solo pasen parametros del tipo que corresponde a la subrutina.
ej:
DATA: TI_VUELOS LIEK STANDARD TABLE OF SFLIGHT.
ST_VUELOS LIKE LINE OF TI_VUELOS,
V_FLAG TYPE SY_SUBRC.
PERFORM PROCESAR_DATOS TABLES TI_VUELOS
USING ST_VUELOS
CHANGING V_FLAG.
FORM PROCESAR_DATOS TABLES T_VUELOS STRUCTURE SFLIGHT
USING ST_VUELOS STRUCTRE SFLIGHT
CHANGING P_FLAG TYPE SY_SUBRC.
ENDFORM.
Cuando una subrutina es llamada, los parametros deben ser pasados en el mismo orden en el que fueron declarados, por lo tanto, se debe respetar esta misma secuenca en el bloque FORM - ENDFORM.
Existen tres formas de pasar parametros:
- Paso por valor: al llamar la subrutina, los parametros formales, son creados como copias de los parametros actuales. Los cambios en los parametros formales no afectan a los parametros actuales.
ej:
DATA: V_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 SERA B.
Se utiliza VALUE en el form para que respete el valor asignado antes de ejecutar el perform.
- Paso por referencia: al llamar a la subrutina, solo la dirección de los parametros actuales se transfieren a los parametros formales. dentro de la subrutina, se trabaja con el campo del programa que hace la llamada.
Si cambiamos los parametros formales, el contenido del programa que hace la llamada tambien cambia.
ej:
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 SERA A B y X X.
-Paso por valor y resultado: al llamar la subrutina, los parametros formales soncreados como copias de los parametros actules. Los cambios en los parametros formales son copiados a los parametros actuales al final de la subrutina.
ej:
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 USING VALUE(P_F2)
CHANGING VALUE (P_F1).
P_F1 = P_F2.
ENDFORM.
La salida es: H1 ES B.
--------------------------------------------------------------------
SUBRUTINAS EXTERNAS
Para llamar una subrutina que esta en un programa distinto al que estamos procesando, debemos utilizar la siguiente sintaxis:
PERFORM <sub>(<programa>) USING........
Tambien podemos agrgar includes de subrutinas a nuestro programa de la siguiente manera:
INCLUDE <report>.
Escanear / Compartir
3 Agradecimientos:
Han agradecido este aporte: William Lemus, Edgar Moreno Tello, Yeffer Sierra Saenz
Sobre el autor
Publicación académica de Oscar Guillermo Rodriguez Villate, en su ámbito de estudios para el Curso SAP ABAP.
SAP Expert
Oscar Guillermo Rodriguez Villate
Profesión: Ingeniero de Sistemas - Colombia - Legajo: WM49P
✒️Autor de: 103 Publicaciones Académicas
🎓Egresado de los módulos:
Disponibilidad Laboral: FullTime
